Routine: PSOSUDCN

Information

PSOSUDCN ;BHAM ISC/JMB-Counts of suspended Rx's by day ; 12/10/92

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?5,"DAILY COUNTS OF RX'S ON SUSPENSE" Line Location: INIT+0
Function Call: WRITE	Prompt: !,?10,Y,?25,$J(PSD,9),?40,$J(PSDP,9) Line Location: START+1
Function Call: WRITE	Prompt: !,?10,"-----------",?25,"---------",?40,"---------",!,?10,"TOTAL",?25,$J(PST,9),?40,$J(PSTP,9),! Line Location: START+2
Function Call: WRITE	Prompt: !!!,"** DATE SELECTION **" Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: HANG+0
Function Call: WRITE	Prompt: $C(7),!!,"Press RETURN to CONTINUE!!" Line Location: HANG+0
Function Call: WRITE	Prompt: @IOF Line Location: HD+0
Function Call: WRITE	Prompt: !!,?9,"* COUNTS OF RX'S IN SUSPENSE BY DAY *" Line Location: HD+2
Function Call: WRITE	Prompt: !?((55-$L($P(^PS(59,$G(PSOSITE),0),"^")))\2),"FOR ",$P(^(0),"^") Line Location: HD+3
Function Call: WRITE	Prompt: !,?15,"AS OF ",DAY," AT ",TIM,!!,?10,"DATE",?25,"# OF RX'S",?40,"# PRINTED",!,?10,"-----------",?25,"---------",?40,"---------" Line Location: HD+4
Function Call: WRITE	Prompt: $C(7),!!,?5,"Site Parameters must be defined to use this option!",! Line Location: WARN+0