Routine: DG53P543

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA FileMan	3	C^%DTC ^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ENV	; do environment check
PROGCHK(XPDABORT)	; checks for necessary programmer variables
CLEANUP
NOLINK	;
NOZERO	;
BADZERO	;
NOONE	;
UPDATE	;
PRTRPT	;
DEVICE()	; choose device and whether to queue.
PRINT	;
HEAD	;

External References

Name	Field # of Occurrence
C^%DTC	CLEANUP+2
^%ZIS	DEVICE+4
HOME^%ZIS	DEVICE+12
^%ZTLOAD	DEVICE+10
$$S^%ZTLOAD	HEAD+1
^DIE	UPDATE+11
^DIR	PRINT+26, HEAD+2
$$FMTE^XLFDT	PRINT+4
$$NOW^XLFDT	PRINT+4
BMES^XPDUTL	CLEANUP+5, CLEANUP+56
MES^XPDUTL	PROGCHK+2, PROGCHK+3, CLEANUP+41, CLEANUP+42, CLEANUP+44, CLEANUP+46, CLEANUP+48, CLEANUP+49, CLEANUP+50, CLEANUP+51 , CLEANUP+52, CLEANUP+54, CLEANUP+55, UPDATE+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,DGDDT,?15,"DG5.3543 File #20 Cleanup Utility",?70,"Page:",$J(DGPG,5),! Line Location: HEAD+5
Function Call: WRITE	Prompt: X,! Line Location: HEAD+5
Function Call: WRITE	Prompt: !,"File 2 IEN",?11,"Patient Name///Component Last^First^Middle^Prefix^Suffix",?69,"File 20 IEN",! Line Location: HEAD+6
Function Call: WRITE	Prompt: X,! Line Location: HEAD+7
Routine Call	DIE Line Location: UPDATE+11
Routine Call	DIR Line Location: PRINT+26 HEAD+2
Routine Call	%ZIS Line Location: DEVICE+4
Routine Call	%ZIS Line Location: DEVICE+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CLEANUP+6, CLEANUP+8, CLEANUP+9, CLEANUP+10, CLEANUP+11, NOLINK+7, UPDATE+10, UPDATE+12, PRINT+19
^VA(20 - [#20]	CLEANUP+13, CLEANUP+16, NOLINK+3, NOLINK+5, NOLINK+6
^XTMP("DG53P543"	CLEANUP+1!, CLEANUP+3, CLEANUP+23, CLEANUP+30, CLEANUP+38, NOLINK+2, NOLINK+3, NOLINK+7, NOZERO+2, BADZERO+2* , NOONE+2*, UPDATE+1, UPDATE+4, UPDATE+6, UPDATE+8, UPDATE+13!, PRINT+6, PRINT+11, PRINT+12, PRINT+14 , PRINT+16, PRINT+17, PRINT+19, PRINT+21, PRINT+23

Label References

Name	Line Occurrences
$$DEVICE	PRTRPT+1
BADZERO	CLEANUP+15
HEAD	PRINT+5, PRINT+13, PRINT+18, PRINT+22
NOLINK	CLEANUP+12
NOONE	CLEANUP+17
NOZERO	CLEANUP+14
PRINT	PRTRPT+1
PROGCHK	ENV+2
UPDATE	CLEANUP+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+1~, DEVICE+3*
CNT	CLEANUP~, CLEANUP+29*, CLEANUP+30
DA	UPDATE+2~, UPDATE+11*
DG20NAME	UPDATE+2~, UPDATE+10*, UPDATE+14!
DGCONC	CLEANUP~, CLEANUP+27*
DGDDT	PRINT+2~, PRINT+4*, HEAD+5
DGDPT	CLEANUP~, NOLINK+6*, NOLINK+7
DGERR	CLEANUP~, CLEANUP+4, CLEANUP+19, CLEANUP+23, CLEANUP+30, CLEANUP+37, CLEANUP+38, UPDATE+7, UPDATE+8, UPDATE+9 , UPDATE+13, PRINT+2~, PRINT+20, PRINT+21*, PRINT+23
DGFND	CLEANUP~, NOLINK+4, NOLINK+5, NOLINK+6, NOLINK+7
DGFULLNM	CLEANUP~, CLEANUP+10*, CLEANUP+21, CLEANUP+23, CLEANUP+25, CLEANUP+27, CLEANUP+30, CLEANUP+32, CLEANUP+34, CLEANUP+38 , NOLINK+2, NOLINK+3, NOLINK+5, NOLINK+7
DGGLOBAL	CLEANUP~, CLEANUP+53*, CLEANUP+54
DGIEN	CLEANUP~, CLEANUP+4, CLEANUP+6, CLEANUP+8, CLEANUP+9, CLEANUP+10, CLEANUP+11, CLEANUP+15, CLEANUP+23, CLEANUP+30 , CLEANUP+38, NOLINK+2, NOLINK+3, NOLINK+7, NOZERO+2, BADZERO+2, NOONE+2, UPDATE+3, UPDATE+4, UPDATE+6 , UPDATE+8, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13, PRINT+2~, PRINT+6, PRINT+7, PRINT+10, PRINT+11* , PRINT+12, PRINT+14, PRINT+16, PRINT+17, PRINT+19, PRINT+21, PRINT+23
DGLINK	CLEANUP~, CLEANUP+11, CLEANUP+12, CLEANUP+13, CLEANUP+16, CLEANUP+23, CLEANUP+30, CLEANUP+38, NOZERO+2, BADZERO+2 , NOONE+2, UPDATE+5, UPDATE+6, UPDATE+8, UPDATE+13, PRINT+2~, PRINT+15, PRINT+16*, PRINT+17, PRINT+19 , PRINT+21, PRINT+23
DGLINK0	CLEANUP~, CLEANUP+4, CLEANUP+47, CLEANUP+51, NOZERO+1, BADZERO+1*
DGLINK1	CLEANUP~, CLEANUP+4, CLEANUP+47, CLEANUP+52, NOONE+1
DGMID	CLEANUP~, CLEANUP+32, CLEANUP+33, CLEANUP+34, CLEANUP+35, CLEANUP+36
DGNAME	CLEANUP~, NOLINK+7*
DGNOLINK	CLEANUP~, CLEANUP+4, CLEANUP+47, CLEANUP+50, NOLINK+1
DGONE	CLEANUP~, CLEANUP+16*, CLEANUP+17, CLEANUP+23, CLEANUP+25, CLEANUP+27, CLEANUP+29, CLEANUP+30, CLEANUP+33, CLEANUP+35 , CLEANUP+36, CLEANUP+38
DGOTHERS	CLEANUP~, CLEANUP+4, CLEANUP+30, CLEANUP+38*, CLEANUP+47, CLEANUP+49
DGPG	PRINT+2~, PRINT+3, PRINT+26, HEAD+2, HEAD+4, HEAD+5
DGQUIT	PRINT+2~, PRINT+3, PRINT+11, PRINT+25, PRINT+26, HEAD+1, HEAD+2, HEAD+3
DGTOT	CLEANUP~, CLEANUP+4, CLEANUP+7, CLEANUP+41
DGUPDT	CLEANUP~, CLEANUP+4, CLEANUP+23, CLEANUP+42, CLEANUP+43
DGX	DEVICE+1~, DEVICE+10*
DGZERO	CLEANUP~, CLEANUP+13*, CLEANUP+14, CLEANUP+15
DIE	UPDATE+2~, UPDATE+11*
DIR	PRINT+26!, HEAD+2!
DIR(0	PRINT+26, HEAD+2
DR	UPDATE+2~, UPDATE+11*
DT	PROGCHK+1, CLEANUP+2, CLEANUP+3
DUZ	PROGCHK+1
DUZ(0	PROGCHK+1
IO	PRINT+1
IO("Q"	DEVICE+6
IOF	HEAD+5
IOP	DEVICE+1~
IOSL	PRINT+13, PRINT+18, PRINT+22
IOST	PRINT+26, HEAD+2
OK	DEVICE+1~, DEVICE+2, DEVICE+5, DEVICE+6, DEVICE+13*, DEVICE+14
POP	DEVICE+1~, DEVICE+5
U	PROGCHK+1, CLEANUP+8, CLEANUP+10, CLEANUP+11, CLEANUP+15, CLEANUP+23, CLEANUP+25, CLEANUP+27, CLEANUP+29, CLEANUP+30 , CLEANUP+33, CLEANUP+35, CLEANUP+36, CLEANUP+38, NOLINK+6, NOLINK+7, UPDATE+10, UPDATE+12, PRINT+19
X	CLEANUP+3, UPDATE+2~, HEAD+5!, HEAD+7
X1	CLEANUP~, CLEANUP+2*
X2	CLEANUP~, CLEANUP+2*
XPDABORT	ENV+1, ENV+2, ENV+3!, PROGCHK~, PROGCHK+4
>> Y	PRINT+26, HEAD+2
ZTDESC	DEVICE+7~, DEVICE+9*
>> ZTQUEUED	PRINT+25, PRINT+27, HEAD+1
ZTREQ	DEVICE+7~, PRINT+27*
ZTRTN	DEVICE+7~, DEVICE+8*
>> ZTSK	DEVICE+10, DEVICE+11
ZTSKM	DEVICE+7~
ZTSTOP	DEVICE+7~, HEAD+1*

Customize PDF page

Package: Registration

Routine: DG53P543

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: