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 |  Local Variables |  All
Print Page as PDF
Routine: PSATRAN

Package: Drug Accountability

Routine: PSATRAN


Information

PSATRAN ;BIR/JMB-Transfer Drugs between Pharmacies ;8/21/97

Source Information

Source file <PSATRAN.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Drug Accountability 3 ^PSASIG  ^PSATRAN1  (,DISP)^PSAUTL3  
VA Fileman 3 ^DIC  FILE^DICN  ^DIR  
Kernel 1 SIG^XUSESIG  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSA TRANSFER DRUGS  PSASIG  

Entry Points

Name Comments DBIA/ICR reference
PRINTYN ;Extended help for 'Print transfer signature sheets?'
FROM ;select FROM pharmacy
HELP ;Extended help for 'Do you want to continue?'
ADD1 ;add drug
TO ;transfer TO pharmacy
CHK
DRUG ;select drug
QTY ;enter quantity
MSG
ADD ;ask to add drug
EXIT
ASK ;ask ok
KILL
QTYHELP ;Extended help for 'Enter Quantity to Transfer'

External References

Name Field # of Occurrence
^DIC DRUG+5
FILE^DICN ADD1+3
^DIR QTY+4, ASK+3, EXIT+2, ADD+2
^PSASIG EXIT+3
^PSATRAN1 ASK+4
^PSAUTL3 FROM+2
DISP^PSAUTL3 TO+5
SIG^XUSESIG PSATRAN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** Contact your Pharmacy Coordinator for access to transfer drugs between",!,?4,"pharmacies. PSAMGR and PSJ RPHARM security keys are required.",!
  • Line Location: PSATRAN+3
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: !!,"There are no drugs in the transferring pharmacy.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: @IOF,!,PSAFROMN
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: $C(7),!!,PSADRGN," has a "_$S(PSABAL=0:"zero",1:"negative")_" balance.",!,"Select another drug to transfer."
  • Line Location: DRUG+8
Function Call: WRITE
  • Prompt: !!,?5,"Dispense Unit: ",PSADU,?35,"Current Balance: "_PSABAL,!
  • Line Location: QTY+2
Function Call: WRITE
  • Prompt: !,PSASLN,!,$P($G(^PSDRUG(PSADRG,0)),"^"),!,"Transferring: ",PSATQTY," (",$P($G(^PSDRUG(PSADRG,660)),"^",8),")",!!,"From: ",PSAFROMN,!,"To : ",PSATON,!,PSASLN,!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No action taken.",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TO+5
Function Call: WRITE
  • Prompt: !?5,"Enter YES if it is okay to transfer this drug. Enter NO to abort the transfer."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES if you want to print sheets that can be carried with the drugs",!?5,"to the receiving pharmacy for signature. The person signing the sheet is",!?5,"signing that he/she received the drug(s)."
  • Line Location: PRINTYN+1
Function Call: WRITE
  • Prompt: !!?5,"Enter NO if you do not want to print the signature sheets. You will exit",!?5,"from the option."
  • Line Location: PRINTYN+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number of dispense units to be transferred out of the",!?5,"pharmacy location. Enter a whole number between 1 and "_PSABAL_"."
  • Line Location: QTYHELP+1
Routine Call
  • DIC
  • Line Location:
    • DRUG+5
Routine Call
  • DIR
  • Line Location:
    • QTY+4
    • ASK+3
    • EXIT+2
    • ADD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] DRUG+1, DRUG+7, CHK, ADD1+1, ADD1+2*
^PSDRUG - [#50] DRUG+7, QTY+1, ASK+1
^TMP("PSASIG" EXIT
^VA(200 - [#200] PSATRAN+4
^XUSEC("PSAMGR" PSATRAN+3
^XUSEC("PSJ RPHARM" PSATRAN+3

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL!
DA DRUG+3!, KILL!, ADD1+3!, TO+1!
DA(1 DRUG+4*, ADD1+3*
DD ADD1+3!
DIC DRUG+3!, DRUG+4*, DRUG+5!, KILL!, ADD1+3*!
DIC("A" DRUG+4*
DIC("W" DRUG+3*
DIC(0 DRUG+4*, ADD1+3*
DIE KILL!
DINUM KILL!, ADD1+3*
DIR QTY+4!, ASK+2!, ASK+3!, EXIT+2!, KILL!, ADD+1!, ADD+2!
DIR("?" QTY+3*, ASK+2*, EXIT+1*, EXIT+2*, ADD+1*
DIR("??" QTY+3*, ASK+2*, EXIT+2*, ADD+1*
DIR("A" QTY+3*, ASK+2*, EXIT+1*, ADD+1*
DIR("B" ASK+2*, EXIT+1*
DIR(0 QTY+3*, ASK+2*, EXIT+1*, ADD+1*
DIRUT QTY+4, ASK+2!, ASK+3, EXIT+2, KILL!, ADD+1!, ADD+2
DO ADD1+3!
DTOUT DRUG+5, KILL!
DUOUT DRUG+5, KILL!
DUZ PSATRAN+3, PSATRAN+4
IOF DRUG+2
PSABAL DRUG+7*, DRUG+8, QTY+2, QTY+3, KILL!, QTYHELP+1
PSACHK FROM+2*, FROM+3, KILL!, TO+5*
PSACNT FROM+1*, KILL!, TO+2*, TO+3, TO+5*
PSADD FROM+1*, CHK, ASK+4, KILL!, ADD+3*
PSADISP KILL!
PSADJ KILL!
PSADRG DRUG+7*, QTY+1, CHK, ASK+1, KILL!, ADD1+1, ADD1+3
PSADRGN DRUG+7*, DRUG+8, CHK, KILL!
PSADT KILL!
PSADU QTY+1*, QTY+2, KILL!
PSADUZ PSATRAN+4*, KILL!
PSADUZN PSATRAN+4*, KILL!
PSAFRDA KILL!
PSAFROM FROM+4*, DRUG+1, DRUG+4, DRUG+7, KILL!
PSAFROMN FROM+4*, DRUG+2, ASK+1, KILL!, TO+1
PSAJJ KILL+1!
PSALCNT KILL+1!
PSALES KILL+1!
PSALOC FROM+3, FROM+4, KILL+1!, TO+6
PSALOC("" FROM+2, TO+5
PSALOCA KILL+1!
PSALOCA( TO+1!, TO+2, TO+3
PSALOCA("" TO+3
PSALOCN FROM+4, KILL+1!, TO+6
PSANODE KILL+1!
PSAOUT FROM+1*, FROM+2, ASK+4, KILL+1!, TO+5
PSARDT KILL+1!
PSAREC KILL+1!
PSAREPRT KILL+1!, TO+3
PSARET KILL+1!
PSASEL KILL+1!
PSASLN FROM+1*, ASK+1, KILL+1!
PSATEMP KILL+2!
PSATF KILL+2!
PSATO CHK, KILL+2!, ADD1+1, ADD1+2, ADD1+3, TO+3*, TO+6*
PSATODA KILL+2!
PSATON CHK, ASK+1, KILL+2!, TO+2*, TO+3*, TO+6*
PSATQTY QTY+5*, ASK+1, KILL+2!
PSATRAN FROM+1*, KILL+2!, TO+5*
X KILL+2!, ADD1+3*
X1 PSATRAN+4, KILL+2!
X2 KILL+2!
XMDUZ KILL+2!
XMSUB KILL+2!
XMTEXT KILL+2!
XMY KILL+2!
Y DRUG+5, DRUG+6, DRUG+7, QTY+5, ASK+3, EXIT+2, KILL+2!, ADD+3
YY KILL+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All