Routine: GMRAY40

Package	Total	Call Graph
Adverse Reaction Tracking	4	($$DECEASED,ADCOM)^GMRAFX ($$DUP,DELMUL)^GMRAFX3 ($$NKASCR,CLN)^GMRANKA UPDATE^GMRAPES1
Kernel	4	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$UP^XLFSTR BMES^XPDUTL
VA Fileman	3	$$FIND1^DIC (,FILE)^DIE (,ENALL)^DIK
MailMan	1	^XMD
Registration	1	($$TESTPAT,DEM)^VADPT
Toolkit	1	SCREEN^XTID

Entry Points

Name	Comments	DBIA/ICR reference
UPDATEF	;Update reactant to say free text so users know it isn't a standardized entry
PRETRAN	;Load conversion table into KIDS build
FIXALG	;Loop through 120.8 update existing free text entries
UPDATE	;Update free text entry to data found in table
CHANGED(GMRAR)	;Was entry changed by patch 29?
Q	;
UPDATEE	;Mark as entered in error, check for NKA
DEL	;No zero node, remove entry
MAIL	;Send message indicating post install is finished
POST	;Post installation processes
FIXB	;Kill and reset "B" xref on file 120.8 to be sure it's correct
DQ	;Process begins here

External References

Name	Field # of Occurrence
^%ZTLOAD	Q+3
$$FIND1^DIC	UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8
^DIE	UPDATEE+5, UPDATEE+8, UPDATE+15, UPDATE+21
FILE^DIE	UPDATEF+7
^DIK	DEL+4
ENALL^DIK	FIXB+5
$$DECEASED^GMRAFX	FIXALG+4
ADCOM^GMRAFX	UPDATEF+10, UPDATEE+6, UPDATE+25
$$DUP^GMRAFX3	UPDATE+13
DELMUL^GMRAFX3	UPDATE+22
$$NKASCR^GMRANKA	UPDATEE+7
CLN^GMRANKA	UPDATEE+9
UPDATE^GMRAPES1	UPDATE+23
$$TESTPAT^VADPT	FIXALG+4
DEM^VADPT	MAIL+30
$$FMADD^XLFDT	DQ+5
$$FMTE^XLFDT	MAIL+9
$$NOW^XLFDT	UPDATEE+8, MAIL+9
$$UP^XLFSTR	FIXALG+7, CHANGED+4
^XMD	MAIL+23, MAIL+39
BMES^XPDUTL	Q+3, Q+4
SCREEN^XTID	UPDATE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Conversion table not loaded - INSTALLATION ABORTED" Line Location: POST+3
Routine Call	DIE Line Location: UPDATEE+5 UPDATEE+8 UPDATE+15 UPDATE+21
Routine Call	DIC Line Location: UPDATE+5 UPDATE+6 UPDATE+7 UPDATE+8
Routine Call	DIE Line Location: UPDATEF+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(120.8 - [#120.8]	Classic Fileman Calls
^GMR(120.85 - [#120.85]	Classic Fileman Calls
^GMR(120.86 - [#120.86]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	FIXB+2!, FIXALG+2, FIXALG+3, FIXALG+4, FIXALG+5, UPDATEE+2, UPDATEE+3, UPDATE+2, CHANGED+3, CHANGED+4 , CHANGED+5
^GMR(120.85 - [#120.85]	UPDATE+16, UPDATE+18, UPDATE+19
^GMRD(120.82 - [#120.82]	UPDATEF+2, UPDATE+12
^XTMP("GMRAFIX40"	PRETRAN+1, POST+1!, POST+2, POST+3, DQ+5, FIXALG+8, FIXALG+13, FIXALG+14, FIXALG+15
^XTMP("GMRAFX"	DQ+6!

Label References

Name	Line Occurrences
$$CHANGED	FIXALG+11
DEL	FIXALG+3
FIXALG	DQ+3
FIXB	DQ+2
MAIL	DQ+4
Q	POST+4
UPDATE	FIXALG+10, FIXALG+15
UPDATEF	FIXALG+14, UPDATE+9, UPDATE+13

Naked Globals

Name	Field # of Occurrence
^(0	UPDATEE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIFN	UPDATE+1~, UPDATE+17, UPDATE+18, UPDATE+19, UPDATE+20
CHANGED	CHANGED+1~, CHANGED+2, CHANGED+3, CHANGED+5, CHANGED+6
CNT	MAIL+1~, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+12, MAIL+13, MAIL+14, MAIL+16, MAIL+17* , MAIL+19, MAIL+20, MAIL+21, MAIL+26, MAIL+27, MAIL+28, MAIL+31, MAIL+33, MAIL+34, MAIL+35*
COM	UPDATEF+1~, UPDATEF+9, UPDATEF+10, UPDATE+1~, UPDATE+24, UPDATE+25
DA	DEL+1~, DEL+3, UPDATEE+1~, UPDATEE+4, UPDATEE+8, UPDATE+1~, UPDATE+15, UPDATE+20*
DA(1	UPDATE+20*
DFN	UPDATEE+1~, UPDATEE+2, UPDATEE+7, UPDATEE+8, UPDATE+1~, UPDATE+2, UPDATE+9, UPDATE+13, MAIL+1~, MAIL+29* , MAIL+32, MAIL+33
DIE	UPDATEE+1~, UPDATEE+4, UPDATEE+8, UPDATE+1~, UPDATE+15, UPDATE+21
DIFROM	MAIL+1~
DIK	FIXB+1~, FIXB+3, DEL+1~, DEL+3
DIK(1	FIXB+4*
DR	UPDATEE+1~, UPDATEE+4, UPDATEE+8, UPDATE+1~, UPDATE+15, UPDATE+21
DT	DQ+5
DUZ	UPDATEE+4, UPDATEE+8, MAIL+6, MAIL+37
ENTRY	FIXALG+1~, FIXALG+8, FIXALG+9, FIXALG+13, FIXALG+14, UPDATEE+8, UPDATE+4, UPDATE+9, UPDATE+13
ERR	DQ+1~, MAIL+11
ERR(	MAIL+25, MAIL+29, MAIL+32, MAIL+33
ERR(2	UPDATE+9*, MAIL+5
ERR(3	UPDATE+13*, MAIL+5
ERRCODE	UPDATE+1~
EXTRA	MAIL+1~, MAIL+5*, MAIL+6, MAIL+36
FDA	UPDATEF+1~
FDA(	UPDATEF+5, UPDATEF+6
FILE	UPDATE+1~, UPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+12
FREE	FIXALG+1~, UPDATEF+1~, UPDATEF+2*, UPDATEF+6
GMRAAR	UPDATE+1~, UPDATE+10*, UPDATE+24
GMRAAR("O"	UPDATE+12*, UPDATE+15, UPDATE+23
GMRAAR(0	UPDATE+11*, UPDATE+15, UPDATE+24
GMRADONT	DEL+1~, DEL+2*
GMRAI	FIXALG+1~, FIXALG+2*, FIXALG+3, FIXALG+4, FIXALG+5, DEL+3, UPDATEF+5, UPDATEF+6, UPDATEF+10, UPDATEE+2 , UPDATEE+3, UPDATEE+4, UPDATEE+6, UPDATE+2, UPDATE+3, CHANGED+3, CHANGED+4, CHANGED+5
GMRAPA	UPDATE+1~, UPDATE+3*, UPDATE+15, UPDATE+16, UPDATE+18, UPDATE+25
GMRAR	FIXALG+1~, FIXALG+7, FIXALG+8, FIXALG+11, FIXALG+12, FIXALG+13, FIXALG+14, FIXALG+15, CHANGED~, CHANGED+4 , CHANGED+5
GMRASCR	UPDATE+1~, UPDATE+8*
GMRATXT	MAIL+1~
GMRATXT(	MAIL+8, MAIL+9, MAIL+10, MAIL+12, MAIL+13, MAIL+14, MAIL+16, MAIL+17, MAIL+19, MAIL+20 , MAIL+21, MAIL+26, MAIL+27, MAIL+28, MAIL+31, MAIL+33, MAIL+34, MAIL+35
IEN	UPDATE+1~, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+12
LIST	UPDATE+23!
LOOP	MAIL+1~, MAIL+18, MAIL+19, MAIL+20, MAIL+24, MAIL+25, MAIL+27, MAIL+29, MAIL+32, MAIL+33
NAME	UPDATE+1~, UPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+11
REACTANT	FIXALG+1~, FIXALG+5, FIXALG+6, FIXALG+7, FIXALG+11, FIXALG+14, UPDATEF+3, UPDATEF+4, UPDATEF+5, UPDATEF+9 , UPDATE+9, UPDATE+13, UPDATE+19, MAIL+1~, MAIL+32, MAIL+33
SIEN	UPDATE+1~, UPDATE+19*, UPDATE+20
SUB	CHANGED+1~, CHANGED+3*, CHANGED+4, CHANGED+5
TE	DQ+1~, UPDATEE+10*, MAIL+15
TF	DQ+1~, UPDATEF+8*, MAIL+15
TIME	UPDATEE+1~, UPDATEE+3*, UPDATEE+8
TU	DQ+1~, UPDATE+26*, MAIL+15
U	FIXALG+4, FIXALG+5, UPDATEE+2, UPDATEE+3, UPDATEE+8, UPDATE+2, UPDATE+4, UPDATE+12, MAIL+33
USER	UPDATEE+1~, UPDATEE+3*, UPDATEE+8
VADM	MAIL+1~, MAIL+30!
VADM(1	MAIL+31
VADM(2	MAIL+31
XMDUZ	MAIL+1~, MAIL+2*
XMSUB	MAIL+1~, MAIL+22, MAIL+38
XMTEXT	MAIL+1~, MAIL+22, MAIL+38
XMY	MAIL+1~, MAIL+37!
XMY(	MAIL+6, MAIL+37
XMY("CATHERINE.HOANG2@VA.GOV"	MAIL+3*
XMY("DAVID.NABER@VA.GOV"	MAIL+3*
XMY("HULET.LEE_ANN@FORUM.VA.GOV"	MAIL+4*
XMY("KEN.BARLOW@VA.GOV"	MAIL+4*
XMZ	MAIL+1~
>> XPDGREF	PRETRAN+1, POST+2
>> XPDQUIT	POST+3*
ZTDESC	Q+1~, Q+2*
ZTDTH	Q+1~, Q+2*
ZTIO	Q+1~, Q+2*
ZTRTN	Q+1~, Q+2*
ZTSK	Q+1~, Q+3, Q+4

Marked Items

Name	Field # of Occurrence
$T(SCREEN^XTID	UPDATE+8

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAY40

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items