Routine: ICD1824B

Package	Total	Call Graph
DRG Grouper	3	^ICD1824X ^ICD1824Y ^ICD1824Z
Kernel	1	(BMES,MES)^XPDUTL
VA Fileman	1	(,UPDATE)^DIE

Package	Total	Caller Graph
DRG Grouper	1	ICD1824A

Entry Points

Name	Comments	DBIA/ICR reference
DRGTITLE	; modify titles of DRGs
INACTDRG	;
TITLE	;
FY	;- Set FY multiple with FYR stats ; check if already done in case patch being re-installed
INAC	;
UPD01	;- Load FY 2007 weights & ALOS into DRG file (#80.2)
UPD02	; create new entries for FY 2007 versioning
UPDTDRG	;
SETVAR	;- Set variables
DRG
MORE	;- Set zero node with FY 2007 stats

External References

Name	Field # of Occurrence
^DIE	INACTDRG+9, DRGTITLE+8
UPDATE^DIE	UPD02+11, UPD02+25, INACTDRG+21, INACTDRG+25, INACTDRG+29, DRGTITLE+15, DRGTITLE+19
^ICD1824X	UPD01+5
^ICD1824Y	UPD01+6
^ICD1824Z	UPD01+7
BMES^XPDUTL	UPD01+2, INACTDRG+2
MES^XPDUTL	UPD01+9, UPD01+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	FY+2, FY+3, FY+4, FY+5, FY+6, DRG, MORE+1, UPD02+2, UPD02+4, UPD02+6 , UPD02+14, UPD02+16, UPD02+18, UPD02+19, INACTDRG+11, DRGTITLE+10
^ICD("AFY"	UPD01+8*
^ICD(579	UPD01+4

Label References

Name	Line Occurrences
FY	UPD01+5, UPD01+6, UPD01+7
MORE	UPD01+5, UPD01+6, UPD01+7
SETVAR	UPD01+5, UPD01+6, UPD01+7
UPD02	UPDTDRG+4

Naked Globals

Name	Field # of Occurrence
^(0	FY+3, MORE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	INACTDRG+1~, INACTDRG+6, DRGTITLE+1~, DRGTITLE+5
DA(1	INACTDRG+5, INACTDRG+7, DRGTITLE+4, DRGTITLE+6
DESC	INACTDRG+1~, INACTDRG+4, INACTDRG+28, DRGTITLE+1~, DRGTITLE+3, DRGTITLE+18
DIE	INACTDRG+1~, INACTDRG+7, DRGTITLE+1~, DRGTITLE+6
DR	INACTDRG+1~, INACTDRG+8, DRGTITLE+1~, DRGTITLE+7
DRG	UPDTDRG+1~, FY+2, FY+3, FY+4, FY+5, FY+6, SETVAR+1, DRG, MORE+1, UPD02+1 , UPD02+2*, UPD02+4, UPD02+6, UPD02+8, UPD02+14, UPD02+16, UPD02+18, UPD02+19, UPD02+22
FYR	UPDTDRG+1~, UPD01+1*, FY+2, FY+3, FY+4, FY+6
I	UPDTDRG+1~, UPD01+5, UPD01+6, UPD01+7*
ICDCNT	UPDTDRG+1~, FY+5*
ICDDRG	UPDTDRG+2~, UPD02+15, UPD02+16, UPD02+21, INACTDRG+1~, INACTDRG+3, INACTDRG+5, INACTDRG+11, INACTDRG+13, INACTDRG+14 , INACTDRG+15, INACTDRG+16, INACTDRG+23, INACTDRG+26, DRGTITLE+1~, DRGTITLE+2, DRGTITLE+3, DRGTITLE+4, DRGTITLE+10, DRGTITLE+12 , DRGTITLE+13, DRGTITLE+16
ICDFDA	UPDTDRG+2~, UPD02+11!, INACTDRG+1~, INACTDRG+21!, INACTDRG+25!, INACTDRG+29!, DRGTITLE+1~, DRGTITLE+15!, DRGTITLE+19!
ICDFDA(	UPD02+8, UPD02+9, UPD02+10, UPD02+22, UPD02+23, UPD02+24, INACTDRG+16, INACTDRG+17, INACTDRG+18, INACTDRG+19 , INACTDRG+20, INACTDRG+23, INACTDRG+24, INACTDRG+26, INACTDRG+27, INACTDRG+28, DRGTITLE+13, DRGTITLE+14, DRGTITLE+16, DRGTITLE+17 , DRGTITLE+18*
ICDHIGH	UPDTDRG+1~, FY+3, SETVAR+1, DRG, MORE+1
ICDLOS	UPDTDRG+1~, FY+3, SETVAR+1*, MORE+1
ICDLOW	UPDTDRG+1~, FY+3, SETVAR+1, DRG, MORE+1
ICDREF	UPDTDRG+2~, UPD02+7, UPD02+10, UPD02+15, UPD02+19*, UPD02+21, UPD02+24
ICDWWU	UPDTDRG+1~, FY+3, SETVAR+1*, MORE+1
IEN	UPDTDRG+2~, UPD02+18*, UPD02+19
J	UPDTDRG+1~, FY+5*, FY+6
LINE	INACTDRG+1~, INACTDRG+3, DRGTITLE+1~, DRGTITLE+2
MDC	INACTDRG+1~, INACTDRG+13*, INACTDRG+19
SURG	INACTDRG+1~, INACTDRG+14*, INACTDRG+20
U	SETVAR+1, DRG, UPD02+16, UPD02+19, INACTDRG+5, INACTDRG+11, INACTDRG+13, INACTDRG+14, INACTDRG+15, DRGTITLE+3 , DRGTITLE+4, DRGTITLE+10, DRGTITLE+12
WT	UPDTDRG+1~, UPD01+5, UPD01+6, UPD01+7*, SETVAR+1
X	INACTDRG+1~, INACTDRG+3, DRGTITLE+1~, DRGTITLE+2

Marked Items

Name	Field # of Occurrence
$T(INAC+LINE	INACTDRG+3
$T(TITLE+LINE	DRGTITLE+2
$T(WEIGHTS+I^ICD1824X	UPD01+5
$T(WEIGHTS+I^ICD1824Y	UPD01+6
$T(WEIGHTS+I^ICD1824Z	UPD01+7

Customize PDF page

Package: DRG Grouper

Routine: ICD1824B

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items