Routine: ICDDRG0

Information

ICDDRG0 ;ALB/GRR/EG/ADL - DRG GROUPER PROCESSING BEGINS ; 11/13/07 4:06pm

Source file <ICDDRG0.m>

Name	Comments	DBIA/ICR reference
GROUP	;
NEONATE
CONT
ENTER
GETMOR
CKDRG
DODRG	;Go to DRG file and retrieve table entry to use if defined
ORNI(X)	;
END	;
MI	; ; if PTCA and not a bypass
CKBURN	; MDC22 - Burns (extensive, full thickness, or non-extensive)
AGAIN
LOOK8
NBCOMP	; check for complication related to NB
FTBURN	; full thickness burn check
NEONATF	;NEONATE - Continuation of xecute line