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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGODDEL

Package: Registration

Routine: DGODDEL


Information

DGODDEL ;ALB/EG - PURGE DISCRETIONARY WORKLOAD ; APR 24, 1989

Source Information

Source file <DGODDEL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 ^%DT  YN^DICN  DQ^DICQ  ^DIK  

Entry Points

Name Comments DBIA/ICR reference
EN
END
DST
STH ;select entries to purge
HLP ;
BG
HLPT ;;MONTHLY will allow you to select a specific MONTH/YR to purge
D2
D3 ;does deletion using ^DIK
D0
D1

External References

Name Field # of Occurrence
^%DT STH+2
YN^DICN BG
DQ^DICQ STH+1
^DIK D3+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"DISCRETIONARY WORKLOAD OPTIONS ARE NO LONGER AVAILABLE!",!!
  • Line Location: DGODDEL+2
Function Call: READ
  • Prompt: "Purge single (M)onth or (A)ll or (^ to quit): MONTH// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: DGQQ
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,?1,"SITE",?10,"REPORT",?20,"MONTH/YR",?30,"RUN DATE",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?1,"SITE",?10,"REPORT",?20,"MONTH/YR",?30,"RUN DATE",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,?1,DGDV,?10,DGREP,?20,DGDT,?30,DGDA
  • Line Location: D3+1
Function Call: WRITE
  • Prompt: ?50,"...deleted"
  • Line Location: D3+2
Function Call: WRITE
  • Prompt: !!,*7,"SELECT ENTRY FROM LIST IN MONTH/YEAR FORMAT.",!,"IF JANUARY 1988 WAS LISTED YOU WOULD ENTER 01/88",!
  • Line Location: STH+4
Function Call: WRITE
  • Prompt: !,"ARE YOU SURE YOU WISH TO PURGE YOUR FILE "
  • Line Location: BG+0
Function Call: WRITE
  • Prompt: !,$P($T(HLPT+I),";;",2)
  • Line Location: HLP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VAT(408 - [#408] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VAT(408 - [#408] DST, D0, D1, D2, STH+4

Label References

Name Line Occurrences
BG EN+2, EN+3
D0 EN+3, DST
D1 D0
D2 D1
D3 D2
DST EN+2
EN EN
END EN, EN+1, EN+2, EN+3
HLP EN
STH EN+3, STH+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+2, EN+3, BG*
>> %DT STH+2*
>> %DT("A" STH+2*
>> D STH+1*
DA D3+2*!
DGA END+1!, DST*
DGDA END+1!, D2*, D3+1, D3+2
DGDB EN*, END, END+1!, D3+2*
DGDT EN+3*, END+1!, DST*, D0, D1, D2, D3+1
DGDV END+1!, D0*, D1, D2, D3+1
DGI END+1!, D0*
DGJ END+1!, D1*
DGK END+1!, D2*
DGQQ EN*, EN+1, EN+2, EN+3, END+1!
DGREP END+1!, D1*, D2, D3+1
DIC END+1!, STH+1*
DIC("S" END+1!
DIC(0 END+1!, STH+1*
DIK D3+2*!
DO STH+1!
DTIME EN
>> DZ STH+1*
>> I HLP+1*
U EN*, STH+1*
>> Y EN+3, STH+3, STH+4

Marked Items

Name Field # of Occurrence
$T(HLPT+I HLP+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All