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

Package: CMOP

Routine: PSXCSUTL


Information

PSXCSUTL ;BIR/JMB-Utilities for Cost Routines ;[ 04/09/98 9:41 AM ]

Source Information

Source file <PSXCSUTL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  $$GET1^DIQ  EN^DIQ1  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
CMOP 11 PSXCSCMN  PSXCSDA  PSXCSDC  PSXCSDC1  PSXCSHI  PSXCSMN1  PSXCSMON  PSXCSSUM  
PSXCST  PSXCST1  PSXCSTPG  

Entry Points

Name Comments DBIA/ICR reference
NAME ;Gets drug name by looking up drug ID #
MN ;Gets month & yr
IDYN
ID
BEG
EN
FACYN ;Gets facility
FAC
DV
NODATA ;No data in file
END

External References

Name Field # of Occurrence
^%DT MN+2, BEGEN
^DIC ID+1, FACDV
$$GET1^DIQ FAC+4
EN^DIQ1 FAC+2
^DIR IDYNFACYN+2, FAC+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: IDYN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"Future dates are not allowed!",!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FACYN+2
Function Call: WRITE
  • Prompt: !,"There is no data for "_XSITE
  • Line Location: FAC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FAC+6
Function Call: WRITE
  • Prompt: !!?4,"** There is no CMOP cost data between "_PSXSDATE_" and "_PSXEDATE_". **"
  • Line Location: NODATA+1
Function Call: WRITE
  • Prompt: !!?4,"Use the Date Range Compile/Recompile Cost Data option to compile the",!?4,"cost data for this date range."
  • Line Location: NODATA+2
Routine Call
  • DIC
  • Line Location:
    • ID+1
    • FAC
    • DV
Routine Call
  • DIR
  • Line Location:
    • IDYN
    • FACYN+2
    • FAC+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
4.9999 GET1^DIQ
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" NODATA+1
^PSDRUG - [#50] NAME+2, ID+2
^PSDRUG("AQ1" NAME+1
^PSX(552.5 - [#552.5] MN+4, EN+2, FAC+5
^TMP($J END!
^UTILITY("DIQ1" FACYN+1!, FAC+3, END+14!

Label References

Name Line Occurrences
BEG IDYN+1, BEG+1, BEG+2
DV DV+1
EN EN+1
END FAC
FAC FAC+1
FACYN IDYN+1, ID+4, FAC+5
IDYN ID+2
MN MN+3
NODATA MN+5, EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT MN+2*, BEG*, BEG+2!, END!
%DT("A" MN+2*, BEG*, EN*
%DT(0 BEG+1*
%H END!
%T END!
%Y END!
%ZIS END!
DA FAC+1*, FAC+3, FAC+4*, END!
DA(1 FAC+4*
DIC ID*, ID+1!, FAC*!, FAC+2*, DV*!, END!
DIC("A" FAC*, DV*
DIC("S" ID*
DIC(0 ID*, FAC*, DV*
DIE END!
DIK END!
DINUM END!
>> DIQ(0 FAC+2*
DIR IDYN!, FACYN+2!, FAC+6!, END!
DIR("A" IDYN*, FACYN+2*, FAC+6*
DIR("B" IDYN*, FACYN+2*, FAC+6*
DIR(0 IDYN*, FACYN+2*, FAC+6*
DIRUT IDYNFACYN+2, FAC+6, END!
DLAYGO END!
DR FAC+2*, END!
DT BEG+2
DTOUT ID+1, FACDVEND+1!
DUOUT ID+1, FACDVEND+1!
>> IENS FAC+4*
POP END+1!
PSX50 END+1!
PSXAVCST END+1!
PSXAVG END+1!
PSXBDT MN+3*, MN+4, BEG+1*, EN+2, NODATA+1, END+1!
PSXBDTE END+1!
PSXBDTH END+1!
PSXBDTR END+1!
PSXBEG END+2!
PSXBMN END+2!
PSXBY END+2!
PSXBYR END+2!
PSXCDT END+2!
PSXCID END+2!
PSXCMN END+2!
PSXCNT END+2!
PSXCNTDV END+3!
PSXCNTO END+2!
PSXCNTR END+3!
PSXCOM END+3!
PSXCOST END+3!
PSXCST END+3!
PSXCUT END+3!
PSXCYR END+3!
PSXDG END+3!
PSXDGID NAME+1, END+3!
PSXDIV END+4!
PSXDLN END+4!
PSXDR0 END+4!
PSXDRCST END+4!
PSXDT END+4!
PSXDT90 END+4!
PSXDT90R END+4!
PSXDV DV+1*, END+4!
PSXDVCNT END+4!
PSXEDATE IDYN!, FAC!, NODATA+1*, NODATA+2!
PSXEDT MN+3*, MN+5, EN+1*, EN+3, NODATA+1, END+5!
PSXEDTE END+5!
PSXEDTR END+5!
PSXEMN END+5!
PSXEND END+5!
PSXERR END+5!
PSXEXIT END+5!
PSXEYR END+5!
PSXFAC FAC+3*, FAC+4*, FAC+5, DVEND+5!
PSXFACN END+6!
PSXFACR END+6!
PSXFACYN END+6!
PSXFCID END+6!
PSXFL END+6!
PSXFLD END+6!
PSXFLS END+6!
PSXFND MN+4*, MN+5, EN+2*, EN+3, NODATA+2!, END+6!
PSXG END+6!
PSXI NAME+1*, NAME+2, NAME+3!, END+7!
PSXID ID+2*, END+7!
PSXIDG ID+2*, END+7!
PSXIDV END+7!
PSXIEN END+7!
PSXIENDV DV+1*, END+7!
PSXION END+14!
PSXJOB END+7!
PSXJOBE END+7!
PSXLAYGO END+7!
PSXLGN END+8!
PSXLOC END+8!
PSXMAX END+8!
PSXMC END+8!
PSXMCDT END+8!
PSXMN END+8!
PSXMON END+8!
PSXNAM NAME+1!, NAME+2*, NAME+3*, END+8!
PSXNEXT END+8!
PSXNODE END+9!
PSXOUT MN+2*, MN+5, IDYN*, ID+1*, BEG*, EN*, EN+3, FACYN+2*, FAC+6*, DV*
NODATA+2*, END+9!
PSXPC END+9!
PSXPDT END+9!
PSXPG END+9!
PSXPSDT END+9!
PSXQTY END+9!
PSXRF END+9!
PSXRPT MN+1*, IDYN+1, ID+4, END+9!
PSXRUN END+9!
PSXRXN END+10!
PSXSDATE IDYN!, FAC!, NODATA+1*, NODATA+2!
PSXSLN END+10!
PSXSPDV END+10!
PSXSTA END+14!
PSXSTART END+14!
PSXSUB END+10!
PSXT END+10!
PSXT1 END+10!
PSXT2 END+10!
PSXT3 END+10!
PSXT4 END+10!
PSXT5 END+10!
PSXT6 END+10!
PSXTH END+11!
PSXTH1 END+11!
PSXTH2 END+11!
PSXTH3 END+11!
PSXTH4 END+11!
PSXTH5 END+11!
PSXTH6 END+11!
PSXTMP END+11!
PSXTOT END+11!
PSXVAPRT END+11!
PSXX END+12!
PSXYR END+12!
X MN+2, ID+2, ID+3!, BEGENFAC+1, END+12!
X1 END+12!
X2 END+12!
>> XSITE FAC+1*, FAC+5
Y MN+3, IDYN+1, ID+2, ID+3!, BEG+1, BEG+2, EN+1, FACFAC+1!, DV
DV+1, NODATA+1*, END+12!
ZTDESC END+12!
ZTDTH END+12!
ZTIO END+12!
>> ZTQUEUED END+13
>> ZTREQ END+13*
ZTRTN END+12!
ZTSAVE END+12!
ZTSK END+12!
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