Routine: PSAVERA1

Package	Total	Call Graph
Drug Accountability	3	VERDISP^PSAUTL4 OU^PSAVER2 ASKDRUG^PSAVERA2
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSAVERA

Entry Points

External References

Name	Field # of Occurrence
^DIR	VIEW+3
VERDISP^PSAUTL4	VIEW
OU^PSAVER2	FIELDS+2
ASKDRUG^PSAVERA2	FIELDS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $S($G(PSAPRICE):PSAPRICE,1:"0.00") Line Location: PRICE+10
Function Call: READ	Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Enter a number between 1 and ",CNT Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Invalid line number." Line Location: PROCSS+0
Function Call: WRITE	Prompt: !,PSASLN,! Line Location: VIEW+0
Function Call: WRITE	Prompt: "1. Drug",!,"2. Order Unit",! Line Location: VIEW+1
Function Call: WRITE	Prompt: PSASLN Line Location: VIEW+4
Routine Call	DIR Line Location: VIEW+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	OU+1
^PSD(58.8 - [#58.8]	VDU+3, STOCK, REORDER
^PSD(58.811 - [#58.811]	DISPLN, DISPLN+1, DISPLN+2, DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5 , PRICE+1, PRICE+2, PROCSS, PROCSS+1
^PSDRUG - [#50]	DRUG+6, DRUG+7, DRUG+10, DRUG+11, OU+3

Label References

Name	Line Occurrences
ASK	ASK+2, PROCSS
DISPLN	VDU+3, REORDER+2, ASK
Q	DISPLN, ASK+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AN	ASK*, ASK+1, ASK+2, ASK+3
>> CNT	DISPLN*, ASK+2
DIR	VIEW+3!
DIR("?"	VIEW+2*
DIR("??"	VIEW+2*
DIR("A"	VIEW+2*
DIR(0	VIEW+2*
DTIME	ASK
>> DTOUT	VIEW+3
>> DUOUT	VIEW+3
>> INVARRAY(	VDU+1, REORDER+1
>> PSA50IEN	DRUG+6, DRUG+8, DRUG+10*
>> PSACHO	VIEW+1*, VIEW+2
>> PSADATA	DISPLN+1, DISPLN+3, DRUG+5, DRUG+10, QTY+6, UPC, OU+1, NDC, PRICE+9, PROCSS+1 , PROCSS+2
>> PSADJ	DRUG, DRUG+1, DRUG+2, DRUG+5, DRUG+7, DRUG+9, QTY+2, QTY+3, OU+4, OU+5 , PRICE+1*, PRICE+2
>> PSADJD	DRUG+3*, DRUG+4, DRUG+5, DRUG+6, DRUG+7, DRUG+8
>> PSADJO	OU+4, OU+5, OU+7, OU+8
>> PSADJP	PRICE+1, PRICE+2, PRICE+4, PRICE+5*, PRICE+7, PRICE+8
>> PSADJQ	QTY+2, QTY+3, QTY+5, QTY+6
>> PSADJSUP	DRUG+8*
>> PSADRG	DRUG+5, DRUG+6, DRUG+7, DRUG+8, DRUG+10*, DRUG+11, OU+3, VDU+1, STOCK, REORDER
>> PSADRUGN	DRUG+11*, VDU+1
>> PSADUOU	VDU*
>> PSAFLD	FIELDS*, FIELDS+1, FIELDS+2
>> PSAFLDS	VIEW+4*, FIELDS
>> PSAIEN	DISPLN, DISPLN+1, DISPLN+2, DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5 , PRICE+1, PRICE+2, PROCSS, PROCSS+1
>> PSAIEN1	DISPLN, DISPLN+1, DISPLN+2, DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5 , PRICE+1, PRICE+2, PROCSS, PROCSS+1
>> PSAIN	PROCSS+2
>> PSAINV	VDU+1, REORDER+1
PSALINE	PSAVERA1+5!, DISPLN, DISPLN+1, DISPLN+2, DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4 , OU+5, PRICE+1, PRICE+2, VDU+1, REORDER+1, ASK+3, PROCSS, PROCSS+1
>> PSALINEN	ASK+3, VIEW
>> PSALOC	VDU+1, VDU+3, STOCK, REORDER, PROCSS+2*
>> PSANDC	NDC, VDU+1, PROCSS+2
>> PSANODE	DRUG+2, DRUG+3, QTY+3, OU+5, PRICE+2
>> PSAORD	VDU+1, REORDER+1
>> PSAOU	OU+1, OU+3, OU+7*, VDU+1
>> PSAOUT	DISPLN+3, VIEW+3, FIELDS
>> PSAPCF	FIELDS*
>> PSAPRICE	PRICE+7, PRICE+9, VDU+1
>> PSAQTY	QTY+5, QTY+6, VDU+1
>> PSAREORD	VDU, REORDER, REORDER+1
>> PSASET	VIEW+4*
>> PSASLN	PSAVERA1+5*, VIEW
>> PSASTOCK	VDU, STOCK, REORDER+1
>> PSASUB	VDU*
>> PSASUP	DRUG+4, DRUG+5, PROCSS+1
>> PSATEMP	DISPLN+2, OU+2, OU+3, VDU
>> PSAUPC	UPC*, VDU+1
>> PSAVSN	DISPLN+3, VDU+1, PROCSS+2
>> Y	VIEW+4

Customize PDF page

Package: Drug Accountability

Routine: PSAVERA1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
VDU
DISPLN
FIELDS
NDC
UPC
DRUG
QTY	;Quantity
Q
REORDER
ASK
PROCSS
OU	;W !,"Order Unit : "
VIEW
PRICE	;W !,"Unit Price : $"
VSN	;W ?38,"VSN: "_$S(PSAVSN'="":PSAVSN,1:"Blank"),!
STOCK