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: PSORPTS1

Package: Outpatient Pharmacy

Routine: PSORPTS1


Information

PSORPTS1 ;BHAM ISC/SAB - MOST COMMONLY DISPENSED DRUGS REPORT ; 03/29/93 13:04

Source Information

Source file <PSORPTS1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^%DT  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO COMMON  PSORPTS  

Entry Points

Name Comments DBIA/ICR reference
SDT
P0
P1
END
RPT
EDT
HD

External References

Name Field # of Occurrence
^%DT SDT, EDT
^%ZIS P0+2
^%ZISC END
^%ZTLOAD P0+4
^DIR P0+1, HD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !!?30,">>>>> NO DISPENSED DRUGS FOUND <<<<<"
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !,$J(DRG,5)," ",$S($D(^PSDRUG(DRG,0)):$P(^(0),"^"),1:"********"),?52,$J(QTY,12),?64,$J($P(^TMP($J,DV,0,DRG,QTY),"^"),7)
  • Line Location: RPT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,"MOST COMMONLY DISPENSED DRUGS FROM ",$E(SDT,4,5),"-",$E(SDT,6,7),"-",$E(SDT,2,3)," THRU ",$E(EDT,4,5),"-",$E(EDT,6,7),"-",$E(EDT,2,3),?70,$E(DT,4,5),"-",$E(DT,6,7),"-",$E(DT,2,3)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?15,"MINIMUM DRUG COUNT OF "_PSMIN,?70,"Pg: "_PG,!,"ENTRY",!,"NUMBER",?10,"DRUG",?55,"QUANTITY",?68,"FILLS",!
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+2
Routine Call
  • DIR
  • Line Location:
    • P0+1
    • HD
Routine Call
  • %ZIS
  • Line Location:
    • P0+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] RPT+3, HD+3
^PSDRUG - [#50] RPT+3, RPT+5, RPT+11
^PSRX - [#52] RPT+2, P1+1
^PSRX("AD" RPT+1
^TMP($J RPT!, RPT+4, RPT+6, RPT+7, RPT+9, RPT+10, RPT+11, END!, P1*, P1+1*

Label References

Name Line Occurrences
EDT EDT
END SDT, EDT, P0+1, P0+2, P0+4, RPT+7
HD RPT+7, RPT+9, RPT+11
P1 RPT+3
SDT SDT

Naked Globals

Name Field # of Occurrence
^( RPT+6*, RPT+11, P1*, P1+1*
^(0 RPT+5, RPT+11, P1+1
^(2 RPT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SDT*, EDT*!, END!
%DT("A" SDT*, EDT*
%DT(0 SDT*
%ZIS P0+2!*
DAT END!
DIR P0+1!, END!, HD!
DIR("A" P0*
DIR("B" P0*
DIR(0 P0*, HD*
DIROUT END!
DIRUT P0+1, RPT+9, RPT+10, RPT+11, END!, HD
DRG RPT+3*, RPT+11*, END!, P1, P1+1
DT HD+1
DTOUT END!
DUOUT END!
DV RPT+3*, RPT+4*, RPT+6, RPT+8*, RPT+9*, RPT+10, RPT+11, END!, P1, P1+1
, HD+3
>> DVH RPT+8*, RPT+9, RPT+11*
EDT EDT*, RPT+1, END!, P1, P1+1, HD+1
G P0+3*, END!
I RPT+4*, RPT+5, RPT+6, END!
II RPT+6*, RPT+8*, RPT+10*, RPT+11, END!
IO RPT
IO("Q" P0+3, P0+4!
IOF HD+1
ION P0+2
IOP P0+2!*
IOSL RPT+11
IOST HD
IRN RPT+1*, RPT+2, END!, P1+1
J RPT+6*, RPT+10*, END!
PFT RPT*, RPT+1*, END!, P1, P1+1
PG RPT*, END!, HD, HD+1*, HD+2
POP P0+2!
PSDT RPT*, RPT+1*, END+1!
PSMIN P0+1*, RPT+6, END!, HD+2
PSOION P0+2*!, P0+3!, END!
QTY RPT+11*, END!
SDT SDT*, RPT, END!, P1, P1+1, HD+1
ST RPT+6*, RPT+9*, RPT+10, RPT+11, END!
T RPT+10*, RPT+11, END!
X SDT, EDT, RPT*, END!
Y SDT, EDT, P0+1, RPT+2*, RPT+3*, RPT+5*, RPT+6, END!, P1, P1+1
Y2 RPT+2*, RPT+3, END+1!, P1
ZI END!, HD+2*
>> ZTDESC P0+4*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN P0+3*
>> ZTSAVE( P0+3*
ZTSK P0+2!, P0+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All