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

Package: Auto Replenishment Ward Stock

Routine: PSGWUTL1


Information

PSGWUTL1 ;BHAM ISC/CML-Utility routine for HELP functions ; 15 Aug 93 / 4:46 PM

Source Information

Source file <PSGWUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
SS ; Scroll-stop for last page of 80 column reports
HELP ; Help for scroll-stop
IG ; Reset Sort Keys for inventory groups
IGSET
SEL ; Ask if reports are to print by Inventory Group or AOU
ASKSEL ;
ASKIG
QUIT
HELPSEL ;
PSGWDT() ;Find current date and time

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: !!
  • Variable: "END OF REPORT! Press <RETURN> to return to Menu
  • Timeout: ",SS:DTIME
  • Line Location: SS+1
Function Call: WRITE
  • Prompt: *7,!,"Please Enter: <RETURN> to continue viewing report or ""^"" to Exit report: "
  • Line Location: HELP+1
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: IG+1
Function Call: WRITE
  • Prompt: !!?5,"You may select a single AOU, several AOUs,",!?5,"or enter ""^ALL"" to select all AOUs.",!?20,"-OR-",!?5,"You may select an Inventory Group."
  • Line Location: SEL+1
Function Call: READ
  • Variable: SEL
  • Timeout: DTIME
  • Line Location: ASKSEL+1
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: ASKSEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSEL+3
Function Call: WRITE
  • Prompt: *7,!!,"There are no AOUs defined for this Inventory Group!"
  • Line Location: ASKIG+1
Function Call: WRITE
  • Prompt: !!,"This Inventory Group contains the following AOU(s):"
  • Line Location: ASKIG+3
Function Call: WRITE
  • Prompt: " *** INACTIVE ***"
  • Line Location: ASKIG+3
Function Call: WRITE
  • Prompt: !!?5,"Enter an 'A' if you wish to select individual AOUs (one, several or ^ALL).",!?5,"Enter an 'I' if you wish to select all AOUs in an Inventory Group.",!?5,"Or enter ""^"" to Exit."
  • Line Location: HELPSEL+1

FileMan Files Accessed Via FileMan Db Call

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