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

Package: Outpatient Pharmacy

Routine: PSOCST12


Information

PSOCST12 ;BHAM ISC/SAB - DIVISION BY DRUG COST ; 08/19/92 8:37

Source Information

Source file <PSOCST12.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^%ZTLOAD  
Outpatient Pharmacy 1 (CDT,CTP,DVC,DVS,EX,HD0,HDC,HDN,PAS)^PSOCSTX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO DIV COSTS BY DRUG  

Entry Points

Name Comments DBIA/ICR reference
PUL
PRT3
SUB ;sub-totals per division
DRUG
STORE
BEG
DEV
START
EX
STR
DIV
HD

External References

Name Field # of Occurrence
^%ZTLOAD DEV+2
CDT^PSOCSTX BEG
CTP^PSOCSTX BEG
DVC^PSOCSTX DEV
DVS^PSOCSTX BEG
EX^PSOCSTX EX
HD0^PSOCSTX HD
HDC^PSOCSTX BEG
HDN^PSOCSTX START+2
PAS^PSOCSTX DEV+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $J(AVG,10,2)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,?50,"Orgin",?68,"Total",?77,"Total",?90,"Total",?105,"Avg Cost",!,"Drug",?50,"Fills",?57,"Refills",?68,"Fills",?77,"Qty",?90,"Cost",?105,"per Fill"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,?50,"------",?57,"------",?66,"------",?77,"--------",?88,"----------",?104,"----------"
  • Line Location: PUL+0
Function Call: WRITE
  • Prompt: $J(AVG,10,2)
  • Line Location: PRT3+1
Function Call: WRITE
  • Prompt: !,"Total for "_DIVX,?50,$J($P(^TMP($J,DIVX),"^",2),6),?57,$J($P(^(DIVX),"^",3),6),?66,$J($P(^(DIVX),"^",5),6),?77,$J($P(^(DIVX),"^",6),8,2),?88,$J($P(^(DIVX),"^",4),10,2),?104,$J($P(^(DIVX),"^",4)/$P(^(DIVX),"^",5),10,2)
  • Line Location: SUB+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] STORE
^PSCST - [#50.9] START, DIV, DRUG
^PSDRUG - [#50] STORE+1
^TMP($J START!, START+1, START+2, START+3, PRT3, STORE+1*, STORE+2*, STR*, STR+1*, STR+2*
, SUB+2

Label References

Name Line Occurrences
@( START
DEV BEG
DRUG DIV
EX BEG+1, DEV+2
HD START+2, START+3, START+4, PRT3
PRT3 START+3
PUL START+4, SUB+1, SUB+3
STORE DRUG
STR START+1
SUB START+3

Naked Globals

Name Field # of Occurrence
^( DRUG, SUB+2
^(0 DRUG, STORE, STORE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AVG START+4*, PRT3+1*
>> BEGDATE START
>> CNT START+2*, START+4, PRT3*
>> CNTO START+2*, START+4, PRT3*
>> CNTR START+2*, START+4, PRT3*
>> COST START+2*, START+4, PRT3*
>> CTR BEG, DEV, START+3, START+4, HD, PRT3
>> DIV DIV*, DRUG, STORE
>> DIVX START+1*, START+2*, START+3*, HD+3, PRT3, STORE*, STORE+1, STORE+2, STR, STR+1
, STR+2, SUB+2
>> DRUG DRUG*, STORE+1
>> DRUGX START+1*, START+3*, PRT3, PRT3+1, STORE+1*, STORE+2, STR, STR+1, STR+2
>> ENDDATE START
>> FILLS PRT3*, PRT3+1
>> I HD+2*
>> IFN START, START+4
IO START
IO("Q" DEV+1, DEV+2!
IOSL START+4, PRT3
>> PSDT START*, DIV, DRUG
PSOION DEV+1!
QTY START+2*, START+4, EX!, PRT3*
>> RP BEG*
>> UTL STORE+2*
>> X DRUG*, STORE+2
>> Y PRT3*, PRT3+1
>> ZTDESC DEV+1*
>> ZTRTN DEV+1*
>> ZTSK DEV+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All