AUM41A ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 E CODES FOR FY 2004 ; [ 08/18/2003 4:01 PM ]
;;04.1;TABLE MAINTENANCE;;SEP 28,2001
;
ICD9NEW ;;ICD 9 DIAGNOSIS, NEW CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
;;255.10^PRIMARY ALDOSTERONISM^PRIMARY ALDOSTERONISM^^10^300,301
;;255.11^GLUCOCORTICOID-REMEDI ALDOSTE^GLUCOCORTICOID-REMEDIABLE ALDOSTERONISM^^10^300,301
;;255.12^CONN'S SYNDROME^CONN'S SYNDROME^^10^300,301
;;255.13^BARTTER'S SYNDROME^BARTTER'S SYNDROME^^10^300,301
;;255.14^OTHER SECONDARY ALDOSTERONISM^OTHER SECONDARY ALDOSTERONISM^^10^300,301
;;277.81^PRIMARY CARNITINE DEFICIENCY^PRIMARY CARNITINE DEFICIENCY^^10^299
;;277.82^CARNITINE DEFIC INBORN METABO^CARNITINE DEFICIENCY DUE TO INBORN ERRORS OF METABOLISM^^10^299
;;277.83^IATROGENIC CARNITINE DEFICIENC^IATROGENIC CARNITINE DEFICIENCY^^10^299
;;277.84^OTHER SEC CARNITINE DEFICIENCY^OTHER SECONDARY CARNITINE DEFICIENCY^^10^299
;;277.89^OTH SPEC DISORDERS METABOLISM^OTHER SPECIFIED DISORDERS OF METABOLISM^^10^299
;;282.41^SICKLE-CELL THALASSEMIA W/O CR^SICKLE-CELL THALASSEMIA WITHOUT CRISIS^^15^387,389
;;282.42^SICKLE-CELL THALASSEMIA W CRIS^SICKLE-CELL THALASSEMIA WITH CRISIS^^15^387,389
;;282.49^OTHER THALASSEMIA^OTHER THALASSEMIA^^15^387,389
;;282.64^SICKLE-CELL/HB-C W CRISIS^SICKLE-CELL/HB-C DISEASE WITH CRISIS^^16^395,396
;;282.68^OTHER SICKLE-CELL DIS W/O CRIS^OTHER SICKLE-CELL DISEASE WITHOUT CRISIS^^16^395,396
;;289.52^SPLENIC SEQUESTRATION^SPLENIC SEQUESTRATION^^16^398,399
;;289.81^PRIMARY HYPERCOAGULABLE STATE^PRIMARY HYPERCOAGULABLE STATE^^16^398,399
;;289.82^SEC HYPERCOAGULABLE STATE^SECONDARY HYPERCOAGULABLE STATE^^16^398,399
;;289.89^OTH SPEC DIS BLOOD-FORMING ORG^OTHER SPECIFIED DISEASES OF BLOOD AND BLOOD-FORMING ORGANS^^16^398,399
;;331.11^PICK'S DISEASE^PICK'S DISEASE^^1^12
;;331.19^OTHER FRONTOTEMPORAL DEMENTIA^OTHER FRONTOTEMPORAL DEMENTIA^^1^12
;;331.82^DEMENTIA WITH LEWY BODIES^DEMENTIA WITH LEWY BODIES^^1^12
;;348.30^ENCEPHALOPATHY, UNSPECIFIED^ENCEPHALOPATHY, UNSPECIFIED^^1^16,17
;;348.31^METABOLIC ENCEPHALOPATHY^METABOLIC ENCEPHALOPATHY^^1^16,17
;;348.39^OTHER ENCEPHALOPATHY^OTHER ENCEPHALOPATHY^^1^16,17
;;358.00^MYASTHENIA GRAVIS W/O ACUTE EX^MYASTHENIA GRAVIS WITHOUT (ACUTE) EXACERBATION^^1^12
;;358.01^MYASTHENIA GRAVIS W ACUTE EXA^MYASTHENIA GRAVIS WITH (ACUTE) EXACERBATION^^1^12
;;414.07^CORON ATHER BYPASS GFT ARTERY^CORONARY ATHEROSCLEROSIS, OF BYPASS GRAFT (ARTERY) (VEIN) OF TRANSPLANTED HEART^^5^132,133
;;458.21^HYPOTENSION OF HEMODIALYSIS^HYPOTENSION OF HEMODIALYSIS^^5^141,142
;;458.29^OTHER IATROGENIC HYPOTENSION^OTHER IATROGENIC HYPOTENSION^^5^141,142
;;493.81^EXERCISE INDUCED BRONCHOSPASM^EXERCISE INDUCED BRONCHOSPASM^^4^96,97,98
;;493.82^COUGH VARIANT ASTHMA^COUGH VARIANT ASTHMA^^4^96,97,98
;;517.3^ACUTE CHEST SYNDROME^ACUTE CHEST SYNDROME^^4^92,93
;;530.20^ULCER ESOPHAGUS W/O BLEEDING^ULCER OF ESOPHAGUS WITHOUT BLEEDING^^6^176
;;530.21^ULCER ESOPHAGUS W BLEEDING^ULCER OF ESOPHAGUS WITH BLEEDING^^6^176
;;530.85^BARRETT'S ESOPHAGUS^BARRETT'S ESOPHAGUS^^6^176
;;600.00^HYPER BENIGN PROSTATE W/O URI^HYPERTROPHY (BENIGN) OF PROSTATE WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
;;600.01^HYPER BENIGN PROSTATE W URIN^HYPERTROPHY (BENIGN) OF PROSTATE WITH URINARY OBSTRUCTION^MALE^12^348,349
;;600.10^NODULAR PROSTATE W/O OBSTRUCT^NODULAR PROSTATE WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
;;600.11^NODULAR PROSTATE W OBSTRUCT^NODULAR PROSTATE WITH URINARY OBSTRUCTION^MALE^12^348,349
;;600.20^BENIGN PROSTATE W/O OBSTRUCT^BENIGN LOCALIZED HYPERPLASIA OF PROSTATE WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
;;600.21^BENIGN PROSTATE WITH OBSTRUCT^BENIGN LOCALIZED HYPERPLASIA OF PROSTATE WITH URINARY OBSTRUCTION^MALE^12^348,349
;;600.90^PROSTATE UNSPEC W/O OBSTRUCT^HYPERPLASIA OF PROSTATE, UNSPECIFIED, WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
;;600.91^PROSTATE UNSPEC WITH OBSTRUCT^HYPERPLASIA OF PROSTATE, UNSPECIFIED, WITH URINARY OBSTRUCTION^MALE^12^348,349
;;607.85^PEYRONIE'S DISEASE^PEYRONIE'S DISEASE^MALE^12^352
;;674.50^PERIPARTUM CARDIOMYO UNSPEC^PERIPARTUM CARDIOMYOPATHY, UNSPECIFIED AS TO EPISODE OF CARE OR NOT APPLICABLE^FEMALE^14^469
;;674.51^PERIPART DELIV W OR W/O ANTEPA^PERIPARTUM CARDIOMYOPATHY, DELIVERED, WITH OR WITHOUT MENTION OF ANTEPARTUM CONDITION^FEMALE^14^370,371,372,374,375
;;674.52^PERIPARTUM DELIV W POSTPARTUM^PERIPARTUM CARDIOMYOPATHY, DELIVERED, WITH MENTION OF POSTPARTUM CONDITION^FEMALE^14^370,371,372,374,375
;;674.53^PERIPARTUM CARDIOMYO ANTEPART^PERIPARTUM CARDIOMYOPATHY, ANTEPARTUM CONDITION OR COMPLICATION^FEMALE^14^383,384
;;674.54^PERIPARTUM CARDIOMYO POSTPART^PERIPARTUM CARDIOMYOPATHY, POSTPARTUM CONDITION OR COMPLICATION^FEMALE^14^376,377
;;719.7^DIFFICULTY IN WALKING^DIFFICULTY IN WALKING^^8^247
;;728.87^MUSCLE WEAKNESS^MUSCLE WEAKNESS^^8^247
;;728.88^RHABDOMYOLYSIS^RHABDOMYOLYSIS^^8^248
;;752.81^SCROTAL TRANSPOSITION^SCROTAL TRANSPOSITION^MALE^12^352
;;752.89^OTH SPEC ANOMALIES GENITAL ORG^OTHER SPECIFIED ANOMALIES OF GENITAL ORGANS^^12^352
;;766.21^POST-TERM INFANT^POST-TERM INFANT^^15^391
;;766.22^PROLONGED GESTATION OF INFANT^PROLONGED GESTATION OF INFANT^^15^391
;;767.11^EPICRANIAL SUBAPONEURO HEMOR^EPICRANIAL SUBAPONEUROTIC HEMORRHAGE (MASSIVE)^^15^389
;;767.19^OTHER SCALP INJURIES^OTHER INJURIES TO SCALP^^15^391
;;779.83^DELAYED SEPARATION UMBILICAL^DELAYED SEPARATION OF UMBILICAL CORD^^15^391
;;780.93^MEMORY LOSS^MEMORY LOSS^^23^463,464
;;780.94^EARLY SATIETY^EARLY SATIETY^^23^463,464
;;781.94^FACIAL WEAKNESS^FACIAL WEAKNESS^^1^34,35
;;785.52^SEPTIC SHOCK^SEPTIC SHOCK^^18^416,417
;;788.63^URGENCY OF URINATION^URGENCY OF URINATION^^11^325,326,327
;;790.21^IMPAIRED FASTING GLUCOSE^IMPAIRED FASTING GLUCOSE^^10^296,297,298
;;790.22^IMPAIRED GLUCO TOLERANCE^IMPAIRED GLUCOSE TOLERANCE TEST (ORAL)^^10^296,297,298
;;790.29^OTHER ABNORMAL GLUCOSE^OTHER ABNORMAL GLUCOSE TEST^^10^296,297,298
;;799.81^DECREASED LIBIDO^DECREASED LIBIDO^^23^467
;;799.89^OTHER ILL-DEFINED CONDITIONS^OTHER ILL-DEFINED CONDITIONS^^23^467
;;850.11^LOSS CONSCIOUSNESS LESS 30 MIN^CONCUSSION, WITH LOSS OF CONSCIOUSNESS OF 30 MINUTES OR LESS^^1^31,32,33
;;850.12^LOSS CONSCIOUSNESS OVER 30 MIN^CONCUSSION, WITH LOSS OF CONSCIOUSNESS 31 TO 59 MINUTES^^1^31,32,33
;;959.11^OTHER INJURY OF CHEST WALL^OTHER INJURY OF CHEST WALL^^21^444,445,446
;;959.12^OTHER INJURY OF ABDOMEN^OTHER INJURY OF ABDOMEN^^21^444,445,446
;;959.13^FRAC CORPUS CAVERNOSUM PENIS^FRACTURE OF CORPUS CAVERNOSUM PENIS^^21^444,445,446
;;959.14^OTHER INJURY EXTERNAL GENITALS^OTHER INJURY OF EXTERNAL GENITALS^^21^444,445,446
;;959.19^OTHER INJURY OTHER SITES TRUNK^OTHER INJURY OF OTHER SITES OF TRUNK^^21^444,445,446
;;996.57^COMPLICATION DUE INSULIN PUMP^COMPLICATION, DUE TO INSULIN PUMP^^21^452,453
;;079.82^SARS ASSOCIATED CORONAVIRUS^SARS ASSOCIATED CORONAVIRUS^^18^421,422
;;480.31^PNEUMONIA SARS CORONAVIRUS^PNEUMONIA DUE TO SARS ASSOCIATED CORONAVIRUS^^4^89,90,91
;;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
;
AUM41A ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 E CODES FOR FY 2004 ; [ 08/18/2003 4:01 PM ]
+1 ;;04.1;TABLE MAINTENANCE;;SEP 28,2001
+2 ;
ICD9NEW ;;ICD 9 DIAGNOSIS, NEW CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
+1 ;;255.10^PRIMARY ALDOSTERONISM^PRIMARY ALDOSTERONISM^^10^300,301
+2 ;;255.11^GLUCOCORTICOID-REMEDI ALDOSTE^GLUCOCORTICOID-REMEDIABLE ALDOSTERONISM^^10^300,301
+3 ;;255.12^CONN'S SYNDROME^CONN'S SYNDROME^^10^300,301
+4 ;;255.13^BARTTER'S SYNDROME^BARTTER'S SYNDROME^^10^300,301
+5 ;;255.14^OTHER SECONDARY ALDOSTERONISM^OTHER SECONDARY ALDOSTERONISM^^10^300,301
+6 ;;277.81^PRIMARY CARNITINE DEFICIENCY^PRIMARY CARNITINE DEFICIENCY^^10^299
+7 ;;277.82^CARNITINE DEFIC INBORN METABO^CARNITINE DEFICIENCY DUE TO INBORN ERRORS OF METABOLISM^^10^299
+8 ;;277.83^IATROGENIC CARNITINE DEFICIENC^IATROGENIC CARNITINE DEFICIENCY^^10^299
+9 ;;277.84^OTHER SEC CARNITINE DEFICIENCY^OTHER SECONDARY CARNITINE DEFICIENCY^^10^299
+10 ;;277.89^OTH SPEC DISORDERS METABOLISM^OTHER SPECIFIED DISORDERS OF METABOLISM^^10^299
+11 ;;282.41^SICKLE-CELL THALASSEMIA W/O CR^SICKLE-CELL THALASSEMIA WITHOUT CRISIS^^15^387,389
+12 ;;282.42^SICKLE-CELL THALASSEMIA W CRIS^SICKLE-CELL THALASSEMIA WITH CRISIS^^15^387,389
+13 ;;282.49^OTHER THALASSEMIA^OTHER THALASSEMIA^^15^387,389
+14 ;;282.64^SICKLE-CELL/HB-C W CRISIS^SICKLE-CELL/HB-C DISEASE WITH CRISIS^^16^395,396
+15 ;;282.68^OTHER SICKLE-CELL DIS W/O CRIS^OTHER SICKLE-CELL DISEASE WITHOUT CRISIS^^16^395,396
+16 ;;289.52^SPLENIC SEQUESTRATION^SPLENIC SEQUESTRATION^^16^398,399
+17 ;;289.81^PRIMARY HYPERCOAGULABLE STATE^PRIMARY HYPERCOAGULABLE STATE^^16^398,399
+18 ;;289.82^SEC HYPERCOAGULABLE STATE^SECONDARY HYPERCOAGULABLE STATE^^16^398,399
+19 ;;289.89^OTH SPEC DIS BLOOD-FORMING ORG^OTHER SPECIFIED DISEASES OF BLOOD AND BLOOD-FORMING ORGANS^^16^398,399
+20 ;;331.11^PICK'S DISEASE^PICK'S DISEASE^^1^12
+21 ;;331.19^OTHER FRONTOTEMPORAL DEMENTIA^OTHER FRONTOTEMPORAL DEMENTIA^^1^12
+22 ;;331.82^DEMENTIA WITH LEWY BODIES^DEMENTIA WITH LEWY BODIES^^1^12
+23 ;;348.30^ENCEPHALOPATHY, UNSPECIFIED^ENCEPHALOPATHY, UNSPECIFIED^^1^16,17
+24 ;;348.31^METABOLIC ENCEPHALOPATHY^METABOLIC ENCEPHALOPATHY^^1^16,17
+25 ;;348.39^OTHER ENCEPHALOPATHY^OTHER ENCEPHALOPATHY^^1^16,17
+26 ;;358.00^MYASTHENIA GRAVIS W/O ACUTE EX^MYASTHENIA GRAVIS WITHOUT (ACUTE) EXACERBATION^^1^12
+27 ;;358.01^MYASTHENIA GRAVIS W ACUTE EXA^MYASTHENIA GRAVIS WITH (ACUTE) EXACERBATION^^1^12
+28 ;;414.07^CORON ATHER BYPASS GFT ARTERY^CORONARY ATHEROSCLEROSIS, OF BYPASS GRAFT (ARTERY) (VEIN) OF TRANSPLANTED HEART^^5^132,133
+29 ;;458.21^HYPOTENSION OF HEMODIALYSIS^HYPOTENSION OF HEMODIALYSIS^^5^141,142
+30 ;;458.29^OTHER IATROGENIC HYPOTENSION^OTHER IATROGENIC HYPOTENSION^^5^141,142
+31 ;;493.81^EXERCISE INDUCED BRONCHOSPASM^EXERCISE INDUCED BRONCHOSPASM^^4^96,97,98
+32 ;;493.82^COUGH VARIANT ASTHMA^COUGH VARIANT ASTHMA^^4^96,97,98
+33 ;;517.3^ACUTE CHEST SYNDROME^ACUTE CHEST SYNDROME^^4^92,93
+34 ;;530.20^ULCER ESOPHAGUS W/O BLEEDING^ULCER OF ESOPHAGUS WITHOUT BLEEDING^^6^176
+35 ;;530.21^ULCER ESOPHAGUS W BLEEDING^ULCER OF ESOPHAGUS WITH BLEEDING^^6^176
+36 ;;530.85^BARRETT'S ESOPHAGUS^BARRETT'S ESOPHAGUS^^6^176
+37 ;;600.00^HYPER BENIGN PROSTATE W/O URI^HYPERTROPHY (BENIGN) OF PROSTATE WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
+38 ;;600.01^HYPER BENIGN PROSTATE W URIN^HYPERTROPHY (BENIGN) OF PROSTATE WITH URINARY OBSTRUCTION^MALE^12^348,349
+39 ;;600.10^NODULAR PROSTATE W/O OBSTRUCT^NODULAR PROSTATE WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
+40 ;;600.11^NODULAR PROSTATE W OBSTRUCT^NODULAR PROSTATE WITH URINARY OBSTRUCTION^MALE^12^348,349
+41 ;;600.20^BENIGN PROSTATE W/O OBSTRUCT^BENIGN LOCALIZED HYPERPLASIA OF PROSTATE WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
+42 ;;600.21^BENIGN PROSTATE WITH OBSTRUCT^BENIGN LOCALIZED HYPERPLASIA OF PROSTATE WITH URINARY OBSTRUCTION^MALE^12^348,349
+43 ;;600.90^PROSTATE UNSPEC W/O OBSTRUCT^HYPERPLASIA OF PROSTATE, UNSPECIFIED, WITHOUT URINARY OBSTRUCTION^MALE^12^348,349
+44 ;;600.91^PROSTATE UNSPEC WITH OBSTRUCT^HYPERPLASIA OF PROSTATE, UNSPECIFIED, WITH URINARY OBSTRUCTION^MALE^12^348,349
+45 ;;607.85^PEYRONIE'S DISEASE^PEYRONIE'S DISEASE^MALE^12^352
+46 ;;674.50^PERIPARTUM CARDIOMYO UNSPEC^PERIPARTUM CARDIOMYOPATHY, UNSPECIFIED AS TO EPISODE OF CARE OR NOT APPLICABLE^FEMALE^14^469
+47 ;;674.51^PERIPART DELIV W OR W/O ANTEPA^PERIPARTUM CARDIOMYOPATHY, DELIVERED, WITH OR WITHOUT MENTION OF ANTEPARTUM CONDITION^FEMALE^14^370,371,372,374,375
+48 ;;674.52^PERIPARTUM DELIV W POSTPARTUM^PERIPARTUM CARDIOMYOPATHY, DELIVERED, WITH MENTION OF POSTPARTUM CONDITION^FEMALE^14^370,371,372,374,375
+49 ;;674.53^PERIPARTUM CARDIOMYO ANTEPART^PERIPARTUM CARDIOMYOPATHY, ANTEPARTUM CONDITION OR COMPLICATION^FEMALE^14^383,384
+50 ;;674.54^PERIPARTUM CARDIOMYO POSTPART^PERIPARTUM CARDIOMYOPATHY, POSTPARTUM CONDITION OR COMPLICATION^FEMALE^14^376,377
+51 ;;719.7^DIFFICULTY IN WALKING^DIFFICULTY IN WALKING^^8^247
+52 ;;728.87^MUSCLE WEAKNESS^MUSCLE WEAKNESS^^8^247
+53 ;;728.88^RHABDOMYOLYSIS^RHABDOMYOLYSIS^^8^248
+54 ;;752.81^SCROTAL TRANSPOSITION^SCROTAL TRANSPOSITION^MALE^12^352
+55 ;;752.89^OTH SPEC ANOMALIES GENITAL ORG^OTHER SPECIFIED ANOMALIES OF GENITAL ORGANS^^12^352
+56 ;;766.21^POST-TERM INFANT^POST-TERM INFANT^^15^391
+57 ;;766.22^PROLONGED GESTATION OF INFANT^PROLONGED GESTATION OF INFANT^^15^391
+58 ;;767.11^EPICRANIAL SUBAPONEURO HEMOR^EPICRANIAL SUBAPONEUROTIC HEMORRHAGE (MASSIVE)^^15^389
+59 ;;767.19^OTHER SCALP INJURIES^OTHER INJURIES TO SCALP^^15^391
+60 ;;779.83^DELAYED SEPARATION UMBILICAL^DELAYED SEPARATION OF UMBILICAL CORD^^15^391
+61 ;;780.93^MEMORY LOSS^MEMORY LOSS^^23^463,464
+62 ;;780.94^EARLY SATIETY^EARLY SATIETY^^23^463,464
+63 ;;781.94^FACIAL WEAKNESS^FACIAL WEAKNESS^^1^34,35
+64 ;;785.52^SEPTIC SHOCK^SEPTIC SHOCK^^18^416,417
+65 ;;788.63^URGENCY OF URINATION^URGENCY OF URINATION^^11^325,326,327
+66 ;;790.21^IMPAIRED FASTING GLUCOSE^IMPAIRED FASTING GLUCOSE^^10^296,297,298
+67 ;;790.22^IMPAIRED GLUCO TOLERANCE^IMPAIRED GLUCOSE TOLERANCE TEST (ORAL)^^10^296,297,298
+68 ;;790.29^OTHER ABNORMAL GLUCOSE^OTHER ABNORMAL GLUCOSE TEST^^10^296,297,298
+69 ;;799.81^DECREASED LIBIDO^DECREASED LIBIDO^^23^467
+70 ;;799.89^OTHER ILL-DEFINED CONDITIONS^OTHER ILL-DEFINED CONDITIONS^^23^467
+71 ;;850.11^LOSS CONSCIOUSNESS LESS 30 MIN^CONCUSSION, WITH LOSS OF CONSCIOUSNESS OF 30 MINUTES OR LESS^^1^31,32,33
+72 ;;850.12^LOSS CONSCIOUSNESS OVER 30 MIN^CONCUSSION, WITH LOSS OF CONSCIOUSNESS 31 TO 59 MINUTES^^1^31,32,33
+73 ;;959.11^OTHER INJURY OF CHEST WALL^OTHER INJURY OF CHEST WALL^^21^444,445,446
+74 ;;959.12^OTHER INJURY OF ABDOMEN^OTHER INJURY OF ABDOMEN^^21^444,445,446
+75 ;;959.13^FRAC CORPUS CAVERNOSUM PENIS^FRACTURE OF CORPUS CAVERNOSUM PENIS^^21^444,445,446
+76 ;;959.14^OTHER INJURY EXTERNAL GENITALS^OTHER INJURY OF EXTERNAL GENITALS^^21^444,445,446
+77 ;;959.19^OTHER INJURY OTHER SITES TRUNK^OTHER INJURY OF OTHER SITES OF TRUNK^^21^444,445,446
+78 ;;996.57^COMPLICATION DUE INSULIN PUMP^COMPLICATION, DUE TO INSULIN PUMP^^21^452,453
+79 ;;079.82^SARS ASSOCIATED CORONAVIRUS^SARS ASSOCIATED CORONAVIRUS^^18^421,422
+80 ;;480.31^PNEUMONIA SARS CORONAVIRUS^PNEUMONIA DUE TO SARS ASSOCIATED CORONAVIRUS^^4^89,90,91
+81 ;;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
+6 ;