Routine: PSOCST10

Information

PSOCST10 ;BHAM ISC/SAB - high cost report ; 12/11/96 13:47

Package	Total	Call Graph
VA Fileman	4	^%DT ^%DTC DT^DIO2 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO HI COST

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: ! Line Location: BEG+1
Function Call: WRITE	Prompt: !,"Please try later!" Line Location: DEV+0
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Function Call: WRITE	Prompt: !,$S(PSFILL&(TY="AL"):"*",TY="AM":"%",1:" ")_$P(RX0,"^"),?11,$E($P(DR0,"^"),"^",40),?51,$J(QTY,6),?60,$J(DRCST,6,3),?68,$J(COST,12,2) Line Location: CHK+8
Function Call: WRITE	Prompt: @IOF,!,"Fills That Cost at Least $"_MAX_" for the Period: " Line Location: HD+1
Function Call: WRITE	Prompt: " to " Line Location: HD+1
Function Call: WRITE	Prompt: " to " Line Location: HD+1
Function Call: WRITE	Prompt: !!,"Rx #",?11,"Drug",?54,"QTY",?59,"Un.Cost",?70,"Total Cost" Line Location: HD+2
Function Call: WRITE	Prompt: ! Line Location: HD+3
Function Call: WRITE	Prompt: "-" Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: FT+0
Function Call: WRITE	Prompt: "-" Line Location: FT+0
Function Call: WRITE	Prompt: !,"No. of Fills = "_CNT,?50,$J(TCOST,30) Line Location: FT+2
Function Call: WRITE	Prompt: ! Line Location: FT+3
Function Call: WRITE	Prompt: "-" Line Location: FT+3
Function Call: WRITE	Prompt: !,"(* indicates a refill, % indicates a partial) " Line Location: FT+4
Routine Call	DIR Line Location: MAX+1 HD
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	CHK, CHK+5
^PSRX - [#52]	ST1, ST2, ST3+1, CHK, CHK+1, CHK+2
^TMP($J	EXIT!

Name	Field # of Occurrence
^(0	CHK, CHK+2
^(660	CHK+5

Name	Field # of Occurrence
%DT	BEG*, EXIT!
%DT("A"	BEG, BEG+1
%DT(0	BEG*
%ZIS	DEV!*
BEGDATE	BEG*, START+1, EXIT!, HD+1
CNT	START, EXIT!, CHK+8, FT+2
COST	EXIT!, CHK+6*, CHK+8
DD	DTC~*, DTC+1
DIR	MAX!, MAX+1!, EXIT!, HD!
DIR("?"	MAX*
DIR("A"	MAX, HD
DIR("B"	MAX*
DIR(0	MAX, HD
DIROUT	EXIT!
DIRUT	MAX+1, START+1, START+2, START+3, EXIT!, ST1, ST2, ST3+1, CHK+7, HD+1
DR0	EXIT!, CHK*, CHK+8
DRCST	EXIT!, CHK+3, CHK+5, CHK+6, CHK+8
DT	BEG, HD+1
DTOUT	BEG, BEG+1, EXIT!
DUOUT	EXIT!
ENDDATE	BEG+1, START+1, EXIT!, HD+1, DTC+1
>> G	DEV+2*
>> I	HD+3, FT, FT+3*
IO	START
IO("Q"	DEV+1, DEV+3!
IOF	HD+1
ION	DEV
IOP	DEV!*
IOSL	START+2, CHK+7
IOST	HD
MAX	MAX+1*, EXIT!, CHK+6, HD+1
MM	DTC~*
NDT	START+1*, EXIT!, ST1
PAGE	START, EXIT!, HD, HD+1
PGM	EXIT!
POP	DEV!, EXIT!
PSDT	START+1, EXIT!, ST1, ST2, ST3+1
PSFILL	EXIT!, ST3, ST3+1, CHK+1, CHK+2, CHK+3, CHK+4, CHK+8
PSOION	DEV*!, DEV+1!
PSRXN	EXIT!, ST2*, ST3+1, CHK, CHK+1, CHK+2
QTY	EXIT!, CHK+4*, CHK+6, CHK+8
RX0	EXIT!, CHK*, CHK+3, CHK+4, CHK+5, CHK+8
RX1	EXIT!, CHK+1, CHK+2, CHK+3, CHK+4
TCOST	START, EXIT!, CHK+8, FT+1*, FT+2
TY	START+1*, EXIT!, ST1, ST2, ST3+1, CHK+1, CHK+2, CHK+8
VAR	EXIT!
X	EXIT!, DTC
>> X1	DTC*
>> X2	DTC*
XTYPE	EXIT!
Y	BEG, BEG+1, MAX+1, EXIT!, HD+1*, DTC, DTC+1
>> ZTDESC	DEV+2*
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
>> ZTRTN	DEV+2*
>> ZTSAVE(	DEV+2*
ZTSK	DEV!, DEV+3!