AUM111B.m

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

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

ICD9ENEW ;;ICD 9, NEW/REVISED E-CODES: CODE#(#.01)^DIAG(#3)^DESC(#10)^Use only w/sex(#9.5)

 ;;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

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

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

ICD9ENEW  ;;ICD 9, NEW/REVISED E-CODES: CODE#(#.01)^DIAG(#3)^DESC(#10)^Use only w/sex(#9.5)

 +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