Routine: PSIVAOR1

Information

PSIVAOR1 ;BIR/PR-PRINT ACT/DC ORDER RPT BY WD/DRG ;16 DEC 97 / 1:39 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"IV ROOM: ",$S($D(^PS(59.5,IV,0)):$P(^(0),U),1:"Broken pointer??") Line Location: P1+1
Function Call: WRITE	Prompt: !!?1,"WARD: ",WD Line Location: P2+1
Function Call: WRITE	Prompt: !!,?4,$P(PAT,U)," ",$P(PAT,U,3)," ",$P(PAT,U,4) Line Location: P3+1
Function Call: WRITE	Prompt: !!?7,"[",+ON,"] ",$P(ON,U,2) Line Location: P4+1
Function Call: WRITE	Prompt: ?35,Y,?60,$E(P6,1,20) Line Location: P4+1
Function Call: WRITE	Prompt: $S($P(G,U,17)="H":" (ON HOLD)",1:" (ON CALL)") Line Location: P40+1
Function Call: WRITE	Prompt: !,?9,$P(^PS(52.6,+NA,0),U)," ",$P(NA,U,2) Line Location: P5+1
Function Call: WRITE	Prompt: !?9,$P(^PS(52.7,+NA,0),U)," ",$P(NA,U,2) Line Location: P5+2
Function Call: WRITE	Prompt: !?9,$P(^(0),U,9)," ",$P(^(0),U,11) Line Location: P5+3
Function Call: WRITE	Prompt: !?9,"Cumulative doses: ",$S($D(^PS(55,DFN,"IV",+ON,9)):+$P(^(9),U,3),1:0) Line Location: P5+4
Function Call: WRITE	Prompt: !?9,"Last DC'd on: ",Y Line Location: P5+5