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

Package: Outpatient Pharmacy

Routine: PSOCST10


Information

PSOCST10 ;BHAM ISC/SAB - high cost report ; 12/11/96 13:47

Source Information

Source file <PSOCST10.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  ^%DTC  DT^DIO2  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO HI COST  

Entry Points

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

External References

Name Field # of Occurrence
^%DT BEG, BEG+1
^%DTC DTC
^%ZIS DEV
^%ZISC EXIT
^%ZTLOAD DEV+3
DT^DIO2 HD+1
^DIR MAX+1, HD

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&(TY="AL"):"*",TY="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+8
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: !!,"Rx #",?11,"Drug",?54,"QTY",?59,"Un.Cost",?70,"Total Cost"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+3
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] CHK, CHK+5
^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, DEV, DEV+1
FT START+3
HD START, START+2, CHK+7
ST1 START+1
ST2 ST1
ST3 ST2

Naked Globals

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

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+8*, FT+2
COST EXIT!, CHK+6*, CHK+8
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+7, HD+1
DR0 EXIT!, CHK*, CHK+8
DRCST EXIT!, CHK+3*, CHK+5*, CHK+6, CHK+8
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+3*, FT*, FT+3*
IO START
IO("Q" DEV+1, DEV+3!
IOF HD+1
ION DEV
IOP DEV!*
IOSL START+2, CHK+7
IOST HD
MAX MAX+1*, EXIT!, CHK+6, 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+3, CHK+4, CHK+8
PSOION DEV*!, DEV+1!
PSRXN EXIT!, ST2*, ST3+1, CHK, CHK+1, CHK+2
QTY EXIT!, CHK+4*, CHK+6, CHK+8
RX0 EXIT!, CHK*, CHK+3, CHK+4, CHK+5, CHK+8
RX1 EXIT!, CHK+1*, CHK+2*, CHK+3, CHK+4
TCOST START*, EXIT!, CHK+8*, FT+1*, FT+2
TY START+1*, EXIT!, ST1, ST2, ST3+1, CHK+1, CHK+2, CHK+8
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*
ZTSK DEV!, DEV+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All