Routine: PSIVLBDL

Information

PSIVLBDL ;BIR/PR,CML-DELETE LBLS FROM SUSPENSE ;02 FEB 94 / 1:54 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"...one moment, please..." Line Location: PSIVLBDL+5
Function Call: WRITE	Prompt: !!,"There are no labels on suspense for this patient." Line Location: START+1
Function Call: WRITE	Prompt: !,"Select Order Number: " Line Location: DELINE+1
Function Call: WRITE	Prompt: !,"or press return to view more " Line Location: DELINE+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: DELINE+2
Function Call: READ	Formatting: ! Prompt: "Press return to continue " Variable: Y Timeout: DTIME Line Location: DELINE+3
Function Call: WRITE	Prompt: DELINE Condition for execution: '$D(X) $C(7)," ??" G:'$D(X) Line Location: DELINE+4
Function Call: WRITE	Prompt: !,"Deleted." Line Location: DELINE+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"Patient Name ",VADM(1)," (",$S(VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",!,"Order Number",?30,"Order",?IOM-11,"Suspended",! Line Location: HDR+1
Function Call: WRITE	Prompt: "-" Line Location: HDR+1
Function Call: WRITE	Prompt: !,ON,$J(+Y_" label"_$S(+Y>1:"s",1:"")_" "_$P(Y,"^",2),IOM-1-$X),! Line Location: PRNT+1