Routine: AUM31D

Information

AUM31D ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2003 ; [ 01/29/2002 4:01 PM ]

Source file <AUM31D.m>

Name	Comments	DBIA/ICR reference
PRNT	;
ICD9PNEW	;;ICD OPERATION/PROCEDURE, NEW PROCEDURE CODES: CODE NUMBER(#.01)^OPERATION/PROCEDURE(#4)^DESCRIPTION(#10)^Use with Sex(#9.5)^MDC(#80.12)-DRG(#80.12,1-6) (multiples are separated by "~"

Name	Line Occurrences
Function Call: WRITE	Prompt: !," CODE",?10,"DIAGNOSIS",!?10,"DESCRIPTION",!," -----",?10,"-----------" Line Location: PRNT+2
Function Call: WRITE	Prompt: !," ",$P(Y,U,1),?10,$S($L(P3):P3,1:P2),!?10,P2 Line Location: PRNT+4

Name	Field # of Occurrence
$T(ICD9NEW+X	PRNT+4