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 |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Generic Code Sheet 5 DQ^GECSPUR1  $$PURGEDT^GECSPURG  ^GECSSITE  BATTYPE^GECSUSEL  $$YN^GECSUTIL  
VA FileMan 3 DD^%DT  (C,NOW)^%DTC  ^DIR  
Kernel 2 ^%ZIS  ^%ZTLOAD  

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: 6

Package Total Caller Graph
Generic Code Sheet 3 GECS PURGE  GECSCALL  GECSPURG  
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

External References

Name Field # of Occurrence
DD^%DT DT+6, DT+10, P1+9
C^%DTC DT+6
NOW^%DTC DTGEC+2
^%ZIS DT+15
^%ZTLOAD DT+16
^DIR P1+4
DQ^GECSPUR1 DT+18
$$PURGEDT^GECSPURG DT+1
^GECSSITE GECSPURG+11
BATTYPE^GECSUSEL GECSPURG+17
$$YN^GECSUTIL DT+13, ALL+2

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
Routine Call
  • DIR
  • Line Location:
    • P1+4
Routine Call
  • %ZIS
  • Line Location:
    • DT+15

Label References

Name Line Occurrences
ALL GECSPURG+14
ASK GECSPURG+14
DTGEC PURGEDT+1
P1 P1+8
Q P1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GECSPURG+10~, ALL+2*, ALL+3, ALL+4
%H GECSPURG+10~
%I GECSPURG+10~
>> %ZIS DT+15*
DD DTGEC~, DTGEC+3*
DIR GECSPURG+10~, P1+4!
DIR("?" P1+1*, P1+2*
DIR("A" P1+1*
DIR("B" P1+3*
DIR(0 P1+1*
DONTASK GECSPURG+10~, GECSPURG+16*, GECSPURG+17
DT DT+6, DTGEC+2*, DTGEC+3
DUZ(0 GECSPURG+14
GECS GECSPURG+10~
GECS("BATCH" GECSPURG+19
GECS("BATDA" GECSPURG+17
GECS("SITE" GECSPURG+11, DT+12
GECS("SITE1" DT+12
GECS("SYSID" DT+5
GECSDATE GECSPURG+10~, DT+10*, DT+12
GECSDOUT GECSPURG+18~, P1*, P1+8!, P1+9*
GECSDT GECSPURG+10~, DT+3*, DT+10, PURGEDT+1~, P1+8, DTGEC+5*
GECSDTST GECSPURG+10~, DT+6*
GECSOUT GECSPURG+18~, DT+1*, DT+2
GECSPGDT GECSPURG+18~, DT+2, DT+3, P1*, P1+7*, P1+8!
GECSSYS GECSPURG+14~, GECSPURG+16, GECSPURG+17, GECSPURG+18~, GECSPURG+19*, DT+5, ALL+3*, ALL+4*, ALL+5*
GECSTHRU PURGEDT~, P1+3
GECSYRS PURGEDT~, P1+8, DTGEC+4
IO("Q" DT+16!
MM DTGEC~, DTGEC+3*
OUT PURGEDT+1~*, P1+4*, Q
>> POP DT+15
U DTGEC~, DTGEC+1*
X GECSPURG+10~, DT+6, P1+4, DTGEC~, DTGEC+2
>> X1 DT+6*
>> X2 DT+6*
>> XH ALL+1*
>> XP DT+11*, ALL+1*
>> XP(1 DT+12*
>> XP(2 DT+12*
Y GECSPURG+10~, DT+3*, DT+6*, DT+7, DT+10*, P1+5*, P1+6*, P1+7, P1+9!
YY DTGEC~, DTGEC+3*, DTGEC+4*, DTGEC+5*
>> ZTDESC DT+16*
>> ZTRTN DT+16*
>> ZTSAVE("GECS*" DT+16*
>> ZTSAVE("ZTREQ" DT+16*
ZTSK DT+16!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All