AUM61D.m

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

 ;06.1;TABLE MAINTENANCE;SEP 28,2001

 ;

ICD9PNEW ;;ICD OPERATION/PROCEDURE, NEW PROCEDURE CODES: CODE NUMBER(#.01)^OPERATION/PROCEDURE(#4)^DESCRIPTION(#10)^Use with Sex(#9.5)^MDC(#80.12)-DRG(#80.12,1-6) (multiples are separated by "~"

 ;;00.18^INFUSON IMUNSPES ANTIB ORG TRN^INFUSION OF IMMUNOSUPPRESSIVE ANTIBODY THERAPY DURING INDUCTION PHASE OF SOLID ORGAN TRANSPLANTATION^^

 ;;00.40^PROCEDURE ON SINGLE VESSEL^PROCEDURE ON SINGLE VESSEL

 ;;00.41^PROCEDURE ON TWO VESSELS^PROCEDURE ON TWO VESSELS

 ;;00.42^PROCEDURE ON THREE VESSELS^PROCEDURE ON THREE VESSELS

 ;;00.43^PROCEDURE FOUR OR MORE VESSEL^PROCEDURE ON FOUR OR MORE VESSELS

 ;;00.45^INSERTION ONE VASCULAR STENT^INSERTION OF ONE VASCULAR STENT

 ;;00.46^INSERTION TWO VASCULAR STENTS^INSERTION OF TWO VASCULAR STENTS

 ;;00.47^INSERTION THREE VASCULAR STENT^INSERTION OF THREE VASCULAR STENTS

 ;;00.48^INSERT FOUR OR > VASCULR STENT^INSERTION OF FOUR OR MORE VASCULAR STENTS

 ;;00.66^PTCA OR CORONARY ATHERECTOMY^PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY^^5-106,518,555

 ;;00.70^HIP REPLAC ACETABULR & FEMORL^REVISION OF HIP REPLACEMENT, BOTH ACETABULAR AND FEMORAL COMPONENTS^^8-471,545

 ;;00.71^REVISIN HIP REPLAC ACETABULAR^REVISION OF HIP REPLACEMENT, ACETABULAR COMPONENT^^8-471,545

 ;;00.72^REVISION HIP REPLACE FEMORAL^REVISION OF HIP REPLACEMENT, FEMORAL COMPONENT^^8-471,545

 ;;00.73^HIP REPLA ACTBUL LINE/FEM HEAD^REVISION OF HIP REPLACEMNT, ACETABULAR LINER AND/OR FEMORAL HEAD ONLY^^8-471,545

 ;;00.74^HIP REPLA SURFAC METL POLYTLEN^HIP REPLACMENT BEARING SURFACE, METAL ON POLYETHYLENE

 ;;00.75^HIP REPLA SURFAC METL ON METL^HIP REPLACEMENT BEARING SURFACE, METAL-ON-METAL

 ;;00.76^HIP REPLA SURFAC CERM ON CERM^HIP REPLACMENT BEARING SURFACE, CERAMIC-ON-CERAMIC

 ;;00.80^REVIS KNEE REPLACEMENT TOTAL^REVISION OF KNEE REPLACEMENT, TOTAL (ALL COMPONENTS)^^8-471,545

 ;;00.81^REVISON KNEE REPLACMNT TIBIAL^REVISION OF KNEE REPLACEMENT, TIBIAL COMPONENT^^8-471,545

 ;;00.82^REVISON KNEE REPLACMNT FEMORAL^REVISION OF KNEE REPLACEMENT, FEMORAL COMPONENT^^8-471,545

 ;;00.83^REVISON KNEE REPLACMNT PATELLA^REVISION OF KNEE REPLACEMENT, PATELLAR COMPONENT^^8-471,545

 ;;00.84^REVIS KNEE REPLAC TIBIAL INSRT^REVISION OF TOTAL KNEE REPLACEMENT, TIBIAL INSERT (LINER)^^8-471,545

 ;;01.26^INSERT CATHTR IN CRANIAL CAVTY^INSERTION OF CATHETER INTO CRANIAL CAVITY

 ;;01.27^REMOV CATHTR FRM CRANAL CAVTY^REMOVAL OF CATHETER FROM CRANIAL CAVITY

 ;;37.41^IMPLNT PROSTEIS CARD DEVC HERT^IMPLANTATION OF PROSTHETIC CARDIAC SUPPORT DEVICE AROUND THE HEART^^5-110,111

 ;;37.49^OTHR REPAIR HEART &PERICARDIUM^OTHER REPAIR OF HEART AND PERICARDIUM^^5-110,111

 ;;39.73^ENDOVAS IMPLNT GRFT THORC AORTA^ENDOVASCULAR IMPLANTATION OF GRAFT IN THORACIC AORTA^^5-110,111

 ;;81.18^SUBTALAR JOINT ARTHROEREISIS^SUBTALAR JOINT ARTHROEREISIS^^8-233,234

 ;;84.56^INSERTION OF (CEMENT) SPACER^INSERTION OF (CEMENT) SPACER

 ;;84.57^REMOVAL OF (CEMENT) SPACER^REMOVAL OF (CEMENT) SPACER

 ;;84.58^IMPLNT INTRSPNUS DECMPRES DEVI^IMPLANTATION OF INTERSPINOUS PROCESS DECOMPRESSION DEVICE^^1-531,532

 ;;84.71^APP EXTERN FIX DEVC, MONPLAN^APPLICATION OF EXTERNAL FIXATOR DEVICE, MONOPLANAR SYSTEM

 ;;84.72^APP EXTERNAL FIX DEVICE RING^APPLICATION OF EXTERNAL FIXATOR DEVICE, RING SYSTEM

 ;;84.73^APP HYBRID EXTRNAL FIXTR DEVCE^APPLICATION OF HYBRID EXTERNAL FIXATOR DEVICE

 ;;86.97^INST/RPLC 1 ARAY NEROSTM PULS^INSERTION OR REPLACEMENT OF SINGLE ARRAY RECHARGEABLE NEUROSTIMULATOR PULSE GENERATOR^^1-7,8

 ;;86.98^INST/RPLC 2 ARAY NEROSTM PULS^INSERTION OR REPLACEMENT OF DUAL ARRAY RECHARGEABLE NEUROSTIMULATOR PULSE GENERATOR^^1-7,8

 ;;92.20^INFUS LIQUD BRACTHRPY RADIOTOP^INFUSION OF LIQUID BRACHYTHERAPY RADIOISOTOPE^

 ;;END

ICD9DINA ;;ICD 9 DIAGNOSIS, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)

 ;;276.5^VOLUME DEPLETION^OCT 1, 2005

 ;;287.3^PRIMARY THROMBOCYTOPENIA^OCT 1, 2005

 ;;567.2^OTHER SUPPURATIVE PERITONITIS^OCT 1, 2005

 ;;567.8^OTHER SPECIFIED PERITONITIS^OCT 1, 2005

 ;;585.^CHRONIC RENAL FAILURE^OCT 1, 2005

 ;;599.6^URINARY OBSTRUCTION, UNSPECIFIED^OCT 1, 2005

 ;;770.1^MECONIUM ASPIRATION SYNDROME^OCT 1, 2005

 ;;799.0^ASPHYXIA^OCT 1, 2005

 ;;996.4^MECHANICAL COMPLICATION OF INTERNAL ORTHOPEDIC DEVICE, IMPLANT, AND GRAFT^OCT 1, 2005

 ;;V12.6^DISEASES OF THE RESPIRATORY SYSTEM^OCT 1, 2005

 ;;V17.8^OTHER MUSCULOSKELETAL DISEASES^OCT 1, 2005

 ;;V26.3^GENETIC COUNSELING AND TESTING^OCT 1, 2005

 ;;V58.1^CHEMOTHERAPY^OCT 1, 2005

 ;;V64.0^VACCINATION NOT CARRIED OUT BECAUSE OF CONTRADICTION^OCT 1, 2005

 ;;END

 ;

ICD9OINA ;;ICD 9 DIAGNOSIS, OTHER INACTIVATED CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)

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

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

 +1       ;06.1;TABLE MAINTENANCE;SEP 28,2001

 +2       ;

ICD9PNEW  ;;ICD OPERATION/PROCEDURE, NEW PROCEDURE CODES: CODE NUMBER(#.01)^OPERATION/PROCEDURE(#4)^DESCRIPTION(#10)^Use with Sex(#9.5)^MDC(#80.12)-DRG(#80.12,1-6) (multiples are separated by "~"

 +1       ;;00.18^INFUSON IMUNSPES ANTIB ORG TRN^INFUSION OF IMMUNOSUPPRESSIVE ANTIBODY THERAPY DURING INDUCTION PHASE OF SOLID ORGAN TRANSPLANTATION^^

 +2       ;;00.40^PROCEDURE ON SINGLE VESSEL^PROCEDURE ON SINGLE VESSEL

 +3       ;;00.41^PROCEDURE ON TWO VESSELS^PROCEDURE ON TWO VESSELS

 +4       ;;00.42^PROCEDURE ON THREE VESSELS^PROCEDURE ON THREE VESSELS

 +5       ;;00.43^PROCEDURE FOUR OR MORE VESSEL^PROCEDURE ON FOUR OR MORE VESSELS

 +6       ;;00.45^INSERTION ONE VASCULAR STENT^INSERTION OF ONE VASCULAR STENT

 +7       ;;00.46^INSERTION TWO VASCULAR STENTS^INSERTION OF TWO VASCULAR STENTS

 +8       ;;00.47^INSERTION THREE VASCULAR STENT^INSERTION OF THREE VASCULAR STENTS

 +9       ;;00.48^INSERT FOUR OR > VASCULR STENT^INSERTION OF FOUR OR MORE VASCULAR STENTS

 +10      ;;00.66^PTCA OR CORONARY ATHERECTOMY^PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY^^5-106,518,555

 +11      ;;00.70^HIP REPLAC ACETABULR & FEMORL^REVISION OF HIP REPLACEMENT, BOTH ACETABULAR AND FEMORAL COMPONENTS^^8-471,545

 +12      ;;00.71^REVISIN HIP REPLAC ACETABULAR^REVISION OF HIP REPLACEMENT, ACETABULAR COMPONENT^^8-471,545

 +13      ;;00.72^REVISION HIP REPLACE FEMORAL^REVISION OF HIP REPLACEMENT, FEMORAL COMPONENT^^8-471,545

 +14      ;;00.73^HIP REPLA ACTBUL LINE/FEM HEAD^REVISION OF HIP REPLACEMNT, ACETABULAR LINER AND/OR FEMORAL HEAD ONLY^^8-471,545

 +15      ;;00.74^HIP REPLA SURFAC METL POLYTLEN^HIP REPLACMENT BEARING SURFACE, METAL ON POLYETHYLENE

 +16      ;;00.75^HIP REPLA SURFAC METL ON METL^HIP REPLACEMENT BEARING SURFACE, METAL-ON-METAL

 +17      ;;00.76^HIP REPLA SURFAC CERM ON CERM^HIP REPLACMENT BEARING SURFACE, CERAMIC-ON-CERAMIC

 +18      ;;00.80^REVIS KNEE REPLACEMENT TOTAL^REVISION OF KNEE REPLACEMENT, TOTAL (ALL COMPONENTS)^^8-471,545

 +19      ;;00.81^REVISON KNEE REPLACMNT TIBIAL^REVISION OF KNEE REPLACEMENT, TIBIAL COMPONENT^^8-471,545

 +20      ;;00.82^REVISON KNEE REPLACMNT FEMORAL^REVISION OF KNEE REPLACEMENT, FEMORAL COMPONENT^^8-471,545

 +21      ;;00.83^REVISON KNEE REPLACMNT PATELLA^REVISION OF KNEE REPLACEMENT, PATELLAR COMPONENT^^8-471,545

 +22      ;;00.84^REVIS KNEE REPLAC TIBIAL INSRT^REVISION OF TOTAL KNEE REPLACEMENT, TIBIAL INSERT (LINER)^^8-471,545

 +23      ;;01.26^INSERT CATHTR IN CRANIAL CAVTY^INSERTION OF CATHETER INTO CRANIAL CAVITY

 +24      ;;01.27^REMOV CATHTR FRM CRANAL CAVTY^REMOVAL OF CATHETER FROM CRANIAL CAVITY

 +25      ;;37.41^IMPLNT PROSTEIS CARD DEVC HERT^IMPLANTATION OF PROSTHETIC CARDIAC SUPPORT DEVICE AROUND THE HEART^^5-110,111

 +26      ;;37.49^OTHR REPAIR HEART &PERICARDIUM^OTHER REPAIR OF HEART AND PERICARDIUM^^5-110,111

 +27      ;;39.73^ENDOVAS IMPLNT GRFT THORC AORTA^ENDOVASCULAR IMPLANTATION OF GRAFT IN THORACIC AORTA^^5-110,111

 +28      ;;81.18^SUBTALAR JOINT ARTHROEREISIS^SUBTALAR JOINT ARTHROEREISIS^^8-233,234

 +29      ;;84.56^INSERTION OF (CEMENT) SPACER^INSERTION OF (CEMENT) SPACER

 +30      ;;84.57^REMOVAL OF (CEMENT) SPACER^REMOVAL OF (CEMENT) SPACER

 +31      ;;84.58^IMPLNT INTRSPNUS DECMPRES DEVI^IMPLANTATION OF INTERSPINOUS PROCESS DECOMPRESSION DEVICE^^1-531,532

 +32      ;;84.71^APP EXTERN FIX DEVC, MONPLAN^APPLICATION OF EXTERNAL FIXATOR DEVICE, MONOPLANAR SYSTEM

 +33      ;;84.72^APP EXTERNAL FIX DEVICE RING^APPLICATION OF EXTERNAL FIXATOR DEVICE, RING SYSTEM

 +34      ;;84.73^APP HYBRID EXTRNAL FIXTR DEVCE^APPLICATION OF HYBRID EXTERNAL FIXATOR DEVICE

 +35      ;;86.97^INST/RPLC 1 ARAY NEROSTM PULS^INSERTION OR REPLACEMENT OF SINGLE ARRAY RECHARGEABLE NEUROSTIMULATOR PULSE GENERATOR^^1-7,8

 +36      ;;86.98^INST/RPLC 2 ARAY NEROSTM PULS^INSERTION OR REPLACEMENT OF DUAL ARRAY RECHARGEABLE NEUROSTIMULATOR PULSE GENERATOR^^1-7,8

 +37      ;;92.20^INFUS LIQUD BRACTHRPY RADIOTOP^INFUSION OF LIQUID BRACHYTHERAPY RADIOISOTOPE^

 +38      ;;END

ICD9DINA  ;;ICD 9 DIAGNOSIS, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)

 +1       ;;276.5^VOLUME DEPLETION^OCT 1, 2005

 +2       ;;287.3^PRIMARY THROMBOCYTOPENIA^OCT 1, 2005

 +3       ;;567.2^OTHER SUPPURATIVE PERITONITIS^OCT 1, 2005

 +4       ;;567.8^OTHER SPECIFIED PERITONITIS^OCT 1, 2005

 +5       ;;585.^CHRONIC RENAL FAILURE^OCT 1, 2005

 +6       ;;599.6^URINARY OBSTRUCTION, UNSPECIFIED^OCT 1, 2005

 +7       ;;770.1^MECONIUM ASPIRATION SYNDROME^OCT 1, 2005

 +8       ;;799.0^ASPHYXIA^OCT 1, 2005

 +9       ;;996.4^MECHANICAL COMPLICATION OF INTERNAL ORTHOPEDIC DEVICE, IMPLANT, AND GRAFT^OCT 1, 2005

 +10      ;;V12.6^DISEASES OF THE RESPIRATORY SYSTEM^OCT 1, 2005

 +11      ;;V17.8^OTHER MUSCULOSKELETAL DISEASES^OCT 1, 2005

 +12      ;;V26.3^GENETIC COUNSELING AND TESTING^OCT 1, 2005

 +13      ;;V58.1^CHEMOTHERAPY^OCT 1, 2005

 +14      ;;V64.0^VACCINATION NOT CARRIED OUT BECAUSE OF CONTRADICTION^OCT 1, 2005

 +15      ;;END

 +16      ;

ICD9OINA  ;;ICD 9 DIAGNOSIS, OTHER INACTIVATED CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)

 +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