Index: /immunizations_hl7/REALLY_README.txt =================================================================== --- /immunizations_hl7/REALLY_README.txt (revision 1573) +++ /immunizations_hl7/REALLY_README.txt (revision 1573) @@ -0,0 +1,4 @@ +DO NOT USE THIS FOR ACTUALLY DOCUMENTING PATIENT IMMUNIZATIONS. ONLY USE FOR +ATTESTATION FOR MEANINGFUL USE PART I. + +USE OF THIS PACKAGE CLINICALLY WILL LEAD TO PATIENT HARM. Index: /immunizations_hl7/VWIMM_0P1.KID =================================================================== --- /immunizations_hl7/VWIMM_0P1.KID (revision 1573) +++ /immunizations_hl7/VWIMM_0P1.KID (revision 1573) @@ -0,0 +1,5672 @@ +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,6,0) +MU IMM REGISTRY DI +"DATA",811.8,167,100,7,0) +MANAGER,SYSTEM +"DATA",811.8,167,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,167,100,9,0) +09/20/2012@00:03:58 +"DATA",811.8,167,100,10,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 order?" to allow for either +"^DD",101.41,101.41,9,21,4,0) +exiting the processor or adding an additional order of the same type. +"^DD",101.41,101.41,9,21,5,0) +This field can also be set to YES-DON'T ASK to force the processor to +"^DD",101.41,101.41,9,21,6,0) +automatically drop into prompting for another order without asking first. +"^DD",101.41,101.41,9,"DT") +2970616 +"^DD",101.41,101.41,10,0) +ITEMS^101.412IA^^10;0 +"^DD",101.41,101.41,10,21,0) +^^5^5^2990211^^^^ +"^DD",101.41,101.41,10,21,1,0) +This field contains the components for dialogs: +"^DD",101.41,101.41,10,21,2,0) + Dialogs -> prompts +"^DD",101.41,101.41,10,21,3,0) + Quick orders -> prompts (completed) +"^DD",101.41,101.41,10,21,4,0) + Order sets -> dialogs or quick orders +"^DD",101.41,101.41,10,21,5,0) + Menus -> dialogs, quick orders, or order sets +"^DD",101.41,101.41,11,0) +DATA TYPE^S^D:date/time;R:free text date/time;F:free text;N:numeric;S:set of codes;Y:yes/no;P:pointer;W:word processing;^1;1^Q +"^DD",101.41,101.41,11,3) +Enter the type of data to be collected at this prompt. +"^DD",101.41,101.41,11,21,0) +^^2^2^2950823^^ +"^DD",101.41,101.41,11,21,1,0) +This is the type of data being prompted for; this field is used to define +"^DD",101.41,101.41,11,21,2,0) +a call to the reader (^DIR) in most cases. +"^DD",101.41,101.41,11,23,0) +^^1^1^2950823^^ +"^DD",101.41,101.41,11,23,1,0) +Used with Prompt-type only. +"^DD",101.41,101.41,11,"DT") +2950407 +"^DD",101.41,101.41,12,0) +DOMAIN^F^^1;2^K:$L(X)>235!($L(X)<1) X +"^DD",101.41,101.41,12,3) +Answer must be 1-235 characters in length. +"^DD",101.41,101.41,12,21,0) +^^3^3^2990225^^^^ +"^DD",101.41,101.41,12,21,1,0) +This is a parameter that may be used to further specify the data type. +"^DD",101.41,101.41,12,21,2,0) +The string stored here should be appropriate for the second ^-piece of +"^DD",101.41,101.41,12,21,3,0) +DIR(0) when used with the data type field. +"^DD",101.41,101.41,12,23,0) +^^1^1^2990225^^^^ +"^DD",101.41,101.41,12,23,1,0) +Used with Prompt-type only. +"^DD",101.41,101.41,12,"DT") +2990225 +"^DD",101.41,101.41,13,0) +ID^F^^1;3^K:$L(X)>10!($L(X)<2) X +"^DD",101.41,101.41,13,3) +Answer must be 2-10 characters in length. +"^DD",101.41,101.41,13,21,0) +^.001^20^20^3010727^^ +"^DD",101.41,101.41,13,21,1,0) +This field may contain a single word identifier which will be +"^DD",101.41,101.41,13,21,2,0) +stored with the user response in the Orders file #100, where it +"^DD",101.41,101.41,13,21,3,0) +will be indexed for quick reference to certain values in the +"^DD",101.41,101.41,13,21,4,0) +order dialog. The following are some examples of values +"^DD",101.41,101.41,13,21,5,0) +currently in use: +"^DD",101.41,101.41,13,21,6,0) + +"^DD",101.41,101.41,13,21,7,0) + START -> Start date/time +"^DD",101.41,101.41,13,21,8,0) + STOP -> Stop date/time +"^DD",101.41,101.41,13,21,9,0) + SCHEDULE -> Administration Schedule +"^DD",101.41,101.41,13,21,10,0) + ORDERABLE -> Orderable Item +"^DD",101.41,101.41,13,21,11,0) + DRUG -> Dispense Drug +"^DD",101.41,101.41,13,21,12,0) + CANCEL -> Cancel Future Orders flag +"^DD",101.41,101.41,13,21,13,0) + COMMENT -> Word processing comments +"^DD",101.41,101.41,13,21,14,0) + +"^DD",101.41,101.41,13,21,15,0) +These values must be unique among entries within an order dialog +"^DD",101.41,101.41,13,21,16,0) +but do not need to be unique across the entire file. Be sure to +"^DD",101.41,101.41,13,21,17,0) +check the IDs assigned to generic text entries to make sure that +"^DD",101.41,101.41,13,21,18,0) +all IDs are unique. In order to avoid potential problems it's +"^DD",101.41,101.41,13,21,19,0) +recommended that you use unique IDs for any local entries that you +"^DD",101.41,101.41,13,21,20,0) +create. +"^DD",101.41,101.41,13,"DT") +2960215 +"^DD",101.41,101.41,17,0) +VALIDATION^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.41,17,3) +This is Standard MUMPS code. +"^DD",101.41,101.41,17,9) +@ +"^DD",101.41,101.41,17,21,0) +^^3^3^2960912^ +"^DD",101.41,101.41,17,21,1,0) +This is MUMPS code that will be executed at the time of releasing an +"^DD",101.41,101.41,17,21,2,0) +order created with this dialog; dialog responses may be checked again +"^DD",101.41,101.41,17,21,3,0) +here before releasing the order to the service. +"^DD",101.41,101.41,17,"DT") +2960912 +"^DD",101.41,101.41,19,0) +ADDITIONAL TEXT^K^^9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.41,19,3) +This is Standard MUMPS code. +"^DD",101.41,101.41,19,9) +@ +"^DD",101.41,101.41,19,21,0) +^^3^3^2960405^^ +"^DD",101.41,101.41,19,21,1,0) +This is MUMPS code that will be executed when order ORIFN created by this +"^DD",101.41,101.41,19,21,2,0) +dialog is about to be displayed; any string that should be appended to the +"^DD",101.41,101.41,19,21,3,0) +order text should be returned in Y. +"^DD",101.41,101.41,19,"DT") +2960405 +"^DD",101.41,101.41,20,0) +DESCRIPTION^101.411^^2;0 +"^DD",101.41,101.41,20,21,0) +^^1^1^2971219^ +"^DD",101.41,101.41,20,21,1,0) +This is a description of the dialog and its uses. +"^DD",101.41,101.41,21,0) +RESPONSES^101.416^^6;0 +"^DD",101.41,101.41,21,21,0) +^^2^2^2971219^ +"^DD",101.41,101.41,21,21,1,0) +This multiple contains any responses to prompts that have been pre-answered +"^DD",101.41,101.41,21,21,2,0) +to create a quick order. +"^DD",101.41,101.41,30,0) +ENTRY ACTION^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.41,30,3) +This is Standard MUMPS code. +"^DD",101.41,101.41,30,9) +@ +"^DD",101.41,101.41,30,21,0) +^^4^4^2950425^ +"^DD",101.41,101.41,30,21,1,0) +This is MUMPS code that will be executed at the top of a dialog, prior to +"^DD",101.41,101.41,30,21,2,0) +the execution of any prompts; it may perform functions such as listing +"^DD",101.41,101.41,30,21,3,0) +the recent Radiology exams before ordering a new one, or alerting the +"^DD",101.41,101.41,30,21,4,0) +user to an existing diet order before making a change. +"^DD",101.41,101.41,30,"DT") +2950425 +"^DD",101.41,101.41,31,0) +QUICK SETUP^K^^3.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.41,31,3) +This is Standard MUMPS code. +"^DD",101.41,101.41,31,9) +@ +"^DD",101.41,101.41,31,21,0) +^^3^3^2970113^ +"^DD",101.41,101.41,31,21,1,0) +This is MUMPS code that will be executed in the place of the Entry Action +"^DD",101.41,101.41,31,21,2,0) +when creating quick orders for this dialog; variables may be set here +"^DD",101.41,101.41,31,21,3,0) +instead to bypass the usual dependence on specific patient values. +"^DD",101.41,101.41,31,"DT") +2970113 +"^DD",101.41,101.41,40,0) +EXIT ACTION^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.41,40,3) +This is Standard MUMPS code. +"^DD",101.41,101.41,40,9) +@ +"^DD",101.41,101.41,40,21,0) +^^2^2^2950622^ +"^DD",101.41,101.41,40,21,1,0) +This is MUMPS code that will be executed upon completion of processing the +"^DD",101.41,101.41,40,21,2,0) +dialog; it is currently used only with dialog-type entries. +"^DD",101.41,101.41,40,"DT") +2950622 +"^DD",101.41,101.41,50,0) +CONTROLS^101.415A^^50;0 +"^DD",101.41,101.41,51,0) +COLUMN WIDTH^NJ3,0^^5;1^K:+X'=X!(X>240)!(X<20)!(X?.E1"."1N.N) X +"^DD",101.41,101.41,51,1,0) +^.1 +"^DD",101.41,101.41,51,1,1,0) +101.41^AM51^MUMPS +"^DD",101.41,101.41,51,1,1,1) +D REDO^ORDD41 +"^DD",101.41,101.41,51,1,1,2) +D REDO^ORDD41 +"^DD",101.41,101.41,51,1,1,"%D",0) +^^1^1^2990210^ +"^DD",101.41,101.41,51,1,1,"%D",1,0) +Update TIMESTAMP whenever COLUMN WIDTH is changed. +"^DD",101.41,101.41,51,1,1,"DT") +2990210 +"^DD",101.41,101.41,51,3) +Type a Number between 20 and 240, 0 Decimal Digits +"^DD",101.41,101.41,51,21,0) +^^2^2^2950623^ +"^DD",101.41,101.41,51,21,1,0) +This is the width, in characters, for each column in a menu. For example, +"^DD",101.41,101.41,51,21,2,0) +to have 3 columns on an 80 character device, enter a width of 26. +"^DD",101.41,101.41,51,"DT") +2990210 +"^DD",101.41,101.41,52,0) +MNEMONIC WIDTH^NJ1,0^^5;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X +"^DD",101.41,101.41,52,1,0) +^.1 +"^DD",101.41,101.41,52,1,1,0) +101.41^AM52^MUMPS +"^DD",101.41,101.41,52,1,1,1) +D REDO^ORDD41 +"^DD",101.41,101.41,52,1,1,2) +D REDO^ORDD41 +"^DD",101.41,101.41,52,1,1,"%D",0) +^^1^1^2990210^ +"^DD",101.41,101.41,52,1,1,"%D",1,0) +Update TIMESTAMP whenever MNEMONIC WIDTH is changed. +"^DD",101.41,101.41,52,1,1,"DT") +2990210 +"^DD",101.41,101.41,52,3) +Type a Number between 1 and 9, 0 Decimal Digits +"^DD",101.41,101.41,52,21,0) +^^2^2^2950623^ +"^DD",101.41,101.41,52,21,1,0) +This field allows the width of item mnemonics to be varied; the default +"^DD",101.41,101.41,52,21,2,0) +value is 5. +"^DD",101.41,101.41,52,"DT") +2990210 +"^DD",101.41,101.41,53,0) +PATH SWITCH^S^1:YES;0:NO;^5;3^Q +"^DD",101.41,101.41,53,3) +Enter YES if this menu should be redisplayed when traversing back up the menu tree. +"^DD",101.41,101.41,53,21,0) +^^5^5^2950623^ +"^DD",101.41,101.41,53,21,1,0) +This switch allows the user, when traversing back UP the tree of menus and +"^DD",101.41,101.41,53,21,2,0) +items, to select a new path back down the tree. In other words, the menu +"^DD",101.41,101.41,53,21,3,0) +is redisplayed when returning to that menu's level in the tree and +"^DD",101.41,101.41,53,21,4,0) +processing back down the tree is possible from that point. If nothing is +"^DD",101.41,101.41,53,21,5,0) +selected from the menu, the path continues back up the tree. +"^DD",101.41,101.41,53,"DT") +2950623 +"^DD",101.41,101.41,54,0) +LISTBOX TEXT^F^^5;4^K:$L(X)>30!($L(X)<1) X +"^DD",101.41,101.41,54,3) +Answer must be 1-30 characters in length. +"^DD",101.41,101.41,54,"DT") +2960524 +"^DD",101.41,101.41,55,0) +WINDOW FORM ID^NJ4,0^^5;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X +"^DD",101.41,101.41,55,3) +Type a Number between 0 and 9999, 0 Decimal Digits +"^DD",101.41,101.41,55,21,0) +^.001^23^23^3010727^^ +"^DD",101.41,101.41,55,21,1,0) +This field tells the GUI DELPHI code which form to use to process the +"^DD",101.41,101.41,55,21,2,0) +order dialog. Each number represents a unique form. Following are some +"^DD",101.41,101.41,55,21,3,0) +of the more common codes and their corresponding form in DELPHI. +"^DD",101.41,101.41,55,21,4,0) + +"^DD",101.41,101.41,55,21,5,0) + Form Name Windows Form ID +"^DD",101.41,101.41,55,21,6,0) + --------- --------------- +"^DD",101.41,101.41,55,21,7,0) + OD_ACTIVITY 100 +"^DD",101.41,101.41,55,21,8,0) + OD_ALLERGY 105 +"^DD",101.41,101.41,55,21,9,0) + OD_CONSULT 110 +"^DD",101.41,101.41,55,21,10,0) + OD_PROCEDURE 112 +"^DD",101.41,101.41,55,21,11,0) + OD_DIET_TXT 115 +"^DD",101.41,101.41,55,21,12,0) + OD_DIET 117 +"^DD",101.41,101.41,55,21,13,0) + OD_LAB 120 +"^DD",101.41,101.41,55,21,14,0) + OD_MEDINPT 130 +"^DD",101.41,101.41,55,21,15,0) + OD_MEDS 135 +"^DD",101.41,101.41,55,21,16,0) + OD_MEDOUTPT 140 +"^DD",101.41,101.41,55,21,17,0) + OD_NURSING 150 +"^DD",101.41,101.41,55,21,18,0) + OD_MISC 151 +"^DD",101.41,101.41,55,21,19,0) + OD_GENERIC 152 +"^DD",101.41,101.41,55,21,20,0) + OD_IMAGING 160 +"^DD",101.41,101.41,55,21,21,0) + OD_VITALS 171 +"^DD",101.41,101.41,55,21,22,0) + OD_MEDIV 180 +"^DD",101.41,101.41,55,21,23,0) + OD_TEXTONLY 999 +"^DD",101.41,101.41,55,"DT") +2960804 +"^DD",101.41,101.41,56,0) +CREATE PARENT ORDER^S^1:YES;0:NO;^5;6^Q +"^DD",101.41,101.41,56,3) +Enter YES if a parent order should be created for this order set +"^DD",101.41,101.41,56,21,0) +^^6^6^2970227^ +"^DD",101.41,101.41,56,21,1,0) +This flag indicates whether a parent order should be created to group +"^DD",101.41,101.41,56,21,2,0) +together all the orders created by this order set; this flag is only +"^DD",101.41,101.41,56,21,3,0) +valid with SET type order dialogs. If this value is YES, a parent +"^DD",101.41,101.41,56,21,4,0) +order will be created, and only the parent will be presented on the +"^DD",101.41,101.41,56,21,5,0) +orders list for display and action; NO will prevent a parent from being +"^DD",101.41,101.41,56,21,6,0) +created and all orders will be created and displayed independently. +"^DD",101.41,101.41,56,"DT") +2970227 +"^DD",101.41,101.41,57,0) +DISPLAY SUBHEADER^S^1:YES;0:NO;^5;7^Q +"^DD",101.41,101.41,57,3) +Enter YES if a subheader should be displayed as each order in this set is processed +"^DD",101.41,101.41,57,21,0) +^^3^3^2970227^ +"^DD",101.41,101.41,57,21,1,0) +This flag indicates whether a subheader is to be displayed for each order +"^DD",101.41,101.41,57,21,2,0) +in this set as it is processed and placed; this flag is only valid with +"^DD",101.41,101.41,57,21,3,0) +SET type order dialogs. +"^DD",101.41,101.41,57,"DT") +2970227 +"^DD",101.41,101.41,58,0) +AUTO-ACCEPT QUICK ORDER^S^1:YES;^5;8^Q +"^DD",101.41,101.41,58,3) +Enter 'Yes' if the order should be placed without displaying the dialog window. +"^DD",101.41,101.41,58,21,0) +^^2^2^2980902^ +"^DD",101.41,101.41,58,21,1,0) +This can be set to yes for a quick order so that it can be placed simply +"^DD",101.41,101.41,58,21,2,0) +by clicking on it in the GUI (no ordering dialog is displayed). +"^DD",101.41,101.41,58,"DT") +2980902 +"^DD",101.41,101.41,99,0) +TIMESTAMP^F^^99;1^K:$L(X)>15!($L(X)<1) X +"^DD",101.41,101.41,99,1,0) +^.1 +"^DD",101.41,101.41,99,1,1,0) +101.41^AM^MUMPS +"^DD",101.41,101.41,99,1,1,1) +D SET^ORDD41(DA) +"^DD",101.41,101.41,99,1,1,2) +D KILL^ORDD41(DA) +"^DD",101.41,101.41,99,1,1,"%D",0) +^^2^2^2990210^ +"^DD",101.41,101.41,99,1,1,"%D",1,0) +Recompiles order dialog menus in ^XUTL("XQORM",_";ORD(101.41,") +"^DD",101.41,101.41,99,1,1,"%D",2,0) +whenever fields necessary to displaying the menu are changed. +"^DD",101.41,101.41,99,1,1,"DT") +2990210 +"^DD",101.41,101.41,99,3) +Answer must be 1-15 characters in length. +"^DD",101.41,101.41,99,21,0) +^^2^2^2980501^ +"^DD",101.41,101.41,99,21,1,0) +For menus, this contains the $H time the menu was last compiled for use +"^DD",101.41,101.41,99,21,2,0) +with the Unwinder utility (^XQOR). +"^DD",101.41,101.41,99,"DT") +2990210 +"^DD",101.41,101.411,0) +DESCRIPTION SUB-FIELD^^.01^1 +"^DD",101.41,101.411,0,"DT") +2950407 +"^DD",101.41,101.411,0,"NM","DESCRIPTION") + +"^DD",101.41,101.411,0,"UP") +101.41 +"^DD",101.41,101.411,.01,0) +DESCRIPTION^W^^0;1^Q +"^DD",101.41,101.411,.01,3) +Enter a description of this dialog. +"^DD",101.41,101.411,.01,21,0) +^^1^1^2950425^^ +"^DD",101.41,101.411,.01,21,1,0) +This field contains a description of the content and use of this dialog. +"^DD",101.41,101.411,.01,"DT") +2950407 +"^DD",101.41,101.412,0) +ITEMS SUB-FIELD^^117^37 +"^DD",101.41,101.412,0,"DT") +2971117 +"^DD",101.41,101.412,0,"ID","WRITE") +N OR0,ORNM S OR0=^(0) I $P(OR0,U,2) S ORNM=$P($G(^ORD(101.41,+$P(OR0,U,2),0)),U) D:$L(ORNM) EN^DDIOL(ORNM,,"?10") +"^DD",101.41,101.412,0,"IX","ATXT",101.412,21) + +"^DD",101.41,101.412,0,"IX","B",101.412,.01) + +"^DD",101.41,101.412,0,"IX","D",101.412,2) + +"^DD",101.41,101.412,0,"IX","DAD",101.412,1) + +"^DD",101.41,101.412,0,"IX","DAD1",101.412,.01) + +"^DD",101.41,101.412,0,"NM","ITEMS") + +"^DD",101.41,101.412,0,"UP") +101.41 +"^DD",101.41,101.412,.01,0) +SEQUENCE^MNJ5,1^^0;1^K:+X'=X!(X>999.9)!(X<.1)!(X?.E1"."2N.N) X +"^DD",101.41,101.412,.01,1,0) +^.1 +"^DD",101.41,101.412,.01,1,1,0) +101.412^B +"^DD",101.41,101.412,.01,1,1,1) +S ^ORD(101.41,DA(1),10,"B",$E(X,1,30),DA)="" +"^DD",101.41,101.412,.01,1,1,2) +K ^ORD(101.41,DA(1),10,"B",$E(X,1,30),DA) +"^DD",101.41,101.412,.01,1,2,0) +101.412^DAD1^MUMPS +"^DD",101.41,101.412,.01,1,2,1) +N ORP S ORP=$P(^ORD(101.41,DA(1),10,DA,0),U,11) S:ORP ^ORD(101.41,DA(1),10,"DAD",ORP,X,DA)="" +"^DD",101.41,101.412,.01,1,2,2) +N ORP S ORP=$P(^ORD(101.41,DA(1),10,DA,0),U,11) K:ORP ^ORD(101.41,DA(1),10,"DAD",ORP,X,DA) +"^DD",101.41,101.412,.01,1,2,"%D",0) +^^1^1^2950511^ +"^DD",101.41,101.412,.01,1,2,"%D",1,0) +Allows retrieval of 'child' prompts in sequence by parent. +"^DD",101.41,101.412,.01,1,2,"DT") +2950511 +"^DD",101.41,101.412,.01,1,3,0) +101.41^AMM^MUMPS +"^DD",101.41,101.412,.01,1,3,1) +D REDOX^ORDD41 +"^DD",101.41,101.412,.01,1,3,2) +D REDOX^ORDD41 +"^DD",101.41,101.412,.01,1,3,"%D",0) +^^1^1^2990210^ +"^DD",101.41,101.412,.01,1,3,"%D",1,0) +Update TIMESTAMP whenever SEQUENCE is changed. +"^DD",101.41,101.412,.01,1,3,"DT") +2990210 +"^DD",101.41,101.412,.01,3) +Type a Number between .1 and 999.9, 1 Decimal Digit +"^DD",101.41,101.412,.01,21,0) +^^2^2^2971117^^^^ +"^DD",101.41,101.412,.01,21,1,0) +This field specifies the order in which this item will be displayed or +"^DD",101.41,101.412,.01,21,2,0) +processed. +"^DD",101.41,101.412,.01,"DT") +2990210 +"^DD",101.41,101.412,.1,0) +INPUT TRANSFORM^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,.1,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,.1,9) +@ +"^DD",101.41,101.412,.1,21,0) +^^2^2^2950816^ +"^DD",101.41,101.412,.1,21,1,0) +This is code that will be used as the third piece of DIR(0) when asking +"^DD",101.41,101.412,.1,21,2,0) +this prompt. +"^DD",101.41,101.412,.1,"DT") +2950816 +"^DD",101.41,101.412,1,0) +PARENT^P101.41'^ORD(101.41,^0;11^Q +"^DD",101.41,101.412,1,1,0) +^.1 +"^DD",101.41,101.412,1,1,1,0) +101.412^DAD^MUMPS +"^DD",101.41,101.412,1,1,1,1) +S ^ORD(101.41,DA(1),10,"DAD",X,$P(^ORD(101.41,DA(1),10,DA,0),U),DA)="" +"^DD",101.41,101.412,1,1,1,2) +K ^ORD(101.41,DA(1),10,"DAD",X,$P(^ORD(101.41,DA(1),10,DA,0),U),DA) +"^DD",101.41,101.412,1,1,1,"%D",0) +^^1^1^2950511^^ +"^DD",101.41,101.412,1,1,1,"%D",1,0) +Allows retrieval of 'child' prompts in sequence by parent. +"^DD",101.41,101.412,1,1,1,"DT") +2950511 +"^DD",101.41,101.412,1,3) +If this prompt is subordinate to another in this dialog, enter the parent prompt here +"^DD",101.41,101.412,1,21,0) +^^4^4^2950511^ +"^DD",101.41,101.412,1,21,1,0) +This field controls the behavior of this prompt. If a parent is defined +"^DD",101.41,101.412,1,21,2,0) +here, this prompt will be asked from within the parent's dialog; when it +"^DD",101.41,101.412,1,21,3,0) +is invoked independently based on its position sequence number, the child +"^DD",101.41,101.412,1,21,4,0) +prompt will be ignored. +"^DD",101.41,101.412,1,"DT") +2950511 +"^DD",101.41,101.412,2,0) +ITEM^P101.41'X^ORD(101.41,^0;2^D TREE^ORDD41 +"^DD",101.41,101.412,2,1,0) +^.1 +"^DD",101.41,101.412,2,1,1,0) +101.41^AD +"^DD",101.41,101.412,2,1,1,1) +S ^ORD(101.41,"AD",$E(X,1,30),DA(1),DA)="" +"^DD",101.41,101.412,2,1,1,2) +K ^ORD(101.41,"AD",$E(X,1,30),DA(1),DA) +"^DD",101.41,101.412,2,1,1,"DT") +2950123 +"^DD",101.41,101.412,2,1,2,0) +101.412^D +"^DD",101.41,101.412,2,1,2,1) +S ^ORD(101.41,DA(1),10,"D",$E(X,1,30),DA)="" +"^DD",101.41,101.412,2,1,2,2) +K ^ORD(101.41,DA(1),10,"D",$E(X,1,30),DA) +"^DD",101.41,101.412,2,1,2,"DT") +2950411 +"^DD",101.41,101.412,2,1,3,0) +101.41^AMM2^MUMPS +"^DD",101.41,101.412,2,1,3,1) +D REDOX^ORDD41 +"^DD",101.41,101.412,2,1,3,2) +D REDOX^ORDD41 +"^DD",101.41,101.412,2,1,3,"%D",0) +^^1^1^2990210^ +"^DD",101.41,101.412,2,1,3,"%D",1,0) +Update TIMESTAMP whenever ITEM is changed. +"^DD",101.41,101.412,2,1,3,"DT") +2990210 +"^DD",101.41,101.412,2,3) +Enter an order dialog; a dialog that is an ancestor may not also be a sub-item. +"^DD",101.41,101.412,2,21,0) +^^3^3^2950123^ +"^DD",101.41,101.412,2,21,1,0) +This field points to an order dialog which is subordinate to this dialog. +"^DD",101.41,101.412,2,21,2,0) +NOTE: The parent dialog menu or one of its ancestors may not be entered +"^DD",101.41,101.412,2,21,3,0) +as an item. +"^DD",101.41,101.412,2,"DT") +2990217 +"^DD",101.41,101.412,3,0) +MNEMONIC^FX^^0;3^K:$L(X)>4!($L(X)<1)!(+X=X&($L(X,".")>1))!($$CHKMNE^ORUTL(X)) X +"^DD",101.41,101.412,3,1,0) +^.1 +"^DD",101.41,101.412,3,1,1,0) +101.41^AMM3^MUMPS +"^DD",101.41,101.412,3,1,1,1) +D REDOX^ORDD41 +"^DD",101.41,101.412,3,1,1,2) +D REDOX^ORDD41 +"^DD",101.41,101.412,3,1,1,"%D",0) +^^1^1^2990210^ +"^DD",101.41,101.412,3,1,1,"%D",1,0) +Update TIMESTAMP whenever MNEMONIC is changed. +"^DD",101.41,101.412,3,1,1,"DT") +2990210 +"^DD",101.41,101.412,3,3) +Enter a mnemonic to be used when this dialog is displayed for selection, 1-4 characters in length with no decimal places if numeric. Standard list manager mnemonics may not be used. +"^DD",101.41,101.412,3,21,0) +^.001^2^2^3010727^^^^ +"^DD",101.41,101.412,3,21,1,0) +This is a short abbreviation for this item dialog to be used when this +"^DD",101.41,101.412,3,21,2,0) +dialog is displayed for selection. +"^DD",101.41,101.412,3,"DT") +3000822 +"^DD",101.41,101.412,4,0) +DISPLAY TEXT^FX^^0;4^K:$L(X)>80!($L(X)<1)!($$CHKNAM^ORUTL(X)) X +"^DD",101.41,101.412,4,1,0) +^.1 +"^DD",101.41,101.412,4,1,1,0) +101.41^AMM4^MUMPS +"^DD",101.41,101.412,4,1,1,1) +D REDOX^ORDD41 +"^DD",101.41,101.412,4,1,1,2) +D REDOX^ORDD41 +"^DD",101.41,101.412,4,1,1,"%D",0) +^^1^1^2990210^ +"^DD",101.41,101.412,4,1,1,"%D",1,0) +Update TIMESTAMP whenever DISPLAY TEXT is changed. +"^DD",101.41,101.412,4,1,1,"DT") +2990210 +"^DD",101.41,101.412,4,3) +Answer must be 1-80 characters in length and cannot contain a semicolon (;), a comma (,), an up-arrow (^), a dash (-), or an equal sign (=). +"^DD",101.41,101.412,4,21,0) +^.001^2^2^3010419^^^^ +"^DD",101.41,101.412,4,21,1,0) +This field allows the text that normally appears for this item to be +"^DD",101.41,101.412,4,21,2,0) +replaced with alternate text for use in this dialog or menu. +"^DD",101.41,101.412,4,"DT") +3000823 +"^DD",101.41,101.412,5,0) +DISPLAY ONLY?^S^0:NO;1:YES;2:YES-HEADER;^0;5^Q +"^DD",101.41,101.412,5,1,0) +^.1 +"^DD",101.41,101.412,5,1,1,0) +101.41^AMM5^MUMPS +"^DD",101.41,101.412,5,1,1,1) +D REDOX^ORDD41 +"^DD",101.41,101.412,5,1,1,2) +D REDOX^ORDD41 +"^DD",101.41,101.412,5,1,1,"%D",0) +^^1^1^2990210^ +"^DD",101.41,101.412,5,1,1,"%D",1,0) +Update TIMESTAMP whenever DISPLAY ONLY? is changed. +"^DD",101.41,101.412,5,1,1,"DT") +2990210 +"^DD",101.41,101.412,5,3) +Enter YES if this item is text for display only and not a selectable item. +"^DD",101.41,101.412,5,21,0) +^^3^3^2970409^^^^ +"^DD",101.41,101.412,5,21,1,0) +This field identifies an item as being free text for display purposes +"^DD",101.41,101.412,5,21,2,0) +only. The text in the Display Text field will be displayed, but it +"^DD",101.41,101.412,5,21,3,0) +is not selectable; if designated as a header, the text will be underlined. +"^DD",101.41,101.412,5,"DT") +2990210 +"^DD",101.41,101.412,6,0) +REQUIRED^S^1:YES;0:NO;^0;6^Q +"^DD",101.41,101.412,6,3) +Enter YES if a response to this prompt is mandatory. +"^DD",101.41,101.412,6,21,0) +^^1^1^2950407^ +"^DD",101.41,101.412,6,21,1,0) +This field indicates that the user must enter a response to this prompt. +"^DD",101.41,101.412,6,"DT") +2950407 +"^DD",101.41,101.412,7,0) +MULTIPLE VALUED^S^1:YES;0:NO;^0;7^Q +"^DD",101.41,101.412,7,3) +Enter YES if this prompt is to be asked multiple times. +"^DD",101.41,101.412,7,21,0) +^^3^3^2950407^ +"^DD",101.41,101.412,7,21,1,0) +This field determines if this prompt will be allowed to have multiple +"^DD",101.41,101.412,7,21,2,0) +values, or be prompted for only once; if this prompt is a sub-dialog, +"^DD",101.41,101.412,7,21,3,0) +the entire dialog will be asked once or many times, as a group. +"^DD",101.41,101.412,7,"DT") +2950407 +"^DD",101.41,101.412,7.1,0) +MAX NUMBER OF MULTIPLES^NJ2,0^^0;12^K:+X'=X!(X>99)!(X<2)!(X?.E1"."1N.N) X +"^DD",101.41,101.412,7.1,3) +Type a Number between 2 and 99, 0 Decimal Digits +"^DD",101.41,101.412,7.1,21,0) +^^4^4^2950815^ +"^DD",101.41,101.412,7.1,21,1,0) +This is the maximum number of values that may be entered for this prompt, +"^DD",101.41,101.412,7.1,21,2,0) +if it is flagged as being multiple-valued. For example, a diet order may +"^DD",101.41,101.412,7.1,21,3,0) +have up to 5 diet modifications entered, where 5 is the maximum allowed +"^DD",101.41,101.412,7.1,21,4,0) +that would be entered here. +"^DD",101.41,101.412,7.1,"DT") +2950815 +"^DD",101.41,101.412,7.2,0) +TITLE^F^^0;13^K:$L(X)>30!($L(X)<3) X +"^DD",101.41,101.412,7.2,3) +Answer must be 3-30 characters in length. +"^DD",101.41,101.412,7.2,21,0) +^^8^8^2970430^^ +"^DD",101.41,101.412,7.2,21,1,0) +This is text that will be used in place of the prompt when the order is +"^DD",101.41,101.412,7.2,21,2,0) +displayed for place, edit, or cancel, or at the top of a multiple-valued +"^DD",101.41,101.412,7.2,21,3,0) +prompt. The Display Text for the prompt will be used together with the +"^DD",101.41,101.412,7.2,21,4,0) +instance number to prompt for user input; for example if Title="Lab Tests:" +"^DD",101.41,101.412,7.2,21,5,0) +and Display Text="Test:" the user would see +"^DD",101.41,101.412,7.2,21,6,0) + Lab Tests: +"^DD",101.41,101.412,7.2,21,7,0) + 1. Test: +"^DD",101.41,101.412,7.2,21,8,0) + 2. Test: +"^DD",101.41,101.412,7.2,"DT") +2950815 +"^DD",101.41,101.412,7.3,0) +PROMPT^F^^0;14^K:$L(X)>10!($L(X)<1) X +"^DD",101.41,101.412,7.3,3) +Answer must be 1-10 characters in length. +"^DD",101.41,101.412,7.3,21,0) +^^3^3^2970618^ +"^DD",101.41,101.412,7.3,21,1,0) +This field contains text that will be appended to the beginning of the +"^DD",101.41,101.412,7.3,21,2,0) +display text when prompting for additional values; if this field is +"^DD",101.41,101.412,7.3,21,3,0) +empty, then "Another " will be used. +"^DD",101.41,101.412,7.3,"DT") +2970618 +"^DD",101.41,101.412,8,0) +ASK ON EDIT ONLY^S^1:YES;0:NO;^0;8^Q +"^DD",101.41,101.412,8,3) +Enter YES if this prompt should not be asked initially when creating this order, only if the user chooses to edit the order. +"^DD",101.41,101.412,8,21,0) +^^4^4^2960112^^^ +"^DD",101.41,101.412,8,21,1,0) +This field determines the behaviour of the dialog driver for this prompt; +"^DD",101.41,101.412,8,21,2,0) +if no value or the defined default is usually correct for this prompt, +"^DD",101.41,101.412,8,21,3,0) +enter YES here to have this prompt skipped on the first pass through this +"^DD",101.41,101.412,8,21,4,0) +dialog when creating an order. +"^DD",101.41,101.412,8,"DT") +2950407 +"^DD",101.41,101.412,9,0) +ASK ON ACTION^F^^0;9^K:$L(X)>3!($L(X)<1) X +"^DD",101.41,101.412,9,3) +Answer must be 1-3 characters in length. +"^DD",101.41,101.412,9,21,0) +^^6^6^2970708^^^ +"^DD",101.41,101.412,9,21,1,0) +This field determines the behaviour of the dialog driver for this prompt +"^DD",101.41,101.412,9,21,2,0) +when taking a particular action on an order created by this dialog. If +"^DD",101.41,101.412,9,21,3,0) +this string contains "R", this prompt will be asked when renewing an order; +"^DD",101.41,101.412,9,21,4,0) +if this string contains "C", this prompt will be asked when changing an +"^DD",101.41,101.412,9,21,5,0) +order; if this string contains "W", this prompt will be asked when +"^DD",101.41,101.412,9,21,6,0) +rewriting an order. +"^DD",101.41,101.412,9,"DT") +2970708 +"^DD",101.41,101.412,10,0) +INDEX^F^^0;10^K:$L(X)>25!($L(X)<1) X +"^DD",101.41,101.412,10,3) +Answer must be 1-25 characters in length. +"^DD",101.41,101.412,10,21,0) +^^3^3^2950713^^^ +"^DD",101.41,101.412,10,21,1,0) +For pointer-type prompts, this is the index to use when searching the file; +"^DD",101.41,101.412,10,21,2,0) +it must be in the form of a regular cross-reference. To search on multiple +"^DD",101.41,101.412,10,21,3,0) +indices, enter a string of index names separated by semi-colons, i.e. "B;C". +"^DD",101.41,101.412,10,"DT") +2950713 +"^DD",101.41,101.412,11,0) +HELP MESSAGE^F^^1;1^K:$L(X)>160!($L(X)<1) X +"^DD",101.41,101.412,11,3) +Answer must be 1-160 characters in length. +"^DD",101.41,101.412,11,21,0) +^^2^2^2970609^^ +"^DD",101.41,101.412,11,21,1,0) +This field contains the help message to be presented when the user enters +"^DD",101.41,101.412,11,21,2,0) +a question mark at this prompt. +"^DD",101.41,101.412,11,"DT") +2970609 +"^DD",101.41,101.412,12,0) +SPECIAL LOOKUP ROUTINE^F^^1;2^K:$L(X)>20!($L(X)<3) X +"^DD",101.41,101.412,12,3) +Enter the routine to use instead of DIC to do this lookup, as [TAG;]ROUTINE +"^DD",101.41,101.412,12,21,0) +^^3^3^2970609^ +"^DD",101.41,101.412,12,21,1,0) +This field contains a routine to execute that will replace the standard +"^DD",101.41,101.412,12,21,2,0) +DIC lookup for this prompt; it must be entered here as LINETAG;ROUTINE +"^DD",101.41,101.412,12,21,3,0) +using a ; instead of ^ and where LINETAG is optional. +"^DD",101.41,101.412,12,"DT") +2970609 +"^DD",101.41,101.412,13,0) +ASK ON CONDITION^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,13,3) +This is MUMPS code that sets $T to determine if this prompt should be asked, or given a default value and bypassed. +"^DD",101.41,101.412,13,9) +@ +"^DD",101.41,101.412,13,21,0) +^^5^5^2950407^ +"^DD",101.41,101.412,13,21,1,0) +This is MUMPS code that sets $T to determine if this prompt should be asked +"^DD",101.41,101.412,13,21,2,0) +or simply given a default value and presented to the user for acceptance +"^DD",101.41,101.412,13,21,3,0) +or editing. For example, the prompt "Pregnant: " may have code here to +"^DD",101.41,101.412,13,21,4,0) +check the sex of the current patient, i.e. I ORSEX="F" will allow it to be +"^DD",101.41,101.412,13,21,5,0) +asked only for female patients. +"^DD",101.41,101.412,13,"DT") +2950407 +"^DD",101.41,101.412,14,0) +SCREEN^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,14,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,14,9) +@ +"^DD",101.41,101.412,14,21,0) +^^2^2^2950407^ +"^DD",101.41,101.412,14,21,1,0) +For pointer-type prompts, this field may contain MUMPS code that will be +"^DD",101.41,101.412,14,21,2,0) +set into DIC("S") to screen the possible choices in the pointed-to file. +"^DD",101.41,101.412,14,"DT") +2950407 +"^DD",101.41,101.412,15,0) +POST-SELECTION ACTION^K^^5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,15,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,15,9) +@ +"^DD",101.41,101.412,15,21,0) +^^3^3^2970923^^^^ +"^DD",101.41,101.412,15,21,1,0) +This is code that will be executed after a response is entered to this +"^DD",101.41,101.412,15,21,2,0) +prompt; if this prompt should be re-asked, kill the variable DONE. +"^DD",101.41,101.412,15,21,3,0) +If execution of the ordering dialog should be stopped, set ORQUIT=1. +"^DD",101.41,101.412,15,"DT") +2970923 +"^DD",101.41,101.412,16,0) +XECUTABLE HELP^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,16,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,16,9) +@ +"^DD",101.41,101.412,16,21,0) +^^2^2^2950407^ +"^DD",101.41,101.412,16,21,1,0) +This is code that is to be executed when the user enters two or more +"^DD",101.41,101.412,16,21,2,0) +question marks at this prompt. +"^DD",101.41,101.412,16,"DT") +2950407 +"^DD",101.41,101.412,17,0) +DEFAULT^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,17,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,17,9) +@ +"^DD",101.41,101.412,17,21,0) +^^2^2^2971219^^^^ +"^DD",101.41,101.412,17,21,1,0) +This is code that is to be executed to determine the appropriate default +"^DD",101.41,101.412,17,21,2,0) +value for this prompt, setting Y=internal form of this value. +"^DD",101.41,101.412,17,"DT") +2950519 +"^DD",101.41,101.412,18,0) +DEFAULT WORD-PROCESSING TEXT^101.41218^^8;0 +"^DD",101.41,101.412,18,21,0) +^^1^1^2971219^ +"^DD",101.41,101.412,18,21,1,0) +This is default text to be stuffed into this word-processing prompt. +"^DD",101.41,101.412,19,0) +ENTRY ACTION^K^^9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,19,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,19,9) +@ +"^DD",101.41,101.412,19,21,0) +^^3^3^2970609^ +"^DD",101.41,101.412,19,21,1,0) +This is code that will be executed at the beginning of the processing of +"^DD",101.41,101.412,19,21,2,0) +this prompt, before the Default and Ask on Condition fields are executed; +"^DD",101.41,101.412,19,21,3,0) +any special setup required for this field should be done here. +"^DD",101.41,101.412,19,"DT") +2970609 +"^DD",101.41,101.412,20,0) +EXIT ACTION^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,20,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,20,9) +@ +"^DD",101.41,101.412,20,21,0) +^^3^3^2970609^ +"^DD",101.41,101.412,20,21,1,0) +This is code that will be executed at the very end of the processing of +"^DD",101.41,101.412,20,21,2,0) +this prompt, after prompting and the Validation field is executed; +"^DD",101.41,101.412,20,21,3,0) +any special cleanup should be done here. +"^DD",101.41,101.412,20,"DT") +2970609 +"^DD",101.41,101.412,21,0) +ORDER TEXT SEQUENCE^NJ5,2^^2;1^K:+X'=X!(X>99.99)!(X<1)!(X?.E1"."3N.N) X +"^DD",101.41,101.412,21,1,0) +^.1 +"^DD",101.41,101.412,21,1,1,0) +101.412^ATXT +"^DD",101.41,101.412,21,1,1,1) +S ^ORD(101.41,DA(1),10,"ATXT",$E(X,1,30),DA)="" +"^DD",101.41,101.412,21,1,1,2) +K ^ORD(101.41,DA(1),10,"ATXT",$E(X,1,30),DA) +"^DD",101.41,101.412,21,1,1,"%D",0) +^^1^1^2960226^ +"^DD",101.41,101.412,21,1,1,"%D",1,0) +Used to build order text. +"^DD",101.41,101.412,21,1,1,"DT") +2960226 +"^DD",101.41,101.412,21,3) +Enter the order in which this value should be added to the order text, as a number between 1 and 99.99; leave this field blank to prevent this value from being included +"^DD",101.41,101.412,21,21,0) +^^3^3^2970607^^^ +"^DD",101.41,101.412,21,21,1,0) +This field indicates the order in which values will be concatenated +"^DD",101.41,101.412,21,21,2,0) +together to build the order text; this may differ from the prompting +"^DD",101.41,101.412,21,21,3,0) +order defined in the .01 Sequence field. +"^DD",101.41,101.412,21,"DT") +2960226 +"^DD",101.41,101.412,22,0) +FORMAT^F^^2;2^K:$L(X)>10!($L(X)<1) X +"^DD",101.41,101.412,22,3) +Answer must be 1-10 characters in length. +"^DD",101.41,101.412,22,21,0) +^^15^15^2971207^^^^ +"^DD",101.41,101.412,22,21,1,0) +This is a string of characters that will define any exceptions to how +"^DD",101.41,101.412,22,21,2,0) +the external form of this value is generated. Possible values include: +"^DD",101.41,101.412,22,21,3,0) + Pointer -> ~, default =.01 +"^DD",101.41,101.412,22,21,4,0) + Set of Codes -> 1~ to use code for name +"^DD",101.41,101.412,22,21,5,0) + Date/Time -> Format string to pass $$FMTE^XLFDT (default = 2) +"^DD",101.41,101.412,22,21,6,0) + +"^DD",101.41,101.412,22,21,7,0) + Suppress value -> @ +"^DD",101.41,101.412,22,21,8,0) + Replace value -> @ where ptr is the Dialog IEN of the prompt +"^DD",101.41,101.412,22,21,9,0) + whose value, when present, supersedes this value +"^DD",101.41,101.412,22,21,10,0) + Required value -> * where ptr is the Dialog IEN of the prompt +"^DD",101.41,101.412,22,21,11,0) + whose value is required to be present to include +"^DD",101.41,101.412,22,21,12,0) + this value +"^DD",101.41,101.412,22,21,13,0) + Ignore if same -> = where ptr is the Dialog IEN of the prompt +"^DD",101.41,101.412,22,21,14,0) + whose value, if the external form is the same, +"^DD",101.41,101.412,22,21,15,0) + supersedes this value +"^DD",101.41,101.412,22,"DT") +2960226 +"^DD",101.41,101.412,23,0) +OMIT TEXT^F^^2;3^K:$L(X)>30!($L(X)<1) X +"^DD",101.41,101.412,23,3) +Answer must be 1-30 characters in length. +"^DD",101.41,101.412,23,21,0) +^^3^3^2970829^^^^ +"^DD",101.41,101.412,23,21,1,0) +This is the external form of a value that is not to be included when building +"^DD",101.41,101.412,23,21,2,0) +the order text. E.g. to include the urgency in the order text unless it +"^DD",101.41,101.412,23,21,3,0) +is routine, enter "ROUTINE" here. +"^DD",101.41,101.412,23,"DT") +2970829 +"^DD",101.41,101.412,24,0) +LEADING TEXT^F^^2;4^K:$L(X)>80!($L(X)<1) X +"^DD",101.41,101.412,24,3) +Answer must be 1-80 characters in length. +"^DD",101.41,101.412,24,21,0) +^^3^3^2970724^^^^ +"^DD",101.41,101.412,24,21,1,0) +This field contains text that will be appended to the order text +"^DD",101.41,101.412,24,21,2,0) +immediately in front of this value, e.g. "Instructions:". If this text +"^DD",101.41,101.412,24,21,3,0) +is contained in a variable, enter @NAME where NAME is the variable name. +"^DD",101.41,101.412,24,"DT") +2970724 +"^DD",101.41,101.412,25,0) +TRAILING TEXT^F^^2;5^K:$L(X)>80!($L(X)<1) X +"^DD",101.41,101.412,25,3) +Answer must be 1-80 characters in length. +"^DD",101.41,101.412,25,21,0) +^^3^3^2970724^^^^ +"^DD",101.41,101.412,25,21,1,0) +This field contains text that will be appended to the order text +"^DD",101.41,101.412,25,21,2,0) +immediately following this value, e.g. "refills". If this text is +"^DD",101.41,101.412,25,21,3,0) +contained in a variable, enter @NAME where NAME is the variable name. +"^DD",101.41,101.412,25,"DT") +2970724 +"^DD",101.41,101.412,26,0) +START NEW LINE^S^1:YES;0:NO;^2;6^Q +"^DD",101.41,101.412,26,3) +Enter YES if this value should begin on a new line in the order text. +"^DD",101.41,101.412,26,21,0) +0^^2^2^2970911^ +"^DD",101.41,101.412,26,21,1,0) +This field determines if this value is concatenated onto the current line +"^DD",101.41,101.412,26,21,2,0) +when building the order text, or if a new line is started with this value. +"^DD",101.41,101.412,26,"DT") +2970911 +"^DD",101.41,101.412,27,0) +WORD-WRAP^S^1:DON'T WRAP;0:WRAP;^2;7^Q +"^DD",101.41,101.412,27,3) +Enter 'Don't Wrap' to have the text be added line-by-line as it is stored; the default formatting is 'Wrap'. +"^DD",101.41,101.412,27,21,0) +^^3^3^2970926^^^ +"^DD",101.41,101.412,27,21,1,0) +This field determines if this text should be wrapped when added to the +"^DD",101.41,101.412,27,21,2,0) +order text, or appended line by line as stored in the file; this is only +"^DD",101.41,101.412,27,21,3,0) +used for word-processing type prompts. +"^DD",101.41,101.412,27,"DT") +2970926 +"^DD",101.41,101.412,101,0) +WINDOWS CONTROL^F^^W;1^K:$L(X)>30!($L(X)<1) X +"^DD",101.41,101.412,101,3) +Answer must be 1-30 characters in length. +"^DD",101.41,101.412,101,21,0) +^^2^2^2950715^ +"^DD",101.41,101.412,101,21,1,0) +Stores the type of Windows control necessary to get the data for this +"^DD",101.41,101.412,101,21,2,0) +prompt. +"^DD",101.41,101.412,101,"DT") +2960517 +"^DD",101.41,101.412,102,0) +API NAME^F^^W;2^K:$L(X)>30!($L(X)<1) X +"^DD",101.41,101.412,102,3) +Answer must be 1-30 characters in length. +"^DD",101.41,101.412,102,21,0) +^^3^3^2950715^ +"^DD",101.41,101.412,102,21,1,0) +This is the API that should be called when the control is used. How the API +"^DD",101.41,101.412,102,21,2,0) +is used varys with the control. Examples are: filling list boxes, getting +"^DD",101.41,101.412,102,21,3,0) +boilerplate text, etc. +"^DD",101.41,101.412,102,"DT") +2951002 +"^DD",101.41,101.412,103,0) +API PARAMETER #1^F^^W;3^K:$L(X)>30!($L(X)<1) X +"^DD",101.41,101.412,103,3) +Answer must be 1-30 characters in length. +"^DD",101.41,101.412,103,21,0) +^^1^1^2950715^ +"^DD",101.41,101.412,103,21,1,0) +A parameter that is used by the API call may be stored here. +"^DD",101.41,101.412,103,"DT") +2950715 +"^DD",101.41,101.412,113,0) +WINDOWS CONDITION^K^^W3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,113,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,113,9) +@ +"^DD",101.41,101.412,113,21,0) +^^3^3^2950715^ +"^DD",101.41,101.412,113,21,1,0) +This is silent code that is executed when building the dialog for windows. +"^DD",101.41,101.412,113,21,2,0) +It identifies which prompts should be included in the dialog. The condition +"^DD",101.41,101.412,113,21,3,0) +should leave $T false if the prompt should not be asked. +"^DD",101.41,101.412,113,"DT") +2950715 +"^DD",101.41,101.412,117,0) +WINDOWS DEFAULT^K^^W7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM +"^DD",101.41,101.412,117,3) +This is Standard MUMPS code. +"^DD",101.41,101.412,117,9) +@ +"^DD",101.41,101.412,117,21,0) +^^2^2^2950715^ +"^DD",101.41,101.412,117,21,1,0) +This code should silently set the default value of a prompt when it is +"^DD",101.41,101.412,117,21,2,0) +selected. +"^DD",101.41,101.412,117,"DT") +2950715 +"^DD",101.41,101.41218,0) +DEFAULT WORD-PROCESSING TEXT SUB-FIELD^^.01^1 +"^DD",101.41,101.41218,0,"DT") +2950407 +"^DD",101.41,101.41218,0,"NM","DEFAULT WORD-PROCESSING TEXT") + +"^DD",101.41,101.41218,0,"UP") +101.412 +"^DD",101.41,101.41218,.01,0) +DEFAULT WORD-PROCESSING TEXT^W^^0;1^Q +"^DD",101.41,101.41218,.01,3) +Enter the default response for a word-processing type prompt. +"^DD",101.41,101.41218,.01,21,0) +^^2^2^2950407^ +"^DD",101.41,101.41218,.01,21,1,0) +This field contains the text to be presented as the default for this prompt, +"^DD",101.41,101.41218,.01,21,2,0) +for word-processing type prompts. +"^DD",101.41,101.41218,.01,"DT") +2950407 +"^DD",101.41,101.415,0) +CONTROLS SUB-FIELD^^14^14 +"^DD",101.41,101.415,0,"DT") +2960202 +"^DD",101.41,101.415,0,"IX","AC",101.415,3) + +"^DD",101.41,101.415,0,"IX","B",101.415,.01) + +"^DD",101.41,101.415,0,"NM","CONTROLS") + +"^DD",101.41,101.415,0,"UP") +101.41 +"^DD",101.41,101.415,.01,0) +LOGICAL NAME^MF^^0;1^K:$L(X)>8!($L(X)<1)!'(X?1.8U) X +"^DD",101.41,101.415,.01,1,0) +^.1 +"^DD",101.41,101.415,.01,1,1,0) +101.415^B +"^DD",101.41,101.415,.01,1,1,1) +S ^ORD(101.41,DA(1),50,"B",$E(X,1,30),DA)="" +"^DD",101.41,101.415,.01,1,1,2) +K ^ORD(101.41,DA(1),50,"B",$E(X,1,30),DA) +"^DD",101.41,101.415,.01,3) +Answer must be 1-8 characters in length. +"^DD",101.41,101.415,.01,21,0) +^^1^1^2960202^ +"^DD",101.41,101.415,.01,21,1,0) +This is the name by which controls can refer to each other. +"^DD",101.41,101.415,.01,"DT") +2960202 +"^DD",101.41,101.415,2,0) +ITEM^P101.41'^ORD(101.41,^0;2^Q +"^DD",101.41,101.415,2,"DT") +2960202 +"^DD",101.41,101.415,3,0) +CREATE SEQUENCE^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X +"^DD",101.41,101.415,3,1,0) +^.1 +"^DD",101.41,101.415,3,1,1,0) +101.415^AC +"^DD",101.41,101.415,3,1,1,1) +S ^ORD(101.41,DA(1),50,"AC",$E(X,1,30),DA)="" +"^DD",101.41,101.415,3,1,1,2) +K ^ORD(101.41,DA(1),50,"AC",$E(X,1,30),DA) +"^DD",101.41,101.415,3,1,1,"%D",0) +^^2^2^2960202^ +"^DD",101.41,101.415,3,1,1,"%D",1,0) +The 'AC' cross-reference puts in window controls in order by creation +"^DD",101.41,101.415,3,1,1,"%D",2,0) +sequence. +"^DD",101.41,101.415,3,1,1,"DT") +2960202 +"^DD",101.41,101.415,3,3) +Type a Number between 1 and 99, 0 Decimal Digits +"^DD",101.41,101.415,3,"DT") +2960202 +"^DD",101.41,101.415,4,0) +CONTROL TYPE^S^0:Label;1:Button;2:Edit;3:Memo;4:ListBox;5:SimpleCombo;6:DropDownList;7:LongCombo;^0;4^Q +"^DD",101.41,101.415,4,"DT") +2960202 +"^DD",101.41,101.415,5,0) +LABEL^F^^0;5^K:$L(X)>30!($L(X)<1) X +"^DD",101.41,101.415,5,3) +Answer must be 1-30 characters in length. +"^DD",101.41,101.415,5,"DT") +2960202 +"^DD",101.41,101.415,6,0) +BESIDE^F^^0;6^K:$L(X)>8!($L(X)<1) X +"^DD",101.41,101.415,6,3) +Answer must be 1-8 characters in length. +"^DD",101.41,101.415,6,"DT") +2960202 +"^DD",101.41,101.415,7,0) +BELOW^F^^0;7^K:$L(X)>8!($L(X)<1) X +"^DD",101.41,101.415,7,3) +Answer must be 1-8 characters in length. +"^DD",101.41,101.415,7,"DT") +2960202 +"^DD",101.41,101.415,8,0) +WIDTH^NJ6,4^^0;8^K:+X'=X!(X>1)!(X<0)!(X?.E1"."5N.N) X +"^DD",101.41,101.415,8,3) +Type a Number between 0 and 1, 4 Decimal Digits +"^DD",101.41,101.415,8,"DT") +2960202 +"^DD",101.41,101.415,9,0) +LEFT CONTROL^F^^0;9^K:$L(X)>8!($L(X)<1) X +"^DD",101.41,101.415,9,3) +Answer must be 1-8 characters in length. +"^DD",101.41,101.415,9,"DT") +2960202 +"^DD",101.41,101.415,10,0) +RIGHT CONTROL^F^^0;10^K:$L(X)>8!($L(X)<1) X +"^DD",101.41,101.415,10,3) +Answer must be 1-8 characters in length. +"^DD",101.41,101.415,10,"DT") +2960202 +"^DD",101.41,101.415,11,0) +HEIGHT^NJ2,0^^0;11^K:+X'=X!(X>15)!(X<1)!(X?.E1"."1N.N) X +"^DD",101.41,101.415,11,3) +Type a Number between 1 and 15, 0 Decimal Digits +"^DD",101.41,101.415,11,"DT") +2960202 +"^DD",101.41,101.415,12,0) +UPPER CONTROL^F^^0;12^K:$L(X)>8!($L(X)<1) X +"^DD",101.41,101.415,12,3) +Answer must be 1-8 characters in length. +"^DD",101.41,101.415,12,"DT") +2960202 +"^DD",101.41,101.415,13,0) +LOWER CONTROL^F^^0;13^K:$L(X)>8!($L(X)<1) X +"^DD",101.41,101.415,13,3) +Answer must be 1-8 characters in length. +"^DD",101.41,101.415,13,"DT") +2960202 +"^DD",101.41,101.415,14,0) +TAB SEQUENCE^NJ2,0^^0;14^K:+X'=X!(X>89)!(X<0)!(X?.E1"."1N.N) X +"^DD",101.41,101.415,14,3) +Type a Number between 0 and 89, 0 Decimal Digits +"^DD",101.41,101.415,14,"DT") +2960202 +"^DD",101.41,101.416,0) +RESPONSES SUB-FIELD^^2^5 +"^DD",101.41,101.416,0,"DT") +2960717 +"^DD",101.41,101.416,0,"IX","D",101.416,.02) + +"^DD",101.41,101.416,0,"NM","RESPONSES") + +"^DD",101.41,101.416,0,"UP") +101.41 +"^DD",101.41,101.416,.01,0) +ITEM ENTRY^MNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X +"^DD",101.41,101.416,.01,1,0) +^.1^^0 +"^DD",101.41,101.416,.01,3) +Type a Number between 1 and 9999999, 0 Decimal Digits +"^DD",101.41,101.416,.01,21,0) +^^2^2^2971219^^^ +"^DD",101.41,101.416,.01,21,1,0) +This is the internal entry number of the prompt in the Item multiple +"^DD",101.41,101.416,.01,21,2,0) +by which this response was obtained. +"^DD",101.41,101.416,.01,"DT") +2961118 +"^DD",101.41,101.416,.02,0) +DIALOG^P101.41'^ORD(101.41,^0;2^Q +"^DD",101.41,101.416,.02,1,0) +^.1 +"^DD",101.41,101.416,.02,1,1,0) +101.416^D +"^DD",101.41,101.416,.02,1,1,1) +S ^ORD(101.41,DA(1),6,"D",$E(X,1,30),DA)="" +"^DD",101.41,101.416,.02,1,1,2) +K ^ORD(101.41,DA(1),6,"D",$E(X,1,30),DA) +"^DD",101.41,101.416,.02,1,1,"DT") +2961118 +"^DD",101.41,101.416,.02,3) +Select the dialog prompt from which this response was generated. +"^DD",101.41,101.416,.02,21,0) +^^2^2^2960717^ +"^DD",101.41,101.416,.02,21,1,0) +This is a pointer to the dialog prompt, which is in the Order Dialog file +"^DD",101.41,101.416,.02,21,2,0) +as type prompt. +"^DD",101.41,101.416,.02,"DT") +2961118 +"^DD",101.41,101.416,.03,0) +INSTANCE^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X +"^DD",101.41,101.416,.03,3) +Type a Number between 1 and 9999999, 0 Decimal Digits +"^DD",101.41,101.416,.03,21,0) +^^2^2^2960717^ +"^DD",101.41,101.416,.03,21,1,0) +In the case of multiple answers for the same item, this identifies the +"^DD",101.41,101.416,.03,21,2,0) +individual instance. +"^DD",101.41,101.416,.03,"DT") +2960717 +"^DD",101.41,101.416,1,0) +VALUE^FO^^1;1^K:$L(X)>245!($L(X)<1) X +"^DD",101.41,101.416,1,2) +S Y(0)=Y S Y=$$OUTPUT^ORCMEDT5(Y) +"^DD",101.41,101.416,1,2.1) +S Y=$$OUTPUT^ORCMEDT5(Y) +"^DD",101.41,101.416,1,3) +Answer must be 1-245 characters in length. +"^DD",101.41,101.416,1,21,0) +^^2^2^2971219^^ +"^DD",101.41,101.416,1,21,1,0) +This contains the actual response, unless the value is a word processing +"^DD",101.41,101.416,1,21,2,0) +type. +"^DD",101.41,101.416,1,"DT") +2980717 +"^DD",101.41,101.416,2,0) +TEXT^101.4162^^2;0 +"^DD",101.41,101.416,2,21,0) +^^1^1^2971219^ +"^DD",101.41,101.416,2,21,1,0) +This contains the actual response, for word-processing type prompts. +"^DD",101.41,101.416,2,"DT") +2960717 +"^DD",101.41,101.4162,0) +TEXT SUB-FIELD^^.01^1 +"^DD",101.41,101.4162,0,"DT") +2960717 +"^DD",101.41,101.4162,0,"NM","TEXT") + +"^DD",101.41,101.4162,0,"UP") +101.416 +"^DD",101.41,101.4162,.01,0) +TEXT^WL^^0;1^Q +"^DD",101.41,101.4162,.01,21,0) +^^1^1^2960717^^ +"^DD",101.41,101.4162,.01,21,1,0) +This contains responses to items that are a word processing type. +"^DD",101.41,101.4162,.01,"DT") +2960717 +"^DD",811.8,811.8,0) +FIELD^^130^8 +"^DD",811.8,811.8,0,"DDA") +N +"^DD",811.8,811.8,0,"DT") +3080125 +"^DD",811.8,811.8,0,"NM","REMINDER EXCHANGE") + +"^DD",811.8,811.8,0,"SCR") +I 0>1 +"^DD",811.8,811.8,0,"VRPK") +C0Q +"^DD",811.8,811.8,.01,0) +NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X +"^DD",811.8,811.8,.01,.1) + +"^DD",811.8,811.8,.01,1,0) +^.1^^0 +"^DD",811.8,811.8,.01,3) +Do not edit this field. +"^DD",811.8,811.8,.01,21,0) +^.001^2^2^3050124^^^^ +"^DD",811.8,811.8,.01,21,1,0) +This is the name of the entry in the Exchange File. It will be the same +"^DD",811.8,811.8,.01,21,2,0) +as the name of the reminder definition that was packed. +"^DD",811.8,811.8,.01,"DT") +3010601 +"^DD",811.8,811.8,.02,0) +SOURCE^F^^0;2^K:$L(X)>64!($L(X)<3) X +"^DD",811.8,811.8,.02,3) +Do not edit this field. +"^DD",811.8,811.8,.02,21,0) +^.001^3^3^3070313^^^ +"^DD",811.8,811.8,.02,21,1,0) +This is the source of the packed reminder. It will contain the name of +"^DD",811.8,811.8,.02,21,2,0) +the person who packed it and their site. +"^DD",811.8,811.8,.02,21,3,0) + +"^DD",811.8,811.8,.02,"DT") +3000706 +"^DD",811.8,811.8,.03,0) +DATE PACKED^D^^0;3^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X +"^DD",811.8,811.8,.03,3) +Do not edit this field. +"^DD",811.8,811.8,.03,21,0) +^.001^3^3^3050124^^^ +"^DD",811.8,811.8,.03,21,1,0) +This is the date and time the reminder was originally packed. When a +"^DD",811.8,811.8,.03,21,2,0) +packed reminder is put into the Exchange File from a MailMan message or +"^DD",811.8,811.8,.03,21,3,0) +a host file, this will reflect the original packing date and time. +"^DD",811.8,811.8,.03,"DT") +3000712 +"^DD",811.8,811.8,100,0) +PACKED REMINDER^811.801A^^100;0 +"^DD",811.8,811.8,100,9) +@ +"^DD",811.8,811.8,100,21,0) +^.001^1^1^3050126^^^^ +"^DD",811.8,811.8,100,21,1,0) +This multiple stores the packed reminder definition in XML format. +"^DD",811.8,811.8,100,"DT") +3030312 +"^DD",811.8,811.8,110,0) +DESCRIPTION^811.804^^110;0 +"^DD",811.8,811.8,110,21,0) +^.001^4^4^3050124^^^^ +"^DD",811.8,811.8,110,21,1,0) +This contains formatted information about the Exchange File entry. It +"^DD",811.8,811.8,110,21,2,0) +includes source information, a brief description, and keywords. This +"^DD",811.8,811.8,110,21,3,0) +information will be displayed when an entry is selected for possible +"^DD",811.8,811.8,110,21,4,0) +installation. +"^DD",811.8,811.8,119,0) +NUMBER OF UNIQUE COMPONENTS^NJ6,0^^119;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X +"^DD",811.8,811.8,119,3) +Do not edit this field. +"^DD",811.8,811.8,119,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8,119,21,1,0) +This is the number of unique components in the packed reminder. +"^DD",811.8,811.8,119,"DT") +3030609 +"^DD",811.8,811.8,120,0) +COMPONENT LIST^811.802A^^120;0 +"^DD",811.8,811.8,120,21,0) +^.001^1^1^3080206^^^^ +"^DD",811.8,811.8,120,21,1,0) +This is a list of components that are included in the packed reminder. +"^DD",811.8,811.8,130,0) +INSTALLATION HISTORY^811.803DA^^130;0 +"^DD",811.8,811.8,130,21,0) +^.001^2^2^3070808^^^^ +"^DD",811.8,811.8,130,21,1,0) +This multiple is used to record a history of packed reminder +"^DD",811.8,811.8,130,21,2,0) +installations. +"^DD",811.8,811.801,0) +PACKED REMINDER SUB-FIELD^^.01^1 +"^DD",811.8,811.801,0,"DT") +3030609 +"^DD",811.8,811.801,0,"IX","B",811.801,.01) + +"^DD",811.8,811.801,0,"NM","PACKED REMINDER") + +"^DD",811.8,811.801,0,"UP") +811.8 +"^DD",811.8,811.801,.01,0) +XML DATA^WL^^0;1^Q +"^DD",811.8,811.801,.01,1,0) +^.1 +"^DD",811.8,811.801,.01,1,1,0) +811.801^B +"^DD",811.8,811.801,.01,1,1,1) +S ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.801,.01,1,1,2) +K ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA) +"^DD",811.8,811.801,.01,1,1,"DT") +3030415 +"^DD",811.8,811.801,.01,3) +Do not edit this field. +"^DD",811.8,811.801,.01,9) +@ +"^DD",811.8,811.801,.01,21,0) +^.001^1^1^3050126^^^^ +"^DD",811.8,811.801,.01,21,1,0) +This is a line of XML data. +"^DD",811.8,811.801,.01,"DT") +3030609 +"^DD",811.8,811.802,0) +COMPONENT LIST SUB-FIELD^^1^4 +"^DD",811.8,811.802,0,"DT") +3080125 +"^DD",811.8,811.802,0,"NM","COMPONENT LIST") + +"^DD",811.8,811.802,0,"UP") +811.8 +"^DD",811.8,811.802,.01,0) +COMPONENT^F^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.802,.01,1,0) +^.1^^0 +"^DD",811.8,811.802,.01,3) +Do not edit this field. +"^DD",811.8,811.802,.01,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.802,.01,21,1,0) +This is the name of the component; for example, ROUTINE or EDUCATION TOPIC. +"^DD",811.8,811.802,.01,"DT") +3050112 +"^DD",811.8,811.802,.02,0) +FILE NUMBER^NJ14,4X^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."5N.N) X +"^DD",811.8,811.802,.02,3) +Do not edit this field. +"^DD",811.8,811.802,.02,21,0) +^.001^2^2^3050126^^^^ +"^DD",811.8,811.802,.02,21,1,0) +This is the file number of the component. If the component is a routine, +"^DD",811.8,811.802,.02,21,2,0) +then the file number will be 0. +"^DD",811.8,811.802,.02,"DT") +3050111 +"^DD",811.8,811.802,.03,0) +NUMBER OF ITEMS^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.802,.03,3) +Do not edit this field. +"^DD",811.8,811.802,.03,21,0) +^.001^4^4^3050124^^^ +"^DD",811.8,811.802,.03,21,1,0) +This is the number of this type of component that is included in the +"^DD",811.8,811.802,.03,21,2,0) +packed reminder. For example, if this particular component is Health +"^DD",811.8,811.802,.03,21,3,0) +Factors and there are three of them in the packed reminder, the NUMBER +"^DD",811.8,811.802,.03,21,4,0) +OF ITEMS would be 3. +"^DD",811.8,811.802,.03,"DT") +3001101 +"^DD",811.8,811.802,1,0) +ITEM LIST^811.8021A^^1;0 +"^DD",811.8,811.802,1,21,0) +^.001^3^3^3080206^^^^ +"^DD",811.8,811.802,1,21,1,0) +This is the list of items of the component type. For example, if the +"^DD",811.8,811.802,1,21,2,0) +component type is Health Factors and there are three of them, the three +"^DD",811.8,811.802,1,21,3,0) +entries are specified in this list. +"^DD",811.8,811.8021,0) +ITEM LIST SUB-FIELD^^4^7 +"^DD",811.8,811.8021,0,"DT") +3080125 +"^DD",811.8,811.8021,0,"NM","ITEM LIST") + +"^DD",811.8,811.8021,0,"UP") +811.802 +"^DD",811.8,811.8021,.01,0) +ITEM^F^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8021,.01,1,0) +^.1^^0 +"^DD",811.8,811.8021,.01,3) +Do not edit this field. +"^DD",811.8,811.8021,.01,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.8021,.01,21,1,0) +This is the name of the item. +"^DD",811.8,811.8021,.01,"DT") +3050112 +"^DD",811.8,811.8021,.02,0) +START LINE^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,.02,3) +Do not edit this field. +"^DD",811.8,811.8021,.02,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.8021,.02,21,1,0) +This is the line in node 100 where the data for this item starts. +"^DD",811.8,811.8021,.02,"DT") +3050124 +"^DD",811.8,811.8021,.03,0) +END LINE^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,.03,3) +Do not edit this field. +"^DD",811.8,811.8021,.03,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,.03,21,1,0) +This is the line in node 100 where the data for this item ends. +"^DD",811.8,811.8021,.03,"DT") +3050124 +"^DD",811.8,811.8021,1,0) +IEN ROOT START LINE^NJ6,0^^0;4^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,1,3) +Do not edit this field. +"^DD",811.8,811.8021,1,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,1,21,1,0) +This is the line in node 100 where the ien root for this item starts. +"^DD",811.8,811.8021,1,"DT") +3050124 +"^DD",811.8,811.8021,2,0) +IEN ROOT END LINE^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,2,3) +Do not edit this field. +"^DD",811.8,811.8021,2,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,2,21,1,0) +This is the line in node 100 where the ien root ends. +"^DD",811.8,811.8021,2,"DT") +3050124 +"^DD",811.8,811.8021,3,0) +OK TO INSTALL^S^0:NO;1:YES;^0;6^Q +"^DD",811.8,811.8021,3,21,0) +^^4^4^3080122^ +"^DD",811.8,811.8021,3,21,1,0) +If this field is YES then the item can be installed. The value for +"^DD",811.8,811.8021,3,21,2,0) +this field is determined when the list of components and items in +"^DD",811.8,811.8021,3,21,3,0) +the Exchange File is built. +"^DD",811.8,811.8021,3,21,4,0) + +"^DD",811.8,811.8021,3,"DT") +3080122 +"^DD",811.8,811.8021,4,0) +SELECTABLE^S^0:NO;1:YES;^0;7^Q +"^DD",811.8,811.8021,4,21,0) +^.001^6^6^3080206^^ +"^DD",811.8,811.8021,4,21,1,0) +If this field is marked YES then the item can be selected for +"^DD",811.8,811.8021,4,21,2,0) +installation. This will include all Clinical Reminder items selected +"^DD",811.8,811.8021,4,21,3,0) +for packing by the user, reminder dialogs that are linked to a reminder +"^DD",811.8,811.8021,4,21,4,0) +definition, and entries from files that are exchangeable. +"^DD",811.8,811.8021,4,21,5,0) + +"^DD",811.8,811.8021,4,21,6,0) + +"^DD",811.8,811.8021,4,"DT") +3080206 +"^DD",811.8,811.803,0) +INSTALLATION HISTORY SUB-FIELD^^2^4 +"^DD",811.8,811.803,0,"DT") +3070808 +"^DD",811.8,811.803,0,"NM","INSTALLATION HISTORY") + +"^DD",811.8,811.803,0,"UP") +811.8 +"^DD",811.8,811.803,.01,0) +INSTALLATION DATE AND TIME^D^^0;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X +"^DD",811.8,811.803,.01,1,0) +^.1^^0 +"^DD",811.8,811.803,.01,3) +Do not edit this field. +"^DD",811.8,811.803,.01,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.803,.01,21,1,0) +This is the date and time of the installation. +"^DD",811.8,811.803,.01,"DT") +3001121 +"^DD",811.8,811.803,.02,0) +INSTALLED BY^F^^0;2^K:$L(X)>45!($L(X)<1) X +"^DD",811.8,811.803,.02,3) +Do not edit this field. +"^DD",811.8,811.803,.02,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.803,.02,21,1,0) +This is the person who did the installation. +"^DD",811.8,811.803,.02,"DT") +3001116 +"^DD",811.8,811.803,1,0) +COMPONENT LIST^811.8031A^^1;0 +"^DD",811.8,811.803,1,21,0) +^.001^2^2^3050124^^^ +"^DD",811.8,811.803,1,21,1,0) +This multiple contains a list of the packed reminder components that +"^DD",811.8,811.803,1,21,2,0) +were selected as part of this installation. +"^DD",811.8,811.803,2,0) +INSTALLATION TYPE^F^^0;3^K:$L(X)>30!($L(X)<1) X +"^DD",811.8,811.803,2,3) +Answer must be 1-30 characters in length. +"^DD",811.8,811.803,2,21,0) +^.001^3^3^3070808^^ +"^DD",811.8,811.803,2,21,1,0) +This field is used to store the installation type. +"^DD",811.8,811.803,2,21,2,0) + +"^DD",811.8,811.803,2,21,3,0) + +"^DD",811.8,811.803,2,"DT") +3070808 +"^DD",811.8,811.8031,0) +COMPONENT LIST SUB-FIELD^^5^6 +"^DD",811.8,811.8031,0,"DT") +3010313 +"^DD",811.8,811.8031,0,"IX","B",811.8031,.01) + +"^DD",811.8,811.8031,0,"NM","COMPONENT LIST") + +"^DD",811.8,811.8031,0,"UP") +811.803 +"^DD",811.8,811.8031,.01,0) +INDEX^NJ6,0^^0;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X +"^DD",811.8,811.8031,.01,1,0) +^.1 +"^DD",811.8,811.8031,.01,1,1,0) +811.8031^B +"^DD",811.8,811.8031,.01,1,1,1) +S ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.8031,.01,1,1,2) +K ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA) +"^DD",811.8,811.8031,.01,3) +Do not edit this field. +"^DD",811.8,811.8031,.01,21,0) +^.001^2^2^3050124^^^ +"^DD",811.8,811.8031,.01,21,1,0) +This number corresponds to the item number in the List Manager display +"^DD",811.8,811.8031,.01,21,2,0) +of the components in the Exchange File entry. +"^DD",811.8,811.8031,.01,"DT") +3001115 +"^DD",811.8,811.8031,1,0) +COMPONENT^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,1,3) +Do not edit this field. +"^DD",811.8,811.8031,1,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,1,21,1,0) +This is the type of component, Education Topic, Health Factor, etc. +"^DD",811.8,811.8031,1,"DT") +3001115 +"^DD",811.8,811.8031,2,0) +ITEM^F^^0;3^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,2,3) +Do not edit this field. +"^DD",811.8,811.8031,2,21,0) +^.001^2^2^3050124^^ +"^DD",811.8,811.8031,2,21,1,0) +This is the name of the component. For example, if the component is +"^DD",811.8,811.8031,2,21,2,0) +a Health Factor then this is the name of the Health Factor. +"^DD",811.8,811.8031,2,"DT") +3001115 +"^DD",811.8,811.8031,3,0) +ACTION^F^^0;4^K:$L(X)>4!($L(X)<1) X +"^DD",811.8,811.8031,3,3) +Do not edit this field. +"^DD",811.8,811.8031,3,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,3,21,1,0) +This is the action that was taken with the item. +"^DD",811.8,811.8031,3,"DT") +3001115 +"^DD",811.8,811.8031,4,0) +NEWNAME^F^^0;5^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,4,3) +Do not edit this field. +"^DD",811.8,811.8031,4,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,4,21,1,0) +If the item was copied to a new name then the new name is stored here. +"^DD",811.8,811.8031,4,"DT") +3001115 +"^DD",811.8,811.8031,5,0) +ADDITIONAL DETAILS^811.80315A^^1;0 +"^DD",811.8,811.8031,5,21,0) +^.001^3^3^3050124^^^ +"^DD",811.8,811.8031,5,21,1,0) +This multiple is used to store additional details about the +"^DD",811.8,811.8031,5,21,2,0) +installation. As an example, if a finding in a reminder definition is +"^DD",811.8,811.8031,5,21,3,0) +replaced with another finding that information is stored here. +"^DD",811.8,811.80315,0) +ADDITIONAL DETAILS SUB-FIELD^^.01^1 +"^DD",811.8,811.80315,0,"DT") +3010313 +"^DD",811.8,811.80315,0,"IX","B",811.80315,.01) + +"^DD",811.8,811.80315,0,"NM","ADDITIONAL DETAILS") + +"^DD",811.8,811.80315,0,"UP") +811.8031 +"^DD",811.8,811.80315,.01,0) +ADDITIONAL DETAILS^F^^0;1^K:$L(X)>80!($L(X)<1) X +"^DD",811.8,811.80315,.01,1,0) +^.1 +"^DD",811.8,811.80315,.01,1,1,0) +811.80315^B +"^DD",811.8,811.80315,.01,1,1,1) +S ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.80315,.01,1,1,2) +K ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",811.8,811.80315,.01,3) +Do not edit this field. +"^DD",811.8,811.80315,.01,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.80315,.01,21,1,0) +This is a line of additional information. +"^DD",811.8,811.80315,.01,"DT") +3010313 +"^DD",811.8,811.804,0) +DESCRIPTION SUB-FIELD^^.01^1 +"^DD",811.8,811.804,0,"DT") +3001221 +"^DD",811.8,811.804,0,"NM","DESCRIPTION") + +"^DD",811.8,811.804,0,"UP") +811.8 +"^DD",811.8,811.804,.01,0) +DESCRIPTION^W^^0;1^Q +"^DD",811.8,811.804,.01,3) +Do not edit this field. +"^DD",811.8,811.804,.01,"DT") +3001221 +"^DIC",100.98,100.98,0) +DISPLAY GROUP^100.98I +"^DIC",100.98,100.98,0,"GL") +^ORD(100.98, +"^DIC",100.98,100.98,"%D",0) +^^5^5^2971218^^^^ +"^DIC",100.98,100.98,"%D",1,0) +This file allows orders to be clustered in groups other than by package. +"^DIC",100.98,100.98,"%D",2,0) +It is similar in structure to the OPTION File (19). This allows display +"^DIC",100.98,100.98,"%D",3,0) +groups to be arranged in a hierarchy. The main entry in this file +"^DIC",100.98,100.98,"%D",4,0) +should be 'ALL SERVICES'. Other entries should be logically subordinate +"^DIC",100.98,100.98,"%D",5,0) +to the 'ALL SERVICES' entry. +"^DIC",100.98,"B","DISPLAY GROUP",100.98) + +"^DIC",101.41,101.41,0) +ORDER DIALOG^101.41 +"^DIC",101.41,101.41,0,"GL") +^ORD(101.41, +"^DIC",101.41,101.41,"%D",0) +^^2^2^2960819^^ +"^DIC",101.41,101.41,"%D",1,0) +This file contains the information needed to define how to prompt for each +"^DIC",101.41,101.41,"%D",2,0) +order, what values are acceptable, etc. +"^DIC",101.41,"B","ORDER DIALOG",101.41) + +"^DIC",811.8,811.8,0) +REMINDER EXCHANGE^811.8 +"^DIC",811.8,811.8,0,"GL") +^PXD(811.8, +"^DIC",811.8,811.8,"%",0) +^1.005^^0 +"^DIC",811.8,811.8,"%D",0) +^1.001^3^3^3050126^^^^ +"^DIC",811.8,811.8,"%D",1,0) +The Reminder Exchange File is used to store packed reminder +"^DIC",811.8,811.8,"%D",2,0) +definitions. All the entries in this file are managed by the +"^DIC",811.8,811.8,"%D",3,0) +Reminder Exchange Utility and should never be edited by hand. +"^DIC",811.8,"B","REMINDER EXCHANGE",811.8) + +**END** +**END**