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

Package: Auto Replenishment Ward Stock

Routine: PSGWBGIN


Information

PSGWBGIN ;BHAM ISC/CML-AR/WS Item Inactivation ; 06 Aug 93 / 2:19 PM

Source Information

Source file <PSGWBGIN.m>

Entry Points

Name Comments DBIA/ICR reference
QUIT
ASK ;
ASKR1
ASKR2
QUE
START ;
MAIL ;
INACT1 ; Inactivate an Item for ALL AOUs
INACT2 ; Inactivate an Item for a single AOU

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You may inactivate a Stock Item for a single AOU,",!,"or enter ""^ALL"" to inactivate the Item in ALL AOUs.",!
  • Line Location: PSGWBGIN+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Enter the ITEM you wish to inactivate in all AOUs.",!
  • Condition for execution: X?1."?"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Select INACTIVATION REASON:",!?5,"(N) - NOT USED",!?5,"(DF) - DELETED FROM FORMULARY",!?5,"(O) - OTHER"
  • Line Location: ASK+2
Function Call: READ
  • Formatting: ?34
  • Prompt: "=> "
  • Variable: REA1
  • Timeout: DTIME
  • Line Location: ASKR1+0
Function Call: WRITE
  • Prompt: *7,!?37,"Enter 'N', 'DF', or 'O'",!
  • Line Location: ASKR1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter INACTIVATION REASON (OTHER): "
  • Variable: REA2
  • Timeout: DTIME
  • Line Location: ASKR2+0
Function Call: WRITE
  • Prompt: *7,!?5,"ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
  • Line Location: ASKR2+0
Function Call: WRITE
  • Prompt: !!,"Do you want to queue this job"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"To queue this job to run at a later time and free up your terminal now, 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,!!,$P(^PSDRUG(ITEM,0),"^")," has been inactivated in ",AOUCNT," AOU(s).",!
  • Line Location: START+2

FileMan Files Accessed Via FileMan Db Call

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