Routine: PSGSCT0

Information

PSGSCT0 ;BIR/CML3-PRINT COST PER SERVICE REPORT ;14 JUL 94 / 9:36 AM

Package	Total	Call Graph
Inpatient Medications	1	$$ENDTC^PSGMI
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	1	PSGSCT

Name	Field # of Occurrence
NOW^%DTC	START+1
$$ENDTC^PSGMI	START+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?23,"* NO SERVICE COST DATA FOUND *" Line Location: START+2
Function Call: WRITE	Prompt: !?9,"* A SERVICE COULD NOT BE FOUND FOR THE FOLLOWING WARD(S) *",! Line Location: RUN+3
Function Call: WRITE	Prompt: !!,LN2,!!?15,"TOTALS =>",?35,$J(TCNT,9,0),?52,$J(TCST,12,2),?72,$J(TCPU,6,2) Line Location: TOTLS+1
Function Call: WRITE	Prompt: !?2,SN,?35,$J(CNT,9,0),?52,$J(CST,12,2),?72,$J(CPU,6,2),! Line Location: WRITE+1
Function Call: READ	Prompt: "'^' TO STOP " Formatting: ! Timeout: DTIME Variable: NP Line Location: NP+1
Function Call: WRITE	Prompt: $C(7) Line Location: NP+1
Function Call: WRITE	Prompt: NP="^" Condition for execution: '$T $C(7) S:'$T Line Location: NP+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !!?24,"UNIT DOSE COST PER SERVICE REPORT",?63,PSGPDT,!?25,"FROM ",STRT," THROUGH ",STOP,!!?35,"TOTAL UNITS",?56,"TOTAL",?68,"AVERAGE COST",!?10,"SERVICE",?36,"DISPENSED",?56,"COST",?70,"PER UNIT",!,LN1,! Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("PSG"	START+2, RUN+1, RUN+3, RUN+4

Name	Field # of Occurrence
^(	RUN+1, RUN+4

Name	Field # of Occurrence
%	START+1, DONE+1!
CML	START+1*, DONE+1!, NP+1
CNT	DONE+1!, WRITE+1*
CPU	DONE+1!, WRITE+1*
CST	RUN+1, RUN+4, DONE+1!, WRITE+1*
DTIME	NP+1
IO	START+1, START+2
IO(0	START+1
IOF	DONE+1, HDR+1
IOSL	RUN+1, RUN+3, RUN+4, TOTLS+1
IOST	START+1
LN1	START+1*, DONE+1!, HDR+1
LN2	START+1*, TOTLS+1, DONE+1!
NP	START+1, RUN+1, RUN+3, RUN+4, TOTLS+1, DONE+1!, NP+1
>> PSGDT	START+1*
PSGID	DONE+1!
PSGOD	DONE+1!
PSGPDT	START+1*, DONE+1!, HDR+1
SN	RUN+1, RUN+4, DONE+1!, WRITE+1
>> STOP	HDR+1
>> STRT	HDR+1
TCNT	START+1, TOTLS+1, DONE+1!, WRITE+1
TCPU	TOTLS+1*, DONE+1!
TCST	START+1, TOTLS+1, DONE+1!, WRITE+1