Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRAIAL1

Package: Adverse Reaction Tracking

Routine: GMRAIAL1


Information

GMRAIAL1 ;BPOIFO/JG - BUILD HL7 ORU^R01 MESSAGE FOR ALLERGIES - PART 1 ; 17 Mar 2006 11:07 AM

Source Information

Source file <GMRAIAL1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VDEF 2 ($$TS,$$XCN200,SETDLMS)^VDEFEL  ERR^VDEFREQ  
Adverse Reaction Tracking 1 ENTRY^GMRAIAL2  
Registration 1 BLDPID^VAFCQRY  
Toolkit 1 $$GETVUID^XTID  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRAIAL2  

Entry Points

Name Comments DBIA/ICR reference
VALID ;;VDEF HL7 MESSAGE BUILDER
; Creates HL7 V2.4 ORU^R01 message for allergy updates & assessments
EN(EVIEN,KEY,VFLAG,OUT,MSHP) ; Entry point
PID
OBR
ENT
VER
ERR
IDBM
CHRT
OBR1
OBRX
CALL
EXIT
SAVE
HL7RC(X)
GETVUID(GMRAFILE,GMRAFLD,GMRADATA,GMRAFLSW) ;
; Input parameters:
; GMRAFILE - VistA File #
; GMRAFLD - Field # in GMRAFILE
; GMRADATA - Reference value to look up VUID for
; GMRAFLSW - (Optional) Use 8985.1 if nil, else use GMRAFILE

External References

Name Field # of Occurrence
ENTRY^GMRAIAL2 CALL
BLDPID^VAFCQRY PID+1
$$TS^VDEFEL OBR+8, ENT+4, VER+4, ERR+4, IDBM+6, CHRT+6
$$XCN200^VDEFEL OBR+13, ENT+1, VER+1, ERR+1, IDBM+3, CHRT+3
SETDLMS^VDEFEL EN+28
ERR^VDEFREQ EN+35, EN+38, EN+43, OBRX+4
$$GETVUID^XTID GETVUID+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+38, EN+43
^GMR(120.8 - [#120.8] EN+34, EN+36, IDBM, IDBM+1, IDBM+2, CHRT, CHRT+1, CHRT+2
^GMR(120.86 - [#120.86] EN+40
^TMP("HLS" EN+19!, SAVE+9!*

Label References

Name Line Occurrences
$$GETVUID OBR1+3
$$HL7RC OBR+14, ENT+2, VER+2, ERR+2, IDBM+4, CHRT+4
CHRT IDBM
ERR VER
EXIT EN+33, EN+39
IDBM ERR
OBR1 CHRT
OBRX OBR+16
SAVE PID+3, OBRX
VER ENT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD EN+13~, SAVE+2!*, SAVE+4, SAVE+11!
ADD( SAVE+3*
ALRDATA EN+13~, EN+34*, EN+35, EN+36, EN+40*, EN+41, EN+42, OBR+8, OBR+11, ENT
, ENT+4, VER, VER+1, VER+4, OBR1+3, OBRX+4
ALTYPE EN+13~, EN+23*, EN+33, EN+39, OBR+1, OBR+2, OBR+11, OBR+16, OBRX+4
ARRAY EN+15~, EN+19*, SAVE+5, SAVE+10*
CMP EN+15~
DATA EN+14~
DFN EN+13~, EN+36*, EN+38, EN+42*, EN+43, PID+1
ENTERR EN+14~, EN+36*, EN+37, EN+40*, EN+41*, EN+42, OBR+5, ERR, ERR+1, ERR+4
EVIEN EN~
GMRADATA GETVUID~, GETVUID+12
GMRAFILE EN+16~, GETVUID~, GETVUID+12, GETVUID+13, GETVUID+14
GMRAFLD GETVUID~, GETVUID+12
GMRAFLSW GETVUID~, GETVUID+12*, GETVUID+13
GMRAHL EN+15~, EN+20*, PID+1
GMRAHL("ECH" EN+26
GMRAHL("FS" EN+27
GMRAHL("Q" EN+27
GMRAIENS EN+16~
GMRAPID EN+14~, PID!, PID+1, PID+3!
GMRAPID( PID+2!
GMRAPID(1 PID+2*, PID+3
GMRAVUID EN+16~, OBR1+3*, OBR1+4, OBR1+5
HL7RC EN+14~, EN+27*, HL7RC+2
HLCM EN+13~, EN+26*, EN+27, OBR+1, OBR+2, OBR+13, ENT+1, ENT+4, VER+1, VER+4
, ERR+1, ERR+4, IDBM+3, IDBM+6, CHRT+3, CHRT+6, OBR1+4, OBR1+5
HLES EN+13~, EN+26*, EN+27, HL7RC+4
HLFS EN+13~, EN+27*, OBR, OBR+1, OBR+2, OBR+5, OBR+8, OBR+15, OBR1, OBR1+6
, OBRX, SAVE+1
HLQ EN+13~, EN+27*
HLRP EN+13~, EN+26*, EN+27, VER+4, ERR+4, IDBM+6, CHRT+6
HLSC EN+13~, EN+26*, EN+27, OBR+13, ENT+1, ENT+3, VER+1, VER+3, ERR+1, ERR+3
, IDBM+3, IDBM+5, CHRT+3, CHRT+5
I EN+14~, PID+2*, SAVE~, SAVE+3*, HL7RC~, HL7RC+4*
IEN EN+14~
IEN1 EN+14~, IDBM+1*, IDBM+2, CHRT+1*, CHRT+2
>> II OBR+14*, ENT+2*, VER+2*, ERR+2*, IDBM+4*, CHRT+4*
KEY EN~, EN+34, EN+35, EN+36, EN+40, EN+42, OBR+1, IDBM, IDBM+1, IDBM+2
, CHRT, CHRT+1, CHRT+2
MSHP EN~, EN+23
OCHR HL7RC~, HL7RC+2*, HL7RC+3, HL7RC+4
OUT EN~
OUT("HLS" SAVE+9!
OUTX EN+14~, PID*, PID+3*, OBR*, OBR+1*, OBR+2*, OBR+5*, OBR+8*, OBR+15*, OBR1*
, OBR1+6*, OBRX*, SAVE+1, SAVE+2*, SAVE+3*, SAVE+4!*, SAVE+5, SAVE+11!
RCHR HL7RC~, HL7RC+2*, HL7RC+4
RCHRI HL7RC~, HL7RC+1*, HL7RC+2
RSLTSTA EN+15~, EN+37*
S EN+14~, EN+19*, PID*, OBR*
SEPC EN+15~
SEPE EN+15~
SEPF EN+15~
SEPR EN+15~
SEPS EN+15~, OBR+14, ENT+2, VER+2, ERR+2, IDBM+4, CHRT+4
SEQ EN+15~, PID*, PID+1
>> SITEPARM OBR+1, GETVUID+14
>> TARGET EN+19*, EXIT, SAVE+8, SAVE+10*
TYPE HL7RC~*, HL7RC+1
U EN+36, EN+41, EN+42, OBR+1, OBR+8, OBR+11, ENT, ENT+4, VER, VER+1
, VER+4, ERR+1, ERR+4, IDBM+3, IDBM+6, CHRT+3, CHRT+6, OBR1+3, OBR1+4, OBR1+5
, OBRX+4, SAVE+8, SAVE+10, GETVUID+13, GETVUID+14
VAL EN+14~, ENT+3*, VER+3*, ERR+3*, IDBM+5*, CHRT+5*, OBR1+4*, OBR1+5*, OBR1+6
>> VDEFHL EN+20
VFLAG EN~
X EN+14~, OBR+21*, ENT+4*, VER+4*, ERR+4*, IDBM+6*, CHRT+6*, OBR1, OBR1+3*, OBR1+4
, HL7RC~, HL7RC+3, HL7RC+4*, HL7RC+5, GETVUID+12~*, GETVUID+13*, GETVUID+14*, GETVUID+15
X1 EN+14~, IDBM+2*, IDBM+3, IDBM+6, CHRT+2*, CHRT+3, CHRT+6
XX EN+13~, OBR+11*, OBR+12, OBR+13*, OBR+14*, OBR+15, ENT*, ENT+1*, ENT+2*, ENT+3
, VER+1*, VER+2*, VER+3, ERR*, ERR+1*, ERR+2*, ERR+3, IDBM+3*, IDBM+4*, IDBM+5
, CHRT+3*, CHRT+4*, CHRT+5
Y EN+14~, OBR+21*, IDBM+5, CHRT+5
Z EN+14~, OBR+21*, ENT+3*, ENT+4*, VER+3*, VER+4*, ERR+3*, ERR+4*, IDBM+5*, IDBM+6*
, CHRT+5*, CHRT+6*
>> ZTSTOP EN+33, EN+35*, EN+38*, EN+39, EN+43*, OBRX+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All