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

Package: Controlled Substances

Routine: PSDWCHG


Information

PSDWCHG ;BIR/JPW-CS Mass Ward (for Drug) Transfer ; 6 July 94

Source Information

Source file <PSDWCHG.m>

Entry Points

Name Comments DBIA/ICR reference
NAOU ;ask NAOU
OLD ;asking for old (current) WARD (FOR DRUG)
NEW ;asking new (replacement) WARD (FOR DRUG)
QUE ;asks queueing information
START ;loop to update ward conversion
END
CHG ;change wards
MSG ;send mailman message with completed info

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will allow you to do a mass conversion of all drugs in an ",!,"active NAOU from an old Ward designation to a new Ward designation."
  • Line Location: PSDWCHG+4
Function Call: WRITE
  • Prompt: !!,"You may convert a single NAOU, several NAOUs, or enter ^ALL to convert",!,"all NAOUs.",!!
  • Line Location: PSDWCHG+5
Function Call: WRITE
  • Prompt: !,"No Action Taken",!
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"The WARD change you selected will not be updated.",!!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Converting WARD (for Drug) now..."
  • 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),!!,"Total Stock Drugs converted: ",CNTD,!,"Total NAOU(s) converted: ",CNTN,!
  • Line Location: START+5
Info |  Source |  Entry Points |  Interaction Calls