Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
SEL() ;-- the routine will get the date range for the a/p process
SELQ
MAXDT() ;-- This function will return the lastest date allowable for
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
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
SHUDEND
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).
CRQ
CRHIS(FNAME,NUMREC,DRANGE) ;-- This function will create an entry 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.
DELENQ

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIBT - [#.401] Classic Fileman Calls
^DGP(45.62 - [#45.62] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call