INSY184 ;slt;19 Aug 1994@090350;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",208,0)
;;HL UNKNOWN^STRING^40
;;^UTILITY(562037788,"SGF",209,0)
;;HL MESSAGE TYPE^CODED ID^7
;;^UTILITY(562037788,"SGF",210,0)
;;HL MESSAGE CONTROL ID^STRING^20
;;^UTILITY(562037788,"SGF",211,0)
;;HL PROCESSING ID^CODED ID^1
;;^UTILITY(562037788,"SGF",212,0)
;;HL VERSION ID^NUMERIC^8
;;^UTILITY(562037788,"SGF",213,0)
;;HL SEQUENCE NUMBER^NUMERIC^15
;;^UTILITY(562037788,"SGF",214,0)
;;HL CONTINUATION POINTER^STRING^180
;;^UTILITY(562037788,"SGF",215,0)
;;HL ACCEPT ACK TYPE^CODED ID^2
;;^UTILITY(562037788,"SGF",215,1,0)
;;2^^2^2^2940208
;;^UTILITY(562037788,"SGF",215,1,1,0)
;;Defines the condiditions under which accept acknowledgements are required to
;;^UTILITY(562037788,"SGF",215,1,2,0)
;;returned in reponse to this message.
;;^UTILITY(562037788,"SGF",216,0)
;;HL APPLICATION ACK TYPE^CODED ID^2
;;^UTILITY(562037788,"SGF",216,1,0)
;;2^^2^2^2940208
;;^UTILITY(562037788,"SGF",216,1,1,0)
;;Defines the conditions under which applicaation acknowledgements are required
;;^UTILITY(562037788,"SGF",216,1,2,0)
;;to be returned in response to this message.
;;^UTILITY(562037788,"SGF",217,0)
;;HL COUNTRY CODE^CODED ID^2
;;^UTILITY(562037788,"SGF",217,1,0)
;;2^^2^2^2940208
;;^UTILITY(562037788,"SGF",217,1,1,0)
;;Defines the country of origin for the message. It will be used primarily to
;;^UTILITY(562037788,"SGF",217,1,2,0)
;;specify default elements, such as currency denominations.
;;^UTILITY(562037788,"SGF",218,0)
;;HL ORDER CONTROL^CODED ID^2
;;^UTILITY(562037788,"SGF",218,1,0)
;;10^^10^10^2940217
;;^UTILITY(562037788,"SGF",218,1,1,0)
;;Determines the function of the order segment. Trigger event identifier for
;;^UTILITY(562037788,"SGF",218,1,2,0)
;;orders.
;;^UTILITY(562037788,"SGF",218,1,3,0)
;;
;;^UTILITY(562037788,"SGF",218,1,4,0)
;; NW - NEW ORDER
;;^UTILITY(562037788,"SGF",218,1,5,0)
;; CA - CANCEL ORDER
;;^UTILITY(562037788,"SGF",218,1,6,0)
;; DC - DISCONTINUE ORDER
;;^UTILITY(562037788,"SGF",218,1,7,0)
;; HD - HOLD ORDER
;;^UTILITY(562037788,"SGF",218,1,8,0)
;; RL - RELEASE HOLD
;;^UTILITY(562037788,"SGF",218,1,9,0)
;; RP - REPLACE ORDER (MODIFY)
;;^UTILITY(562037788,"SGF",218,1,10,0)
;; RO - REPLACEMENT ORDER (MODIFY)
;;^UTILITY(562037788,"SGF",218,"C")
;;@OREVENT
;;^UTILITY(562037788,"SGF",222,0)
;;HL ORDER STATUS (ID)^CODED ID^2
;;^UTILITY(562037788,"SGF",222,1,0)
;;3^^3^3^2940215
;;^UTILITY(562037788,"SGF",222,1,1,0)
;;Status of an order. This field is used to report the status of an order
;;^UTILITY(562037788,"SGF",222,1,2,0)
;;either upon request or when the status changes. Only the filler application
;;^UTILITY(562037788,"SGF",222,1,3,0)
;;can originate the value of this field.
;;^UTILITY(562037788,"SGF",222,"C")
;;@ORSTAT
;;^UTILITY(562037788,"SGF",224,0)
;;HL QUANTITY/TIMING^COMPOSITE^200
;;^UTILITY(562037788,"SGF",224,1,0)
;;5^^5^5^2940215
;;^UTILITY(562037788,"SGF",224,1,1,0)
;;Components: Quantity^interval^duration^start date/time^End date/time^priority
;;^UTILITY(562037788,"SGF",224,1,2,0)
;;^condition^text^conjunction^order sequencing
;;^UTILITY(562037788,"SGF",224,1,3,0)
;;
;;^UTILITY(562037788,"SGF",224,1,4,0)
;;Determines the priority, quantity, frequency, and timing of an atomic
;;^UTILITY(562037788,"SGF",224,1,5,0)
;;service.
;;^UTILITY(562037788,"SGF",224,"C")
;;@ORQT
;;^UTILITY(562037788,"SGF",226,0)
;;HL DT/TM OF TRANSACTION^TIME STAMP^26
;;^UTILITY(562037788,"SGF",226,1,0)
;;2^^2^2^2940215
;;^UTILITY(562037788,"SGF",226,1,1,0)
;;For new orders, this is the date/time the order was entered (101;1.22)
;;^UTILITY(562037788,"SGF",226,1,2,0)
;;For modified,cancelled,hold orders, etc it is the time of the status change.
;;^UTILITY(562037788,"SGF",226,"C")
;;@ORTT
;;^UTILITY(562037788,"SGF",227,0)
;;HL ENTERED BY^COMPOSITE PERSON NAME SPECIAL^80
;;^UTILITY(562037788,"SGF",227,1,0)
;;2^^2^2^2940215
;;^UTILITY(562037788,"SGF",227,1,1,0)
;;The user who entered the order (101;1.01) or the user who entered the status
;;^UTILITY(562037788,"SGF",227,1,2,0)
;;change (status change user signature).
;;^UTILITY(562037788,"SGF",227,"C")
;;@ORDUZ
;;^UTILITY(562037788,"SGF",228,0)
;;HL VERIFIED BY^COMPOSITE PERSON NAME SPECIAL^80
;;^UTILITY(562037788,"SGF",228,1,0)
;;2^^2^2^2940215
;;^UTILITY(562037788,"SGF",228,1,1,0)
;;The HCP signature field (101;1.05) for new orders or the Status change
;;^UTILITY(562037788,"SGF",228,1,2,0)
;;authorized by for modified, canceled,etc orders.
;;^UTILITY(562037788,"SGF",228,50)
;;PROVIDER
;;^UTILITY(562037788,"SGF",228,"C")
;;@ORHCP
;;^UTILITY(562037788,"SGF",233,0)
;;HL ORDER CODE REASON^STRING^200
;;^UTILITY(562037788,"SGF",233,1,0)
;;1^^1^1^2940215
;;^UTILITY(562037788,"SGF",233,1,1,0)
;;Cancel/Modify reason.
;;^UTILITY(562037788,"SGF",233,"C")
;;@ORCOM
;;^UTILITY(562037788,"SGF",234,0)
;;HL SET ID - OBR REQ^SET ID^4
;;^UTILITY(562037788,"SGF",234,1,0)
;;^^1^1^2940215
;;^UTILITY(562037788,"SGF",234,1,1,0)
;;Sequential number to indicate number of orders being transmitted in message.
;;^UTILITY(562037788,"SGF",234,"C")
;;"OBR"
;;^UTILITY(562037788,"SGF",238,0)
;;HL OBSERVATION DT/TM^TIME STAMP^26
;;^UTILITY(562037788,"SGF",238,1,0)
;;1^^1^1^2940216
;;^UTILITY(562037788,"SGF",238,1,1,0)
;;Collection date/time for lab orders, Exam date/time for Rad Orders
;;^UTILITY(562037788,"SGF",238,"C")
;;@OBSDATE
;;^UTILITY(562037788,"SGF",245,0)
;;HL SPECIMEN REC'D DT/TM^TIME STAMP^26
;;^UTILITY(562037788,"SGF",245,1,0)
;;1^^1^1^2940216
;;^UTILITY(562037788,"SGF",245,1,1,0)
;;Log-in date/time for lab orders. Arrival date/time for Rad orders.
;;^UTILITY(562037788,"SGF",245,"C")
;;@RECDATE
;;^UTILITY(562037788,"SGF",253,0)
;;HL RESULTS REPORT DT/TM^TIME STAMP^26
;;^UTILITY(562037788,"SGF",253,1,0)
;;3^^3^3^2940216
Q
INSY184 ;slt;19 Aug 1994@090350;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",208,0)
+2 ;;HL UNKNOWN^STRING^40
+3 ;;^UTILITY(562037788,"SGF",209,0)
+4 ;;HL MESSAGE TYPE^CODED ID^7
+5 ;;^UTILITY(562037788,"SGF",210,0)
+6 ;;HL MESSAGE CONTROL ID^STRING^20
+7 ;;^UTILITY(562037788,"SGF",211,0)
+8 ;;HL PROCESSING ID^CODED ID^1
+9 ;;^UTILITY(562037788,"SGF",212,0)
+10 ;;HL VERSION ID^NUMERIC^8
+11 ;;^UTILITY(562037788,"SGF",213,0)
+12 ;;HL SEQUENCE NUMBER^NUMERIC^15
+13 ;;^UTILITY(562037788,"SGF",214,0)
+14 ;;HL CONTINUATION POINTER^STRING^180
+15 ;;^UTILITY(562037788,"SGF",215,0)
+16 ;;HL ACCEPT ACK TYPE^CODED ID^2
+17 ;;^UTILITY(562037788,"SGF",215,1,0)
+18 ;;2^^2^2^2940208
+19 ;;^UTILITY(562037788,"SGF",215,1,1,0)
+20 ;;Defines the condiditions under which accept acknowledgements are required to
+21 ;;^UTILITY(562037788,"SGF",215,1,2,0)
+22 ;;returned in reponse to this message.
+23 ;;^UTILITY(562037788,"SGF",216,0)
+24 ;;HL APPLICATION ACK TYPE^CODED ID^2
+25 ;;^UTILITY(562037788,"SGF",216,1,0)
+26 ;;2^^2^2^2940208
+27 ;;^UTILITY(562037788,"SGF",216,1,1,0)
+28 ;;Defines the conditions under which applicaation acknowledgements are required
+29 ;;^UTILITY(562037788,"SGF",216,1,2,0)
+30 ;;to be returned in response to this message.
+31 ;;^UTILITY(562037788,"SGF",217,0)
+32 ;;HL COUNTRY CODE^CODED ID^2
+33 ;;^UTILITY(562037788,"SGF",217,1,0)
+34 ;;2^^2^2^2940208
+35 ;;^UTILITY(562037788,"SGF",217,1,1,0)
+36 ;;Defines the country of origin for the message. It will be used primarily to
+37 ;;^UTILITY(562037788,"SGF",217,1,2,0)
+38 ;;specify default elements, such as currency denominations.
+39 ;;^UTILITY(562037788,"SGF",218,0)
+40 ;;HL ORDER CONTROL^CODED ID^2
+41 ;;^UTILITY(562037788,"SGF",218,1,0)
+42 ;;10^^10^10^2940217
+43 ;;^UTILITY(562037788,"SGF",218,1,1,0)
+44 ;;Determines the function of the order segment. Trigger event identifier for
+45 ;;^UTILITY(562037788,"SGF",218,1,2,0)
+46 ;;orders.
+47 ;;^UTILITY(562037788,"SGF",218,1,3,0)
+48 ;;
+49 ;;^UTILITY(562037788,"SGF",218,1,4,0)
+50 ;; NW - NEW ORDER
+51 ;;^UTILITY(562037788,"SGF",218,1,5,0)
+52 ;; CA - CANCEL ORDER
+53 ;;^UTILITY(562037788,"SGF",218,1,6,0)
+54 ;; DC - DISCONTINUE ORDER
+55 ;;^UTILITY(562037788,"SGF",218,1,7,0)
+56 ;; HD - HOLD ORDER
+57 ;;^UTILITY(562037788,"SGF",218,1,8,0)
+58 ;; RL - RELEASE HOLD
+59 ;;^UTILITY(562037788,"SGF",218,1,9,0)
+60 ;; RP - REPLACE ORDER (MODIFY)
+61 ;;^UTILITY(562037788,"SGF",218,1,10,0)
+62 ;; RO - REPLACEMENT ORDER (MODIFY)
+63 ;;^UTILITY(562037788,"SGF",218,"C")
+64 ;;@OREVENT
+65 ;;^UTILITY(562037788,"SGF",222,0)
+66 ;;HL ORDER STATUS (ID)^CODED ID^2
+67 ;;^UTILITY(562037788,"SGF",222,1,0)
+68 ;;3^^3^3^2940215
+69 ;;^UTILITY(562037788,"SGF",222,1,1,0)
+70 ;;Status of an order. This field is used to report the status of an order
+71 ;;^UTILITY(562037788,"SGF",222,1,2,0)
+72 ;;either upon request or when the status changes. Only the filler application
+73 ;;^UTILITY(562037788,"SGF",222,1,3,0)
+74 ;;can originate the value of this field.
+75 ;;^UTILITY(562037788,"SGF",222,"C")
+76 ;;@ORSTAT
+77 ;;^UTILITY(562037788,"SGF",224,0)
+78 ;;HL QUANTITY/TIMING^COMPOSITE^200
+79 ;;^UTILITY(562037788,"SGF",224,1,0)
+80 ;;5^^5^5^2940215
+81 ;;^UTILITY(562037788,"SGF",224,1,1,0)
+82 ;;Components: Quantity^interval^duration^start date/time^End date/time^priority
+83 ;;^UTILITY(562037788,"SGF",224,1,2,0)
+84 ;;^condition^text^conjunction^order sequencing
+85 ;;^UTILITY(562037788,"SGF",224,1,3,0)
+86 ;;
+87 ;;^UTILITY(562037788,"SGF",224,1,4,0)
+88 ;;Determines the priority, quantity, frequency, and timing of an atomic
+89 ;;^UTILITY(562037788,"SGF",224,1,5,0)
+90 ;;service.
+91 ;;^UTILITY(562037788,"SGF",224,"C")
+92 ;;@ORQT
+93 ;;^UTILITY(562037788,"SGF",226,0)
+94 ;;HL DT/TM OF TRANSACTION^TIME STAMP^26
+95 ;;^UTILITY(562037788,"SGF",226,1,0)
+96 ;;2^^2^2^2940215
+97 ;;^UTILITY(562037788,"SGF",226,1,1,0)
+98 ;;For new orders, this is the date/time the order was entered (101;1.22)
+99 ;;^UTILITY(562037788,"SGF",226,1,2,0)
+100 ;;For modified,cancelled,hold orders, etc it is the time of the status change.
+101 ;;^UTILITY(562037788,"SGF",226,"C")
+102 ;;@ORTT
+103 ;;^UTILITY(562037788,"SGF",227,0)
+104 ;;HL ENTERED BY^COMPOSITE PERSON NAME SPECIAL^80
+105 ;;^UTILITY(562037788,"SGF",227,1,0)
+106 ;;2^^2^2^2940215
+107 ;;^UTILITY(562037788,"SGF",227,1,1,0)
+108 ;;The user who entered the order (101;1.01) or the user who entered the status
+109 ;;^UTILITY(562037788,"SGF",227,1,2,0)
+110 ;;change (status change user signature).
+111 ;;^UTILITY(562037788,"SGF",227,"C")
+112 ;;@ORDUZ
+113 ;;^UTILITY(562037788,"SGF",228,0)
+114 ;;HL VERIFIED BY^COMPOSITE PERSON NAME SPECIAL^80
+115 ;;^UTILITY(562037788,"SGF",228,1,0)
+116 ;;2^^2^2^2940215
+117 ;;^UTILITY(562037788,"SGF",228,1,1,0)
+118 ;;The HCP signature field (101;1.05) for new orders or the Status change
+119 ;;^UTILITY(562037788,"SGF",228,1,2,0)
+120 ;;authorized by for modified, canceled,etc orders.
+121 ;;^UTILITY(562037788,"SGF",228,50)
+122 ;;PROVIDER
+123 ;;^UTILITY(562037788,"SGF",228,"C")
+124 ;;@ORHCP
+125 ;;^UTILITY(562037788,"SGF",233,0)
+126 ;;HL ORDER CODE REASON^STRING^200
+127 ;;^UTILITY(562037788,"SGF",233,1,0)
+128 ;;1^^1^1^2940215
+129 ;;^UTILITY(562037788,"SGF",233,1,1,0)
+130 ;;Cancel/Modify reason.
+131 ;;^UTILITY(562037788,"SGF",233,"C")
+132 ;;@ORCOM
+133 ;;^UTILITY(562037788,"SGF",234,0)
+134 ;;HL SET ID - OBR REQ^SET ID^4
+135 ;;^UTILITY(562037788,"SGF",234,1,0)
+136 ;;^^1^1^2940215
+137 ;;^UTILITY(562037788,"SGF",234,1,1,0)
+138 ;;Sequential number to indicate number of orders being transmitted in message.
+139 ;;^UTILITY(562037788,"SGF",234,"C")
+140 ;;"OBR"
+141 ;;^UTILITY(562037788,"SGF",238,0)
+142 ;;HL OBSERVATION DT/TM^TIME STAMP^26
+143 ;;^UTILITY(562037788,"SGF",238,1,0)
+144 ;;1^^1^1^2940216
+145 ;;^UTILITY(562037788,"SGF",238,1,1,0)
+146 ;;Collection date/time for lab orders, Exam date/time for Rad Orders
+147 ;;^UTILITY(562037788,"SGF",238,"C")
+148 ;;@OBSDATE
+149 ;;^UTILITY(562037788,"SGF",245,0)
+150 ;;HL SPECIMEN REC'D DT/TM^TIME STAMP^26
+151 ;;^UTILITY(562037788,"SGF",245,1,0)
+152 ;;1^^1^1^2940216
+153 ;;^UTILITY(562037788,"SGF",245,1,1,0)
+154 ;;Log-in date/time for lab orders. Arrival date/time for Rad orders.
+155 ;;^UTILITY(562037788,"SGF",245,"C")
+156 ;;@RECDATE
+157 ;;^UTILITY(562037788,"SGF",253,0)
+158 ;;HL RESULTS REPORT DT/TM^TIME STAMP^26
+159 ;;^UTILITY(562037788,"SGF",253,1,0)
+160 ;;3^^3^3^2940216
+161 QUIT
