Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^%DT  NOW^%DTC  
Outpatient Pharmacy 1 ^PSOLSET  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSO PNDCNT  PSOSUCHG  PSOSULOG  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2
NOW^%DTC HD+1
^%ZIS INIT+1
^%ZISC START+2
^%ZTLOAD QUEUP+1
^PSOLSET PSOSUDCN+2

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • INIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+1, HD+1
^PS(52.5 - [#52.5] START+1, CNT
^PS(59 - [#59] HD+3

Label References

Name Line Occurrences
CNT START+1
DATE INIT+1
EXIT INIT+1, QUEUP+1
HANG START+1, START+2
HD START, START+1, START+2
QUEUP INIT+1
WARN PSOSUDCN+2

Naked Globals

Name Field # of Occurrence
^("P" CNT
^(0 HD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, HD+1
%DT EXIT!, DATE+1*!, DATE+2*
%DT("A" DATE+1*, DATE+2*
%DT(0 DATE!, DATE+1*
%H EXIT!
%ZIS INIT+1*!
BEGDATE START+1, EXIT!, DATE!, DATE+1*
D EXIT!
DAY EXIT!, HD+1*, HD+4
DIRUT EXIT!
DTIME HANG
ENDDATE START+1, EXIT!, DATE!, DATE+2*
EXIT INIT+1*, EXIT!, DATE+3*
G EXIT!, QUEUP*
HR EXIT!
IO START
IO("Q" INIT+1!
IO(0 DQ!
IOF HD
IOP DQ!
IOSL START+1, START+2
IOST HANG
J START+1*, EXIT!, CNT
JJ EXIT!, CNT*
MIN EXIT!
POP INIT+1, EXIT!
PSD START*, START+1*, EXIT!, CNT*
PSDP START*, START+1*, EXIT!, CNT*
>> PSOPAR PSOSUDCN+2
>> PSOSITE CNT, HD+3
PSPOP EXIT!
PST START*, START+2, EXIT!, CNT*
PSTP START*, START+2, EXIT!, CNT*
TIM EXIT!, HD+1*, HD+4
X EXIT!, HANG*
Y START+1*, EXIT!, DATE+1, DATE+2, HD+1*
Z EXIT!
>> ZTDESC QUEUP*
>> ZTQUEUED START+2
>> ZTREQ START+2*
ZTRTN EXIT!, QUEUP*
ZTSAVE EXIT!
ZTSAVE( QUEUP*
ZTSK EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All