INSY181 ;slt;19 Aug 1994@090347;compiled gis system data
;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
;COPYRIGHT 1991-2000 SAIC
Q
;
EN F I=1:2 S %ODD=$E($T(EN+I),4,999) Q:%ODD="" S %EVEN=$E($T(EN+(I+1)),4,999) S X="^UTILITY(""INHSYS"","_$J_","_$P(%ODD,",",2,99),@X=%EVEN
;;^UTILITY(562037788,"DEMF",1,0)
;;HOSPITAL LOCATION^^1^^^^99HOS
;;^UTILITY(562037788,"DEMF",1,"SC")
;;44
;;^UTILITY(562037788,"DEMF",2,0)
;;PROVIDER^^0^^^^99STF
;;^UTILITY(562037788,"DEMF",2,"SC")
;;6
;;^UTILITY(562037788,"DEMF",13,0)
;;RADIOLOGY PROCEDURE^^0^^^^99RPR
;;^UTILITY(562037788,"DEMF",13,"SC")
;;71
;;^UTILITY(562037788,"DEMF",19,0)
;;PATIENT
;;^UTILITY(562037788,"DEMF",19,"SC")
;;2
;;^UTILITY(562037788,"ID",4,0)
;;MDIS^^INHVAM
;;^UTILITY(562037788,"ID",4,5,0)
;;^4005.02^^0
;;^UTILITY(562037788,"IS",8,0)
;;Generated: HL RAD RESULT MESSAGE-O^O^70.5^^1^6
;;^UTILITY(562037788,"IS",8,1,0)
;;^^123^123
;;^UTILITY(562037788,"IS",8,1,1,0)
;;;Script generated from 'HL RAD RESULT MESSAGE' HL7 message.|CR|
;;^UTILITY(562037788,"IS",8,1,2,0)
;;DATA:|CR|
;;^UTILITY(562037788,"IS",8,1,3,0)
;;DELIM="^"|CR|
;;^UTILITY(562037788,"IS",8,1,4,0)
;;SUBDELIM="\"|CR|
;;^UTILITY(562037788,"IS",8,1,5,0)
;;LINE "MSH"^"\|~&"^^INSITE^^^INTX(NOW,"TS")^^"ORU"^@MESSID^"D"^"2.2"|CR|
;;^UTILITY(562037788,"IS",8,1,6,0)
;;;'PID' segment|CR|
;;^UTILITY(562037788,"IS",8,1,7,0)
;;^SET INSETID=0|CR|
;;^UTILITY(562037788,"IS",8,1,8,0)
;;WHILE PATIENT|CR|
;;^UTILITY(562037788,"IS",8,1,9,0)
;;SET PID1 = $E(INSGX("^INTHL7FT(11,3)","PID"),1,4)|CR|
;;^UTILITY(562037788,"IS",8,1,10,0)
;;SET PID2 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,11,0)
;;SET PID3.1 = $E(INSGX("^INTHL7FT(3,3)",NUMBER),1,15)|CR|
;;^UTILITY(562037788,"IS",8,1,12,0)
;;SET PID3.2 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,13,0)
;;SET PID3.3 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,14,0)
;;SET PID3.4 = $E(INSITE,1,15)|CR|
;;^UTILITY(562037788,"IS",8,1,15,0)
;;SET PID4 = #8000|CR|
;;^UTILITY(562037788,"IS",8,1,16,0)
;;SET PID5 = $E(INSGX("^INTHL7FT(7,3)",NAME),1,48)|CR|
;;^UTILITY(562037788,"IS",8,1,17,0)
;;SET PID6 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,18,0)
;;SET PID7 = $E(INSGX("^INTHL7FT(4,3)",DOB),1,8)|CR|
;;^UTILITY(562037788,"IS",8,1,19,0)
;;SET PID8 = $E(INTERNAL(SEX),1,1)|CR|
;;^UTILITY(562037788,"IS",8,1,20,0)
;;SET PID9 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,21,0)
;;SET PID10 = $E(INTERNAL(RACE:CODE),1,1)|CR|
;;^UTILITY(562037788,"IS",8,1,22,0)
;;SET PID11.1 = $E(STREET ADDRESS,1,36)|CR|
;;^UTILITY(562037788,"IS",8,1,23,0)
;;SET PID11.2 = $E(#.112_$S($L(#.113):" ",1:"")_#.113,1,36)|CR|
;;^UTILITY(562037788,"IS",8,1,24,0)
;;SET PID11.3 = $E(CITY,1,20)|CR|
;;^UTILITY(562037788,"IS",8,1,25,0)
;;SET PID11.4 = $E(STATE,1,71)|CR|
;;^UTILITY(562037788,"IS",8,1,26,0)
;;SET PID11.5 = $E(ZIP CODE,1,10)|CR|
;;^UTILITY(562037788,"IS",8,1,27,0)
;;SET PID12 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,28,0)
;;SET PID13 = PHONE|CR|
;;^UTILITY(562037788,"IS",8,1,29,0)
;;SET PID14 = OFFICE PHONE|CR|
;;^UTILITY(562037788,"IS",8,1,30,0)
;;SET PID15 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,31,0)
;;SET PID16 = $E(INTERNAL(MARITAL STATUS:ABBREVIATION),1,1)|CR|
;;^UTILITY(562037788,"IS",8,1,32,0)
;;SET PID17 = $E(INTERNAL(RELIGION:CODE),1,3)|CR|
;;^UTILITY(562037788,"IS",8,1,33,0)
;;SET PID18 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,34,0)
;;SET PID19 = #.09|CR|
;;^UTILITY(562037788,"IS",8,1,35,0)
;;SET PID20 = ""|CR|
;;^UTILITY(562037788,"IS",8,1,36,0)
;;LINE "PID"^PID1^PID2^PID3.1_SUBDELIM_PID3.2_SUBDELIM_PID3.3_SUBDELIM_PID3.4^$E(PID4,1,15)^PID5^PID6^PID7^PID8^PID9^PID10^PID11.1_SUBDELIM_PID11.2_SUBDELIM_PID11.3_SUBDELIM_PID11.4_SUBDELIM_PID11.5^PID12^$E(PID13,1,14)^$E(PID14,1,18)^PID15^
;;^UTILITY(562037788,"IS",8,1,37,0)
;;PID16^PID17^PID18^$E(PID19,1,16)^PID20|CR|
;;^UTILITY(562037788,"IS",8,1,38,0)
;;ENDWHILE|CR|
;;^UTILITY(562037788,"IS",8,1,39,0)
;;;'ORC' segment|CR|
;;^UTILITY(562037788,"IS",8,1,40,0)
;;^SET INSETID=0|CR|
;;^UTILITY(562037788,"IS",8,1,41,0)
;;WHILE RADIOLOGY EXAM|CR|
;;^UTILITY(562037788,"IS",8,1,42,0)
;;^D RESLT^RAGISH01|CR|
;;^UTILITY(562037788,"IS",8,1,43,0)
;;SET ORC1 = $E(INTERNAL(@OREVENT),1,2)|CR|
;;^UTILITY(562037788,"IS",8,1,44,0)
;;SET ORC5 = $E(INTERNAL(@ORSTAT),1,2)|CR|
;;^UTILITY(562037788,"IS",8,1,45,0)
;;SET ORC9 = $E(INSGX("^INTHL7FT(6,3)",@ORTT),1,26)|CR|
;;^UTILITY(562037788,"IS",8,1,46,0)
;;SET ORC10 = $E(INSGX("^INTHL7FT(19,3)",@ORDUZ),1,80)|CR|
;;^UTILITY(562037788,"IS",8,1,47,0)
;;SET ORC11 = $E(INSGX("^INTHL7FT(19,3)",@ORHCP),1,80)|CR|
;;^UTILITY(562037788,"IS",8,1,48,0)
;;SET ORC13 = $E(INTERNAL(#1.07)_SUBDELIM_(#1.07),1,80)|CR|
;;^UTILITY(562037788,"IS",8,1,49,0)
;;SET ORC15 = $E(INSGX("^INTHL7FT(6,3)",#.07),1,26)|CR|
;;^UTILITY(562037788,"IS",8,1,50,0)
;;SET ORC16 = @ORCOM|CR|
;;^UTILITY(562037788,"IS",8,1,51,0)
;;LINE "ORC"^ORC1^^^^ORC5^^^^ORC9^ORC10^ORC11^^ORC13^^ORC15^$E(ORC16,1,200)|CR|
;;^UTILITY(562037788,"IS",8,1,52,0)
;;;'OBR' segment|CR|
;;^UTILITY(562037788,"IS",8,1,53,0)
;;^SET INSETID=0|CR|
;;^UTILITY(562037788,"IS",8,1,54,0)
;;SET OBR1 = $E(INSGX("^INTHL7FT(11,3)","OBR"),1,4)|CR|
;;^UTILITY(562037788,"IS",8,1,55,0)
;;SET OBR2 = #8609.11|CR|
;;^UTILITY(562037788,"IS",8,1,56,0)
;;SET OBR3 = #.01|CR|
;;^UTILITY(562037788,"IS",8,1,57,0)
;;SET OBR4 = $E(INSGX("^INTHL7FT(17,3)",INTERNAL(#.03)_";71"),1,75)|CR|
;;^UTILITY(562037788,"IS",8,1,58,0)
;;SET OBR6 = $E(INSGX("^INTHL7FT(6,3)",#.06),1,26)|CR|
;;^UTILITY(562037788,"IS",8,1,59,0)
;;SET OBR7 = $E(INSGX("^INTHL7FT(6,3)",@OBSDATE),1,26)|CR|
;;^UTILITY(562037788,"IS",8,1,60,0)
;;SET OBR13 = #8609.12:#.1|CR|
;;^UTILITY(562037788,"IS",8,1,61,0)
;;SET OBR14 = $E(INSGX("^INTHL7FT(6,3)",@RECDATE),1,26)|CR|
;;^UTILITY(562037788,"IS",8,1,62,0)
;;SET OBR16 = $E(INTERNAL(#.08)_SUBDELIM_(INSGX("^INTHL7FT(15,3)",#.08)),1,60)|CR|
;;^UTILITY(562037788,"IS",8,1,63,0)
;;SET OBR22 = $E(INSGX("^INTHL7FT(6,3)",@EFFDATE),1,26)|CR|
;;^UTILITY(562037788,"IS",8,1,64,0)
;;SET OBR24 = $E(INTERNAL(#.15:#.01)_SUBDELIM_(#.15:#.01),1,75)|CR|
;;^UTILITY(562037788,"IS",8,1,65,0)
;;SET OBR25 = $E(INTERNAL(@RESULT),1,1)|CR|
Q
INSY181 ;slt;19 Aug 1994@090347;compiled gis system data
+1 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
+2 ;COPYRIGHT 1991-2000 SAIC
+3 QUIT
+4 ;
EN FOR I=1:2
SET %ODD=$EXTRACT($TEXT(EN+I),4,999)
IF %ODD=""
QUIT
SET %EVEN=$EXTRACT($TEXT(EN+(I+1)),4,999)
SET X="^UTILITY(""INHSYS"","_$JOB_","_$PIECE(%ODD,",",2,99)
SET @X=%EVEN
+1 ;;^UTILITY(562037788,"DEMF",1,0)
+2 ;;HOSPITAL LOCATION^^1^^^^99HOS
+3 ;;^UTILITY(562037788,"DEMF",1,"SC")
+4 ;;44
+5 ;;^UTILITY(562037788,"DEMF",2,0)
+6 ;;PROVIDER^^0^^^^99STF
+7 ;;^UTILITY(562037788,"DEMF",2,"SC")
+8 ;;6
+9 ;;^UTILITY(562037788,"DEMF",13,0)
+10 ;;RADIOLOGY PROCEDURE^^0^^^^99RPR
+11 ;;^UTILITY(562037788,"DEMF",13,"SC")
+12 ;;71
+13 ;;^UTILITY(562037788,"DEMF",19,0)
+14 ;;PATIENT
+15 ;;^UTILITY(562037788,"DEMF",19,"SC")
+16 ;;2
+17 ;;^UTILITY(562037788,"ID",4,0)
+18 ;;MDIS^^INHVAM
+19 ;;^UTILITY(562037788,"ID",4,5,0)
+20 ;;^4005.02^^0
+21 ;;^UTILITY(562037788,"IS",8,0)
+22 ;;Generated: HL RAD RESULT MESSAGE-O^O^70.5^^1^6
+23 ;;^UTILITY(562037788,"IS",8,1,0)
+24 ;;^^123^123
+25 ;;^UTILITY(562037788,"IS",8,1,1,0)
+26 ;;;Script generated from 'HL RAD RESULT MESSAGE' HL7 message.|CR|
+27 ;;^UTILITY(562037788,"IS",8,1,2,0)
+28 ;;DATA:|CR|
+29 ;;^UTILITY(562037788,"IS",8,1,3,0)
+30 ;;DELIM="^"|CR|
+31 ;;^UTILITY(562037788,"IS",8,1,4,0)
+32 ;;SUBDELIM="\"|CR|
+33 ;;^UTILITY(562037788,"IS",8,1,5,0)
+34 ;;LINE "MSH"^"\|~&"^^INSITE^^^INTX(NOW,"TS")^^"ORU"^@MESSID^"D"^"2.2"|CR|
+35 ;;^UTILITY(562037788,"IS",8,1,6,0)
+36 ;;;'PID' segment|CR|
+37 ;;^UTILITY(562037788,"IS",8,1,7,0)
+38 ;;^SET INSETID=0|CR|
+39 ;;^UTILITY(562037788,"IS",8,1,8,0)
+40 ;;WHILE PATIENT|CR|
+41 ;;^UTILITY(562037788,"IS",8,1,9,0)
+42 ;;SET PID1 = $E(INSGX("^INTHL7FT(11,3)","PID"),1,4)|CR|
+43 ;;^UTILITY(562037788,"IS",8,1,10,0)
+44 ;;SET PID2 = ""|CR|
+45 ;;^UTILITY(562037788,"IS",8,1,11,0)
+46 ;;SET PID3.1 = $E(INSGX("^INTHL7FT(3,3)",NUMBER),1,15)|CR|
+47 ;;^UTILITY(562037788,"IS",8,1,12,0)
+48 ;;SET PID3.2 = ""|CR|
+49 ;;^UTILITY(562037788,"IS",8,1,13,0)
+50 ;;SET PID3.3 = ""|CR|
+51 ;;^UTILITY(562037788,"IS",8,1,14,0)
+52 ;;SET PID3.4 = $E(INSITE,1,15)|CR|
+53 ;;^UTILITY(562037788,"IS",8,1,15,0)
+54 ;;SET PID4 = #8000|CR|
+55 ;;^UTILITY(562037788,"IS",8,1,16,0)
+56 ;;SET PID5 = $E(INSGX("^INTHL7FT(7,3)",NAME),1,48)|CR|
+57 ;;^UTILITY(562037788,"IS",8,1,17,0)
+58 ;;SET PID6 = ""|CR|
+59 ;;^UTILITY(562037788,"IS",8,1,18,0)
+60 ;;SET PID7 = $E(INSGX("^INTHL7FT(4,3)",DOB),1,8)|CR|
+61 ;;^UTILITY(562037788,"IS",8,1,19,0)
+62 ;;SET PID8 = $E(INTERNAL(SEX),1,1)|CR|
+63 ;;^UTILITY(562037788,"IS",8,1,20,0)
+64 ;;SET PID9 = ""|CR|
+65 ;;^UTILITY(562037788,"IS",8,1,21,0)
+66 ;;SET PID10 = $E(INTERNAL(RACE:CODE),1,1)|CR|
+67 ;;^UTILITY(562037788,"IS",8,1,22,0)
+68 ;;SET PID11.1 = $E(STREET ADDRESS,1,36)|CR|
+69 ;;^UTILITY(562037788,"IS",8,1,23,0)
+70 ;;SET PID11.2 = $E(#.112_$S($L(#.113):" ",1:"")_#.113,1,36)|CR|
+71 ;;^UTILITY(562037788,"IS",8,1,24,0)
+72 ;;SET PID11.3 = $E(CITY,1,20)|CR|
+73 ;;^UTILITY(562037788,"IS",8,1,25,0)
+74 ;;SET PID11.4 = $E(STATE,1,71)|CR|
+75 ;;^UTILITY(562037788,"IS",8,1,26,0)
+76 ;;SET PID11.5 = $E(ZIP CODE,1,10)|CR|
+77 ;;^UTILITY(562037788,"IS",8,1,27,0)
+78 ;;SET PID12 = ""|CR|
+79 ;;^UTILITY(562037788,"IS",8,1,28,0)
+80 ;;SET PID13 = PHONE|CR|
+81 ;;^UTILITY(562037788,"IS",8,1,29,0)
+82 ;;SET PID14 = OFFICE PHONE|CR|
+83 ;;^UTILITY(562037788,"IS",8,1,30,0)
+84 ;;SET PID15 = ""|CR|
+85 ;;^UTILITY(562037788,"IS",8,1,31,0)
+86 ;;SET PID16 = $E(INTERNAL(MARITAL STATUS:ABBREVIATION),1,1)|CR|
+87 ;;^UTILITY(562037788,"IS",8,1,32,0)
+88 ;;SET PID17 = $E(INTERNAL(RELIGION:CODE),1,3)|CR|
+89 ;;^UTILITY(562037788,"IS",8,1,33,0)
+90 ;;SET PID18 = ""|CR|
+91 ;;^UTILITY(562037788,"IS",8,1,34,0)
+92 ;;SET PID19 = #.09|CR|
+93 ;;^UTILITY(562037788,"IS",8,1,35,0)
+94 ;;SET PID20 = ""|CR|
+95 ;;^UTILITY(562037788,"IS",8,1,36,0)
+96 ;;LINE "PID"^PID1^PID2^PID3.1_SUBDELIM_PID3.2_SUBDELIM_PID3.3_SUBDELIM_PID3.4^$E(PID4,1,15)^PID5^PID6^PID7^PID8^PID9^PID10^PID11.1_SUBDELIM_PID11.2_SUBDELIM_PID11.3_SUBDELIM_PID11.4_SUBDELIM_PID11.5^PID12^$E(PID13,1,14)^$E(PID14,1,18)^PID15^
+97 ;;^UTILITY(562037788,"IS",8,1,37,0)
+98 ;;PID16^PID17^PID18^$E(PID19,1,16)^PID20|CR|
+99 ;;^UTILITY(562037788,"IS",8,1,38,0)
+100 ;;ENDWHILE|CR|
+101 ;;^UTILITY(562037788,"IS",8,1,39,0)
+102 ;;;'ORC' segment|CR|
+103 ;;^UTILITY(562037788,"IS",8,1,40,0)
+104 ;;^SET INSETID=0|CR|
+105 ;;^UTILITY(562037788,"IS",8,1,41,0)
+106 ;;WHILE RADIOLOGY EXAM|CR|
+107 ;;^UTILITY(562037788,"IS",8,1,42,0)
+108 ;;^D RESLT^RAGISH01|CR|
+109 ;;^UTILITY(562037788,"IS",8,1,43,0)
+110 ;;SET ORC1 = $E(INTERNAL(@OREVENT),1,2)|CR|
+111 ;;^UTILITY(562037788,"IS",8,1,44,0)
+112 ;;SET ORC5 = $E(INTERNAL(@ORSTAT),1,2)|CR|
+113 ;;^UTILITY(562037788,"IS",8,1,45,0)
+114 ;;SET ORC9 = $E(INSGX("^INTHL7FT(6,3)",@ORTT),1,26)|CR|
+115 ;;^UTILITY(562037788,"IS",8,1,46,0)
+116 ;;SET ORC10 = $E(INSGX("^INTHL7FT(19,3)",@ORDUZ),1,80)|CR|
+117 ;;^UTILITY(562037788,"IS",8,1,47,0)
+118 ;;SET ORC11 = $E(INSGX("^INTHL7FT(19,3)",@ORHCP),1,80)|CR|
+119 ;;^UTILITY(562037788,"IS",8,1,48,0)
+120 ;;SET ORC13 = $E(INTERNAL(#1.07)_SUBDELIM_(#1.07),1,80)|CR|
+121 ;;^UTILITY(562037788,"IS",8,1,49,0)
+122 ;;SET ORC15 = $E(INSGX("^INTHL7FT(6,3)",#.07),1,26)|CR|
+123 ;;^UTILITY(562037788,"IS",8,1,50,0)
+124 ;;SET ORC16 = @ORCOM|CR|
+125 ;;^UTILITY(562037788,"IS",8,1,51,0)
+126 ;;LINE "ORC"^ORC1^^^^ORC5^^^^ORC9^ORC10^ORC11^^ORC13^^ORC15^$E(ORC16,1,200)|CR|
+127 ;;^UTILITY(562037788,"IS",8,1,52,0)
+128 ;;;'OBR' segment|CR|
+129 ;;^UTILITY(562037788,"IS",8,1,53,0)
+130 ;;^SET INSETID=0|CR|
+131 ;;^UTILITY(562037788,"IS",8,1,54,0)
+132 ;;SET OBR1 = $E(INSGX("^INTHL7FT(11,3)","OBR"),1,4)|CR|
+133 ;;^UTILITY(562037788,"IS",8,1,55,0)
+134 ;;SET OBR2 = #8609.11|CR|
+135 ;;^UTILITY(562037788,"IS",8,1,56,0)
+136 ;;SET OBR3 = #.01|CR|
+137 ;;^UTILITY(562037788,"IS",8,1,57,0)
+138 ;;SET OBR4 = $E(INSGX("^INTHL7FT(17,3)",INTERNAL(#.03)_";71"),1,75)|CR|
+139 ;;^UTILITY(562037788,"IS",8,1,58,0)
+140 ;;SET OBR6 = $E(INSGX("^INTHL7FT(6,3)",#.06),1,26)|CR|
+141 ;;^UTILITY(562037788,"IS",8,1,59,0)
+142 ;;SET OBR7 = $E(INSGX("^INTHL7FT(6,3)",@OBSDATE),1,26)|CR|
+143 ;;^UTILITY(562037788,"IS",8,1,60,0)
+144 ;;SET OBR13 = #8609.12:#.1|CR|
+145 ;;^UTILITY(562037788,"IS",8,1,61,0)
+146 ;;SET OBR14 = $E(INSGX("^INTHL7FT(6,3)",@RECDATE),1,26)|CR|
+147 ;;^UTILITY(562037788,"IS",8,1,62,0)
+148 ;;SET OBR16 = $E(INTERNAL(#.08)_SUBDELIM_(INSGX("^INTHL7FT(15,3)",#.08)),1,60)|CR|
+149 ;;^UTILITY(562037788,"IS",8,1,63,0)
+150 ;;SET OBR22 = $E(INSGX("^INTHL7FT(6,3)",@EFFDATE),1,26)|CR|
+151 ;;^UTILITY(562037788,"IS",8,1,64,0)
+152 ;;SET OBR24 = $E(INTERNAL(#.15:#.01)_SUBDELIM_(#.15:#.01),1,75)|CR|
+153 ;;^UTILITY(562037788,"IS",8,1,65,0)
+154 ;;SET OBR25 = $E(INTERNAL(@RESULT),1,1)|CR|
+155 QUIT
