Routine: GMRAY29

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 ^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
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
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+4
^DIK	DEL+4
$$DECEASED^GMRAFX	FIXALG+5
ADCOM^GMRAFX	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+5
DEM^VADPT	MAIL+30
$$FMADD^XLFDT	DQ+4
$$FMTE^XLFDT	MAIL+9
$$NOW^XLFDT	UPDATEE+8, MAIL+9
$$UP^XLFSTR	FIXALG+8
^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+4

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]	FIXALG+3, FIXALG+4, FIXALG+5, FIXALG+6, FIXALG+7, UPDATEE+2, UPDATEE+3, UPDATE+2
^GMR(120.85 - [#120.85]	UPDATE+16, UPDATE+18, UPDATE+19
^GMRD(120.82 - [#120.82]	FIXALG+2, UPDATE+12
^XTMP("GMRAFIX"	PRETRAN+1, POST+1!, POST+2, POST+3, DQ+4, FIXALG+8
^XTMP("GMRAFX"	DQ+5!

Label References

Name	Line Occurrences
DEL	FIXALG+4
FIXALG	DQ+2
MAIL	DQ+3
Q	POST+4
UPDATE	FIXALG+11
UPDATEE	FIXALG+10
UPDATEF	FIXALG+9, 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
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	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	DEL+1~, DEL+3*
DR	UPDATEE+1~, UPDATEE+4, UPDATEE+8, UPDATE+1~, UPDATE+15, UPDATE+21
DT	DQ+4
DUZ	UPDATEE+4, UPDATEE+8, MAIL+6, MAIL+37
ENTRY	FIXALG+1~, FIXALG+8*, FIXALG+9, FIXALG+10, UPDATEE+8, UPDATE+4, UPDATE+9, UPDATE+13
ERR	DQ+1~, FIXALG+2*, 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+3*
FILE	UPDATE+1~, UPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+12
FREE	FIXALG+1~, FIXALG+2*, FIXALG+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+3*, FIXALG+4, FIXALG+5, FIXALG+6, FIXALG+7, DEL+3, UPDATEF+3, UPDATEE+2, UPDATEE+3 , UPDATEE+4, UPDATEE+6, UPDATE+2, UPDATE+3
GMRAPA	UPDATE+1~, UPDATE+3*, UPDATE+15, UPDATE+16, UPDATE+18, UPDATE+25
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+7, FIXALG+8, UPDATEF+2, UPDATEF+3, UPDATE+9, UPDATE+13, UPDATE+19, UPDATE+24, MAIL+1~ , MAIL+32*, MAIL+33
SIEN	UPDATE+1~, UPDATE+19*, UPDATE+20
TE	DQ+1~, UPDATEE+10*, MAIL+15
TF	DQ+1~, UPDATEF+5*, MAIL+15
TIME	UPDATEE+1~, UPDATEE+3*, UPDATEE+8
TU	DQ+1~, UPDATE+26*, MAIL+15
U	FIXALG+5, FIXALG+6, FIXALG+7, FIXALG+10, 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*
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: GMRAY29

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