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

AUM111D.m

Go to the documentation of this file. 
  1. AUM111D ;IHS/SD/RNB - ICD 9 CODES FOR FY 2012 ; [ 09/09/2010   8:30 AM ]
  1.  ;;12.0;TABLE MAINTENANCE;;SEP 27,2011
  1.  ;
  1.  ;
  1. 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.  ;;02.21^Insert/replace EVD^Insertion or replacement of external ventricular drain [EVD]^^1-23,24,25,26,27~17-820,821,822,826,827,828~21-907,908,909~24-955^^
  1.  ;;02.22^Intrcran vent shunt/anas^Intracranial ventricular shunt or anastomosis^^1-23,24,25,26,27~17-820,821,822,826,827,828~21-907,908,909~24-955^^
  1.  ;;12.67^Insert aqueous drain dev^Insertion of aqueous drainage device^^2-116,117~21-907,908,909~24-957,958,959^^
  1.  ;;17.53^Perc ather extracran vsl^Percutaneous atherectomy of extracranial vessel(s)^^1-34,35,36,37,38,39~5-252,253,254~21-907,908,909~24-957,958,959^^
  1.  ;;17.54^Perc ather intracran vsl^Percutaneous atherectomy of intracranial vessel(s)^^1-23,24,25,26,27~5-252,253,254~21-907,908,909~24-957,958,959^^
  1.  ;;17.55^Translum cor atherectomy^Transluminal coronary atherectomy^^5-231,232,246,247,248,249,250,251^^
  1.  ;;17.56^Ather oth non-cor vessel^Atherectomy of other non-coronary vessel(s)^^1-37,38,39~4-166,167,168~5-252,253,254~6-356,357,358~7-423,424,425~8-515,516,517~9-579,580,581~10-628,629,630~11-673,674,675~21-907,908,909~24-957,958,959^^
  1.  ;;17.81^Insert antimicrobial env^Insertion of antimicrobial envelope^^^
  1.  ;;35.05^Endovas repl aortc valve^Endovascular replacement of aortic valve^^5-216,217,218,219,220,221^^
  1.  ;;35.06^Trnsapcl rep aortc valve^Transapical replacement of aortic valve^^5-216,217,218,219,220,221^^
  1.  ;;35.07^Endovas repl pulm valve^Endovascular replacement of pulmonary valve^^5-216,217,218,219,220,221^^
  1.  ;;35.08^Trnsapcl repl pulm valve^Transapical replacement of pulmonary valve^^5-216,217,218,219,220,221^^
  1.  ;;35.09^Endovas repl uns hrt vlv^Endovascular replacement of unspecified heart valve^^5-216,217,218,219,220,221^^
  1.  ;;38.26^Insrt prsr snsr w/o lead^Insertion of implantable pressure sensor without lead for intracardiac or great vessel hemodynamic monitoring^^5-264^^
  1.  ;;39.77^Temp endovsc occls vessl^Temporary (partial) therapeutic endovascular occlusion of vessel^^1-37,38,39~5-252,253,254~21-907,908,909~24-957,958,959^^
  1.  ;;39.78^Endovas impln grft aorta^Endovascular implantation of branching or fenestrated graft(s) in aorta^^5-252,253,254~24-957,958,959^^
  1.  ;;43.82^Lap vertical gastrectomy^Laparoscopic vertical (sleeve) gastrectomy^^5-264~6-326,327,328~10-619,620,621~17-820,821,822,826,827,828~21-907,908,909~24-957,958,959^^
  1.  ;;68.24^Uterine art emb w coils^Uterine artery embolization [UAE] with coils^^13-749,750^^
  1.  ;;68.25^Uterine art emb w/o coil^Uterine artery embolization [UAE] without coils^^13-749,750^^
  1.  ;;END
  1. ICD9DINA ;;ICD 9 DIAGNOSIS, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
  1.  ;;041.4^Escherichia coli [E. coli] infection in conditions classified elsewhere and of unspecified site^OCT 1, 2011
  1.  ;;173.0^Other malignant neoplasm of skin of lip^OCT 1, 2011
  1.  ;;173.1^Other malignant neoplasm of skin of eyelid, including canthus^OCT 1, 2011
  1.  ;;173.2^Other malignant neoplasm of skin of ear and external auditory canal^OCT 1, 2011
  1.  ;;173.3^Other malignant neoplasm of skin of other and unspecified parts of face^OCT 1, 2011
  1.  ;;173.4^Other malignant neoplasm of scalp and skin of neck^OCT 1, 2011
  1.  ;;173.5^Other malignant neoplasm of skin of trunk, except scrotum^OCT 1, 2011
  1.  ;;173.6^Other malignant neoplasm of skin of upper limb, including shoulder^OCT 1, 2011
  1.  ;;173.7^Other malignant neoplasm of skin of lower limb, including hip^OCT 1, 2011
  1.  ;;173.8^Other malignant neoplasm of other specified sites of skin^OCT 1, 2011
  1.  ;;173.9^Other malignant neoplasm of skin, site unspecified^OCT 1, 2011
  1.  ;;284.1^Pancytopenia^OCT 1, 2011
  1.  ;;286.5^Hemorrhagic disorder due to intrinsic circulating anticoagulants^OCT 1, 2011
  1.  ;;310.8^Other specified nonpsychotic mental disorders following organic brain damage^OCT 1, 2011
  1.  ;;425.1^Hypertrophic obstructive cardiomyopathy^OCT 1, 2011
  1.  ;;444.0^Embolism and thrombosis of abdominal aorta^OCT 1, 2011
  1.  ;;512.8^Other spontaneous pneumothorax^OCT 1, 2011
  1.  ;;516.3^Idiopathic fibrosing alveolitis^OCT 1, 2011
  1.  ;;518.5^Pulmonary insufficiency following trauma and surgery^OCT 1, 2011
  1.  ;;596.8^Other specified disorders of bladder^OCT 1, 2011
  1.  ;;631.^Other abnormal product of conception^OCT 1, 2011
  1.  ;;718.60^Unspecified intrapelvic protrusion of acetabulum, site unspecified^OCT 1, 2011
  1.  ;;747.3^Anomalies of pulmonary artery^OCT 1, 2011
  1.  ;;793.1^Nonspecific (abnormal) findings on radiological and other examination of lung field^OCT 1, 2011
  1.  ;;795.5^Nonspecific reaction to tuberculin skin test without active tuberculosis^OCT 1, 2011
  1.  ;;997.4^Digestive system complications^OCT 1, 2011
  1.  ;;998.0^Postoperative shock^OCT 1, 2011
  1.  ;;999.4^Anaphylactic shock due to serum^OCT 1, 2011
  1.  ;;999.5^Other serum reaction^OCT 1, 2011
  1.  ;;V12.2^Personal history of endocrine, metabolic, and immunity disorders^OCT 1, 2011
  1.  ;;V13.8^Personal history of other specified diseases^OCT 1, 2011
  1.  ;;V19.1^Family history of other eye disorders^OCT 1, 2011
  1.  ;;V40.3^Other behavioral problems^OCT 1, 2011
  1.  ;;END
  1. ICD9EINA ;;ICD 9 DIAGNOSIS, INACTIVATED E-CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
  1.  ;;END
  1.  ;
  1. ICD9OINA ;;ICD 9 DIAGNOSIS, OTHER INACTIVATED CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
  1.  ;;END
  1. PRNT ;
  1.  S U="^"
  1.  W !," CODE",?10,"DIAGNOSIS",!?10,"DESCRIPTION",!," -----",?10,"-----------"
  1.  NEW X,Y,P2,P3
  1.  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
  1.  Q