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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
CMOP 2 (SUB,SUBDV)^PSXCSDC2  END^PSXCSUTL  
Kernel 2 ^%ZISC  $$IEN^XUMF  
VA Fileman 2 NOW^%DTC  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
CMOP 2 PSXCSDC  PSXCSDC2  

Entry Points

Name Comments DBIA/ICR reference
PRINT
NODATA ;Prints report for no data found
EX
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
EX1

External References

Name Field # of Occurrence
NOW^%DTC PRINT, PRINT+5
^%ZISC EX
$$GET1^DIQ HD+2
SUB^PSXCSDC2 PRINT+9
SUBDV^PSXCSDC2 PRINT+10
END^PSXCSUTL EX1
$$IEN^XUMF HD+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT, PRINT+5
^PSX(552 HD+1
^TMP($J PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, EX1!

Label References

Name Line Occurrences
EX PRINT+7
HD PRINT+9, PRINT+10, PRINT+12
NODATA PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT, PRINT+5
>> AGNCY HD+1*
IOF EX, HD+4
IOSL PRINT+12
>> PSXAVCST PRINT+15*
>> PSXAVG PRINT+14*
>> PSXBDT PRINT+5
>> PSXBDTR PRINT+5*, HD+5, NODATA+2
>> PSXCNT PRINT+9*, PRINT+12*
>> PSXCNTO PRINT+9*, PRINT+12*
>> PSXCNTR PRINT+9*, PRINT+12*
>> PSXCOST PRINT+9*, PRINT+12*
>> PSXDLN PRINT+4*, HD+13, NODATA+5
>> PSXDV PRINT+10*, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+17, PRINT+18, HD+6
>> PSXEDT PRINT+5
>> PSXEDTR PRINT+5*, HD+5, NODATA+2
>> PSXFAC PRINT+9*, PRINT+10, PRINT+11, PRINT+12, HD+1
>> PSXFACN HD+3*, HD+5
>> PSXFLS PRINT+12*, PRINT+14, PRINT+17
>> PSXID PRINT+2, PRINT+3, PRINT+4, PRINT+9, PRINT+10, PRINT+13, HD+6, HD+10, NODATA+3
>> PSXLGN PRINT+2*, PRINT+3*, PRINT+4*, HD+5, NODATA+2
>> PSXNAM PRINT+11*, PRINT+12, PRINT+13
>> PSXPG PRINT+4*, HD+4*
>> PSXRUN PRINT*, PRINT+5*, HD+4, NODATA+1
>> PSXSLN PRINT+4*
PSXSUB PRINT+10!
PSXSUB( PRINT+10*, PRINT+16*, PRINT+17*, PRINT+18*
>> PSXT PRINT+3*
>> PSXT1 PRINT+2*, PRINT+3*, PRINT+14
>> PSXT2 PRINT+2*, PRINT+3*, PRINT+14
>> PSXT3 PRINT+2*, PRINT+3*, PRINT+14
>> PSXT4 PRINT+2*, PRINT+3*, PRINT+14
>> PSXT5 PRINT+2*, PRINT+3*, PRINT+14
>> PSXT6 PRINT+2*, PRINT+3*, PRINT+15
>> PSXTH PRINT+3*
>> PSXTH1 PRINT+2*, PRINT+3*, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH2 PRINT+2*, PRINT+3*, HD+11, NODATA+5
>> PSXTH3 PRINT+2*, PRINT+3*, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH4 PRINT+2*, PRINT+3*, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH5 PRINT+2*, PRINT+3*, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH6 PRINT+2*, PRINT+3*, HD+4, HD+8, HD+12, NODATA+1
>> PSXTOT PRINT+9*, HD+6, HD+10
X HD+1~*, HD+3!
Y PRINT*, PRINT+5*, PRINT+12*, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, HD+1~*, HD+2*
, HD+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 |  Local Variables |  All