Routine: ICD1853P

Package	Total	Call Graph
Kernel	2	$$NOW^XLFDT (BMES,MES)^XPDUTL
VA FileMan	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
ICDPX	;UPDATE PX
DRG	;
MSDRG	;;MS-DRG ^Weights^Geometric mean LOS^Arithmetic mean LOS

FileNo	Call Tags
^ICD0 - [#80.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	DRG+16, DRG+22, DRG+28, DRG+29, DRG+31, DRG+32*
^TMP("DRGWTS"	DRG+6

Name	Field # of Occurrence
DA	ICDPX+1~, ICDPX+3*, DRG+14~
DIE	ICDPX+1~, ICDPX+4*, DRG+14~
DR	ICDPX+1~, ICDPX+6*, DRG+14~
ICDDRG	DRG+12~, DRG+14~, DRG+15, DRG+16, DRG+17, DRG+19~, DRG+21, DRG+22, DRG+23, DRG+24 , DRG+28, DRG+29, DRG+31, DRG+32
ICDEDIT	DRG+2~, DRG+3, DRG+33, DRG+36
ICDERR	DRG+14~
ICDFDA	DRG+14~
ICDFY	DRG+14~
ICDFYR	DRG+19~, DRG+20*, DRG+27, DRG+28, DRG+29, DRG+32
ICDHIGH	DRG+19~, DRG+20, DRG+24, DRG+27
ICDI	DRG+2~, DRG+10*
ICDJ	DRG+19~, DRG+31*, DRG+32
ICDLINE	DRG+12~, DRG+13*, DRG+15, DRG+18, DRG+21, DRG+25
ICDLN	DRG+12~, DRG+13*
ICDLOS	DRG+19~, DRG+25, DRG+26, DRG+27
ICDLOW	DRG+19~, DRG+20, DRG+24, DRG+27
ICDREF	DRG+14~
ICDRTN	DRG+2~, DRG+10*, DRG+13
ICDSTR	DRG+19~, DRG+27*, DRG+28
ICDSUB	DRG+2~, DRG+9*, DRG+10
ICDTAG	DRG+12~, DRG+13*
ICDTEXT	DRG+12~, DRG+13*
ICDTMP	DRG+2~, DRG+5, DRG+6, DRG+7, DRG+8, DRG+17, DRG+18, DRG+23, DRG+34
ICDTOT	DRG+2~, DRG+4, DRG+33
ICDWT	DRG+19~, DRG+25*, DRG+27
ICDX	DRG+19~, DRG+31*
IDENT	ICDPX+1~, ICDPX+5*
U	DRG+15, DRG+21, DRG+25, DRG+27
X	ICDPX+1~, DRG+14~
Y	DRG+14~

Name	Field # of Occurrence
$T(@ICDRTN	DRG+11
$T(@ICDTAG	DRG+13