Routine: GMRAIAL1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

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 Total: 5

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRAIAL2

Entry Points

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

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!*

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

Name	Comments	DBIA/ICR reference
EXIT
OBRX
CHRT
VER
ERR
OBR1
PID
CALL
EN(EVIEN,KEY,VFLAG,OUT,MSHP)	; Entry point
VALID	;;VDEF HL7 MESSAGE BUILDER ; Creates HL7 V2.4 ORU^R01 message for allergy updates & assessments
ENT
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
IDBM
SAVE
OBR
HL7RC(X)

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAIAL1

Call Graph Total: 5

Caller Graph Total: 1