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

Package: Controlled Substances

Routine: PSDTRN


Information

PSDTRN ;BIR/JPW-Transfer Stock Entries from NAOU to NAOU ; 18 July 94

Source Information

Source file <PSDTRN.m>

Entry Points

Name Comments DBIA/ICR reference
NUM ;ask how many NAOUs
METHOD ;asks method of stock transfer
FROM ;select NAOU to transfer stock from
TO ;select NAOU(s) to transfer stock to
CHK ;checks for valid NAOUs
QUE
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will copy the stock entries from one NAOU into NAOUs you select.",!,"No more than 10 transfers are allowed at a time.",!,"Inactive drugs will not be transferred.",!
  • Line Location: PSDTRN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NUM+1
Function Call: WRITE
  • Prompt: !!!,"=> Methods of transferring stock drug data."
  • Line Location: METHOD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: METHOD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FROM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: !!,"You may not transfer TO additional NAOUs at this time.",!,"Enter the option again to transfer to more NAOUs."
  • Line Location: TO+3
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,?5," ** NOT ALLOWED to transfer out of and into SAME NAOU! **"
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !,?5,$P(^PSD(58.8,TR,0),"^")
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,?5,"I will transfer ",$S(MTR=3:"drug name, stock level, location code and types.",MTR=2:"drug name, stock level and location code.",1:"drug name only.")
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !!,"This job will automatically be queued to run in the background.",!,"You will be notified by a MailMan message when the transfer is completed.",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"'Transfer Stock Drugs from NAOU to NAOU' has been queued.",!
  • Line Location: QUE+3
Info |  Source |  Entry Points |  Interaction Calls