Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGPTAPSL

Package: Registration

Routine: DGPTAPSL


Information

DGPTAPSL ;MTC/ALB - PTF Archive and Purge Selection Routines; 9/11/92

Source Information

Source file <DGPTAPSL.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 2

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All