Routine: PSOCOST

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT ^DIC ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO MONTHLYCOST

Entry Points

Name	Line Occurrences
Function Call: READ	Prompt: "Select a Drug or ^ALL for all drugs: " Formatting: ! Timeout: DTIME Variable: X Line Location: MN1+0
Function Call: WRITE	Prompt: @IOF,!?50,"MONTHLY DRUG COST REPORT FOR "_Y,?115,"PAGE: "_PG,!?50,$S(ALL:"MINIMUM REFILLS OF "_RF_" AT A MINIMUM COST OF $"_MC,1:"FOR "_DRUG) Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"DIVISION",?53,"TOTAL",?82,"TOTAL",?97,"TOTAL",!?5,"DRUG",?53,"FILLED",?81,"QUANITY",?98,"COST",?125,"N/F",! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: WRITE	Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<" Line Location: PRI+1
Function Call: WRITE	Prompt: GT Condition for execution: DIV'=ZDIV !,DV W !?5,DRG,?50,$J($P(^TMP($J,DIV,DRG),"^"),7),?80,$J($P(^(DRG),"^",3),7),?95,$J($P(^(DRG),"^",2),7),?120,$P(^(DRG),"^",4) S ZDIV=DIV D:'ALL Line Location: DG+0
Function Call: WRITE	Prompt: $C(7),!!,"PRINTOUT MUST BE 132 COLUMNS !!",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !?47,"----------",?77,"----------",?92,"----------",!?20,"SUB-TOTALS",?50,$J($P(SUB(ZDIV),"^"),7),?80,$J($P(SUB(ZDIV),"^",3),7),?95,$J($P(SUB(ZDIV),"^",2),7),! Line Location: SUB+2
Function Call: WRITE	Prompt: !?47,"==========",?77,"==========",?92,"==========",!?20,"GRAND TOTALS",?50,$J(TF,7),?80,$J(TQ,7),?95,$J(TC,7) Line Location: GR+0
Routine Call	DIC Line Location: DRG+1
Routine Call	DIR Line Location: MN2+1 MN3+1
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+1
^PS(59 - [#59]	PRI+2
^PSCST - [#50.9]	DRG+2, DRG1, NF+2, NF+3, NF+4, LK+1, LK1, STO+1, DAY+1
^PSDRUG - [#50]	DRG+1, NF, NF+4
^TMP($J	PSOCOST+2!, END!, NF+1, NF+2, NF+3, NF+4, PRI+1, PRI+2, DG, SUB+1 , GR

Name	Field # of Occurrence
^(	DG
^(0	NF+2, LK1, STO+1

Name	Field # of Occurrence
%DT	MN*, END!
%DT("A"	MN*
%ZIS	DEV!*
ALL	PSOCOST+2, MN3+2, END!, HDR+2, DG, DG+1, DEV+2, DAY+1, DAY+2, DAY+3
D	END!
DAY	DRG1+1, END!, LK1+1, DAY+1*
DIC	DRG+1*, END!
DIC(0	DRG+1*
DIR	END!
DIR("?"	MN2, MN3
DIR("A"	MN2, MN3
DIR("B"	MN2, MN3
DIR(0	MN2, MN3
DIROUT	MN2+1, MN3+1, END!
DIRUT	MN2+1, MN3+1, END!
DIV	DRG1, END!, NF+1, NF+2, NF+3, NF+4, PRI+2, DG, LK1*, STO , STO+1, GT
DRG	DRG+1, DRG1, END!, NF, NF+2, NF+3, NF+4, DG, LK1*, STO+1
DRUG	DRG+1, END!, NF, NF+1, NF+2, NF+3, NF+4, HDR+2
DTIME	MN1
DTOUT	MN2+1, MN3+1, END!
DUOUT	MN2+1, MN3+1, END!
>> DV	PRI+2*, DG
G	END!, DEV+2*
I	END!, HDR+3, PRI+2, LK1+1, DAY+4
IO	HDR+2, PRI+1
IO("Q"	DEV+2, DEV+3!
IOF	END, HDR+2
IOM	DEV+1
ION	DEV
IOP	DEV!*
IOSL	DG, SUB+2, GR
IOST	END
MC	MN3+1*, END!, HDR+2, LK1
MN	MN*, END!, DAY+1
MON	MN, DRG+2, DRG1, END!, NF+2, NF+3, NF+4, LK+1, LK1, STO+1 , DAY+1
MONTH	MN*, END!, HDR+1
PG	PSOCOST+2, END!, HDR+2
POP	DEV!
PSOION	DEV*!, DEV+2!
PSQ	MN3+2, DRG+1, END!, DEV*
RF	MN2+1*, END!, HDR+2, LK1
SUB	END!
SUB(	LK1+1, SUB+2, STO, STO+1, GT, DAY+4
>> T	DG*
TC	PSOCOST+2, END!, LK1+1, GR, GT, DAY+4
TF	PSOCOST+2, END!, LK1+1, GR, GT, DAY+4
TQ	PSOCOST+2, END!, LK1+1, GR, GT, DAY+4
X	MN, MN1*, DRG+1, END!
Y	MN, MN2+1, MN3+1, DRG+1, END!, HDR+1*, HDR+2
ZDIV	END!, PRI+2, DG, SUB+2
>> ZTDESC	DEV+2*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	DEV+2*
>> ZTSAVE(	DEV+2*
ZTSK	MN3+2!, DRG+1!, DEV!, DEV+3