Routine: ICD1810A

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

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

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

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

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

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

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