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

AMHPREI.m

Go to the documentation of this file.
  1. AMHPREI ; IHS/CMI/LAB - CREATED BY XBBPI ON APR 17,1995 ;
  1. ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
  1. ;
  1. NEW AMHX,AMHY,AMHC,AMHD
  1. F AMHX=1:1 S AMHY=$T(MHPC+AMHX) Q:$P(AMHY,";;",2)="" D
  1. .S AMHC=$P(AMHY,";;",2),AMHD=$P(AMHY,";;",3)
  1. .S AMHDA=$O(^AMHPROB("B",AMHC,0))
  1. .I 'AMHDA Q
  1. .I $P(^AMHPROB(AMHDA,0),U,2)=AMHD Q
  1. .D ^XBFMK
  1. .S DA=AMHDA,DIE="^AMHPROB(",DR=".02///"_AMHD D ^DIE
  1. .I $D(Y) W !,"Updating ICD code for ",D," failed die." Q
  1. .K DIE,DA,DR D ^XBFMK
  1. .Q
  1. ;
  1. Q
  1. MHPC ;
  1. ;;1;;HEALTH/HOMEMAKER NEEDS
  1. ;;2;;CROSS-CULTURAL ISSUE
  1. ;;5;;PHYSICAL ILLNESS,ACUTE
  1. ;;290.0;;DEMENTIA OF THE ALZHEIMER'S TYPE W/LATE ONSET, UNCOMPLICATED
  1. ;;290.10;;DEMENTIA OF THE ALZHEIMER'S TYPE, W/EARLY ONSET, UNCOMPLICATED
  1. ;;3;;UNSPECIFIED MENTAL PROBLEM
  1. ;;4;;PHYSICAL DISABILITY/REHABILITATION
  1. ;;6;;PHYSICAL ILLNESS,CHRONIC/TERMINAL
  1. ;;7;;NONCOMPLIANCE WITH TREATMENT REGIMEN
  1. ;;8;;FAILED APPOINTMENT/NO SHOW
  1. ;;290.11;;DEMENTIA OF THE ALZHEIMER'S TYPE, W/EARLY ONSET, W/DELIRIUM
  1. ;;290.12;;DEMENTIA OF THE ALZHEIMER'S TYPE, W/EARLY ONSET, W/DELUSIONS
  1. ;;290.13;;DEMENTIA OF THE ALZHEIMER'S TYPE, W/EARLY ONSET, W/DEPRESSION
  1. ;;290.20;;DEMENTIA OF THE ALZHEIMER'S TYPE, W/LATE ONSET, W/DELUSIONS
  1. ;;290.21;;DEMENTIA OF THE ALZHEIMER'S TYPE, W/LATE ONSET, W/DEPRESSED MOOD
  1. ;;290.40;;VASCULAR DEMENTIA, UNCOMPLICATED
  1. ;;290.41;;VASCULAR DEMENTIA, W/DELIRIUM
  1. ;;290.42;;VASCULAR DEMENTIA, W/DELUSIONS
  1. ;;290.43;;VASCULAR DEMENTIA, W/DEPRESSED MOOD
  1. ;;291.0;;ALCOHOL INTOXICATION/WITHDRAWL DELIRIUM
  1. ;;291.1;;ALCOHOL-INDUCED PERSISTING AMNESTIC DISORDER
  1. ;;291.2;;ALCOHOL-INDUCED PERSISTING DEMENTIA
  1. ;;291.3;;ALCOHOL-INDUCED PSYCHOTIC DISORDER, W/HALLUCINATIONS
  1. ;;291.8;;ALCOHOL-INDUCED PSYCHOSIS
  1. ;;292.0;;DRUG WITHDRAWL
  1. ;;292.11;;DRUG-INDUCED PSYCHOTIC DISORDER, W/ DELUSIONS
  1. ;;292.12;;DRUG-INDUCED PSYCHOTIC DISORDER, W/ HALLUCINATIONS
  1. ;;292.81;;DRUG-INDUCED DELIRIUM
  1. ;;292.82;;DRUG-INDUCED PERSISTING DEMENTIA
  1. ;;292.83;;DRUG-INDUCED PERSISTING AMNESTIC DISORDER
  1. ;;292.84;;DRUG-INDUCED MOOD DISORDER
  1. ;;292.89;;OTHER SPECIFIED DRUG-INTOXICATION OR INDUCED MENTAL DISORDERS
  1. ;;292.9;;UNSPECIFIED DRUG-RELATED DISORDER NOS
  1. ;;293.0;;DELIRIUM DUE TO..(INDICATE MEDICAL CONDITION)
  1. ;;293.81;;PSYCHOTIC DISORDER DUE TO..(INDICATE MEDICAL CONDITION),W/DELUSIONS
  1. ;;293.82;;PSYCHOTIC DISORDER DUE TO..(INDICATE MEDICAL CONDITION),W/HALLUCIN.
  1. ;;293.83;;MOOD DISORDER DUE TO..(INDICATE MEDICAL CONDITION)
  1. ;;294.0;;AMNESTIC DISORDER DUE TO..(INDICATE MEDICAL CONDITION)
  1. ;;294.1;;DEMENTIA DUE TO..(INDICATE MEDICAL CONDITION)
  1. ;;295.10;;SCHIZOPHRENIA, DISORGANIZED TYPE, UNSPECIFIED
  1. ;;295.11;;SCHIZOPHRENIA, DISORGANIZED TYPE, SUBCHRONIC
  1. ;;295.12;;SCHIZOPHRENIA, DISORGANIZED TYPE, CHRONIC
  1. ;;295.13;;SCHIZOPHRENIA, DISORGANIZED TYPE, SUBCHRONIC W/ACUTE EXACERBATION
  1. ;;295.14;;SCHIZOPHRENIA, DISORGANIZED TYPE, CHRONIC W/ACUTE EXACERBATION
  1. ;;295.15;;SCHIZOPHRENIA, DISORGANIZED TYPE, IN REMISSION
  1. ;;295.20;;SCHIZOPHRENIA, CATATONIC TYPE, UNSPECIFIED
  1. ;;295.21;;SCHIZOPHRENIA, CATATONIC TYPE, SUBCHRONIC
  1. ;;295.22;;SCHIZOPHRENIA, CATATONIC TYPE, CHRONIC
  1. ;;295.23;;SCHIZOPHRENIA, CATATONIC TYPE, SUBCHRONIC, W/ACUTE EXACERBATION
  1. ;;295.24;;SCHIZOPHRENIA, CATATONIC TYPE, CHRONIC, W/ACUTE EXACERBATION
  1. ;;295.25;;SCHIZOPHRENIA, CATATONIC TYPE, IN REMISSION
  1. ;;295.30;;SCHIZOPHRENIA, PARANOID TYPE, UNSPECIFIED
  1. ;;295.31;;SCHIZOPHRENIA, PARANOID TYPE, SUBCHRONIC
  1. ;;295.32;;SCHIZOPHRENIA, PARANOID TYPE, CHRONIC
  1. ;;295.33;;SCHIZOPHRENIA, PARANOID TYPE, SUBCHRONIC, W/ACUTE EXACERBATAION
  1. ;;295.34;;SCHIZOPHRENIA, PARANOID TYPE, CHRONIC, W/ACUTE EXACERBATION
  1. ;;295.35;;SCHIZOPHRENIA, PARANOID TYPE, IN REMISSION
  1. ;;295.61;;SCHIZOPHRENIA, RESIDUAL TYPE, SUBCHRONIC
  1. ;;295.95;;SCHIZOPHRENIA, UNDIFFERENTIATED TYPE, IN REMISSION
  1. ;;300.4;;DYSTHYMIC DISORDER
  1. ;;311.;;DEPRESSIVE DISORDER NOS
  1. ;;296.20;;MAJOR DEPRESSIVE DISORDER, SINGLE EPISODE, UNSPECIFIED
  1. ;;296.21;;MAJOR DEPRESSIVE DISORDER, SINGLE EPISODE, MILD
  1. ;;296.22;;MAJOR DEPRESSIVE DISORDER, SINGLE EPISODE, MODERATE
  1. ;;296.23;;MAJOR DEPRESSIVE DISORDER, SINGLE EPISODE, SEVERE, W/O PSYCHOTIC FEATURES
  1. ;;296.24;;MAJOR DEPRESSIVE DISORDER, SINGLE EPISODE, SEVERE W/PSYCHOTIC FEATURES
  1. ;;296.25;;MAJOR DEPRESSIVE DISORDER, SINGLE EPISODE, IN PARTIAL REMISSION
  1. ;;296.26;;MAJOR DEPRESSIVE DISORDER, SINGLE EPISODE, IN FULL REMISSION
  1. ;;296.31;;MAJOR DEPRESSIVE DISORDER, RECURRENT, MILD
  1. ;;296.32;;MAJOR DEPRESSIVE DISORDER, RECURRENT, MODERATE
  1. ;;296.33;;MAJOR DEPRESSIVE DISORDER, RECURRENT, SEVERE, W/O PSYCHOTIC FEATURES
  1. ;;296.34;;MAJOR DEPRESSIVE DISORDER, RECURRENT, SEVERE W/PSYCHOTIC FEATURES
  1. ;;296.35;;MAJOR DEPRESSIVE DISORDER, RECURRENT, IN PARTIAL REMISSION
  1. ;;296.36;;MAJOR DEPRESSIVE DISORDER, RECURRENT, IN FULL REMISSION
  1. ;;296.40;;BIPOLAR I DISORDER, MOST RECENT EPISODE MANIC OR HYPOMANIC, UNSPECIFIED
  1. ;;296.41;;BIPOLAR I DISORDER, MOST RECENT EPISODE MANIC, MILD
  1. ;;296.42;;BIPOLAR I DISORDER, MOST RECENT EPISODE MANIC, MODERATE
  1. ;;296.43;;BIPOLAR I DISORDER, MOST RECENT EPISODE MANIC, SEVERE, W/O PSYCHOTIC FEATURES
  1. ;;296.44;;BIPOLAR I DISORDER, MOST RECENT EPISODE MANIC, SEVERE W/PSYCHOTIC FEATURES
  1. ;;296.45;;BIPOLAR I DISORDER, MOST RECENT EPISODE MANIC, IN PARTIAL REMISSION
  1. ;;296.46;;BIPOLAR I DISORDER, MOST RECENT EPISODE MANIC, IN FULL REMISSION
  1. ;;296.50;;BIPOLAR I DISORDER, MOST RECENT EPISODE DEPRESSED, UNSPECIFIED
  1. ;;296.51;;BIPOLAR I DISORDER, MOST RECENT EPISODE DEPRESSED, MILD
  1. ;;296.52;;BIPOLAR I DISORDER, MOST RECENT EPISODE DEPRESSED, MODERATE
  1. ;;296.53;;BIPOLAR I DISORDER, MOST RECENT EPISODE DEPRESSED, SEVERE, W/O PSYCHOTIC FEAT.
  1. ;;296.54;;BIPOLAR I DISORDER, MOST RECENT EPISODE DEPRESSED, SEVERE, W/ PSYCHOTIC FEAT.
  1. ;;296.55;;BIPOLAR I DISORDER, MOST RECENT EPISODE DEPRESSED, IN PARTIAL REMISSION
  1. ;;296.56;;BIPOLAR I DISORDER, MOST RECENT EPISODE DEPRESSED, IN FULL REMISSION
  1. ;;296.60;;BIPOLAR I DISORDER, MOST RECENT EPISODE MIXED, UNSPECIFIED
  1. ;;296.61;;BIPOLAR I DISORDER, MOST RECENT EPISODE MIXED, MILD
  1. ;;296.62;;BIPOLAR I DISORDER, MOST RECENT EPISODE MIXED, MODERATE
  1. ;;296.63;;BIPOLAR I DISORDER, MOST RECENT EPISODE MIXED, SEVERE W/O PSYCHOTIC FEATURES
  1. ;;296.64;;BIPOLAR I DISORDER, MOST RECENT EPISODE MIXED, SEVERE W/PSYCHOTIC FEATURES
  1. ;;296.65;;BIPOLAR I DISORDER, MOST RECENT EPISODE MIXED, IN PARTIAL REMISSION
  1. ;;296.66;;BIPOLAR I DISORDER, MOST RECENT EPISODE MIXED, IN FULL REMISSION
  1. ;;296.7;;BIPOLAR I DISORDER, MOST RECENT EPISODE UNSPECIFIED,
  1. ;;297.1;;DELUSIONAL DISORDER
  1. ;;295.40;;SCHIZOPHRENIFORM DISORDER, UNSPECIFIED
  1. ;;295.70;;SCHIZOAFFECTIVE DISORDER, UNSPECIFIED
  1. ;;297.3;;SHARED PSYCHOTIC DISORDER
  1. ;;298.8;;BRIEF PSYCHOTIC DISORDER
  1. ;;298.9;;PSYCHOTIC DISORDER NOS
  1. ;;300.00;;ANXIETY DISORDER NOS
  1. ;;300.01;;PANIC DISORDER, W/O AGORAPHOBIA
  1. ;;300.02;;GENERALIZED ANXIETY DISORDER
  1. ;;300.11;;CONVERSION DISORDER
  1. ;;300.12;;DISSOCIATIVE AMNESIA
  1. ;;300.13;;DISSOCIATIVE FUGUE
  1. ;;300.14;;DISSOCIATIVE IDENTITY DISORDER
  1. ;;300.15;;DISSOCIATIVE DISORDER NOS
  1. ;;300.21;;PANIC DISORDER, WITH AGORAPHOBIA
  1. ;;300.22;;AGORAPHOBIA W/O HISTORY OF PANIC DISORDER
  1. ;;300.23;;SOCIAL PHOBIA
  1. ;;300.29;;SPECIFIC PHOBIA
  1. ;;300.3;;OBSESSIVE-COMPULSIVE DISORDER
  1. ;;300.6;;DEPERSONALIZATION DISORDER
  1. ;;300.7;;BODY DSYMORPHIC DISORDER- HYPOCONDRIASIS
  1. ;;300.81;;SOMATIZATION DISORDER- UNDIFFERENTIATED SOMATOFORM DISORDER
  1. ;;300.9;;UNSPECIFIED MENTAL DISORDER (NON-PSYCHOTIC)
  1. ;;310.1;;PERSONALITY CHANGE DUE TO...(INDICATE GENERAL MEDICAL CONDITION)
  1. ;;301.0;;PARANOID PERSONALITY DISORDER
  1. ;;301.13;;CYCLOTHYMIC DISORDER
  1. ;;301.20;;SCHIZOID PERSONALITY DISORDER
  1. ;;301.22;;SCHIZOTYPAL PERSONALITY DISORDER
  1. ;;301.4;;OBSESSIVE-COMPULSIVE PERSONALITY DISORDER
  1. ;;301.50;;HISTRIONIC PERSONALITY DISORDER
  1. ;;301.6;;DEPENDENT PERSONALITY DISORDER
  1. ;;301.7;;ANTISOCIAL PERSONALITY DISORDER
  1. ;;301.81;;NARCISSISTIC PERSONALITY DISORDER
  1. ;;301.82;;AVOIDANT PERSONALITY DISORDER
  1. ;;301.83;;BORDERLINE PERSONALITY DISORDER
  1. ;;301.9;;PERSONALITY DISORDER NOS
  1. ;;302.2;;PEDOPHILIA
  1. ;;302.3;;TRANSVESTIC FETISHISM
  1. ;;302.4;;EXHIBITIONISM
  1. ;;302.6;;GENDER IDENTITY DISORDER NOS- GENDER IDENTITY DISORDER IN CHILDREN
  1. ;;302.70;;SEXUAL DYSFUNCTION NOS
  1. ;;302.71;;HYPOACTIVE SEXUAL DESIRE DISORDER
  1. ;;302.72;;FEMALE SEXUAL AROUSAL DISORDER- MALE ERECTILE DISORDER
  1. ;;302.73;;FEMALE ORGASMIC DISORDER
  1. ;;302.74;;MALE ORGASMIC DISORDER
  1. ;;302.75;;PREMATURE EJACULATION
  1. ;;302.76;;DYSPAREUNIA (NOT DUE TO A GENERAL MEDICAL CONDITION)
  1. ;;302.79;;SEXUAL AVERSION DISORDER
  1. ;;302.81;;FETISHISM
  1. ;;302.82;;VOYEURISM
  1. ;;302.83;;SEXUAL MASOCHISM
  1. ;;302.84;;SEXUAL SADISM
  1. ;;302.89;;FROTTEURISM
  1. ;;302.9;;PARAPHILLA NOS- SEXUAL DISORDER NOS
  1. ;;306.51;;VAGINISMUS (NOT DUE TO A GENERAL MEDICAL CONDITION)
  1. ;;307.0;;STUTTERING
  1. ;;307.1;;ANOREXIA NERVOSA
  1. ;;307.20;;TIC DISORDER NOS
  1. ;;307.21;;TRANSIENT TIC DISORDER
  1. ;;307.22;;CHRONIC MOTOR OR VOCAL TIC DISORDER
  1. ;;307.23;;TOURETTE'S DISORDER
  1. ;;307.3;;STEREOTYPIC MOVEMENT DISORDER
  1. ;;307.6;;ENURESIS (NOT DUE TO A GENERAL MEDICAL CONDITION)
  1. ;;307.7;;ENCOPRESIS, WITHOUT CONSTIPATION AND OVERFLOW INCONTINENCE
  1. ;;307.80;;PAIN DISORDER ASSOCIATED W/PSYCHOLOGICAL FEATURES
  1. ;;307.42;;PRIMARY INSOMNIA- INSOMNIA RELATED TO...(INDICATE AXIS I OR II)
  1. ;;307.44;;PRIMARY HYPERSOMNIA- HYPERSOMNIA RELATED TO...(INDICATE AXIS I OR II)
  1. ;;307.45;;CIRCADIAN RHYTHM SLEEP DISORDER
  1. ;;307.46;;SLEEP TERROR- SLEEPWALKING DISORDER
  1. ;;307.47;;DYSSOMNIA NOS- PARASOMNIA NOS- NIGHTMARE DISORDER
  1. ;;307.50;;EATING DISORDER NOS
  1. ;;