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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AZXRBUG2

Package: Phoenix Devel Center

Routine: AZXRBUG2


Information

AZXRBUG2 ;BUGDRUG2 Purge PROGRAM [ 09/23/94 9:52 AM ]

Source Information

Source file <AZXRBUG2.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 (,DD)^%DT  ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Phoenix Devel Center 1 AZXRBUG  

Entry Points

Name Comments DBIA/ICR reference
SURE
FROM
PURGE1 ;PURGE ALL RECORDS WITHIN AND INCLUDING
PURGE2 ;FIND INTERNAL ENTRY NUMBER (DA) TO PURGE AND
TO
RANGE ;ASK USER FOR A RANGE OF DATES TO PURGE
KILL ;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG2
CONT ;ASK USER WHETHER TO CONTINUE WITH PURGE
MAIN ;AZXRBUG2 PROGRAM CONTROL
CHECK ;GIVE USER ONE LAST CHANCE TO EXIT AND NOT PURGE

External References

Name Field # of Occurrence
^%DT FROM+2, TO+1
DD^%DT CHECK+10, CHECK+15
^DIK PURGE2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RANGE+2
Function Call: WRITE
  • Prompt: !!!,"BugDrug2 Purge..."
  • Line Location: RANGE+4
Function Call: WRITE
  • Prompt: !!,"Enter the range of dates to purge:"
  • Line Location: RANGE+5
Function Call: WRITE
  • Prompt: !!,?5,"NOTE: ""From Date"" must be less than or"
  • Line Location: RANGE+6
Function Call: WRITE
  • Prompt: !,?12,"equal to ""To Date""."
  • Line Location: RANGE+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: FROM+0
Function Call: WRITE
  • Prompt: !!,*7,"Invalid Date: Press a '?' for help."
  • Line Location: FROM+7
Function Call: WRITE
  • Prompt: !!,*7,"Invalid Date: Press a '?' for help."
  • Line Location: TO+6
Function Call: WRITE
  • Prompt: !!,*7,"Invalid input: ""From DATE"" must be less than or equal to ""To DATE""."
  • Line Location: TO+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !!!,"Last chance..."
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !!,"Date to purge from: ",Y
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !,"Date to purge to: ",Y
  • Line Location: CHECK+17
Function Call: WRITE
  • Prompt: !!,"Answer with: Y= Yes, N= No"
  • Line Location: SURE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PURGE1+6
Function Call: WRITE
  • Prompt: !!,"PURGING DATA...."
  • Line Location: PURGE1+7
Function Call: WRITE
  • Prompt: !!,"PURGE COMPLETE."
  • Line Location: PURGE1+18
Function Call: WRITE
  • Prompt: !!,"Answer with: Y= Yes, N= No"
  • Line Location: CONT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIZ(1991020 PURGE1+13, PURGE2+3

Label References

Name Line Occurrences
CHECK TO+17
CONT MAIN+10, CONT+6, CONT+8
FROM FROM+6, FROM+7, TO+4
KILL MAIN+11
PURGE1 TO+22
PURGE2 PURGE1+13
RANGE MAIN+9, TO+12, TO+23, CONT+8
SURE SURE+2
TO TO+5, TO+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT MAIN+3*, KILL+1!
%DT("A" FROM+1*, TO*
DA PURGE2+2*, PURGE2+3*, KILL+1!
DATE PURGE1+9*, PURGE1+13*, PURGE2+3, KILL+1!
DIK PURGE1+3*, KILL+1!
FLE MAIN+2*, KILL+1!
FROM FROM+10*, TO+12, CHECK+9, PURGE1+9, KILL+1!
IOF RANGE+2, CHECK+6, PURGE1+6
PURGEIT TO+22, TO+23, CHECK+2*, SURE+3*, KILL+1!
RET TO+12*, KILL+1!
TO TO+9*, TO+12, CHECK+14, PURGE1+13, KILL+1!
>> X FROM+5, FROM+6, TO+4, TO+5
Y FROM+7, FROM+10, TO+6, TO+9, CHECK+9*, CHECK+12, CHECK+14*, CHECK+17, SURE+3, KILL+1!
YN SURE*, SURE+2, SURE+3, CONT+3*, CONT+6, CONT+8, KILL+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All