Routine: PSGTCTD0

Information

PSGTCTD0 ;BIR/CML3-PRINT TOTAL COST TO DATE REPORT ;31 OCT 95 / 2:10 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: S Line Location: START+3
Function Call: WRITE	Prompt: !!?18,"* NO TOTAL COST PER PATIENT FOUND *" Line Location: RUN+1
Function Call: WRITE	Prompt: !!,LN2,!!?5,"TOTALS => ",?17,"AVG. COST/UNIT: ",$J(TCPU,0,2),?52,$J(TCNT,9,0),?67,$J(TCST,12,2) Line Location: TOTLS+1
Function Call: WRITE	Prompt: ! Line Location: TOTLS+2
Function Call: WRITE	Prompt: !?54,"(** = NON-FORMULARY ITEM)" Line Location: TOTLS+3
Function Call: WRITE	Prompt: ?52,"---------",?67,"------------",!?1,"----- AVG. COST/UNIT: ",$J(PCPU,0,2),?52,$J(PCNT,9,0),?67,$J(PCST,12,2),!! Line Location: PTOT+1
Function Call: WRITE	Prompt: !?4,$S('$P(DRG,"^",2):" ",1:"**")," ",$P(DRG,"^"),$S($P(DRG,"^")'=+$P(DRG,"^"):"",1:" (DRUG NOT FOUND)"),?52,$J(CNT,9,0),?67,$J(CST,12,2),! Line Location: DW+2
Function Call: READ	Variable: NP Timeout: DTIME Line Location: NP+1
Function Call: WRITE	Prompt: $C(7),!,"'^' TO STOP " 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: ! Line Location: NP+2
Function Call: WRITE	Prompt: !?54,"(** = NON-FORMULARY ITEM)" Line Location: NP+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !!?27,"TOTAL COST TO DATE REPORT",?64,PSGPDT,!?HDRL,HDR,!!?7,"Patient",?45,"Admitting Date",!?60,"Admitting Diagnosis",!?10,"Drug",?53,"Dispensed",?72,"Cost",!,LINE Line Location: HDR+1