AUM81B.m

AUM81B ; IHS/ASDST/DMJ,SDR - ICD 9 E CODES FOR FY 2008 ; [ 09/21/2004  10:27 AM ]

 ;;8.1;TABLE MAINTENANCE;;SEP 17,2007

 ;

ICD9ENEW ;;ICD 9, NEW/REVISED E-CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^Use only with sex(#9.5)

 ;;E928.6^ENVIRONMENTAL EXPO TO TOXINS^ENVIRONMENTAL EXPOSURE TO HARMFUL ALGAE AND TOXINS

 ;;E933.6^ORAL BISPHOSPHONATES^ORAL BISPHOSPHONATES

 ;;E933.7^INTRAVENOUS BISPHOSPHONATES^INTRAVENOUS BISPHOSPHONATES

 ;;END

ICD9PREV ;;ICD OPERATION/PROCEDURE, REVISED CODES: CODE NUMBER(#.01)^OPERATION/PROCEDURE(#4)^DESCRIPTION(#10)^MDC(#80.12)-DRG(#80.12,1-6) (Multiple MDCs/DRGs separated by "~")

 ;;00.18^INFUSION OF IMMUNOSUPPRESSIVE ANTIBODY THERAPY^Infusion of immunosuppressive antibody therapy

 ;;00.74^HIP BEARING SURF METAL-ON-POLY^Hip bearing surface, metal-on-polyethylene

 ;;00.75^HIP BEARING SURF METAL-ON-MET^Hip bearing surface, metal-on-metal

 ;;00.76^HIP BEAR SURF CERAMIC-ON-CERA^Hip bearing surface, ceramic-on-ceramic

 ;;00.77^HIP BEAR SURF CERAMIC-ON-POLY^Hip bearing surface, ceramic-on-polyethylene

 ;;07.81^OTHER PARTIAL EXCISION THYMUS^Other partial excision of thymus^^1-40,41,42~4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828~21-907,908,909~24-957,958,959

 ;;07.82^OTHER TOTAL EXCISION THYMUS^Other total excision of thymus^^1-40,41,42~4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828~21-907,908,909~24-957,958,959

 ;;07.92^OTHER INCISION OF THYMUS^Other incision of thymus^^4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828~21-907,908,909~24-957,958,959

 ;;07.99^OTH AND UNSPEC OPERAT THYMUS^Other and unspecified operations on thymus^^4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828

 ;;34.24^OTHER PLEURAL BIOPSY^Other pleural biopsy

 ;;39.8^OPER CAROTID BODY SINUS / OTH^Operations on carotid body, carotid sinus and other vascular bodies^^1-37,38,39~4-166,167,168~5-252,253,254

 ;;53.41^REP OF UMBILIC HERNIA W GRAFT OR PROSTHESIS^Repair of umbilical hernia with graft or prosthesis^^6-353,354,355

 ;;53.61^INCISIONAL HERNIA REPAIR W GRAFT OR PROSTHESIS^Incisional hernia repair with graft or prosthesis^^6-353,354,355~21-907,908,909~24-957,958,959

 ;;53.69^REPAIR OTH HERN ANTER ABDOM^Repair of other hernia of anterior abdominal wall with graft or prosthesis^^6-353,354,355

 ;;99.14^INJECTION OR INFUSION OF GAMMA GLOBULIN^Injection or infusion of gamma globulin

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

AUM81B    ; IHS/ASDST/DMJ,SDR - ICD 9 E CODES FOR FY 2008 ; [ 09/21/2004  10:27 AM ]

 +1       ;;8.1;TABLE MAINTENANCE;;SEP 17,2007

 +2       ;

ICD9ENEW  ;;ICD 9, NEW/REVISED E-CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^Use only with sex(#9.5)

 +1       ;;E928.6^ENVIRONMENTAL EXPO TO TOXINS^ENVIRONMENTAL EXPOSURE TO HARMFUL ALGAE AND TOXINS

 +2       ;;E933.6^ORAL BISPHOSPHONATES^ORAL BISPHOSPHONATES

 +3       ;;E933.7^INTRAVENOUS BISPHOSPHONATES^INTRAVENOUS BISPHOSPHONATES

 +4       ;;END

ICD9PREV  ;;ICD OPERATION/PROCEDURE, REVISED CODES: CODE NUMBER(#.01)^OPERATION/PROCEDURE(#4)^DESCRIPTION(#10)^MDC(#80.12)-DRG(#80.12,1-6) (Multiple MDCs/DRGs separated by "~")

 +1       ;;00.18^INFUSION OF IMMUNOSUPPRESSIVE ANTIBODY THERAPY^Infusion of immunosuppressive antibody therapy

 +2       ;;00.74^HIP BEARING SURF METAL-ON-POLY^Hip bearing surface, metal-on-polyethylene

 +3       ;;00.75^HIP BEARING SURF METAL-ON-MET^Hip bearing surface, metal-on-metal

 +4       ;;00.76^HIP BEAR SURF CERAMIC-ON-CERA^Hip bearing surface, ceramic-on-ceramic

 +5       ;;00.77^HIP BEAR SURF CERAMIC-ON-POLY^Hip bearing surface, ceramic-on-polyethylene

 +6       ;;07.81^OTHER PARTIAL EXCISION THYMUS^Other partial excision of thymus^^1-40,41,42~4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828~21-907,908,909~24-957,958,959

 +7       ;;07.82^OTHER TOTAL EXCISION THYMUS^Other total excision of thymus^^1-40,41,42~4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828~21-907,908,909~24-957,958,959

 +8       ;;07.92^OTHER INCISION OF THYMUS^Other incision of thymus^^4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828~21-907,908,909~24-957,958,959

 +9       ;;07.99^OTH AND UNSPEC OPERAT THYMUS^Other and unspecified operations on thymus^^4-163,164,165~10-628,629,630~16-802,803,804~17-820,821,822,826,827,828

 +10      ;;34.24^OTHER PLEURAL BIOPSY^Other pleural biopsy

 +11      ;;39.8^OPER CAROTID BODY SINUS / OTH^Operations on carotid body, carotid sinus and other vascular bodies^^1-37,38,39~4-166,167,168~5-252,253,254

 +12      ;;53.41^REP OF UMBILIC HERNIA W GRAFT OR PROSTHESIS^Repair of umbilical hernia with graft or prosthesis^^6-353,354,355

 +13      ;;53.61^INCISIONAL HERNIA REPAIR W GRAFT OR PROSTHESIS^Incisional hernia repair with graft or prosthesis^^6-353,354,355~21-907,908,909~24-957,958,959

 +14      ;;53.69^REPAIR OTH HERN ANTER ABDOM^Repair of other hernia of anterior abdominal wall with graft or prosthesis^^6-353,354,355

 +15      ;;99.14^INJECTION OR INFUSION OF GAMMA GLOBULIN^Injection or infusion of gamma globulin

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