KIDS Distribution saved on Sep 20, 2012@06:29:02
Support for Immunizations HL7 message - Don't use in PRODUCTION ENVIRONMENTS
**KIDS**:VWIMM 0.1^
**INSTALL NAME**
VWIMM 0.1
"BLD",8497,0)
VWIMM 0.1^^0^3120920^n
"BLD",8497,1,0)
^^8^8^3120920^^^
"BLD",8497,1,1,0)
Packaged by Sam Habiel for WorldVistA 2.0 on October 16th 2012.
"BLD",8497,1,2,0)
"BLD",8497,1,3,0)
DO NOT USE THIS IN PRODUCTION FOR REAL PATIENTS. IT'S ONLY DESIGNED FOR
"BLD",8497,1,4,0)
ATTESTATION. IT WILL HARM YOUR DATA AND YOUR PATIENTS IF YOU USE IT IN A
"BLD",8497,1,5,0)
CLINICAL SETTING.
"BLD",8497,1,6,0)
"BLD",8497,1,7,0)
This build packages up the components used to accomplish Immunizations
"BLD",8497,1,8,0)
HL7 transmission.
"BLD",8497,4,0)
^9.64PA^100.98^3
"BLD",8497,4,100.98,0)
100.98
"BLD",8497,4,100.98,222)
n^n^f^^y^KBAN DISPLAY GROUP TRANSPORT^y^o^n
"BLD",8497,4,101.41,0)
101.41
"BLD",8497,4,101.41,222)
n^n^f^^y^KBAN DIALOG TRANSPORT LIST^y^o^n
"BLD",8497,4,811.8,0)
811.8
"BLD",8497,4,811.8,222)
n^n^f^^n^^y^o^n
"BLD",8497,4,811.8,224)
I $$EXFINC^VWIMMKID(Y)
"BLD",8497,4,"B",100.98,100.98)
"BLD",8497,4,"B",101.41,101.41)
"BLD",8497,4,"B",811.8,811.8)
"BLD",8497,6.3)
8
"BLD",8497,"INI")
PRE^VWIMMKID
"BLD",8497,"INIT")
POST^VWIMMKID
"BLD",8497,"KRN",0)
^9.67PA^779.2^20
"BLD",8497,"KRN",.4,0)
.4
"BLD",8497,"KRN",.401,0)
.401
"BLD",8497,"KRN",.402,0)
.402
"BLD",8497,"KRN",.403,0)
.403
"BLD",8497,"KRN",.5,0)
.5
"BLD",8497,"KRN",.84,0)
.84
"BLD",8497,"KRN",3.6,0)
3.6
"BLD",8497,"KRN",3.8,0)
3.8
"BLD",8497,"KRN",9.2,0)
9.2
"BLD",8497,"KRN",9.8,0)
9.8
"BLD",8497,"KRN",9.8,"NM",0)
^9.68A^2^2
"BLD",8497,"KRN",9.8,"NM",1,0)
VWIMMORD^^0^B20931063
"BLD",8497,"KRN",9.8,"NM",2,0)
VWIMMH7^^0^B12461113
"BLD",8497,"KRN",9.8,"NM","B","VWIMMH7",2)
"BLD",8497,"KRN",9.8,"NM","B","VWIMMORD",1)
"BLD",8497,"KRN",19,0)
19
"BLD",8497,"KRN",19,"NM",0)
^9.68A^2^2
"BLD",8497,"KRN",19,"NM",1,0)
VW IMM SEND ONE ATTACHED FILE^^0
"BLD",8497,"KRN",19,"NM",2,0)
VW IMMUN HL7 MSG PREP^^0
"BLD",8497,"KRN",19,"NM","B","VW IMM SEND ONE ATTACHED FILE",1)
"BLD",8497,"KRN",19,"NM","B","VW IMMUN HL7 MSG PREP",2)
"BLD",8497,"KRN",19.1,0)
19.1
"BLD",8497,"KRN",101,0)
101
"BLD",8497,"KRN",101,"NM",0)
^9.68A^4^4
"BLD",8497,"KRN",101,"NM",1,0)
VW IMMUNIZATION VXU V04 DRIVER^^0
"BLD",8497,"KRN",101,"NM",2,0)
VW IMMUNIZATION VXU V04 CDC CLIENT^^0
"BLD",8497,"KRN",101,"NM",3,0)
VW IMMUNIZATION VXU V04 EVT^^0
"BLD",8497,"KRN",101,"NM",4,0)
VW IMMUNIZATION VXU V04 SUB^^0
"BLD",8497,"KRN",101,"NM","B","VW IMMUNIZATION VXU V04 CDC CLIENT",2)
"BLD",8497,"KRN",101,"NM","B","VW IMMUNIZATION VXU V04 DRIVER",1)
"BLD",8497,"KRN",101,"NM","B","VW IMMUNIZATION VXU V04 EVT",3)
"BLD",8497,"KRN",101,"NM","B","VW IMMUNIZATION VXU V04 SUB",4)
"BLD",8497,"KRN",409.61,0)
409.61
"BLD",8497,"KRN",771,0)
771
"BLD",8497,"KRN",771,"NM",0)
^9.68A^1^1
"BLD",8497,"KRN",771,"NM",1,0)
VW IMMUNIZATION^^0
"BLD",8497,"KRN",771,"NM","B","VW IMMUNIZATION",1)
"BLD",8497,"KRN",779.2,0)
779.2
"BLD",8497,"KRN",870,0)
870
"BLD",8497,"KRN",8989.51,0)
8989.51
"BLD",8497,"KRN",8989.52,0)
8989.52
"BLD",8497,"KRN",8994,0)
8994
"BLD",8497,"KRN","B",.4,.4)
"BLD",8497,"KRN","B",.401,.401)
"BLD",8497,"KRN","B",.402,.402)
"BLD",8497,"KRN","B",.403,.403)
"BLD",8497,"KRN","B",.5,.5)
"BLD",8497,"KRN","B",.84,.84)
"BLD",8497,"KRN","B",3.6,3.6)
"BLD",8497,"KRN","B",3.8,3.8)
"BLD",8497,"KRN","B",9.2,9.2)
"BLD",8497,"KRN","B",9.8,9.8)
"BLD",8497,"KRN","B",19,19)
"BLD",8497,"KRN","B",19.1,19.1)
"BLD",8497,"KRN","B",101,101)
"BLD",8497,"KRN","B",409.61,409.61)
"BLD",8497,"KRN","B",771,771)
"BLD",8497,"KRN","B",779.2,779.2)
"BLD",8497,"KRN","B",870,870)
"BLD",8497,"KRN","B",8989.51,8989.51)
"BLD",8497,"KRN","B",8989.52,8989.52)
"BLD",8497,"KRN","B",8994,8994)
"BLD",8497,"QDEF")
^^^^NO^^^^NO^^NO
"BLD",8497,"QUES",0)
^9.62^^
"BLD",8497,"REQB",0)
^9.611^1^1
"BLD",8497,"REQB",1,0)
CCD/CCR GENERATION UTILITIES 1.2^2
"BLD",8497,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1)
"DATA",100.98,50,0)
IMMUNIZATION SERVICE^^IMM
"DATA",100.98,50,1,0)
^100.981P^^0
"DATA",101.41,15824,0)
MATTS IMMUNIZATION HL7 OI^IMMUNIZATION HISTORICAL ENTRY ^^D^50^0^35^^
"DATA",101.41,15824,2,0)
^101.411^1^1^3120920^^^^
"DATA",101.41,15824,2,1,0)
IMMUNIZATIONS FOR HL7
"DATA",101.41,15824,4)
"DATA",101.41,15824,5)
^^^^^^^
"DATA",101.41,15824,10,0)
^101.412IA^10^9
"DATA",101.41,15824,10,1,0)
1^15825^^ENTER THE VACCINE DATE AND TIME: ^^^^^^
"DATA",101.41,15824,10,1,1)
^
"DATA",101.41,15824,10,1,2)
3
"DATA",101.41,15824,10,2,0)
2^15826^^MANUFACTURER ^^^^^^
"DATA",101.41,15824,10,2,1)
^
"DATA",101.41,15824,10,2,2)
4^
"DATA",101.41,15824,10,4,0)
5^6^^ORDER START: ^^^^1^^
"DATA",101.41,15824,10,4,1)
^
"DATA",101.41,15824,10,4,2)
"DATA",101.41,15824,10,4,7)
S Y="NOW"
"DATA",101.41,15824,10,5,0)
6^24^^ORDER STOP: ^^^^1^^
"DATA",101.41,15824,10,5,1)
^
"DATA",101.41,15824,10,5,2)
"DATA",101.41,15824,10,5,7)
S Y="T+730D"
"DATA",101.41,15824,10,6,0)
7^15827^^VACCINE NAME: ^^^^^^
"DATA",101.41,15824,10,6,1)
^
"DATA",101.41,15824,10,6,2)
5
"DATA",101.41,15824,10,7,0)
8^15839^^VACCINE AMOUNT (QUANITY): ^^^^^^
"DATA",101.41,15824,10,7,1)
^
"DATA",101.41,15824,10,7,2)
6
"DATA",101.41,15824,10,8,0)
9^15840^^UNITS: ^^^^^^
"DATA",101.41,15824,10,8,1)
^
"DATA",101.41,15824,10,8,2)
7
"DATA",101.41,15824,10,9,0)
10^15828^^LOT NUMBER ^^^^^^
"DATA",101.41,15824,10,9,1)
^
"DATA",101.41,15824,10,9,2)
8
"DATA",101.41,15824,10,10,0)
11^15851^^SEND IMMUNIZATION HL7 MESSAGE
"DATA",101.41,15824,10,10,2)
9
"DATA",101.41,15824,99)
62718,46833
"DATA",101.41,15825,0)
ORZ MMK VACCINATION DATE/TIME^VACCINATION DATE/TIME^^P
"DATA",101.41,15825,1)
R^::ET^TIME
"DATA",101.41,15825,99)
62718,46833
"DATA",101.41,15826,0)
ORZ MMK VACCINE MANUFACTURER CODE^NAME OF VACCINE MANUFACTURER: ^^P
"DATA",101.41,15826,1)
S^OTC:ORGANON;NOV:NOVARTIS;SKB:GLAXOSMITHKLINE;MSD:MERCK;^MFC
"DATA",101.41,15826,2,0)
^101.411^1^1^3120920^^^
"DATA",101.41,15826,2,1,0)
VACCINE MANUFACTURER AND MFC
"DATA",101.41,15826,99)
62718,46833
"DATA",101.41,15827,0)
ORZ MMK VACCINE NAME^ENTER VACCINE NAME: ^^P
"DATA",101.41,15827,1)
S^19:Bacillus Calmette-Guerin;15:Influenza, split virus;03:Measles Mumps Rubella Vaccine;52:Hepatitis A Adult;43:Hepatitis B Adult;33:PNEUMONOCCAL POLYSACCHARIDE VACCINE;^CVX
"DATA",101.41,15827,2,0)
^101.411^1^1^3120920^^^
"DATA",101.41,15827,2,1,0)
cvx code to Vaccine names
"DATA",101.41,15827,99)
62718,46833
"DATA",101.41,15828,0)
ORZ MMK LOT NUMBERS^VACCINE LOT NUMBER: ^^P
"DATA",101.41,15828,1)
S^LOT1:1039A;LOT2:L888355;LOT3:U6007;LOT4:HAB9678V1;LOT5:123456;LOT6:HI_MOM;^LOT
"DATA",101.41,15828,99)
62718,46833
"DATA",101.41,15839,0)
ORZ MMK QUANITY^QUANITY^^P
"DATA",101.41,15839,1)
S^0.1:0.1;0.2:0.1;0.3:0.3;0.4:0.4;0.5:0.5;0.75:0.75;1:1;1.5:1.5;2:2;2.5:2.5;3:3;3.5:3.5;4:4.0;5:5;10:10;999:999;^QUANTITY
"DATA",101.41,15839,99)
62718,46833
"DATA",101.41,15840,0)
ORZ MMK UNITS^UNITS: ^^P
"DATA",101.41,15840,1)
S^MG:MG;ML:ML;GM:GM;TSP:TSP;MU:MU;MEQ:MEQ;^UNITS
"DATA",101.41,15840,99)
62718,46833
"DATA",101.41,15851,0)
ORZ MMK SEND IMMUN HL7 MSG^SEND IMMUNIZATION HL7 MESSAGE: ^^P
"DATA",101.41,15851,1)
Y^^ORZ HL7
"DATA",101.41,15851,99)
62718,46833
"DATA",811.8,167,0)
MU IMM REGISTRY DI^MANAGER,SYSTEM at VOE OFFICE INSTITUTION^3120920.000358
"DATA",811.8,167,100,0)
^811.801^1062^1062
"DATA",811.8,167,100,1,0)
"DATA",811.8,167,100,2,0)
"DATA",811.8,167,100,3,0)
2.0P17
"DATA",811.8,167,100,4,0)
860
"DATA",811.8,167,100,5,0)
"DATA",811.8,167,100,11,0)
"DATA",811.8,167,100,20,0)
"DATA",811.8,167,100,21,0)
"DATA",811.8,167,100,22,0)
"DATA",811.8,167,100,23,0)
ORDER DIALOG
"DATA",811.8,167,100,24,0)
101.41
"DATA",811.8,167,100,25,0)
MATTS IMMUNIZATION HL7 OI
"DATA",811.8,167,100,26,0)
15824
"DATA",811.8,167,100,27,0)
218510459
"DATA",811.8,167,100,28,0)
NO
"DATA",811.8,167,100,29,0)
"DATA",811.8,167,100,30,0)
"DATA",811.8,167,100,33,0)
"DATA",811.8,167,100,34,0)
"DATA",811.8,167,100,35,0)
"DATA",811.8,167,100,36,0)
IMMUNIZATION
"DATA",811.8,167,100,37,0)
9999999.14
"DATA",811.8,167,100,38,0)
MEASLES,MUMPS,RUBELLA (MMR)
"DATA",811.8,167,100,39,0)
17
"DATA",811.8,167,100,40,0)
3442049073
"DATA",811.8,167,100,41,0)
NO
"DATA",811.8,167,100,42,0)
"DATA",811.8,167,100,43,0)
"DATA",811.8,167,100,47,0)
"DATA",811.8,167,100,48,0)
"DATA",811.8,167,100,49,0)
"DATA",811.8,167,100,50,0)
IMMUNIZATION
"DATA",811.8,167,100,51,0)
9999999.14
"DATA",811.8,167,100,52,0)
INFLUENZA
"DATA",811.8,167,100,53,0)
12
"DATA",811.8,167,100,54,0)
1066305499
"DATA",811.8,167,100,55,0)
NO
"DATA",811.8,167,100,56,0)
"DATA",811.8,167,100,57,0)
"DATA",811.8,167,100,62,0)
"DATA",811.8,167,100,63,0)
"DATA",811.8,167,100,64,0)
"DATA",811.8,167,100,65,0)
IMMUNIZATION
"DATA",811.8,167,100,66,0)
9999999.14
"DATA",811.8,167,100,67,0)
HEPATITIS A
"DATA",811.8,167,100,68,0)
25
"DATA",811.8,167,100,69,0)
3209355482
"DATA",811.8,167,100,70,0)
NO
"DATA",811.8,167,100,71,0)
"DATA",811.8,167,100,72,0)
"DATA",811.8,167,100,77,0)
"DATA",811.8,167,100,78,0)
"DATA",811.8,167,100,79,0)
"DATA",811.8,167,100,80,0)
IMMUNIZATION
"DATA",811.8,167,100,81,0)
9999999.14
"DATA",811.8,167,100,82,0)
HEPATITIS B
"DATA",811.8,167,100,83,0)
10
"DATA",811.8,167,100,84,0)
38076019
"DATA",811.8,167,100,85,0)
NO
"DATA",811.8,167,100,86,0)
"DATA",811.8,167,100,87,0)
"DATA",811.8,167,100,91,0)
"DATA",811.8,167,100,92,0)
"DATA",811.8,167,100,93,0)
"DATA",811.8,167,100,94,0)
IMMUNIZATION
"DATA",811.8,167,100,95,0)
9999999.14
"DATA",811.8,167,100,96,0)
PNEUMOVAX
"DATA",811.8,167,100,97,0)
96
"DATA",811.8,167,100,98,0)
2689261060
"DATA",811.8,167,100,99,0)
NO
"DATA",811.8,167,100,100,0)
"DATA",811.8,167,100,101,0)
"DATA",811.8,167,100,107,0)
"DATA",811.8,167,100,108,0)
"DATA",811.8,167,100,109,0)
"DATA",811.8,167,100,110,0)
IMMUNIZATION
"DATA",811.8,167,100,111,0)
9999999.14
"DATA",811.8,167,100,112,0)
BCG,PERCUT
"DATA",811.8,167,100,113,0)
41
"DATA",811.8,167,100,114,0)
1490023116
"DATA",811.8,167,100,115,0)
NO
"DATA",811.8,167,100,116,0)
"DATA",811.8,167,100,117,0)
"DATA",811.8,167,100,121,0)
"DATA",811.8,167,100,122,0)
"DATA",811.8,167,100,123,0)
"DATA",811.8,167,100,124,0)
HEALTH FACTORS
"DATA",811.8,167,100,125,0)
9999999.64
"DATA",811.8,167,100,126,0)
VACCINE LOT NUMBERS
"DATA",811.8,167,100,127,0)
50190
"DATA",811.8,167,100,128,0)
2005093215
"DATA",811.8,167,100,129,0)
NO
"DATA",811.8,167,100,130,0)
"DATA",811.8,167,100,131,0)
"DATA",811.8,167,100,135,0)
"DATA",811.8,167,100,136,0)
"DATA",811.8,167,100,137,0)
"DATA",811.8,167,100,138,0)
HEALTH FACTORS
"DATA",811.8,167,100,139,0)
9999999.64
"DATA",811.8,167,100,140,0)
LOT NUMBER
"DATA",811.8,167,100,141,0)
50191
"DATA",811.8,167,100,142,0)
3579946679
"DATA",811.8,167,100,143,0)
NO
"DATA",811.8,167,100,144,0)
"DATA",811.8,167,100,145,0)
"DATA",811.8,167,100,152,0)
"DATA",811.8,167,100,153,0)
"DATA",811.8,167,100,154,0)
"DATA",811.8,167,100,155,0)
HEALTH FACTORS
"DATA",811.8,167,100,156,0)
9999999.64
"DATA",811.8,167,100,157,0)
CVX IMMUNIZATION CODES
"DATA",811.8,167,100,158,0)
50093
"DATA",811.8,167,100,159,0)
2789950332
"DATA",811.8,167,100,160,0)
NO
"DATA",811.8,167,100,161,0)
"DATA",811.8,167,100,162,0)
"DATA",811.8,167,100,166,0)
"DATA",811.8,167,100,167,0)
"DATA",811.8,167,100,168,0)
"DATA",811.8,167,100,169,0)
HEALTH FACTORS
"DATA",811.8,167,100,170,0)
9999999.64
"DATA",811.8,167,100,171,0)
CVX 03
"DATA",811.8,167,100,172,0)
50096
"DATA",811.8,167,100,173,0)
4205737794
"DATA",811.8,167,100,174,0)
NO
"DATA",811.8,167,100,175,0)
"DATA",811.8,167,100,176,0)
"DATA",811.8,167,100,183,0)
"DATA",811.8,167,100,184,0)
"DATA",811.8,167,100,185,0)
"DATA",811.8,167,100,186,0)
HEALTH FACTORS
"DATA",811.8,167,100,187,0)
9999999.64
"DATA",811.8,167,100,188,0)
CVX 15
"DATA",811.8,167,100,189,0)
50108
"DATA",811.8,167,100,190,0)
2736498798
"DATA",811.8,167,100,191,0)
NO
"DATA",811.8,167,100,192,0)
"DATA",811.8,167,100,193,0)
"DATA",811.8,167,100,200,0)
"DATA",811.8,167,100,201,0)
"DATA",811.8,167,100,202,0)
"DATA",811.8,167,100,203,0)
HEALTH FACTORS
"DATA",811.8,167,100,204,0)
9999999.64
"DATA",811.8,167,100,205,0)
CVX 52
"DATA",811.8,167,100,206,0)
50143
"DATA",811.8,167,100,207,0)
295955325
"DATA",811.8,167,100,208,0)
NO
"DATA",811.8,167,100,209,0)
"DATA",811.8,167,100,210,0)
"DATA",811.8,167,100,217,0)
"DATA",811.8,167,100,218,0)
"DATA",811.8,167,100,219,0)
"DATA",811.8,167,100,220,0)
HEALTH FACTORS
"DATA",811.8,167,100,221,0)
9999999.64
"DATA",811.8,167,100,222,0)
CVX 43
"DATA",811.8,167,100,223,0)
50134
"DATA",811.8,167,100,224,0)
2615171959
"DATA",811.8,167,100,225,0)
NO
"DATA",811.8,167,100,226,0)
"DATA",811.8,167,100,227,0)
"DATA",811.8,167,100,234,0)
"DATA",811.8,167,100,235,0)
"DATA",811.8,167,100,236,0)
"DATA",811.8,167,100,237,0)
HEALTH FACTORS
"DATA",811.8,167,100,238,0)
9999999.64
"DATA",811.8,167,100,239,0)
CVX 33
"DATA",811.8,167,100,240,0)
50125
"DATA",811.8,167,100,241,0)
1228810469
"DATA",811.8,167,100,242,0)
NO
"DATA",811.8,167,100,243,0)
"DATA",811.8,167,100,244,0)
"DATA",811.8,167,100,251,0)
"DATA",811.8,167,100,252,0)
"DATA",811.8,167,100,253,0)
"DATA",811.8,167,100,254,0)
HEALTH FACTORS
"DATA",811.8,167,100,255,0)
9999999.64
"DATA",811.8,167,100,256,0)
CVX 19
"DATA",811.8,167,100,257,0)
50112
"DATA",811.8,167,100,258,0)
3446637324
"DATA",811.8,167,100,259,0)
NO
"DATA",811.8,167,100,260,0)
"DATA",811.8,167,100,261,0)
"DATA",811.8,167,100,268,0)
"DATA",811.8,167,100,269,0)
"DATA",811.8,167,100,270,0)
"DATA",811.8,167,100,271,0)
REMINDER DIALOG
"DATA",811.8,167,100,272,0)
801.41
"DATA",811.8,167,100,273,0)
MMK PXRM COMMENT
"DATA",811.8,167,100,274,0)
1284
"DATA",811.8,167,100,275,0)
4037975064
"DATA",811.8,167,100,276,0)
NO
"DATA",811.8,167,100,277,0)
"DATA",811.8,167,100,278,0)
"DATA",811.8,167,100,298,0)
"DATA",811.8,167,100,299,0)
"DATA",811.8,167,100,300,0)
"DATA",811.8,167,100,308,0)
"DATA",811.8,167,100,309,0)
"DATA",811.8,167,100,310,0)
"DATA",811.8,167,100,311,0)
REMINDER DIALOG
"DATA",811.8,167,100,312,0)
801.41
"DATA",811.8,167,100,313,0)
PXRM OUTSIDE LOCATION
"DATA",811.8,167,100,314,0)
41
"DATA",811.8,167,100,315,0)
3464040608
"DATA",811.8,167,100,316,0)
NO
"DATA",811.8,167,100,317,0)
"DATA",811.8,167,100,318,0)
"DATA",811.8,167,100,328,0)
"DATA",811.8,167,100,329,0)
"DATA",811.8,167,100,330,0)
"DATA",811.8,167,100,333,0)
"DATA",811.8,167,100,334,0)
"DATA",811.8,167,100,335,0)
"DATA",811.8,167,100,336,0)
REMINDER DIALOG
"DATA",811.8,167,100,337,0)
801.41
"DATA",811.8,167,100,338,0)
MATTS IMMUNIZATION LOT NUMBERS EL
"DATA",811.8,167,100,339,0)
1283
"DATA",811.8,167,100,340,0)
3712188338
"DATA",811.8,167,100,341,0)
NO
"DATA",811.8,167,100,342,0)
"DATA",811.8,167,100,343,0)
"DATA",811.8,167,100,359,0)
"DATA",811.8,167,100,360,0)
"DATA",811.8,167,100,361,0)
"DATA",811.8,167,100,366,0)
"DATA",811.8,167,100,367,0)
"DATA",811.8,167,100,368,0)
"DATA",811.8,167,100,369,0)
REMINDER DIALOG
"DATA",811.8,167,100,370,0)
801.41
"DATA",811.8,167,100,371,0)
PXRM VISIT DATE
"DATA",811.8,167,100,372,0)
40
"DATA",811.8,167,100,373,0)
4262247822
"DATA",811.8,167,100,374,0)
NO
"DATA",811.8,167,100,375,0)
"DATA",811.8,167,100,376,0)
"DATA",811.8,167,100,386,0)
"DATA",811.8,167,100,387,0)
"DATA",811.8,167,100,388,0)
"DATA",811.8,167,100,391,0)
"DATA",811.8,167,100,392,0)
"DATA",811.8,167,100,393,0)
"DATA",811.8,167,100,394,0)
REMINDER DIALOG
"DATA",811.8,167,100,395,0)
801.41
"DATA",811.8,167,100,396,0)
MU IMM REGISTRY MMR EL
"DATA",811.8,167,100,397,0)
1346
"DATA",811.8,167,100,398,0)
3083529854
"DATA",811.8,167,100,399,0)
NO
"DATA",811.8,167,100,400,0)
"DATA",811.8,167,100,401,0)
"DATA",811.8,167,100,416,0)
"DATA",811.8,167,100,417,0)
"DATA",811.8,167,100,418,0)
"DATA",811.8,167,100,423,0)
"DATA",811.8,167,100,424,0)
"DATA",811.8,167,100,425,0)
"DATA",811.8,167,100,426,0)
REMINDER DIALOG
"DATA",811.8,167,100,427,0)
801.41
"DATA",811.8,167,100,428,0)
MU IMM REGISTRY MMR GP
"DATA",811.8,167,100,429,0)
1351
"DATA",811.8,167,100,430,0)
1259523945
"DATA",811.8,167,100,431,0)
NO
"DATA",811.8,167,100,432,0)
"DATA",811.8,167,100,433,0)
"DATA",811.8,167,100,454,0)
"DATA",811.8,167,100,455,0)
"DATA",811.8,167,100,456,0)
"DATA",811.8,167,100,462,0)
"DATA",811.8,167,100,463,0)
"DATA",811.8,167,100,464,0)
"DATA",811.8,167,100,465,0)
REMINDER DIALOG
"DATA",811.8,167,100,466,0)
801.41
"DATA",811.8,167,100,467,0)
MU IMM REGISTRY INFLUENZA EL
"DATA",811.8,167,100,468,0)
1344
"DATA",811.8,167,100,469,0)
4258257984
"DATA",811.8,167,100,470,0)
NO
"DATA",811.8,167,100,471,0)
"DATA",811.8,167,100,472,0)
"DATA",811.8,167,100,487,0)
"DATA",811.8,167,100,488,0)
"DATA",811.8,167,100,489,0)
"DATA",811.8,167,100,494,0)
"DATA",811.8,167,100,495,0)
"DATA",811.8,167,100,496,0)
"DATA",811.8,167,100,497,0)
REMINDER DIALOG
"DATA",811.8,167,100,498,0)
801.41
"DATA",811.8,167,100,499,0)
MU IMM REGISTRY INFLUENZA GP
"DATA",811.8,167,100,500,0)
1349
"DATA",811.8,167,100,501,0)
246895377
"DATA",811.8,167,100,502,0)
NO
"DATA",811.8,167,100,503,0)
"DATA",811.8,167,100,504,0)
"DATA",811.8,167,100,525,0)
"DATA",811.8,167,100,526,0)
"DATA",811.8,167,100,527,0)
"DATA",811.8,167,100,533,0)
"DATA",811.8,167,100,534,0)
"DATA",811.8,167,100,535,0)
"DATA",811.8,167,100,536,0)
REMINDER DIALOG
"DATA",811.8,167,100,537,0)
801.41
"DATA",811.8,167,100,538,0)
MU IMM REGISTRY HEP A EL
"DATA",811.8,167,100,539,0)
1345
"DATA",811.8,167,100,540,0)
2484388026
"DATA",811.8,167,100,541,0)
NO
"DATA",811.8,167,100,542,0)
"DATA",811.8,167,100,543,0)
"DATA",811.8,167,100,558,0)
"DATA",811.8,167,100,559,0)
"DATA",811.8,167,100,560,0)
"DATA",811.8,167,100,565,0)
"DATA",811.8,167,100,566,0)
"DATA",811.8,167,100,567,0)
"DATA",811.8,167,100,568,0)
REMINDER DIALOG
"DATA",811.8,167,100,569,0)
801.41
"DATA",811.8,167,100,570,0)
MU IMM REGISTRY HEP A GP
"DATA",811.8,167,100,571,0)
1350
"DATA",811.8,167,100,572,0)
2879976677
"DATA",811.8,167,100,573,0)
NO
"DATA",811.8,167,100,574,0)
"DATA",811.8,167,100,575,0)
"DATA",811.8,167,100,596,0)
"DATA",811.8,167,100,597,0)
"DATA",811.8,167,100,598,0)
"DATA",811.8,167,100,604,0)
"DATA",811.8,167,100,605,0)
"DATA",811.8,167,100,606,0)
"DATA",811.8,167,100,607,0)
REMINDER DIALOG
"DATA",811.8,167,100,608,0)
801.41
"DATA",811.8,167,100,609,0)
MU IMM REGISTRY HEP B EL
"DATA",811.8,167,100,610,0)
1343
"DATA",811.8,167,100,611,0)
3904541649
"DATA",811.8,167,100,612,0)
NO
"DATA",811.8,167,100,613,0)
"DATA",811.8,167,100,614,0)
"DATA",811.8,167,100,629,0)
"DATA",811.8,167,100,630,0)
"DATA",811.8,167,100,631,0)
"DATA",811.8,167,100,636,0)
"DATA",811.8,167,100,637,0)
"DATA",811.8,167,100,638,0)
"DATA",811.8,167,100,639,0)
REMINDER DIALOG
"DATA",811.8,167,100,640,0)
801.41
"DATA",811.8,167,100,641,0)
MU IMM REGISTRY HEP B GP
"DATA",811.8,167,100,642,0)
1348
"DATA",811.8,167,100,643,0)
2783112212
"DATA",811.8,167,100,644,0)
NO
"DATA",811.8,167,100,645,0)
"DATA",811.8,167,100,646,0)
"DATA",811.8,167,100,667,0)
"DATA",811.8,167,100,668,0)
"DATA",811.8,167,100,669,0)
"DATA",811.8,167,100,675,0)
"DATA",811.8,167,100,676,0)
"DATA",811.8,167,100,677,0)
"DATA",811.8,167,100,678,0)
REMINDER DIALOG
"DATA",811.8,167,100,679,0)
801.41
"DATA",811.8,167,100,680,0)
MU IMM REGISTRY PPV EL
"DATA",811.8,167,100,681,0)
1342
"DATA",811.8,167,100,682,0)
3710083672
"DATA",811.8,167,100,683,0)
NO
"DATA",811.8,167,100,684,0)
"DATA",811.8,167,100,685,0)
"DATA",811.8,167,100,700,0)
"DATA",811.8,167,100,701,0)
"DATA",811.8,167,100,702,0)
"DATA",811.8,167,100,707,0)
"DATA",811.8,167,100,708,0)
"DATA",811.8,167,100,709,0)
"DATA",811.8,167,100,710,0)
REMINDER DIALOG
"DATA",811.8,167,100,711,0)
801.41
"DATA",811.8,167,100,712,0)
MU IMM REGISTRY PPV GP
"DATA",811.8,167,100,713,0)
1347
"DATA",811.8,167,100,714,0)
4092278296
"DATA",811.8,167,100,715,0)
NO
"DATA",811.8,167,100,716,0)
"DATA",811.8,167,100,717,0)
"DATA",811.8,167,100,738,0)
"DATA",811.8,167,100,739,0)
"DATA",811.8,167,100,740,0)
"DATA",811.8,167,100,746,0)
"DATA",811.8,167,100,747,0)
"DATA",811.8,167,100,748,0)
"DATA",811.8,167,100,749,0)
REMINDER DIALOG
"DATA",811.8,167,100,750,0)
801.41
"DATA",811.8,167,100,751,0)
MATTS IMMUNIZATION BCG EL
"DATA",811.8,167,100,752,0)
1278
"DATA",811.8,167,100,753,0)
3785649831
"DATA",811.8,167,100,754,0)
NO
"DATA",811.8,167,100,755,0)
"DATA",811.8,167,100,756,0)
"DATA",811.8,167,100,771,0)
"DATA",811.8,167,100,772,0)
"DATA",811.8,167,100,773,0)
"DATA",811.8,167,100,778,0)
"DATA",811.8,167,100,779,0)
"DATA",811.8,167,100,780,0)
"DATA",811.8,167,100,781,0)
REMINDER DIALOG
"DATA",811.8,167,100,782,0)
801.41
"DATA",811.8,167,100,783,0)
MU IMM REGISTRY BCG GP
"DATA",811.8,167,100,784,0)
1341
"DATA",811.8,167,100,785,0)
333728712
"DATA",811.8,167,100,786,0)
NO
"DATA",811.8,167,100,787,0)
"DATA",811.8,167,100,788,0)
"DATA",811.8,167,100,809,0)
"DATA",811.8,167,100,810,0)
"DATA",811.8,167,100,811,0)
"DATA",811.8,167,100,817,0)
"DATA",811.8,167,100,818,0)
"DATA",811.8,167,100,819,0)
"DATA",811.8,167,100,820,0)
REMINDER DIALOG
"DATA",811.8,167,100,821,0)
801.41
"DATA",811.8,167,100,822,0)
MU IMM REGISTRY DI DI
"DATA",811.8,167,100,823,0)
1280
"DATA",811.8,167,100,824,0)
988455633
"DATA",811.8,167,100,825,0)
YES
"DATA",811.8,167,100,826,0)
"DATA",811.8,167,100,827,0)
"DATA",811.8,167,100,847,0)
"DATA",811.8,167,100,848,0)
"DATA",811.8,167,100,849,0)
"DATA",811.8,167,100,858,0)
"DATA",811.8,167,100,859,0)
"DATA",811.8,167,100,860,0)
"DATA",811.8,167,100,861,0)
33
"DATA",811.8,167,100,862,0)
"DATA",811.8,167,100,863,0)
31
"DATA",811.8,167,100,864,0)
31
"DATA",811.8,167,100,865,0)
22
"DATA",811.8,167,100,866,0)
"DATA",811.8,167,100,867,0)
"DATA",811.8,167,100,868,0)
45
"DATA",811.8,167,100,869,0)
44
"DATA",811.8,167,100,870,0)
35
"DATA",811.8,167,100,871,0)
"DATA",811.8,167,100,872,0)
"DATA",811.8,167,100,873,0)
60
"DATA",811.8,167,100,874,0)
58
"DATA",811.8,167,100,875,0)
49
"DATA",811.8,167,100,876,0)
"DATA",811.8,167,100,877,0)
"DATA",811.8,167,100,878,0)
75
"DATA",811.8,167,100,879,0)
73
"DATA",811.8,167,100,880,0)
64
"DATA",811.8,167,100,881,0)
"DATA",811.8,167,100,882,0)
"DATA",811.8,167,100,883,0)
89
"DATA",811.8,167,100,884,0)
88
"DATA",811.8,167,100,885,0)
79
"DATA",811.8,167,100,886,0)
"DATA",811.8,167,100,887,0)
"DATA",811.8,167,100,888,0)
105
"DATA",811.8,167,100,889,0)
102
"DATA",811.8,167,100,890,0)
93
"DATA",811.8,167,100,891,0)
"DATA",811.8,167,100,892,0)
"DATA",811.8,167,100,893,0)
119
"DATA",811.8,167,100,894,0)
118
"DATA",811.8,167,100,895,0)
109
"DATA",811.8,167,100,896,0)
"DATA",811.8,167,100,897,0)
"DATA",811.8,167,100,898,0)
133
"DATA",811.8,167,100,899,0)
132
"DATA",811.8,167,100,900,0)
123
"DATA",811.8,167,100,901,0)
"DATA",811.8,167,100,902,0)
"DATA",811.8,167,100,903,0)
150
"DATA",811.8,167,100,904,0)
146
"DATA",811.8,167,100,905,0)
137
"DATA",811.8,167,100,906,0)
"DATA",811.8,167,100,907,0)
"DATA",811.8,167,100,908,0)
164
"DATA",811.8,167,100,909,0)
163
"DATA",811.8,167,100,910,0)
154
"DATA",811.8,167,100,911,0)
"DATA",811.8,167,100,912,0)
"DATA",811.8,167,100,913,0)
181
"DATA",811.8,167,100,914,0)
177
"DATA",811.8,167,100,915,0)
168
"DATA",811.8,167,100,916,0)
"DATA",811.8,167,100,917,0)
"DATA",811.8,167,100,918,0)
198
"DATA",811.8,167,100,919,0)
194
"DATA",811.8,167,100,920,0)
185
"DATA",811.8,167,100,921,0)
"DATA",811.8,167,100,922,0)
"DATA",811.8,167,100,923,0)
215
"DATA",811.8,167,100,924,0)
211
"DATA",811.8,167,100,925,0)
202
"DATA",811.8,167,100,926,0)
"DATA",811.8,167,100,927,0)
"DATA",811.8,167,100,928,0)
232
"DATA",811.8,167,100,929,0)
228
"DATA",811.8,167,100,930,0)
219
"DATA",811.8,167,100,931,0)
"DATA",811.8,167,100,932,0)
"DATA",811.8,167,100,933,0)
249
"DATA",811.8,167,100,934,0)
245
"DATA",811.8,167,100,935,0)
236
"DATA",811.8,167,100,936,0)
"DATA",811.8,167,100,937,0)
"DATA",811.8,167,100,938,0)
266
"DATA",811.8,167,100,939,0)
262
"DATA",811.8,167,100,940,0)
253
"DATA",811.8,167,100,941,0)
"DATA",811.8,167,100,942,0)
"DATA",811.8,167,100,943,0)
296
"DATA",811.8,167,100,944,0)
279
"DATA",811.8,167,100,945,0)
270
"DATA",811.8,167,100,946,0)
306
"DATA",811.8,167,100,947,0)
301
"DATA",811.8,167,100,948,0)
"DATA",811.8,167,100,949,0)
"DATA",811.8,167,100,950,0)
326
"DATA",811.8,167,100,951,0)
319
"DATA",811.8,167,100,952,0)
310
"DATA",811.8,167,100,953,0)
331
"DATA",811.8,167,100,954,0)
331
"DATA",811.8,167,100,955,0)
"DATA",811.8,167,100,956,0)
"DATA",811.8,167,100,957,0)
357
"DATA",811.8,167,100,958,0)
344
"DATA",811.8,167,100,959,0)
335
"DATA",811.8,167,100,960,0)
364
"DATA",811.8,167,100,961,0)
362
"DATA",811.8,167,100,962,0)
"DATA",811.8,167,100,963,0)
"DATA",811.8,167,100,964,0)
384
"DATA",811.8,167,100,965,0)
377
"DATA",811.8,167,100,966,0)
368
"DATA",811.8,167,100,967,0)
389
"DATA",811.8,167,100,968,0)
389
"DATA",811.8,167,100,969,0)
"DATA",811.8,167,100,970,0)
"DATA",811.8,167,100,971,0)
414
"DATA",811.8,167,100,972,0)
402
"DATA",811.8,167,100,973,0)
393
"DATA",811.8,167,100,974,0)
421
"DATA",811.8,167,100,975,0)
419
"DATA",811.8,167,100,976,0)
"DATA",811.8,167,100,977,0)
"DATA",811.8,167,100,978,0)
452
"DATA",811.8,167,100,979,0)
434
"DATA",811.8,167,100,980,0)
425
"DATA",811.8,167,100,981,0)
460
"DATA",811.8,167,100,982,0)
457
"DATA",811.8,167,100,983,0)
"DATA",811.8,167,100,984,0)
"DATA",811.8,167,100,985,0)
485
"DATA",811.8,167,100,986,0)
473
"DATA",811.8,167,100,987,0)
464
"DATA",811.8,167,100,988,0)
492
"DATA",811.8,167,100,989,0)
490
"DATA",811.8,167,100,990,0)
"DATA",811.8,167,100,991,0)
"DATA",811.8,167,100,992,0)
523
"DATA",811.8,167,100,993,0)
505
"DATA",811.8,167,100,994,0)
496
"DATA",811.8,167,100,995,0)
531
"DATA",811.8,167,100,996,0)
528
"DATA",811.8,167,100,997,0)
"DATA",811.8,167,100,998,0)
"DATA",811.8,167,100,999,0)
556
"DATA",811.8,167,100,1000,0)
544
"DATA",811.8,167,100,1001,0)
535
"DATA",811.8,167,100,1002,0)
563
"DATA",811.8,167,100,1003,0)
561
"DATA",811.8,167,100,1004,0)
"DATA",811.8,167,100,1005,0)
"DATA",811.8,167,100,1006,0)
594
"DATA",811.8,167,100,1007,0)
576
"DATA",811.8,167,100,1008,0)
567
"DATA",811.8,167,100,1009,0)
602
"DATA",811.8,167,100,1010,0)
599
"DATA",811.8,167,100,1011,0)
"DATA",811.8,167,100,1012,0)
"DATA",811.8,167,100,1013,0)
627
"DATA",811.8,167,100,1014,0)
615
"DATA",811.8,167,100,1015,0)
606
"DATA",811.8,167,100,1016,0)
634
"DATA",811.8,167,100,1017,0)
632
"DATA",811.8,167,100,1018,0)
"DATA",811.8,167,100,1019,0)
"DATA",811.8,167,100,1020,0)
665
"DATA",811.8,167,100,1021,0)
647
"DATA",811.8,167,100,1022,0)
638
"DATA",811.8,167,100,1023,0)
673
"DATA",811.8,167,100,1024,0)
670
"DATA",811.8,167,100,1025,0)
"DATA",811.8,167,100,1026,0)
"DATA",811.8,167,100,1027,0)
698
"DATA",811.8,167,100,1028,0)
686
"DATA",811.8,167,100,1029,0)
677
"DATA",811.8,167,100,1030,0)
705
"DATA",811.8,167,100,1031,0)
703
"DATA",811.8,167,100,1032,0)
"DATA",811.8,167,100,1033,0)
"DATA",811.8,167,100,1034,0)
736
"DATA",811.8,167,100,1035,0)
718
"DATA",811.8,167,100,1036,0)
709
"DATA",811.8,167,100,1037,0)
744
"DATA",811.8,167,100,1038,0)
741
"DATA",811.8,167,100,1039,0)
"DATA",811.8,167,100,1040,0)
"DATA",811.8,167,100,1041,0)
769
"DATA",811.8,167,100,1042,0)
757
"DATA",811.8,167,100,1043,0)
748
"DATA",811.8,167,100,1044,0)
776
"DATA",811.8,167,100,1045,0)
774
"DATA",811.8,167,100,1046,0)
"DATA",811.8,167,100,1047,0)
"DATA",811.8,167,100,1048,0)
807
"DATA",811.8,167,100,1049,0)
789
"DATA",811.8,167,100,1050,0)
780
"DATA",811.8,167,100,1051,0)
815
"DATA",811.8,167,100,1052,0)
812
"DATA",811.8,167,100,1053,0)
"DATA",811.8,167,100,1054,0)
"DATA",811.8,167,100,1055,0)
845
"DATA",811.8,167,100,1056,0)
828
"DATA",811.8,167,100,1057,0)
819
"DATA",811.8,167,100,1058,0)
856
"DATA",811.8,167,100,1059,0)
850
"DATA",811.8,167,100,1060,0)
"DATA",811.8,167,100,1061,0)
"DATA",811.8,167,100,1062,0)
"DATA",811.8,167,110,0)
^811.804^16^16
"DATA",811.8,167,110,1,0)
Source: MANAGER,SYSTEM at VOE OFFICE INSTITUTION
"DATA",811.8,167,110,2,0)
Date Packed: 09/20/2012@00:03:58
"DATA",811.8,167,110,3,0)
Package Version: 2.0P17
"DATA",811.8,167,110,4,0)
"DATA",811.8,167,110,5,0)
Description:
"DATA",811.8,167,110,6,0)
Immunization HL7 Genrating Dialog
"DATA",811.8,167,110,7,0)
Non-exchangeable order dialog(s):
"DATA",811.8,167,110,8,0)
-------------------------------------------------------------------------------
"DATA",811.8,167,110,9,0)
Name: MATTS IMMUNIZATION HL7 OI
"DATA",811.8,167,110,10,0)
Type: Dialog
"DATA",811.8,167,110,11,0)
Display Text: IMMUNIZATION HISTORICAL ENTRY
"DATA",811.8,167,110,12,0)
-------------------------------------------------------------------------------
"DATA",811.8,167,110,13,0)
"DATA",811.8,167,110,14,0)
Keywords:
"DATA",811.8,167,110,15,0)
"DATA",811.8,167,110,16,0)
Components:
"DATA",811.8,167,119)
4
"DATA",811.8,167,120,0)
^811.802A^33^33
"DATA",811.8,167,120,1,0)
ORDER DIALOG^101.41^1
"DATA",811.8,167,120,1,1,0)
^811.8021A^1^1
"DATA",811.8,167,120,1,1,1,0)
MATTS IMMUNIZATION HL7 OI^31^31^^^0^0
"DATA",811.8,167,120,2,0)
IMMUNIZATION^9999999.14^6
"DATA",811.8,167,120,2,1,0)
^811.8021A^6^6
"DATA",811.8,167,120,2,1,1,0)
MEASLES,MUMPS,RUBELLA (MMR)^44^45^^^1^0
"DATA",811.8,167,120,2,1,2,0)
INFLUENZA^58^60^^^1^0
"DATA",811.8,167,120,2,1,3,0)
HEPATITIS A^73^75^^^1^0
"DATA",811.8,167,120,2,1,4,0)
HEPATITIS B^88^89^^^1^0
"DATA",811.8,167,120,2,1,5,0)
PNEUMOVAX^102^105^^^1^0
"DATA",811.8,167,120,2,1,6,0)
BCG,PERCUT^118^119^^^1^0
"DATA",811.8,167,120,3,0)
HEALTH FACTORS^9999999.64^9
"DATA",811.8,167,120,3,1,0)
^811.8021A^9^9
"DATA",811.8,167,120,3,1,1,0)
VACCINE LOT NUMBERS^132^133^^^1^0
"DATA",811.8,167,120,3,1,2,0)
LOT NUMBER^146^150^^^1^0
"DATA",811.8,167,120,3,1,3,0)
CVX IMMUNIZATION CODES^163^164^^^1^0
"DATA",811.8,167,120,3,1,4,0)
CVX 03^177^181^^^1^0
"DATA",811.8,167,120,3,1,5,0)
CVX 15^194^198^^^1^0
"DATA",811.8,167,120,3,1,6,0)
CVX 52^211^215^^^1^0
"DATA",811.8,167,120,3,1,7,0)
CVX 43^228^232^^^1^0
"DATA",811.8,167,120,3,1,8,0)
CVX 33^245^249^^^1^0
"DATA",811.8,167,120,3,1,9,0)
CVX 19^262^266^^^1^0
"DATA",811.8,167,120,4,0)
REMINDER DIALOG^801.41^17
"DATA",811.8,167,120,4,1,0)
^811.8021A^17^17
"DATA",811.8,167,120,4,1,1,0)
MMK PXRM COMMENT^279^296^301^306^1^0
"DATA",811.8,167,120,4,1,2,0)
PXRM OUTSIDE LOCATION^319^326^331^331^1^0
"DATA",811.8,167,120,4,1,3,0)
MATTS IMMUNIZATION LOT NUMBERS EL^344^357^362^364^1^0
"DATA",811.8,167,120,4,1,4,0)
PXRM VISIT DATE^377^384^389^389^1^0
"DATA",811.8,167,120,4,1,5,0)
MU IMM REGISTRY MMR EL^402^414^419^421^1^0
"DATA",811.8,167,120,4,1,6,0)
MU IMM REGISTRY MMR GP^434^452^457^460^1^0
"DATA",811.8,167,120,4,1,7,0)
MU IMM REGISTRY INFLUENZA EL^473^485^490^492^1^0
"DATA",811.8,167,120,4,1,8,0)
MU IMM REGISTRY INFLUENZA GP^505^523^528^531^1^0
"DATA",811.8,167,120,4,1,9,0)
MU IMM REGISTRY HEP A EL^544^556^561^563^1^0
"DATA",811.8,167,120,4,1,10,0)
MU IMM REGISTRY HEP A GP^576^594^599^602^1^0
"DATA",811.8,167,120,4,1,11,0)
MU IMM REGISTRY HEP B EL^615^627^632^634^1^0
"DATA",811.8,167,120,4,1,12,0)
MU IMM REGISTRY HEP B GP^647^665^670^673^1^0
"DATA",811.8,167,120,4,1,13,0)
MU IMM REGISTRY PPV EL^686^698^703^705^1^0
"DATA",811.8,167,120,4,1,14,0)
MU IMM REGISTRY PPV GP^718^736^741^744^1^0
"DATA",811.8,167,120,4,1,15,0)
MATTS IMMUNIZATION BCG EL^757^769^774^776^1^0
"DATA",811.8,167,120,4,1,16,0)
MU IMM REGISTRY BCG GP^789^807^812^815^1^0
"DATA",811.8,167,120,4,1,17,0)
MU IMM REGISTRY DI DI^828^845^850^856^1^1
"FIA",100.98)
DISPLAY GROUP
"FIA",100.98,0)
^ORD(100.98,
"FIA",100.98,0,0)
100.98I
"FIA",100.98,0,1)
n^n^f^^y^KBAN DISPLAY GROUP TRANSPORT^y^o^n
"FIA",100.98,0,10)
"FIA",100.98,0,11)
"FIA",100.98,0,"RLRO")
^DIBT(931,1)
"FIA",100.98,100.98)
0
"FIA",100.98,100.981)
0
"FIA",101.41)
ORDER DIALOG
"FIA",101.41,0)
^ORD(101.41,
"FIA",101.41,0,0)
101.41I
"FIA",101.41,0,1)
n^n^f^^y^KBAN DIALOG TRANSPORT LIST^y^o^n
"FIA",101.41,0,10)
"FIA",101.41,0,11)
"FIA",101.41,0,"RLRO")
^DIBT(930,1)
"FIA",101.41,101.41)
0
"FIA",101.41,101.411)
0
"FIA",101.41,101.412)
0
"FIA",101.41,101.41218)
0
"FIA",101.41,101.415)
0
"FIA",101.41,101.416)
0
"FIA",101.41,101.4162)
0
"FIA",811.8)
REMINDER EXCHANGE
"FIA",811.8,0)
^PXD(811.8,
"FIA",811.8,0,0)
811.8s
"FIA",811.8,0,1)
n^n^f^^n^^y^o^n
"FIA",811.8,0,10)
"FIA",811.8,0,11)
I $$EXFINC^VWIMMKID(Y)
"FIA",811.8,0,"RLRO")
"FIA",811.8,811.8)
0
"FIA",811.8,811.801)
0
"FIA",811.8,811.802)
0
"FIA",811.8,811.8021)
0
"FIA",811.8,811.803)
0
"FIA",811.8,811.8031)
0
"FIA",811.8,811.80315)
0
"FIA",811.8,811.804)
0
"FRV1",101.41,"15824,0",5)
IMMUNIZATION SERVICE
"FRV1",101.41,"15824,0",5,"F")
;ORD(100.98,
"FRV1",101.41,"15824,0",7)
ORDER ENTRY/RESULTS REPORTING
"FRV1",101.41,"15824,0",7,"F")
;DIC(9.4,
"FRV1",101.41,"15824,10,1,0",2)
ORZ MMK VACCINATION DATE/TIME
"FRV1",101.41,"15824,10,1,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,10,0",2)
ORZ MMK SEND IMMUN HL7 MSG
"FRV1",101.41,"15824,10,10,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,2,0",2)
ORZ MMK VACCINE MANUFACTURER CODE
"FRV1",101.41,"15824,10,2,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,4,0",2)
OR GTX START DATE/TIME
"FRV1",101.41,"15824,10,4,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,5,0",2)
OR GTX STOP DATE/TIME
"FRV1",101.41,"15824,10,5,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,6,0",2)
ORZ MMK VACCINE NAME
"FRV1",101.41,"15824,10,6,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,7,0",2)
ORZ MMK QUANITY
"FRV1",101.41,"15824,10,7,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,8,0",2)
ORZ MMK UNITS
"FRV1",101.41,"15824,10,8,0",2,"F")
;ORD(101.41,
"FRV1",101.41,"15824,10,9,0",2)
ORZ MMK LOT NUMBERS
"FRV1",101.41,"15824,10,9,0",2,"F")
;ORD(101.41,
"INI")
PRE^VWIMMKID
"INIT")
POST^VWIMMKID
"IX",101.41,101.41,"B",0)
101.41^B^Regular B index using full field length^R^^F^IR^I^101.41^^^^^LS
"IX",101.41,101.41,"B",1)
S ^ORD(101.41,"B",$E(X,1,63),DA)=""
"IX",101.41,101.41,"B",2)
K ^ORD(101.41,"B",$E(X,1,63),DA)
"IX",101.41,101.41,"B",2.5)
K ^ORD(101.41,"B")
"IX",101.41,101.41,"B",11.1,0)
^.114IA^1^1
"IX",101.41,101.41,"B",11.1,1,0)
1^F^101.41^.01^63^1^F
"IX",811.8,811.8,"B",0)
811.8^B^Uniqueness Index for Key 'A' of File #811.8^R^^R^IR^I^811.8^^^^^LS
"IX",811.8,811.8,"B",1)
S ^PXD(811.8,"B",X(1),X(2),DA)=""
"IX",811.8,811.8,"B",2)
K ^PXD(811.8,"B",X(1),X(2),DA)
"IX",811.8,811.8,"B",2.5)
K ^PXD(811.8,"B")
"IX",811.8,811.8,"B",11.1,0)
^.114IA^2^2
"IX",811.8,811.8,"B",11.1,1,0)
1^F^811.8^.01^^1
"IX",811.8,811.8,"B",11.1,2,0)
2^F^811.8^.03^^2
"IX",811.8,811.8,"D",0)
811.8^D^Cross-reference on date and time^R^^F^IR^I^811.8^^^^^LS
"IX",811.8,811.8,"D",1)
S ^PXD(811.8,"D",X,DA)=""
"IX",811.8,811.8,"D",2)
K ^PXD(811.8,"D",X,DA)
"IX",811.8,811.8,"D",2.5)
K ^PXD(811.8,"D")
"IX",811.8,811.8,"D",11.1,0)
^.114IA^1^1
"IX",811.8,811.8,"D",11.1,1,0)
1^F^811.8^.03^^1^F
"IX",811.8,811.8,"D",11.1,1,3)
"IX",811.8,811.803,"B",0)
811.803^B^New style B cross-reference^R^^F^IR^I^811.803^^^^^LS
"IX",811.8,811.803,"B",1)
S ^PXD(811.8,DA(1),130,"B",X,DA)=""
"IX",811.8,811.803,"B",2)
K ^PXD(811.8,DA(1),130,"B",X,DA)
"IX",811.8,811.803,"B",2.5)
K ^PXD(811.8,DA(1),130,"B")
"IX",811.8,811.803,"B",11.1,0)
^.114IA^1^1
"IX",811.8,811.803,"B",11.1,1,0)
1^F^811.803^.01^^1^F
"KEY",811.8,811.8,"A",0)
811.8^A^P^835
"KEY",811.8,811.8,"A",2,0)
^.312IA^2^2
"KEY",811.8,811.8,"A",2,1,0)
.01^811.8^1
"KEY",811.8,811.8,"A",2,2,0)
.03^811.8^2
"KEYPTR",811.8,811.8,"A")
811.8^B
"KRN",19,11047,-1)
0^2
"KRN",19,11047,0)
VW IMMUN HL7 MSG PREP^PREP IMMUNIZATION ORDERS FOR HL7 MESSAGES^^R^^^^^^^^
"KRN",19,11047,25)
FIND^VWIMMORD
"KRN",19,11047,"U")
PREP IMMUNIZATION ORDERS FOR H
"KRN",19,11054,-1)
0^1
"KRN",19,11054,0)
VW IMM SEND ONE ATTACHED FILE^SEND ONE ATTACHED FILE^^R^^^^^^^^
"KRN",19,11054,25)
MAILSEND^VWIMMORD
"KRN",19,11054,"U")
SEND ONE ATTACHED FILE
"KRN",101,4299,-1)
0^1
"KRN",101,4299,0)
VW IMMUNIZATION VXU V04 DRIVER^VW IMMUNIZATION Event Driver^^E^^^^^^^^
"KRN",101,4299,99)
62259,51793
"KRN",101,4299,770)
VW IMMUNIZATION^^VXU^V04^115^^^AL^AL^2.5.1^
"KRN",101,4299,775,0)
^101.0775PA^^
"KRN",101,4300,-1)
0^2
"KRN",101,4300,0)
VW IMMUNIZATION VXU V04 CDC CLIENT^VW IMMUNIZATION client (CDC)^^^^^^^^^^
"KRN",101,4300,99)
62259,53151
"KRN",101,4306,-1)
0^3
"KRN",101,4306,0)
VW IMMUNIZATION VXU V04 EVT^CDC IMMUNIZATION REGISTRY EVENT DRIVER^^E^^^^^^^^
"KRN",101,4306,1,0)
^^2^2^3110618^
"KRN",101,4306,1,1,0)
Event driver to send the sample HL7 message to another system for
"KRN",101,4306,1,2,0)
Meaningful Use Certification Testing
"KRN",101,4306,99)
62260,78295
"KRN",101,4306,770)
VW IMMUNIZATION^^VXU^V04^115^^^AL^AL^2.5.1^
"KRN",101,4306,775,0)
^101.0775PA^^
"KRN",101,4307,-1)
0^4
"KRN",101,4307,0)
VW IMMUNIZATION VXU V04 SUB^CDC IMMUNIZATION REGISTRY SUBSCRIBER^^S^^^^^^^^
"KRN",101,4307,1,0)
^^2^2^3110618^
"KRN",101,4307,1,1,0)
Subscriber protocol for the immunization registry testing for Meaningful
"KRN",101,4307,1,2,0)
Use
"KRN",101,4307,99)
62260,78782
"KRN",101,4307,770)
^CDC IMMUNIZATION REGISTRY^^V04^^^MDC-CREW^^^^ACK
"KRN",101,4307,771)
D RESP^VWZIMM
"KRN",101,4307,773)
1^1
"KRN",771,198,-1)
0^1
"KRN",771,198,0)
VW IMMUNIZATION^a^WorldVistA EHR 3-09^^^^USA
"KRN",771,198,"EC")
^~\&
"KRN",771,198,"FS")
|
"MBREQ")
0
"ORD",14,771)
771;14;;;HLAP^XPDTA1;HLAPF1^XPDIA1;HLAPE1^XPDIA1;HLAPF2^XPDIA1;;HLAPDEL^XPDIA1(%)
"ORD",14,771,0)
HL7 APPLICATION PARAMETER
"ORD",15,101)
101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA
"ORD",15,101,0)
PROTOCOL
"ORD",18,19)
19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
"ORD",18,19,0)
OPTION
"PGL",100.98,0,4,4)
DEFAULT DIALOG^P101.41'^ORD(101.41,^0;4^Q
"PGL",101.41,0,5,5)
DISPLAY GROUP^P100.98'^ORD(100.98,^0;5^Q
"PGL",101.41,0,7,7)
PACKAGE^P9.4'^DIC(9.4,^0;7^Q
"PGL",101.412,0,2,2)
ITEM^P101.41'X^ORD(101.41,^0;2^D TREE^ORDD41
"PGL",101.412,0,11,1)
PARENT^P101.41'^ORD(101.41,^0;11^Q
"PGL",101.415,0,2,2)
ITEM^P101.41'^ORD(101.41,^0;2^Q
"PGL",101.416,0,2,.02)
DIALOG^P101.41'^ORD(101.41,^0;2^Q
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")
"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
3
"RTN","VWIMMH7")
0^2^B12461113
"RTN","VWIMMH7",1,0)
VWIMMH7 ;WV//MSF/ ; 9/20/12 6:25am
"RTN","VWIMMH7",2,0)
;;1.0;IMM;June 16, 2011;;Build 8
"RTN","VWIMMH7",3,0)
EN(XTMPDT,XTMPDFN) ;
"RTN","VWIMMH7",4,0)
I '$D(^XTMP("VWIMMPT",XTMPDT,XTMPDFN)) D EN^DDIOL("No such entry") Q
"RTN","VWIMMH7",5,0)
K ^XTMP("VWIMMH7") S ^XTMP("VWIMMH7")=0
"RTN","VWIMMH7",6,0)
N HL,HLECH1 D INIT^HLFNC2("VW IMMUNIZATION VXU V04 DRIVER",.HL) S HLECH1=$E(HL("ECH"))
"RTN","VWIMMH7",7,0)
D MSH
"RTN","VWIMMH7",8,0)
D ORD(XTMPDT,XTMPDFN)
"RTN","VWIMMH7",9,0)
D ^%ZIS
"RTN","VWIMMH7",10,0)
U IO S X=$NA(^XTMP("VWIMMH7")) F S X=$Q(@X) Q:X'["VWIMMH7" W:@X]"" @X,!
"RTN","VWIMMH7",11,0)
D ^%ZISC
"RTN","VWIMMH7",12,0)
Q
"RTN","VWIMMH7",13,0)
MSH ;
"RTN","VWIMMH7",14,0)
N MSHIN,MSHOUT
"RTN","VWIMMH7",15,0)
S MSHIN(0)="MSH",MSHIN(1)=HL("ECH"),MSHIN(2)=HL("SAN"),MSHIN(3)=HL("SAF")
"RTN","VWIMMH7",16,0)
S MSHIN(4)="CDC IMMUNIZATION REG",MSHIN(5)="CDC",MSHIN(9)=123,MSHIN(16)="USA"
"RTN","VWIMMH7",17,0)
S MSHIN(6)=$$FMTHL7^XLFDT($$NOW^XLFDT)
"RTN","VWIMMH7",18,0)
S MSHIN(8)=HL("MTN")_HLECH1_HL("ETN")_HLECH1_HL("MTN_ETN")
"RTN","VWIMMH7",19,0)
S MSHIN(10)="P",MSHIN(11)=HL("VER"),MSHIN(14)=HL("ACAT"),MSHIN(15)=HL("APAT")
"RTN","VWIMMH7",20,0)
D BUILDSEG^LA7VHLU(.MSHIN,.MSHOUT,HL("FS"))
"RTN","VWIMMH7",21,0)
D FILESEG(.MSHOUT)
"RTN","VWIMMH7",22,0)
Q
"RTN","VWIMMH7",23,0)
ORD(XTMPDT,XTMPDFN) ;
"RTN","VWIMMH7",24,0)
N PTOUT,DFN,ORC,ORCIN
"RTN","VWIMMH7",25,0)
N RXIN,RXOUT,RXA,IMMIN,IMMSUB
"RTN","VWIMMH7",26,0)
M RXIN=^XTMP("VWIMMPT",XTMPDT,XTMPDFN)
"RTN","VWIMMH7",27,0)
S DFN=+XTMPDFN
"RTN","VWIMMH7",28,0)
D BLDPID^VAFCQRY(DFN,1,"3,5,7,8,10,11,13,22",.PTOUT,.HL)
"RTN","VWIMMH7",29,0)
D KLUGE(.PTOUT,DFN)
"RTN","VWIMMH7",30,0)
D FILESEG(.PTOUT)
"RTN","VWIMMH7",31,0)
S IMMSUB=0 F S IMMSUB=$O(RXIN(IMMSUB)) Q:'IMMSUB D
"RTN","VWIMMH7",32,0)
.M IMMIN=RXIN(IMMSUB)
"RTN","VWIMMH7",33,0)
.S ORCIN(0)="ORC",ORCIN(1)="RE",ORCIN(3)=$G(IMMIN("ORDER"))
"RTN","VWIMMH7",34,0)
.S ORCIN(12)=$$ORC12^LA7VORC($G(IMMIN("ORDEREDBY")),"",HL("FS"),HL("ECH"))
"RTN","VWIMMH7",35,0)
.;S ORCIN(17)=$$ORC17^LA7VORC("",HL("FS"),HL("ECH")),ORCIN(21)=ORCIN(17)
"RTN","VWIMMH7",36,0)
.D BUILDSEG^LA7VHLU(.ORCIN,.ORC,HL("FS"))
"RTN","VWIMMH7",37,0)
.D FILESEG(.ORC)
"RTN","VWIMMH7",38,0)
.D RXA(.IMMIN,.RXOUT)
"RTN","VWIMMH7",39,0)
.D BUILDSEG^LA7VHLU(.RXOUT,.RXA,HL("FS"))
"RTN","VWIMMH7",40,0)
.D FILESEG(.RXA)
"RTN","VWIMMH7",41,0)
;ZWR RXA
"RTN","VWIMMH7",42,0)
Q
"RTN","VWIMMH7",43,0)
KLUGE(IN,DFN) ;
"RTN","VWIMMH7",44,0)
N I,J,X,Y
"RTN","VWIMMH7",45,0)
S X="" F I=1:1 Q:'$D(IN(I)) S X=X_IN(I)
"RTN","VWIMMH7",46,0)
S $P(X,"|",4)=DFN_"^^^DFN^MR" ;$$REMIDS($P(X,"|",4))
"RTN","VWIMMH7",47,0)
S Y=$G(^DPT(DFN,.02,+$O(^DPT(DFN,.02,0)),0))
"RTN","VWIMMH7",48,0)
S J=$G(^DIC(10,+Y,0)) S:J]"" $P(X,"|",11)=$P(J,U,3)_U_$P(J,U)_"^HL70005"
"RTN","VWIMMH7",49,0)
S Y=$G(^DPT(DFN,.06,+$O(^DPT(DFN,.06,0)),0))
"RTN","VWIMMH7",50,0)
S J=$G(^DIC(10.2,+Y,0)) S:J]"" $P(X,"|",23)=$P(J,U,2)_U_$P(J,U)_"^HL70189"
"RTN","VWIMMH7",51,0)
S Y=$P(X,"|",14),J=$TR($P(Y,U),"-() ",""),Y=U_$P(Y,U,2)_"^^^^"_$E(J,1,3)_U_$E(J,4,10),$P(X,"|",14)=Y
"RTN","VWIMMH7",52,0)
K IN S J=1 F I=1:1 S Y=$E(X,J,J+244) Q:Y="" S IN(I)=Y,J=J+245
"RTN","VWIMMH7",53,0)
Q
"RTN","VWIMMH7",54,0)
REMIDS(X) ;
"RTN","VWIMMH7",55,0)
N I,Y
"RTN","VWIMMH7",56,0)
F I=4,9,14 S Y=$P(X,U,I),$P(Y,"&",3)="",$P(X,U,I)=Y
"RTN","VWIMMH7",57,0)
F I=6,11,16 S Y=$P(X,U,I),$P(Y,"&",3)=$TR($P(Y,"&",3),"L",""),$P(X,U,I)=Y
"RTN","VWIMMH7",58,0)
Q X
"RTN","VWIMMH7",59,0)
FILESEG(FILIN) ;
"RTN","VWIMMH7",60,0)
D FILESEG^LA7VHLU("^XTMP(""VWIMMH7"")",.FILIN)
"RTN","VWIMMH7",61,0)
Q
"RTN","VWIMMH7",62,0)
RXA(RXAIN,RXA) ;
"RTN","VWIMMH7",63,0)
S RXA(0)="RXA",RXA(1)=0,RXA(2)=1,RXA(3)=$$FMTHL7^XLFDT($G(RXAIN("TIME")))
"RTN","VWIMMH7",64,0)
S RXA(4)=RXA(3)
"RTN","VWIMMH7",65,0)
N ORD1 S ORD1=$O(^ORD(101.41,"B","ORZ MMK VACCINE NAME",""))
"RTN","VWIMMH7",66,0)
S:$G(RXAIN("CVX"))]"" RXA(5)=RXAIN("CVX")_HLECH1_$$TEXT(ORD1,RXAIN("CVX"))_HLECH1_"CVX"
"RTN","VWIMMH7",67,0)
S RXA(6)=$S($G(RXAIN("QUANTITY")):RXAIN("QUANTITY"),1:999)
"RTN","VWIMMH7",68,0)
I $G(RXAIN("QUANTITY")),$G(RXAIN("UNITS"))]"" S RXA(7)=$G(RXAIN("UNITS"))_HLECH1_$G(RXAIN("UNITS"))_HLECH1_"HL70396"
"RTN","VWIMMH7",69,0)
S RXA(15)=$G(RXAIN("LOT"))
"RTN","VWIMMH7",70,0)
N ORD2 S ORD2=$O(^ORD(101.41,"B","ORZ MMK VACCINE MANUFACTURER CODE",""))
"RTN","VWIMMH7",71,0)
S:$G(RXAIN("MFC"))]"" RXA(17)=RXAIN("MFC")_HLECH1_$$TEXT(ORD2,RXAIN("MFC"))_HLECH1_"MVX"
"RTN","VWIMMH7",72,0)
S RXA(21)="A"
"RTN","VWIMMH7",73,0)
Q
"RTN","VWIMMH7",74,0)
TEXT(TABLE,CODE) ;Get text from table entry in ^ORD(101.41
"RTN","VWIMMH7",75,0)
Q $P($P(";"_$P($G(^ORD(101.41,TABLE,1)),"^",2),";"_CODE_":",2),";")
"RTN","VWIMMKID")
0^^B4649044
"RTN","VWIMMKID",1,0)
VWIMMKID ; VEN/SMH - Immunization 2 HL7 KIDS utilities; ; 9/20/12 4:41am
"RTN","VWIMMKID",2,0)
;;noversion;nopackage;nopatch;;Build 8
"RTN","VWIMMKID",3,0)
; PEPs: PRE, POST
"RTN","VWIMMKID",4,0)
;
"RTN","VWIMMKID",5,0)
PRE ; Unified Pre; PEP
"RTN","VWIMMKID",6,0)
D PREREM
"RTN","VWIMMKID",7,0)
QUIT
"RTN","VWIMMKID",8,0)
POST ; Unified Post; PEP
"RTN","VWIMMKID",9,0)
D POSTREM
"RTN","VWIMMKID",10,0)
QUIT
"RTN","VWIMMKID",11,0)
;
"RTN","VWIMMKID",12,0)
; Rest of entry points are private
"RTN","VWIMMKID",13,0)
;
"RTN","VWIMMKID",14,0)
;
"RTN","VWIMMKID",15,0)
ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
"RTN","VWIMMKID",16,0)
;
"RTN","VWIMMKID",17,0)
N LN S LN=1
"RTN","VWIMMKID",18,0)
;
"RTN","VWIMMKID",19,0)
; NQF 0024-alt-core_wt-kids
"RTN","VWIMMKID",20,0)
S ARRAY(LN,1)="MU IMM REGISTRY DI"
"RTN","VWIMMKID",21,0)
I MODE S ARRAY(LN,2)="09/20/2012@00:03:58"
"RTN","VWIMMKID",22,0)
QUIT
"RTN","VWIMMKID",23,0)
;
"RTN","VWIMMKID",24,0)
;
"RTN","VWIMMKID",25,0)
;===============================================================
"RTN","VWIMMKID",26,0)
DELEI ;If the Exchange File entry already exists delete it.
"RTN","VWIMMKID",27,0)
N ARRAY,IC,IND,LIST,LUVALUE,NUM
"RTN","VWIMMKID",28,0)
D ARRAY(1,.ARRAY)
"RTN","VWIMMKID",29,0)
S IC=0
"RTN","VWIMMKID",30,0)
F S IC=$O(ARRAY(IC)) Q:'IC D
"RTN","VWIMMKID",31,0)
.S LUVALUE(1)=ARRAY(IC,1)
"RTN","VWIMMKID",32,0)
.D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
"RTN","VWIMMKID",33,0)
.I '$D(LIST) Q
"RTN","VWIMMKID",34,0)
.S NUM=$P(LIST("DILIST",0),U,1)
"RTN","VWIMMKID",35,0)
.I NUM'=0 D
"RTN","VWIMMKID",36,0)
..F IND=1:1:NUM D
"RTN","VWIMMKID",37,0)
... N DA,DIK
"RTN","VWIMMKID",38,0)
... S DIK="^PXD(811.8,"
"RTN","VWIMMKID",39,0)
... S DA=LIST("DILIST",2,IND)
"RTN","VWIMMKID",40,0)
... D ^DIK
"RTN","VWIMMKID",41,0)
Q
"RTN","VWIMMKID",42,0)
;
"RTN","VWIMMKID",43,0)
;===============================================================
"RTN","VWIMMKID",44,0)
EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
"RTN","VWIMMKID",45,0)
;include in the build. This is used in the build to determine which
"RTN","VWIMMKID",46,0)
;entries to include.
"RTN","VWIMMKID",47,0)
N ARRAY,FOUND,IEN,IC,LUVALUE
"RTN","VWIMMKID",48,0)
D ARRAY(1,.ARRAY)
"RTN","VWIMMKID",49,0)
S FOUND=0
"RTN","VWIMMKID",50,0)
S IC=0
"RTN","VWIMMKID",51,0)
F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D
"RTN","VWIMMKID",52,0)
. M LUVALUE=ARRAY(IC)
"RTN","VWIMMKID",53,0)
. S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
"RTN","VWIMMKID",54,0)
. I IEN=Y S FOUND=1 Q
"RTN","VWIMMKID",55,0)
Q FOUND
"RTN","VWIMMKID",56,0)
;
"RTN","VWIMMKID",57,0)
PREREM ;
"RTN","VWIMMKID",58,0)
D DELEI
"RTN","VWIMMKID",59,0)
Q
"RTN","VWIMMKID",60,0)
POSTREM ;
"RTN","VWIMMKID",61,0)
D SMEXINS
"RTN","VWIMMKID",62,0)
Q
"RTN","VWIMMKID",63,0)
;===============================================================
"RTN","VWIMMKID",64,0)
SMEXINS ;Silent mode install.
"RTN","VWIMMKID",65,0)
N ARRAY,IC,IEN,LUVALUE,PXRMINST
"RTN","VWIMMKID",66,0)
S PXRMINST=1
"RTN","VWIMMKID",67,0)
D ARRAY(1,.ARRAY)
"RTN","VWIMMKID",68,0)
S IC=0
"RTN","VWIMMKID",69,0)
F S IC=$O(ARRAY(IC)) Q:'IC D
"RTN","VWIMMKID",70,0)
.M LUVALUE=ARRAY(IC)
"RTN","VWIMMKID",71,0)
.S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
"RTN","VWIMMKID",72,0)
.I IEN'=0 D
"RTN","VWIMMKID",73,0)
.. N TEXT
"RTN","VWIMMKID",74,0)
.. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
"RTN","VWIMMKID",75,0)
.. E S TEXT="Installing reminder exchange entry "_LUVALUE(1)
"RTN","VWIMMKID",76,0)
.. D BMES^XPDUTL(TEXT)
"RTN","VWIMMKID",77,0)
.. D INSTALL^PXRMEXSI(IEN,"I",1)
"RTN","VWIMMKID",78,0)
Q
"RTN","VWIMMKID",79,0)
;
"RTN","VWIMMORD")
0^1^B20931063
"RTN","VWIMMORD",1,0)
VWIMMORD ;Prep Immunization Order data for HL7 Message creation ;
"RTN","VWIMMORD",2,0)
;;0.1;C0Q;nopatch;noreleasedate;Build 8
"RTN","VWIMMORD",3,0)
; ^XTMP("VWIMMORD",0)=purge date^create date
"RTN","VWIMMORD",4,0)
; ^XTMP("VWIMMORD",order_date,order#,item_name)=item_value
"RTN","VWIMMORD",5,0)
; ^XTMP("VWIMMORD","LASTORDR")=last order processed
"RTN","VWIMMORD",6,0)
FIND ; Find the next set of immunization orders
"RTN","VWIMMORD",7,0)
N X1,X2,X,%DT,%H,ORDT,ORDER,LASTORDR,SUBSC,DIR,ENTRY,FRSTORDR,PATIENT,IMM
"RTN","VWIMMORD",8,0)
K ^TMP("VWIMMORD",$J)
"RTN","VWIMMORD",9,0)
S (LASTORDR,FRSTORDR)=+$G(^XTMP("VWIMMORD","LASTORDR"))
"RTN","VWIMMORD",10,0)
W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR
"RTN","VWIMMORD",11,0)
S DIR("A")="Do you want to reset that value"
"RTN","VWIMMORD",12,0)
S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1
"RTN","VWIMMORD",13,0)
. S DIR("A")="What value shall be used?"
"RTN","VWIMMORD",14,0)
. S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR
"RTN","VWIMMORD",15,0)
. I Y'?.N W !,"We'll skip reseting it then."
"RTN","VWIMMORD",16,0)
. E D
"RTN","VWIMMORD",17,0)
. . S (LASTORDR,FRSTORDR)=+Y
"RTN","VWIMMORD",18,0)
. . S X1=DT,X2=365 D C^%DTC
"RTN","VWIMMORD",19,0)
. . S ^XTMP("VWIMMORD",0)=X_U_DT
"RTN","VWIMMORD",20,0)
. . S ^XTMP("VWIMMORD","LASTORDR")=LASTORDR
"RTN","VWIMMORD",21,0)
. . Q
"RTN","VWIMMORD",22,0)
. Q
"RTN","VWIMMORD",23,0)
S DIR("A")="Ready to prep more immunization orders for HL7 messages"
"RTN","VWIMMORD",24,0)
S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1
"RTN","VWIMMORD",25,0)
I '$D(^XTMP("VWIMMORD",0)) D
"RTN","VWIMMORD",26,0)
. S X1=DT,X2=365 D C^%DTC
"RTN","VWIMMORD",27,0)
. S ^XTMP("VWIMMORD",0)=X_U_DT
"RTN","VWIMMORD",28,0)
. S ^XTMP("VWIMMORD","LASTORDR")=0
"RTN","VWIMMORD",29,0)
S ORDER=^XTMP("VWIMMORD","LASTORDR")
"RTN","VWIMMORD",30,0)
F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D
"RTN","VWIMMORD",31,0)
. S LASTORDR=ORDER
"RTN","VWIMMORD",32,0)
. D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE
"RTN","VWIMMORD",33,0)
. Q
"RTN","VWIMMORD",34,0)
S ^XTMP("VWIMMORD","LASTORDR")=LASTORDR
"RTN","VWIMMORD",35,0)
; Now consolidate the orders by patient
"RTN","VWIMMORD",36,0)
K ^XTMP("VWIMMPT") S ORDER=FRSTORDR F S ORDER=$O(^XTMP("VWIMMORD",ORDER)) Q:ORDER'>0 M ^TMP("VWIMMORD",$J,^XTMP("VWIMMORD",ORDER,"PATIENT"),ORDER)=^XTMP("VWIMMORD",ORDER)
"RTN","VWIMMORD",37,0)
S X1=DT,X2=365 D C^%DTC
"RTN","VWIMMORD",38,0)
S ^XTMP("VWIMMPT",0)=X_U_DT
"RTN","VWIMMORD",39,0)
S PATIENT="" F S PATIENT=$O(^TMP("VWIMMORD",$J,PATIENT)) Q:PATIENT="" D
"RTN","VWIMMORD",40,0)
. S ORDER=0,IMM=0 F S ORDER=$O(^TMP("VWIMMORD",$J,PATIENT,ORDER)) Q:ORDER'>0 D
"RTN","VWIMMORD",41,0)
. . S IMM=IMM+1
"RTN","VWIMMORD",42,0)
. . S ^XTMP("VWIMMPT",DT,PATIENT,"PATIENT")=PATIENT
"RTN","VWIMMORD",43,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"LOCATION")) ^XTMP("VWIMMPT",DT,PATIENT,"LOCATION")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"LOCATION")
"RTN","VWIMMORD",44,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"CVX")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"CVX")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"CVX")
"RTN","VWIMMORD",45,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"LOT")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"LOT")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"LOT")
"RTN","VWIMMORD",46,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"MFC")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"MFC")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"MFC")
"RTN","VWIMMORD",47,0)
. . S ^XTMP("VWIMMPT",DT,PATIENT,IMM,"ORDER")=ORDER
"RTN","VWIMMORD",48,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"ORDEREDBY")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"ORDEREDBY")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"ORDEREDBY")
"RTN","VWIMMORD",49,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"ORDERTEXT")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"ORDERTEXT")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"ORDERTEXT")
"RTN","VWIMMORD",50,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"QUANTITY")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"QUANTITY")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"QUANTITY")
"RTN","VWIMMORD",51,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"TIME")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"TIME")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"TIME")
"RTN","VWIMMORD",52,0)
. . S:$D(^TMP("VWIMMORD",$J,PATIENT,ORDER,"UNITS")) ^XTMP("VWIMMPT",DT,PATIENT,IMM,"UNITS")=^TMP("VWIMMORD",$J,PATIENT,ORDER,"UNITS")
"RTN","VWIMMORD",53,0)
. . Q
"RTN","VWIMMORD",54,0)
. W !,"PATIENT: ",$P($G(^DPT(+PATIENT,0)),U)
"RTN","VWIMMORD",55,0)
. D EN^VWIMMH7(DT,PATIENT) ; Build & send the message
"RTN","VWIMMORD",56,0)
. Q
"RTN","VWIMMORD",57,0)
K ^TMP("VWIMMORD",$J)
"RTN","VWIMMORD",58,0)
W !,"Done",!,"Last Order processed: ",LASTORDR,!
"RTN","VWIMMORD",59,0)
Q
"RTN","VWIMMORD",60,0)
GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP
"RTN","VWIMMORD",61,0)
S ^XTMP("VWIMMORD",ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2)
"RTN","VWIMMORD",62,0)
S ^XTMP("VWIMMORD",ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10)
"RTN","VWIMMORD",63,0)
S ^XTMP("VWIMMORD",ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6)
"RTN","VWIMMORD",64,0)
S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D
"RTN","VWIMMORD",65,0)
. S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4)
"RTN","VWIMMORD",66,0)
. Q:'$L(SUBSC)
"RTN","VWIMMORD",67,0)
. I SUBSC'="TIME" S ^XTMP("VWIMMORD",ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1)
"RTN","VWIMMORD",68,0)
. E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("VWIMMORD",ORDER,SUBSC)=Y
"RTN","VWIMMORD",69,0)
. Q
"RTN","VWIMMORD",70,0)
S ^XTMP("VWIMMORD",ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0))
"RTN","VWIMMORD",71,0)
Q
"RTN","VWIMMORD",72,0)
MAILSEND ; GET FILE DIRECTORY/NAME AND SEND
"RTN","VWIMMORD",73,0)
N DIR,FNAME,TO
"RTN","VWIMMORD",74,0)
S DIR(0)="F",DIR("A")="File name" D ^DIR
"RTN","VWIMMORD",75,0)
S FNAME=X
"RTN","VWIMMORD",76,0)
S DIR(0)="F",DIR("A")="Email address" D ^DIR
"RTN","VWIMMORD",77,0)
S TO=X
"RTN","VWIMMORD",78,0)
D LINE^C0CMIME(FNAME,TO)
"RTN","VWIMMORD",79,0)
Q
"VER")
8.0^22.0
"^DD",100.98,100.98,0)
FIELD^^4^5
"^DD",100.98,100.98,0,"DDA")
N
"^DD",100.98,100.98,0,"DT")
2960814
"^DD",100.98,100.98,0,"IX","AD",100.981,.01)
"^DD",100.98,100.98,0,"IX","B",100.98,.01)
"^DD",100.98,100.98,0,"IX","B",100.98,3)
"^DD",100.98,100.98,0,"NM","DISPLAY GROUP")
"^DD",100.98,100.98,0,"PT",100,23)
"^DD",100.98,100.98,0,"PT",100.65,.01)
"^DD",100.98,100.98,0,"PT",100.981,.01)
"^DD",100.98,100.98,0,"PT",100.995,1.1)
"^DD",100.98,100.98,0,"PT",101.41,5)
"^DD",100.98,100.98,0,"PT",101.43,5)
"^DD",100.98,100.98,0,"PT",123.5,123.01)
"^DD",100.98,100.98,0,"VRPK")
ORDER ENTRY/RESULTS REPORTING
"^DD",100.98,100.98,.01,0)
NAME^RF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
"^DD",100.98,100.98,.01,1,0)
^.1^^-1
"^DD",100.98,100.98,.01,1,1,0)
100.98^B
"^DD",100.98,100.98,.01,1,1,1)
S ^ORD(100.98,"B",$E(X,1,30),DA)=""
"^DD",100.98,100.98,.01,1,1,2)
K ^ORD(100.98,"B",$E(X,1,30),DA)
"^DD",100.98,100.98,.01,3)
ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
"^DD",100.98,100.98,.01,4)
"^DD",100.98,100.98,.01,21,0)
^^3^3^2920224^^^^
"^DD",100.98,100.98,.01,21,1,0)
This is the name of the display group for a particular kind of order.
"^DD",100.98,100.98,.01,21,2,0)
The display group generally corresponds to a hospital service or part
"^DD",100.98,100.98,.01,21,3,0)
of a service.
"^DD",100.98,100.98,.01,"DT")
2890131
"^DD",100.98,100.98,1,0)
MEMBER^100.981P^^1;0
"^DD",100.98,100.98,1,3)
Enter a display group as a member.
"^DD",100.98,100.98,1,21,0)
^^3^3^2920224^^^^
"^DD",100.98,100.98,1,21,1,0)
This is a list of specific display groups that `belong' to the display
"^DD",100.98,100.98,1,21,2,0)
group listed in the NAME field. (This is similar to menu items in the
"^DD",100.98,100.98,1,21,3,0)
OPTION File.)
"^DD",100.98,100.98,2,0)
MIXED NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X
"^DD",100.98,100.98,2,3)
Answer must be 1-30 characters in length.
"^DD",100.98,100.98,2,21,0)
^^3^3^2960617^
"^DD",100.98,100.98,2,21,1,0)
This field contains a mixed case name for the display group. The name
"^DD",100.98,100.98,2,21,2,0)
should be as short as possible without being obscure. This name is
"^DD",100.98,100.98,2,21,3,0)
primarily intended for use in the windows display of orders.
"^DD",100.98,100.98,2,"DT")
2960617
"^DD",100.98,100.98,3,0)
SHORT NAME^F^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
"^DD",100.98,100.98,3,1,0)
^.1
"^DD",100.98,100.98,3,1,1,0)
100.98^B^MNEMONIC
"^DD",100.98,100.98,3,1,1,1)
S:'$D(^ORD(100.98,"B",$E(X,1,30),DA)) ^(DA)=1
"^DD",100.98,100.98,3,1,1,2)
I $D(^ORD(100.98,"B",$E(X,1,30),DA)),^(DA) K ^(DA)
"^DD",100.98,100.98,3,3)
ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
"^DD",100.98,100.98,3,21,0)
^^2^2^2920224^^^
"^DD",100.98,100.98,3,21,1,0)
This is an abbreviation for the display group to be used in displays and
"^DD",100.98,100.98,3,21,2,0)
reports.
"^DD",100.98,100.98,3,"DT")
2880308
"^DD",100.98,100.98,4,0)
DEFAULT DIALOG^P101.41'^ORD(101.41,^0;4^Q
"^DD",100.98,100.98,4,3)
Enter the default ordering dialog for this display group.
"^DD",100.98,100.98,4,21,0)
^^2^2^2960815^^
"^DD",100.98,100.98,4,21,1,0)
This is the dialog that will be used as the default definition when
"^DD",100.98,100.98,4,21,2,0)
placing quick orders associated with this display group.
"^DD",100.98,100.98,4,"DT")
2960814
"^DD",100.98,100.981,0)
MEMBER SUB-FIELD^^.01^2
"^DD",100.98,100.981,0,"DT")
2920601
"^DD",100.98,100.981,0,"IX","B",100.981,.01)
"^DD",100.98,100.981,0,"NM","MEMBER")
"^DD",100.98,100.981,0,"UP")
100.98
"^DD",100.98,100.981,.001,0)
SEQUENCE^NJ5,1^^ ^K:+X'=X!(X>900)!(X<0)!(X?.E1"."2N.N) X
"^DD",100.98,100.981,.001,3)
Type a Number between 0 and 900, 1 Decimal Digit
"^DD",100.98,100.981,.001,21,0)
^^2^2^2920601^
"^DD",100.98,100.981,.001,21,1,0)
This is the sequence of the member in the display group for reporting
"^DD",100.98,100.981,.001,21,2,0)
purposes.
"^DD",100.98,100.981,.001,"DT")
2920601
"^DD",100.98,100.981,.01,0)
MEMBER^MP100.98X^ORD(100.98,^0;1^S ORDDF=100.98 D TREE^ORDD101
"^DD",100.98,100.981,.01,1,0)
^.1
"^DD",100.98,100.981,.01,1,1,0)
100.981^B
"^DD",100.98,100.981,.01,1,1,1)
S ^ORD(100.98,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",100.98,100.981,.01,1,1,2)
K ^ORD(100.98,DA(1),1,"B",$E(X,1,30),DA)
"^DD",100.98,100.981,.01,1,2,0)
100.98^AD^MUMPS
"^DD",100.98,100.981,.01,1,2,1)
S ^ORD(100.98,"AD",$E(X,1,30),DA(1),DA)=""
"^DD",100.98,100.981,.01,1,2,2)
K ^ORD(100.98,"AD",$E(X,1,30),DA(1),DA)
"^DD",100.98,100.981,.01,1,2,"%D",0)
^^2^2^2971217^^
"^DD",100.98,100.981,.01,1,2,"%D",1,0)
^ORD(100.98,"AD",ORMEM,ORGRP,DA)
"^DD",100.98,100.981,.01,1,2,"%D",2,0)
Provides backwards pointer from member to parent group.
"^DD",100.98,100.981,.01,3)
Enter a display group. A display group that is an ancestor may not also be a member.
"^DD",100.98,100.981,.01,4)
"^DD",100.98,100.981,.01,21,0)
^^2^2^2920224^^^
"^DD",100.98,100.981,.01,21,1,0)
This is a display group listed in the NAME field. (This is similar to a
"^DD",100.98,100.981,.01,21,2,0)
menu item in the OPTION File.)
"^DD",100.98,100.981,.01,"DT")
2890207
"^DD",101.41,101.41,0)
FIELD^^99^30
"^DD",101.41,101.41,0,"DDA")
N
"^DD",101.41,101.41,0,"DT")
2980501
"^DD",101.41,101.41,0,"IX","AB",101.41,.01)
"^DD",101.41,101.41,0,"IX","AD",101.412,2)
"^DD",101.41,101.41,0,"IX","AM",101.41,99)
"^DD",101.41,101.41,0,"IX","AM2",101.41,2)
"^DD",101.41,101.41,0,"IX","AM51",101.41,51)
"^DD",101.41,101.41,0,"IX","AM52",101.41,52)
"^DD",101.41,101.41,0,"IX","AMM",101.412,.01)
"^DD",101.41,101.41,0,"IX","AMM2",101.412,2)
"^DD",101.41,101.41,0,"IX","AMM3",101.412,3)
"^DD",101.41,101.41,0,"IX","AMM4",101.412,4)
"^DD",101.41,101.41,0,"IX","AMM5",101.412,5)
"^DD",101.41,101.41,0,"IX","APKG",101.41,7)
"^DD",101.41,101.41,0,"IX","C",101.41,2)
"^DD",101.41,101.41,0,"NM","ORDER DIALOG")
"^DD",101.41,101.41,0,"PT",100,2)
"^DD",101.41,101.41,0,"PT",100,7)
"^DD",101.41,101.41,0,"PT",100.045,.02)
"^DD",101.41,101.41,0,"PT",100.5,4)
"^DD",101.41,101.41,0,"PT",100.5,5)
"^DD",101.41,101.41,0,"PT",100.98,4)
"^DD",101.41,101.41,0,"PT",101.412,1)
"^DD",101.41,101.41,0,"PT",101.412,2)
"^DD",101.41,101.41,0,"PT",101.415,2)
"^DD",101.41,101.41,0,"PT",101.416,.02)
"^DD",101.41,101.41,0,"PT",101.441,.01)
"^DD",101.41,101.41,0,"PT",801.41,15)
"^DD",101.41,101.41,0,"PT",801.4118,.01)
"^DD",101.41,101.41,0,"VRPK")
OR
"^DD",101.41,101.41,.01,0)
NAME^RF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<3)!'(X'?1P.E) X
"^DD",101.41,101.41,.01,1,0)
^.1^^-1
"^DD",101.41,101.41,.01,1,2,0)
101.41^AB
"^DD",101.41,101.41,.01,1,2,1)
S ^ORD(101.41,"AB",$E(X,1,63),DA)=""
"^DD",101.41,101.41,.01,1,2,2)
K ^ORD(101.41,"AB",$E(X,1,63),DA)
"^DD",101.41,101.41,.01,1,2,"%D",0)
^^1^1^2971020^
"^DD",101.41,101.41,.01,1,2,"%D",1,0)
This is a regular index on the full 63 characters of the Name field.
"^DD",101.41,101.41,.01,1,2,"DT")
2971020
"^DD",101.41,101.41,.01,3)
Answer must be 3-63 characters in length.
"^DD",101.41,101.41,.01,21,0)
^^3^3^2971219^
"^DD",101.41,101.41,.01,21,1,0)
This is the name of the dialog; entries that were converted from the
"^DD",101.41,101.41,.01,21,2,0)
Protocol file will retain the same name. Namespacing is not required,
"^DD",101.41,101.41,.01,21,3,0)
but still encouraged.
"^DD",101.41,101.41,.01,"DT")
2971020
"^DD",101.41,101.41,2,0)
DISPLAY TEXT^FX^^0;2^K:$L(X)>80!($L(X)<3)!($$CHKNAM^ORUTL(X)) X
"^DD",101.41,101.41,2,1,0)
^.1
"^DD",101.41,101.41,2,1,1,0)
101.41^C
"^DD",101.41,101.41,2,1,1,1)
S ^ORD(101.41,"C",$$UP^XLFSTR($E(X,1,63)),DA)=""
"^DD",101.41,101.41,2,1,1,2)
K ^ORD(101.41,"C",$$UP^XLFSTR($E(X,1,63)),DA)
"^DD",101.41,101.41,2,1,1,"DT")
2950112
"^DD",101.41,101.41,2,1,2,0)
101.41^AM2^MUMPS
"^DD",101.41,101.41,2,1,2,1)
D REDOM^ORDD41
"^DD",101.41,101.41,2,1,2,2)
D REDOM^ORDD41
"^DD",101.41,101.41,2,1,2,"%D",0)
^^1^1^2990210^
"^DD",101.41,101.41,2,1,2,"%D",1,0)
Update TIMESTAMP whenever DISPLAY TEXT is changed.
"^DD",101.41,101.41,2,1,2,"DT")
2990210
"^DD",101.41,101.41,2,3)
Answer must be 3-80 characters in length and cannot contain a semicolon (;), a comma (,), an up-arrow (^), a dash (-), or an equal sign (=).
"^DD",101.41,101.41,2,21,0)
^.001^1^1^3010913^^^^
"^DD",101.41,101.41,2,21,1,0)
The text of this dialog's name as it appears on a menu or subheader.
"^DD",101.41,101.41,2,"DT")
3000823
"^DD",101.41,101.41,3,0)
DISABLE^F^^0;3^K:$L(X)>40!($L(X)<1) X
"^DD",101.41,101.41,3,3)
Enter a message here to disable this dialog, 1-40 characters in length.
"^DD",101.41,101.41,3,21,0)
^^3^3^2950112^
"^DD",101.41,101.41,3,21,1,0)
This field disables use of this dialog when it contains text. The text
"^DD",101.41,101.41,3,21,2,0)
should be a short message explaining why use of this dialog has been
"^DD",101.41,101.41,3,21,3,0)
disabled, as it will be displayed if this dialog is selected.
"^DD",101.41,101.41,3,"DT")
2950112
"^DD",101.41,101.41,4,0)
TYPE^RS^P:prompt;D:dialog;Q:quick order;O:order set;M:menu;A:action;^0;4^Q
"^DD",101.41,101.41,4,3)
Specify a type for this dialog.
"^DD",101.41,101.41,4,21,0)
^^5^5^2950716^^^^
"^DD",101.41,101.41,4,21,1,0)
This field defines the type of order dialog to be processed. Control
"^DD",101.41,101.41,4,21,2,0)
will be passed to the OE/RR Dialog Processor for dialog items; menu types
"^DD",101.41,101.41,4,21,3,0)
are used for displaying and selecting dialog items. Action types will only
"^DD",101.41,101.41,4,21,4,0)
execute the entry and exit actions, ignoring any items that may exist; these
"^DD",101.41,101.41,4,21,5,0)
dialogs should not create entries in the Orders file.
"^DD",101.41,101.41,4,"DT")
2950716
"^DD",101.41,101.41,5,0)
DISPLAY GROUP^P100.98'^ORD(100.98,^0;5^Q
"^DD",101.41,101.41,5,3)
Enter the display group containing orderable items defined by this dialog.
"^DD",101.41,101.41,5,21,0)
^^3^3^2950112^
"^DD",101.41,101.41,5,21,1,0)
This field determines what display group this dialog has been defined for.
"^DD",101.41,101.41,5,21,2,0)
It will define which orderable items are selectable with this dialog,
"^DD",101.41,101.41,5,21,3,0)
as well as what service to send the order to when it is complete.
"^DD",101.41,101.41,5,"DT")
2950112
"^DD",101.41,101.41,6,0)
SIGNATURE REQUIRED^S^0:NONE;1:ORELSE;2:ORES;^0;6^Q
"^DD",101.41,101.41,6,3)
Enter the OR key required to sign orders created by this dialog
"^DD",101.41,101.41,6,21,0)
^^6^6^2970318^^
"^DD",101.41,101.41,6,21,1,0)
This field indicates what signature will be required for orders created by
"^DD",101.41,101.41,6,21,2,0)
this dialog, to be considered complete and ready to release to the service
"^DD",101.41,101.41,6,21,3,0)
for action. If this flag is set to NO and the dialog contains a prompt
"^DD",101.41,101.41,6,21,4,0)
for item(s) from the Orderable Item file, the order created may still
"^DD",101.41,101.41,6,21,5,0)
require a signature if any of the items ordered are individually flagged
"^DD",101.41,101.41,6,21,6,0)
as requiring a signature.
"^DD",101.41,101.41,6,"DT")
2970318
"^DD",101.41,101.41,7,0)
PACKAGE^P9.4'^DIC(9.4,^0;7^Q
"^DD",101.41,101.41,7,1,0)
^.1
"^DD",101.41,101.41,7,1,1,0)
101.41^APKG
"^DD",101.41,101.41,7,1,1,1)
S ^ORD(101.41,"APKG",$E(X,1,30),DA)=""
"^DD",101.41,101.41,7,1,1,2)
K ^ORD(101.41,"APKG",$E(X,1,30),DA)
"^DD",101.41,101.41,7,1,1,"DT")
2970325
"^DD",101.41,101.41,7,3)
Enter the VISTA package that is to receive orders created by this dialog.
"^DD",101.41,101.41,7,21,0)
^^3^3^2950208^
"^DD",101.41,101.41,7,21,1,0)
This is the VISTA package that is intended to receive orders created by
"^DD",101.41,101.41,7,21,2,0)
this dialog; this is required for creating the HL7 messages to pass the
"^DD",101.41,101.41,7,21,3,0)
order.
"^DD",101.41,101.41,7,"DT")
2970325
"^DD",101.41,101.41,8,0)
VERIFY ORDER^S^1:YES;0:NO;^0;8^Q
"^DD",101.41,101.41,8,3)
Enter YES to have orders created by this dialog presented to the user before saving, with the opportunity to edit.
"^DD",101.41,101.41,8,21,0)
^^3^3^2950623^
"^DD",101.41,101.41,8,21,1,0)
This field is a flag, which determines if the order created by this dialog
"^DD",101.41,101.41,8,21,2,0)
will be presented to the user for verification before saving in the Orders
"^DD",101.41,101.41,8,21,3,0)
file; for most quick orders, this flag should be set to 0 (no).
"^DD",101.41,101.41,8,"DT")
2950623
"^DD",101.41,101.41,9,0)
ASK FOR ANOTHER ORDER^S^0:NO;1:YES;2:YES-DON'T ASK;^0;9^Q
"^DD",101.41,101.41,9,3)
Enter YES to have the user asked to enter another order from this dialog before exiting.
"^DD",101.41,101.41,9,21,0)
^^6^6^2970616^^^
"^DD",101.41,101.41,9,21,1,0)
This field allows the user to add another order from this dialog, when the
"^DD",101.41,101.41,9,21,2,0)
initial order is accepted and placed; if set to YES, the user will be
"^DD",101.41,101.41,9,21,3,0)
asked "Add another