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  | All
Print Page as PDF
Routine: PSOCOST

Package: Outpatient Pharmacy

Routine: PSOCOST


Information

PSOCOST ;BHAM ISC/SAB - ROUTINE TO GENERATE MONTHLY DRUG COST REPORT ; 08/19/92 8:19

Source Information

Source file <PSOCOST.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  ^DIC  ^DIR  

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 MONTHLYCOST  

Entry Points

Name Comments DBIA/ICR reference
MN
MN1
MN2
MN3
DRG ;DRUG CHOICE
DRG1
END
NF
HDR ;REPORT HEADER
PRI ;OUTPUT DATA
DG
DEV
LK ;PRINT ALL DRUGS
LK1
SUB ;DIVISIONAL SUB-TOTALS
GR
STO
GT
DAY ;Computes daily totals

External References

Name Field # of Occurrence
^%DT MN
^%ZIS DEV
^%ZISC END
^%ZTLOAD DEV+3
^DIC DRG+1
^DIR MN2+1, MN3+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Select a Drug or ^ALL for all drugs: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: MN1+0
Function Call: WRITE
  • Prompt: @IOF,!?50,"MONTHLY DRUG COST REPORT FOR "_Y,?115,"PAGE: "_PG,!?50,$S(ALL:"MINIMUM REFILLS OF "_RF_" AT A MINIMUM COST OF $"_MC,1:"FOR "_DRUG)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"DIVISION",?53,"TOTAL",?82,"TOTAL",?97,"TOTAL",!?5,"DRUG",?53,"FILLED",?81,"QUANITY",?98,"COST",?125,"N/F",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<"
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: GT
  • Condition for execution: DIV'=ZDIV !,DV W !?5,DRG,?50,$J($P(^TMP($J,DIV,DRG),"^"),7),?80,$J($P(^(DRG),"^",3),7),?95,$J($P(^(DRG),"^",2),7),?120,$P(^(DRG),"^",4) S ZDIV=DIV D:'ALL
  • Line Location: DG+0
Function Call: WRITE
  • Prompt: $C(7),!!,"PRINTOUT MUST BE 132 COLUMNS !!",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !?47,"----------",?77,"----------",?92,"----------",!?20,"SUB-TOTALS",?50,$J($P(SUB(ZDIV),"^"),7),?80,$J($P(SUB(ZDIV),"^",3),7),?95,$J($P(SUB(ZDIV),"^",2),7),!
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !?47,"==========",?77,"==========",?92,"==========",!?20,"GRAND TOTALS",?50,$J(TF,7),?80,$J(TQ,7),?95,$J(TC,7)
  • Line Location: GR+0
Routine Call
  • DIC
  • Line Location:
    • DRG+1
Routine Call
  • DIR
  • Line Location:
    • MN2+1
    • MN3+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+1
^PS(59 - [#59] PRI+2
^PSCST - [#50.9] DRG+2, DRG1NF+2, NF+3, NF+4, LK+1, LK1STO+1, DAY+1
^PSDRUG - [#50] DRG+1, NFNF+4
^TMP($J PSOCOST+2!, END!, NF+1*, NF+2*, NF+3*, NF+4*, PRI+1, PRI+2, DGSUB+1
GR

Label References

Name Line Occurrences
@( DAY+1
DAY DRG+2, LK+1
DEV MN3+2, DRG+1, DEV+1
DG PRI+2
DRG MN1
END MNMN1MN2+1, MN3+1, MN3+2, DRG+1, LK1+2, DAY+6
GR DRG1+1, LK1+2, DAY+2, DAY+5
GT DG
HDR DRG1+1, DGLK1+1, SUB+2, GRDAY+2, DAY+4
LK MN3+3
MN MN
MN1 DRG+1
NF DRG1LK1
PRI DRG1+1, LK1+1, DAY+2, DAY+4
STO DRG1LK1
SUB DG+1

Naked Globals

Name Field # of Occurrence
^( DG
^(0 NF+2, LK1STO+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT MN*, END!
%DT("A" MN*
%ZIS DEV!*
ALL PSOCOST+2*, MN3+2*, END!, HDR+2, DGDG+1, DEV+2, DAY+1, DAY+2, DAY+3
D END!
DAY DRG1+1, END!, LK1+1, DAY+1*
DIC DRG+1*, END!
DIC(0 DRG+1*
DIR END!
DIR("?" MN2*, MN3*
DIR("A" MN2*, MN3*
DIR("B" MN2*, MN3*
DIR(0 MN2*, MN3*
DIROUT MN2+1, MN3+1, END!
DIRUT MN2+1, MN3+1, END!
DIV DRG1*, END!, NF+1, NF+2, NF+3, NF+4, PRI+2*, DG, LK1*, STO
STO+1, GT
DRG DRG+1*, DRG1, END!, NFNF+2, NF+3, NF+4, DG*, LK1*, STO+1
DRUG DRG+1*, END!, NF*, NF+1, NF+2, NF+3, NF+4, HDR+2
DTIME MN1
DTOUT MN2+1, MN3+1, END!
DUOUT MN2+1, MN3+1, END!
>> DV PRI+2*, DG
G END!, DEV+2*
I END!, HDR+3*, PRI+2*, LK1+1*, DAY+4*
IO HDR+2, PRI+1
IO("Q" DEV+2, DEV+3!
IOF ENDHDR+2
IOM DEV+1
ION DEV
IOP DEV!*
IOSL DGSUB+2, GR
IOST END
MC MN3+1*, END!, HDR+2, LK1
MN MN*, END!, DAY+1
MON MN*, DRG+2, DRG1, END!, NF+2, NF+3, NF+4, LK+1, LK1STO+1
DAY+1*
MONTH MN*, END!, HDR+1
PG PSOCOST+2*, END!, HDR+2*
POP DEV!
PSOION DEV*!, DEV+2!
PSQ MN3+2, DRG+1, END!, DEV*
RF MN2+1*, END!, HDR+2, LK1
SUB END!
SUB( LK1+1, SUB+2, STO*, STO+1*, GTDAY+4
>> T DG*
TC PSOCOST+2*, END!, LK1+1*, GR, GT*, DAY+4*
TF PSOCOST+2*, END!, LK1+1*, GR, GT*, DAY+4*
TQ PSOCOST+2*, END!, LK1+1*, GR, GT*, DAY+4*
X MN, MN1*, DRG+1, END!
Y MNMN2+1, MN3+1, DRG+1, END!, HDR+1*, HDR+2
ZDIV END!, PRI+2*, DG*, SUB+2
>> ZTDESC DEV+2*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
ZTSK MN3+2!, DRG+1!, DEV!, DEV+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  | All