Routine: GMRAGUI1

Package	Total	Call Graph
Adverse Reaction Tracking	13	EN1^GMRAEAB WAIT^GMRAFX3 EN7^GMRAMCB ($$NKA,$$NKASCR)^GMRANKA $$DUPCHK^GMRAOR0 ADVERSE^GMRAOR7 EN1^GMRAOR9 GMRACHK^GMRAPEM0 EN1^GMRAPET0 EN1^GMRAPTB RANGE^GMRASIGN SITE^GMRAUTL VAD^GMRAUTL1
VA FileMan	5	$$FIND1^DIC (,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIWP
Kernel	2	$$NOW^XLFDT EN^XQOR
National Drug File	1	$$TGTOG^PSNAPIS
RPC Broker	1	$$BROKER^XWBLIB
Registration	1	INP^VADPT

Package

Total

Call Graph

EN1^GMRAEAB WAIT^GMRAFX3 EN7^GMRAMCB ($$NKA,$$NKASCR)^GMRANKA $$DUPCHK^GMRAOR0 ADVERSE^GMRAOR7 EN1^GMRAOR9 GMRACHK^GMRAPEM0
EN1^GMRAPET0 EN1^GMRAPTB RANGE^GMRASIGN SITE^GMRAUTL VAD^GMRAUTL1

VA FileMan

$$FIND1^DIC (,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIWP

$$NOW^XLFDT EN^XQOR

$$TGTOG^PSNAPIS

$$BROKER^XWBLIB

INP^VADPT

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Adverse Reaction Tracking	3	GMRADEL GMRAGUI GMRAPEM0
Order Entry Results Reporting	1	ORWDAL32

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRADEL GMRAGUI GMRAPEM0

Order Entry Results Reporting

ORWDAL32

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; GETREC, cont'd
OBSV	; Get OBSERVATIONS from file 120.85
OBSLOOP
EXIT
NEXT	;SET ARRAY NODE AND INCREMENT ARRAY COUNTER
GETUSR
EIE(GMRAIEN,GMRADFN,GMRARRAY)	;Mark individual entry as entered in error	ICR #4682 Status: Active Usage: Private
ADCOM(ENTRY,TYPE,GMRACOM)	;Add comments to allergies
NKA	;Change patient assessment to NKA	ICR #4682 Status: Active Usage: Private
UPDATE(GMRAIEN,DFN,GMRARRAY)	;Add/edit allergies	ICR #4682 Status: Active Usage: Private
MESS	;Give out locked message

Name	Field # of Occurrence
$$FIND1^DIC	EIE+15
^DIE	EIE+5, NKA+13
UPDATE^DIE	ADCOM+9, UPDATE+13, UPDATE+24, UPDATE+34, UPDATE+48
^DIK	EIE+9, UPDATE+42
$$GET1^DIQ	GETUSR
^DIWP	ADCOM+3
EN1^GMRAEAB	EIE+12
WAIT^GMRAFX3	MESS+5
EN7^GMRAMCB	UPDATE+51
$$NKA^GMRANKA	NKA+5, UPDATE+6
$$NKASCR^GMRANKA	EIE+7
$$DUPCHK^GMRAOR0	UPDATE+3
ADVERSE^GMRAOR7	UPDATE+60
EN1^GMRAOR9	UPDATE+65
GMRACHK^GMRAPEM0	UPDATE+66
EN1^GMRAPET0	EIE+13, UPDATE+62
EN1^GMRAPTB	UPDATE+63
RANGE^GMRASIGN	UPDATE+65
SITE^GMRAUTL	UPDATE+5
VAD^GMRAUTL1	UPDATE+51
$$TGTOG^PSNAPIS	UPDATE+17
INP^VADPT	EIE+15
$$NOW^XLFDT	ADCOM+5, UPDATE+11
EN^XQOR	EIE+16
$$BROKER^XWBLIB	MESS+2

Name

Field # of Occurrence

$$FIND1^DIC

EIE+15

^DIE

EIE+5, NKA+13

UPDATE^DIE

ADCOM+9, UPDATE+13, UPDATE+24, UPDATE+34, UPDATE+48

^DIK

EIE+9, UPDATE+42

ADCOM+3

EIE+12

MESS+5

UPDATE+51

NKA+5, UPDATE+6

EIE+7

UPDATE+3

UPDATE+60

UPDATE+65

UPDATE+66

EIE+13, UPDATE+62

UPDATE+63

UPDATE+65

UPDATE+5

UPDATE+51

UPDATE+17

EIE+15

ADCOM+5, UPDATE+11

EIE+16

MESS+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,GMRAL1,!,GMRAL2 Line Location: MESS+5
Routine Call	DIC Line Location: EIE+15
Routine Call	DIE Line Location: EIE+5 NKA+13
Routine Call	DIE Line Location: ADCOM+9 UPDATE+13 UPDATE+24 UPDATE+34 UPDATE+48

Name

Line Occurrences

Function Call: WRITE

Prompt: !,GMRAL1,!,GMRAL2
Line Location: MESS+5

Routine Call

DIC
Line Location:

EIE+15

Routine Call

DIE
Line Location:

EIE+5
NKA+13

Routine Call

DIE
Line Location:

ADCOM+9
UPDATE+13
UPDATE+24
UPDATE+34
UPDATE+48

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^GMR(120.8 - [#120.8]	Classic Fileman Calls
^GMR(120.86 - [#120.86]	Classic Fileman Calls
^VA(200 - [#200]	GET1^DIQ

FileNo

Call Tags

^ORD(101 - [#101]

FIND1^DIC

^GMR(120.8 - [#120.8]

Classic Fileman Calls

^GMR(120.86 - [#120.86]

Classic Fileman Calls

^VA(200 - [#200]

GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OBSLOOP+5, OBSLOOP+11
^GMR(120.8 - [#120.8]	EIE+7, EIE+8, EIE+10, UPDATE+40, UPDATE+41
^GMR(120.85 - [#120.85]	OBSLOOP, OBSLOOP+1
^GMR(120.86 - [#120.86]	NKA+8, NKA+9, NKA+10, NKA+11, NKA+12
^GMRD(120.83 - [#120.83]	UPDATE+43, UPDATE+58
^GMRD(120.84 - [#120.84]	UPDATE+5
^TMP($J	UPDATE+65*
^UTILITY($J	ADCOM+3!
^XTMP("GMRAED"	EIE+2, EIE+17, NKA+4, NKA+15, UPDATE+4, UPDATE+68

Name

Line Occurrences (* Changed, ! Killed)

^DD("DD"

OBSLOOP+5, OBSLOOP+11

^GMR(120.8 - [#120.8]

EIE+7, EIE+8, EIE+10, UPDATE+40, UPDATE+41

^GMR(120.85 - [#120.85]

OBSLOOP, OBSLOOP+1

^GMR(120.86 - [#120.86]

NKA+8, NKA+9, NKA+10*, NKA+11*, NKA+12

^GMRD(120.83 - [#120.83]

UPDATE+43, UPDATE+58

^GMRD(120.84 - [#120.84]

UPDATE+5

^TMP($J

UPDATE+65*

^UTILITY($J

ADCOM+3!

^XTMP("GMRAED"

EIE+2, EIE+17, NKA+4, NKA+15, UPDATE+4, UPDATE+68

Name	Line Occurrences
ADCOM	EIE+6, UPDATE+35
EXIT	OBSLOOP
GETUSR	OBSLOOP+4, OBSLOOP+14
MESS	EIE+2, NKA+4, UPDATE+4
NEXT	OBSV+1, OBSLOOP+2, OBSLOOP+6, OBSLOOP+7, OBSLOOP+10, OBSLOOP+12, OBSLOOP+15, OBSLOOP+17
OBSLOOP	OBSLOOP+18

Name

Line Occurrences

ADCOM

EIE+6, UPDATE+35

EXIT

OBSLOOP

GETUSR

OBSLOOP+4, OBSLOOP+14

MESS

EIE+2, NKA+4, UPDATE+4

OBSV+1, OBSLOOP+2, OBSLOOP+6, OBSLOOP+7, OBSLOOP+10, OBSLOOP+12, OBSLOOP+15, OBSLOOP+17

OBSLOOP

OBSLOOP+18

Name	Field # of Occurrence
^(	UPDATE+38, UPDATE+39

Name

Field # of Occurrence

UPDATE+38, UPDATE+39

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EIE+1~, EIE+4, EIE+8, NKA+2~, NKA+13, UPDATE+1~, UPDATE+42
DA(1	UPDATE+42*
DFN	EIE+1~, EIE+14, NKA+2~, NKA+3, NKA+4, NKA+5, NKA+9, NKA+10, NKA+11, NKA+12 , NKA+13, NKA+15, UPDATE~, UPDATE+3, UPDATE+4, UPDATE+6, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+11 , UPDATE+12, UPDATE+16, UPDATE+51, UPDATE+55, UPDATE+68
DIE	EIE+1~, EIE+4, NKA+2~, NKA+13
DIK	EIE+1~, EIE+8, UPDATE+1~, UPDATE+42
DIWL	ADCOM+2~, ADCOM+3*
DIWR	ADCOM+2~, ADCOM+3*
DR	EIE+1~, EIE+4, NKA+2~, NKA+13
DUZ	ADCOM+6, NKA+13, UPDATE+10, UPDATE+33, UPDATE+46
ENTRY	ADCOM~, ADCOM+5, ADCOM+6, ADCOM+7, ADCOM+8
FDA	ADCOM+2~, UPDATE+1~, UPDATE+14!, UPDATE+26!, UPDATE+36!
FDA(	ADCOM+5, ADCOM+6, ADCOM+7, ADCOM+8, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+16, UPDATE+19 , UPDATE+20, UPDATE+22, UPDATE+23, UPDATE+32, UPDATE+33, UPDATE+43, UPDATE+45, UPDATE+46, UPDATE+47*
FILE	UPDATE+1~, UPDATE+31*, UPDATE+32, UPDATE+33
>> GMRA(1	OBSLOOP+1*, OBSLOOP+4, OBSLOOP+5, OBSLOOP+8, OBSLOOP+11, OBSLOOP+14
GMRAAR	UPDATE+1~, UPDATE+64*
GMRACOM	ADCOM~, ADCOM+3, ADCOM+4*, ADCOM+8
GMRADFN	EIE~, EIE+2, EIE+13, EIE+14, EIE+17, UPDATE+1~, UPDATE+55*, UPDATE+62
GMRAI	ADCOM+2~, ADCOM+3*
GMRAIEN	OBSLOOP, EIE~, EIE+3, UPDATE~, UPDATE+1~, UPDATE+2, UPDATE+15, UPDATE+25*, UPDATE+32, UPDATE+33 , UPDATE+35, UPDATE+40, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+44, UPDATE+51, UPDATE+54, UPDATE+56, UPDATE+57 , UPDATE+58, UPDATE+59, UPDATE+60, UPDATE+61, UPDATE+62, UPDATE+63, UPDATE+64
GMRAIEN(	UPDATE+61*
GMRAL	UPDATE+1~, UPDATE+59*, UPDATE+60
GMRAL(	UPDATE+54, UPDATE+56, UPDATE+57, UPDATE+58
GMRAL1	MESS+1~, MESS+3*, MESS+5, MESS+6
GMRAL2	MESS+1~, MESS+4*, MESS+5, MESS+6
GMRALL	UPDATE+1~
GMRALL(	UPDATE+51*
>> GMRALOC	UPDATE+51
>> GMRANAM	UPDATE+51
GMRAOUT	EIE+1~, EIE+11, EIE+13, UPDATE+1~, UPDATE+53, UPDATE+62
GMRAPA	EIE+1~, EIE+3, EIE+4, EIE+6, EIE+7, EIE+8, EIE+10, EIE+13, UPDATE+1~, UPDATE+63 , UPDATE+64*, UPDATE+65, UPDATE+66
GMRAPA(0	EIE+10*
GMRAPN	EIE+18, UPDATE+1~, UPDATE+67
GMRAROT	UPDATE+1~
GMRAROT(	UPDATE+49*
GMRARRAY	NEXT+1, EIE~, EIE+4, EIE+6, UPDATE~, UPDATE+3, UPDATE+11, UPDATE+17*, UPDATE+19, UPDATE+20 , UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+29, UPDATE+30, UPDATE+32, UPDATE+35, UPDATE+37, UPDATE+52, UPDATE+54 , UPDATE+56, UPDATE+57, UPDATE+63, UPDATE+64
GMRAS0	UPDATE+1~, UPDATE+38*, UPDATE+40, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+45, UPDATE+47, UPDATE+49
>> GMRASITE	UPDATE+5
>> GMRASITE(0	UPDATE+5*
GMRAXBOS	MESS+1~, MESS+2*, MESS+5
>> I	OBSLOOP+16*
IEN	UPDATE+1~, UPDATE+14!
IEN(	UPDATE+12*
IEN(1	UPDATE+25
>> ND	NEXT+1*
NEW	UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+7, UPDATE+15, UPDATE+16, UPDATE+20, UPDATE+25, UPDATE+50
NKA	NKA+2~, NKA+5, NKA+6, NKA+7, UPDATE+1~, UPDATE+6, UPDATE+7
NODE	UPDATE+1~, UPDATE+15, UPDATE+16, UPDATE+19, UPDATE+20, UPDATE+22, UPDATE+23, UPDATE+44, UPDATE+45, UPDATE+46 , UPDATE+47
>> OBSIEN	OBSV+2, OBSLOOP, OBSLOOP+1, OBSLOOP+2
>> ORDFN	NKA+3
OROLD	EIE+1~
>> ORY	EIE+18, NKA+7, NKA+8, NKA+12, NKA+14, UPDATE+3, UPDATE+67, MESS+6
>> SEVCOD	OBSLOOP+8*, OBSLOOP+9
>> SEVER	OBSLOOP+9*, OBSLOOP+10
SIEN	UPDATE+1~, UPDATE+40*, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+44
>> STRING	OBSV+1, OBSLOOP+2, OBSLOOP+6, OBSLOOP+7, OBSLOOP+10, OBSLOOP+12, OBSLOOP+15, OBSLOOP+16, NEXT+1*
SUB	UPDATE+1~, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+27, UPDATE+29, UPDATE+30, UPDATE+31, UPDATE+32 , UPDATE+37, UPDATE+38, UPDATE+39, UPDATE+58
TYPE	ADCOM~, ADCOM+7
U	OBSLOOP+4, OBSLOOP+5, OBSLOOP+8, OBSLOOP+11, OBSLOOP+14, EIE+7, EIE+8, NKA+10, NKA+11, UPDATE+3 , UPDATE+17, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+39, UPDATE+40, UPDATE+41, UPDATE+42, UPDATE+43, UPDATE+45 , UPDATE+47, UPDATE+49, UPDATE+52, UPDATE+56, UPDATE+58, UPDATE+64
>> USR	OBSLOOP+4, OBSLOOP+14, GETUSR
>> USRNAM	OBSLOOP+3, OBSLOOP+7, OBSLOOP+13, OBSLOOP+15, GETUSR*
VAIN	EIE+1~
X	EIE+1~, EIE+15, EIE+16, ADCOM+2~, ADCOM+3
Y	OBSLOOP+5, OBSLOOP+6, OBSLOOP+11, OBSLOOP+12, EIE+1~

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAGUI1

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: