Routine: ICD185P

Package	Total	Call Graph
DRG Grouper	6	ADDDRG^ICD185P1 EN^ICD185P4 EN^ICD185P5 ^ICD185PA ^ICD185PB ^ICD185PC
VA FileMan	2	^DIC ^DIE
Kernel	1	(BMES,MES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EN	;- Post-Install entry point
DRGEDIT	;- Edit DRG records (Description change)
ERRMSG(VAR,IN)	;- Display error msg if DRG not found
BEGWT01	;- Entry point for wts & trims update for 2003
UPD01	;- Load FY 2003 into ICD DRG file (#80.2)
FY	;- Set FY multiple with FYR stats
SETVAR	;- Set variables
DRG
MORE	;- Set zero node with FY 2002 stats
REVDRG	;- Description edits

Name	Field # of Occurrence
^DIC	DRGEDIT+8
^DIE	DRGEDIT+15, DRGEDIT+21
ADDDRG^ICD185P1	EN+3
EN^ICD185P4	EN+10
EN^ICD185P5	EN+16
^ICD185PA	UPD01+4
^ICD185PB	UPD01+5
^ICD185PC	UPD01+6
BMES^XPDUTL	DRGEDIT+4, ERRMSG+3, UPD01+2
MES^XPDUTL	DRGEDIT+23, DRGEDIT+27, DRGEDIT+28, ERRMSG+4, UPD01+8, UPD01+9

Name	Line Occurrences
Function Call: WRITE	Prompt: CC Line Location: REVDRG+1
Function Call: WRITE	Prompt: INFARCT Line Location: REVDRG+3
Function Call: WRITE	Prompt: MECH Line Location: REVDRG+5
Routine Call	DIC Line Location: DRGEDIT+8
Routine Call	DIE Line Location: DRGEDIT+15 DRGEDIT+21

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(80.2	EN+4*
^ICD - [#80.2]	DRGEDIT+11, FY+1, FY+2, FY+3, FY+4, DRG+7, MORE+1
^ICD("AFY"	UPD01+7*
^ICD(527	UPD01+3

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

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