Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call