Routine: GMRAOR

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
National Drug File	3	ZERO^PSN50P41 ($$CLASS2,$$CLIST,$$DCLCODE)^PSNAPIS (,DISPDRG)^PSNNGR
Adverse Reaction Tracking	2	$$SETNODE^GMRAOR1 ($$CLP2CODE,$$CODE2CL)^GMRAPENC
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$VERSION^XPDUTL
Toolkit	2	$$GET^XPAR GETIREF^XTID
Order Entry Results Reporting	1	($$GET,$$HAVEHDR,HAVEHDR)^ORRDI1

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RADEM RAORD1 RAPTLU RAUTL8
Adverse Reaction Tracking	2	GMRAOR5 GMRARAD1
Inpatient Medications	2	PSGSICHK PSJDGAL
Order Entry Results Reporting	2	OCXOZ09 ORQQAL
IHS Electronic Health Record	1	BEHOART
Outpatient Pharmacy	1	PSODGAL

Package

Total

Caller Graph

Radiology Nuclear Medicine

RADEM RAORD1 RAPTLU RAUTL8

Adverse Reaction Tracking

GMRAOR5 GMRARAD1

Inpatient Medications

PSGSICHK PSJDGAL

Order Entry Results Reporting

OCXOZ09 ORQQAL

IHS Electronic Health Record

BEHOART

Outpatient Pharmacy

PSODGAL

Entry Points

Name	Comments	DBIA/ICR reference
GETDATA(DFN)	;Obtain local and HDR related allergy data for use in order checking. Section added in patch 26	ICR #4847 Status: Active Usage: Controlled Subscription
ING(DFN,PTR,REAC,COMM)	; Subroutine checks for Drug Ingredients, returns: ; If found FLG= 1 with GMRAIEN Array Drug Ingredients ; Not found FLG= 0
GETREAC(ALG,GMRAREAC)	;IHS/MSC/MGH for reactions Patch 1006
LOCAL(DFN)	;
PRIMARY(INGIEN)	;check if INGIEN is a primary ingredient
FIND(REACT,ING,DC)	;If reactant didn't include drug classes and/or ingredients, try and find them locally. Section added in patch 26
ACTIVE(ALL)	;Check allergy to see if it is inactive
DRCL(CODE,REAC,COMM)	;return any rxn's in GMRADRCL(
CLASS(DFN,PTR,REAC,COMM)	; Subroutine checks for Drug Class, returns: ; If found FLG= 1 with GMRAIEN Array Drug Class ; Not found FLG= 0
GETCOM(ALG,GMRACOM)	;IHS/MSC/MGH for comments Patch 1006
ORCHK(DFN,TYP,PTR,LOC,REAC,COMM)	; Given a patient IEN (DFN), this function will ; return 1 (true) if the patient has an allergy to an agent defined ; by TYP and PTR, else it returns 0 (false). See table below. ; The Contrast Media Reaction check will return a null if the patient ; is not in the ART database. Contrast Media checks will also ; return whether the check is from local or remote data as the second ; piece of the flag if LOC is defined as a positive integer	ICR #2378 Status: Under Revision Usage: Supported
FAC(NODE)	;
DRUG(DFN,PTR,REAC,COMM)	; Subroutine checks for Drug Reaction, returns 1 or 0.
NDFREF()	;get version dependent NDF reference
REMOTE(DFN)	;
RAD(DFN)	; Subroutine checks for Contrast Media Reaction, returns 1 or 0.

External References

Name	Field # of Occurrence
$$SETNODE^GMRAOR1	LOCAL+5, LOCAL+17, REMOTE+14, REMOTE+20, REMOTE+22, REMOTE+23
$$CLP2CODE^GMRAPENC	CLASS+5
$$CODE2CL^GMRAPENC	DRCL+10
$$GET^ORRDI1	REMOTE+4
$$HAVEHDR^ORRDI1	REMOTE+3
HAVEHDR^ORRDI1	REMOTE+3
ZERO^PSN50P41	PRIMARY+5
$$CLASS2^PSNAPIS	FIND+17, FIND+19
$$CLIST^PSNAPIS	DRUG+35, FIND+13
$$DCLCODE^PSNAPIS	DRUG+33
^PSNNGR	DRUG+19, FIND+10
DISPDRG^PSNNGR	DRUG+7, DRUG+8
$$FMADD^XLFDT	GETDATA+17
$$FMDIFF^XLFDT	GETDATA+10
$$FMTE^XLFDT	GETREAC+9
$$NOW^XLFDT	GETDATA+10, GETDATA+17
$$GET^XPAR	GETDATA+9
$$VERSION^XPDUTL	NDFREF+1
GETIREF^XTID	REMOTE+13, FIND+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BEHOAR(90460.05 - [#90460.05]	GETREAC+11
^GMR(120.8 - [#120.8]	DRUG+11, DRUG+22, DRCL+4, ING+7, ING+8, CLASS+6, LOCAL+2, LOCAL+3, LOCAL+6, LOCAL+14 , LOCAL+15, LOCAL+18, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6, GETREAC+5, GETREAC+8, GETREAC+10, GETCOM+3 , GETCOM+6, GETCOM+7
^GMR(120.86 - [#120.86]	RAD+2
^GMRD(120.82 - [#120.82]	FIND+16, FIND+17
^GMRD(120.83 - [#120.83]	GETREAC+4, GETREAC+9
^TMP("GMRAOC"	RAD+2, RAD+4, RAD+5, DRUG+9, DRUG+13, DRUG+20, DRUG+24, DRCL+2, DRCL+11, GETDATA+15! , GETDATA+16*
^TMP("PSN"	DRUG+19!, DRUG+20, DRUG+24, DRUG+27!, FIND+10!, FIND+11, FIND+12!
^TMP("PSNDD"	DRUG+8!, DRUG+9, DRUG+13, DRUG+16!
^TMP($J	PRIMARY+4!, PRIMARY+6
^XTMP("GMRAOC"	GETDATA+5, GETDATA+11, GETDATA+12, GETDATA+13!, GETDATA+14!, GETDATA+16, GETDATA+17, GETDATA+18, LOCAL+5, LOCAL+10* , LOCAL+13, LOCAL+17, LOCAL+22, LOCAL+25, REMOTE+14, REMOTE+20, REMOTE+22, REMOTE+23, REMOTE+24, REMOTE+26 , REMOTE+29!, REMOTE+30*
^XTMP("ORRDI"	GETDATA+8, GETDATA+10, REMOTE+5, REMOTE+7, REMOTE+8, REMOTE+10, REMOTE+16, REMOTE+18

Label References

Name	Line Occurrences
$$ACTIVE	DRUG+12, DRUG+23, DRCL+5, ING+9, CLASS+8, LOCAL+4, LOCAL+16
$$CLASS	ORCHK+23
$$DRUG	ORCHK+21
$$FAC	DRUG+13, DRUG+24, DRCL+11
$$ING	ORCHK+22
$$NDFREF	DRUG+4
$$PRIMARY	REMOTE+28
$$RAD	ORCHK+20
DRCL	DRUG+33, DRUG+36
FIND	REMOTE+21
GETCOM	DRUG+15, DRUG+26, DRCL+13, ING+12, CLASS+11, LOCAL+8, LOCAL+20
GETDATA	ORCHK+19
GETREAC	DRUG+14, DRUG+25, DRCL+12, ING+11, CLASS+10, LOCAL+7, LOCAL+19
LOCAL	GETDATA+13, GETDATA+14
REMOTE	GETDATA+14

Name	Field # of Occurrence
^(	REMOTE+11, REMOTE+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DRUG+1~, DRUG+9, DRUG+13, DRUG+20, DRUG+24, GETREAC+5, GETCOM+3
ACOM	LOCAL+1~, LOCAL+8!, LOCAL+20!
ACOM(	LOCAL+11, LOCAL+12, LOCAL+13, LOCAL+23, LOCAL+24, LOCAL+25
ALG	GETREAC~, GETREAC+5, GETREAC+8, GETREAC+10, GETCOM~, GETCOM+3, GETCOM+6, GETCOM+7
ALL	ACTIVE~, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6
AREAC	LOCAL+7!, LOCAL+19!
AREAC(	LOCAL+9, LOCAL+10, LOCAL+21, LOCAL+22
CLASS	DRUG+32~, DRUG+33*, DRUG+34~
CLSFN	DRCL+8~, DRCL+10*, DRCL+11
CNT	GETREAC+1!, GETREAC+3, GETREAC+7, GETREAC+9, GETREAC+11, GETCOM+1!, GETCOM+2, GETCOM+5, GETCOM+7
CODE	DRCL~, DRCL+2, DRCL+4, DRCL+10, DRCL+11
COMM	ORCHK~, ORCHK+16*, ORCHK+21, ORCHK+22, ORCHK+23, DRUG~, DRUG+15, DRUG+26, DRUG+33, DRUG+36 , DRCL~, DRCL+13, ING~, ING+12, CLASS~, CLASS+11
DA	ORCHK+14~
DC	RAD+1~, RAD+2, RAD+4, RAD+5, REMOTE+1~, REMOTE+18, REMOTE+19, FIND~
DC(	FIND+14, FIND+17, FIND+19*
DCLASS	REMOTE+1~, REMOTE+19*, REMOTE+20
DFN	ORCHK~, ORCHK+17, ORCHK+19, ORCHK+20, ORCHK+21, ORCHK+22, ORCHK+23, RAD~, RAD+2, DRUG~ , DRUG+11, DRUG+22, DRCL+4, ING~, ING+7, ING+8, CLASS~, CLASS+6, GETDATA~, GETDATA+5 , GETDATA+8, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+16, GETDATA+17, GETDATA+18, LOCAL~ , LOCAL+2, LOCAL+3, LOCAL+5, LOCAL+6, LOCAL+10, LOCAL+13, LOCAL+14, LOCAL+15, LOCAL+17, LOCAL+18 , LOCAL+22, LOCAL+25, REMOTE~, REMOTE+4, REMOTE+5, REMOTE+7, REMOTE+8, REMOTE+10, REMOTE+14, REMOTE+16 , REMOTE+18, REMOTE+20, REMOTE+22, REMOTE+23, REMOTE+24, REMOTE+26, REMOTE+29, REMOTE+30
FAC	FAC+1~, FAC+2*, FAC+3
FILE	REMOTE+1~, REMOTE+11, REMOTE+12, REMOTE+13, REMOTE+14, FIND+1~, FIND+4, FIND+5, FIND+7*, FIND+8 , FIND+9, FIND+15, FIND+18, FIND+20
FLAG	FIND+1~, FIND+2*
FLG	RAD+1~, RAD+2, RAD+3, RAD+11, DRUG+1~, DRUG+13, DRUG+24, DRUG+29, DRUG+38, DRCL+14 , ING+4, ING+10, ING+14, CLASS+5, CLASS+9, CLASS+12, REMOTE+1~, REMOTE+6, REMOTE+9, REMOTE+17*
GMRAC	DRUG+1~, CLASS+3~, CLASS+5*, CLASS+6
GMRACM	ORCHK+14~, ORCHK+20, RAD+6*
GMRACOM	DRUG+2!, DRUG+15, DRUG+26, ING+12, CLASS+11, GETCOM~, GETCOM+1!
GMRACOM(	GETCOM+7*
GMRADC	REMOTE+1~, REMOTE+21
GMRADC(	REMOTE+23
GMRADR	DRUG+1~
GMRADRCL	DRUG+2!, DRCL+6
GMRADRCL(	DRCL+11*
GMRADRCL(999	DRCL+6
GMRAFLG	ORCHK+14~, ORCHK+15, ORCHK+17, ORCHK+20, ORCHK+21, ORCHK+22, ORCHK+23, ORCHK+25
GMRAI	DRUG+1~, DRUG+9, DRUG+11, DRUG+13, DRUG+20, DRUG+22, DRUG+24, ING+8, FIND+1~, FIND+11*
GMRAIC	GETCOM+1!, GETCOM+3*, GETCOM+6, GETCOM+7
GMRAIEN	ING+3!, CLASS+3!, FIND+1~, FIND+8*, FIND+10, FIND+13, FIND+16, FIND+17, FIND+19, FIND+21
GMRAIEN(	ING+10, CLASS+9
GMRAII	GETREAC+1!, GETREAC+5*, GETREAC+8, GETREAC+10
GMRAING	DRUG+2!, REMOTE+1~, REMOTE+21
GMRAING(	DRUG+13, DRUG+24, REMOTE+22
GMRALIST	DRUG+34~, DRUG+35, DRUG+36, FIND+1~, FIND+13, FIND+14
GMRALIST(	DRUG+36, FIND+14
GMRAOTH	GETREAC+1!, GETREAC+4*, GETREAC+9
GMRARAY	REMOTE+1~, REMOTE+15!, FIND+1~, FIND+12!
GMRARAY(	REMOTE+14, FIND+7, FIND+8
GMRAREAC	DRUG+2!, DRUG+14, DRUG+25, ING+3!, ING+11, CLASS+10, GETREAC~, GETREAC+1!
GMRAREAC(	GETREAC+9, GETREAC+11
GMRAX	ING+3~, ING+5, ING+7, ING+10, ING+11, ING+12, CLASS+3~, CLASS+5, CLASS+6, CLASS+8 , CLASS+9, CLASS+10, CLASS+11
GMRAZ	GETREAC+6~, GETREAC+8, GETREAC+9, GETCOM+4~, GETCOM+6
GMRCACHE	GETDATA+6~, GETDATA+9*, GETDATA+10
GMRFRESH	GETDATA+6~, GETDATA+7, GETDATA+10, GETDATA+13, GETDATA+14
GMRNEW	GETDATA+6~, GETDATA+7, GETDATA+12, GETDATA+13, GETDATA+14
GMRRECDT	GETDATA+6~, GETDATA+8*, GETDATA+10
GMRXTMP	GETDATA+6~, GETDATA+7, GETDATA+11, GETDATA+13, GETDATA+14
I	REMOTE+1~, REMOTE+25~, REMOTE+26, REMOTE+28, REMOTE+29, REMOTE+30
IEN	REMOTE+1~, REMOTE+14*
IN	REMOTE+1~, REMOTE+10, REMOTE+11, ACTIVE+1~, ACTIVE+2, ACTIVE+3, ACTIVE+7*, ACTIVE+8
INACT	ACTIVE+1~, ACTIVE+5*, ACTIVE+7
ING	FIND~
ING(	FIND+11, FIND+16, FIND+21*
INGIEN	PRIMARY~, PRIMARY+5, PRIMARY+6
INGLST	REMOTE+1~, REMOTE+25~
INGLST(	REMOTE+29*, REMOTE+30
J	DRUG+1~, DRCL+6~, DRCL+11, LOCAL+1~, LOCAL+2, LOCAL+3, LOCAL+5, LOCAL+6, LOCAL+10, LOCAL+13 , LOCAL+14, LOCAL+15, LOCAL+17, LOCAL+18, LOCAL+22, LOCAL+25, REMOTE+1~, REMOTE+5, REMOTE+7, REMOTE+8 , REMOTE+10, REMOTE+16, REMOTE+18, FIND+1~
K	LOCAL+1~, LOCAL+6, LOCAL+7, LOCAL+8, LOCAL+18, LOCAL+19, LOCAL+20, REMOTE+1~, REMOTE+22, REMOTE+23
L	LOCAL+1~, LOCAL+9, LOCAL+10, LOCAL+11, LOCAL+12, LOCAL+13, LOCAL+21, LOCAL+22, LOCAL+23, LOCAL+24 , LOCAL+25
LIST	FIND+1~
LOC	ORCHK~, ORCHK+20
LOCAL	RAD+1~, RAD+4*, RAD+6
M	LOCAL+1~, LOCAL+12, LOCAL+13, LOCAL+24, LOCAL+25
NAREAC	LOCAL+1~
NODE	FAC~, FAC+2
PRIM	REMOTE+1~, REMOTE+27~, REMOTE+28*, REMOTE+29
PSNDA	DRUG+1~, DRUG+3, DRUG+4, DRUG+31, DRUG+33, DRUG+35, FIND+1~, FIND+10, FIND+13
PSNVPN	DRUG+1~, DRUG+3, DRUG+7, DRUG+31, DRUG+33
PTR	ORCHK~, ORCHK+17, ORCHK+21, ORCHK+22, ORCHK+23, DRUG~, DRUG+3, DRUG+31, ING~, ING+7 , CLASS~, CLASS+5
REAC	ORCHK~, ORCHK+16*, ORCHK+21, ORCHK+22, ORCHK+23, DRUG~, DRUG+14, DRUG+25, DRUG+33, DRUG+36 , DRCL~, DRCL+12, ING~, ING+11, CLASS~, CLASS+10
REACT	REMOTE+1~, REMOTE+7, REMOTE+21, FIND~, FIND+3, FIND+4, ACTIVE+1~, ACTIVE+6, ACTIVE+7
REMOTE	RAD+1~, RAD+5*, RAD+6
RETURN	PRIMARY+3~, PRIMARY+6*, PRIMARY+7
SSRC	GETREAC+6~, GETREAC+10*, GETREAC+11
SUB	FIND+1~, FIND+16, FIND+17
TYP	ORCHK~, ORCHK+17, ORCHK+20, ORCHK+21, ORCHK+22, ORCHK+23
U	RAD+2, DRUG+36, GETDATA+8, GETDATA+10, GETDATA+17, REMOTE+11, REMOTE+19, FIND+3, FIND+4, FIND+14 , FIND+16, FIND+17, FIND+19, ACTIVE+5, ACTIVE+6, GETREAC+9, GETREAC+10, GETREAC+11
VUID	REMOTE+1~, REMOTE+11, REMOTE+13, FIND+1~, FIND+3, FIND+6
X1	DRUG+1~, DRUG+11, DRUG+12, DRUG+14, DRUG+15, DRUG+22, DRUG+23, DRUG+25, DRUG+26, DRCL+1~ , DRCL+4, DRCL+5, DRCL+12, DRCL+13, ING+8, ING+9, LOCAL+1~, LOCAL+3, LOCAL+4, LOCAL+15 , LOCAL+16
Z	ACTIVE+1~, ACTIVE+4*, ACTIVE+5, ACTIVE+6

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAOR

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items