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

Package: CMOP

Routine: PSXCSSUM


Information

PSXCSSUM ;BIR/JMB-Drug Cost by Facility Report ;08 Oct 97 5:31 PM

Source Information

Source file <PSXCSSUM.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;Device handling
START ;Queued entry point
ALL ;Loops thru all facilities
ALLDV ;Loops thru all divisions
DATE ;Entry point if specific fac & div OR this is called by ALL & ALLDV
DRUG ;Gets drug data & sets ^TMP nodes
PRINT ;Print report if no data found
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 S PSXFACN=$S($G(Y(0,0))]"":Y(0,0),1:"UNKNOWN") K DIC,X,Y ;****DOD L1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"Printout must be sent to a 132-column printer!",!!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: $J(PSXAVG,10,2)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,PSXSLN,!,"TOTAL",?29,$J(PSXCNTO,6),?41,$J(PSXCNTR,6),?51,$J(PSXCNT,6),?62,$J(PSXCOST,10,2),?78
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: $J(PSXAVG,10,2)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: PSXPG>1
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"PRINTED: ",PSXRUN,?(84-$L(PSXPG)),"PAGE ",PSXPG
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!?(62-$L(PSXFACN)/2),"DRUG COSTS BY FACILITY FOR ",PSXFACN,!?(85-$L(PSXBDTR)-$L(PSXEDTR)/2),PSXBDTR," TO ",PSXEDTR
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!,?30,"ORIGN",?52,"TOTAL",?67,"TOTAL",?80,"AVG COST",!,"DIVISION",?30,"FILLS",?40,"REFILLS",?52,"FILLS",?68,"COST",?80,"per FILL",!,PSXDLN
  • Line Location: HD+5

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