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

AMHPREI2.m

Go to the documentation of this file.
  1. AMHPREI2 ; IHS/CMI/LAB - ;
  1. ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
  1. ;
  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. ;;295.64;;SCHIZOPHRENIA, RESIDUAL TYPE, CHRONIC, W/ACUTE EXACERBATION
  1. ;;295.65;;SCHIZOPHRENIA, RESIDUAL TYPE, IN REMISSION
  1. ;;295.71;;SCHIZOAFFECTIVE DISORDER, SUBCHRONIC
  1. ;;295.72;;SCHIZOAFFECTIVE DISORDER, CHRONIC
  1. ;;295.73;;SCHIZOAFFECTIVE DISORDER, SUBCHRONIC, W/ACUTE EXACERBATION
  1. ;;295.74;;SCHIZOAFFECTIVE DISORDER, CHRONIC, W/ACUTE EXACERBATION
  1. ;;295.75;;SCHIZOAFFECTIVE DISORDER, IN REMISSION
  1. ;;295.90;;SCHIZOPHRENIA, UNDIFFERENTIATED TYPE, UNSPECIFIED
  1. ;;295.91;;SCHIZOPHRENIA, UNDIFFERENTIATED TYPE, SUBCHRONIC
  1. ;;295.92;;SCHIZOPHRENIA, UNDIFFERENTIATED TYPE, CHRONIC
  1. ;;295.93;;SCHIZOPHRENIA, UNDIFFERENTIATED TYPE, SUBCHRONIC, W/ACUTE EXACERBATION
  1. ;;295.94;;SCHIZOPHRENIA, UNDIFFERENTIATED TYPE, CHRONIC, W/ACUTE EXACERBATION
  1. ;;296.00;;BIPOLAR I DISORDER, SINGLE MANIC EPISODE, UNSPECIFIED
  1. ;;296.01;;BIPOLAR I DISORDER, SINGLE MANIC EPISODE, MILD
  1. ;;296.02;;BIPOLAR I DISORDER, SINGLE MANIC EPISODE, MODERATE
  1. ;;296.03;;BIPOLAR I DISORDER, SINGLE MANIC EPISODE, SEVERE, W/O PSYCHOTIC FEATURES
  1. ;;296.04;;BIPOLAR I DISORDER, SINGLE MANIC EPISODE, SEVERE, W/PSYCHOTIC FEATURES
  1. ;;296.05;;BIPOLAR I DISORDER, SINGLE MANIC EPISODE, IN PARTIAL REMISSION
  1. ;;296.06;;BIPOLAR I DISORDER, SINGLE MANIC EPISODE, IN FULL REMISSION
  1. ;;296.30;;MAJOR DEPRESSIVE DISORDER, RECURRENT, UNSPECIFIED
  1. ;;296.80;;BIPOLAR DISORDER NOS
  1. ;;296.90;;MOOD DISORDER NOS
  1. ;;299.01;;AUTISTIC DISORDER, RESIDUAL
  1. ;;299.10;;CHILDHOOD DISINTEGRATIVE DISORDER, ACTIVE
  1. ;;299.11;;CHILDHOOD DISINTEGRATIVE DISORDER, RESIDUAL
  1. ;;299.81;;PERVASIVE DEVELOPMENT DISORDER NOS, RESIDUAL
  1. ;;303.01;;ALCOHOL INTOXICATION, CONTINUOUS
  1. ;;303.02;;ALCOHOL INTOXICATION, EPISODIC
  1. ;;303.03;;ALCOHOL INTOXICATION, IN REMISSION
  1. ;;303.91;;ALCOHOL DEPENDENCE, CONTINUOUS
  1. ;;303.92;;ALCOHOL DEPENDENCE, EPISODIC
  1. ;;303.93;;ALCOHOL DEPENDENCE, IN REMISSION
  1. ;;304.01;;OPIOID DEPENDENCE, CONTINUOUS
  1. ;;304.02;;OPIOID DEPENDENCE, EPISODIC
  1. ;;304.03;;OPIOID DEPENDENCE, IN REMISSION
  1. ;;304.11;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC DEPENDENCE, CONTINUOUS
  1. ;;304.12;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC DEPENDENCE, EPISODIC
  1. ;;304.13;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC DEPENDENCE, IN REMISSION
  1. ;;304.21;;COCAINE DEPENDENCE, CONTINUOUS
  1. ;;304.22;;COCAINE DEPENDENCE, EPISODIC
  1. ;;304.23;;COCAINE DEPENDENCE, IN REMISSION
  1. ;;304.31;;CANNABIS DEPENDENCE, CONTINUOUS
  1. ;;304.32;;CANNABIS DEPENDENCE, EPISODIC
  1. ;;304.33;;CANNABIS DEPENDENCE, IN REMISSION
  1. ;;304.41;;AMPHETAMINE DEPENDENCE, CONTINUOUS
  1. ;;304.42;;AMPHETAMINE DEPENDENCE, EPISODIC
  1. ;;304.43;;AMPHETAMINE DEPENDENCE, IN REMISSION
  1. ;;304.51;;HALLUCINOGEN DEPENDENCE, CONTINUOUS
  1. ;;304.52;;HALLUCINOGEN DEPENDENCE, EPISODIC
  1. ;;304.53;;HALLUCINOGEN DEPENDENCE, IN REMISSION
  1. ;;304.61;;INHALANT DEPENDENCE, CONTINUOUS
  1. ;;304.62;;INHALANT DEPENDENCE, EPISODIC
  1. ;;304.63;;INHALANT DEPENDENCE, IN REMISSION
  1. ;;304.80;;POLYSUBSTANCE DEPENDENCE, UNSPECIFIED
  1. ;;304.81;;POLYSUBSTANCE DEPENDENCE, CONTINUOUS
  1. ;;304.82;;POLYSUBSTANCE DEPENDENCE, EPISODIC
  1. ;;304.83;;POLYSUBSTANCE DEPENDENCE, IN REMISSION
  1. ;;304.91;;OTHER (OR UNKNOWN) SUBSTANCE DEPENDENCE, OR PHENCYCLIDINE, DEPENDENCE, CONT.
  1. ;;304.92;;OTHER (OR UNKNOWN) SUBSTANCE DEPENDENCE, OR PHENCYCLIDINE, DEPENDENCE, EPISODIC
  1. ;;304.93;;OTHER (OR UNKNOWN) SUBSTANCE DEPENDENCE, OR PHENCYCLIDINE, DEPENDENCE, IN REM.
  1. ;;305.01;;ALCOHOL ABUSE, CONTINUOUS
  1. ;;305.02;;ALCOHOL ABUSE, EPISODIC,
  1. ;;305.03;;ALCOHOL ABUSE, IN REMISSION
  1. ;;305.21;;CANNABIS ABUSE, CONTINUOUS
  1. ;;305.22;;CANNABIS ABUSE, EPISODIC
  1. ;;305.23;;CANNABIS ABUSE, IN REMISSION
  1. ;;305.31;;HALLUCINOGEN ABUSE, CONTINUOUS
  1. ;;305.32;;HALLUCINOGEN ABUSE, EPISODIC
  1. ;;305.33;;HALLUCINOGEN ABUSE, IN REMISSION
  1. ;;305.41;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC ABUSE, CONTINUOUS
  1. ;;305.42;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC ABUSE, EPISODIC
  1. ;;305.43;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC ABUSE, IN REMISSION
  1. ;;305.51;;OPIOID ABUSE, CONTINUOUS
  1. ;;305.52;;OPIOID ABUSE, EPISODIC
  1. ;;305.53;;OPIOID ABUSE, IN REMISSION
  1. ;;305.61;;COCAINE ABUSE, CONTINUOUS
  1. ;;305.62;;COCAINE ABUSE, EPISODIC
  1. ;;305.63;;COCAINE ABUSE, IN REMISSION
  1. ;;305.71;;AMPHETAMINE ABUSE, CONTINUOUS
  1. ;;305.72;;AMPHETAMINE ABUSE, EPISODIC
  1. ;;305.73;;AMPHETAMINE ABUSE, IN REMISSION
  1. ;;305.91;;OTHER, MIXED ABUSE, CONTINUOUS
  1. ;;305.92;;OTHER, MIXED ABUSE, EPISODIC
  1. ;;305.93;;OTHER, MIXED ABUSE, IN REMISSION
  1. ;;307.59;;FEEDING DISORDER OF INFANCY OR EARLY CHILDHOOD
  1. ;;307.89;;PAIN DISORDER ASSOCIATED W/ BOTH PSYCHOLOGICAL AND MEDICAL CONDITION
  1. ;;307.9;;COMMUNICATION DISORDER NOS
  1. ;;308.3;;ACUTE STRESS REACTION
  1. ;;309.81;;POST-TRAUMATIC STRESS DISORDER
  1. ;;309.9;;ADJUSTMENT DISORDER, UNSPECIFIED
  1. ;;312.30;;IMPULSE CONTROL DISORDER NOS
  1. ;;312.82;;CONDUCT DISORDER, ADOLESCENT ONSET TYPE
  1. ;;312.89;;CONDUCT DISORDER, UNSPECIFIED TYPE
  1. ;;312.9;;DISRUPTIVE BEHAVIOR DISORDER NOS
  1. ;;313.9;;DISORDERS OF INFANCY, CHILDHOOD, OR ADOLENCENCE NOS
  1. ;;314.9;;ATTENTION-DEFICIT/HYPERACTIVITY DISORDER NOS
  1. ;;315.2;;DISORDERS OF WRITTEN EXPRESSION
  1. ;;332.1;;NEUROLEPTIC-INDUCED PARKINSONISM
  1. ;;333.1;;MEDICATION-INDUCED POSTURAL TREMOR
  1. ;;333.7;;NEUROLEPTIC-INDUCED ACUTE DYSTONIA
  1. ;;333.82;;NEUROLEPTIC-INDUCED TARDIVE DYSKINESIA
  1. ;;333.90;;MEDICATION-INDUCED MOVEMENT DISORDER NOS
  1. ;;333.92;;NEUROLEPTIC MALIGNANT SYNDROME
  1. ;;333.99;;NEUROLEPTIC-INDUCED ACUTE AKATHISIA
  1. ;;780.9;;AGE-RELATED COGNITIVE DECLINE
  1. ;;799.9;;DIAGNOSIS DEFERRED ON AXIS I OR AXIS II
  1. ;;296.89;;BIPOLAR II DISORDER
  1. ;;312.81;;CONDUCT DISORDER, CHILDHOOD ONSET TYPE
  1. ;;347.;;NARCOLEPSY
  1. ;;309.0;;ADJUSTMENT DISORDER WITH DEPRESSED MOOD
  1. ;;291.81;;ALCOHOL WITHDRAWAL
  1. ;;995.50;;CHILD ABUSE (SUSPECTED), UNSPECIFIED.
  1. ;;995.80;;ADULT MALTREATMENT (SUSPECTED)
  1. ;;54.1;;DEATH
  1. ;;54.2;;DYING
  1. ;;79.1;;INADEQUATE PERSONAL RESOURCES
  1. ;;79.2;;INADEQUATE ACCESS TO RESOURCES
  1. ;;8.1;;PATIENT CANCELLED, RESCHEDULED
  1. ;;8.11;;PATIENT CANCELLED, NOT RESCHEDULED
  1. ;;8.2;;PROVIDER CANCELLED, RESCHEDULED
  1. ;;8.21;;PROVIDER CANCELLED, NOT RESCHEDULED
  1. ;;995.54;;PHYSICAL ABUSE OF CHILD (VICTIM)
  1. ;;995.53;;SEXUAL ABUSE OF CHILD (VICTIM)
  1. ;;46.3;;RAPE (ALLEGED/SUSPECTED)
  1. ;;995.52;;NEGLECT OF CHILD (VICTIM)
  1. ;;302.85;;GENDER IDENTITY DISORDER OF ADOLESCENT OR ADULT
  1. ;;50;;TRAUMATIC BEREAVEMENT
  1. ;;49.9;;EXPLOITATION
  1. ;;47.1;;CHILD NEGLECT (SUSPECTED), PHYSICAL
  1. ;;47.2;;CHILD NEGLECT (SUSPECTED), MENTAL
  1. ;;48.1;;ADULT NEGLECT (SUSPECTED), PHYSICAL
  1. ;;48.2;;ADULT NEGLECT (SUSPECTED, MENTAL
  1. ;;49.1;;PARTNER NEGLECT (SUSPECTED), PHYSICAL
  1. ;;49.2;;PARTNER NEGLECT (SUSPECTED), MENTAL
  1. ;;312.39;;IMPULSE CONTROL DIS NED
  1. ;;8.3;;DID NOT WAIT TO BE SEEN
  1. ;;70;;DAY/NIGHT CARE
  1. ;;71;;DOMICILIARY CARE
  1. ;;72;;FOSTER CARE
  1. ;;73;;HALFWAY HOUSE
  1. ;;74;;HOSPICE CARE
  1. ;;75;;NURSING CARE
  1. ;;76;;RESPITE CARE
  1. ;;77;;INSTITUTIONAL CARE
  1. ;;