Routine: GMRA1008

Package	Total	Call Graph
VA Fileman	4	MSG^DIALOG (FILE,UPDATE)^DIE (DATAIN,DATAOUT)^DIFROMS FIA^DIFROMSU
Kernel	2	$$NOW^XLFDT (BMES,MES)^XPDUTL
Order Entry Results Reporting	1	$$CHECK^ORWDAL32

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP -
PRELOOP(FILE,FNAM,SCRN)	;EP-
INAC(IEN)	;Inactivate this entry
DRUG(IEN)	;EP-
INC(VAL)	;EP-
EXISTS(NAM)	;EP -
PATCH(X)	;return 1 if patch X was installed, X=aaaann.nnnnnn
ALGIEN(NAM)	;EP-
PRETRAN	;EP -
STOREALG(DATAIEN)	;
ENV	;EP -
SIGNS	;EP-
POST	;EP -
DIERR(XPDI)
DATA	; Import Data
INACT	;EP Remove duplicate caterpillar entries
SUBDATA(DIEN)	;EP-

External References

Name	Field # of Occurrence
MSG^DIALOG	DIERR+1
FILE^DIE	STOREALG+13
UPDATE^DIE	PRE+11, INAC+6, STOREALG+22, SUBDATA+22
DATAIN^DIFROMS	SIGNS+3
DATAOUT^DIFROMS	PRELOOP+2
FIA^DIFROMSU	PRELOOP+1
$$CHECK^ORWDAL32	INACT+4
$$NOW^XLFDT	INAC+4
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: INAC+7
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INAC+7
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INAC+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
Routine Call	DIE Line Location: PRE+11 INAC+6 STOREALG+22 SUBDATA+22
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
^GMR(120.8 - [#120.8]	PRE+4, PRE+5
^GMRD(120.82 - [#120.82]	INACT+3, DATA+3, DATA+4, DATA+5, SUBDATA+5!, SUBDATA+9!, SUBDATA+13!, SUBDATA+17!, DRUG+1

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+3
INAC	INACT+5
INACT	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	PRE+3~, PRE+9, PRE+10, INAC+3, INAC+4, INAC+5
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+3
ERR	INAC+1!, INAC+7, STOREALG+1~, STOREALG+14, STOREALG+23, SUBDATA+21!, SUBDATA+23
ERR("DIERR"	INAC+7, SUBDATA+23
F	SIGNS+1~, SIGNS+2, SIGNS+3, DATA+1~, DATA+6, DATA+7, DATA+8, DATA+9, STOREALG+9, STOREALG+10 , STOREALG+11, STOREALG+12, STOREALG+17, STOREALG+18, STOREALG+19, STOREALG+20, STOREALG+21
FDA	PRE+3~, INAC+1!, STOREALG+1~
FDA(	PRE+10, INAC+4, INAC+5, 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*
FDAIEN	STOREALG+1~
FILE	PRELOOP~, PRELOOP+1
FNAM	PRELOOP~, PRELOOP+1
FNUM	INAC+1!, INAC+2*
I	PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IEN	PRE+3~, PRE+4, PRE+5, PRE+9, INACT+1~, INACT+3, INACT+4, INACT+5, INAC~, INAC+3 , STOREALG+1~, STOREALG+4, STOREALG+5, STOREALG+6, STOREALG+15, DRUG~, DRUG+1
IENS	INAC+7, 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
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+4, DATA+5, DATA+7, DATA+8, 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	INAC+1!
NUM	PATCH+3~, PATCH+8*, PATCH+9
PATCH	ENV+1~, ENV+5*, ENV+6, ENV+7
SAVE	INACT+1~, INACT+2*
SCRN	PRELOOP~, PRELOOP+1
U	PRE+5, DATA+4, DATA+5, DATA+8, 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, DRUG+1
VAL	INC~, INC+1*, INC+2
X	PATCH~, PATCH+2, PATCH+4, PATCH+5, PATCH+7, PATCH+8, PATCH+9, PRE+3~, PRE+5, PRE+6 , PRE+7, INACT+1~, INACT+4, INACT+5, STOREALG+6, STOREALG+8
X1	PRE+3~, PRE+7*, PRE+8
X2	PRE+3~, PRE+8*, PRE+10
XPD	DIERR~, DIERR+1, DIERR+2
>> XPDDIQ("XPZ1"	ENV+2*
>> XPDDIQ("XPZ2"	ENV+2*
>> XPDGREF	SIGNS+3, DATA+7, DATA+8, 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: GMRA1008

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: