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

Package: Controlled Substances

Routine: PSDTRA


Information

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

Source Information

Source file <PSDTRA.m>

Entry Points

Name Comments DBIA/ICR reference
NUM ;ask how many NAOUs
METHOD ;asks method of stock transfer
FROM ;select AR/WS AOU 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 AR/WS AOU into NAOUs you ",!,"select. No more than 10 transfers are allowed at a time.",!,"Inactive drugs will not be transferred.",!
  • Line Location: PSDTRA+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: !,?5,$P(^PSD(58.8,TR,0),"^")
  • Line Location: CHK+2
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+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !!,"This job will automatically be queued to run in the background.",!,"You'll be notified by a MailMan message when the transfer is completed.",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"Transfer AR/WS Stock Drugs to NAOU has been queued.",!
  • Line Location: QUE+3
Info |  Source |  Entry Points |  Interaction Calls