Routine: PSIVPAT

Information

PSIVPAT ;BIR/PR-PATIENT COST REPORT ;07 OCT 97 / 9:48 AM

Source file <PSIVPAT.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: S Line Location: PRTQUE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H+1
Function Call: WRITE	Prompt: ?97,$J(DATE,13),!! Line Location: H+1
Function Call: WRITE	Prompt: !?51,"PATIENT COST REPORT FOR:",?97,"PAGE ",$J(PC,3) Line Location: H+2
Function Call: WRITE	Prompt: !?51,VADM(1)," PID: ",VA("PID"),!?51,HEAD Line Location: H+3
Function Call: WRITE	Prompt: !?51,"WARD: ",$S(VAIN(4)]"":$P(VAIN(4),U,2),1:"OUTPATIENT") Line Location: H+4
Function Call: WRITE	Prompt: " ",VAIN(5) Condition for execution: VAIN(5)]"" Line Location: H+4
Function Call: WRITE	Prompt: !,?51,"DOB: ",$S(VADM(3)]"":$P(VADM(3),U,2),1:"NF")," ","SEX: ",$S(VADM(5)]"":$P(VADM(5),U,2),1:"NF") Line Location: H+5
Function Call: WRITE	Prompt: !?51,"Weight (kg): ",$S(+PSJPWT:+PSJPWT,1:"NF") Line Location: H+6
Function Call: WRITE	Prompt: !!!!,"DRUG NAME",?39,"DISPENSED",?57,"(DESTROYED)",?78,"RECYCLED",?101,"CANCELLED",?123,"DRUG COST",! Line Location: H+8
Function Call: WRITE	Prompt: "=" Line Location: H+9
Function Call: WRITE	Prompt: ! Line Location: H+10
Function Call: WRITE	Prompt: !,$E(DRG,1,37),?38,$J($P(G,U,3),10,2)_" "_C,?60,$J($P(G,U,6),8,2),?78,$J($P(G,U,5),8,2),?99,$J($P(G,U,7),10,2),?116,"$",$J($P(G,U,4),15,4) Line Location: P1+3
Function Call: WRITE	Prompt: !,?117,"===============" Line Location: P2+0
Function Call: WRITE	Prompt: !,?20,"GRAND TOTAL:",?116,"$",$J(TOTCOS,15,4) Line Location: P2+1