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

Package: Auto Replenishment Ward Stock

Routine: PSGWWRD


Information

PSGWWRD ;BHAM ISC/CML-Add/Delete Ward (for Item) assignments ; 06 Aug 93 / 2:17 PM [ 09/28/95 11:59 AM ]

Source Information

Source file <PSGWWRD.m>

Entry Points

Name Comments DBIA/ICR reference
ASK1
ASK2
ASK3
QUE
START ;
QUIT
ADD ;
ADDWRD ;
DEL ;
DELWRD ;
MAIL ;
HELP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will allow you to add or delete a WARD (for Item) assignment for",!,"all stock items in one or more ACTIVE AOUs."
  • Line Location: PSGWWRD+2
Function Call: WRITE
  • Prompt: !!,"Do you wish to (A)dd or (D)elete? (Enter 'A', 'D', or ""^"" to Exit): "
  • Line Location: ASK1+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK3+0
Function Call: WRITE
  • Prompt: !!,"Do you want to queue this job"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"If you want to queue this job to run at a later time, accept the",!,"default, otherwise enter 'N' to run it immediately or '^' to Exit"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed.",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: *7,!!,"WARD (For Item) assignment of ",$P(^DIC(42,WRD,0),"^")," has been ",$S(ANS="A":"added to",1:"deleted from"),":",!,"Total AOU(s): ",MRCNT," Total Stock Items: ",ITMCNT
  • Line Location: START+2
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!?5,"Enter: 'A' to Add a Ward (for Item)",!?12,"'D' to Delete a Ward (for Item)",!?12,"""^"" to Exit."
  • Line Location: HELP+2

FileMan Files Accessed Via FileMan Db Call

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