Routine: AUM51E

Information

AUM51E ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2005 ; [ 08/18/2003 4:01 PM ]

Source file <AUM51E.m>

Name	Comments	DBIA/ICR reference
PRNT	;
ICD9VNEW	;;ICD 9 DIAGNOSIS, NEW V-CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
ICD9REV2	;
ICD9PINA	;;ICD 9 PROCEDURE, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)

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