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 |  Marked Items  | All
Print Page as PDF
Routine: ICD16PT

Package: DRG Grouper

Routine: ICD16PT


Information

ICD16PT ;ALB/ESD - DRG V16 POST-INSTALL ; 7 DEC 1998

Source Information

Source file <ICD16PT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  EN1^DIK  
DRG Grouper 2 ^ICD1697A  ^ICD16P97  
Kernel 1 (BMES,MES)^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
EN ;- Post-Install entry point
REMXREF ;- Remove dup "B" xref on Description multiple and reindex
DRGEDIT ;- Edit DRG records (Description change)
ERRMSG(VAR,IN) ;- Display error msg if DRG not found
BEGWT ;- Entry point for wts & trims update for 97
UPD97 ;- Load FY 97 WWU into ICD DRG file (#80.2)
FY ;- Set FY multiple with FYR stats
SETVAR ;- Set variables
MORE ;- Set zero node with FY 97 stats
REVDRG ;- Description edits
REMXDRG ;- DRG dup "B" xref IENs

External References

Name Field # of Occurrence
^DIC DRGEDIT+8
^DIE DRGEDIT+15, DRGEDIT+21
EN1^DIK REMXREF+11
^ICD1697A UPD97+4
^ICD16P97 UPD97+3
BMES^XPDUTL EN+12, REMXREF+4, DRGEDIT+4, ERRMSG+3, UPD97+2
MES^XPDUTL EN+13, REMXREF+3, REMXREF+5, REMXREF+12, REMXREF+13, DRGEDIT+23, DRGEDIT+27, DRGEDIT+28, ERRMSG+4, UPD97+6
UPD97+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: CARD
  • Line Location: REVDRG+1
Function Call: WRITE
  • Prompt: CARDIAC
  • Line Location: REVDRG+4
Function Call: WRITE
  • Prompt: AMI,HRT
  • Line Location: REVDRG+6
Function Call: WRITE
  • Prompt: CORONARY
  • Line Location: REVDRG+7
Function Call: WRITE
  • Prompt: AMI
  • Line Location: REVDRG+8
Function Call: WRITE
  • Prompt: AMI
  • Line Location: REVDRG+9
Function Call: WRITE
  • Prompt: MAJOR
  • Line Location: REVDRG+9
Function Call: WRITE
  • Prompt: MAJ
  • Line Location: REVDRG+10
Function Call: WRITE
  • Prompt: CC
  • Line Location: REVDRG+10
Function Call: WRITE
  • Prompt: MAJ
  • Line Location: REVDRG+11
Function Call: WRITE
  • Prompt: CC
  • Line Location: REVDRG+11
Routine Call
  • DIC
  • Line Location:
    • DRGEDIT+8
Routine Call
  • DIE
  • Line Location:
    • DRGEDIT+15
    • DRGEDIT+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD - [#80.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] REMXREF+7!, DRGEDIT+11, FY+1*, FY+2*, FY+3, FY+4*, MORE+1*
^ICD("AFY" UPD97+5*

Label References

Name Line Occurrences
BEGWT EN+9
DRGEDIT EN+6
ERRMSG DRGEDIT+24
FY UPD97+3, UPD97+4, MORE+2
MORE UPD97+3, UPD97+4
REMXREF EN+3
SETVAR UPD97+3, UPD97+4
UPD97 BEGWT+2

Naked Globals

Name Field # of Occurrence
^( DRGEDIT+11
^(0 FY+1*, MORE+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT DRGEDIT+2~, DRGEDIT+3*, DRGEDIT+22*, DRGEDIT+27
DA REMXREF+2~, REMXREF+8*, DRGEDIT+2~, DRGEDIT+12*, DRGEDIT+13, DRGEDIT+19*
DA(1 REMXREF+8*, REMXREF+9, DRGEDIT+12*, DRGEDIT+13
DIC DRGEDIT+2~, DRGEDIT+6*, DRGEDIT+13, DRGEDIT+18
DIC(0 DRGEDIT+6*
DIE DRGEDIT+2~, DRGEDIT+13*, DRGEDIT+18*
DIK REMXREF+2~, REMXREF+9*
DIK(1 REMXREF+10*
DR DRGEDIT+2~, DRGEDIT+14*, DRGEDIT+20*
DRG DRGEDIT+2~, DRGEDIT+5*, DRGEDIT+7, DRGEDIT+17, DRGEDIT+23, DRGEDIT+24, BEGWT+1~, FY+1, FY+2, FY+3
FY+4, SETVAR+1*, MORE+1
FYR BEGWT+1~, UPD97+1*, FY+1, FY+2, FY+4
I REMXREF+2~, REMXREF+6*, DRGEDIT+2~, DRGEDIT+5*, BEGWT+1~, UPD97+3*, UPD97+4*
ICDCNT BEGWT+1~, FY+3*
ICDESC DRGEDIT+2~, DRGEDIT+10*, DRGEDIT+11*
ICDHIGH BEGWT+1~, FY+1, SETVAR+1*, MORE+1
ICDI DRGEDIT+2~, DRGEDIT+12*, DRGEDIT+19
ICDIEN REMXREF+2~, REMXREF+6*, REMXREF+7, REMXREF+8, DRGEDIT+2~, DRGEDIT+11*, DRGEDIT+12
ICDLOS BEGWT+1~, FY+1, SETVAR+1*, MORE+1
ICDLOW BEGWT+1~, FY+1, SETVAR+1*, MORE+1
ICDWWU BEGWT+1~, FY+1, SETVAR+1*, MORE+1
IN ERRMSG~, ERRMSG+3
J BEGWT+1~, FY+3*, FY+4
NOVAL DRGEDIT+2~
VAR ERRMSG~, ERRMSG+2, ERRMSG+3
WT BEGWT+1~, UPD97+3*, UPD97+4*, SETVAR+1
X DRGEDIT+2~, DRGEDIT+7*
Y DRGEDIT+2~, DRGEDIT+9, DRGEDIT+11, DRGEDIT+12

Marked Items

Name Field # of Occurrence
$T(REMXDRG+I REMXREF+6
$T(REVDRG+I DRGEDIT+5
$T(WW97+I^ICD1697A UPD97+4
$T(WW97+I^ICD16P97 UPD97+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 |  Marked Items  | All