INSY185.m

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