Routine: PSAREC

Package	Total	Call Graph
Drug Accountability	3	POST^PSAREC1 DEV^PSAREPV ^PSAUTL3
VA Fileman	3	^DIC ^DIE ^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSA RECEIVING

Entry Points

External References

Name	Field # of Occurrence
^DIC	PO+1, START+1, DRUG+2, OU
^DIE	SETUP+7, PO+2
^DIR	SETUP+6, START+3, START+5, NDC+1, DUOU+1, PRICE, QTY, DISP+3
POST^PSAREC1	DISP+4
DEV^PSAREPV	START+4
^PSAUTL3	SETUP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no active pharmacy locations." Line Location: SETUP+2
Function Call: WRITE	Prompt: !!,"The current PO# for this location doesn't seem current.",! Line Location: SETUP+4
Function Call: WRITE	Prompt: ! Line Location: PO+0
Function Call: WRITE	Prompt: !!,$G(PSALOCN),! Line Location: DRUG+0
Function Call: WRITE	Prompt: ?50,"Converted quantity: ",PSAREC Line Location: DISP+0
Function Call: WRITE	Prompt: ! Line Location: DISP+2
Function Call: WRITE	Prompt: !?5,"Enter YES to enter the current obligation number. It will be presented",!?5,"as the default the next time the obligation number prompt is displayed." Line Location: CORRECT+1
Function Call: WRITE	Prompt: !!?5,"Enter NO to keep the current obligation number as the default." Line Location: CORRECT+2
Function Call: WRITE	Prompt: !?5,"Enter the invoice number for the receipts." Line Location: INV+1
Function Call: WRITE	Prompt: !?5,"Enter the National Drug Code (NDC) for the received drug.",!?5,"Enter the NDC with dashes or 12-digits without dashes." Line Location: NDCHELP+1
Function Call: WRITE	Prompt: !?5,"Enter YES to update the balances in the pharmacy location and DRUG file",!?5,"and add a transaction." Line Location: POSTHELP+1
Function Call: WRITE	Prompt: !?5,"Enter NO to abort receiving the drug." Line Location: POSTHELP+2
Function Call: WRITE	Prompt: !?5,"Enter the cost for each order unit." Line Location: PRICEHLP+1
Function Call: WRITE	Prompt: !?5,"The quantity entered will be multiplied by the dispense units",!?5,"per order unit to determine the number of dispense units received." Line Location: QTYHELP+1
Routine Call	DIE Line Location: SETUP+7 PO+2
Routine Call	DIC Line Location: PO+1 START+1 DRUG+2 OU
Routine Call	DIR Line Location: SETUP+6 START+3 START+5 NDC+1 DUOU+1 PRICE QTY DISP+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^DIC(51.5 - [#51.5]	Classic Fileman Calls
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(440	QTY+2
^PRC(442	SETUP+4, SETUP+8, QTY+2
^PRCS(410	START
^PSD(58.8 - [#58.8]	SETUP+3, SETUP+8, GETDATA+1
^PSD(58.81 - [#58.81]	START+4
^PSDRUG - [#50]	GETDATA+1, NDC+9, NDC+10, OU+3
^PSDRUG("C"	NDC+7, NDC+8

Label References

Name	Line Occurrences
EXIT	SETUP, SETUP+2, SETUP+4, PO+1
GETDATA	DRUG+3
OU	NDC+2
PO	PART
START	PART

Naked Globals

Name	Field # of Occurrence
^(0	NDC+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!
DA	SETUP+7, PO+2, EXIT!
DA(1	DRUG+1*
DIC	PO, PO+1!, START, START+1!, DRUG+1, DRUG+2!, OU!
DIC("A"	PO+1, START, OU*
DIC("B"	SETUP+8, START, OU*
DIC("S"	PO+1, START
DIC(0	PO, START, DRUG+1, OU
DIE	SETUP+7!, PO+2!, EXIT!
DINUM	EXIT!
DIR	SETUP+6!, START+3!, START+5!, NDC+1!, DUOU+1!, PRICE!, QTY!, DISP+3!
DIR("?"	SETUP+5, START+2, NDC, DUOU+1, PRICE, QTY, DISP+2*
DIR("??"	SETUP+5, START+2, NDC, DUOU+1, PRICE, QTY, DISP+2*
DIR("A"	SETUP+5, START+2, START+5, NDC, DUOU, PRICE, QTY, DISP+2
DIR("B"	SETUP+5, START+5, DUOU, PRICE, DISP+2*
DIR(0	SETUP+5, START+2, START+5, NDC, DUOU, PRICE, QTY, DISP+2
DIRUT	SETUP+4, SETUP+6, EXIT!, START+3, START+4, NDC+2, DUOU+2, PRICE+1, QTY+1, DISP+3
DR	SETUP+7, PO+2, EXIT!, OU*
DT	SETUP+4
DTOUT	EXIT!
DUOUT	EXIT!
PSA	EXIT!
PSA(2	EXIT+2!, START+3*, START+4
PSA50SYN	EXIT!, NDC+2, NDC+8, NDC+9, NDC+10, NDC+11*
PSACBAL	EXIT!, GETDATA+1*
PSACHK	SETUP+1*, SETUP+2, EXIT!
PSACNT	SETUP*, EXIT!
PSACOMB	EXIT!
PSACON	PO+1, EXIT!, START, START+1
PSACOST	EXIT!, QTY+2*
PSADASH	EXIT!, NDC+2, NDC+3, NDC+4
PSADRG	EXIT!, GETDATA+1*, NDC+7, NDC+8, NDC+9, NDC+10, OU+3
PSADRGN	EXIT!, GETDATA+1*
PSADT	EXIT!
PSADUOU	EXIT!, NDC+2, NDC+6, NDC+10, DUOU, DUOU+3, PRICE+2, QTY+2
PSAIEN	EXIT+1!
PSAIEN1	EXIT+1!
PSAISIT	EXIT+1!
PSAISITN	EXIT+1!
PSALEN	EXIT+1!
PSALINE	EXIT+1!
PSALOC	SETUP+2, SETUP+3, SETUP+7, SETUP+8, PO+2, EXIT+1!, DRUG+1, GETDATA+1
PSALOC(""	SETUP+1
PSALOCN	EXIT+1!, DRUG
PSANDC	EXIT+1!, NDC+2, NDC+4, NDC+5, NDC+6, NDC+7, NDC+8
PSANODE	EXIT+1!
PSANPDU	EXIT+1!
PSANPOU	EXIT+1!
PSAODASH	EXIT+1!
PSAONDC	EXIT+1!
PSAOSIT	EXIT+1!
PSAOSITN	EXIT+1!
PSAOU	EXIT+1!, NDC+2, NDC+6, NDC+10, OU, OU+2
PSAOUT	SETUP, PO, EXIT+1!, DRUG+1, DRUG+2, DRUG+3, OU+1, DUOU+2, PRICE+1, QTY+1* , DISP+3*
PSAPDU	EXIT+2!, PRICE+2*
PSAPO	SETUP+3, SETUP+4, PO+1, PO+2, EXIT+2!, QTY+2
PSAPOU	EXIT+2!, NDC+2, NDC+6, NDC+10, PRICE, PRICE+2, QTY+2
PSAREC	EXIT+2!, QTY+2*, DISP
PSAREC(1	QTY+2*
PSASEL	EXIT+2!
PSAT	EXIT+2!
PSATDRG	EXIT+2!
PSAVEND	EXIT+2!, QTY+2*
X	EXIT+2!
Y	SETUP+6, PO+1, EXIT+2!, START+1, START+3, START+4, DRUG+2, GETDATA+1, NDC+3, OU+1 , OU+2, DUOU+3, PRICE+2, QTY+2, DISP+4
Y(0	PO+1

Customize PDF page

Package: Drug Accountability

Routine: PSAREC

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
QTY
POSTHELP	;Extended help for 'Okay to post?'
SETUP
PRICE
DRUG
DUOU
QTYHELP	;
START
PART
EXIT
PRICEHLP	;Extended help for 'Price per order unit'
CORRECT	;Extended help for 'Would you like to correct it'
INV	;Extended help for 'Invoice number'
OU
GETDATA	;Gets receipts data
NDC
PO
NDCHELP	;Extended help for 'NDC'