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

Package: Auto Replenishment Ward Stock

Routine: PSGWAOUI


Information

PSGWAOUI ;BHAM ISC/CML-Enter/Edit AOU Inactivation Dates ; 21 Aug 96 / 2:37 PM

Source Information

Source file <PSGWAOUI.m>

Entry Points

Name Comments DBIA/ICR reference
QUIT
CHK ; Do checks on AOU inactivation date
ITMCHK ; Look for any currently active items or items with an inactive date AFTER TODAY
ASK ; Ask if currently active items are to be inactivated
INACT ; Inactivate items
REACT ; Reactivate items
HELP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter AOU Inactivation Dates"
  • Line Location: PSGWAOUI+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PSGWAOUI+3
Function Call: WRITE
  • Prompt: !,"...One moment, please..."
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,"...Hmm, one moment..."
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !!,"There are items in this AOU that are currently active.",!,"You may, at this time, inactivate all of them as of ",Y,"."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Do you want to do this"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Now inactivating all currently active items as of ",PRTDT
  • Line Location: INACT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: INACT+2
Function Call: WRITE
  • Prompt: !!,"Now deleting the inactivation dates for any items that were inactivated when",!,"this AOU was inactivated"
  • Line Location: REACT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: REACT+2
Function Call: WRITE
  • Prompt: *7," ...None found!"
  • Line Location: REACT+3
Function Call: WRITE
  • Prompt: !!?5,"Enter 'Y' if you want to inactivate all currently active items.",!?5,"Enter 'N' if you do not wish to inactivate all currently active items.",!?5,"Enter ""^"" to Exit."
  • Line Location: HELP+1

FileMan Files Accessed Via FileMan Db Call

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