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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ICDZCOST

Package: DRG Grouper

Routine: ICDZCOST


Information

ICDZCOST ; IHS/ANMC/MWR - CONTRACT CARE COST ESTIMATOR ; AUGUST 14, 1992

Source Information

Source file <ICDZCOST.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 COMMA^%DTC  

Entry Points

Name Comments DBIA/ICR reference
OUTPUT ;
COSTS ; BUILD ARRAY OF ESTIMATED COSTS
EXIT ;
CHECK ;
WEIGHT ; GET HCFA/IHS WEIGHT FROM DRG FILE.

External References

Name Field # of Occurrence
COMMA^%DTC OUTPUT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ESTIMATED COSTS FOR DRG = ",ICDDRGN
  • Line Location: OUTPUT+1
Function Call: WRITE
  • Prompt: !!,"Remember, costs do not include physician fees!",!
  • Line Location: OUTPUT+2
Function Call: WRITE
  • Prompt: X
  • Line Location: OUTPUT+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMER("2.1" CHECK+7
^AMER(2.1 - [#9009082.1] COSTS+2, COSTS+3
^ICD - [#80.2] CHECK+3, CHECK+5, WEIGHT+1

Label References

Name Line Occurrences
EXIT CHECK+1, CHECK+3, CHECK+5, CHECK+7, COSTS+10, COSTS+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR EXIT+1!
ICDCOST COSTS+5*, COSTS+6, COSTS+7*, COSTS+8, OUTPUT+4*, OUTPUT+5, OUTPUT+9, EXIT+1!
ICDDRG EXIT+1!
ICDDRGN CHECK+1, CHECK+3, CHECK+4, CHECK+5, WEIGHT+1, OUTPUT+1, EXIT+1!
ICDDRGW WEIGHT+1*, COSTS+5, EXIT+1!
ICDI OUTPUT+4*, OUTPUT+8, EXIT+1!
>> ICDN COSTS+2*, COSTS+3
>> ICDNAME COSTS+4*, COSTS+8
ICDOK COSTS+2*, COSTS+10, EXIT+1!
ICDOK1 COSTS+6*, COSTS+12, EXIT+1!
ICDTEMP COSTS+1!
ICDTEMP( COSTS+8*, OUTPUT+4, OUTPUT+5
ICDX COSTS+3*, COSTS+4, COSTS+5, OUTPUT+5*, OUTPUT+6*, OUTPUT+7, OUTPUT+8, OUTPUT+10!, EXIT+1!
ICDY OUTPUT+7*, OUTPUT+8, OUTPUT+10!, EXIT+1!
U ICDZCOST+3*, COSTS+4, COSTS+5
X OUTPUT+9*, OUTPUT+10!
X2 OUTPUT+9*, OUTPUT+10!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All