Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: INSY184

INSY184.m

Go to the documentation of this file. 
  1. INSY184 ;slt;19 Aug 1994@090350;compiled gis system data
  1.  ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1.  ;COPYRIGHT 1991-2000 SAIC
  1.  Q
  1.  ;
  1. 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
  1.  ;;^UTILITY(562037788,"SGF",208,0)
  1.  ;;HL UNKNOWN^STRING^40
  1.  ;;^UTILITY(562037788,"SGF",209,0)
  1.  ;;HL MESSAGE TYPE^CODED ID^7
  1.  ;;^UTILITY(562037788,"SGF",210,0)
  1.  ;;HL MESSAGE CONTROL ID^STRING^20
  1.  ;;^UTILITY(562037788,"SGF",211,0)
  1.  ;;HL PROCESSING ID^CODED ID^1
  1.  ;;^UTILITY(562037788,"SGF",212,0)
  1.  ;;HL VERSION ID^NUMERIC^8
  1.  ;;^UTILITY(562037788,"SGF",213,0)
  1.  ;;HL SEQUENCE NUMBER^NUMERIC^15
  1.  ;;^UTILITY(562037788,"SGF",214,0)
  1.  ;;HL CONTINUATION POINTER^STRING^180
  1.  ;;^UTILITY(562037788,"SGF",215,0)
  1.  ;;HL ACCEPT ACK TYPE^CODED ID^2
  1.  ;;^UTILITY(562037788,"SGF",215,1,0)
  1.  ;;2^^2^2^2940208
  1.  ;;^UTILITY(562037788,"SGF",215,1,1,0)
  1.  ;;Defines the condiditions under which accept acknowledgements are required to
  1.  ;;^UTILITY(562037788,"SGF",215,1,2,0)
  1.  ;;returned in reponse to this message.
  1.  ;;^UTILITY(562037788,"SGF",216,0)
  1.  ;;HL APPLICATION ACK TYPE^CODED ID^2
  1.  ;;^UTILITY(562037788,"SGF",216,1,0)
  1.  ;;2^^2^2^2940208
  1.  ;;^UTILITY(562037788,"SGF",216,1,1,0)
  1.  ;;Defines the conditions under which applicaation acknowledgements are required
  1.  ;;^UTILITY(562037788,"SGF",216,1,2,0)
  1.  ;;to be returned in response to this message.
  1.  ;;^UTILITY(562037788,"SGF",217,0)
  1.  ;;HL COUNTRY CODE^CODED ID^2
  1.  ;;^UTILITY(562037788,"SGF",217,1,0)
  1.  ;;2^^2^2^2940208
  1.  ;;^UTILITY(562037788,"SGF",217,1,1,0)
  1.  ;;Defines the country of origin for the message.  It will be used primarily to
  1.  ;;^UTILITY(562037788,"SGF",217,1,2,0)
  1.  ;;specify default elements, such as currency denominations.
  1.  ;;^UTILITY(562037788,"SGF",218,0)
  1.  ;;HL ORDER CONTROL^CODED ID^2
  1.  ;;^UTILITY(562037788,"SGF",218,1,0)
  1.  ;;10^^10^10^2940217
  1.  ;;^UTILITY(562037788,"SGF",218,1,1,0)
  1.  ;;Determines the function of the order segment.  Trigger event identifier for
  1.  ;;^UTILITY(562037788,"SGF",218,1,2,0)
  1.  ;;orders.
  1.  ;;^UTILITY(562037788,"SGF",218,1,3,0)
  1.  ;;  
  1.  ;;^UTILITY(562037788,"SGF",218,1,4,0)
  1.  ;;      NW - NEW ORDER
  1.  ;;^UTILITY(562037788,"SGF",218,1,5,0)
  1.  ;;      CA - CANCEL ORDER
  1.  ;;^UTILITY(562037788,"SGF",218,1,6,0)
  1.  ;;      DC - DISCONTINUE ORDER
  1.  ;;^UTILITY(562037788,"SGF",218,1,7,0)
  1.  ;;      HD - HOLD ORDER
  1.  ;;^UTILITY(562037788,"SGF",218,1,8,0)
  1.  ;;      RL - RELEASE HOLD
  1.  ;;^UTILITY(562037788,"SGF",218,1,9,0)
  1.  ;;      RP - REPLACE ORDER (MODIFY)
  1.  ;;^UTILITY(562037788,"SGF",218,1,10,0)
  1.  ;;      RO - REPLACEMENT ORDER (MODIFY)
  1.  ;;^UTILITY(562037788,"SGF",218,"C")
  1.  ;;@OREVENT
  1.  ;;^UTILITY(562037788,"SGF",222,0)
  1.  ;;HL ORDER STATUS (ID)^CODED ID^2
  1.  ;;^UTILITY(562037788,"SGF",222,1,0)
  1.  ;;3^^3^3^2940215
  1.  ;;^UTILITY(562037788,"SGF",222,1,1,0)
  1.  ;;Status of an order.  This field is used to report the status of an order
  1.  ;;^UTILITY(562037788,"SGF",222,1,2,0)
  1.  ;;either upon request or when the status changes.  Only the filler application
  1.  ;;^UTILITY(562037788,"SGF",222,1,3,0)
  1.  ;;can originate the value of this field.
  1.  ;;^UTILITY(562037788,"SGF",222,"C")
  1.  ;;@ORSTAT
  1.  ;;^UTILITY(562037788,"SGF",224,0)
  1.  ;;HL QUANTITY/TIMING^COMPOSITE^200
  1.  ;;^UTILITY(562037788,"SGF",224,1,0)
  1.  ;;5^^5^5^2940215
  1.  ;;^UTILITY(562037788,"SGF",224,1,1,0)
  1.  ;;Components: Quantity^interval^duration^start date/time^End date/time^priority
  1.  ;;^UTILITY(562037788,"SGF",224,1,2,0)
  1.  ;;^condition^text^conjunction^order sequencing
  1.  ;;^UTILITY(562037788,"SGF",224,1,3,0)
  1.  ;;  
  1.  ;;^UTILITY(562037788,"SGF",224,1,4,0)
  1.  ;;Determines the priority, quantity, frequency, and timing of an atomic
  1.  ;;^UTILITY(562037788,"SGF",224,1,5,0)
  1.  ;;service.
  1.  ;;^UTILITY(562037788,"SGF",224,"C")
  1.  ;;@ORQT
  1.  ;;^UTILITY(562037788,"SGF",226,0)
  1.  ;;HL DT/TM OF TRANSACTION^TIME STAMP^26
  1.  ;;^UTILITY(562037788,"SGF",226,1,0)
  1.  ;;2^^2^2^2940215
  1.  ;;^UTILITY(562037788,"SGF",226,1,1,0)
  1.  ;;For new orders, this is the date/time the order was entered (101;1.22)
  1.  ;;^UTILITY(562037788,"SGF",226,1,2,0)
  1.  ;;For modified,cancelled,hold orders, etc it is the time of the status change.
  1.  ;;^UTILITY(562037788,"SGF",226,"C")
  1.  ;;@ORTT
  1.  ;;^UTILITY(562037788,"SGF",227,0)
  1.  ;;HL ENTERED BY^COMPOSITE PERSON NAME SPECIAL^80
  1.  ;;^UTILITY(562037788,"SGF",227,1,0)
  1.  ;;2^^2^2^2940215
  1.  ;;^UTILITY(562037788,"SGF",227,1,1,0)
  1.  ;;The user who entered the order (101;1.01) or the user who entered the status
  1.  ;;^UTILITY(562037788,"SGF",227,1,2,0)
  1.  ;;change (status change user signature).
  1.  ;;^UTILITY(562037788,"SGF",227,"C")
  1.  ;;@ORDUZ
  1.  ;;^UTILITY(562037788,"SGF",228,0)
  1.  ;;HL VERIFIED BY^COMPOSITE PERSON NAME SPECIAL^80
  1.  ;;^UTILITY(562037788,"SGF",228,1,0)
  1.  ;;2^^2^2^2940215
  1.  ;;^UTILITY(562037788,"SGF",228,1,1,0)
  1.  ;;The HCP signature field (101;1.05) for new orders or the Status change
  1.  ;;^UTILITY(562037788,"SGF",228,1,2,0)
  1.  ;;authorized by for modified, canceled,etc orders.
  1.  ;;^UTILITY(562037788,"SGF",228,50)
  1.  ;;PROVIDER
  1.  ;;^UTILITY(562037788,"SGF",228,"C")
  1.  ;;@ORHCP
  1.  ;;^UTILITY(562037788,"SGF",233,0)
  1.  ;;HL ORDER CODE REASON^STRING^200
  1.  ;;^UTILITY(562037788,"SGF",233,1,0)
  1.  ;;1^^1^1^2940215
  1.  ;;^UTILITY(562037788,"SGF",233,1,1,0)
  1.  ;;Cancel/Modify reason.
  1.  ;;^UTILITY(562037788,"SGF",233,"C")
  1.  ;;@ORCOM
  1.  ;;^UTILITY(562037788,"SGF",234,0)
  1.  ;;HL SET ID - OBR REQ^SET ID^4
  1.  ;;^UTILITY(562037788,"SGF",234,1,0)
  1.  ;;^^1^1^2940215
  1.  ;;^UTILITY(562037788,"SGF",234,1,1,0)
  1.  ;;Sequential number to indicate number of orders being transmitted in message.
  1.  ;;^UTILITY(562037788,"SGF",234,"C")
  1.  ;;"OBR"
  1.  ;;^UTILITY(562037788,"SGF",238,0)
  1.  ;;HL OBSERVATION DT/TM^TIME STAMP^26
  1.  ;;^UTILITY(562037788,"SGF",238,1,0)
  1.  ;;1^^1^1^2940216
  1.  ;;^UTILITY(562037788,"SGF",238,1,1,0)
  1.  ;;Collection date/time for lab orders, Exam date/time for Rad Orders
  1.  ;;^UTILITY(562037788,"SGF",238,"C")
  1.  ;;@OBSDATE
  1.  ;;^UTILITY(562037788,"SGF",245,0)
  1.  ;;HL SPECIMEN REC'D DT/TM^TIME STAMP^26
  1.  ;;^UTILITY(562037788,"SGF",245,1,0)
  1.  ;;1^^1^1^2940216
  1.  ;;^UTILITY(562037788,"SGF",245,1,1,0)
  1.  ;;Log-in date/time for lab orders.  Arrival date/time for Rad orders.
  1.  ;;^UTILITY(562037788,"SGF",245,"C")
  1.  ;;@RECDATE
  1.  ;;^UTILITY(562037788,"SGF",253,0)
  1.  ;;HL RESULTS REPORT DT/TM^TIME STAMP^26
  1.  ;;^UTILITY(562037788,"SGF",253,1,0)
  1.  ;;3^^3^3^2940216
  1.  Q