- AUM41D ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2004 ; [ 09/09/2003 1:09 PM ]
- ;;04.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.15^HIGH INFUSION INTERLEUKIN-2^HIGH-DOSE INFUSION INTERLEUKIN-2 [IL-2]^^17-492
- ;;37.51^HEART TRANSPLANTATION^HEART TRANSPLANTATION
- ;;37.52^IMPLANT TOTAL REPLACE HEART SYS^IMPLANTATION OF TOTAL REPLACEMENT HEART SYSTEM^^5-525
- ;;37.53^REPLACE THORAC TOTAL REPLA HRT^REPLACEMENT OR REPAIR OF THORACIC UNIT OF TOTAL REPLACEMENT HEART SYSTEM^^5-525
- ;;37.54^REPLACE OTHER IMPLANTABLE HRT^REPLACEMENT OR REPAIR OF OTHER IMPLANTABLE COMPONENT OF TOTAL REPLACEMENT HEART SYSTEM^^5-525
- ;;68.31^LAPAROSCOPIC HYSTERECTOMY LSH^LAPAROSCOPIC SUPRACERVICAL HYSTERECTOMY [LSH]^FEMALE^13-354,355,357,358,359~14-375,358,359
- ;;68.39^OTHER SUB ABD HYSTERECTOMY^OTHER SUBTOTAL ABDOMINAL HYSTERECTOMY, NOS^FEMALE^13-354,355,357,358,359~14-375
- ;;81.62^FUSION OF 2-3 VERTEBRAE^FUSION OR REFUSION OF 2-3 VERTEBRAE
- ;;81.63^FUSION OF 4-8 VERTEBRAE^FUSION OR REFUSION OF 4-8 VERTEBRAE
- ;;81.64^FUSION OF 9 OR MORE VERTEBRAE^FUSION OR REFUSION OF 9 OR MORE VERTEBRAE
- ;;END
- ICD9DINA ;;ICD 9 DIAGNOSIS, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
- ;;255.1^HYPERALDOSTERONISM^OCT 1, 2003
- ;;277.8^OTHER SPECIFIED DISORDERS OF METABOLISM^OCT 1, 2003
- ;;282.4^THALASSEMIAS^OCT 1, 2003
- ;;289.8^OTHER SPECIFIED DISEASES OF BLOOD AND BLOOD-FORMING ORGANS^OCT 1, 2003
- ;;331.1^PICK'S DISEASE^OCT 1, 2003
- ;;348.3^ENCEPHALOPATHY, UNSPECIFIED^OCT 1, 2003
- ;;358.0^MYASTHENIA GRAVIS^OCT 1, 2003
- ;;458.2^IATROGENIC HYPOTENSION^OCT 1, 2003
- ;;530.2^ULCER OF ESOPHAGUS^OCT 1, 2003
- ;;600.0^HYPERTROPHY (BENIGN) OF PROSTATE^OCT 1, 2003
- ;;600.1^NODULAR PROSTATE^OCT 1, 2003
- ;;600.2^BENIGN LOCALIZED HYPERPLASIA OF PROSTATE^OCT 1, 2003
- ;;600.9^HYPERPLASIA OF PROSTATE, UNSPECIFIED^OCT 1, 2003
- ;;719.70^DIFFICULTY IN WALKING, SITE UNSPECIFIED^OCT 1, 2003
- ;;719.75^DIFFICULTY IN WALKING, PELVIC REGION AND THIGH^OCT 1, 2003
- ;;719.76^DIFFICULTY IN WALKING, LOWER LEG^OCT 1, 2003
- ;;719.77^DIFFICULTY IN WALKING, ANKLE AND FOOT^OCT 1, 2003
- ;;719.78^DIFFICULTY IN WALKING, OTHER SPECIFIED SITES^OCT 1, 2003
- ;;719.79^DIFFICULTY IN WALKING, MULTIPLE SITES^OCT 1, 2003
- ;;752.8^OTHER SPECIFIED ANOMALIES OF GENITAL ORGANS^OCT 1, 2003
- ;;766.2^POST TERM INFANT, NOT "HEAVY FOR DATES"^OCT 1, 2003
- ;;767.1^INJURIES TO SCALP^OCT 1, 2003
- ;;790.2^ABNORMAL GLUCOSE TOLERANCE TEST^OCT 1, 2003
- ;;799.8^OTHER ILL-DEFINED CONDITIONS^OCT 1, 2003
- ;;850.1^CONCUSSION, WITH BRIEF LOSS OF CONSCIOUSNESS^OCT 1, 2003
- ;;959.1^INJURY, TRUNK^OCT 1, 2003
- ;;V04.8^NEED FOR PROPHYLACTIC VACCINATION AND INOCULATION AGAINST CERTAIN VIRAL DISEASE, INFLUENZA^OCT 1, 2003
- ;;V43.2^ORGAN OR TISSUE REPLACED BY OTHER MEANS, HEART^OCT 1, 2003
- ;;V53.9^FITTING AND ADJUSTMENT OF OTHER DEVICE, OTHER AND UNSPECIFIED DEVICE^OCT 1, 2003
- ;;V54.0^AFTERCARE INVOLVING REMOVAL OF FRACTURE PLATE OR OTHER INTERNAL FIXATION DEVICE^OCT 1, 2003
- ;;V64.4^LAPAROSCOPIC SURGICAL PROCEDURE CONVERTED TO OPEN PROCEDURE^OCT 1, 2003
- ;;V65.1^PERSON CONSULTING ON BEHALF OF ANOTHER PERSON^OCT 1, 2003
- ;;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
- ;
- AUM41D ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2004 ; [ 09/09/2003 1:09 PM ]
- +1 ;;04.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.15^HIGH INFUSION INTERLEUKIN-2^HIGH-DOSE INFUSION INTERLEUKIN-2 [IL-2]^^17-492
- +2 ;;37.51^HEART TRANSPLANTATION^HEART TRANSPLANTATION
- +3 ;;37.52^IMPLANT TOTAL REPLACE HEART SYS^IMPLANTATION OF TOTAL REPLACEMENT HEART SYSTEM^^5-525
- +4 ;;37.53^REPLACE THORAC TOTAL REPLA HRT^REPLACEMENT OR REPAIR OF THORACIC UNIT OF TOTAL REPLACEMENT HEART SYSTEM^^5-525
- +5 ;;37.54^REPLACE OTHER IMPLANTABLE HRT^REPLACEMENT OR REPAIR OF OTHER IMPLANTABLE COMPONENT OF TOTAL REPLACEMENT HEART SYSTEM^^5-525
- +6 ;;68.31^LAPAROSCOPIC HYSTERECTOMY LSH^LAPAROSCOPIC SUPRACERVICAL HYSTERECTOMY [LSH]^FEMALE^13-354,355,357,358,359~14-375,358,359
- +7 ;;68.39^OTHER SUB ABD HYSTERECTOMY^OTHER SUBTOTAL ABDOMINAL HYSTERECTOMY, NOS^FEMALE^13-354,355,357,358,359~14-375
- +8 ;;81.62^FUSION OF 2-3 VERTEBRAE^FUSION OR REFUSION OF 2-3 VERTEBRAE
- +9 ;;81.63^FUSION OF 4-8 VERTEBRAE^FUSION OR REFUSION OF 4-8 VERTEBRAE
- +10 ;;81.64^FUSION OF 9 OR MORE VERTEBRAE^FUSION OR REFUSION OF 9 OR MORE VERTEBRAE
- +11 ;;END
- ICD9DINA ;;ICD 9 DIAGNOSIS, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
- +1 ;;255.1^HYPERALDOSTERONISM^OCT 1, 2003
- +2 ;;277.8^OTHER SPECIFIED DISORDERS OF METABOLISM^OCT 1, 2003
- +3 ;;282.4^THALASSEMIAS^OCT 1, 2003
- +4 ;;289.8^OTHER SPECIFIED DISEASES OF BLOOD AND BLOOD-FORMING ORGANS^OCT 1, 2003
- +5 ;;331.1^PICK'S DISEASE^OCT 1, 2003
- +6 ;;348.3^ENCEPHALOPATHY, UNSPECIFIED^OCT 1, 2003
- +7 ;;358.0^MYASTHENIA GRAVIS^OCT 1, 2003
- +8 ;;458.2^IATROGENIC HYPOTENSION^OCT 1, 2003
- +9 ;;530.2^ULCER OF ESOPHAGUS^OCT 1, 2003
- +10 ;;600.0^HYPERTROPHY (BENIGN) OF PROSTATE^OCT 1, 2003
- +11 ;;600.1^NODULAR PROSTATE^OCT 1, 2003
- +12 ;;600.2^BENIGN LOCALIZED HYPERPLASIA OF PROSTATE^OCT 1, 2003
- +13 ;;600.9^HYPERPLASIA OF PROSTATE, UNSPECIFIED^OCT 1, 2003
- +14 ;;719.70^DIFFICULTY IN WALKING, SITE UNSPECIFIED^OCT 1, 2003
- +15 ;;719.75^DIFFICULTY IN WALKING, PELVIC REGION AND THIGH^OCT 1, 2003
- +16 ;;719.76^DIFFICULTY IN WALKING, LOWER LEG^OCT 1, 2003
- +17 ;;719.77^DIFFICULTY IN WALKING, ANKLE AND FOOT^OCT 1, 2003
- +18 ;;719.78^DIFFICULTY IN WALKING, OTHER SPECIFIED SITES^OCT 1, 2003
- +19 ;;719.79^DIFFICULTY IN WALKING, MULTIPLE SITES^OCT 1, 2003
- +20 ;;752.8^OTHER SPECIFIED ANOMALIES OF GENITAL ORGANS^OCT 1, 2003
- +21 ;;766.2^POST TERM INFANT, NOT "HEAVY FOR DATES"^OCT 1, 2003
- +22 ;;767.1^INJURIES TO SCALP^OCT 1, 2003
- +23 ;;790.2^ABNORMAL GLUCOSE TOLERANCE TEST^OCT 1, 2003
- +24 ;;799.8^OTHER ILL-DEFINED CONDITIONS^OCT 1, 2003
- +25 ;;850.1^CONCUSSION, WITH BRIEF LOSS OF CONSCIOUSNESS^OCT 1, 2003
- +26 ;;959.1^INJURY, TRUNK^OCT 1, 2003
- +27 ;;V04.8^NEED FOR PROPHYLACTIC VACCINATION AND INOCULATION AGAINST CERTAIN VIRAL DISEASE, INFLUENZA^OCT 1, 2003
- +28 ;;V43.2^ORGAN OR TISSUE REPLACED BY OTHER MEANS, HEART^OCT 1, 2003
- +29 ;;V53.9^FITTING AND ADJUSTMENT OF OTHER DEVICE, OTHER AND UNSPECIFIED DEVICE^OCT 1, 2003
- +30 ;;V54.0^AFTERCARE INVOLVING REMOVAL OF FRACTURE PLATE OR OTHER INTERNAL FIXATION DEVICE^OCT 1, 2003
- +31 ;;V64.4^LAPAROSCOPIC SURGICAL PROCEDURE CONVERTED TO OPEN PROCEDURE^OCT 1, 2003
- +32 ;;V65.1^PERSON CONSULTING ON BEHALF OF ANOTHER PERSON^OCT 1, 2003
- +33 ;;END
- +34 ;
- 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
- +6 ;