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

Package: Controlled Substances

Routine: PSDTRV


Information

PSDTRV ;BIR/JPW-Transfer CS Drugs between Vaults ; 10 Aug 94

Source Information

Source file <PSDTRV.m>

Entry Points

Name Comments DBIA/ICR reference
FROM ;select FROM disp site
DRUG ;select drug
QTY ;enter quantity
TO ;transfer TO disp site (not restricted to inpat site)
CHK
ASK ;ask ok
END
MSG
ADD ;ask to add drug
ADD1 ;add drug

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRN," has a zero balance.",!,"Please select another drug to transfer.",!!
  • Line Location: DRUG+8
Function Call: WRITE
  • Prompt: !!,?5,"Breakdown Unit: ",NBKU,?35,"Package Size: ",NPKG,!
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"** NOT ALLOWED to transfer out of and into SAME Dispensing Site! **"
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"** ",VAULTN," does not stock ",PSDRN,"! **",!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"** The Narcotic Breakdown Unit does not match."
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,"Transferring: ",TQTY," (",NBKU,")",!,"From: ",PSDSN," To: ",VAULTN,!!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No action taken.",!!
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls