Routine: PSIVDCR2

Information

PSIVDCR2 ;BIR/PR,MLM-CONT. PRINT DRUG COST REPORT ;07 OCT 97 / 9:30 AM

Name	Comments	DBIA/ICR reference
P1	;Print drug name and bag counts
P2	;Sum bags for summary, get unit measure, print total drug cost and units
NO	;No patient data. This is indirection @S
BRIEF	;Run a condensed report if $D(BRIEF). A condensed report will never
Y	;Patient data. This is indirection @S
Y1	;Patient data continued
1	;Sum ward or patient units to get total drug units (U1-U4)
2	;If patient data, print total ward units and total ward costs
HI	;Check low/high cost
F	;Form feed

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$E(N,1,34),?37,$P(G,U,20)_I,?61,$P(G,U,22)_I,?78,$P(G,U,21)_I,?97,$P(G,U,23)_I,?122,$P(G,U,20)-$P(G,U,21)-$P(G,U,23)_I Line Location: P1+2
Function Call: WRITE	Prompt: ! Line Location: P1+2
Function Call: WRITE	Prompt: !,?30,L1,?53,L1,?71,L1,?90,L1,?117,L1,!?10,"TOTAL DRUG UNITS:",?30,$J(U1,14,2)_" "_C,?53,$J(U2,14,2),?74,$J(U3,11,2),?93,$J(U4,11,2),?114,$J(U1-U3-U4,17,2) Line Location: P2+3
Function Call: WRITE	Prompt: !,?30,L1,?53,L1,?71,L1,?90,L1,?117,L1,!?10,"TOTAL DRUG COST:",?29,"$",$J(C1,14,2),?52,"$",$J(C2,14,2),?70,"$",$J(C3,14,2),?89,"$",$J(C4,14,2),?113,"$",$J(WT,17,2) Line Location: P2+4
Function Call: WRITE	Prompt: ! Line Location: P2+4
Function Call: WRITE	Prompt: !?2,"WARD: ",N1 Line Location: Y+2
Function Call: WRITE	Prompt: !?3,$E($P(P,"/"),1,18)," (",$E($P(^DPT($P(P,"/",2),0),U,9),6,9),")",?30,$J($P(G,U,8),14,2)_" "_C,?53,$J($P(G,U,10),14,2),?74,$J($P(G,U,9),11,2),?93,$J($P(G,U,11),11,2),?113,"$",$J($P(G,U),17,2) Line Location: Y1+1
Function Call: WRITE	Prompt: !?30,L2,?53,L2,?71,L2,?90,L2,?117,L2,!?6,"TOTAL WARD UNITS:",?30,$J(P1,14,2)_" "_C,?53,$J(P2,14,2),?74,$J(P3,11,2),?93,$J(P4,11,2),?114,$J(P1-P3-P4,17,2) Line Location: 2+1
Function Call: WRITE	Prompt: !?30,L2,?53,L2,?71,L2,?90,L2,?117,L2,!?6,"TOTAL WARD COST:",?29,"$",$J(V1,14,2),?52,"$",$J(V2,14,2),?70,"$",$J(V3,14,2),?89,"$",$J(V4,14,2),?113,"$",$J(P5,17,2) Line Location: 2+2
Function Call: WRITE	Prompt: ! Line Location: 2+2