Routine: PSIVPAT

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Inpatient Medications	2	TM^PSIVDCR1 ENIV^PSJAC

Entry Points

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
Routine Call	%ZIS Line Location: PRTQUE+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSIVPAT+2
^DD(52.6	P1+1
^PS(50.8 - [#50.8]	PSIVPAT+3, ND, B, B+1
^UTILITY($J	PSIVPAT+2!, B+2, P+1, P+2, P1+1, K+2!