INSY189 ;slt;19 Aug 1994@090356;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,"SGS",32,1,2,0)
;;HL SET ID - OBSERVATION^1^0^0^0^0
;;^UTILITY(562037788,"SGS",32,1,3,0)
;;HL RAD STRING^2^1^0^0^0
;;^UTILITY(562037788,"SGS",32,1,4,0)
;;HL RAD REPORT^5^1^1^0^0
;;^UTILITY(562037788,"SGS",32,1,5,0)
;;HL RAD REPORT OBS ID^3^1^0
;;^UTILITY(562037788,"SGS",32,1,"AS",1,2)
;;
;;^UTILITY(562037788,"SGS",32,1,"AS",2,3)
;;
;;^UTILITY(562037788,"SGS",32,1,"AS",3,5)
;;
;;^UTILITY(562037788,"SGS",32,1,"AS",5,4)
;;
;;^UTILITY(562037788,"SGS",32,1,"B",267,2)
;;
;;^UTILITY(562037788,"SGS",32,1,"B",297,4)
;;
;;^UTILITY(562037788,"SGS",32,1,"B",310,3)
;;
;;^UTILITY(562037788,"SGS",32,1,"B",314,5)
;;
;;^UTILITY(562037788,"SGS",36,0)
;;HL RAD RESULT OBSER PARENT^OBX
;;^UTILITY(562037788,"SGS",37,0)
;;HL RAD RESULT ORDER^ORC
;;^UTILITY(562037788,"SGS",37,1,0)
;;^4010.01P^16^8
;;^UTILITY(562037788,"SGS",37,1,1,0)
;;HL ORDER CONTROL^1^1^0^0
;;^UTILITY(562037788,"SGS",37,1,5,0)
;;HL ORDER STATUS (ID)^5^0
;;^UTILITY(562037788,"SGS",37,1,9,0)
;;HL DT/TM OF TRANSACTION^9^1
;;^UTILITY(562037788,"SGS",37,1,10,0)
;;HL ENTERED BY^10^1
;;^UTILITY(562037788,"SGS",37,1,11,0)
;;HL VERIFIED BY^11^1
;;^UTILITY(562037788,"SGS",37,1,13,0)
;;HL RAD ENTERER'S LOCATION^13^1
;;^UTILITY(562037788,"SGS",37,1,15,0)
;;HL RAD ORDER EFFECTIVE DT^15^1
;;^UTILITY(562037788,"SGS",37,1,16,0)
;;HL ORDER CODE REASON^16^0
;;^UTILITY(562037788,"SGS",37,1,"AS",1,1)
;;
;;^UTILITY(562037788,"SGS",37,1,"AS",5,5)
;;
;;^UTILITY(562037788,"SGS",37,1,"AS",9,9)
;;
;;^UTILITY(562037788,"SGS",37,1,"AS",10,10)
;;
;;^UTILITY(562037788,"SGS",37,1,"AS",11,11)
;;
;;^UTILITY(562037788,"SGS",37,1,"AS",13,13)
;;
;;^UTILITY(562037788,"SGS",37,1,"AS",15,15)
;;
;;^UTILITY(562037788,"SGS",37,1,"AS",16,16)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",218,1)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",222,5)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",226,9)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",227,10)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",228,11)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",233,16)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",293,13)
;;
;;^UTILITY(562037788,"SGS",37,1,"B",294,15)
;;
;;^UTILITY(562037788,"SGS",38,0)
;;HL RAD RESULT AMENDED OBSER^OBX
;;^UTILITY(562037788,"SGS",38,1,0)
;;^4010.01P^5^4
;;^UTILITY(562037788,"SGS",38,1,1,0)
;;HL SET ID - OBSERVATION^1^1^0^0^0
;;^UTILITY(562037788,"SGS",38,1,2,0)
;;HL RAD STRING^2^1^0^0^0
;;^UTILITY(562037788,"SGS",38,1,3,0)
;;HL RAD AMENDED REPORT^5^1^1^0^0
;;^UTILITY(562037788,"SGS",38,1,5,0)
;;HL RAD REPORT OBS ID^3^1^0^0^0
;;^UTILITY(562037788,"SGS",38,1,"AS",1,1)
;;
;;^UTILITY(562037788,"SGS",38,1,"AS",2,2)
;;
;;^UTILITY(562037788,"SGS",38,1,"AS",3,5)
;;
;;^UTILITY(562037788,"SGS",38,1,"AS",5,3)
;;
;;^UTILITY(562037788,"SGS",38,1,"B",267,1)
;;
;;^UTILITY(562037788,"SGS",38,1,"B",298,3)
;;
;;^UTILITY(562037788,"SGS",38,1,"B",310,2)
;;
;;^UTILITY(562037788,"SGS",38,1,"B",314,5)
;;
;;^UTILITY(562037788,"SGS",39,0)
;;HL RAD RESULT CODE^OBX
;;^UTILITY(562037788,"SGS",39,1,0)
;;^4010.01P^4^4
;;^UTILITY(562037788,"SGS",39,1,1,0)
;;HL SET ID - OBSERVATION^1^1^0^0^0
;;^UTILITY(562037788,"SGS",39,1,2,0)
;;HL RAD CODED ELEMENT^2^1^0^0^0
;;^UTILITY(562037788,"SGS",39,1,3,0)
;;HL RAD RESULT CODE^5^1^0^0^0
;;^UTILITY(562037788,"SGS",39,1,4,0)
;;HL RAD RESULT CODE OBS ID^3^1^0^0^0
;;^UTILITY(562037788,"SGS",39,1,"AS",1,1)
;;
;;^UTILITY(562037788,"SGS",39,1,"AS",2,2)
;;
;;^UTILITY(562037788,"SGS",39,1,"AS",3,4)
;;
;;^UTILITY(562037788,"SGS",39,1,"AS",5,3)
;;
;;^UTILITY(562037788,"SGS",39,1,"B",267,1)
;;
;;^UTILITY(562037788,"SGS",39,1,"B",295,3)
;;
;;^UTILITY(562037788,"SGS",39,1,"B",311,2)
;;
;;^UTILITY(562037788,"SGS",39,1,"B",313,4)
;;
;;^UTILITY(562037788,"SGS",40,0)
;;HL RAD RESULT CODE AMENDED^OBX
;;^UTILITY(562037788,"SGS",40,1,0)
;;^4010.01P^4^4
;;^UTILITY(562037788,"SGS",40,1,1,0)
;;HL SET ID - OBSERVATION^1^1^0^0^0
;;^UTILITY(562037788,"SGS",40,1,2,0)
;;HL RAD CODED ELEMENT^2^1^0^0^0
;;^UTILITY(562037788,"SGS",40,1,3,0)
;;HL RAD AMENDED RESULT CODE^5^1^0^0^0
;;^UTILITY(562037788,"SGS",40,1,4,0)
;;HL RAD RESULT CODE OBS ID^3^1^0^0^0
;;^UTILITY(562037788,"SGS",40,1,"AS",1,1)
;;
;;^UTILITY(562037788,"SGS",40,1,"AS",2,2)
;;
;;^UTILITY(562037788,"SGS",40,1,"AS",3,4)
;;
;;^UTILITY(562037788,"SGS",40,1,"AS",5,3)
;;
;;^UTILITY(562037788,"SGS",40,1,"B",267,1)
;;
;;^UTILITY(562037788,"SGS",40,1,"B",296,3)
;;
;;^UTILITY(562037788,"SGS",40,1,"B",311,2)
;;
;;^UTILITY(562037788,"SGS",40,1,"B",313,4)
;;
;;^UTILITY(562037788,"TT",18,0)
;;HL RAD RESULTS (MDIS)^MDIS^Generated: HL RAD RESULT MESSAGE-O^^1^HL RAD RESULTS^^O
;;^UTILITY(562037788,"TTP",20,0)
;;HL RAD RESULTS^^^^1^^^O
Q
INSY189 ;slt;19 Aug 1994@090356;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,"SGS",32,1,2,0)
+2 ;;HL SET ID - OBSERVATION^1^0^0^0^0
+3 ;;^UTILITY(562037788,"SGS",32,1,3,0)
+4 ;;HL RAD STRING^2^1^0^0^0
+5 ;;^UTILITY(562037788,"SGS",32,1,4,0)
+6 ;;HL RAD REPORT^5^1^1^0^0
+7 ;;^UTILITY(562037788,"SGS",32,1,5,0)
+8 ;;HL RAD REPORT OBS ID^3^1^0
+9 ;;^UTILITY(562037788,"SGS",32,1,"AS",1,2)
+10 ;;
+11 ;;^UTILITY(562037788,"SGS",32,1,"AS",2,3)
+12 ;;
+13 ;;^UTILITY(562037788,"SGS",32,1,"AS",3,5)
+14 ;;
+15 ;;^UTILITY(562037788,"SGS",32,1,"AS",5,4)
+16 ;;
+17 ;;^UTILITY(562037788,"SGS",32,1,"B",267,2)
+18 ;;
+19 ;;^UTILITY(562037788,"SGS",32,1,"B",297,4)
+20 ;;
+21 ;;^UTILITY(562037788,"SGS",32,1,"B",310,3)
+22 ;;
+23 ;;^UTILITY(562037788,"SGS",32,1,"B",314,5)
+24 ;;
+25 ;;^UTILITY(562037788,"SGS",36,0)
+26 ;;HL RAD RESULT OBSER PARENT^OBX
+27 ;;^UTILITY(562037788,"SGS",37,0)
+28 ;;HL RAD RESULT ORDER^ORC
+29 ;;^UTILITY(562037788,"SGS",37,1,0)
+30 ;;^4010.01P^16^8
+31 ;;^UTILITY(562037788,"SGS",37,1,1,0)
+32 ;;HL ORDER CONTROL^1^1^0^0
+33 ;;^UTILITY(562037788,"SGS",37,1,5,0)
+34 ;;HL ORDER STATUS (ID)^5^0
+35 ;;^UTILITY(562037788,"SGS",37,1,9,0)
+36 ;;HL DT/TM OF TRANSACTION^9^1
+37 ;;^UTILITY(562037788,"SGS",37,1,10,0)
+38 ;;HL ENTERED BY^10^1
+39 ;;^UTILITY(562037788,"SGS",37,1,11,0)
+40 ;;HL VERIFIED BY^11^1
+41 ;;^UTILITY(562037788,"SGS",37,1,13,0)
+42 ;;HL RAD ENTERER'S LOCATION^13^1
+43 ;;^UTILITY(562037788,"SGS",37,1,15,0)
+44 ;;HL RAD ORDER EFFECTIVE DT^15^1
+45 ;;^UTILITY(562037788,"SGS",37,1,16,0)
+46 ;;HL ORDER CODE REASON^16^0
+47 ;;^UTILITY(562037788,"SGS",37,1,"AS",1,1)
+48 ;;
+49 ;;^UTILITY(562037788,"SGS",37,1,"AS",5,5)
+50 ;;
+51 ;;^UTILITY(562037788,"SGS",37,1,"AS",9,9)
+52 ;;
+53 ;;^UTILITY(562037788,"SGS",37,1,"AS",10,10)
+54 ;;
+55 ;;^UTILITY(562037788,"SGS",37,1,"AS",11,11)
+56 ;;
+57 ;;^UTILITY(562037788,"SGS",37,1,"AS",13,13)
+58 ;;
+59 ;;^UTILITY(562037788,"SGS",37,1,"AS",15,15)
+60 ;;
+61 ;;^UTILITY(562037788,"SGS",37,1,"AS",16,16)
+62 ;;
+63 ;;^UTILITY(562037788,"SGS",37,1,"B",218,1)
+64 ;;
+65 ;;^UTILITY(562037788,"SGS",37,1,"B",222,5)
+66 ;;
+67 ;;^UTILITY(562037788,"SGS",37,1,"B",226,9)
+68 ;;
+69 ;;^UTILITY(562037788,"SGS",37,1,"B",227,10)
+70 ;;
+71 ;;^UTILITY(562037788,"SGS",37,1,"B",228,11)
+72 ;;
+73 ;;^UTILITY(562037788,"SGS",37,1,"B",233,16)
+74 ;;
+75 ;;^UTILITY(562037788,"SGS",37,1,"B",293,13)
+76 ;;
+77 ;;^UTILITY(562037788,"SGS",37,1,"B",294,15)
+78 ;;
+79 ;;^UTILITY(562037788,"SGS",38,0)
+80 ;;HL RAD RESULT AMENDED OBSER^OBX
+81 ;;^UTILITY(562037788,"SGS",38,1,0)
+82 ;;^4010.01P^5^4
+83 ;;^UTILITY(562037788,"SGS",38,1,1,0)
+84 ;;HL SET ID - OBSERVATION^1^1^0^0^0
+85 ;;^UTILITY(562037788,"SGS",38,1,2,0)
+86 ;;HL RAD STRING^2^1^0^0^0
+87 ;;^UTILITY(562037788,"SGS",38,1,3,0)
+88 ;;HL RAD AMENDED REPORT^5^1^1^0^0
+89 ;;^UTILITY(562037788,"SGS",38,1,5,0)
+90 ;;HL RAD REPORT OBS ID^3^1^0^0^0
+91 ;;^UTILITY(562037788,"SGS",38,1,"AS",1,1)
+92 ;;
+93 ;;^UTILITY(562037788,"SGS",38,1,"AS",2,2)
+94 ;;
+95 ;;^UTILITY(562037788,"SGS",38,1,"AS",3,5)
+96 ;;
+97 ;;^UTILITY(562037788,"SGS",38,1,"AS",5,3)
+98 ;;
+99 ;;^UTILITY(562037788,"SGS",38,1,"B",267,1)
+100 ;;
+101 ;;^UTILITY(562037788,"SGS",38,1,"B",298,3)
+102 ;;
+103 ;;^UTILITY(562037788,"SGS",38,1,"B",310,2)
+104 ;;
+105 ;;^UTILITY(562037788,"SGS",38,1,"B",314,5)
+106 ;;
+107 ;;^UTILITY(562037788,"SGS",39,0)
+108 ;;HL RAD RESULT CODE^OBX
+109 ;;^UTILITY(562037788,"SGS",39,1,0)
+110 ;;^4010.01P^4^4
+111 ;;^UTILITY(562037788,"SGS",39,1,1,0)
+112 ;;HL SET ID - OBSERVATION^1^1^0^0^0
+113 ;;^UTILITY(562037788,"SGS",39,1,2,0)
+114 ;;HL RAD CODED ELEMENT^2^1^0^0^0
+115 ;;^UTILITY(562037788,"SGS",39,1,3,0)
+116 ;;HL RAD RESULT CODE^5^1^0^0^0
+117 ;;^UTILITY(562037788,"SGS",39,1,4,0)
+118 ;;HL RAD RESULT CODE OBS ID^3^1^0^0^0
+119 ;;^UTILITY(562037788,"SGS",39,1,"AS",1,1)
+120 ;;
+121 ;;^UTILITY(562037788,"SGS",39,1,"AS",2,2)
+122 ;;
+123 ;;^UTILITY(562037788,"SGS",39,1,"AS",3,4)
+124 ;;
+125 ;;^UTILITY(562037788,"SGS",39,1,"AS",5,3)
+126 ;;
+127 ;;^UTILITY(562037788,"SGS",39,1,"B",267,1)
+128 ;;
+129 ;;^UTILITY(562037788,"SGS",39,1,"B",295,3)
+130 ;;
+131 ;;^UTILITY(562037788,"SGS",39,1,"B",311,2)
+132 ;;
+133 ;;^UTILITY(562037788,"SGS",39,1,"B",313,4)
+134 ;;
+135 ;;^UTILITY(562037788,"SGS",40,0)
+136 ;;HL RAD RESULT CODE AMENDED^OBX
+137 ;;^UTILITY(562037788,"SGS",40,1,0)
+138 ;;^4010.01P^4^4
+139 ;;^UTILITY(562037788,"SGS",40,1,1,0)
+140 ;;HL SET ID - OBSERVATION^1^1^0^0^0
+141 ;;^UTILITY(562037788,"SGS",40,1,2,0)
+142 ;;HL RAD CODED ELEMENT^2^1^0^0^0
+143 ;;^UTILITY(562037788,"SGS",40,1,3,0)
+144 ;;HL RAD AMENDED RESULT CODE^5^1^0^0^0
+145 ;;^UTILITY(562037788,"SGS",40,1,4,0)
+146 ;;HL RAD RESULT CODE OBS ID^3^1^0^0^0
+147 ;;^UTILITY(562037788,"SGS",40,1,"AS",1,1)
+148 ;;
+149 ;;^UTILITY(562037788,"SGS",40,1,"AS",2,2)
+150 ;;
+151 ;;^UTILITY(562037788,"SGS",40,1,"AS",3,4)
+152 ;;
+153 ;;^UTILITY(562037788,"SGS",40,1,"AS",5,3)
+154 ;;
+155 ;;^UTILITY(562037788,"SGS",40,1,"B",267,1)
+156 ;;
+157 ;;^UTILITY(562037788,"SGS",40,1,"B",296,3)
+158 ;;
+159 ;;^UTILITY(562037788,"SGS",40,1,"B",311,2)
+160 ;;
+161 ;;^UTILITY(562037788,"SGS",40,1,"B",313,4)
+162 ;;
+163 ;;^UTILITY(562037788,"TT",18,0)
+164 ;;HL RAD RESULTS (MDIS)^MDIS^Generated: HL RAD RESULT MESSAGE-O^^1^HL RAD RESULTS^^O
+165 ;;^UTILITY(562037788,"TTP",20,0)
+166 ;;HL RAD RESULTS^^^^1^^^O
+167 QUIT
