Routine: ICD182P

Package	Total	Call Graph
DRG Grouper	8	(ADDDRG,ADDPROC)^ICD182P1 ADDDIAG^ICD182P2 (CHGDIAG,CHGPROC)^ICD182P3 EN^ICD182P4 EN^ICD182P5 ^ICD182PA ^ICD182PB ^ICD182PC
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 2001
UPD01	;- Load FY 2001 into ICD DRG file (#80.2)
FY	;- Set FY multiple with FYR stats
SETVAR	;- Set variables
DRG
MORE	;- Set zero node with FY 2001 stats
REVDRG	;- Description edits

Name	Field # of Occurrence
^DIC	DRGEDIT+8
^DIE	DRGEDIT+15, DRGEDIT+21
ADDDRG^ICD182P1	EN+3
ADDPROC^ICD182P1	EN+11
ADDDIAG^ICD182P2	EN+7
CHGDIAG^ICD182P3	EN+15
CHGPROC^ICD182P3	EN+18
EN^ICD182P4	EN+24
EN^ICD182P5	EN+30
^ICD182PA	UPD01+4
^ICD182PB	UPD01+5
^ICD182PC	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+2
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	EN+8*
^DD(80.1	EN+12*
^DD(80.2	EN+4*
^ICD - [#80.2]	DRGEDIT+11, FY+1, FY+2, FY+3, FY+4, MORE+1
^ICD("AFY"	UPD01+7*
^ICD(511	UPD01+3

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	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*, 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, 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~
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