Brevet US20040059744 - Data repository system

IN?

X x

XI 15

Q, to

—(

X-D

*0 X
X
ir, £

X<^'

> <5s «-i

X--<->
^ X

\x<2>x

v to-~--
ty <r
O <>i

-----

I 0 to

O -)

-J Sr^
«T O '-I

N ly
b ^> ^

Vtf Co

Q % Vj V'

t— ty

to ■—i <: ~ - ^ Uj H ii. *^ <2>

—•~. Xj- f\ —-i»

Cl , <N L ^ — S voX CoC. ^r-N , ^

> - . r\ji\* Lto,

S: <h -j INO S>

.... CQ--.C} Uj < N
-i to X -j K.

CiOCsV,^ H ^X

♦n'W ^ <jc K <o

VV\« §tr, —
XXX ^ x *o ^ --^1

"—,-——^--,'--.f\i H, H
•-I <\ -—--eo K —t V_i U.

K K. C IO K «qc 3t to-4r a: ^ Q 13 Hf—

ananf) aovssaw aidwvs ois

99Z0VNWd=ZO0£Z T$W*6llOZ

Zoezwsiwz

d-STWZ

...,V„„V„„=PIWZ
V3»VH3HOH^ZU0Z
p£ZT00=80WZ
»*t>OIOZ
>^ZOWZ
OZZZSSE^aib
EZlOZO0Z=8QZAd
a^zozAd
TSSOEZ/OZOOZ^PPJAd

»*W OZTAd
TOO^TTM

.„^PO ZTTAd
NIWVCN3SE0 ~£ TJAd
MJOJS'ZO illAd

P£ZTOO"TO~/TTAd
8N*frTTAd
WN=OTlAd
- 9£'£0 90IAd
ASN£"ZO 90TAd
A$N£^T0~90IAd
OOO^SOTAd
N=PQTAd
O"S0 FOTAd

9f~~ro~forAd

A5H£=Z0~£0lAd
ASNf^W £01Ad
I^ZOlAd

ST-8£=60 ZOOZ- iriC-£Z^lO~SS330Hd

££PZ-66

INU Wilt i I9/0S S8-Z9S1909/ /1} }f 11 i 11 HTllNl I IZt I 51 vv!iZOOZEZ/0 / / / 531VIDOSSV HI 1V3H $-9!M0JP989/0ZrZSZ11! i39IOH3 133735 VN13V/909! 10011!TNI"TNV'1d

8/95 PI Z10100" 10 ~8T(Jld
HON*/[Old

S980fZ8£ZfflOId
TOO"ZIOTd
0000-ZZ006"S0~TJOJd
V^POUOId
3 7IIAl NVS V3 Id-EO ~UOld
AV Vl»3dVS 5 ZtPl'lO^liaid
O^OTOId

w^soaid
tzzozooz»ioaid

5 vmm aa*zo~SOOTd

3OO-T0 SOOId
8Z95P£ZW000"P0OId
8Z9SPEZWW EOOId
5980EZ8fZE~£0IM
0000-ZZ006^S0~P0l>fN
V>'PO POT»N
3 7 UAL NV5V3 Id'EO ~PO IXN
AV VIV3dVS 5 /lPT*=TO~POT)W
Za£OZXM

Wsvc/s-eo '/own

vi*tw*zo~zoim

3O(I**T0 ZOTXN

T-TOim

£ 'ZaZW$W d^TTHSM £Zt=OlH$N I0V**Z0~60H5t*l

lav'W 60HSM
00-PE-60 ZOOZ mr-EZo/OHSU
A3O9Omt0H5»l
31VDVIVa=£QHSW
9\~v*>ZOHSW
ff^OZUO
S980£Z8£Z£=8IU9
-ZZ006-£0~/rU9

3 71JA1NV5V3 7d-£0 ~ZTT19
AV VIV3dVS 5 ZIPI*>T0~/IU9
...,v,.„ vX3XVH3H0H*9TTl9
££P/66P5S'Z1U9

Z^titid

J--60T19
PZ£OZZ6I*80U9
S980EZ8EZ£'90U9
-ZZ006"S0~S0li'J
VD"P0S0JJL9
3niAlWSV31d~£0~50T19
AV VIHSdVS S ZTPl'-lO JOllO
S=£Q £0119

VIHVH"ZO~EOU9
3(XinO~EOTl9

0Q:p£:60 ZOOZ- mc-£Z"Z0m3
TOVTOMAJ
V=90T9O
£Z/0ZOOZ"50T9Q

(Z06 S31/)N8OaM3N"P0T9a

8i•• Pe :&o zooz- inc-£Z"Jia~3i va»9

IV t^Z,6S00/fr00Z SI1 II jo s jaailS frOOZ 'SZ JBM noijBMiqna Uoijb3;i<i<iv JuajBj

DBMS.

DBMS.
DBMS.
DBMS
DBMS.
DBMS.
DBMS.
DBMS
DBMS.
DBMS
DBMS
DBMS.
DBMS
DBMS.
DBMS.
DBMS.
DBMS
DBMS
DBMS.
DBMS.
DBMS!
DBMS
DBMS.
DBMS.

DBMS-
DBMS.
DBMS.
DBMS.

* 'INSERT INTO Aar_PAriENT(PT_MRN,PT_FIRST_NM,PT_MIDDLE„NM,PT_LAST_NM,

PT 1>!0THERS_MAIDEN_NM, PT_BIRTH_DT, PT_BLOQD_ iyPE_CD,
PT.SEX CD, PT.RACE-CD, PT..S IRFF1, PT_STREET2,
PT_STAT£_CD, PT_CTTY_NM, PT.J1PI, PI_ZLP. PT_ID,
GREATEST, PT_COtmTY_CD, PT^HOME^PHONE, PT_B1Z_PHONE',
PT_.MARITAL_STATUS-.FLG, PT_RELIGION_CD,PT_SSN,
PT DRIVER-.LIC-.HO, PT. DRIVEfL.LIL_ISSUE_.STA7t_.CO,
...
PT_BIRTH_PLACE_DESC, PT_ClrlZ£NSHIP_DE$C)
VALUES (:PT_mN. :PT_EIRST.NM, :PT_MIDDL£_fJM, :PT LAST.HM,
:PT_Wm£RS MAI'OEN_NM, TO_DATE(:PT_BIRTH_DT,
''YYYYmDD'^), :pt_blocd_type_cd, :PT_S£X_CD,
;PT_RAC£_CD, :PT_Sr/_€£T, :P7_STR£ET2, :PT_STATE_CD,

:pt ciry_NM, .pt_zip4, -.pt .zip,Adt.pt ID Seq.nextval,

SYSBATE, :PT_COUNT¥_CD, :Pr_HCWE_ PHONE, :PT_8I__PH0N£,
:PT_MARITAL_STATUS_FLG, :PT_RELIGION.CD, :PT_SSN,
:PT_ORIVER_LICNOr :PT_DRIVER_LIC_ISSOE_STAT£_CD,
:PT SPECIAL HANDLING JO, :PT_ NtlYRORN_MO THERS_ ID,
:PT_BIRTH_PLACE_DESC, :PT_CITlZiNSHIP_DESC) ","
.SQL . PAR5E(v_cur$er, v_dml,DBMS_SQL. NATIVE); ,

SQL . BIND_ VARIABLE (v_ai ISO r,
SQL . BIND_ VARIABLE (v_cursor,
SQL. BIND-VARIABL£(v_cursor,
SQL . BIND_ VARIABLE(v-Cursor,
SQL. Bindl VARIABLE(v_cursor,
SQL . BINDL VARIABLE(v_CUrsOr,
SQL . BTND_ VARIABLE(v_ciirsur,
SQL. BlND_VARIABLE(v_r,ursor,
SQL . BIND_ VARIABL E(v_ cursor,
SQL. BIND_VARIABLE(V-.cursor,
SQL . BIND_VARIABL£(v_cursor,
SQL . BIND_VARIABL£(v_cursor,
SQL . 8INDu.VARIABL£(v_Cur$or,
SQL . B-ND_VARIABL£(v_cur$ar,
SQL. BIND_ VARIABLE(v_Cursor,
SQL. BIND_VARIABL£(v_cursor,
SQL. BIND_VARIABL£(v_cursor,
SQL . 8IND_VARIABL£(v_curs0r,
SQL . BIND_VARIABLE(V_cUr$or,
SQL . BIND_VARIABL£(v_cursor,
SQL. BIMD_ VARIABLE (v_ cursor,
SQL. BIND VARIABL£(v cursor,
SQL. BIND-. VARIABLE (v_ cursor,
SQL. BIND_VARIABL£(v_cursor,
SQL . B1ND_ VARTAItl E(v_ cur sor.
SQL .BIND_VARIABL£(V_cursor,
SQL. BIND- VARIABLE(v_ cursor.

P J_MRN', x. P1003_01);
:PT.FIRST_NM',x. PID05. 02);
: P r_ M I DDL E_NM', x. PIDOS_ 03);
:PT_LAST_NM', X. PIDOSjOl);
:PT_MOTHERS_MAlD£N_NM' ,x: PIO06);
:PT SIRTH-DT',NULL_DATE(x. PI007));
PT_BLOOD_ TYPE.CD'.x. Z01Q7);
:PT_S£X_CD', x. P1D08);
:PT_RACE_CD',x.PIDlO);
:PT.STREET', X. PIDlt.01);
:PT_S TREE l2',x. PIDl t_02);
.■PT_STATE^CD',x. PID11_Q4);
:PT_CITY_m', x. PID1I.03);
:pr_ziP4', ZIP_ CODE (x. PIDl 1_ 05,2));
:P1_?.IP',?lP_CQDE(x. PID11_0S, 1));
:PT_CO\INTY_CD \x. P1D12);
:Pi_NOME_PHONE ',x. PIOlS);
:PT BIZ PHONE',x.PID14);
:Pr_NARllAI._STAlLt.\.FLC', x. PID16):
:PT_R£LIGION_C.D ', X. PIDl/);
:PT_SSN', x. PID19);
: P r__ ORIVER. L 1C_N0 ',x. PJ020_01);
:PT_DRIV£R_LIC_ISSL/£^STAT£-.CP',x. PID2CL02);
:PT_SP£CIAL_mNDLlNG_CD ',X. PV116)7
:PT_HBfBQRN_MO W£RS- ID', x. PI021_01);
:PT.BIRTH. PLACE-DESC', x. PID23);
:PT_CITI2ENSHIP_D£SC', X. PID26);

v_rowS := DBMS-SQL . EXECUTE(v-Ctirsoi ); END LOOP;

DBMS^SQL. CLOSE_CDRSOR(v_CUrsor); EXCEPTION

MEN OTHERS THEN

OBUS_ SQL. CL OSE_CURSOR (V_ cursor);
RAISE;

END;
END IF;

SAMPLE GENERATED DYNAMIC
PROGRAM CODE

FIG. 8A

EXCEPTION

WHEN DIIP- VAL-ON. INDEX THEN DECLARE

v_.dn7 VARCHAR2(32000);

v_cursor Integer; v_rows Integer;

BEGIN

V cursor:- DBMS SQL .OPEN CURSOR; FOR x IN (SELECT " FROM ADi mttIF WHERE QID '- :QID) LOOP v_tkil :~ 'UPDATE ACT PATIENT SET PT,mN-:PT_MRN,

PT_FIRST_NM=: PT_ FIRS 7_NM,

PT.MIDDLE NM«:PT MIOOLE.NM,

PT_LAST_m*: PT_LA$T_NM,

« Précédent Continuer »

Brevets

Data repository system