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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSOCST10

Package: Outpatient Pharmacy

Routine: PSOCST10


Information

PSOCST10 ;BHAM ISC/SAB - high cost report ; 12/16/14 8:53am

Source Information

Source file <PSOCST10.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  ^%DTC  DT^DIO2  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 1 ($$DIR,$$DIVOK,OPTSITE)^PSODIR4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO HI COST  

Entry Points

Name Comments DBIA/ICR reference
BEG
MAX
DEV
START
EXIT
ST1
ST2
ST3
CHK
HD
FT
DTC

External References

Name Field # of Occurrence
^%DT BEG, BEG+1
^%DTC DTC
^%ZIS DEV
^%ZISC EXIT
^%ZTLOAD DEV+6
DT^DIO2 HD+1
$$GET1^DIQ HD+9
^DIR MAX+1, HD
$$DIR^PSODIR4 MAX+3~
$$DIVOK^PSODIR4 CHK+4
OPTSITE^PSODIR4 MAX+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,$S(PSFILL&(PSOTY="AL"):"*",PSOTY="AM":"%",1:" ")_$P(RX0,"^"),?11,$E($P(DR0,"^"),"^",40),?51,$J(QTY,6),?60,$J(DRCST,6,3),?68,$J(COST,12,2)
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: @IOF,!,"Fills That Cost at Least $"_MAX_" for the Period: "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"Outpatient Site"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: "s"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: " Included in this Report: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?2
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?2
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: PSOSTANM
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !!,"Rx #",?11,"Drug",?54,"QTY",?59,"Un.Cost",?70,"Total Cost"
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: !,"No. of Fills = "_CNT,?50,$J(TCOST,30)
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !,"(* indicates a refill, % indicates a partial) "
  • Line Location: FT+4
Routine Call
  • DIR
  • Line Location:
    • MAX+1
    • HD
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] CHK, CHK+8
^PSRX - [#52] ST1, ST2, ST3+1, CHK, CHK+1, CHK+2
^TMP($J EXIT!

Label References

Name Line Occurrences
CHK ST3+1
DTC BEG+1
EXIT BEG, BEG+1, MAX+1, MAX+3, DEV, DEV+1
FT START+3
HD START, START+2, CHK+10
ST1 START+1
ST2 ST1
ST3 ST2

Naked Globals

Name Field # of Occurrence
^(0 CHK, CHK+2
^(660 CHK+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG*, EXIT!
%DT("A" BEG*, BEG+1*
%DT(0 BEG*
%ZIS DEV!*
BEGDATE BEG*, START+1, EXIT!, HD+1
CNT START*, EXIT!, CHK+11*, FT+2
COST EXIT!, CHK+9*, CHK+11
DD DTC~*, DTC+1
DIR MAX!, MAX+1!, EXIT!, HD!
DIR("?" MAX*
DIR("A" MAX*, HD*
DIR("B" MAX*
DIR(0 MAX*, HD*
DIROUT EXIT!
DIRUT MAX+1, START+1, START+2, START+3, EXIT!, ST1, ST2, ST3+1, CHK+10, CHK+11
, HD+1
DR0 EXIT!, CHK*, CHK+11
DRCST EXIT!, CHK+6*, CHK+8*, CHK+9, CHK+11
DT BEG, HD+1
DTOUT BEG, BEG+1, EXIT!
DUOUT EXIT!
ENDDATE BEG+1*, START+1, EXIT!, HD+1, DTC+1*
>> G DEV+2*
>> I HD+15*, FT*, FT+3*
IO START
IO("Q" DEV+1, DEV+6!
IOF HD+1
IOM HD+11
ION DEV
IOP DEV!*
IOSL START+2, CHK+10
IOST HD
MAX MAX+1*, EXIT!, CHK+9, HD+1
MM DTC~*
NDT START+1*, EXIT!, ST1
PAGE START*, EXIT!, HD, HD+1*
PGM EXIT!
POP DEV!, EXIT!
PSDT START+1*, EXIT!, ST1*, ST2, ST3+1
PSFILL EXIT!, ST3*, ST3+1*, CHK+1, CHK+2, CHK+4, CHK+6, CHK+7, CHK+11
PSOIEN59 HD+3~, HD+7*, HD+9, HD+10
PSOION DEV*!, DEV+1!
PSOLTIEN HD+3~, HD+6*, HD+10
PSOSITE MAX+3~, CHK+4
PSOSITE( HD+7, HD+9
PSOSITE(":" HD+6
PSOSITE("PSOSCNT" HD+4, HD+5
PSOSTANM HD+3~, HD+9*, HD+10*, HD+11, HD+12
PSOTY START+1*, EXIT!, ST1, ST2, ST3+1, CHK+1, CHK+2, CHK+4, CHK+11
PSRXN EXIT!, ST2*, ST3+1, CHK, CHK+1, CHK+2, CHK+4
QTY EXIT!, CHK+7*, CHK+9, CHK+11
RX0 EXIT!, CHK*, CHK+6, CHK+7, CHK+8, CHK+11
RX1 EXIT!, CHK+1*, CHK+2*, CHK+6, CHK+7
TCOST START*, EXIT!, CHK+11*, FT+1*, FT+2
VAR EXIT!
X EXIT!, DTC
>> X1 DTC*
>> X2 DTC*
XTYPE EXIT!
Y BEG, BEG+1, MAX+1, EXIT!, HD+1*, DTC, DTC+1
>> ZTDESC DEV+2*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
>> ZTSAVE("PSOSITE*" DEV+4*
ZTSK DEV!, DEV+6!

Marked Items

Name Field # of Occurrence
$T( MAX+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All