Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DICN  ^DIR  
Controlled Substances 2 ^PSDSET  ^PSDTRV1  
Kernel 2 EN^XQH  SIG^XUSESIG  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD TRANSFER VAULT DRUGS  

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

External References

Name Field # of Occurrence
^DIC FROM+3, DRUG+4, TO+2
FILE^DICN ADD1+3
^DIR QTY+5, ASK+4, ADD+3
^PSDSET PSDTRV+2
^PSDTRV1 ASK+5
EN^XQH PSDTRV+5
SIG^XUSESIG PSDTRV+7

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
Routine Call
  • DIC
  • Line Location:
    • FROM+3
    • DRUG+4
    • TO+2
Routine Call
  • DIR
  • Line Location:
    • QTY+5
    • ASK+4
    • ADD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] DRUG+1, DRUG+7, CHK+1, CHK+2, ADD1+1, ADD1+2*
^PSDRUG - [#50] DRUG+7
^VA(200 - [#200] PSDTRV+5, PSDTRV+6
^XUSEC("PSD TECH ADV" PSDTRV+3
^XUSEC("PSJ RPHARM" PSDTRV+3

Label References

Name Line Occurrences
ADD CHK+1
ADD1 ASK+5
ASK CHK+1
DRUG DRUG+8, ASK+5
END PSDTRV+7, FROM+3, DRUG+1, DRUG+5, QTY+6, TO+2, CHK, CHK+1, CHK+2, ASK+4
FROM DRUG+6
MSG QTY+6, CHK+2, ASK+4, ADD+3

Naked Globals

Name Field # of Occurrence
^(0 DRUG+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
ADD FROM+1*, ASK+5, END!, ADD+4*
BAL END!
CNT END!
DA FROM+2!, DRUG+2!, QTY+2!, TO+1!, END!, ADD1+3!
DA(1 DRUG+4*, ADD1+3*
DD END!, ADD1+3!
DIC FROM+2!*, FROM+3!, DRUG+2!, DRUG+4*!, TO+1!*, TO+2!, END!, ADD1+3!*
DIC("A" FROM+2*, DRUG+3*, TO+1*
DIC("S" FROM+2*, TO+1*
DIC("W" DRUG+2*
DIC(0 FROM+2*, DRUG+4*, TO+1*, ADD1+3*
DIE END!
DINUM END!, ADD1+3*
DIR QTY+2!, QTY+5!, ASK+2!, ASK+4!, END!, ADD+1!, ADD+3!
DIR("?" QTY+4*, ASK+3*, ADD+2*
DIR("A" QTY+3*, ASK+2*, ADD+1*
DIR("B" ASK+2*
DIR(0 QTY+2*, ASK+2*, ADD+1*
DIROUT END!
DIRUT QTY+6, ASK+2!, ASK+4, END!, ADD+1!, ADD+3
DLAYGO END!
DO END!, ADD1+3!
DR END!
DTOUT DRUG+5, QTY+6, END!
DUOUT DRUG+5, QTY+6, END!
DUZ PSDTRV+3, PSDTRV+5, PSDTRV+6
EXP DRUG+7*, END!
JJ END!
LOT DRUG+7*, END!
MFG DRUG+7*, END!
NBKU DRUG+7*, QTY+1, CHK+2, ASK+1, END!
NPKG DRUG+7*, QTY+1, END!
PSDLES END!
PSDOUT FROM+1*, DRUG+1*, DRUG+5*, DRUG+6, CHK+1, ASK+5, END!, ADD+3*
PSDR DRUG+7*, CHK+1, CHK+2, END!, ADD1+1, ADD1+3
PSDREC END!
PSDRN DRUG+7*, DRUG+8, CHK+1, END!
PSDS FROM+3*, DRUG+1, DRUG+4, DRUG+7, CHK, END!
>> PSDSITE PSDTRV+2
PSDSN FROM+3*, DRUG+3, ASK+1, END!
PSDT END!
PSDUZ PSDTRV+6*, END+1!
PSDUZN PSDTRV+6*, END+1!
QTY DRUG+7*, DRUG+8, QTY+2, QTY+4, END+1!
RDT END+1!
TEMP END+1!
TQTY QTY+7*, ASK+1, END+1!
U PSDTRV+5
VAULT TO+2*, CHK, CHK+1, CHK+2, END+1!, ADD1+1, ADD1+2, ADD1+3
VAULTN TO+2*, CHK+1, ASK+1, END+1!
X PSDTRV+7~, END+1!, ADD1+3*
X1 PSDTRV+7~
XMDUZ END+1!
XMSUB END+1!
XMTEXT END+1!
XMY END+1!
XQH PSDTRV+5~*
Y FROM+3, DRUG+6, DRUG+7, QTY+7, TO+2, ASK+4, END+1!, ADD+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All