AUM111F.m

AUM111F ;IHS/SD/RNB - ICD 9 CODES FOR FY 2012 ; [ 09/09/2010   8:30 AM ]

 ;;12.0;TABLE MAINTENANCE;;SEP 27,2011

 ;

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

AUM111F   ;IHS/SD/RNB - ICD 9 CODES FOR FY 2012 ; [ 09/09/2010   8:30 AM ]

 +1       ;;12.0;TABLE MAINTENANCE;;SEP 27,2011

 +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