Routine: DG53P796

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry Point
INIT	;Setup XTMP variable
REPORT	;Report of data to be cleaned up.
CLEANUP	;Perform clean up of records marked above.

Name	Line Occurrences
Function Call: WRITE	Prompt: "-" Line Location: REPORT+8
Routine Call	DIE Line Location: CLEANUP+12

FileNo	Call Tags
^DGPT - [#45]	GET1^DIQ
45.02	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	REPORT+16
^TMP("DIERR"	CLEANUP+17, CLEANUP+19, CLEANUP+20
^XTMP("DG53P796-"	INIT+1!, INIT+2, REPORT+3, REPORT+20, CLEANUP+9, CLEANUP+11

Name	Field # of Occurrence
DDATE	REPORT+1~, REPORT+17*, REPORT+19
DGFDA	CLEANUP+1~, CLEANUP+10*, CLEANUP+21!
DGFDA(	CLEANUP+12*
>> DGMSG	CLEANUP+10*
>> DIERR	CLEANUP+13, CLEANUP+16
DIFROM	REPORT+2~, CLEANUP+2~
DT	INIT+2
DUZ	REPORT+4, CLEANUP+4
ERRFND	CLEANUP+1~, CLEANUP+14*, CLEANUP+22
FDATE	REPORT+1~, REPORT+18*, REPORT+19, REPORT+20, REPORT+23
I	CLEANUP+1~, CLEANUP+16*, CLEANUP+17, CLEANUP+19, CLEANUP+20
LINENUM	REPORT+2~, REPORT+10, REPORT+11, REPORT+12, REPORT+13, REPORT+14, REPORT+23, REPORT+24, CLEANUP+2~, CLEANUP+6* , CLEANUP+7, CLEANUP+8, CLEANUP+15, CLEANUP+17, CLEANUP+20
MSGTXT	REPORT+2~, CLEANUP+2~
MSGTXT(	REPORT+11, REPORT+12, REPORT+13, REPORT+14, REPORT+23, CLEANUP+7, CLEANUP+8, CLEANUP+15, CLEANUP+17, CLEANUP+20
PTDFN	REPORT+1~, REPORT+21*, REPORT+23
RECNUM	REPORT+1~, REPORT+15, REPORT+16, REPORT+17, REPORT+18, REPORT+20, REPORT+21, REPORT+23, CLEANUP+1~, CLEANUP+10* , CLEANUP+11*, CLEANUP+12, CLEANUP+15
TXTLINE	CLEANUP+1~, CLEANUP+18, CLEANUP+19, CLEANUP+20
U	INIT+2
XMSUB	REPORT+2~, REPORT+5, CLEANUP+2~, CLEANUP+3
XMTEXT	REPORT+2~, REPORT+6, CLEANUP+2~, CLEANUP+5
XMY	REPORT+2~, CLEANUP+2~
XMY(	REPORT+4, CLEANUP+4