Routine: GMRAGUI1

Information

GMRAGUI1 ;SLC/DAN - CPRS GUI support ;06-May-2013 11:01;DU

Source Information

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Adverse Reaction Tracking	12	EN1^GMRAEAB WAIT^GMRAFX3 EN7^GMRAMCB ($$NKA,$$NKASCR)^GMRANKA $$DUPCHK^GMRAOR0 ADVERSE^GMRAOR7 EN1^GMRAOR9 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

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Adverse Reaction Tracking	3	GMRADEL GMRAGUI GMRAPEM0
IHS Electronic Health Record	1	BEHOARMU
Order Entry Results Reporting	1	ORWDAL32

Entry Points

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

External References

Name	Field # of Occurrence
$$FIND1^DIC	EIE+15
^DIE	EIE+5, NKA+13
UPDATE^DIE	ADCOM+9, UPDATE+13, UPDATE+21, UPDATE+29, UPDATE+43
^DIK	EIE+9, UPDATE+37
$$GET1^DIQ	GETUSR
^DIWP	ADCOM+3
EN1^GMRAEAB	EIE+12
WAIT^GMRAFX3	MESS+5
EN7^GMRAMCB	UPDATE+46
$$NKA^GMRANKA	NKA+5, UPDATE+6
$$NKASCR^GMRANKA	EIE+7
$$DUPCHK^GMRAOR0	UPDATE+3
ADVERSE^GMRAOR7	UPDATE+55
EN1^GMRAOR9	UPDATE+60
EN1^GMRAPET0	EIE+13, UPDATE+57
EN1^GMRAPTB	UPDATE+58
RANGE^GMRASIGN	UPDATE+60
SITE^GMRAUTL	UPDATE+5
VAD^GMRAUTL1	UPDATE+46
$$TGTOG^PSNAPIS	UPDATE+17
INP^VADPT	EIE+15
$$NOW^XLFDT	ADCOM+5, UPDATE+11
EN^XQOR	EIE+16
$$BROKER^XWBLIB	MESS+2

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

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OBSLOOP+5, OBSLOOP+11
^GMR(120.8 - [#120.8]	EIE+7, EIE+8, EIE+10, UPDATE+35, UPDATE+36
^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+38, UPDATE+53
^GMRD(120.84 - [#120.84]	UPDATE+5
^TMP($J	UPDATE+60*
^UTILITY($J	ADCOM+3!
^XTMP("GMRAED"	EIE+2, EIE+17, NKA+4, NKA+15, UPDATE+4, UPDATE+62

Name	Line Occurrences
ADCOM	EIE+6, UPDATE+30
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	Field # of Occurrence
^(	UPDATE+33, UPDATE+34

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+37
DA(1	UPDATE+37*
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+46, UPDATE+50, UPDATE+62
DIE	EIE+1~, EIE+4, NKA+2~, NKA+13
DIK	EIE+1~, EIE+8, UPDATE+1~, UPDATE+37
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+28, UPDATE+41
ENTRY	ADCOM~, ADCOM+5, ADCOM+6, ADCOM+7, ADCOM+8
FDA	ADCOM+2~, UPDATE+1~, UPDATE+14!, UPDATE+23!, UPDATE+31!
FDA(	ADCOM+5, ADCOM+6, ADCOM+7, ADCOM+8, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+16, UPDATE+19 , UPDATE+20, UPDATE+27, UPDATE+28, UPDATE+38, UPDATE+40, UPDATE+41, UPDATE+42*
FILE	UPDATE+1~, UPDATE+26*, UPDATE+27, UPDATE+28
>> GMRA(1	OBSLOOP+1*, OBSLOOP+4, OBSLOOP+5, OBSLOOP+8, OBSLOOP+11, OBSLOOP+14
GMRAAR	UPDATE+1~, UPDATE+59*
GMRACOM	ADCOM~, ADCOM+3, ADCOM+4*, ADCOM+8
GMRADFN	EIE~, EIE+2, EIE+13, EIE+14, EIE+17, UPDATE+1~, UPDATE+50*, UPDATE+57
GMRAI	ADCOM+2~, ADCOM+3*
GMRAIEN	OBSLOOP, EIE~, EIE+3, UPDATE~, UPDATE+1~, UPDATE+2, UPDATE+15, UPDATE+22*, UPDATE+27, UPDATE+28 , UPDATE+30, UPDATE+35, UPDATE+36, UPDATE+37, UPDATE+38, UPDATE+39, UPDATE+46, UPDATE+49, UPDATE+51, UPDATE+52 , UPDATE+53, UPDATE+54, UPDATE+55, UPDATE+56, UPDATE+57, UPDATE+58, UPDATE+59
GMRAIEN(	UPDATE+56*
GMRAL	UPDATE+1~, UPDATE+54*, UPDATE+55
GMRAL(	UPDATE+49, UPDATE+51, UPDATE+52, UPDATE+53
GMRAL1	MESS+1~, MESS+3*, MESS+5, MESS+6
GMRAL2	MESS+1~, MESS+4*, MESS+5, MESS+6
GMRALL	UPDATE+1~
GMRALL(	UPDATE+46*
>> GMRALOC	UPDATE+46
>> GMRANAM	UPDATE+46
GMRAOUT	EIE+1~, EIE+11, EIE+13, UPDATE+1~, UPDATE+48, UPDATE+57
GMRAPA	EIE+1~, EIE+3, EIE+4, EIE+6, EIE+7, EIE+8, EIE+10, EIE+13, UPDATE+1~, UPDATE+58 , UPDATE+59*, UPDATE+60
GMRAPA(0	EIE+10*
GMRAPN	EIE+18, UPDATE+1~, UPDATE+61
GMRAROT	UPDATE+1~
GMRAROT(	UPDATE+44*
GMRARRAY	NEXT+1, EIE~, EIE+4, EIE+6, UPDATE~, UPDATE+3, UPDATE+11, UPDATE+17*, UPDATE+19, UPDATE+20 , UPDATE+25, UPDATE+27, UPDATE+30, UPDATE+32, UPDATE+47, UPDATE+49, UPDATE+51, UPDATE+52, UPDATE+58, UPDATE+59
GMRAS0	UPDATE+1~, UPDATE+33*, UPDATE+35, UPDATE+36, UPDATE+37, UPDATE+38, UPDATE+40, UPDATE+42, UPDATE+44
>> 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+22
>> ND	NEXT+1*
NEW	UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+7, UPDATE+15, UPDATE+16, UPDATE+20, UPDATE+22, UPDATE+45
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+39, UPDATE+40, UPDATE+41, UPDATE+42
>> 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+61, MESS+6
>> SEVCOD	OBSLOOP+8*, OBSLOOP+9
>> SEVER	OBSLOOP+9*, OBSLOOP+10
SIEN	UPDATE+1~, UPDATE+35*, UPDATE+36, UPDATE+37, UPDATE+38, UPDATE+39
>> 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+24, UPDATE+25, UPDATE+26, UPDATE+27, UPDATE+32, UPDATE+33 , UPDATE+34, UPDATE+53
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+34, UPDATE+35, UPDATE+36, UPDATE+37, UPDATE+38, UPDATE+40, UPDATE+42 , UPDATE+44, UPDATE+47, UPDATE+51, UPDATE+53, UPDATE+59
>> 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: 22

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: