Routine: ICD16PT

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

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

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

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

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*

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

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