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
Print Page as PDF
Routine: PSDWADD

Package: Controlled Substances

Routine: PSDWADD


Information

PSDWADD ;BIR/JPW-Add/Delete Ward (for Drug) ; 6 July 94

Source Information

Source file <PSDWADD.m>

Entry Points

Name Comments DBIA/ICR reference
ASKAD ;ask for 'Add' or 'Delete'
NAOU ;ask NAOU
WARD ;ask ward
QUE ;asks queueing information
START ;add or delete ward (for drug) data
END
ADD ;add ward (for drug)
DEL ;delete ward (for drug)
MSG ;send mailman message with completed info

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will allow you to add or delete a Ward (for Drug) assignment for",!,"all stock drugs in one or more ACTIVE NAOUs."
  • Line Location: PSDWADD+4
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single NAOU, several NAOUs, or enter ^ALL to select all NAOUs.",!
  • Line Location: ASKAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Starting the WARD (for Drug) "_$S(ANS="A":"additions",ANS="D":"deletions")_"."
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed.",!!
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: $C(7),!!,"WARD (for Drug) assignment of "_PSDWN_" has been ",$S(ANS="A":"added to",1:"deleted from"),":",!," => Total NAOU(s): "_CNTN_" => Total Stock Drugs: "_CNTD
  • Line Location: START+2
Info |  Source |  Entry Points |  Interaction Calls