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

AUM41C.m

Go to the documentation of this file.
AUM41C ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2004 ; [ 09/09/2003  1:09 PM ]
 ;;04.1;TABLE MAINTENANCE;;SEP 28,2001
 ;
ICD9PINA ;;ICD 9 PROCEDURE, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)
 ;;37.5^HEART TRANSPLANTATION^OCT 1, 2003
 ;;68.3^SUBTOTAL ABDOMINAL HYSTERECTOMY^OCT 1, 2003
 ;;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)
 ;;V01.82^EXPOSURE SARS CORONAVIRUS^EXPOSURE TO SARS ASSOCIATED CORONAVIRUS^^15^390
 ;;V04.81^VACCINE AND INOCULA INFLUENZA^NEED FOR PROPHYLACTIC VACCINATION AND INOCULATION, INFLUENZA^^23^467
 ;;V04.82^VACCINE AND INOCULA, RSV^NEED FOR PROPHYLACTIC VACCINATION AND INOCULATION, RESPIRATORY SYNCTIAL VIRUS (RSV)^^23^467
 ;;V04.89^VACCINE AND INOCU VIRAL DIS^NEED FOR PROPHYLACTIC VACCINATION AND INOCULATION, OTHER VIRAL DISEASES^^23^467
 ;;V15.87^EXTRACORPOREAL MEMBR OXYGEN^HISTORY OF EXTRACORPOREAL MEMBRANE OXYGENATION [ECMO]^^23^467
 ;;V25.03^ER CONTRACEPTIVE COUNSELING^ENCOUNTER FOR EMERGENCY CONTRACEPTIVE COUNSELING AND PRESCRIPTION^^23^467
 ;;V43.21^HEART ASSIST DEVICE^ORGAN OR TISSUE REPLACED BY OTHER MEANS, HEART ASSIST DEVICE^^5^144,145
 ;;V43.22^FULLY IMPLANATABLE ARTIFI HRT^ORGAN OR TISSUE REPLACED BY OTHER MEANS, FULLY IMPLANTABLE ARTIFICIAL HEART^^5^144,145
 ;;V45.85^INSULIN PUMP STATUS^INSULIN PUMP STATUS^^23^467
 ;;V53.90^FITTING AND ADJUSTMENT UNSPEC^FITTING AND ADJUSTMENT, UNSPECIFIED DEVICE^^23^467
 ;;V53.91^FITTING/ADJUST INSULIN PUMP^FITTING AND ADJUSTMENT OF INSULIN PUMP^^23^467
 ;;V53.99^FITTING AND ADJUST OTHER DEV^FITTING AND ADJUSTMENT, OTHER DEVICE^^23^467
 ;;V54.01^REMOVAL INTERNAL FIXATION DEV^ENCOUNTER FOR REMOVAL OF INTERNAL FIXATION DEVICE^^8^249
 ;;V54.02^LENGTHENING/ADJUST GROWTH ROD^ENCOUNTER FOR LENGTHENING/ADJUSTMENT OF GROWTH ROD^^8^249
 ;;V54.09^AFTERCARE INTERNAL FIX DEVICE^OTHER AFTERCARE INVOLVING INTERNAL FIXATION DEVICE^^8^249
 ;;V58.63^LONG-TERM USE ANTIPLATELET^LONG-TERM (CURRENT) USE OF ANTIPLATELET/ANTITHROMBOTIC^^23^465, 466
 ;;V58.64^LONG-TERM USE NONSTEROIDAL^LONG-TERM (CURRENT) USE OF NONSTEROIDAL ANTI-INFLAMMATORIES^^23^465, 466
 ;;V58.65^LONG-TERM USE OF STEROIDS^LONG-TERM (CURRENT)  USE OF STEROIDS^^23^465, 466
 ;;V64.41^LAPROSCOP CONV TO OPEN PROCED^LAPAROSCOPIC SURGICAL PROCEDURE CONVERTED TO OPEN PROCEDURE^^23^467
 ;;V64.42^THORASCOP CONV TO OPEN PROCE^THORASCOPIC SURGICAL PROCEDURE CONVERTED TO OPEN PROCEDURE^^23^467
 ;;V64.43^ARTHROSCOP CONV TO OPEN PROCE^ARTHROSCOPIC SURGICAL PROCEDURE CONVERTED TO OPEN PROCEDURE^^23^467
 ;;V65.11^PRE-BIRTH VISIT EXPECT MOTHER^PEDIATRIC PRE-BIRTH VISIT FOR EXPECTANT MOTHER^^23^467
 ;;V65.19^PERSON CONSULT ANOTHER PERSON^OTHER PERSON CONSULTING ON BEHALF OF ANOTHER PERSON^^23^467
 ;;V65.46^ENCOUNTER INSULIN PUMP TRG^ENCOUNTER FOR INSULIN PUMP TRAINING^^23^467
 ;;END
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)
 ;;282.60^SICKLE-CELL DISEASE, UNSPEC^SICKLE-CELL DISEASE, UNSPECIFIED^^16^395,396
 ;;282.61^HB-SS DISEASE WITHOUT CRISIS^HB-SS DISEASE WITHOUT CRISIS^^16^395,396
 ;;282.62^HB-SS DISEASE WITH CRISIS^HB-SS DISEASE WITH CRISIS^^16^395,396
 ;;282.63^SICKLE-CELL/HB-C W/O CRISIS^SICKLE-CELL/HB-C DISEASE WITHOUT CRISIS^^16^395,396
 ;;282.69^OTHER SICKLE-CELL DIS W CRISIS^OTHER SICKLE-CELL DISEASE WITH CRISIS^^16^395,396
 ;;414.06^NATIVE CORONARY TRANSPLANT^OF NATIVE CORONARY ARTERY OF TRANSPLANTED HEART^^5^132,133
 ;;491.20^OBSTR CHR BRONCHITIS W/O EXAC^OBSTRUCTIVE CHRONIC BRONCHITIS, WITHOUT EXACERBATION^^4^88
 ;;491.21^OBSTR CHR BRONCHITIS WITH EXAC^OBSTRUCTIVE CHRONIC BRONCHITIS, WITH (ACUTE) EXACERBATION^^4^88
 ;;493.00^EXTRINSIC ASTHMA, UNSPECIFIED^EXTRINSIC ASTHMA, UNSPECIFIED^^4^96,97,98
 ;;493.02^EXTRINSIC ASTHMA, W ACUTE EXA^EXTRINSIC ASTHMA, WITH (ACUTE) EXACERBATION^^4^96,97,98
 ;;493.10^INTRINSIC ASTHMA, UNSPECIFIED^INTRINSIC ASTHMA, UNSPECIFIED^^4^96,97,98
 ;;493.12^INTRINSIC ASTHMA, W ACUTE EXA^INTRINSIC ASTHMA, WITH (ACUTE) EXACERBATION^^4^96,97,98
 ;;493.20^CHR OBSTR ASTHMA UNSPECIFIED^CHRONIC OBSTRUCTIVE ASTHMA, UNSPECIFIED^^4^88
 ;;493.22^CHR OBSTR ASTHMA W ACUTE EXA^CHRONIC OBSTRUCTIVE ASTHMA, WITH (ACUTE) EXACERBATION^^4^88
 ;;493.90^ASTHMA, UNSPECIFIED^ASTHMA, UNSPECIFIED^^4^96,97,98
 ;;493.92^ASTHMA UNSPEC W ACUTE EXACER^ASTHMA, UNSPECIFIED, WITH (ACUTE) EXACERBATION^^4^96,97,98
 ;;V06.1^DIPHTHERIA-TETANUS-PERTUSSIS^DIPHTHERIA-TETANUS-PERTUSSIS, COMBINED [DTP] [DTAP]^^23^467
 ;;V06.5^TETANUS-DIPHTHERIA [TD] [DT]^TETANUS-DIPHTHERIA [TD] [DT]^^23^467
 ;;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
 ;