85 lines
2.9 KiB
Mathematica
85 lines
2.9 KiB
Mathematica
VAQDBII1 ;ALB/JRP - DATA EXTRACTED BY PDX;22-MAR-93 [ 12/09/96 4:16 PM ]
|
|
;;1.5;PATIENT DATA EXCHANGE;**13,24,40**;NOV 17, 1993
|
|
;
|
|
;----------
|
|
;THIS ROUTINE ONLY HOLDS REFERENCES TO DATA THAT PDX EXTRACTS ITSELF
|
|
;
|
|
;;FILE;FIELD,FIELD,...,FIELD;MULTIPLE LIMIT;REVERSE MULTIPLE ORDER
|
|
;----------
|
|
;
|
|
MIN ;MINIMUM PATIENT INFORMATION
|
|
;;2;.01,.02,.03,.05,.08,.09,.111,.112,.113,.114,.115
|
|
;;2;.1112,.117,.131,.301,.302,.323,.361,391,1901
|
|
;;2;.12105,.1211,.12111,.12112,.1212,.1213,.1214,.1215,.1217
|
|
;;2;.1218,.1219
|
|
;;
|
|
;----------
|
|
MAS ;MAS (REGISTRATION) INFORMATION
|
|
;;2;.01,.02,.03,.05,.07,.08,.09,.091,.092,.093
|
|
;;2;.111,.112,.113,.114,.115,.117,.1211,.1212,.1213
|
|
;;2;.1214,.1215,.1217,.1218,.1219,.131,.132,.152,.153
|
|
;;2;.1651,.1653,.1654,.1656,.1657,.1658,.1659,.211,.212,.213
|
|
;;2;.214,.215,.216,.217,.219,.2191,.2192,.2193,.2194
|
|
;;2;.2195,.2196,.2197,.2199,.2401,.2402,.2403,.251,.252
|
|
;;2;.253,.254,.255,.256,.258,.301,.302,.3025,.303
|
|
;;2;.306,.307,.3111,.31115,.3112,.3113,.3114,.3115,.3116,.3117
|
|
;;2;.3119,.312,.313,.32101,.32102,.32103,.32104,.32105
|
|
;;2;.32107,.32109,.3211,.32111,.3212,.322,.323,.324,.325,.326
|
|
;;2;.327,.328,.3285,.329,.3291,.3292,.3293,.3294,.32945,.3295,.3296,.3297
|
|
;;2;.3298,.3299,.331,.3311,.3312,.3313,.3314,.3315,.3316,.3317
|
|
;;2;.3319,.332,.333,.334,.335,.336,.337,.339
|
|
;;2;.341,.342,.343,.344,.345,.346,.347,.349,.361
|
|
;;2;.3611,.3612,.3614,.3615,.3616,.362,.36205,.3621,.36215,.3622
|
|
;;2;.36225,.3623,.36235,.3624,.3625,.36255,.3626,.36265,.3627,.36275
|
|
;;2;.3628,.36285,.3629,.368,.369,.525,.526,.527,.528,.5291
|
|
;;2;.5292,.5293,.5294,57.4,391,1010.15,1010.151,1010.152,1010.153
|
|
;;2;.21011,.211011,.381,.3221,.3222,.3223,.3224,.3225,.3226
|
|
;;2;.3227,.3228,.3229,.32201,.322011,.322012,.322013,.322014,.322015
|
|
;;2;.322016,.322017,.322018,.304,.305,.3012,.293,.292,.291,.36205
|
|
;;2;.36215,.36235,.3025,.36295,.36265,.3626,.31011,.311011,.34011
|
|
;;2;.2514,.2515,1010.154,1901,.33011,.331011
|
|
;;2;.1112,.12105,.12111,.12112,.382,.314,.2201,.2202,.2203,.2204
|
|
;;2;.2205,.2206,.2207,.290012,.29013
|
|
;;2;.322019,.32202,.322021,.531,.532,.533
|
|
;;2.04;.01,2,3
|
|
;;2.001;.01
|
|
;;2.16;.01
|
|
;;2.01;.01,1
|
|
;;2.05;.01,.02
|
|
;;2.101;.01,2,3,20,23;5
|
|
;;
|
|
;----------
|
|
ELIG ;OTHER ELIGIBILITIES
|
|
;;2.0361;.01
|
|
;;
|
|
;----------
|
|
DENTAL ;DENTAL TREATMENTS (NOT STORED IN SPECIFIC ORDER) (TAKE 5 MOST RECENT)
|
|
;;2.11;.01,2,3
|
|
;;
|
|
;----------
|
|
APPOINT ;APPOINTMENTS (.001 FIELD IS ID FOR .01 FIELD) (TAKE 5 MOST RECENT)
|
|
;;2.98;.01,3,9,9.5
|
|
;;
|
|
;----------
|
|
INSURE ;INSURANCE INFORMATION (FILE 36 MAKES THIS DIFF.) (ALL NON-EXPIRED)
|
|
;;2.312;.01,.18,1,2,3,6,7,8,16,17
|
|
;;36;.01;.111,.112,.113,.114,.115,.1112,.131
|
|
;;355.3;.01,.02,.03,.04,.1
|
|
;;2;.3192
|
|
;;
|
|
;----------
|
|
RXPAT ;PATIENT INFORMATION USED FOR MED PROFILES
|
|
;;2;.01,.03,.09,.111,.112,.113
|
|
;;2;.114,.115,.1112,.131,.361
|
|
;;2.04;.01,2,3
|
|
;;55;1
|
|
;;55;.02,.03,.04
|
|
;;
|
|
;----------
|
|
PROFILE ;PRESCRIPTION INFORMATION
|
|
;;52;.01,1,4,6,7,8,9,10
|
|
;;52;12,16,20,22,26,100,101
|
|
;;52.1;.01
|
|
;;
|
|
;----------
|