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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$IEN^XUMF  
VA Fileman 2 NOW^%DTC  $$GET1^DIQ  
CMOP 1 (BEG,END)^PSXCSUTL  

Entry Points

Name Comments DBIA/ICR reference
ALL ;Loops thru all facilities
ALLDV ;Loops thru all divisions
PRINT ;Print report if no data found
DEV ;Device handling
START ;Queued entry point
DRUG ;Gets drug data & sets ^TMP nodes
EX1
DATE ;Entry point if specific fac & div OR this is called by ALL & ALLDV
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
EX

External References

Name Field # of Occurrence
NOW^%DTC PRINT+2
^%ZIS DEV+1
^%ZISC EX
^%ZTLOAD DEV+4
$$GET1^DIQ HD+2
BEG^PSXCSUTL PSXCSSUM+3
END^PSXCSUTL EX1
$$IEN^XUMF HD+1

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+2
^PSX(552 HD+1
^PSX(552.5 ALL+1, ALLDV+1, DATE+1, DATE+3, DATE+4, DRUG+1
^TMP($J START+1!, DRUG+2*, DRUG+3*, PRINT+1, PRINT+4, PRINT+5, PRINT+6

Label References

Name Line Occurrences
@( START+3
DATE ALL+1, ALLDV+1
DEV DEV+2
DRUG DATE+4
EX DEV+1, DEV+4
EX1 PSXCSSUM+3
HD PRINT+1, PRINT+4, PRINT+6
PRINT START+3

Naked Globals

Name Field # of Occurrence
^( DRUG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+2
%ZIS DEV+1!*
%ZIS("B" DEV+1*
>> AGNCY HD+1*
IO START+1
IO("Q" DEV+3, DEV+4!
IOF EX, HD+3
IOM DEV+2
ION DEV+1
IOP DEV+1!*
IOSL PRINT+6
IOST DEV+2
POP DEV+1!
>> PSXAVG PRINT+7*, PRINT+8*
>> PSXBDT DATE+3, PRINT+2
>> PSXBDTR PRINT+2*, HD+4
>> PSXCNT PRINT+4*, PRINT+6*, PRINT+8
>> PSXCNTO PRINT+4*, PRINT+6*, PRINT+8
>> PSXCNTR PRINT+4*, PRINT+6*, PRINT+8
>> PSXCOST PRINT+4*, PRINT+6*, PRINT+8
>> PSXDG DATE+4*, DRUG+1
>> PSXDLN START+1*, HD+5
>> PSXDT DATE+3*, DATE+4, DRUG+1
>> PSXDV START+3, ALL+1*, ALLDV+1*, DATE+1, DRUG+1*, DRUG+2, DRUG+3, PRINT+5*, PRINT+6, PRINT+7
>> PSXDVCNT PRINT+5*, PRINT+8
>> PSXEDT DATE+3, PRINT+2
>> PSXEDTR PRINT+2*, HD+4
>> PSXFAC START+3, ALL+1*, ALLDV+1, DATE+1, DATE+3, DATE+4, DRUG+1, DRUG+2, DRUG+3, PRINT+4*
, PRINT+5, PRINT+6, HD+1
>> PSXFACN HD+2*, HD+4
>> PSXFLS PRINT+6*, PRINT+7
>> PSXG DEV+3*
>> PSXIDV DATE+1*, DATE+3, DATE+4, DRUG+1
PSXION DEV+1*!, DEV+3!
>> PSXOUT PSXCSSUM+3
>> PSXPG PRINT+2*, HD+3*
>> PSXRUN PRINT+2*, HD+3
>> PSXSLN START+1*, PRINT+8
X HD+1~*, HD+2!
Y DRUG+1*, DRUG+2, DRUG+3, PRINT+2*, PRINT+6*, PRINT+7, HD+1~*, HD+2*!
>> ZTDESC DEV+3*
>> ZTRTN DEV+3*
>> ZTSAVE( DEV+3*
ZTSK DEV+1!, DEV+4!
Info |  Source |  Call 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