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

AUM51D.m

Go to the documentation of this file. 
  1. AUM51D ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2005 ; [ 08/18/2003   4:01 PM ]
  1.  ;05.1;TABLE MAINTENANCE;SEP 28,2001
  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.  ;;00.16^Pres treat venous bypass graft^Pressurized treatment of venous bypass graft [conduit] with pharmaceutical substance
  1.  ;;00.17^Infusion of vasopressor agent^Infusion of vasopressor agent
  1.  ;;00.21^Intra imag extracranial cereb^Intravascular imaging of extracranial cerebral vessels
  1.  ;;00.22^Intra imag intrathoracic vessl^Intravascular imaging of intrathoracic vessels
  1.  ;;00.23^Intra imag peripheral vessels^Intravascular imaging of peripheral vessels
  1.  ;;00.24^Intra imag coronary vessels^Intravascular imaging of coronary vessels
  1.  ;;00.25^Intra imag renal vessels^Intravascular imaging of renal vessels
  1.  ;;00.28^Intra imag other spec vessels^Intravascular imaging, other specified vessel(s)
  1.  ;;00.29^Intra imag unspec vessel^Intravascular imaging, unspecified vessel(s)
  1.  ;;00.31^Comp assist surgery w/CT/CTA^Computer assisted surgery with CT/CTA
  1.  ;;00.32^Comp assist surgery w/MR/MRA^Computer assisted surgery with MR/MRA
  1.  ;;00.33^Comp assist surg w/fluoroscopy^Computer assisted surgery with flouroscopy
  1.  ;;00.34^Imageless comp assist surgery^Imageless computer assisted surgery
  1.  ;;00.35^Comp assist surg multi dataset^Computer assisted surgery with multiple datasets
  1.  ;;00.39^Oth computer assisted surgery^Other computer assisted surgery
  1.  ;;00.61^Angioplast/atherectom precereb^Percutaneous angioplasty or atherectomy of precerebral (extra cranial) vessel(s)^^1-533,534~5-478,479~21-442,443~24-486
  1.  ;;00.62^Angioplast/atherectom intrcran^Percutaneous angioplasty or atherectomy of intercranial vessel(s)^^1-533,534~5-478,479~21-442,443~24-486
  1.  ;;00.63^Percutan insrt car artry stent^Percutaneous insertion of carotid artery stent(s)
  1.  ;;00.64^Percutan extracran artry stent^Percutaneous insertion of other precerebral (extracranial) artery stent(s)
  1.  ;;00.65^Percutan insrt intcran stent^Percutaneous insertion of intracranial vascular stent(s)
  1.  ;;00.91^Transp from live related donor^Transplant from live related donor
  1.  ;;00.92^Transp live non-related donor^Transplant from live non-related donor
  1.  ;;00.93^Transplant from cadaver^Transplant from cadaver
  1.  ;;27.64^Insertion of palatal implant^Insertion of palatal implant
  1.  ;;37.68^Insrt precut ext hrt assit dev^Insertion of percutaneous external heart assist device^^5-104,105
  1.  ;;37.90^Insrt left atrial append dev^Insertion of left atrial appendage device^^5-518
  1.  ;;44.38^Laparoscopic gastroenterostomy^Laparoscopic gastroenterostomy^^5-120~6-154,155,156~7-201~10-288~17-406,407,539,540
  1.  ;;44.67^Lapar esophagogast sphinc comp^Laparoscopic procedure for creation of esophagogastric sphincteric competence^^6-154,155,156~21-442,443~24-486
  1.  ;;44.68^Laparoscopic gastroplasty^Laparoscopic gastroplasty^^6-154,155,156~10-288~21-442,443~24-486
  1.  ;;44.95^Lapar gastric restrictive proc^Laparoscopic gastric restrictive procedure^^10-288
  1.  ;;44.96^Lapar rev gastric restric proc^Laparoscopic revision of gastric restrictive procedure^^10-288
  1.  ;;44.97^Lapar rmvl gastric restric dev^Laparoscopic removal of gastric restrictive device(s)^^10-288
  1.  ;;44.98^Adj size gastric restric dev^(Laparoscopic) adjustment of size of adjustable gastric restrictive device^^10-288
  1.  ;;81.65^Vertebroplasty^Vertebroplasty^^8-233,234
  1.  ;;81.66^Kyphoplasty^Kyphoplasty^^8-233,234~21-442,443~24-486
  1.  ;;84.53^Imp inter limb length device^Implantation of internal limb lengthening device with kinetic distraction
  1.  ;;84.54^Impl oth inter limb len device^Implantation of other internal limb lengthening device
  1.  ;;84.55^Insertion of bone void filler^Insertion of bone void filler
  1.  ;;84.59^Insertion other spinal devices^Insertion of other spinal devices^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.60^Insrt spinl disc prosth unspec^Insertion of spinal disc prosthesis, not otherwise specified^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.61^Insrt part spnl disc pros cerv^Insertion of partial spinal disc prosthesis, cervical^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.62^Insrt totl spnl disc pros cerv^Insertion of total spinal disc prosthesis, cervical^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.63^Insrt spinl disc prosth thorac^Insertion of spinal disc prosthesis, thoracic^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.64^Partial spinl disc prosth lum^Insertion of partial spinal disc prosthesis, lumosacral^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.65^Total spinl disc prosth lum^Insertion of total spinal disc prosthesis, lumosacral^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.66^Rev/repl art spinl pros cerv^Revision or replacement of artificial spinal disc prosthesis, cervical^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.67^Rev/repl art spinl pros thor^Revision or replacement of artificial spinal disc prosthesis, thoracic^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.68^Rev/repl art spinl pros lum^Revision or replacement of artificial spinal disc prosthesis, lumbosacral^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;84.69^Rev/repl art spinl pros unspec^Revision or replacement of artificial spinal disc prosthesis, not otherwise specified^^1-531,532~8-499,500~21-442,443~24-486
  1.  ;;86.94^Inst/repl sing neurostimul gen^Insertion or replacement of single array neurostimulator pulse generator^^1-7,8
  1.  ;;86.95^Inst/repl oth neurostimul gen^Insertion or replacement of other array neurostimulator pulse generator^^1-7,8
  1.  ;;86.96^Inst/repl oth neurostimul gen^Insertion or replacement of other array neurostimulator pulse generator^^1-7,8
  1.  ;;89.49^AICD check^Automatic implantable cardioverter/defibrillator (AICD) check
  1.  ;;99.78^Aquapheresis^Aquapheresis
  1.  ;;END
  1. ICD9DINA ;;ICD 9 DIAGNOSIS, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
  1.  ;;066.4^West Nile Fever^OCT 1, 2004
  1.  ;;252.0^Hyperparathyroidism^OCT 1, 2004
  1.  ;;347.^Cataplexy and narcolepsy^OCT 1, 2004
  1.  ;;521.1^Excessive Attrition^OCT 1, 2004
  1.  ;;521.2^Abrasion^OCT 1, 2004
  1.  ;;521.3^Erosion^OCT 1, 2004
  1.  ;;521.4^Pathological resorption^OCT 1, 2004
  1.  ;;523.2^Gingival recession^OCT 1, 2004
  1.  ;;524.2^Anomalies of dental arch relationship^OCT 1, 2004
  1.  ;;524.3^Anomalies of tooth position^OCT 1, 2004
  1.  ;;524.5^Dentofacial functional abnormalities^OCT 1, 2004
  1.  ;;524.8^Other specified dentofacial anomalies^OCT 1, 2004
  1.  ;;528.7^Other disturbances of oral epithelium, including tongue^OCT 1, 2004
  1.  ;;588.8^Other specified disorders resulting from impaired renal function^OCT 1, 2004
  1.  ;;618.0^Prolapse of vaginal walls without mention of uterine prolapse^OCT 1, 2004
  1.  ;;618.8^Other specified genital prolapse^OCT 1, 2004
  1.  ;;621.3^Endometrial cystic hyperplasia^OCT 1, 2004
  1.  ;;622.1^Dysplasia of cevix (uteri)^OCT 1, 2004
  1.  ;;707.0^Decubitus ulcer^OCT 1, 2004
  1.  ;;758.3^Autosomal deletion syndromes^OCT 1, 2004
  1.  ;;V01.7^Other viral diseases^OCT 1, 2004
  1.  ;;V46.1^Respirator^OCT 1, 2004
  1.  ;;V72.3^Gynecological examination^OCT 1, 2004
  1.  ;;V72.4^Pregnancy examination or test, pregnancy uncomfirmed^OCT 1, 2004
  1.  ;;END
  1.  ;
  1. ICD9OINA ;;ICD 9 DIAGNOSIS, OTHER INACTIVATED CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
  1.  ;;.0860^DID NOT ANSWER^OCT 1, 2004
  1.  ;;.0870^WIC FOOD PROGRAM^OCT 1, 2004
  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