Routine: PSATRAN

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

Package	Total	Caller Graph
Drug Accountability	2	PSA TRANSFER DRUGS PSASIG

Entry Points

Name	Comments	DBIA/ICR reference
FROM	;select FROM pharmacy
DRUG	;select drug
QTY	;enter quantity
CHK
ASK	;ask ok
EXIT
KILL
MSG
ADD	;ask to add drug
ADD1	;add drug
TO	;transfer TO pharmacy
HELP	;Extended help for 'Do you want to continue?'
PRINTYN	;Extended help for 'Print transfer signature sheets?'
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!

Customize PDF page

Package: Drug Accountability

Routine: PSATRAN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: