- 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