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**