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

Package: CMOP

Routine: PSXCSHI


Information

PSXCSHI ;BIR/JMB-High Cost Rx Report ;03/11/98 11:01 AM

Source Information

Source file <PSXCSHI.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 6 (,DD)^%DT  NOW^%DTC  ^DIC  $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
CMOP 2 (HD,PRINT)^PSXCSHI1  END^PSXCSUTL  

Entry Points

Name Comments DBIA/ICR reference
EN
MAX ;Gets lowest $ amt to print
CHK ;Sets ^TMP global
BEG
DEV ;Device handling
START ;Queued entry point
EXIT
FACYN ;Gets facility
FAC

External References

Name Field # of Occurrence
^%DT BEG, EN
DD^%DT START+5
NOW^%DTC START+5
^%ZIS DEV+1
^%ZISC EXIT+1
^%ZTLOAD DEV+3
^DIC FAC
$$GET1^DIQ FAC+4
EN^DIQ1 FAC+2
^DIR FACYN+2, MAX+2, EXIT
HD^PSXCSHI1 START+7
PRINT^PSXCSHI1 START+8
END^PSXCSUTL EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"Future Dates are not allowed!",!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!?4,"** There is no prescription data between "_PSXSDATE_" and "_PSXEDATE_". **"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"There is no data for "_XSITE
  • Line Location: FAC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MAX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"<<< NO HIGH COST DATA FOUND. >>>"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Routine Call
  • DIC
  • Line Location:
    • FAC
Routine Call
  • DIR
  • Line Location:
    • FACYN+2
    • MAX+2
    • EXIT
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+4, START+1
^PSDRUG - [#50] CHK+4, CHK+5
^PSDRUG("AQ1" CHK+3
^PSX(552.1 CHK+2, CHK+7
^PSX(552.4 EN+3, START+3, START+4, CHK+1, CHK+2, CHK+3, CHK+7
^PSX(552.5 FAC+6
^TMP($J START+5, START+7, CHK+7*
^UTILITY("DIQ1" FACYN+1!, FAC+3, FAC+5!

Label References

Name Line Occurrences
BEG BEG, BEG+1
CHK START+4
EN EN
EXIT BEG, EN, EN+5, FACYN+2, FAC, MAX+2, DEV+1, DEV+3, START+7
FAC FAC+1
FACYN FAC+6
MAX FACYN+2

Naked Globals

Name Field # of Occurrence
^(0 CHK+4
^(660 CHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+5
%DT BEG*, BEG+1!
%DT("A" BEG*, EN*
%DT(0 BEG*
%ZIS DEV+1*!
>> DA FAC+1*, FAC+3, FAC+4*
>> DA(1 FAC+4*
DIC FAC*!, FAC+2*
DIC("A" FAC*
DIC(0 FAC*
>> DIQ(0 FAC+2*
DIR FACYN+2!, MAX+2!, EXIT!
DIR("?" MAX+1*
DIR("A" FACYN+2*, MAX+1*
DIR("B" FACYN+2*, MAX+1*
DIR(0 FACYN+2*, MAX+1*, EXIT*
DIROUT EXIT!
DIRUT FACYN+2, MAX+2, EXIT!
>> DR FAC+2*
DT BEG+1
DTOUT FAC, EXIT!
DUOUT FAC, EXIT!
>> IENS FAC+4*
IO START+5
IO("Q" DEV+2, DEV+3!
IOF EXIT, EXIT+1
ION DEV+1
IOP DEV+1*!
IOST EXIT, EXIT+1
>> POP DEV+1
>> PSX50 CHK+3*, CHK+4, CHK+5
>> PSXBDT BEG*, EN+1*, EN+3, EN+4, START+1, START+3
>> PSXBDTR START+1*
>> PSXCNT START+5*
>> PSXCOST CHK+6*, CHK+7
>> PSXDR0 CHK+4*, CHK+7
>> PSXDRCST CHK+3*, CHK+5*, CHK+6, CHK+7
>> PSXDT START+3*, START+4
PSXEDATE EN+4*, EN+5!, FAC!
>> PSXEDT EN*, EN+1*, EN+4, START+1, START+3
>> PSXEDTR START+1*
>> PSXFAC FAC+3*, FAC+4*, FAC+6, START+5*, CHK+2, CHK+7
>> PSXFL CHK+3*, CHK+7
PSXFND EN+3*, EN+4, EN+5!
>> PSXG DEV+2*
>> PSXID CHK+3*
>> PSXIEN START+3*, START+4, CHK+1, CHK+2, CHK+3, CHK+7
PSXION DEV+1*!, DEV+2!
>> PSXMAX MAX+2*, CHK+6
>> PSXNODE CHK+3*
>> PSXPDT START+5*
>> PSXPG START+5*
>> PSXQTY CHK+3*, CHK+6, CHK+7
>> PSXRXN CHK+3*, CHK+7
PSXSDATE EN+4*, EN+5!, FAC!
>> PSXSUB START+4*, CHK+1, CHK+3
>> X BEG, EN, FAC+1
>> XSITE FAC+1*, FAC+6
Y BEG, BEG+1, EN, EN+4*, FACYN+2, FAC+1!, MAX+2, START+1*, START+5*
>> ZTDESC DEV+2*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
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