AUM61E ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2005 ; [ 08/18/2003 4:01 PM ]
;06.1;TABLE MAINTENANCE;SEP 28,2001
;
DRGS ;EP
NEW AUMDA,AUMI,AUMLN,DA,DIE,DR
F AUMI=1:1 S AUMLN=$P($T(DRG+AUMI),";;",2) Q:AUMLN="END" D
. S Y=$$IXDIC^AUM61("^ICD(","ILX","B","DRG"_$P(AUMLN,U),80.2,$P(AUMLN,U))
. I Y=-1 Q
. S DA=+Y
. S DR=".01///DRG"_$P(AUMLN,U) ;title
. S DR=DR_";.06///"_$P(AUMLN,U,3) ;surgery?
. S DR=DR_";5///"_$P(AUMLN,U,2) ;MDC
. S DIE="^ICD("
. S AUMDA=DA
. D DIE^AUM61
. S DA(1)=AUMDA
. S DIC(0)="LOX"
. S X=1
. S DIC("P")=$P(^DD(80.2,1,0),"^",2)
. S DIC="^ICD("_DA(1)_",1,"
. S DIC("DR")=".01///"_$P(AUMLN,U,4) ;description
. D ^DIC
Q
DRG ;;DRG^MDC^SURGERY?^DRG TITLE
;;545^8^1^REVISTION OF HIP OR KNEE REPLACEMENT
;;555^5^1^PERCUTANEOUS CARDIOVASCULAR PROC W MAJOR CV DX
;;END
Q
ICD9PINA ;;ICD 9 PROCEDURE, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
;;36.01^SINGLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY WITHOUT MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
;;36.02^SINGLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY AGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY WITH MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
;;36.05^MULTIPLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY PERFORMED DURING THE SAME OPERATION, WITH OR WITHOUT MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
;;37.4^REPAIR OF HEART AND PERICARDIUM^OCT 1, 2005
;;81.61^360 DEGREE SPINAL FUSION, SINGLE INCISION APPROACH^OCT 1, 2005
;;END
ICD9VNEW ;;ICD 9 DIAGNOSIS, NEW V-CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
;;V12.42^PRSNL HIS INFECT CNTRL NRV SYS^PERSONAL HISTORY, INFECTIONS OF THE CENTRAL NERVOUS SYSTEM^^23^467
;;V12.60^PRSNL HIS UNSP DISESE RESP SYS^PERSONAL HISTORY, UNSPECIFIED DISEASE OF RESPIRATORY SYSTEM^^23^467
;;V12.61^PRSNL HIS PNEUMONIA (RECURENT)^PERSONAL HISTORY, PNEUMONIA (RECURRENT)^^23^467
;;V12.69^PRSNL HIS OTR DISESE RESP SYS^PERSONAL HISTORY, OTHER DISEASES OF RESPIRATORY SYSTEM^^23^467
;;V13.02^PRSNL HIS URINARY TRACT INFECT^PERSONAL HISTORY, URINARY (TRACT) INFECTION^^23^467
;;V13.03^PERSONAL HIS NEPHROTIC SYNDROM^PERSONAL HISTORY, NEPHROTIC SYNDROME^^23^467
;;V15.88^HISTORY OF FALL^HISTORY OF FALL^^23^467
;;V17.81^FAMILY HISTORY, OSTEOPOROSIS^FAMILY HISTORY, OSTEOPOROSIS^^23^467
;;V17.89^FMLY HIS MUSCULSKELTL DISES^FAMILY HISTORY, OTHER MUSCULOSKELETAL DISEASES^^23^467
;;V18.90^FMLY HIS GENETIC DISESE CARRIR^FAMILY HISTORY, GENETIC DISEASE CARRIER^^23^467
;;V26.31^TESTING GENETIC DISESE CARIER^TESTING FOR GENETIC DISEASE CARRIER STATUS^^23^467
;;V26.32^OTHER GENETIC TESTING^OTHER GENETIC TESTING^^23^467
;;V26.33^GENETIC COUNSELING^GENETIC COUNSELING^^23^467
;;V46.13^ENCOUNTER WEAN FROM RESPIRATOR^ENCOUNTER FOR WEANING FROM RESPIRATOR (VENTILATOR)^^23^467
;;V46.14^MECHANIC CMPL RESPIRATOR/VENT^MECHANICAL COMPLICATION OF RESPIRATOR (VENTILATOR)^^23^467
;;V49.84^BED CONFINEMENT STATUS^BED CONFINEMENT STATUS^^23^467
;;V58.11^ENCOUNTER ANTINEOPLASTIC CHEMO^ENCOUNTER FOR ANTINEOPLASTIC CHEMOTHERAPY^^17^410,492
;;V58.12^ENCNTR IMUNTHRPY NEOPLSTC CON^ENCOUNTER FOR IMMUNOTHERAPY FOR NEOPLASTIC CONDITION^^17^410,492
;;V59.70^EGG OOCYTE OVUM DONOR UNSPEC^EGG (OOCYTE) (OVUM) DONOR, UNSPECIFIED^F^23^467
;;V59.71^EGG OCYT OVUM DNR <35 UNK REC^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, ANONYMOUS RECIPIENT^F^23^467
;;V59.72^EGG OCYT OVUM DNR <35 DES REC^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, DESIGNATED RECIPIENT^F^23^467
;;V59.73^EGG OCYT OVUM DNR </>35 UNK RP^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, AND OVER ANONYMOUS RECIPIENT^F^23^467
;;V59.74^EGG OCYT OVUM DNR </>35 DES RP^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, AND OVER DESIGNATED RECIPIENT^F^23^467
;;V62.84^SUICIDAL IDEATION^SUICIDAL IDEATION^^19^425
;;V64.00^VACCIN NOT CARIED OT UNSPC RA^VACCINATION NOT CARRIED OUT, UNSPECIFIED REASON^^23^467
;;V64.01^VACCIN NOT ADMIN ACUTE ILLLNES^VACCINATION NOT CARRIED OUT BECAUSE OF ACUTE ILLNESS^^23^467
;;V64.02^VACCIN NOT ADMIN CHRONIC ILL^VACCINATION NOT CARRIED OUT BECAUSE OF CHRONIC ILLNESS OR CONDITION^^23^467
;;V64.03^VACCIN NOT ADMIN IMUNE COMP ST^VACCINATION NOT CARRIED OUT BECAUSE OF IMMUNE COMPROMISED STATE^^23^467
;;V64.04^VACCIN NOT ADMIN ALLERGIC^VACCINATION NOT CARRIED OUT BECAUSE OF ALLERGY TO VACCINE OR COMPONENT^^23^467
;;V64.05^VACCIN NO ADMIN REFUSE CAREGIV^VACCINATION NOT CARRIED OUT BECAUSE OF CAREGIVER REFUSAL^^23^467
;;V64.06^VACCIN NO ADMIN REFUSE PATIENT^VACCINATION NOT CARRIED OUT BECAUSE OF PATIENT REFUSAL^^23^467
;;V64.07^VACCIN NO ADMIN REFUSE REGLION^VACCINATION NOT CARRIED OUT FOR RELIGIOUS REASONS^^23^467
;;V64.08^VACCIN NO ADMIN PT HAD DISEASE^VACCINATION NOT CARRIED OUT BECAUSE PATIENT HAD DISEASE BEING VACCINATED AGAINST^^23^467
;;V64.09^VACCIN NOT ADMIN OTHER REASON^VACCINATION NOT CARRIED OUT FOR OTHER REASON^^23^467
;;V69.50^BEHAVORIAL INSOMNIA CHILDHOOD^BEHAVORIAL INSOMNIA OF CHILDHOOD^^23^467
;;V72.42^PREGNANCY EXAM/TEST POSITIVE^PREGNANCY EXAMINATION OR TEST, POSITIVE RESULT^F^23^467
;;V72.86^ENCOUNTER FOR BLOOD TYPING^ENCOUNTER FOR BLOOD TYPING^^23^467
;;V85.00^BODY MASS INDEX <19, ADULT^BODY MASS INDEX LESS THAN 19, ADULT^^23^467
;;V85.10^BODY MASS INDEX 19-24 ADULT^BODY MASS INDEX BETWEEN 19-24, ADULT^^23^467
;;V85.21^BODY MASS INDX 25.0-25.9 ADULT^BODY MASS INDEX 25.0-25.9, ADULT^^23^467
;;V85.22^BODY MASS INDX 26.0-26.9 ADULT^BODY MASS INDEX 26.0-26.9, ADULT^^23^467
;;V85.23^BODY MASS INDX 27.0-27.9 ADULT^BODY MASS INDEX 27.0-27.9, ADULT^^23^467
;;V85.24^BODY MASS INDX 28.0-28.9 ADULT^BODY MASS INDEX 28.0-28.9, ADULT^^23^467
;;V85.25^BODY MASS INDX 29.0-29.9 ADULT^BODY MASS INDEX 29.0-29.9, ADULT^^23^467
;;V85.30^BODY MASS INDX 30.0-30.9 ADULT^BODY MASS INDEX 30.0-30.9, ADULT^^23^467
;;V85.31^BODY MASS INDX 31.0-31.9 ADULT^BODY MASS INDEX 31.0-31.9, ADULT^^23^467
;;V85.32^BODY MASS INDX 32.0-32.9 ADULT^BODY MASS INDEX 32.0-32.9, ADULT^^23^467
;;V85.33^BODY MASS INDX 33.0-33.9 ADULT^BODY MASS INDEX 33.0-33.9, ADULT^^23^467
;;V85.34^BODY MASS INDX 34.0-34.9 ADULT^BODY MASS INDEX 34.0-34.9, ADULT^^23^467
;;V85.35^BODY MASS INDX 35.0-35.9 ADULT^BODY MASS INDEX 35.0-35.9, ADULT^^23^467
;;V85.36^BODY MASS INDX 36.0-36.9 ADULT^BODY MASS INDEX 36.0-36.9, ADULT^^23^467
;;V85.37^BODY MASS INDX 37.0-37.9 ADULT^BODY MASS INDEX 37.0-37.9, ADULT^^23^467
;;V85.38^BODY MASS INDX 38.0-38.9 ADULT^BODY MASS INDEX 38.0-38.9, ADULT^^23^467
;;V85.39^BODY MASS INDX 39.0-39.9 ADULT^BODY MASS INDEX 39.0-39.9, ADULT^^23^467
;;V85.40^BODY MASS INDEX 40 AND > ADULT^BODY MASS INDEX 40 AND OVER, ADULT^^10^296,297,298
;;END
ICD9REV2 ;
;;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
AUM61E ;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 ;
DRGS ;EP
+1 NEW AUMDA,AUMI,AUMLN,DA,DIE,DR
+2 FOR AUMI=1:1
SET AUMLN=$PIECE($TEXT(DRG+AUMI),";;",2)
IF AUMLN="END"
QUIT
Begin DoDot:1
+3 SET Y=$$IXDIC^AUM61("^ICD(","ILX","B","DRG"_$PIECE(AUMLN,U),80.2,$PIECE(AUMLN,U))
+4 IF Y=-1
QUIT
+5 SET DA=+Y
+6 ;title
SET DR=".01///DRG"_$PIECE(AUMLN,U)
+7 ;surgery?
SET DR=DR_";.06///"_$PIECE(AUMLN,U,3)
+8 ;MDC
SET DR=DR_";5///"_$PIECE(AUMLN,U,2)
+9 SET DIE="^ICD("
+10 SET AUMDA=DA
+11 DO DIE^AUM61
+12 SET DA(1)=AUMDA
+13 SET DIC(0)="LOX"
+14 SET X=1
+15 SET DIC("P")=$PIECE(^DD(80.2,1,0),"^",2)
+16 SET DIC="^ICD("_DA(1)_",1,"
+17 ;description
SET DIC("DR")=".01///"_$PIECE(AUMLN,U,4)
+18 DO ^DIC
End DoDot:1
+19 QUIT
DRG ;;DRG^MDC^SURGERY?^DRG TITLE
+1 ;;545^8^1^REVISTION OF HIP OR KNEE REPLACEMENT
+2 ;;555^5^1^PERCUTANEOUS CARDIOVASCULAR PROC W MAJOR CV DX
+3 ;;END
+4 QUIT
ICD9PINA ;;ICD 9 PROCEDURE, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
+1 ;;36.01^SINGLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY WITHOUT MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
+2 ;;36.02^SINGLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY AGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY WITH MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
+3 ;;36.05^MULTIPLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY PERFORMED DURING THE SAME OPERATION, WITH OR WITHOUT MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
+4 ;;37.4^REPAIR OF HEART AND PERICARDIUM^OCT 1, 2005
+5 ;;81.61^360 DEGREE SPINAL FUSION, SINGLE INCISION APPROACH^OCT 1, 2005
+6 ;;END
ICD9VNEW ;;ICD 9 DIAGNOSIS, NEW V-CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
+1 ;;V12.42^PRSNL HIS INFECT CNTRL NRV SYS^PERSONAL HISTORY, INFECTIONS OF THE CENTRAL NERVOUS SYSTEM^^23^467
+2 ;;V12.60^PRSNL HIS UNSP DISESE RESP SYS^PERSONAL HISTORY, UNSPECIFIED DISEASE OF RESPIRATORY SYSTEM^^23^467
+3 ;;V12.61^PRSNL HIS PNEUMONIA (RECURENT)^PERSONAL HISTORY, PNEUMONIA (RECURRENT)^^23^467
+4 ;;V12.69^PRSNL HIS OTR DISESE RESP SYS^PERSONAL HISTORY, OTHER DISEASES OF RESPIRATORY SYSTEM^^23^467
+5 ;;V13.02^PRSNL HIS URINARY TRACT INFECT^PERSONAL HISTORY, URINARY (TRACT) INFECTION^^23^467
+6 ;;V13.03^PERSONAL HIS NEPHROTIC SYNDROM^PERSONAL HISTORY, NEPHROTIC SYNDROME^^23^467
+7 ;;V15.88^HISTORY OF FALL^HISTORY OF FALL^^23^467
+8 ;;V17.81^FAMILY HISTORY, OSTEOPOROSIS^FAMILY HISTORY, OSTEOPOROSIS^^23^467
+9 ;;V17.89^FMLY HIS MUSCULSKELTL DISES^FAMILY HISTORY, OTHER MUSCULOSKELETAL DISEASES^^23^467
+10 ;;V18.90^FMLY HIS GENETIC DISESE CARRIR^FAMILY HISTORY, GENETIC DISEASE CARRIER^^23^467
+11 ;;V26.31^TESTING GENETIC DISESE CARIER^TESTING FOR GENETIC DISEASE CARRIER STATUS^^23^467
+12 ;;V26.32^OTHER GENETIC TESTING^OTHER GENETIC TESTING^^23^467
+13 ;;V26.33^GENETIC COUNSELING^GENETIC COUNSELING^^23^467
+14 ;;V46.13^ENCOUNTER WEAN FROM RESPIRATOR^ENCOUNTER FOR WEANING FROM RESPIRATOR (VENTILATOR)^^23^467
+15 ;;V46.14^MECHANIC CMPL RESPIRATOR/VENT^MECHANICAL COMPLICATION OF RESPIRATOR (VENTILATOR)^^23^467
+16 ;;V49.84^BED CONFINEMENT STATUS^BED CONFINEMENT STATUS^^23^467
+17 ;;V58.11^ENCOUNTER ANTINEOPLASTIC CHEMO^ENCOUNTER FOR ANTINEOPLASTIC CHEMOTHERAPY^^17^410,492
+18 ;;V58.12^ENCNTR IMUNTHRPY NEOPLSTC CON^ENCOUNTER FOR IMMUNOTHERAPY FOR NEOPLASTIC CONDITION^^17^410,492
+19 ;;V59.70^EGG OOCYTE OVUM DONOR UNSPEC^EGG (OOCYTE) (OVUM) DONOR, UNSPECIFIED^F^23^467
+20 ;;V59.71^EGG OCYT OVUM DNR <35 UNK REC^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, ANONYMOUS RECIPIENT^F^23^467
+21 ;;V59.72^EGG OCYT OVUM DNR <35 DES REC^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, DESIGNATED RECIPIENT^F^23^467
+22 ;;V59.73^EGG OCYT OVUM DNR </>35 UNK RP^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, AND OVER ANONYMOUS RECIPIENT^F^23^467
+23 ;;V59.74^EGG OCYT OVUM DNR </>35 DES RP^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, AND OVER DESIGNATED RECIPIENT^F^23^467
+24 ;;V62.84^SUICIDAL IDEATION^SUICIDAL IDEATION^^19^425
+25 ;;V64.00^VACCIN NOT CARIED OT UNSPC RA^VACCINATION NOT CARRIED OUT, UNSPECIFIED REASON^^23^467
+26 ;;V64.01^VACCIN NOT ADMIN ACUTE ILLLNES^VACCINATION NOT CARRIED OUT BECAUSE OF ACUTE ILLNESS^^23^467
+27 ;;V64.02^VACCIN NOT ADMIN CHRONIC ILL^VACCINATION NOT CARRIED OUT BECAUSE OF CHRONIC ILLNESS OR CONDITION^^23^467
+28 ;;V64.03^VACCIN NOT ADMIN IMUNE COMP ST^VACCINATION NOT CARRIED OUT BECAUSE OF IMMUNE COMPROMISED STATE^^23^467
+29 ;;V64.04^VACCIN NOT ADMIN ALLERGIC^VACCINATION NOT CARRIED OUT BECAUSE OF ALLERGY TO VACCINE OR COMPONENT^^23^467
+30 ;;V64.05^VACCIN NO ADMIN REFUSE CAREGIV^VACCINATION NOT CARRIED OUT BECAUSE OF CAREGIVER REFUSAL^^23^467
+31 ;;V64.06^VACCIN NO ADMIN REFUSE PATIENT^VACCINATION NOT CARRIED OUT BECAUSE OF PATIENT REFUSAL^^23^467
+32 ;;V64.07^VACCIN NO ADMIN REFUSE REGLION^VACCINATION NOT CARRIED OUT FOR RELIGIOUS REASONS^^23^467
+33 ;;V64.08^VACCIN NO ADMIN PT HAD DISEASE^VACCINATION NOT CARRIED OUT BECAUSE PATIENT HAD DISEASE BEING VACCINATED AGAINST^^23^467
+34 ;;V64.09^VACCIN NOT ADMIN OTHER REASON^VACCINATION NOT CARRIED OUT FOR OTHER REASON^^23^467
+35 ;;V69.50^BEHAVORIAL INSOMNIA CHILDHOOD^BEHAVORIAL INSOMNIA OF CHILDHOOD^^23^467
+36 ;;V72.42^PREGNANCY EXAM/TEST POSITIVE^PREGNANCY EXAMINATION OR TEST, POSITIVE RESULT^F^23^467
+37 ;;V72.86^ENCOUNTER FOR BLOOD TYPING^ENCOUNTER FOR BLOOD TYPING^^23^467
+38 ;;V85.00^BODY MASS INDEX <19, ADULT^BODY MASS INDEX LESS THAN 19, ADULT^^23^467
+39 ;;V85.10^BODY MASS INDEX 19-24 ADULT^BODY MASS INDEX BETWEEN 19-24, ADULT^^23^467
+40 ;;V85.21^BODY MASS INDX 25.0-25.9 ADULT^BODY MASS INDEX 25.0-25.9, ADULT^^23^467
+41 ;;V85.22^BODY MASS INDX 26.0-26.9 ADULT^BODY MASS INDEX 26.0-26.9, ADULT^^23^467
+42 ;;V85.23^BODY MASS INDX 27.0-27.9 ADULT^BODY MASS INDEX 27.0-27.9, ADULT^^23^467
+43 ;;V85.24^BODY MASS INDX 28.0-28.9 ADULT^BODY MASS INDEX 28.0-28.9, ADULT^^23^467
+44 ;;V85.25^BODY MASS INDX 29.0-29.9 ADULT^BODY MASS INDEX 29.0-29.9, ADULT^^23^467
+45 ;;V85.30^BODY MASS INDX 30.0-30.9 ADULT^BODY MASS INDEX 30.0-30.9, ADULT^^23^467
+46 ;;V85.31^BODY MASS INDX 31.0-31.9 ADULT^BODY MASS INDEX 31.0-31.9, ADULT^^23^467
+47 ;;V85.32^BODY MASS INDX 32.0-32.9 ADULT^BODY MASS INDEX 32.0-32.9, ADULT^^23^467
+48 ;;V85.33^BODY MASS INDX 33.0-33.9 ADULT^BODY MASS INDEX 33.0-33.9, ADULT^^23^467
+49 ;;V85.34^BODY MASS INDX 34.0-34.9 ADULT^BODY MASS INDEX 34.0-34.9, ADULT^^23^467
+50 ;;V85.35^BODY MASS INDX 35.0-35.9 ADULT^BODY MASS INDEX 35.0-35.9, ADULT^^23^467
+51 ;;V85.36^BODY MASS INDX 36.0-36.9 ADULT^BODY MASS INDEX 36.0-36.9, ADULT^^23^467
+52 ;;V85.37^BODY MASS INDX 37.0-37.9 ADULT^BODY MASS INDEX 37.0-37.9, ADULT^^23^467
+53 ;;V85.38^BODY MASS INDX 38.0-38.9 ADULT^BODY MASS INDEX 38.0-38.9, ADULT^^23^467
+54 ;;V85.39^BODY MASS INDX 39.0-39.9 ADULT^BODY MASS INDEX 39.0-39.9, ADULT^^23^467
+55 ;;V85.40^BODY MASS INDEX 40 AND > ADULT^BODY MASS INDEX 40 AND OVER, ADULT^^10^296,297,298
+56 ;;END
ICD9REV2 ;
+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
