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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSGWAP

Package: Auto Replenishment Ward Stock

Routine: PSGWAP


Information

PSGWAP ;BHAM ISC/PTD,CML-Purge Old AMIS Data ; 14 Feb 1989 1:36 PM

Source Information

Source file <PSGWAP.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^%DT  (,NOW)^%DTC  ^DIE  
Kernel 2 HOME^%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: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW PURGE AMIS  

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
ASK
ENQ ;ENTRY POINT WHEN QUEUED
DTLP
DTDA
END

External References

Name Field # of Occurrence
^%DT EDT
^%DTC EDT+1
NOW^%DTC EDT+1
HOME^%ZIS ASK+4
^%ZTLOAD ASK+4
^DIE DTDA+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will purge data from file PSI(58.5) - AMIS stats file.",!,"You should retain the data for at least 1 quarter.",!,"Therefore, the option will NOT ALLOW DELETION of data newer than ""T-100"".",!!
  • Line Location: PSGWAP+2
Function Call: WRITE
  • Prompt: !,"There is NO data in the AMIS stats file.",!!
  • Line Location: BDT+0
Function Call: WRITE
  • Prompt: !!,"Data less than 100 days old may NOT BE DELETED!",!!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,"No AMIS data to purge in selected date range.",!!
  • Line Location: EDT+2
Function Call: WRITE
  • Prompt: !!,"I will now delete AMIS data that is older than (and including) ",Y,!,"Are you SURE that is what you want to do? NO// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7,*7,!!,"Answer ""yes"" if you wish to purge AMIS data.",!,"Answer ""no"" or <return> if you do not.",!!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"AMIS purge queued!"
  • Line Location: ASK+4
Routine Call
  • DIE
  • Line Location:
    • DTDA+1
Routine Call
  • %ZIS
  • Line Location:
    • ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.5 - [#58.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ASK
^PSI(58.5 - [#58.5] BDT, BDT+1, DTLP, DTDA

Label References

Name Line Occurrences
ASK ASK+2
DTDA DTDA+1
DTLP DTDA
EDT EDT+1
END EDT, EDT+2, ASK+1, ASK+4, DTLP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDT+1, END!
%DT EDT*!
%DT("A" EDT*
%DT("B" EDT*
%H END!
%I END!
BDT BDT*!, BDT+1*, EDT+2, ENQ+1, END!
DA DTDA+1*, END!
DATDA ENQ+1*, DTDA*, DTDA+1, END!
DIE DTDA+1*!
DR DTDA+1*, END!
DTIME ASK
EDT EDT*, EDT+2, ASK, DTLP, END!
G ASK+3*, END!
LPDT ENQ+1*, DTLP*, DTDA, END!
X EDT+1, ASK*, ASK+1, ASK+2, END!
>> X1 EDT+1*
>> X2 EDT*
Y EDT, ASK*, END!
>> ZTDESC ASK+3*
>> ZTDTH ASK+3*
ZTIO ASK+3*, END!
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN ASK+3*
>> ZTSAVE( ASK+3*
ZTSK ASK+4!, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All