Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AUM101C

AUM101C.m

Go to the documentation of this file.
AUM101C ;IHS/SD/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2010 ; [ 08/18/2003   4:01 PM ]
 ;;10.2;TABLE MAINTENANCE;;MAR 09, 2010
 ;
ICD9REV ;;ICD 9 DIAGNOSIS, MODIFIED CODE TITLES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
 ;;008.65^Enteritis calicivirus^Enteritis due to calicivirus^^6^391,392
 ;;041.3^Klebsiella pneumoniae^Klebsiella pneumoniae^^18^867,868,869
 ;;041.86^Helicobacter pylori^Helicobacter pylori [H. pylori]^^18^867,868,869
 ;;453.2^Oth emb/th inf vena cava^Other venous embolism and thrombosis of inferior vena cava
 ;;453.40^Ac emb/thr unsp low ext^Acute venous embolism and thrombosis of unspecified deep vessels of lower extremity^^5^299,300,301
 ;;453.41^Ac emb/thr prox low ext^Acute venous embolism and thrombosis of deep vessels of proximal lower extremity^^5^299,300,301
 ;;453.42^Ac emb/thr distl low ext^Acute venous embolism and thrombosis of deep vessels of distal lower extremity^^5^299,300,301
 ;;572.2^Hepatic encephalopathy^Hepatic encephalopathy^^7^441,442,443
 ;;584.5^Ac kidny fail, tubr necr^Acute kidney failure with lesion of tubular necrosis^^11^673,674,675,682,683,684
 ;;584.6^Ac kidny fail, cort necr^Acute kidney failure with lesion of renal cortical necrosis^^11^673,674,675,682,683,684
 ;;584.7^Ac kidny fail, medu necr^Acute kidney failure with lesion of renal medullary [papillary] necrosis^^11^673,674,675,682,683,684
 ;;584.8^Acute kidny fail oth les^Acute kidney failure with other specified pathological lesion in kidney^^11^673,674,675,682,683,684
 ;;584.9^Acute kidny fail unspec^Acute kidney failure, unspecified^^11^673,674,675,682,683,684
 ;;639.3^Ac kidny fail, postabor^Kidney failure following abortion and ectopic and molar pregnancies^^14^769,776
 ;;669.30^Ac kidny fail w del-unsp^Acute kidney failure following labor and delivery, unspecified as to episode of care or not applicable^^14^765,766,767,768,774,775
 ;;669.32^Ac kidn fail,del w/pp cc^Acute kidney failure following labor and delivery, delivered, with mention of postpartum complication^^14^765,766,767,768,774
 ;;669.34^Ac kidney fail-pp cc^Acute kidney failure following labor and delivery, postpartum condition or complication^^14^769,776
 ;;670.00^Maj puerp infec unsp^Major puerperal infection, unspecified, unspecified as to episode of care or not applicable^^14^998
 ;;670.02^Maj puer inf del pp cc^Major puerperal infection, unspecified, delivered, with mention of postpartum complication^^14^765,766,767,768,774
 ;;670.04^Major puerp inf pp cc^Major puerperal infection, unspecified, postpartum condition or complication^^14^769,776
 ;;757.6^Spec cong breast anomal^Specified congenital anomalies of breast^^9^600,601
 ;;772.0^NB fetal blood loss^Fetal blood loss affecting newborn^^15^791,793
 ;;776.9^NB unsp hematol disordr^Unspecified hematological disorder specific to newborn^^15^794
 ;;784.40^Voice/reson disord unsp^Voice and resonance disorder, unspecified^^3^154,155,156
 ;;784.49^Oth voice/resonan disord^Other voice and resonance disorders^^3^154,155,156
 ;;793.0^Nonsp abn fd-skull/head^Nonspecific (abnormal) findings on radiological and other examination of skull and head^^1^91,92,93
 ;;793.1^Nonsp abn fd-lung field^Nonspecific (abnormal) findings on radiological and other examination of lung field^^4^204
 ;;793.2^Nonsp abn oth intrathor^Nonspecific (abnormal) findings on radiological and other examination of other intrathoracic organs^^5^302,303
 ;;793.3^Nonsp abn biliary tract^Nonspecific (abnormal) findings on radiological and other examination of biliary tract^^7^444,445,446
 ;;793.4^Nonsp abn find GI tract^Nonspecific (abnormal) findings on radiological and other examination of gastrointestinal tract^^6^391,392
 ;;793.5^Nonsp abn find GU organs^Nonspecific (abnormal) findings on radiological and other examination of genitourinary organs^^11^695,696
 ;;793.6^Nonsp abn fnd-abdom area^Nonspecific (abnormal) findings on radiological and other examination of abdominal area, including retroperitoneum^^6^391,392
 ;;793.7^Nonsp abn find-MS system^Nonspecific (abnormal) findings on radiological and other examination of musculoskeletal system^^8^564,565,566
 ;;793.89^Oth abn finding-breast^Other (abnormal) findings on radiological examination of breast^^9^600,601
 ;;793.99^Oth nonsp abn find-body^Other nonspecific (abnormal) findings on radiological and other examination of body structure^^23^947,948
 ;;813.45^Torus fx radius/alone^Torus fracture of radius (alone)^^8^562,563
 ;;996.43^Broken prosth jnt implnt^Broken prosthetic joint implant^^8^559,560,561
 ;;E876.5^Wrong OP, correct pt^Performance of wrong operation (procedure) on correct patient
 ;;V15.06^Allergy insect/arachnds^Allergy to insects and arachnids^^23^951
 ;;V15.84^Hx-contct/expos asbestos^Personal history of contact with and (suspected) exposure to asbestos^^23^951
 ;;V15.85^Hx-cont/exps haz bdy fld^Personal history of contact with and (suspected) exposure to potentially hazardous body fluids^^23^951
 ;;V15.86^Hx-contact/exposure lead^Personal history of contact with and (suspected) exposure to lead^^23^951
 ;;V57.3^Speech-language therapy^Care involving speech-language therapy^^23^945,946
 ;;V61.29^Oth parent-child problem^Other parent-child problems^^23^951
 ;;V65.11^Ped pre-brth vst-parent^Pediatric pre-birth visit for expectant parent(s)^^23^951
 ;;END
 ;
ICD9OREV ;;ICD 9 DIAGNOSIS, OTHER MODIFIED CODE TITLES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)^LOWER AGE(#9999999.01)^UPPER AGE(#9999999.02)
 ;;END
ICD0OREV ;;ICD OPERATION/PROCEDURE, OTHER REVISED CODES: CODE NUMBER(#.01)^OPERATION/PROCEDURE(#4)^DESCRIPTION(#10)^MDC(#80.12)-DRG(#80.12,1-6) (Multiple MDCs/DRGs separated by "~")
 ;;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