INSY186 ;slt;19 Aug 1994@090352;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,"SGF",293,0)
;;HL RAD ENTERER'S LOCATION^COMPOSITE ID NUMBER AND NAME^80
;;^UTILITY(562037788,"SGF",293,1,0)
;;1^^1^1^2940322
;;^UTILITY(562037788,"SGF",293,1,1,0)
;;Requesting location from the radiology exam file (70.5;1.07)
;;^UTILITY(562037788,"SGF",293,50)
;;HOSPITAL LOCATION
;;^UTILITY(562037788,"SGF",293,"C")
;;#1.07
;;^UTILITY(562037788,"SGF",294,0)
;;HL RAD ORDER EFFECTIVE DT^TIME STAMP^26
;;^UTILITY(562037788,"SGF",294,1,0)
;;1^^1^1^2940322
;;^UTILITY(562037788,"SGF",294,1,1,0)
;;Order date/time from the radiology exam file (70.5;.07).
;;^UTILITY(562037788,"SGF",294,"C")
;;#.07
;;^UTILITY(562037788,"SGF",295,0)
;;HL RAD RESULT CODE^CODED ELEMENT^10
;;^UTILITY(562037788,"SGF",295,1,0)
;;2^^2^2^2940322
;;^UTILITY(562037788,"SGF",295,1,1,0)
;;Verified report result code from the radiology reports file (74;8603). Use
;;^UTILITY(562037788,"SGF",295,1,2,0)
;;the field HL AMENDED RESULT CODE (RA) for the amended result code.
;;^UTILITY(562037788,"SGF",295,"C")
;;INTERNAL(#8603)_";78.3"
;;^UTILITY(562037788,"SGF",296,0)
;;HL RAD AMENDED RESULT CODE^CODED ELEMENT^10
;;^UTILITY(562037788,"SGF",296,1,0)
;;1^^1^1^2940322
;;^UTILITY(562037788,"SGF",296,1,1,0)
;;Report result code for amended radiology reports.
;;^UTILITY(562037788,"SGF",296,"C")
;;INTERNAL(#4)_";78.3"
;;^UTILITY(562037788,"SGF",297,0)
;;HL RAD REPORT^STRING^300
;;^UTILITY(562037788,"SGF",297,1,0)
;;1^^1^1^2940322
;;^UTILITY(562037788,"SGF",297,1,1,0)
;;Radiology report text.
;;^UTILITY(562037788,"SGF",297,5)
;;S X=$G(^RARPT(INDA(1),"R",INDA,0))
;;^UTILITY(562037788,"SGF",297,"C")
;;@NULL
;;^UTILITY(562037788,"SGF",298,0)
;;HL RAD AMENDED REPORT^STRING^300
;;^UTILITY(562037788,"SGF",298,1,0)
;;1^^1^1^2940322
;;^UTILITY(562037788,"SGF",298,1,1,0)
;;Amended radiology report text.
;;^UTILITY(562037788,"SGF",298,5)
;;S X=$G(^RARPT(INDA(2),1,INDA(1),1,INDA,0))
;;^UTILITY(562037788,"SGF",298,"C")
;;@NULL
;;^UTILITY(562037788,"SGF",310,0)
;;HL RAD STRING^STRING^2
;;^UTILITY(562037788,"SGF",310,"C")
;;"ST"
;;^UTILITY(562037788,"SGF",311,0)
;;HL RAD CODED ELEMENT^STRING^2
;;^UTILITY(562037788,"SGF",311,"C")
;;"CE"
;;^UTILITY(562037788,"SGF",313,0)
;;HL RAD RESULT CODE OBS ID^CODED ELEMENT^80
;;^UTILITY(562037788,"SGF",313,1,0)
;;1^^1^1^2940331
;;^UTILITY(562037788,"SGF",313,1,1,0)
;;Observation Identifier for radiology result codes.
;;^UTILITY(562037788,"SGF",313,10,0)
;;^4012.02P^3^3
;;^UTILITY(562037788,"SGF",313,10,1,0)
;;HL RAD OBS RESULT CODE ID^1^1
;;^UTILITY(562037788,"SGF",313,10,2,0)
;;HL RAD OBS RESULT CODE^2^1
;;^UTILITY(562037788,"SGF",313,10,3,0)
;;HL RAD OBS CODE SYSTEM^3^1
;;^UTILITY(562037788,"SGF",313,10,"AS",1,1)
;;
;;^UTILITY(562037788,"SGF",313,10,"AS",2,2)
;;
;;^UTILITY(562037788,"SGF",313,10,"AS",3,3)
;;
;;^UTILITY(562037788,"SGF",313,10,"B",316,1)
;;
;;^UTILITY(562037788,"SGF",313,10,"B",317,2)
;;
;;^UTILITY(562037788,"SGF",313,10,"B",319,3)
;;
;;^UTILITY(562037788,"SGF",314,0)
;;HL RAD REPORT OBS ID^CODED ELEMENT^80
;;^UTILITY(562037788,"SGF",314,1,0)
;;1^^1^1^2940331
;;^UTILITY(562037788,"SGF",314,1,1,0)
;;Observation Identifier for radiology results.
;;^UTILITY(562037788,"SGF",314,10,0)
;;^4012.02P^3^3
;;^UTILITY(562037788,"SGF",314,10,1,0)
;;HL RAD OBS REPORT ID^1^1
;;^UTILITY(562037788,"SGF",314,10,2,0)
;;HL RAD OBS REPORT^2^1
;;^UTILITY(562037788,"SGF",314,10,3,0)
;;HL RAD OBS CODE SYSTEM^3^1
;;^UTILITY(562037788,"SGF",314,10,"AS",1,1)
;;
;;^UTILITY(562037788,"SGF",314,10,"AS",2,2)
;;
;;^UTILITY(562037788,"SGF",314,10,"AS",3,3)
;;
;;^UTILITY(562037788,"SGF",314,10,"B",315,1)
;;
;;^UTILITY(562037788,"SGF",314,10,"B",318,2)
;;
;;^UTILITY(562037788,"SGF",314,10,"B",319,3)
;;
;;^UTILITY(562037788,"SGF",315,0)
;;HL RAD OBS REPORT ID^STRING^1
;;^UTILITY(562037788,"SGF",315,"C")
;;"R"
;;^UTILITY(562037788,"SGF",316,0)
;;HL RAD OBS RESULT CODE ID^STRING^1
;;^UTILITY(562037788,"SGF",316,"C")
;;"C"
;;^UTILITY(562037788,"SGF",317,0)
;;HL RAD OBS RESULT CODE^STRING^10
;;^UTILITY(562037788,"SGF",317,"C")
;;"RESCODE"
;;^UTILITY(562037788,"SGF",318,0)
;;HL RAD OBS REPORT^STRING^10
;;^UTILITY(562037788,"SGF",318,"C")
;;"REPORT"
;;^UTILITY(562037788,"SGF",319,0)
;;HL RAD OBS CODE SYSTEM^STRING^1
;;^UTILITY(562037788,"SGF",319,"C")
;;"L"
;;^UTILITY(562037788,"SGF",322,0)
;;HL PATIENT NUMBER^NUMERIC^15
;;^UTILITY(562037788,"SGF",322,50)
;;PATIENT
;;^UTILITY(562037788,"SGF",322,"C")
;;NUMBER
;;^UTILITY(562037788,"SGF",323,0)
;;HL MTF CODE^STRING^15
;;^UTILITY(562037788,"SGF",323,"C")
;;INSITE
;;^UTILITY(562037788,"SGF",324,0)
;;HL PATIENT ID INTERNAL^STRING^60
;;^UTILITY(562037788,"SGF",324,10,0)
;;^4012.02P^4^4
;;^UTILITY(562037788,"SGF",324,10,1,0)
;;HL PATIENT NUMBER^1
;;^UTILITY(562037788,"SGF",324,10,2,0)
;;HL MTF CODE^4
;;^UTILITY(562037788,"SGF",324,10,3,0)
;;HL NULL^2
;;^UTILITY(562037788,"SGF",324,10,4,0)
;;HL NULL^3
;;^UTILITY(562037788,"SGF",324,10,"AS",1,1)
;;
;;^UTILITY(562037788,"SGF",324,10,"AS",2,3)
;;
;;^UTILITY(562037788,"SGF",324,10,"AS",3,4)
;;
;;^UTILITY(562037788,"SGF",324,10,"AS",4,2)
;;
;;^UTILITY(562037788,"SGF",324,10,"B",322,1)
;;
;;^UTILITY(562037788,"SGF",324,10,"B",323,2)
;;
;;^UTILITY(562037788,"SGF",324,10,"B",325,3)
;;
;;^UTILITY(562037788,"SGF",324,10,"B",325,4)
;;
;;^UTILITY(562037788,"SGF",325,0)
;;HL NULL^STRING^1
;;^UTILITY(562037788,"SGF",335,0)
;;HL RAD ORDER TASK TIME^TIME STAMP^26
;;^UTILITY(562037788,"SGF",335,1,0)
;;1^^1^1^2940407
;;^UTILITY(562037788,"SGF",335,1,1,0)
;;Radiology Exam Order Task Date/Time
;;^UTILITY(562037788,"SGF",335,"C")
;;#.06
;;^UTILITY(562037788,"SGM",9,0)
;;HL RAD RESULT MESSAGE^R01^D^2.2^70.5^ORU^O^0
;;^UTILITY(562037788,"SGM",9,1,0)
;;^4011.01P^20^9
;;^UTILITY(562037788,"SGM",9,1,3,0)
;;HL MESSAGE HEADER^10^0^0^^^^^1
;;^UTILITY(562037788,"SGM",9,1,4,0)
;;HL PATIENT IDENTIFICATION^20^0^1^2^^O^^1
Q
INSY186 ;slt;19 Aug 1994@090352;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,"SGF",293,0)
+2 ;;HL RAD ENTERER'S LOCATION^COMPOSITE ID NUMBER AND NAME^80
+3 ;;^UTILITY(562037788,"SGF",293,1,0)
+4 ;;1^^1^1^2940322
+5 ;;^UTILITY(562037788,"SGF",293,1,1,0)
+6 ;;Requesting location from the radiology exam file (70.5;1.07)
+7 ;;^UTILITY(562037788,"SGF",293,50)
+8 ;;HOSPITAL LOCATION
+9 ;;^UTILITY(562037788,"SGF",293,"C")
+10 ;;#1.07
+11 ;;^UTILITY(562037788,"SGF",294,0)
+12 ;;HL RAD ORDER EFFECTIVE DT^TIME STAMP^26
+13 ;;^UTILITY(562037788,"SGF",294,1,0)
+14 ;;1^^1^1^2940322
+15 ;;^UTILITY(562037788,"SGF",294,1,1,0)
+16 ;;Order date/time from the radiology exam file (70.5;.07).
+17 ;;^UTILITY(562037788,"SGF",294,"C")
+18 ;;#.07
+19 ;;^UTILITY(562037788,"SGF",295,0)
+20 ;;HL RAD RESULT CODE^CODED ELEMENT^10
+21 ;;^UTILITY(562037788,"SGF",295,1,0)
+22 ;;2^^2^2^2940322
+23 ;;^UTILITY(562037788,"SGF",295,1,1,0)
+24 ;;Verified report result code from the radiology reports file (74;8603). Use
+25 ;;^UTILITY(562037788,"SGF",295,1,2,0)
+26 ;;the field HL AMENDED RESULT CODE (RA) for the amended result code.
+27 ;;^UTILITY(562037788,"SGF",295,"C")
+28 ;;INTERNAL(#8603)_";78.3"
+29 ;;^UTILITY(562037788,"SGF",296,0)
+30 ;;HL RAD AMENDED RESULT CODE^CODED ELEMENT^10
+31 ;;^UTILITY(562037788,"SGF",296,1,0)
+32 ;;1^^1^1^2940322
+33 ;;^UTILITY(562037788,"SGF",296,1,1,0)
+34 ;;Report result code for amended radiology reports.
+35 ;;^UTILITY(562037788,"SGF",296,"C")
+36 ;;INTERNAL(#4)_";78.3"
+37 ;;^UTILITY(562037788,"SGF",297,0)
+38 ;;HL RAD REPORT^STRING^300
+39 ;;^UTILITY(562037788,"SGF",297,1,0)
+40 ;;1^^1^1^2940322
+41 ;;^UTILITY(562037788,"SGF",297,1,1,0)
+42 ;;Radiology report text.
+43 ;;^UTILITY(562037788,"SGF",297,5)
+44 ;;S X=$G(^RARPT(INDA(1),"R",INDA,0))
+45 ;;^UTILITY(562037788,"SGF",297,"C")
+46 ;;@NULL
+47 ;;^UTILITY(562037788,"SGF",298,0)
+48 ;;HL RAD AMENDED REPORT^STRING^300
+49 ;;^UTILITY(562037788,"SGF",298,1,0)
+50 ;;1^^1^1^2940322
+51 ;;^UTILITY(562037788,"SGF",298,1,1,0)
+52 ;;Amended radiology report text.
+53 ;;^UTILITY(562037788,"SGF",298,5)
+54 ;;S X=$G(^RARPT(INDA(2),1,INDA(1),1,INDA,0))
+55 ;;^UTILITY(562037788,"SGF",298,"C")
+56 ;;@NULL
+57 ;;^UTILITY(562037788,"SGF",310,0)
+58 ;;HL RAD STRING^STRING^2
+59 ;;^UTILITY(562037788,"SGF",310,"C")
+60 ;;"ST"
+61 ;;^UTILITY(562037788,"SGF",311,0)
+62 ;;HL RAD CODED ELEMENT^STRING^2
+63 ;;^UTILITY(562037788,"SGF",311,"C")
+64 ;;"CE"
+65 ;;^UTILITY(562037788,"SGF",313,0)
+66 ;;HL RAD RESULT CODE OBS ID^CODED ELEMENT^80
+67 ;;^UTILITY(562037788,"SGF",313,1,0)
+68 ;;1^^1^1^2940331
+69 ;;^UTILITY(562037788,"SGF",313,1,1,0)
+70 ;;Observation Identifier for radiology result codes.
+71 ;;^UTILITY(562037788,"SGF",313,10,0)
+72 ;;^4012.02P^3^3
+73 ;;^UTILITY(562037788,"SGF",313,10,1,0)
+74 ;;HL RAD OBS RESULT CODE ID^1^1
+75 ;;^UTILITY(562037788,"SGF",313,10,2,0)
+76 ;;HL RAD OBS RESULT CODE^2^1
+77 ;;^UTILITY(562037788,"SGF",313,10,3,0)
+78 ;;HL RAD OBS CODE SYSTEM^3^1
+79 ;;^UTILITY(562037788,"SGF",313,10,"AS",1,1)
+80 ;;
+81 ;;^UTILITY(562037788,"SGF",313,10,"AS",2,2)
+82 ;;
+83 ;;^UTILITY(562037788,"SGF",313,10,"AS",3,3)
+84 ;;
+85 ;;^UTILITY(562037788,"SGF",313,10,"B",316,1)
+86 ;;
+87 ;;^UTILITY(562037788,"SGF",313,10,"B",317,2)
+88 ;;
+89 ;;^UTILITY(562037788,"SGF",313,10,"B",319,3)
+90 ;;
+91 ;;^UTILITY(562037788,"SGF",314,0)
+92 ;;HL RAD REPORT OBS ID^CODED ELEMENT^80
+93 ;;^UTILITY(562037788,"SGF",314,1,0)
+94 ;;1^^1^1^2940331
+95 ;;^UTILITY(562037788,"SGF",314,1,1,0)
+96 ;;Observation Identifier for radiology results.
+97 ;;^UTILITY(562037788,"SGF",314,10,0)
+98 ;;^4012.02P^3^3
+99 ;;^UTILITY(562037788,"SGF",314,10,1,0)
+100 ;;HL RAD OBS REPORT ID^1^1
+101 ;;^UTILITY(562037788,"SGF",314,10,2,0)
+102 ;;HL RAD OBS REPORT^2^1
+103 ;;^UTILITY(562037788,"SGF",314,10,3,0)
+104 ;;HL RAD OBS CODE SYSTEM^3^1
+105 ;;^UTILITY(562037788,"SGF",314,10,"AS",1,1)
+106 ;;
+107 ;;^UTILITY(562037788,"SGF",314,10,"AS",2,2)
+108 ;;
+109 ;;^UTILITY(562037788,"SGF",314,10,"AS",3,3)
+110 ;;
+111 ;;^UTILITY(562037788,"SGF",314,10,"B",315,1)
+112 ;;
+113 ;;^UTILITY(562037788,"SGF",314,10,"B",318,2)
+114 ;;
+115 ;;^UTILITY(562037788,"SGF",314,10,"B",319,3)
+116 ;;
+117 ;;^UTILITY(562037788,"SGF",315,0)
+118 ;;HL RAD OBS REPORT ID^STRING^1
+119 ;;^UTILITY(562037788,"SGF",315,"C")
+120 ;;"R"
+121 ;;^UTILITY(562037788,"SGF",316,0)
+122 ;;HL RAD OBS RESULT CODE ID^STRING^1
+123 ;;^UTILITY(562037788,"SGF",316,"C")
+124 ;;"C"
+125 ;;^UTILITY(562037788,"SGF",317,0)
+126 ;;HL RAD OBS RESULT CODE^STRING^10
+127 ;;^UTILITY(562037788,"SGF",317,"C")
+128 ;;"RESCODE"
+129 ;;^UTILITY(562037788,"SGF",318,0)
+130 ;;HL RAD OBS REPORT^STRING^10
+131 ;;^UTILITY(562037788,"SGF",318,"C")
+132 ;;"REPORT"
+133 ;;^UTILITY(562037788,"SGF",319,0)
+134 ;;HL RAD OBS CODE SYSTEM^STRING^1
+135 ;;^UTILITY(562037788,"SGF",319,"C")
+136 ;;"L"
+137 ;;^UTILITY(562037788,"SGF",322,0)
+138 ;;HL PATIENT NUMBER^NUMERIC^15
+139 ;;^UTILITY(562037788,"SGF",322,50)
+140 ;;PATIENT
+141 ;;^UTILITY(562037788,"SGF",322,"C")
+142 ;;NUMBER
+143 ;;^UTILITY(562037788,"SGF",323,0)
+144 ;;HL MTF CODE^STRING^15
+145 ;;^UTILITY(562037788,"SGF",323,"C")
+146 ;;INSITE
+147 ;;^UTILITY(562037788,"SGF",324,0)
+148 ;;HL PATIENT ID INTERNAL^STRING^60
+149 ;;^UTILITY(562037788,"SGF",324,10,0)
+150 ;;^4012.02P^4^4
+151 ;;^UTILITY(562037788,"SGF",324,10,1,0)
+152 ;;HL PATIENT NUMBER^1
+153 ;;^UTILITY(562037788,"SGF",324,10,2,0)
+154 ;;HL MTF CODE^4
+155 ;;^UTILITY(562037788,"SGF",324,10,3,0)
+156 ;;HL NULL^2
+157 ;;^UTILITY(562037788,"SGF",324,10,4,0)
+158 ;;HL NULL^3
+159 ;;^UTILITY(562037788,"SGF",324,10,"AS",1,1)
+160 ;;
+161 ;;^UTILITY(562037788,"SGF",324,10,"AS",2,3)
+162 ;;
+163 ;;^UTILITY(562037788,"SGF",324,10,"AS",3,4)
+164 ;;
+165 ;;^UTILITY(562037788,"SGF",324,10,"AS",4,2)
+166 ;;
+167 ;;^UTILITY(562037788,"SGF",324,10,"B",322,1)
+168 ;;
+169 ;;^UTILITY(562037788,"SGF",324,10,"B",323,2)
+170 ;;
+171 ;;^UTILITY(562037788,"SGF",324,10,"B",325,3)
+172 ;;
+173 ;;^UTILITY(562037788,"SGF",324,10,"B",325,4)
+174 ;;
+175 ;;^UTILITY(562037788,"SGF",325,0)
+176 ;;HL NULL^STRING^1
+177 ;;^UTILITY(562037788,"SGF",335,0)
+178 ;;HL RAD ORDER TASK TIME^TIME STAMP^26
+179 ;;^UTILITY(562037788,"SGF",335,1,0)
+180 ;;1^^1^1^2940407
+181 ;;^UTILITY(562037788,"SGF",335,1,1,0)
+182 ;;Radiology Exam Order Task Date/Time
+183 ;;^UTILITY(562037788,"SGF",335,"C")
+184 ;;#.06
+185 ;;^UTILITY(562037788,"SGM",9,0)
+186 ;;HL RAD RESULT MESSAGE^R01^D^2.2^70.5^ORU^O^0
+187 ;;^UTILITY(562037788,"SGM",9,1,0)
+188 ;;^4011.01P^20^9
+189 ;;^UTILITY(562037788,"SGM",9,1,3,0)
+190 ;;HL MESSAGE HEADER^10^0^0^^^^^1
+191 ;;^UTILITY(562037788,"SGM",9,1,4,0)
+192 ;;HL PATIENT IDENTIFICATION^20^0^1^2^^O^^1
+193 QUIT
