INSY185 ;slt;19 Aug 1994@090351;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",253,1,1,0)
;;Date/time results reported or status changed.
;;^UTILITY(562037788,"SGF",253,1,2,0)
;;Cancel/modified orders - Status change date/time
;;^UTILITY(562037788,"SGF",253,1,3,0)
;;Results reports - reporting date/time
;;^UTILITY(562037788,"SGF",253,"C")
;;@EFFDATE
;;^UTILITY(562037788,"SGF",256,0)
;;HL RESULT STATUS^CODED ID^1
;;^UTILITY(562037788,"SGF",256,1,0)
;;12^^12^12^2940216
;;^UTILITY(562037788,"SGF",256,1,1,0)
;;Status of results for the order. Completed by filler of the order.
;;^UTILITY(562037788,"SGF",256,1,2,0)
;;
;;^UTILITY(562037788,"SGF",256,1,3,0)
;; O - Order received, specimen not yet received (Unacknowledged)
;;^UTILITY(562037788,"SGF",256,1,4,0)
;; I - No results, specimen received, procedure incomplete (Pending)
;;^UTILITY(562037788,"SGF",256,1,5,0)
;; S - No results, procedure scheduled but not done (Scheduled - RAD)
;;^UTILITY(562037788,"SGF",256,1,6,0)
;; P - Preliminary, final results not available (Intermediate)
;;^UTILITY(562037788,"SGF",256,1,7,0)
;; C - Correction to results (Amended)
;;^UTILITY(562037788,"SGF",256,1,8,0)
;; R - Results stored, not yet verified (Uncertified)
;;^UTILITY(562037788,"SGF",256,1,9,0)
;; F - Final results, order is complete and verified (Complete, Certified)
;;^UTILITY(562037788,"SGF",256,1,10,0)
;; X - No results available, Order Canceled (Lab Cancelled)
;;^UTILITY(562037788,"SGF",256,1,11,0)
;;
;;^UTILITY(562037788,"SGF",256,1,12,0)
;;
;;^UTILITY(562037788,"SGF",256,"C")
;;@RESULT
;;^UTILITY(562037788,"SGF",260,0)
;;HL TRANSPORTATION MODE^STRING^20
;;^UTILITY(562037788,"SGF",260,1,0)
;;6^^6^6^2940216
;;^UTILITY(562037788,"SGF",260,1,1,0)
;;Mobility Status - Rad Orders Only
;;^UTILITY(562037788,"SGF",260,1,2,0)
;;
;;^UTILITY(562037788,"SGF",260,1,3,0)
;; WALK - Ambulatory
;;^UTILITY(562037788,"SGF",260,1,4,0)
;; WHLC - Wheelchair
;;^UTILITY(562037788,"SGF",260,1,5,0)
;; CART - Stretcher/Crib/Bassinette
;;^UTILITY(562037788,"SGF",260,1,6,0)
;; PORT - Portable (101;130.02)
;;^UTILITY(562037788,"SGF",260,"C")
;;@ORTM
;;^UTILITY(562037788,"SGF",262,0)
;;HL PRINC RESULT INTERP.^COMPOSITE PERSON NAME SPECIAL^60
;;^UTILITY(562037788,"SGF",262,1,0)
;;4^^4^4^2940329
;;^UTILITY(562037788,"SGF",262,1,1,0)
;;Identifies the user/person who interpreted the results.
;;^UTILITY(562037788,"SGF",262,1,2,0)
;;
;;^UTILITY(562037788,"SGF",262,1,3,0)
;;Lab Orders : Lab tech. or Pathologist
;;^UTILITY(562037788,"SGF",262,1,4,0)
;;Rad Orders : Supervising Radiologist
;;^UTILITY(562037788,"SGF",262,50)
;;
;;^UTILITY(562037788,"SGF",262,"C")
;;@SUPV
;;^UTILITY(562037788,"SGF",263,0)
;;HL ASST RES INTERP.^COMPOSITE PERSON NAME SPECIAL^60
;;^UTILITY(562037788,"SGF",263,1,0)
;;1^^1^1^2940329
;;^UTILITY(562037788,"SGF",263,1,1,0)
;;Result reports only. Interpreting radiologist or Pathologist
;;^UTILITY(562037788,"SGF",263,50)
;;
;;^UTILITY(562037788,"SGF",263,"C")
;;@INTERP
;;^UTILITY(562037788,"SGF",264,0)
;;HL TECHNICIAN^COMPOSITE PERSON NAME SPECIAL^60
;;^UTILITY(562037788,"SGF",264,1,0)
;;1^^1^1^2940311
;;^UTILITY(562037788,"SGF",264,1,1,0)
;;Radiology performing technician or lab technician
;;^UTILITY(562037788,"SGF",264,50)
;;
;;^UTILITY(562037788,"SGF",264,"C")
;;@TECH
;;^UTILITY(562037788,"SGF",265,0)
;;HL TRANSCRIPTIONIST^COMPOSITE PERSON NAME SPECIAL^60
;;^UTILITY(562037788,"SGF",265,1,0)
;;1^^1^1^2940216
;;^UTILITY(562037788,"SGF",265,1,1,0)
;;Transcriptionist for radiology and pathology reports.
;;^UTILITY(562037788,"SGF",265,50)
;;
;;^UTILITY(562037788,"SGF",265,"C")
;;@TRANSC
;;^UTILITY(562037788,"SGF",267,0)
;;HL SET ID - OBSERVATION^SET ID^4
;;^UTILITY(562037788,"SGF",267,1,0)
;;1^^1^1^2940216
;;^UTILITY(562037788,"SGF",267,1,1,0)
;;Sequential number for OBX segments
;;^UTILITY(562037788,"SGF",267,"C")
;;"OBX"
;;^UTILITY(562037788,"SGF",278,0)
;;HL RAD PROCEDURE^CODED ELEMENT^75
;;^UTILITY(562037788,"SGF",278,1,0)
;;^^2^2^2940310
;;^UTILITY(562037788,"SGF",278,1,1,0)
;;Radiology procedure internal entry number and name from the Radiology Exam
;;^UTILITY(562037788,"SGF",278,1,2,0)
;;file (#70.5)
;;^UTILITY(562037788,"SGF",278,50)
;;RADIOLOGY PROCEDURE
;;^UTILITY(562037788,"SGF",278,"C")
;;INTERNAL(#.03)_";71"
;;^UTILITY(562037788,"SGF",280,0)
;;HL RAD RELEVANT CLIN. INFO.^STRING^300
;;^UTILITY(562037788,"SGF",280,1,0)
;;2^^2^2^2940310
;;^UTILITY(562037788,"SGF",280,1,1,0)
;;Order Comment. Navigation occurs through the Radiology Exam file Order IEN
;;^UTILITY(562037788,"SGF",280,1,2,0)
;;field.
;;^UTILITY(562037788,"SGF",280,"C")
;;#8609.12:#.1
;;^UTILITY(562037788,"SGF",283,0)
;;HL RAD DIAGNOSTIC SERV SECT^COMPOSITE ID NUMBER AND NAME^75
;;^UTILITY(562037788,"SGF",283,1,0)
;;1^^1^1^2940310
;;^UTILITY(562037788,"SGF",283,1,1,0)
;;Radiology Exam file radiology location.
;;^UTILITY(562037788,"SGF",283,50)
;;HOSPITAL LOCATION
;;^UTILITY(562037788,"SGF",283,"C")
;;#.15:#.01
;;^UTILITY(562037788,"SGF",285,0)
;;HL RAD ORDERING PROVIDER^COMPOSITE PERSON NAME^60
;;^UTILITY(562037788,"SGF",285,1,0)
;;1^^1^1^2940311
;;^UTILITY(562037788,"SGF",285,1,1,0)
;;Requesting HCP from the Radiology Exam file.
;;^UTILITY(562037788,"SGF",285,50)
;;PROVIDER
;;^UTILITY(562037788,"SGF",285,"C")
;;#.08
;;^UTILITY(562037788,"SGF",288,0)
;;HL RAD ORDER NUMBER^COMPOSITE^60
;;^UTILITY(562037788,"SGF",288,1,0)
;;1^^1^1^2940314
;;^UTILITY(562037788,"SGF",288,1,1,0)
;;Order number associated with the radiology exam
;;^UTILITY(562037788,"SGF",288,"C")
;;#8609.11
;;^UTILITY(562037788,"SGF",289,0)
;;HL RAD EXAM NUMBER^COMPOSITE^60
;;^UTILITY(562037788,"SGF",289,1,0)
;;1^^1^1^2940314
;;^UTILITY(562037788,"SGF",289,1,1,0)
;;Radiology exam number
;;^UTILITY(562037788,"SGF",289,"C")
;;#.01
Q
INSY185 ;slt;19 Aug 1994@090351;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",253,1,1,0)
+2 ;;Date/time results reported or status changed.
+3 ;;^UTILITY(562037788,"SGF",253,1,2,0)
+4 ;;Cancel/modified orders - Status change date/time
+5 ;;^UTILITY(562037788,"SGF",253,1,3,0)
+6 ;;Results reports - reporting date/time
+7 ;;^UTILITY(562037788,"SGF",253,"C")
+8 ;;@EFFDATE
+9 ;;^UTILITY(562037788,"SGF",256,0)
+10 ;;HL RESULT STATUS^CODED ID^1
+11 ;;^UTILITY(562037788,"SGF",256,1,0)
+12 ;;12^^12^12^2940216
+13 ;;^UTILITY(562037788,"SGF",256,1,1,0)
+14 ;;Status of results for the order. Completed by filler of the order.
+15 ;;^UTILITY(562037788,"SGF",256,1,2,0)
+16 ;;
+17 ;;^UTILITY(562037788,"SGF",256,1,3,0)
+18 ;; O - Order received, specimen not yet received (Unacknowledged)
+19 ;;^UTILITY(562037788,"SGF",256,1,4,0)
+20 ;; I - No results, specimen received, procedure incomplete (Pending)
+21 ;;^UTILITY(562037788,"SGF",256,1,5,0)
+22 ;; S - No results, procedure scheduled but not done (Scheduled - RAD)
+23 ;;^UTILITY(562037788,"SGF",256,1,6,0)
+24 ;; P - Preliminary, final results not available (Intermediate)
+25 ;;^UTILITY(562037788,"SGF",256,1,7,0)
+26 ;; C - Correction to results (Amended)
+27 ;;^UTILITY(562037788,"SGF",256,1,8,0)
+28 ;; R - Results stored, not yet verified (Uncertified)
+29 ;;^UTILITY(562037788,"SGF",256,1,9,0)
+30 ;; F - Final results, order is complete and verified (Complete, Certified)
+31 ;;^UTILITY(562037788,"SGF",256,1,10,0)
+32 ;; X - No results available, Order Canceled (Lab Cancelled)
+33 ;;^UTILITY(562037788,"SGF",256,1,11,0)
+34 ;;
+35 ;;^UTILITY(562037788,"SGF",256,1,12,0)
+36 ;;
+37 ;;^UTILITY(562037788,"SGF",256,"C")
+38 ;;@RESULT
+39 ;;^UTILITY(562037788,"SGF",260,0)
+40 ;;HL TRANSPORTATION MODE^STRING^20
+41 ;;^UTILITY(562037788,"SGF",260,1,0)
+42 ;;6^^6^6^2940216
+43 ;;^UTILITY(562037788,"SGF",260,1,1,0)
+44 ;;Mobility Status - Rad Orders Only
+45 ;;^UTILITY(562037788,"SGF",260,1,2,0)
+46 ;;
+47 ;;^UTILITY(562037788,"SGF",260,1,3,0)
+48 ;; WALK - Ambulatory
+49 ;;^UTILITY(562037788,"SGF",260,1,4,0)
+50 ;; WHLC - Wheelchair
+51 ;;^UTILITY(562037788,"SGF",260,1,5,0)
+52 ;; CART - Stretcher/Crib/Bassinette
+53 ;;^UTILITY(562037788,"SGF",260,1,6,0)
+54 ;; PORT - Portable (101;130.02)
+55 ;;^UTILITY(562037788,"SGF",260,"C")
+56 ;;@ORTM
+57 ;;^UTILITY(562037788,"SGF",262,0)
+58 ;;HL PRINC RESULT INTERP.^COMPOSITE PERSON NAME SPECIAL^60
+59 ;;^UTILITY(562037788,"SGF",262,1,0)
+60 ;;4^^4^4^2940329
+61 ;;^UTILITY(562037788,"SGF",262,1,1,0)
+62 ;;Identifies the user/person who interpreted the results.
+63 ;;^UTILITY(562037788,"SGF",262,1,2,0)
+64 ;;
+65 ;;^UTILITY(562037788,"SGF",262,1,3,0)
+66 ;;Lab Orders : Lab tech. or Pathologist
+67 ;;^UTILITY(562037788,"SGF",262,1,4,0)
+68 ;;Rad Orders : Supervising Radiologist
+69 ;;^UTILITY(562037788,"SGF",262,50)
+70 ;;
+71 ;;^UTILITY(562037788,"SGF",262,"C")
+72 ;;@SUPV
+73 ;;^UTILITY(562037788,"SGF",263,0)
+74 ;;HL ASST RES INTERP.^COMPOSITE PERSON NAME SPECIAL^60
+75 ;;^UTILITY(562037788,"SGF",263,1,0)
+76 ;;1^^1^1^2940329
+77 ;;^UTILITY(562037788,"SGF",263,1,1,0)
+78 ;;Result reports only. Interpreting radiologist or Pathologist
+79 ;;^UTILITY(562037788,"SGF",263,50)
+80 ;;
+81 ;;^UTILITY(562037788,"SGF",263,"C")
+82 ;;@INTERP
+83 ;;^UTILITY(562037788,"SGF",264,0)
+84 ;;HL TECHNICIAN^COMPOSITE PERSON NAME SPECIAL^60
+85 ;;^UTILITY(562037788,"SGF",264,1,0)
+86 ;;1^^1^1^2940311
+87 ;;^UTILITY(562037788,"SGF",264,1,1,0)
+88 ;;Radiology performing technician or lab technician
+89 ;;^UTILITY(562037788,"SGF",264,50)
+90 ;;
+91 ;;^UTILITY(562037788,"SGF",264,"C")
+92 ;;@TECH
+93 ;;^UTILITY(562037788,"SGF",265,0)
+94 ;;HL TRANSCRIPTIONIST^COMPOSITE PERSON NAME SPECIAL^60
+95 ;;^UTILITY(562037788,"SGF",265,1,0)
+96 ;;1^^1^1^2940216
+97 ;;^UTILITY(562037788,"SGF",265,1,1,0)
+98 ;;Transcriptionist for radiology and pathology reports.
+99 ;;^UTILITY(562037788,"SGF",265,50)
+100 ;;
+101 ;;^UTILITY(562037788,"SGF",265,"C")
+102 ;;@TRANSC
+103 ;;^UTILITY(562037788,"SGF",267,0)
+104 ;;HL SET ID - OBSERVATION^SET ID^4
+105 ;;^UTILITY(562037788,"SGF",267,1,0)
+106 ;;1^^1^1^2940216
+107 ;;^UTILITY(562037788,"SGF",267,1,1,0)
+108 ;;Sequential number for OBX segments
+109 ;;^UTILITY(562037788,"SGF",267,"C")
+110 ;;"OBX"
+111 ;;^UTILITY(562037788,"SGF",278,0)
+112 ;;HL RAD PROCEDURE^CODED ELEMENT^75
+113 ;;^UTILITY(562037788,"SGF",278,1,0)
+114 ;;^^2^2^2940310
+115 ;;^UTILITY(562037788,"SGF",278,1,1,0)
+116 ;;Radiology procedure internal entry number and name from the Radiology Exam
+117 ;;^UTILITY(562037788,"SGF",278,1,2,0)
+118 ;;file (#70.5)
+119 ;;^UTILITY(562037788,"SGF",278,50)
+120 ;;RADIOLOGY PROCEDURE
+121 ;;^UTILITY(562037788,"SGF",278,"C")
+122 ;;INTERNAL(#.03)_";71"
+123 ;;^UTILITY(562037788,"SGF",280,0)
+124 ;;HL RAD RELEVANT CLIN. INFO.^STRING^300
+125 ;;^UTILITY(562037788,"SGF",280,1,0)
+126 ;;2^^2^2^2940310
+127 ;;^UTILITY(562037788,"SGF",280,1,1,0)
+128 ;;Order Comment. Navigation occurs through the Radiology Exam file Order IEN
+129 ;;^UTILITY(562037788,"SGF",280,1,2,0)
+130 ;;field.
+131 ;;^UTILITY(562037788,"SGF",280,"C")
+132 ;;#8609.12:#.1
+133 ;;^UTILITY(562037788,"SGF",283,0)
+134 ;;HL RAD DIAGNOSTIC SERV SECT^COMPOSITE ID NUMBER AND NAME^75
+135 ;;^UTILITY(562037788,"SGF",283,1,0)
+136 ;;1^^1^1^2940310
+137 ;;^UTILITY(562037788,"SGF",283,1,1,0)
+138 ;;Radiology Exam file radiology location.
+139 ;;^UTILITY(562037788,"SGF",283,50)
+140 ;;HOSPITAL LOCATION
+141 ;;^UTILITY(562037788,"SGF",283,"C")
+142 ;;#.15:#.01
+143 ;;^UTILITY(562037788,"SGF",285,0)
+144 ;;HL RAD ORDERING PROVIDER^COMPOSITE PERSON NAME^60
+145 ;;^UTILITY(562037788,"SGF",285,1,0)
+146 ;;1^^1^1^2940311
+147 ;;^UTILITY(562037788,"SGF",285,1,1,0)
+148 ;;Requesting HCP from the Radiology Exam file.
+149 ;;^UTILITY(562037788,"SGF",285,50)
+150 ;;PROVIDER
+151 ;;^UTILITY(562037788,"SGF",285,"C")
+152 ;;#.08
+153 ;;^UTILITY(562037788,"SGF",288,0)
+154 ;;HL RAD ORDER NUMBER^COMPOSITE^60
+155 ;;^UTILITY(562037788,"SGF",288,1,0)
+156 ;;1^^1^1^2940314
+157 ;;^UTILITY(562037788,"SGF",288,1,1,0)
+158 ;;Order number associated with the radiology exam
+159 ;;^UTILITY(562037788,"SGF",288,"C")
+160 ;;#8609.11
+161 ;;^UTILITY(562037788,"SGF",289,0)
+162 ;;HL RAD EXAM NUMBER^COMPOSITE^60
+163 ;;^UTILITY(562037788,"SGF",289,1,0)
+164 ;;1^^1^1^2940314
+165 ;;^UTILITY(562037788,"SGF",289,1,1,0)
+166 ;;Radiology exam number
+167 ;;^UTILITY(562037788,"SGF",289,"C")
+168 ;;#.01
+169 QUIT
