Routine: DGPTAPSL

Package	Total	Call Graph
VA Fileman	5	DD^%DT NOW^%DTC FILE^DICN ^DIK ^DIR

Package	Total	Caller Graph
Registration	2	DGPTLMU1 DGPTLMU2

Entry Points

Name	Comments	DBIA/ICR reference
CRQ
SHUDADD(PTF,DRANGE)	;-- routine to determin if the PTF records should be added to purge ; INPUT : PTF - record to check ; DRANGE - start and end date of search ; OUTPUT: 1=OK, 0=Don't Purge
SEL()	;-- the routine will get the date range for the a/p process
CRTEMP	;-- This function will create a sort template containing the ; items from the PTF File (#45) that should be Archived/Purged. The ; name of the template will be derive from the date range selected. ; Lastly, if items are selected, then an entry will be made in the ; PTF Archive/Purge History File (#45.62).
DELENTRY(FNAME)	;-- This function will delete the entry in the ; the PTF Archive/Purge History file and the search ; template. ; INPUT : FNAME - History File to delete.
SHUDEND
DELENQ
CRHIS(FNAME,NUMREC,DRANGE)	;-- This function will create an entry in the ; PTF Archive/Purge History File (#45.62).
SRCH(GLB,DRANGE)	;-- search PTF file by adm date ; INPUT: GLB - Global to load entries ex. "^TMP("MATT",$J," ; DRANGE - start date ^ end date in FM format ; ; OUTPUT: Total # of entires loaded into GLB
MAXDT()	;-- This function will return the lastest date allowable for
SELQ

External References

Name	Field # of Occurrence
DD^%DT	SEL+4
NOW^%DTC	MAXDT+6
FILE^DICN	CRTEMP+24, CRHIS+8
^DIK	CRTEMP+32, DELENTRY+8, DELENTRY+9
^DIR	SEL+6, SEL+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The oldest PTF record on file is from ",Y,"." Line Location: SEL+4
Function Call: WRITE	Prompt: !,*7,">>> Error creating Sort Template ... Try again later." Line Location: CRTEMP+24
Function Call: WRITE	Prompt: !,*7,">>> No entries selected for " Line Location: CRTEMP+28
Function Call: WRITE	Prompt: Y," to " Line Location: CRTEMP+29
Function Call: WRITE	Prompt: Y,"." Line Location: CRTEMP+30
Function Call: WRITE	Prompt: !,*7,">>> Deleting Sort Template." Line Location: CRTEMP+31
Function Call: WRITE	Prompt: !,">>> Creating PTF Archive/Purge History entry." Line Location: CRHIS+6
Function Call: WRITE	Prompt: *7,!,">>> Deleting PTF Archive/Purge History entry." Line Location: DELENTRY+6
Routine Call	DIR Line Location: SEL+6 SEL+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CRTEMP+29, CRTEMP+30
^DGCR(399 - [#399]	SHUDADD+14
^DGP(45.62 - [#45.62]	DELENTRY+7, DELENTRY+8
^DGPM("APTF"	SHUDADD+10
^DGPT - [#45]	SHUDADD+7, SHUDADD+8, SHUDADD+10, SHUDADD+12
^DGPT("AF"	SEL+4, SRCH+7
^DIBT("B"	CRTEMP+20
^DPT - [#2]	SHUDADD+10

Label References

Name	Line Occurrences
$$MAXDT	SEL+5, SEL+8
$$SEL	CRTEMP+16
$$SHUDADD	SRCH+7
$$SRCH	CRTEMP+26
CRHIS	CRTEMP+34
CRQ	CRTEMP+16, CRTEMP+24, CRTEMP+27
DELENQ	DELENTRY+7
SELQ	SEL+7, SEL+10
SHUDEND	SHUDADD+7, SHUDADD+10, SHUDADD+12, SHUDADD+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	MAXDT+12!
%I(1	MAXDT+8, MAXDT+9
%I(3	MAXDT+8, MAXDT+9
DA	CRTEMP+32!, DELENTRY+8!, DELENTRY+9*!
DATE	MAXDT+4~, MAXDT+5, MAXDT+8, MAXDT+9, MAXDT+11, MAXDT+13
DD	CRTEMP+24!, CRQ!, CRHIS+8!
DFN	SHUDADD+4~, SHUDADD+8*, SHUDADD+10
DIC	CRTEMP+23, CRQ!, CRHIS+7, CRHIS+9!
DIC("DR"	CRTEMP+23, CRHIS+7
DIC(0	CRTEMP+23, CRHIS+7
DIK	CRTEMP+32!, DELENTRY+8!, DELENTRY+9*!
>> DIR("A"	SEL+5, SEL+8
>> DIR(0	SEL+5, SEL+8
>> DIRUT	SEL+7, SEL+10
DO	CRTEMP+24!, CRQ!, CRHIS+8!
DRANGE	SRCH~, SRCH+6, SRCH+7, SHUDADD~, SHUDADD+12, CRTEMP+14~, CRTEMP+16*, CRTEMP+18, CRTEMP+26, CRTEMP+29 , CRTEMP+30, CRTEMP+34, CRHIS~, CRHIS+7
EDATE	SEL+1~, SEL+2, SEL+10, SELQ, SRCH+5~, SRCH+6*, SRCH+7
FNAME	CRTEMP+14~, CRTEMP+18, CRTEMP+20, CRTEMP+21, CRTEMP+23, CRTEMP+34, CRHIS~, CRHIS+7, DELENTRY~, DELENTRY+7
GLB	SRCH~, SRCH+7
NREC	SRCH+5~, SRCH+6, SRCH+7, SRCH+8
NUMREC	CRTEMP+14~, CRTEMP+26*, CRTEMP+27, CRTEMP+34, CRHIS~
OLFN	CRTEMP+14~, CRTEMP+20*
PDATE	SRCH+5~, SRCH+7*
PTF	SRCH+5~, SRCH+7*, SHUDADD~, SHUDADD+7, SHUDADD+8, SHUDADD+10, SHUDADD+12, SHUDADD+14
RECNUM	DELENTRY+5~, DELENTRY+7*, DELENTRY+8, DELENTRY+9
RESULT	SHUDADD+4~, SHUDADD+5, SHUDADD+7, SHUDADD+10, SHUDADD+12, SHUDADD+14*, SHUDEND
SDATE	SEL+1~, SEL+2, SEL+7, SELQ, SRCH+5~, SRCH+6*, SRCH+7
SEQNUM	CRTEMP+14~, CRTEMP+20*, CRTEMP+21
TEMP	CRTEMP+14~, CRTEMP+24, CRTEMP+26, CRTEMP+32, CRHIS+8
U	SRCH+6, SHUDADD+8, SHUDADD+10, SHUDADD+12, CRTEMP+16, CRTEMP+18, CRTEMP+29, CRTEMP+30, CRHIS+7, DELENTRY+8
X	MAXDT+12!, SHUDADD+4~, SHUDADD+10, CRTEMP+23, CRHIS+7*
Y	SEL+1~, SEL+4, SEL+7, SEL+8, SEL+10, CRTEMP+24, CRTEMP+29, CRTEMP+30*, CRHIS+8
YEARS	MAXDT+4~, MAXDT+5*, MAXDT+11

Customize PDF page

Package: Registration

Routine: DGPTAPSL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: