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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOCST7

Package: Outpatient Pharmacy

Routine: PSOCST7


Information

PSOCST7 ;BHAM ISC/SAB - DRUG COSTS BY CLASSIFICATION ; 08/19/92 9:02

Source Information

Source file <PSOCST7.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  YN^DICN  DT^DIO2  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 1 YN^PSOUTLA  

Entry Points

Name Comments DBIA/ICR reference
BEG
EN
EN1
DEV
START
EX
PRT2
PAT
CLA
STORE
HD

External References

Name Field # of Occurrence
^%DT BEG, EN
^%ZIS DEV
^%ZISC DEV+1, EX
^%ZTLOAD DEV+3
^DIC EN1+2
YN^DICN EN1
DT^DIO2 HD+1
YN^PSOUTLA EN1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"Do you want to look at data concerning a specific classification"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Printout must be 132 columns.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"TOTAL",?50,$J(CNTO,6),?57,$J(CNTR,6),?66,$J(CNT,6),?75,$J(COST,10,2),?91
  • Line Location: START+2
Function Call: WRITE
  • Prompt: $J(AVG,10,2)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,CLAX,?50,$J($P(Y,"^",2),6),?57,$J($P(Y,"^",3),6),?66,$J(FILLS,6),?75,$J($P(Y,"^",4),10,2),?91
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: $J(AVG,10,2)
  • Line Location: PRT2+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: @IOF,!,"Drug Costs by Classification 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: " to "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,?51,"ORIGN",?57,"TOTAL",?80,"TOTAL",?93,"AVG COST",!,"CLASSIFICATION",?51,"FILLS",?57,"REFILLS",?68,"FILLS",?80,"COST",?93,"per FILL"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+3
Routine Call
  • DIC
  • Line Location:
    • EN1+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.605 - [#50.605] STORE
^PSCST - [#50.9] START, PAT, CLA
^TMP($J START!, START+1, EX!, PRT2, STORE*, STORE+1*

Label References

Name Line Occurrences
@( START
BEG BEG
CLA PAT
DEV EN1+1, DEV+1
EN EN
EN1 EN1, EN1+1
EX BEG, EN, EN1+2, DEV, DEV+3, HD
HD START+1, START+2, PRT2
PRT2 START+1
STORE CLA

Naked Globals

Name Field # of Occurrence
^(0 CLA, STORE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN1*, EN1+1, EX!
%DT BEG*, EX!
%DT("A" BEG*, EN*
%DT(0 BEG*
%Y EN1, EX!
%ZIS DEV!*
AVG START+2*, EX!, PRT2+1*
BEGDATE BEG*, START, EX!, HD+1
CLA EN1+2*, EX!, PAT*, CLA, STORE
CLAX START+1*, EX!, PRT2, PRT2+1, STORE*, STORE+1
CNT START+1*, START+2, EX!, PRT2*
CNTO START+1*, START+2, EX!, PRT2*
CNTR START+1*, START+2, EX!, PRT2*
COST START+1*, START+2, EX!, PRT2*
DIC EN1+2*!, EX!
DIC("A" EN1+2*
DIC(0 EN1+2*
DT HD+1
DTIME HD
ENDDATE EN*, START, EX!, HD+1
FILLS EX!, PRT2*, PRT2+1
G EN1*, DEV+2*, EX!
I START+1*, EX!, HD+3*
IFN EN1+1*, EN1+2*, START, EX!
IO START
IO("Q" DEV+2, DEV+3!
IOF EX, HD+1
IOM DEV+1
ION DEV
IOP DEV!*
IOSL START+2, PRT2
IOST EX, HD
PAGE START*, EX!, HD, HD+1*
POP DEV!, EX!
PSDT START*, EX!, PAT, CLA
PSOION DEV*!, DEV+2!
UTL EX!, STORE+1*
X BEG, EN, EX!, CLA*, STORE+1, HD*
Y BEG, EN, EN1+2, EX!, PRT2*, PRT2+1, HD+1*
ZTDESC DEV+2*, EX!
>> ZTQUEUED EX
>> ZTREQ EX*
ZTRTN DEV+2*, EX!
>> ZTSAVE( DEV+2*
ZTSK DEV!, DEV+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All