Routine: RA94PST

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT MES^XPDUTL $$KSP^XUPARAM
VA Fileman	3	(CREIXN,DELIX,DELIXN)^DDMOD $$FIND1^DIC $$GET1^DIQ
MailMan	2	^XMD $$GOTLOCAL^XMXAPIG

Entry Points

Name	Comments	DBIA/ICR reference
MAIL	; pass the negative results concerning the tasked process
CREIXN	;rebuilds the ""AD"" xref on the PRIMARY DIAGNOSTIC CODE (70.03 - 0;13) field
NEW1AD	;Check to see if the traditional "AD" cross-reference was deleted.
BLDMSG	;failure: we did not create the cross-reference

External References

Name	Field # of Occurrence
^%ZTLOAD	NEW1AD+98
CREIXN^DDMOD	CREIXN+21
DELIX^DDMOD	NEW1AD+40
DELIXN^DDMOD	NEW1AD+72
$$FIND1^DIC	NEW1AD+65
$$GET1^DIQ	BLDMSG+2
$$FMADD^XLFDT	NEW1AD+96
$$NOW^XLFDT	NEW1AD+96
^XMD	MAIL+9
$$GOTLOCAL^XMXAPIG	MAIL+5
MES^XPDUTL	NEW1AD+45, NEW1AD+52, NEW1AD+71, NEW1AD+82, NEW1AD+101
$$KSP^XUPARAM	BLDMSG+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DD("IX" - [#.11]	FIND1^DIC
^DIC(4 - [#4]	GET1^DIQ
70.03	DELIXN^DDMOD, DELIX^DDMOD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(70.03	NEW1AD+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MAIL+2~
D0	MAIL+2~
D1	MAIL+2~
D2	MAIL+2~
DG	MAIL+2~
DIC	MAIL+2~
DICR	MAIL+2~
DIERR	NEW1AD+18~, CREIXN+2!
DIW	MAIL+2~
DUZ	MAIL+6
RAERR	NEW1AD+18~, CREIXN+2!
RAERR("DIERR"	NEW1AD+41, NEW1AD+78, NEW1AD+81, BLDMSG+1, BLDMSG+5
RAIRM	BLDMSG+6~*, BLDMSG+7, BLDMSG+8
RANODE	NEW1AD+18~, NEW1AD+36*, NEW1AD+37
RARSLT	CREIXN+2~, CREIXN+21, BLDMSG+1
RATXT	NEW1AD+18~, NEW1AD+45, NEW1AD+49!, NEW1AD+52, NEW1AD+67!, NEW1AD+71, NEW1AD+77!, NEW1AD+78*, NEW1AD+82, NEW1AD+98! , NEW1AD+101, CREIXN+2!
RATXT(	NEW1AD+45, NEW1AD+70
RATXT(0	BLDMSG+13
RATXT(1	NEW1AD+42, NEW1AD+44, NEW1AD+50, NEW1AD+68, NEW1AD+79, NEW1AD+98, BLDMSG+2*
RATXT(2	NEW1AD+43, NEW1AD+51, NEW1AD+69, NEW1AD+80, NEW1AD+99, NEW1AD+100, BLDMSG+2*
RATXT(3	NEW1AD+70, NEW1AD+81, BLDMSG+3*
RATXT(4	BLDMSG+4*
RATXT(5	BLDMSG+5*, BLDMSG+7
RATXT(6	BLDMSG+7, BLDMSG+8
RATXT(7	BLDMSG+8*
RAVALUE	NEW1AD+18~, NEW1AD+65
RAVALUE(1	NEW1AD+62*
RAVALUE(2	NEW1AD+62*
RAXIT	NEW1AD+18~, NEW1AD+36, NEW1AD+41, NEW1AD+49
RAXREF	CREIXN+2~, CREIXN+21
RAXREF("ACTIVITY"	CREIXN+5*
RAXREF("DESCR"	CREIXN+7, CREIXN+8, CREIXN+9, CREIXN+10, CREIXN+11, CREIXN+12, CREIXN+13*
RAXREF("EXECUTION"	CREIXN+4*
RAXREF("FILE"	CREIXN+3*
RAXREF("KILL	CONDITION" , CREIXN+14*
RAXREF("KILL"	CREIXN+15*
RAXREF("NAME"	CREIXN+3*
RAXREF("ROOT	FILE" , CREIXN+4*
RAXREF("SET C	ONDITION" , CREIXN+16*
RAXREF("SET"	CREIXN+17*
RAXREF("SHORT	DESCR" , CREIXN+6*
RAXREF("TYPE"	CREIXN+3*
RAXREF("USE"	CREIXN+4*
RAXREF("VAL"	CREIXN+13*
RAY	NEW1AD+18~, NEW1AD+36, NEW1AD+37, NEW1AD+39, NEW1AD+40, NEW1AD+65*, NEW1AD+67, NEW1AD+77
XMDUN	MAIL+2~
XMDUZ	MAIL+2~, MAIL+3*
XMSUB	MAIL+2~, MAIL+4*
XMTEXT	MAIL+2~, MAIL+3*
XMY	MAIL+2~
XMY(	MAIL+6*
XMY("G.RAD HL	7 MESSAGES" , MAIL+7*
XMY("VAOITVHITRadDevIssues@va.gov"	MAIL+8*
ZTDESC	NEW1AD+95~, NEW1AD+97*
ZTDTH	NEW1AD+95~, NEW1AD+96*
ZTIO	NEW1AD+95~*
>> ZTREQ	BLDMSG+11*
ZTRTN	NEW1AD+95~*
ZTSK	NEW1AD+95~, NEW1AD+99, NEW1AD+100

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RA94PST

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: