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

INSY186.m

Go to the documentation of this file. 
  1. INSY186 ;slt;19 Aug 1994@090352;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",293,0)
  1.  ;;HL RAD ENTERER'S LOCATION^COMPOSITE ID NUMBER AND NAME^80
  1.  ;;^UTILITY(562037788,"SGF",293,1,0)
  1.  ;;1^^1^1^2940322
  1.  ;;^UTILITY(562037788,"SGF",293,1,1,0)
  1.  ;;Requesting location from the radiology exam file (70.5;1.07)
  1.  ;;^UTILITY(562037788,"SGF",293,50)
  1.  ;;HOSPITAL LOCATION
  1.  ;;^UTILITY(562037788,"SGF",293,"C")
  1.  ;;#1.07
  1.  ;;^UTILITY(562037788,"SGF",294,0)
  1.  ;;HL RAD ORDER EFFECTIVE DT^TIME STAMP^26
  1.  ;;^UTILITY(562037788,"SGF",294,1,0)
  1.  ;;1^^1^1^2940322
  1.  ;;^UTILITY(562037788,"SGF",294,1,1,0)
  1.  ;;Order date/time from the radiology exam file (70.5;.07).
  1.  ;;^UTILITY(562037788,"SGF",294,"C")
  1.  ;;#.07
  1.  ;;^UTILITY(562037788,"SGF",295,0)
  1.  ;;HL RAD RESULT CODE^CODED ELEMENT^10
  1.  ;;^UTILITY(562037788,"SGF",295,1,0)
  1.  ;;2^^2^2^2940322
  1.  ;;^UTILITY(562037788,"SGF",295,1,1,0)
  1.  ;;Verified report result code from the radiology reports file (74;8603).  Use
  1.  ;;^UTILITY(562037788,"SGF",295,1,2,0)
  1.  ;;the field HL AMENDED RESULT CODE (RA) for the amended result code.
  1.  ;;^UTILITY(562037788,"SGF",295,"C")
  1.  ;;INTERNAL(#8603)_";78.3"
  1.  ;;^UTILITY(562037788,"SGF",296,0)
  1.  ;;HL RAD AMENDED RESULT CODE^CODED ELEMENT^10
  1.  ;;^UTILITY(562037788,"SGF",296,1,0)
  1.  ;;1^^1^1^2940322
  1.  ;;^UTILITY(562037788,"SGF",296,1,1,0)
  1.  ;;Report result code for amended radiology reports.
  1.  ;;^UTILITY(562037788,"SGF",296,"C")
  1.  ;;INTERNAL(#4)_";78.3"
  1.  ;;^UTILITY(562037788,"SGF",297,0)
  1.  ;;HL RAD REPORT^STRING^300
  1.  ;;^UTILITY(562037788,"SGF",297,1,0)
  1.  ;;1^^1^1^2940322
  1.  ;;^UTILITY(562037788,"SGF",297,1,1,0)
  1.  ;;Radiology report text.
  1.  ;;^UTILITY(562037788,"SGF",297,5)
  1.  ;;S X=$G(^RARPT(INDA(1),"R",INDA,0))
  1.  ;;^UTILITY(562037788,"SGF",297,"C")
  1.  ;;@NULL
  1.  ;;^UTILITY(562037788,"SGF",298,0)
  1.  ;;HL RAD AMENDED REPORT^STRING^300
  1.  ;;^UTILITY(562037788,"SGF",298,1,0)
  1.  ;;1^^1^1^2940322
  1.  ;;^UTILITY(562037788,"SGF",298,1,1,0)
  1.  ;;Amended radiology report text.
  1.  ;;^UTILITY(562037788,"SGF",298,5)
  1.  ;;S X=$G(^RARPT(INDA(2),1,INDA(1),1,INDA,0))
  1.  ;;^UTILITY(562037788,"SGF",298,"C")
  1.  ;;@NULL
  1.  ;;^UTILITY(562037788,"SGF",310,0)
  1.  ;;HL RAD STRING^STRING^2
  1.  ;;^UTILITY(562037788,"SGF",310,"C")
  1.  ;;"ST"
  1.  ;;^UTILITY(562037788,"SGF",311,0)
  1.  ;;HL RAD CODED ELEMENT^STRING^2
  1.  ;;^UTILITY(562037788,"SGF",311,"C")
  1.  ;;"CE"
  1.  ;;^UTILITY(562037788,"SGF",313,0)
  1.  ;;HL RAD RESULT CODE OBS ID^CODED ELEMENT^80
  1.  ;;^UTILITY(562037788,"SGF",313,1,0)
  1.  ;;1^^1^1^2940331
  1.  ;;^UTILITY(562037788,"SGF",313,1,1,0)
  1.  ;;Observation Identifier for radiology result codes.
  1.  ;;^UTILITY(562037788,"SGF",313,10,0)
  1.  ;;^4012.02P^3^3
  1.  ;;^UTILITY(562037788,"SGF",313,10,1,0)
  1.  ;;HL RAD OBS RESULT CODE ID^1^1
  1.  ;;^UTILITY(562037788,"SGF",313,10,2,0)
  1.  ;;HL RAD OBS RESULT CODE^2^1
  1.  ;;^UTILITY(562037788,"SGF",313,10,3,0)
  1.  ;;HL RAD OBS CODE SYSTEM^3^1
  1.  ;;^UTILITY(562037788,"SGF",313,10,"AS",1,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",313,10,"AS",2,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",313,10,"AS",3,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",313,10,"B",316,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",313,10,"B",317,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",313,10,"B",319,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",314,0)
  1.  ;;HL RAD REPORT OBS ID^CODED ELEMENT^80
  1.  ;;^UTILITY(562037788,"SGF",314,1,0)
  1.  ;;1^^1^1^2940331
  1.  ;;^UTILITY(562037788,"SGF",314,1,1,0)
  1.  ;;Observation Identifier for radiology results.
  1.  ;;^UTILITY(562037788,"SGF",314,10,0)
  1.  ;;^4012.02P^3^3
  1.  ;;^UTILITY(562037788,"SGF",314,10,1,0)
  1.  ;;HL RAD OBS REPORT ID^1^1
  1.  ;;^UTILITY(562037788,"SGF",314,10,2,0)
  1.  ;;HL RAD OBS REPORT^2^1
  1.  ;;^UTILITY(562037788,"SGF",314,10,3,0)
  1.  ;;HL RAD OBS CODE SYSTEM^3^1
  1.  ;;^UTILITY(562037788,"SGF",314,10,"AS",1,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",314,10,"AS",2,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",314,10,"AS",3,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",314,10,"B",315,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",314,10,"B",318,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",314,10,"B",319,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",315,0)
  1.  ;;HL RAD OBS REPORT ID^STRING^1
  1.  ;;^UTILITY(562037788,"SGF",315,"C")
  1.  ;;"R"
  1.  ;;^UTILITY(562037788,"SGF",316,0)
  1.  ;;HL RAD OBS RESULT CODE ID^STRING^1
  1.  ;;^UTILITY(562037788,"SGF",316,"C")
  1.  ;;"C"
  1.  ;;^UTILITY(562037788,"SGF",317,0)
  1.  ;;HL RAD OBS RESULT CODE^STRING^10
  1.  ;;^UTILITY(562037788,"SGF",317,"C")
  1.  ;;"RESCODE"
  1.  ;;^UTILITY(562037788,"SGF",318,0)
  1.  ;;HL RAD OBS REPORT^STRING^10
  1.  ;;^UTILITY(562037788,"SGF",318,"C")
  1.  ;;"REPORT"
  1.  ;;^UTILITY(562037788,"SGF",319,0)
  1.  ;;HL RAD OBS CODE SYSTEM^STRING^1
  1.  ;;^UTILITY(562037788,"SGF",319,"C")
  1.  ;;"L"
  1.  ;;^UTILITY(562037788,"SGF",322,0)
  1.  ;;HL PATIENT NUMBER^NUMERIC^15
  1.  ;;^UTILITY(562037788,"SGF",322,50)
  1.  ;;PATIENT
  1.  ;;^UTILITY(562037788,"SGF",322,"C")
  1.  ;;NUMBER
  1.  ;;^UTILITY(562037788,"SGF",323,0)
  1.  ;;HL MTF CODE^STRING^15
  1.  ;;^UTILITY(562037788,"SGF",323,"C")
  1.  ;;INSITE
  1.  ;;^UTILITY(562037788,"SGF",324,0)
  1.  ;;HL PATIENT ID INTERNAL^STRING^60
  1.  ;;^UTILITY(562037788,"SGF",324,10,0)
  1.  ;;^4012.02P^4^4
  1.  ;;^UTILITY(562037788,"SGF",324,10,1,0)
  1.  ;;HL PATIENT NUMBER^1
  1.  ;;^UTILITY(562037788,"SGF",324,10,2,0)
  1.  ;;HL MTF CODE^4
  1.  ;;^UTILITY(562037788,"SGF",324,10,3,0)
  1.  ;;HL NULL^2
  1.  ;;^UTILITY(562037788,"SGF",324,10,4,0)
  1.  ;;HL NULL^3
  1.  ;;^UTILITY(562037788,"SGF",324,10,"AS",1,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",324,10,"AS",2,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",324,10,"AS",3,4)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",324,10,"AS",4,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",324,10,"B",322,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",324,10,"B",323,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",324,10,"B",325,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",324,10,"B",325,4)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",325,0)
  1.  ;;HL NULL^STRING^1
  1.  ;;^UTILITY(562037788,"SGF",335,0)
  1.  ;;HL RAD ORDER TASK TIME^TIME STAMP^26
  1.  ;;^UTILITY(562037788,"SGF",335,1,0)
  1.  ;;1^^1^1^2940407
  1.  ;;^UTILITY(562037788,"SGF",335,1,1,0)
  1.  ;;Radiology Exam Order Task Date/Time
  1.  ;;^UTILITY(562037788,"SGF",335,"C")
  1.  ;;#.06
  1.  ;;^UTILITY(562037788,"SGM",9,0)
  1.  ;;HL RAD RESULT MESSAGE^R01^D^2.2^70.5^ORU^O^0
  1.  ;;^UTILITY(562037788,"SGM",9,1,0)
  1.  ;;^4011.01P^20^9
  1.  ;;^UTILITY(562037788,"SGM",9,1,3,0)
  1.  ;;HL MESSAGE HEADER^10^0^0^^^^^1
  1.  ;;^UTILITY(562037788,"SGM",9,1,4,0)
  1.  ;;HL PATIENT IDENTIFICATION^20^0^1^2^^O^^1
  1.  Q