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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.5 - [#58.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call