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

Package: DRG Grouper

Routine: ICD1810A


Information

ICD1810A ;ALB/MRY - ICD/DRG; 9/4/03 2:43pm

Source Information

Source file <ICD1810A.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
DRG Grouper 6 ADDDRG^ICD1810B  EN^ICD1810C  (ADDDIAG,ADDPROC)^ICD1810P  ^ICD1810X  ^ICD1810Y  ^ICD1810Z  
VA FileMan 3 ^DIC  FILE^DICN  ^DIE  
Kernel 1 (BMES,MES)^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
EN ;- Post-Install entry point
DRGEDIT ;- Edit DRG records (Description change)
; Invalid DRGs in FY 04:
; DRG4: SPINAL PROCEDURES
; DRG5: EXTRACRANIAL VASCULAR PROCEDURES
; DRG231: LOCAL EXCISION & REMOVAL OF INT FIX DEVICES EXCEPT HIP & FEMUR
; DRG400: LYMPHOMA & LEUKEMIA W MAJOR O.R. PROCEDURE
; DRG514: CARDIAC DEFIBRILLATOR IMPLANT W/CARDIAC CATH
ERRMSG(VAR,IN) ;- Display error msg if DRG not found
BEGWT01 ;- Entry point for wts & trims update for 2004
UPD01 ;- Load FY 2004 into ICD DRG file (#80.2)
FY ;- Set FY multiple with FYR stats
SETVAR ;- Set variables
DRG
MORE ;- Set zero node with FY 2004 stats
REVDRG ;- Description edits

External References

Name Field # of Occurrence
^DIC DRGEDIT+14
FILE^DICN DRGEDIT+41
^DIE DRGEDIT+21, DRGEDIT+27, DRGEDIT+35
ADDDRG^ICD1810B EN+9
EN^ICD1810C EN+16
ADDDIAG^ICD1810P EN+3
ADDPROC^ICD1810P EN+6
^ICD1810X UPD01+4
^ICD1810Y UPD01+5
^ICD1810Z UPD01+6
BMES^XPDUTL DRGEDIT+10, ERRMSG+3, UPD01+2
MES^XPDUTL DRGEDIT+29, DRGEDIT+47, DRGEDIT+48, ERRMSG+4, UPD01+8, UPD01+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: MAJOR
  • Line Location: DRGEDIT+5
Function Call: WRITE
  • Prompt: ACUTE
  • Line Location: REVDRG+1
Function Call: WRITE
  • Prompt: USE
  • Line Location: REVDRG+1
Routine Call
  • DIC
  • Line Location:
    • DRGEDIT+14
Routine Call
  • DIE
  • Line Location:
    • DRGEDIT+21
    • DRGEDIT+27
    • DRGEDIT+35

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)
^DD(80.2 EN+10*, DRGEDIT+38
^ICD - [#80.2] DRGEDIT+17, DRGEDIT+31, FY+1*, FY+2*, FY+3, FY+4*, DRG+4, MORE+1*
^ICD("AFY" UPD01+7*
^ICD(540 UPD01+3

Label References

Name Line Occurrences
BEGWT01 EN+19
DRG DRG
DRGEDIT EN+13
ERRMSG DRGEDIT+44
FY UPD01+4, UPD01+5, UPD01+6
MORE UPD01+4, UPD01+5, UPD01+6
SETVAR UPD01+4, UPD01+5, UPD01+6
UPD01 BEGWT01+2

Naked Globals

Name Field # of Occurrence
^( DRGEDIT+17
^(0 FY+1*, DRG+4, MORE+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT DRGEDIT+8~, DRGEDIT+9*, DRGEDIT+28*, DRGEDIT+47
CNTI DRGEDIT+8~, DRGEDIT+9*, DRGEDIT+43*, DRGEDIT+47
DA DRGEDIT+8~, DRGEDIT+18*, DRGEDIT+19, DRGEDIT+25*, DRGEDIT+33*
DA(1 DRGEDIT+18*, DRGEDIT+19, DRGEDIT+37*
DIC DRGEDIT+8~, DRGEDIT+12*, DRGEDIT+19, DRGEDIT+24, DRGEDIT+37*
DIC("DR" DRGEDIT+36!, DRGEDIT+39*
DIC("P" DRGEDIT+38*
DIC(0 DRGEDIT+12*, DRGEDIT+38*
DIE DRGEDIT+8~, DRGEDIT+19*, DRGEDIT+24*, DRGEDIT+32*
DO DRGEDIT+41!
DR DRGEDIT+8~, DRGEDIT+20*, DRGEDIT+26*, DRGEDIT+34*
DRG DRGEDIT+8~, DRGEDIT+11*, DRGEDIT+13, DRGEDIT+23, DRGEDIT+29, DRGEDIT+30, DRGEDIT+31, DRGEDIT+34, DRGEDIT+39, DRGEDIT+40
DRGEDIT+44, BEGWT01+1~, FY+1, FY+2, FY+3, FY+4, SETVAR+1*, DRG*, DRG+3, DRG+4
MORE+1
FYR BEGWT01+1~, UPD01+1*, FY+1, FY+2, FY+4
I DRGEDIT+8~, DRGEDIT+11*, BEGWT01+1~, UPD01+4*, UPD01+5*, UPD01+6*
ICDCNT BEGWT01+1~, FY+3*
ICDESC DRGEDIT+8~, DRGEDIT+16*, DRGEDIT+17*
ICDHIGH BEGWT01+1~, FY+1, SETVAR+1*, DRG+2, DRG+3*, DRG+4*, DRG+5*, MORE+1
ICDI DRGEDIT+8~, DRGEDIT+18*, DRGEDIT+25, DRGEDIT+31, DRGEDIT+33, DRGEDIT+37
ICDIEN DRGEDIT+8~, DRGEDIT+17*, DRGEDIT+18
ICDLOS BEGWT01+1~, FY+1, SETVAR+1*, DRG+5, MORE+1
ICDLOW BEGWT01+1~, FY+1, SETVAR+1*, DRG+5*, MORE+1
ICDWWU BEGWT01+1~, FY+1, SETVAR+1*, DRG+5, MORE+1
IN ERRMSG~, ERRMSG+3
J BEGWT01+1~, FY+3*, FY+4
NOVAL DRGEDIT+8~
PFYR BEGWT01+1~
VAR ERRMSG~, ERRMSG+2, ERRMSG+3
WT BEGWT01+1~, UPD01+4*, UPD01+5*, UPD01+6*, SETVAR+1
X DRGEDIT+8~, DRGEDIT+13*, DRGEDIT+40*
Y DRGEDIT+8~, DRGEDIT+15, DRGEDIT+17, DRGEDIT+18, DRGEDIT+42

Marked Items

Name Field # of Occurrence
$T(REVDRG+I DRGEDIT+11
$T(WEIGHTS+I^ICD1810X UPD01+4
$T(WEIGHTS+I^ICD1810Y UPD01+5
$T(WEIGHTS+I^ICD1810Z UPD01+6
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