Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSOSUDCN

Package: Outpatient Pharmacy

Routine: PSOSUDCN


Information

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

Source Information

Source file <PSOSUDCN.m>

Entry Points

Name Comments DBIA/ICR reference
INIT
START
EXIT
CNT
DATE
HANG
HD
QUEUP
DQ
WARN

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls