Routine: DGPTRPP

Name	Comments	DBIA/ICR reference
GOGO	;-- count total items purged call delete routine
PRN	;--entry for list
CONT	;--verify before delete
GETFMTQ	;
PURGEQ	;
GETFMT	;-- will get from the user which records to process
PURGE	;purge rpo record for the given date range
ENQ
INIT	;
CONTQ
GETQ
COM	;--send mailman message when purge is done
PUR	;--entry for purge RPO
GETDATE	;THIS ROUTINE WILL GET THE DATE RANGE FROM THE USER

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?12,"SPECIAL TRANSACTION REQUEST LISTING",! Line Location: PRN+2
Function Call: WRITE	Prompt: !,"No records in PTF TRANSACTION LOG FILE" Line Location: GETDATE+2
Function Call: WRITE	Prompt: @IOF,?12,"PURGE SPECIAL TRANSACTION REQUEST.",! Line Location: PUR+2
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: PUR+7
Routine Call	%ZIS Line Location: PUR+8 INIT+1
Routine Call	DIR Line Location: GETFMT+3 CONT+4

FileNo	Call Tags
^DGP(45.87 - [#45.87]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGP(45.87 - [#45.87]	GETDATE+1, PURGE+2

Name	Field # of Occurrence
%	GETQ!, PUR+6
%DT	GETDATE+4*, GETQ!
%DT("A"	GETDATE+4, GETDATE+6
%DT("B"	GETDATE+3, GETDATE+6
%DT(0	GETDATE+6*
BY	PRN+5*, ENQ!
DGD1	ENQ!, CONT+2*, CONT+3
DGD2	ENQ!, CONT+2*, CONT+3
DGDA	PURGE+2*, PURGEQ+2!
DGDATE	PURGE+2*, PURGEQ+2!
DGFMT	ENQ!, GETFMT+4*, CONT+3, PURGE+2, PURGEQ+2!, COM+1
DGI	PURGEQ+2!
DGOUT	PRN+1, PRN+3, PRN+4, ENQ!, GETDATE+1, GETDATE+2, GETDATE+5, GETDATE+7, GETFMT+1, GETFMT+3 , PUR+1, PUR+3, PUR+4, PUR+5, CONT+1, CONT+5, INIT+1*
DGPURMSG	COM+3!
DGPURMSG(1	COM+1*
DGPURMSG(2	COM+1*
DGPURMSG(3	COM+1*
DGTPUR	PURGE+1, PURGEQ+2!, GOGO+1, COM+1
DIC	PRN+5*, ENQ!
DIR	GETQ!, GETFMTQ+1!, CONTQ!
DIR("A"	GETFMT+2, CONT+3
DIR("B"	GETFMT+2, CONT+3
DIR(0	GETFMT+2, CONT+3
DIRUT	GETQ!, GETFMT+3, GETFMTQ+1!, CONT+5, CONTQ!
DIS	ENQ!
DIS(0	PRN+6*
DTOUT	GETDATE+5, GETDATE+7, GETQ!
DUZ	COM+2
FLDS	PRN+5*, ENQ!
FR	PRN+5*, ENQ!
IOF	PRN+2, PUR+2
L	PRN+5*, ENQ!
SP1	PRN+5, ENQ!, GETDATE+6*, CONT+2, PURGE+2
SP2	PRN+5, ENQ!, GETDATE+8*, CONT+2, PURGE+2
TO	PRN+5*, ENQ!
U	PURGE+2
X	ENQ!, GETQ!, GETFMT+4, GETFMTQ+1!, CONTQ!
XMDUZ	COM+2*, COM+3!
XMSUB	COM+2*, COM+3!
XMTEXT	COM+2*, COM+3!
XMY	COM+3!
XMY(	COM+2*
XMZ	COM+3!
Y	ENQ!, GETDATE+1, GETDATE+2, GETDATE+3, GETDATE+5, GETDATE+6, GETDATE+7, GETDATE+8, GETQ!, GETFMTQ+1! , CONT+2, CONT+5, CONTQ!
ZTDESC	ENQ!, PUR+6*
ZTDTH	ENQ!, PUR+6*
ZTIO	ENQ!, PUR+6*
ZTRTN	ENQ!, PUR+6*
ZTSAVE	ENQ!, PUR+8!
ZTSAVE("DGFMT"	PUR+6*
ZTSAVE("SP1"	PUR+6*
ZTSAVE("SP2"	PUR+6*
ZTSK	PUR+7, PUR+8!

Information