AUM101F.m

AUM101F ;IHS/SD/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2010 ; [ 08/18/2003   4:01 PM ]

 ;;10.2;TABLE MAINTENANCE;;MAR 09, 2010

 ;

ICD9NEW3 ;

 ;;END

PRNT ;

 S U="^"

 W !," CODE",?10,"DIAGNOSIS",!?10,"DESCRIPTION",!," -----",?10,"-----------"

 NEW X,Y,P2,P3

 F X=1:1 S Y=$P($T(ICD9NEW+X),";;",3),P2=$P(Y,U,2),P3=$P(Y,U,3) Q:Y="END"  W !," ",$P(Y,U,1),?10,$S($L(P3):P3,1:P2),!?10,P2

 Q

AUM101F   ;IHS/SD/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2010 ; [ 08/18/2003   4:01 PM ]

 +1       ;;10.2;TABLE MAINTENANCE;;MAR 09, 2010

 +2       ;

ICD9NEW3  ;

 +1       ;;END

PRNT      ;

 +1        SET U="^"

 +2        WRITE !," CODE",?10,"DIAGNOSIS",!?10,"DESCRIPTION",!," -----",?10,"-----------"

 +3        NEW X,Y,P2,P3

 +4        FOR X=1:1

               SET Y=$PIECE($TEXT(ICD9NEW+X),";;",3)

               SET P2=$PIECE(Y,U,2)

               SET P3=$PIECE(Y,U,3)

               IF Y="END"

                   QUIT 

               WRITE !," ",$PIECE(Y,U,1),?10,$SELECT($LENGTH(P3):P3,1:P2),!?10,P2

 +5        QUIT