Routine: ICD15PT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; POST-INSTALL ENTRY POINT
DRGREF	; add routine reference to new DRGs
DRGFIELD	; delete starred field from DRG file
FYUPD	; change FY for weights & trims, break-evens to FM format
WTUP(DRG)	; change wts/trims FY to FM FY references
BEUP(DRG)	;change break-even FY to FM FY references
SERVICE	; update services for break-evens
BEGWT	; entry point for wts & trims update for 95
UPD95	; load fy 95 wwu into ICD DRG file (80.2)
UPD96	; load fy 96 wwu into ICD DRG file (80.2)
FY	;set fy multiple with FYR stats
SETVAR	; SET VARIABLES
MORE	;set 0 node with FY 96 stats

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	DRGREF+2, DRGFIELD+7!, FYUPD+4, FYUPD+5, FYUPD+6, WTUP+2, WTUP+4, WTUP+5!, WTUP+6, BEUP+2 , BEUP+4, BEUP+5, BEUP+6!, BEUP+7, SERVICE+2, SERVICE+3, FY+1, FY+2, FY+3, FY+4 , MORE+1*
^ICD("AFY"	FYUPD+7, FYUPD+9, UPD95+5, UPD96+5*

Name	Field # of Occurrence
^(	FYUPD+9!
^(0	FY+1, MORE+1

Name	Field # of Occurrence
%DT	FYUPD+8~
BE	BEUP+1~, BEUP+2*, BEUP+3, BEUP+4, BEUP+5, BEUP+6, SERVICE+2, SERVICE+3
DA	DRGFIELD+1~, DRGFIELD+3*
DA(1	DRGFIELD+3*
DIK	DRGFIELD+1~, DRGFIELD+3*
DRG	DRGREF+1~, DRGREF+2, FYUPD+2~, FYUPD+4, FYUPD+5, FYUPD+6, WTUP~, WTUP+2, WTUP+4, WTUP+5 , WTUP+6, BEUP~, BEUP+2, BEUP+4, BEUP+5, BEUP+6, BEUP+7, SERVICE+2, SERVICE+3, BEGWT+1~ , FY+1, FY+2, FY+3, FY+4, SETVAR+1*, MORE+1
FMBE	BEUP+1~, BEUP+3*, BEUP+4, BEUP+6, BEUP+7, SERVICE+2, SERVICE+3
FMFY	WTUP+1~, WTUP+3*, WTUP+4, WTUP+5, WTUP+6
FY	FYUPD+2~, FYUPD+7, FYUPD+8, FYUPD+9, WTUP+1~, WTUP+2, WTUP+3, WTUP+4, WTUP+5
FYR	BEGWT+1~, UPD95+1, UPD96+1, FY+1, FY+2, FY+4
I	DRGFIELD+1~, DRGFIELD+7, BEGWT+1~, UPD95+3, UPD95+4, UPD96+3, UPD96+4*
ICDCNT	BEGWT+1~, FY+3*
ICDHIGH	BEGWT+1~, FY+1, SETVAR+1*, MORE+1
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
J	BEGWT+1~, FY+3*, FY+4
SVC	SERVICE+1~, SERVICE+3*
U	FYUPD+1*, WTUP+4, WTUP+6, BEUP+4, BEUP+7, SETVAR+1
WT	BEGWT+1~, UPD95+3, UPD95+4, UPD96+3, UPD96+4, SETVAR+1
X	FYUPD+8~, BEUP+4, SERVICE+1~, SERVICE+2, SERVICE+3
Y	FYUPD+8~, FYUPD+9