Routine: GMRA1005

Package	Total	Call Graph
VA Fileman	4	MSG^DIALOG (FILE,UPDATE)^DIE (DATAIN,DATAOUT)^DIFROMS FIA^DIFROMSU
Kernel	2	$$NOW^XLFDT (BMES,MES)^XPDUTL
Adverse Reaction Tracking	1	TOP10^GMRAUTL2

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP -
INACTSGN	;Inactivate any local signs
PRETRAN	;EP -
DRUG(IEN)	;EP-
PRELOOP(FILE,FNAM,SCRN)	;EP-
INC(VAL)	;EP-
INACTALL	;Inactivate any local allergies
EXISTS(NAM)	;EP -
PATCH(X)	;return 1 if patch X was installed, X=aaaann.nnnnnn
ALGIEN(NAM)	;EP-
ENV	;EP -
SIGNS	;EP-
POST	;EP -
DIERR(XPDI)
DATA	; Import Data
STOREALG(DATAIEN)	;
SUBDATA(DIEN)	;EP-

External References

Name	Field # of Occurrence
MSG^DIALOG	DIERR+1
FILE^DIE	STOREALG+13
UPDATE^DIE	STOREALG+22, SUBDATA+22, INACTALL+9, INACTSGN+9
DATAIN^DIFROMS	SIGNS+7
DATAOUT^DIFROMS	PRELOOP+2
FIA^DIFROMSU	PRELOOP+1
TOP10^GMRAUTL2	POST+3
$$NOW^XLFDT	INACTALL+7, INACTSGN+7
BMES^XPDUTL	DIERR+2
MES^XPDUTL	DIERR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must first install "_PATCH_"." Line Location: ENV+7
Function Call: WRITE	Prompt: !,IENS Line Location: STOREALG+23
Function Call: WRITE	Prompt: ERR Line Location: STOREALG+23
Function Call: WRITE	Prompt: ERR Line Location: STOREALG+23
Function Call: WRITE	Prompt: !,IENS Line Location: SUBDATA+23
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: SUBDATA+23
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: SUBDATA+23
Function Call: WRITE	Prompt: !,IENS Line Location: INACTALL+10
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INACTALL+10
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INACTALL+10
Function Call: WRITE	Prompt: !,IENS Line Location: INACTSGN+10
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INACTSGN+10
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INACTSGN+10
Routine Call	DIE Line Location: STOREALG+22 SUBDATA+22 INACTALL+9 INACTSGN+9
Routine Call	DIE Line Location: STOREALG+13
Routine Call	DIALOG Line Location: DIERR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	PATCH+4, PATCH+5, PATCH+7, PATCH+8
^GMRD(120.82 - [#120.82]	DATA+3, DATA+5, SUBDATA+5!, SUBDATA+9!, SUBDATA+13!, SUBDATA+17!, INACTALL+2, INACTALL+3, DRUG+1
^GMRD(120.83 - [#120.83]	INACTSGN+2, INACTSGN+3

Label References

Name	Line Occurrences
$$ALGIEN	STOREALG+4
$$INC	SUBDATA+7, SUBDATA+11, SUBDATA+15, SUBDATA+19, SUBDATA+20
$$PATCH	ENV+6
DATA	POST+1
DIERR	SIGNS+7
INACTALL	POST+2
INACTSGN	POST+2
PRELOOP	PRETRAN+1
SIGNS	POST+1
STOREALG	DATA+10
SUBDATA	STOREALG+15, STOREALG+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIEN	INACTALL+1~, INACTALL+6, INACTALL+7, INACTALL+8, INACTSGN+1~, INACTSGN+6, INACTSGN+7, INACTSGN+8
ARY	STOREALG+1~, STOREALG+3*
ARY("CLASS"	SUBDATA+10, SUBDATA+11
ARY("ING"	SUBDATA+14, SUBDATA+15
ARY("TERMSTATUS"	SUBDATA+18, SUBDATA+19, SUBDATA+20
ARY("VUID"	STOREALG+11, STOREALG+12, STOREALG+20, STOREALG+21
ARY(0	STOREALG+9, STOREALG+10, STOREALG+17, STOREALG+18, STOREALG+19
ARY(3	SUBDATA+6, SUBDATA+7
CNT	STOREALG+1~, STOREALG+7, INC+2, INC+3
DATAIEN	STOREALG~, STOREALG+2, STOREALG+3
DIEN	SUBDATA~, SUBDATA+2, SUBDATA+5, SUBDATA+9, SUBDATA+13, SUBDATA+17
>> DIERR	SIGNS+7
ERR	STOREALG+1~, STOREALG+14, STOREALG+23, SUBDATA+21!, SUBDATA+23, INACTALL+4!, INACTALL+10, INACTSGN+4!, INACTSGN+10
ERR("DIERR"	SUBDATA+23, INACTALL+10, INACTSGN+10
F	SIGNS+1~, SIGNS+2, SIGNS+7, DATA+1~, DATA+6, DATA+7, DATA+9, STOREALG+9, STOREALG+10, STOREALG+11 , STOREALG+12, STOREALG+17, STOREALG+18, STOREALG+19, STOREALG+20, STOREALG+21
FDA	STOREALG+1~, INACTALL+4!, INACTSGN+4!
FDA(	STOREALG+9, STOREALG+10, STOREALG+11, STOREALG+12, STOREALG+17, STOREALG+18, STOREALG+19, STOREALG+20, STOREALG+21, SUBDATA+7 , SUBDATA+11, SUBDATA+15, SUBDATA+19, SUBDATA+20, INACTALL+7, INACTALL+8, INACTSGN+7, INACTSGN+8
FDAIEN	STOREALG+1~
FILE	PRELOOP~, PRELOOP+1
FNAM	PRELOOP~, PRELOOP+1
FNUM	INACTALL+1~, INACTALL+5, INACTSGN+1~, INACTSGN+5
I	PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IEN	STOREALG+1~, STOREALG+4, STOREALG+5, STOREALG+6, STOREALG+15, INACTALL+1~, INACTALL+2, INACTALL+3, INACTALL+6, INACTSGN+1~ , INACTSGN+2, INACTSGN+3, INACTSGN+6, DRUG~, DRUG+1
IENS	STOREALG+1~, STOREALG+6, STOREALG+9, STOREALG+10, STOREALG+11, STOREALG+12, STOREALG+17, STOREALG+18, STOREALG+19, STOREALG+20 , STOREALG+21, STOREALG+23, SUBDATA+1~, SUBDATA+2, SUBDATA+7, SUBDATA+11, SUBDATA+15, SUBDATA+19, SUBDATA+20, SUBDATA+23 , INACTALL+10, INACTSGN+10
IENS(1	STOREALG+24
J	PATCH+3~, PATCH+5*, PATCH+7, PATCH+8
LNAARY	DATA+1~
LNAARY(	DATA+5*, EXISTS+1, ALGIEN+1
LP	SIGNS+1~, DATA+1~, DATA+3, DATA+5, DATA+7, DATA+9, DATA+10
LP2	STOREALG+1~, SUBDATA+6, SUBDATA+7, SUBDATA+10, SUBDATA+11, SUBDATA+14, SUBDATA+15, SUBDATA+18, SUBDATA+19, SUBDATA+20
NAM	SIGNS+1~, DATA+1~, DATA+9*, STOREALG+4, EXISTS~, EXISTS+1, ALGIEN~, ALGIEN+1
NIEN	INACTALL+1~, INACTALL+4!, INACTSGN+1~, INACTSGN+4!
NUM	PATCH+3~, PATCH+8*, PATCH+9
PATCH	ENV+1~, ENV+5*, ENV+6, ENV+7
SCRN	PRELOOP~, PRELOOP+1
U	DATA+5, DATA+9, STOREALG+9, STOREALG+10, STOREALG+11, STOREALG+12, STOREALG+17, STOREALG+18, STOREALG+19, STOREALG+20 , STOREALG+21, SUBDATA+7, SUBDATA+11, SUBDATA+15, SUBDATA+19, SUBDATA+20, INACTALL+3, INACTSGN+3, DRUG+1
VAL	INC~, INC+1*, INC+2
X	PATCH~, PATCH+2, PATCH+4, PATCH+5, PATCH+7, PATCH+8, PATCH+9, STOREALG+6, STOREALG+8
XPD	DIERR~, DIERR+1, DIERR+2
>> XPDDIQ("XPZ1"	ENV+2*
>> XPDDIQ("XPZ2"	ENV+2*
>> XPDGREF	SIGNS+7, DATA+7, DATA+9, STOREALG+3, PRELOOP+1, PRELOOP+2
XPDI	DIERR~, DIERR+2
>> XPDQUIT	ENV+7*
XUMF	DATA+1~, DATA+6*

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRA1005

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: