Routine: VAFHCDG

Package	Total	Call Graph
Registration	2	$$SCE^DGSDU ($$PIVNW,$$PIVX)^VAFHPIVT
Scheduling	2	$$DATE^SCDXUTL GETDX^SDOE
DRG Grouper	1	$$ICDDX^ICDCODE
Health Level Seven	1	$$HLDATE^HLFNC

Package

Total

Call Graph

$$SCE^DGSDU ($$PIVNW,$$PIVX)^VAFHPIVT

$$DATE^SCDXUTL GETDX^SDOE

$$ICDDX^ICDCODE

$$HLDATE^HLFNC

Package	Total	Caller Graph
Registration	1	VAFHLDG1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
GETPDX(PTR)	;returns first primary diagnois or 0
ODG1(DFN,EVENT,EVDT,VPTR,PSTR,PNUM)	;
COD(ZNODE)	;
DES(CDX)	;
EN1	;

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	COD+8, DES+14
^ICD9("AB"	DES+5, DES+6, DES+7, DES+8, DES+9, DES+10, DES+11, DES+12

Name	Field # of Occurrence
CDX	COD+1~, COD+7, COD+8, COD+9, DES~, DES+3, DES+4, DES+5, DES+6, DES+7 , DES+8, DES+9, DES+10, DES+11, DES+12, DES+13, DES+14, DES+15, DES+16, DES+17 , GETPDX+5, GETPDX+8, GETPDX+9, GETPDX+10
CODE	EN1+1~, EN1+2, EN1+21, EN1+23*, EN1+24, EN1+25, EN1+28
CODMET	EN1+1~, EN1+2, EN1+20, EN1+30
DFN	ODG1~, ODG1+11, ODG1+12, ODG1+14
DG1	EN1+1~, EN1+2, EN1+28, EN1+29, EN1+30*, EN1+32
EVDT	ODG1~, ODG1+11, ODG1+12, ODG1+14, EN1+26, DES+15
EVENT	ODG1~, ODG1+11, ODG1+12, ODG1+13!, ODG1+14*, ODG1+15
FILE	COD+1~, COD+3*, COD+4
HLD	EN1+1~
>> HLFS	EN1+28, EN1+30
ICD	EN1+1~, EN1+2, EN1+24, EN1+25*, EN1+28
LOOP	EN1+1~
NODE	ODG1+12, ODG1+14, ODG1+16*, EN1+21, EN1+23, EN1+31!
OPTR	COD+1~, COD+3*
PNUM	ODG1~, EN1+4*, EN1+30
PSTR	ODG1~, EN1+5, EN1+7, EN1+8*, EN1+9, EN1+20, EN1+21, EN1+22, EN1+26, EN1+29
PTR	COD+1~, COD+3*, COD+4, COD+7, GETPDX~, GETPDX+2, GETPDX+3, GETPDX+6
QUOT	EN1+3*, EN1+21, EN1+24, EN1+25, EN1+26, EN1+31!, COD+4, COD+9, COD+11, DES+3 , DES+11, DES+13, DES+14, DES+16
TD	EN1+1~, EN1+2, EN1+26, EN1+28
VADX	GETPDX+1~, GETPDX+7, GETPDX+8, GETPDX+9
VADX(	GETPDX+8, GETPDX+9
VAENC0	GETPDX+1~, GETPDX+2*, GETPDX+3
VPTR	ODG1~, ODG1+11, ODG1+14
ZNODE	COD~, COD+3

Information