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

Package: Registration

Routine: DGODDEL


Information

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

Source Information

Source file <DGODDEL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"DISCRETIONARY WORKLOAD OPTIONS ARE NO LONGER AVAILABLE!",!!
  • Line Location: DGODDEL+2
Function Call: READ
  • Formatting: !
  • Prompt: "Purge single (M)onth or (A)ll or (^ to quit): MONTH// "
  • Variable: DGQQ
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call