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

Package: CMOP

Routine: PSXCSDC1


Information

PSXCSDC1 ;BIR/JMB-Drug Cost by Drug Report-CONTINUED ;04/08/97 2:06 PM

Source Information

Source file <PSXCSDC1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
EX
EX1
HD ;N X,Y S X=PSXFAC,DIC(0)="MNZ",DIC=4 S:$D(^PSX(552,"D",X)) X=$E(X,2,99) D ^DIC K DIC ;****DOD L1
NODATA ;Prints report for no data found

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $J(PSXAVG,10,2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?PSXT6,$J(PSXAVCST,8,3),?122,$P(Y,"^",5)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: PSXPG>1
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"PRINTED: ",PSXRUN,?PSXTH6,"PAGE ",PSXPG
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!?(PSXLGN-18-$L(PSXFACN)/2),"DRUG COST BY DRUG FOR ",PSXFACN,!?(PSXLGN-4-$L(PSXBDTR)-$L(PSXEDTR)/2),PSXBDTR," TO ",PSXEDTR
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!?PSXTH1,"ORIGN",?PSXTH3,"TOTAL",?PSXTH4,"TOTAL",?PSXTH5,"AVG COST"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?PSXTH6,"AVG COST per"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?PSXTH1,"FILLS",?PSXTH2,"REFILLS",?PSXTH3,"FILLS",?PSXTH4," COST",?PSXTH5,"per FILL"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: ?PSXTH6,"DISPENSE UNIT"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,PSXDLN
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !,"PRINTED: ",PSXRUN,?PSXTH6,"PAGE 1"
  • Line Location: NODATA+1
Function Call: WRITE
  • Prompt: !!?(PSXLGN-32),"DRUG COST BY DRUG FOR ALL FACILITIES",!?(PSXLGN-4-$L(PSXBDTR)-$L(PSXEDTR)/2),PSXBDTR," TO ",PSXEDTR
  • Line Location: NODATA+2
Function Call: WRITE
  • Prompt: !!?PSXTH1,"ORIGN",?PSXTH3,"TOTAL",?PSXTH4,"TOTAL",?PSXTH5,"AVG COST",!
  • Line Location: NODATA+4
Function Call: WRITE
  • Prompt: "DRUG"
  • Line Location: NODATA+5
Function Call: WRITE
  • Prompt: ?PSXTH1,"FILLS",?PSXTH2,"REFILLS",?PSXTH3,"FILLS",?PSXTH4," COST",?PSXTH5,"per FILL",!,PSXDLN
  • Line Location: NODATA+5
Function Call: WRITE
  • Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<"
  • Line Location: NODATA+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call