Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GECSPURG

Package: Generic Code Sheet

Routine: GECSPURG


Information

GECSPURG ;WISC/RFJ/KLD-purge code sheets (ask prompts) ; 5/21/12 5:05am

Source Information

Source file <GECSPURG.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Kernel 1 ^DIC(19  
Prosthetics 1 RMPR GECS PURGE  
Registration 1 DG GECS PURGE  

Entry Points

Name Comments DBIA/ICR reference
ASK ; ask days to retain code sheets
DT ;Ask processing date GEC*2*39
ALL ; ask to delete all code sheets
PURGEDT(GECSTHRU,GECSYRS) ;ARCHIVE/PURGE date query ;GEC*2*39
P1
Q
DTGEC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This routine will delete Code Sheets from the Code Sheet file and"
  • Line Location: GECSPURG+6
Function Call: WRITE
  • Prompt: !,"Batch and Transmission records from the Transmission Record file."
  • Line Location: GECSPURG+7
Function Call: WRITE
  • Prompt: !,"Deletion is based upon the date a batch and a code sheet is"
  • Line Location: GECSPURG+8
Function Call: WRITE
  • Prompt: !,"created.",!
  • Line Location: GECSPURG+9
Function Call: WRITE
  • Prompt: !!,"This program will remove all stack file entries which were created before",!,Y,"."
  • Line Location: DT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+15
Function Call: WRITE
  • Prompt: !!,">> please wait <<"
  • Line Location: DT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !,"CANNOT RUN THIS OPTION FOR LESS THAN LAST "_GECSYRS_" FISCAL YEARS + CURRENT FISCAL YEAR"
  • Line Location: P1+8
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls