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

AUM81E.m

Go to the documentation of this file. 
AUM81E ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2007 ; [ 08/18/2003   4:01 PM ]

 ;;8.1;TABLE MAINTENANCE;;SEP 17,2007

 ;

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^AUM81("^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^AUM81

 .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

 ;;560^1^^Bacterial & Tuberculosis Infections of Nervous System

 ;;561^1^^Non-Bacterial Infections of Nervous System Except Viral Meningitis

 ;;562^1^^Seizure with CC

 ;;563^1^^Seizure without CC

 ;;564^1^^Headache

 ;;583^1^^Carotid Artery Stent Procedures

 ;;565^4^^Respiratory Dx with Ventilator 96+ hours

 ;;566^4^^Respiratory Dx with Ventilator <96 hours

 ;;571^6^^Major Esophageal Disorders

 ;;572^6^^Major GI Disorders and Peritoneal Infections

 ;;569^6^^Major Small/Large Bowel Proc w/ CC w/ Major GI Dx

 ;;570^6^^Major Small/Large Bowel Proc w/ CC w/o Major GI Dx

 ;;567^6^^Stomach / Esophageal / Duodenal Procedures Age >17 w/CC w/ Major GI Dx

 ;;568^6^^Stomach / Esophageal / Duodenal Procedures Age >17 w/CC w/o Major GI Dx

 ;;573^11^^Major Bladder Procedures

 ;;574^16^^Major Hematologic / Immunologic Dx Except Sickle Cell Crisis and Coagulation Disorders

 ;;578^18^^Infectious / Parasitic Diseases with OR Procedure

 ;;579^18^^Postop / Posttraumatic Infection with OR Procedure

 ;;575^18^^Septicemia w/ Mechanical Vent 96+ hr, Age >17

 ;;576^18^^Septicemia w/o Mechanical Vent 96+ hr, Age >17

 ;;553^8^^BONE DISEASES & ARTHROPATHIES W MCC

 ;;554^8^^BONE DISEASES & ARTHROPATHIES W/O MCC

 ;;580^9^1^OTHER SKIN, SUBCUT TISS & BREAST PROC W CC

 ;;581^9^^OTHER SKIN, SUBCUT TISS & BREAST PROC W/O CC/MCC

 ;;606^9^^NON-MALIGNANT BREAST DISORDERS W CC/MCC

 ;;607^9^^MINOR SKIN DISORDERS W MCC

 ;;628^10^1^OTHER ENDOCRINE, NUTRI & METAB O.R.PROC W MCC

 ;;629^10^1^OTHER ENDOCRINE, NUTRI & METAB O.R. PROC W CC

 ;;630^10^1^OTHER ENDOCRINE, NUTRI & METAB O.R. PROC W/O CC/MCC

 ;;643^10^^ENDOCRINE DISORDERS W MCC

 ;;644^10^^ENDOCRINE DISORDERS W CC

 ;;645^10^^ENDOCRINE DISORDERS W/O CC/MCC

 ;;653^11^1^MAJOR BLADDER PROCEDURES W MCC

 ;;654^11^1^MAJOR BLADDER PROCEDURES W CC

 ;;655^11^1^MAJOR BLADDER PROCEDURES W/O CC/MCC

 ;;662^11^1^MINOR BLADDER PROCEDURES W MCC

 ;;663^11^1^MINOR BLADDER PROCEDURES W CC

 ;;664^11^1^MINOR BLADDER PROCEDURES W/O CC/MCC

 ;;673^11^1^OTHER KIDNEY & URINARY TRACT PROCEDURE W MCC

 ;;674^11^1^OTHER KIDNEY & URINARY TRACT PROCEDURE W CC

 ;;675^11^1^OTHER KIDNEY & URINARY TRACT PROCE W/O CC/MCC

 ;;739^13^1^UTERINE, ADNEXA PROC FOR NON-OVARAIN/ADNEXAL MALIGN W MCC

 ;;740^13^1^UTERINE, ADNEXA PROC FOR NON-OVARAIN/ADNEXAL MALIGN W CC

 ;;741^13^1^UTERINE, ADNEXA PROC FOR NON-OVARAIN/ADNEXAL MALIGN W CC/MCC

 ;;742^13^1^UTERINE & ADNEXA PROC FOR NON-MALIGNANCY W CC/MCC

 ;;743^13^1^UTERINE & ADNEXA PROC FOR NON-MALIGNANCY W/O CC/MCC

 ;;744^13^1^D&C, CONIZATION, LAPARASCOPY & TUBAL INTERRUPTION W CC/MCC

 ;;745^13^1^D&C, CONIZATION, LAPARASCOPY & TUBAL INTERRUPTION W/O CC/MCC

 ;;746^13^1^VAGINA, CERVIX & VULVA PROCEDURES W CC/MCC

 ;;747^13^1^VAGINA, CERVIX & VULVA PROCEDURES W/O CC/MCC

 ;;748^13^1^FEMALE REPRODUCTIVE SYSTEM RECONSTRUCTIVE PROCEDURES

 ;;754^13^^MALIGNANCY, FEMALE REPRODUCTIVE SYSTEM W MCC

 ;;760^13^^MENSTRUAL & OTHER FEMALE REPRODUCTIVE SYSTEM DISORDERS W CC/MCC

 ;;761^13^^MENSTRUAL & OTHER FEMALE REPRODUCTIVE SYSTEM DISORDERS W/O CC/MCC

 ;;765^14^1^CESAREAN SECTION W CC/MCC

 ;;766^14^1^CESAREAN SECTION W/O CC/MCC

 ;;767^14^1^VAGINAL DELIVERY W STERILIZATION &/OR D&C

 ;;768^14^1^VAGINAL DELIVERY, W O.R. PROC EXCEPT STERIL &/OR D&C

 ;;769^14^1^POSTPARTUM & POST ABORTION DIAGNOSIS W O.R. PROCEDURE

 ;;774^14^1^VAGINAL DELIVERY W COMPLICATING DIAGNOSES

 ;;775^14^^VAGINAL DELIVERY W/O COMPLICATING DIAGNOSES

 ;;776^14^^POSTPARTUM & POST ABORTION DIAGNOSES W/O O.R. PROCEDURE

 ;;791^15^^PREMATURITY W MAJOR PROBLEMS

 ;;793^15^^FULL TERM NEONATE W MAJOR PROBLEMS

 ;;795^15^^NORMAL NEWBORN

 ;;802^16^1^OTHER O.R. PROC OF THE BLOOD & BLOOD FORMING ORGANS W MCC

 ;;803^16^1^OTHER O.R. PROC OF THE BLOOD & BLOOD FORMING ORGANS W CC

 ;;804^16^1^OTHER O.R. PROC OF THE BLOOD & BLOOD FORMING ORGANS W/O CC/MCC

 ;;808^16^^MAJOR HEMATOL/IMMUN DIAG EXC SICKLE CELL CRISIS & COAGUL W MCC

 ;;809^16^^MAJOR HEMATOL/IMMUN DIAG EXC SICKLE CELL CRISIS & COAGUL W CC

 ;;810^16^^MAJOR HEMATOL/IMMUN DIAG EXC SICKLE CELL CRISIS & COAGUL W/O CC/MCC

 ;;814^16^^RETICULOENDOTHELIAL & IMMUNITY DISORDERS ORDERS W MCC

 ;;815^16^^RETICULOENDOTHELIAL & IMMUNITY DISORDERS ORDERS W CC

 ;;816^16^^RETICULOENDOTHELIAL & IMMUNITY DISORDERS ORDERS W/O CC/MCC

 ;;820^17^1^LYMPHOMA & LEUKEMIA W MAJOR O.R. PROCEDURE W MCC

 ;;821^17^1^LYMPHOMA & LEUKEMIA W MAJOR O.R. PROCEDURE W CC

 ;;822^17^1^LYMPHOMA & LEUKEMIA W MAJOR O.R. PROCEDURE W/O CC/MCC

 ;;823^17^1^LYMPHOMA & NON-ACUTE LEUKEMIA W OTHER O.R. PROC W MCC

 ;;824^17^1^LYMPHOMA & NON-ACUTE LEUKEMIA W OTHER O.R. PROC W CC

 ;;825^17^1^LYMPHOMA & NON-ACUTE LEUKEMIA W OTHER O.R. PROC W/O CC/MCC

 ;;826^17^1^MYELOPROLIF DISORD OR POORLY DIFF NEOPL W MAJ O.R. PROC W MCC

 ;;827^17^1^MYELOPROLIF DISORD OR POORLY DIFF NEOPL W MAJ O.R. PROC W CC

 ;;828^17^1^MYELOPROLIF DISORD OR POORLY DIFF NEOPL W MAJ O.R. PROC W/O CC/MCC

 ;;829^17^1^MYELOPROLIF DISORD OR POORLY DIFF NEOPL W OTHER O.R. PROC W CC/MCC

 ;;830^17^1^MYELOPROLIF DISORD OR POORLY DIFF NEOPL W OTHER O.R. PROC W/O CC/MCC

 ;;843^17^^OTHER MYELOPROLIF DIS OR POORLY DIFF NEOPL DIAG W MCC

 ;;844^17^^OTHER MYELOPROLIF DIS OR POORLY DIFF NEOPL DIAG W CC

 ;;845^17^^OTHER MYELOPROLIF DIS OR POORLY DIFF NEOPL DIAG W/O CC/MCC

 ;;865^18^^VIRAL ILLNESS W MCC

 ;;866^18^^VIRAL ILLNESS W/O MCC

 ;;867^18^^OTHER INFECTIOUS & PARASITIC DISEASES DIAGNOSES W MCC

 ;;868^18^^OTHER INFECTIOUS & PARASITIC DISEASES DIAGNOSES W CC

 ;;869^18^^OTHER INFECTIOUS & PARASITIC DISEASES DIAGNOSES W CC/MCC

 ;;886^19^^BEHAVIORAL & DEVELOPMENTAL DISORDERS

 ;;907^21^1^OTHER O.R. PROCEDURES FOR INJURIES W MCC

 ;;908^21^1^OTHER O.R. PROCEDURES FOR INJURIES W CC

 ;;909^21^1^OTHER O.R. PROCEDURES FOR INJURIES W/O CC/MCC

 ;;947^23^^SIGNS & SYMPTOMS W MCC

 ;;948^23^^SIGNS & SYMPTOMS W/O MCC

 ;;951^23^^OTHER FACTORS INFLUENCING HEALTH STATUS

 ;;957^24^1^OTHER O.R. PROCEDURES FOR MULTIPLE SIGNIFICANT TRAUMA W MCC

 ;;958^24^1^OTHER O.R. PROCEDURES FOR MULTIPLE SIGNIFICANT TRAUMA W CC

 ;;959^24^1^OTHER O.R. PROCEDURES FOR MULTIPLE SIGNIFICANT TRAUMA W/O CC/MCC

 ;;END

 Q

ICD9PINA ;;ICD 9 PROCEDURE, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)

 ;;32.3^Segmental resection of lung^OCT 1, 2007

 ;;32.4^Lobectomy of lung^OCT 1, 2007

 ;;32.5^Complete pneumonectomy^OCT 1, 2007

 ;;84.58^Implantation of interspinous process decompression device^OCT 1, 2007

 ;;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.53^PER HIST OF SUD CARDIA ARREST^Personal history of sudden cardiac arrest^^23^951

 ;;V12.54^TRANSIENT ISCHEM ATT W/O RESI^Personal history of transient ischemic attack (TIA), and cerebral infarction without residual deficits^^23^951

 ;;V13.22^PERS HIST CERVICAL DYSPLASIA^Personal history of cervical dysplasia^^17^843,844,845

 ;;V16.52^FAM HIST MALIG NEOPL BLADDER^Family history of malignant neoplasm, bladder^^23^951

 ;;V17.41^FAM HIST SUDDEN CARDIA DEATH^Family history of sudden cardiac death (SCD)^^23^951

 ;;V17.49^FAM HIST CARDIOVAS DISEASE^Family history of other cardiovascular diseases^^23^951

 ;;V18.11^FAM HIST OF -MEN- SYNDROME^Family history of multiple endocrine neoplasia [MEN] syndrome^^23^951

 ;;V18.19^FAM HIST ENDOCR-METABO DIS^Family history of other endocrine and metabolic diseases^^23^951

 ;;V25.04^COUNSEL FLAM PLAN AVOID PREGN^Counseling and instruction in natural family planning to avoid pregnancy^^23^951

 ;;V26.41^PROCREATIV ADVICE NATL FAM PLA^Procreative counseling and advice using natural family planning^^23^951

 ;;V26.49^OTH PROCREAT MGMT COUNSELING^Other procreative management, counseling and advice^^23^951

 ;;V26.81^ASSISTED REPRODUCT FERT PROCED^Encounter for assisted reproductive fertility procedure cycle^^23^951

 ;;V26.89^OTH SPECIF PROCREATIVE MGMT^Other specified procreative management^^23^951

 ;;V49.85^DUAL SENSORY IMPAIRMENT^Dual sensory impairment^^23^951

 ;;V68.01^DISABILITY EXAMINATION^Disability examination^^23^951

 ;;V68.09^OTHER ISSUE MEDI CERTIFICATE^Other issue of medical certificates^^23^951

 ;;V72.12^HEARING CONSERV AND TREATMENT^Encounter for hearing conservation and treatment^^15^795 

 ;;V73.81^SPEC SCREEN HUMAN PAPILLOMAVI^Special screening examination, Human papillomavirus (HPV)^^23^951

 ;;V84.81^GEN SUSCEP MULT ENDOCR NEOPL^Genetic susceptibility to multiple endocrine neoplasia [MEN]^^23^951

 ;;V84.89^GENE SUSCEP TO OTHER DISEASE^Genetic susceptibility to other disease^^23^951

 ;;END

ICD9NEW2 ;

 ;;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