Routine: DG53P593

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	4	C^%DTC FILE^DIE ^DIK ^DIR
Registration	1	$$SITE^VASITE

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
DELEXE	; Delete exceptions on file for patient record being removed.
DELE	; delete exception
EVAL578	;
PRINT	;
ENTER	;
DELETE(DGENSKIP)	;
CLEANUP	;This entry point will do the cleanup.
DEVICE()	;
REPORT	;This entry point was provided for testing, so that before
DIKDEL	;

External References

Name	Field # of Occurrence
C^%DTC	CLEANUP+8, REPORT+13
^%ZIS	DEVICE+10
HOME^%ZIS	DEVICE+18
^%ZISC	ENTER+3
^%ZTLOAD	DEVICE+16
$$S^%ZTLOAD	HEAD+1
FILE^DIE	DIKDEL+11
^DIK	DIKDEL+7, DELEXE+12, DELE+4
^DIR	PRINT+17, HEAD+2
$$SITE^VASITE	EVAL578+19
$$FMTE^XLFDT	PRINT+3
$$NOW^XLFDT	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is a one-time cleanup of the Patient File." Line Location: CLEANUP+4
Function Call: WRITE	Prompt: !,"Certain records which were created in error will be deleted." Line Location: CLEANUP+5
Function Call: WRITE	Prompt: !,"This is a preliminary report by DFN of the Patient file" Line Location: REPORT+9
Function Call: WRITE	Prompt: !,"records which would be deleted by the cleanup." Line Location: REPORT+10
Function Call: WRITE	Prompt: !!,"* COUNT OF BAD PATIENT RECORDS"_$S(DGENSKIP:"",1:" DELETED")_": ",COUNT," *",!! Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF,!,DGDDT,?15,"DG5.3593 Patient File Cleanup Utility",?70,"Page:",$J(DGPG,5),! Line Location: HEAD+5
Function Call: WRITE	Prompt: X,! Line Location: HEAD+5
Function Call: WRITE	Prompt: !,?2,"DFN",?15,"Reason for Deletion",! Line Location: HEAD+6
Function Call: WRITE	Prompt: X,! Line Location: HEAD+7
Routine Call	%ZIS Line Location: DEVICE+18
Routine Call	DIE Line Location: DIKDEL+11
Routine Call	DIR Line Location: PRINT+17 HEAD+2
Routine Call	%ZIS Line Location: DEVICE+10

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]	DELETE+8, DELETE+10, DELETE+12, DELETE+14, DELETE+20, EVAL578+3, EVAL578+6, EVAL578+11, EVAL578+16, DIKDEL+6 , DIKDEL+8!
^DPT("B"	DELETE+14, EVAL578+10
^DPT("SSN"	EVAL578+13, EVAL578+15
^RGHL7(991.1	DELEXE+2, DELEXE+3, DELEXE+5, DELEXE+7, DELEXE+8, DELEXE+10, DELEXE+13, DELE+1, DELE+5
^XTMP("DG53P593"	CLEANUP+7!, CLEANUP+9, REPORT+12!, REPORT+14, DIKDEL+3*, PRINT+10, PRINT+12, PRINT+14

Label References

Name	Line Occurrences
$$DEVICE	CLEANUP+10, REPORT+15
DELE	DELEXE+14
DELETE	ENTER+2
DELEXE	DIKDEL+5
DIKDEL	DELETE+22, DELETE+23
ENTER	CLEANUP+10, REPORT+15
EVAL578	DELETE+16
HEAD	PRINT+5, PRINT+13
PRINT	DELETE+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+7~, DEVICE+9*
COUNT	DELETE+6~, DELETE+7, DIKDEL+1, PRINT+6, PRINT+8
DA	DIKDEL+7!, DELEXE+11, DELEXE+12!, DELE+2*, DELE+4!
DA(1	DELE+2*, DELE+3
DFN	DELETE+6~, DELETE+7, DELETE+8, DELETE+10, DELETE+12, DELETE+14, DELETE+20, EVAL578+3, EVAL578+6, EVAL578+10 , EVAL578+11, EVAL578+13, EVAL578+16, DIKDEL+3, DIKDEL+6, DIKDEL+7, DIKDEL+8, DIKDEL+10, DELEXE+3, DELEXE+5 , DELEXE+7, PRINT+11, PRINT+12, PRINT+14
DGCNT	EVAL578+2~, EVAL578+5, EVAL578+6, EVAL578+8
DGDDT	PRINT+2~, PRINT+3*, HEAD+5
DGDEL	DELETE+6~, DELETE+23, EVAL578+1, EVAL578+9, EVAL578+10, EVAL578+12, EVAL578+13, EVAL578+15, EVAL578+17, EVAL578+19 , EVAL578+20, EVAL578+21*
DGENSKIP	CLEANUP+2~, CLEANUP+3, REPORT+7~, REPORT+8, ENTER+2, ENTER+3, DEVICE+14, DELETE~, DIKDEL+4, PRINT+8
DGERR	DELETE+6~
DGFDA	DELETE+6~
DGFDA(2	DIKDEL+10*
DGMPI	EVAL578+2~, EVAL578+16*, EVAL578+17, EVAL578+19
DGNAME	DELETE+6~, DELETE+14*, EVAL578+9, EVAL578+10
DGNEWIEN	EVAL578+2~, EVAL578+14, EVAL578+15
DGNODE	EVAL578+2~, EVAL578+4, EVAL578+6
DGPG	PRINT+2~, PRINT+4, PRINT+17, HEAD+2, HEAD+4, HEAD+5
DGQUIT	PRINT+2~, PRINT+4, PRINT+10, PRINT+12, PRINT+16, PRINT+17, HEAD+1, HEAD+2, HEAD+3
DGSORT	DELETE+6~, DIKDEL+2, DIKDEL+3, PRINT+9, PRINT+10*, PRINT+12, PRINT+14
DGSSN	EVAL578+2~, EVAL578+11*, EVAL578+12, EVAL578+13, EVAL578+15
DGVAL	DELETE+6~, DIKDEL+9*, DIKDEL+10
DIK	DIKDEL+7!, DELEXE+11, DELEXE+12!, DELE+3*, DELE+4!
DIR	PRINT+17!, HEAD+2!
DIR(0	PRINT+17, HEAD+2
DT	CLEANUP+8, CLEANUP+9, REPORT+13, REPORT+14
EXCT	DELEXE+1, DELEXE+2, DELEXE+3, DELEXE+5, DELEXE+7, DELEXE+15!
GOOD	DELETE+6~, DELETE+18, DELETE+21, DELETE+22, DIKDEL+2
IEN	DELEXE+4, DELEXE+5, DELEXE+7, DELEXE+8, DELEXE+10, DELEXE+11, DELEXE+13, DELEXE+15!, DELE+1, DELE+2 , DELE+5
IEN2	DELEXE+6, DELEXE+7, DELEXE+15!, DELE+2
IO	PRINT+1
IO("Q"	DEVICE+12
IOF	HEAD+5
IOP	DEVICE+7~
IOSL	PRINT+13
IOST	PRINT+17, HEAD+2
NUM	DELEXE+8*, DELEXE+9, DELEXE+14, DELEXE+15!
OK	DEVICE+7~, DEVICE+8, DEVICE+11, DEVICE+12, DEVICE+19*, DEVICE+20
POP	DEVICE+7~, DEVICE+11
SUB	DELETE+6~, DELETE+19, DELETE+20, DELETE+21
U	DELETE+12, DELETE+14, EVAL578+11, EVAL578+16, DIKDEL+8
X	CLEANUP+9, REPORT+14, HEAD+5!, HEAD+7
X1	CLEANUP+6~, CLEANUP+8, REPORT+11~, REPORT+13
X2	CLEANUP+6~, CLEANUP+8, REPORT+11~, REPORT+13
>> Y	PRINT+17, HEAD+2
ZTDESC	DEVICE+13~, DEVICE+14*
>> ZTQUEUED	ENTER+4, PRINT+16, PRINT+18, HEAD+1
ZTREQ	ENTER+4, DEVICE+13~, PRINT+18
ZTRTN	DEVICE+13~, DEVICE+14*
>> ZTSAVE("DGENSKIP"	DEVICE+15*
>> ZTSK	DEVICE+17
ZTSKM	DEVICE+13~
ZTSTOP	DEVICE+13~, HEAD+1*

Customize PDF page

Package: Registration

Routine: DG53P593

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: