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

AUM61E.m

Go to the documentation of this file. 
  1. AUM61E ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2005 ; [ 08/18/2003   4:01 PM ]
  1.  ;06.1;TABLE MAINTENANCE;SEP 28,2001
  1.  ;
  1. DRGS ;EP
  1.  NEW AUMDA,AUMI,AUMLN,DA,DIE,DR
  1.  F AUMI=1:1 S AUMLN=$P($T(DRG+AUMI),";;",2) Q:AUMLN="END"  D
  1.  . S Y=$$IXDIC^AUM61("^ICD(","ILX","B","DRG"_$P(AUMLN,U),80.2,$P(AUMLN,U))
  1.  . I Y=-1 Q
  1.  . S DA=+Y
  1.  . S DR=".01///DRG"_$P(AUMLN,U)       ;title
  1.  . S DR=DR_";.06///"_$P(AUMLN,U,3)   ;surgery?
  1.  . S DR=DR_";5///"_$P(AUMLN,U,2)     ;MDC
  1.  . S DIE="^ICD("
  1.  . S AUMDA=DA
  1.  . D DIE^AUM61
  1.  . S DA(1)=AUMDA
  1.  . S DIC(0)="LOX"
  1.  . S X=1
  1.  . S DIC("P")=$P(^DD(80.2,1,0),"^",2)
  1.  . S DIC="^ICD("_DA(1)_",1,"
  1.  . S DIC("DR")=".01///"_$P(AUMLN,U,4)  ;description
  1.  . D ^DIC
  1.  Q
  1. DRG ;;DRG^MDC^SURGERY?^DRG TITLE
  1.  ;;545^8^1^REVISTION OF HIP OR KNEE REPLACEMENT
  1.  ;;555^5^1^PERCUTANEOUS CARDIOVASCULAR PROC W MAJOR CV DX
  1.  ;;END
  1.  Q
  1. ICD9PINA ;;ICD 9 PROCEDURE, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
  1.  ;;36.01^SINGLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY WITHOUT MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
  1.  ;;36.02^SINGLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY AGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY WITH MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
  1.  ;;36.05^MULTIPLE VESSEL PERCUTANEOUS TRANSLUMINAL CORONARY ANGIOPLASTY (PTCA) OR CORONARY ATHERECTOMY PERFORMED DURING THE SAME OPERATION, WITH OR WITHOUT MENTION OF THROMBOLYTIC AGENT^OCT 1, 2005
  1.  ;;37.4^REPAIR OF HEART AND PERICARDIUM^OCT 1, 2005
  1.  ;;81.61^360 DEGREE SPINAL FUSION, SINGLE INCISION APPROACH^OCT 1, 2005
  1.  ;;END
  1. 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)
  1.  ;;V12.42^PRSNL HIS INFECT CNTRL NRV SYS^PERSONAL HISTORY, INFECTIONS OF THE CENTRAL NERVOUS SYSTEM^^23^467
  1.  ;;V12.60^PRSNL HIS UNSP DISESE RESP SYS^PERSONAL HISTORY, UNSPECIFIED DISEASE OF RESPIRATORY SYSTEM^^23^467
  1.  ;;V12.61^PRSNL HIS PNEUMONIA (RECURENT)^PERSONAL HISTORY, PNEUMONIA (RECURRENT)^^23^467
  1.  ;;V12.69^PRSNL HIS OTR DISESE RESP SYS^PERSONAL HISTORY, OTHER DISEASES OF RESPIRATORY SYSTEM^^23^467
  1.  ;;V13.02^PRSNL HIS URINARY TRACT INFECT^PERSONAL HISTORY, URINARY (TRACT) INFECTION^^23^467
  1.  ;;V13.03^PERSONAL HIS NEPHROTIC SYNDROM^PERSONAL HISTORY, NEPHROTIC SYNDROME^^23^467
  1.  ;;V15.88^HISTORY OF FALL^HISTORY OF FALL^^23^467
  1.  ;;V17.81^FAMILY HISTORY, OSTEOPOROSIS^FAMILY HISTORY, OSTEOPOROSIS^^23^467
  1.  ;;V17.89^FMLY HIS MUSCULSKELTL DISES^FAMILY HISTORY, OTHER MUSCULOSKELETAL DISEASES^^23^467
  1.  ;;V18.90^FMLY HIS GENETIC DISESE CARRIR^FAMILY HISTORY, GENETIC DISEASE CARRIER^^23^467
  1.  ;;V26.31^TESTING GENETIC DISESE CARIER^TESTING FOR GENETIC DISEASE CARRIER STATUS^^23^467
  1.  ;;V26.32^OTHER GENETIC TESTING^OTHER GENETIC TESTING^^23^467
  1.  ;;V26.33^GENETIC COUNSELING^GENETIC COUNSELING^^23^467
  1.  ;;V46.13^ENCOUNTER WEAN FROM RESPIRATOR^ENCOUNTER FOR WEANING FROM RESPIRATOR (VENTILATOR)^^23^467
  1.  ;;V46.14^MECHANIC CMPL RESPIRATOR/VENT^MECHANICAL COMPLICATION OF RESPIRATOR (VENTILATOR)^^23^467
  1.  ;;V49.84^BED CONFINEMENT STATUS^BED CONFINEMENT STATUS^^23^467
  1.  ;;V58.11^ENCOUNTER ANTINEOPLASTIC CHEMO^ENCOUNTER FOR ANTINEOPLASTIC CHEMOTHERAPY^^17^410,492
  1.  ;;V58.12^ENCNTR IMUNTHRPY NEOPLSTC CON^ENCOUNTER FOR IMMUNOTHERAPY FOR NEOPLASTIC CONDITION^^17^410,492
  1.  ;;V59.70^EGG OOCYTE OVUM DONOR UNSPEC^EGG (OOCYTE) (OVUM) DONOR, UNSPECIFIED^F^23^467
  1.  ;;V59.71^EGG OCYT OVUM DNR <35 UNK REC^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, ANONYMOUS RECIPIENT^F^23^467
  1.  ;;V59.72^EGG OCYT OVUM DNR <35 DES REC^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, DESIGNATED RECIPIENT^F^23^467
  1.  ;;V59.73^EGG OCYT OVUM DNR </>35 UNK RP^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, AND OVER ANONYMOUS RECIPIENT^F^23^467
  1.  ;;V59.74^EGG OCYT OVUM DNR </>35 DES RP^EGG (OOCYTE) (OVUM) DONOR, UNDER AGE 35, AND OVER DESIGNATED RECIPIENT^F^23^467
  1.  ;;V62.84^SUICIDAL IDEATION^SUICIDAL IDEATION^^19^425
  1.  ;;V64.00^VACCIN NOT CARIED OT UNSPC RA^VACCINATION NOT CARRIED OUT, UNSPECIFIED REASON^^23^467
  1.  ;;V64.01^VACCIN NOT ADMIN ACUTE ILLLNES^VACCINATION NOT CARRIED OUT BECAUSE OF ACUTE ILLNESS^^23^467
  1.  ;;V64.02^VACCIN NOT ADMIN CHRONIC ILL^VACCINATION NOT CARRIED OUT BECAUSE OF CHRONIC ILLNESS OR CONDITION^^23^467
  1.  ;;V64.03^VACCIN NOT ADMIN IMUNE COMP ST^VACCINATION NOT CARRIED OUT BECAUSE OF IMMUNE COMPROMISED STATE^^23^467
  1.  ;;V64.04^VACCIN NOT ADMIN ALLERGIC^VACCINATION NOT CARRIED OUT BECAUSE OF ALLERGY TO VACCINE OR COMPONENT^^23^467
  1.  ;;V64.05^VACCIN NO ADMIN REFUSE CAREGIV^VACCINATION NOT CARRIED OUT BECAUSE OF CAREGIVER REFUSAL^^23^467
  1.  ;;V64.06^VACCIN NO ADMIN REFUSE PATIENT^VACCINATION NOT CARRIED OUT BECAUSE OF PATIENT REFUSAL^^23^467
  1.  ;;V64.07^VACCIN NO ADMIN REFUSE REGLION^VACCINATION NOT CARRIED OUT FOR RELIGIOUS REASONS^^23^467
  1.  ;;V64.08^VACCIN NO ADMIN PT HAD DISEASE^VACCINATION NOT CARRIED OUT BECAUSE PATIENT HAD DISEASE BEING VACCINATED AGAINST^^23^467
  1.  ;;V64.09^VACCIN NOT ADMIN OTHER REASON^VACCINATION NOT CARRIED OUT FOR OTHER REASON^^23^467
  1.  ;;V69.50^BEHAVORIAL INSOMNIA CHILDHOOD^BEHAVORIAL INSOMNIA OF CHILDHOOD^^23^467
  1.  ;;V72.42^PREGNANCY EXAM/TEST POSITIVE^PREGNANCY EXAMINATION OR TEST, POSITIVE RESULT^F^23^467
  1.  ;;V72.86^ENCOUNTER FOR BLOOD TYPING^ENCOUNTER FOR BLOOD TYPING^^23^467
  1.  ;;V85.00^BODY MASS INDEX <19, ADULT^BODY MASS INDEX LESS THAN 19, ADULT^^23^467
  1.  ;;V85.10^BODY MASS INDEX 19-24 ADULT^BODY MASS INDEX BETWEEN 19-24, ADULT^^23^467
  1.  ;;V85.21^BODY MASS INDX 25.0-25.9 ADULT^BODY MASS INDEX 25.0-25.9, ADULT^^23^467
  1.  ;;V85.22^BODY MASS INDX 26.0-26.9 ADULT^BODY MASS INDEX 26.0-26.9, ADULT^^23^467
  1.  ;;V85.23^BODY MASS INDX 27.0-27.9 ADULT^BODY MASS INDEX 27.0-27.9, ADULT^^23^467
  1.  ;;V85.24^BODY MASS INDX 28.0-28.9 ADULT^BODY MASS INDEX 28.0-28.9, ADULT^^23^467
  1.  ;;V85.25^BODY MASS INDX 29.0-29.9 ADULT^BODY MASS INDEX 29.0-29.9, ADULT^^23^467
  1.  ;;V85.30^BODY MASS INDX 30.0-30.9 ADULT^BODY MASS INDEX 30.0-30.9, ADULT^^23^467
  1.  ;;V85.31^BODY MASS INDX 31.0-31.9 ADULT^BODY MASS INDEX 31.0-31.9, ADULT^^23^467
  1.  ;;V85.32^BODY MASS INDX 32.0-32.9 ADULT^BODY MASS INDEX 32.0-32.9, ADULT^^23^467
  1.  ;;V85.33^BODY MASS INDX 33.0-33.9 ADULT^BODY MASS INDEX 33.0-33.9, ADULT^^23^467
  1.  ;;V85.34^BODY MASS INDX 34.0-34.9 ADULT^BODY MASS INDEX 34.0-34.9, ADULT^^23^467
  1.  ;;V85.35^BODY MASS INDX 35.0-35.9 ADULT^BODY MASS INDEX 35.0-35.9, ADULT^^23^467
  1.  ;;V85.36^BODY MASS INDX 36.0-36.9 ADULT^BODY MASS INDEX 36.0-36.9, ADULT^^23^467
  1.  ;;V85.37^BODY MASS INDX 37.0-37.9 ADULT^BODY MASS INDEX 37.0-37.9, ADULT^^23^467
  1.  ;;V85.38^BODY MASS INDX 38.0-38.9 ADULT^BODY MASS INDEX 38.0-38.9, ADULT^^23^467
  1.  ;;V85.39^BODY MASS INDX 39.0-39.9 ADULT^BODY MASS INDEX 39.0-39.9, ADULT^^23^467
  1.  ;;V85.40^BODY MASS INDEX 40 AND > ADULT^BODY MASS INDEX 40 AND OVER, ADULT^^10^296,297,298
  1.  ;;END
  1. ICD9REV2 ;
  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