Routine: PSOCST12

Information

PSOCST12 ;BHAM ISC/SAB - DIVISION BY DRUG COST ; 08/19/92 8:37

Source file <PSOCST12.m>

Package	Total	Call Graph
Kernel	1	^%ZTLOAD
Outpatient Pharmacy	1	(CDT,CTP,DVC,DVS,EX,HD0,HDC,HDN,PAS)^PSOCSTX

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO DIV COSTS BY DRUG

Name	Line Occurrences
Function Call: WRITE	Prompt: $J(AVG,10,2) Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: START+4
Function Call: WRITE	Prompt: !,?50,"Orgin",?68,"Total",?77,"Total",?90,"Total",?105,"Avg Cost",!,"Drug",?50,"Fills",?57,"Refills",?68,"Fills",?77,"Qty",?90,"Cost",?105,"per Fill" Line Location: HD+1
Function Call: WRITE	Prompt: ! Line Location: HD+2
Function Call: WRITE	Prompt: "-" Line Location: HD+2
Function Call: WRITE	Prompt: !,?50,"------",?57,"------",?66,"------",?77,"--------",?88,"----------",?104,"----------" Line Location: PUL+0
Function Call: WRITE	Prompt: $J(AVG,10,2) Line Location: PRT3+1
Function Call: WRITE	Prompt: !,"Total for "_DIVX,?50,$J($P(^TMP($J,DIVX),"^",2),6),?57,$J($P(^(DIVX),"^",3),6),?66,$J($P(^(DIVX),"^",5),6),?77,$J($P(^(DIVX),"^",6),8,2),?88,$J($P(^(DIVX),"^",4),10,2),?104,$J($P(^(DIVX),"^",4)/$P(^(DIVX),"^",5),10,2) Line Location: SUB+2

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	STORE
^PSCST - [#50.9]	START, DIV, DRUG
^PSDRUG - [#50]	STORE+1
^TMP($J	START!, START+1, START+2, START+3, PRT3, STORE+1, STORE+2, STR, STR+1, STR+2* , SUB+2

Name	Field # of Occurrence
^(	DRUG, SUB+2
^(0	DRUG, STORE, STORE+1

Name	Field # of Occurrence
>> AVG	START+4, PRT3+1
>> BEGDATE	START
>> CNT	START+2, START+4, PRT3
>> CNTO	START+2, START+4, PRT3
>> CNTR	START+2, START+4, PRT3
>> COST	START+2, START+4, PRT3
>> CTR	BEG, DEV, START+3, START+4, HD, PRT3
>> DIV	DIV*, DRUG, STORE
>> DIVX	START+1, START+2, START+3, HD+3, PRT3, STORE, STORE+1, STORE+2, STR, STR+1 , STR+2, SUB+2
>> DRUG	DRUG*, STORE+1
>> DRUGX	START+1, START+3, PRT3, PRT3+1, STORE+1*, STORE+2, STR, STR+1, STR+2
>> ENDDATE	START
>> FILLS	PRT3*, PRT3+1
>> I	HD+2*
>> IFN	START, START+4
IO	START
IO("Q"	DEV+1, DEV+2!
IOSL	START+4, PRT3
>> PSDT	START*, DIV, DRUG
PSOION	DEV+1!
QTY	START+2, START+4, EX!, PRT3
>> RP	BEG*
>> UTL	STORE+2*
>> X	DRUG*, STORE+2
>> Y	PRT3*, PRT3+1
>> ZTDESC	DEV+1*
>> ZTRTN	DEV+1*
>> ZTSK	DEV+2