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

AMHPREI1.m

Go to the documentation of this file.
  1. AMHPREI1 ; 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. ;;307.51;;BULIMIA NERVOSA
  1. ;;307.52;;PICA
  1. ;;307.53;;RUMINATION DISORDER
  1. ;;309.21;;SEPARATION ANXIETY DISORDER
  1. ;;309.24;;ADJUSTMENT DISORDER WITH ANXIETY
  1. ;;309.28;;ADJUSTMENT DISORDER WITH MIXED ANXIETY AND DEPRESSED MOOD
  1. ;;309.3;;ADJUSTMENT DISORDER WITH DISTURBANCE OF CONDUCT
  1. ;;309.4;;ADJUSTMENT DISORDER WITH MIXED DISTURBANCE OF EMOTIONS AND CONDUCT
  1. ;;312.31;;PATHOLOGICAL GAMBLING
  1. ;;312.32;;KLEPTOMANIA
  1. ;;312.33;;PYROMANIA
  1. ;;312.34;;INTERMITTENT EXPLOSIVE DISORDER
  1. ;;303.90;;ALCOHOL DEPENDENCE, UNSPECIFIED
  1. ;;304.00;;OPIOID DEPENDENCE, UNSPECIFIED
  1. ;;304.10;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC DEPENDENCE, UNSPECIFIED
  1. ;;304.20;;COCAINE DEPENDENCE, UNSPECIFIED
  1. ;;304.30;;CANNABIS DEPENDENCE, UNSPECIFIED
  1. ;;304.40;;AMPHETAMINE DEPENDENCE, UNSPECIFIED
  1. ;;304.50;;HALLUCINOGEN DEPENDENCE. UNSPECIFIED
  1. ;;304.60;;INHALANT DEPENDENCE, UNSPECIFIED
  1. ;;304.90;;OTHER (OR UNKNOWN) SUBSTANCE, OR PHENCYCLIDINE, DEPENDENCE, UNSPECIFIED
  1. ;;303.00;;ALCOHOL INTOXICATION, UNSPECIFIED
  1. ;;305.00;;ALCOHOL ABUSE, UNSPECIFIED
  1. ;;305.10;;NICOTINE DEPENDENCE
  1. ;;305.20;;CANNABIS ABUSE, UNSPECIFIED
  1. ;;305.30;;HALLUCINOGEN ABUSE, UNSPECIFIED
  1. ;;305.40;;SEDATIVE, HYPNOTIC, OR ANXIOLYTIC ABUSE, UNSPECIFIED
  1. ;;305.50;;OPIOID ABUSE, UNSPECIFIED
  1. ;;305.60;;COCAINE ABUSE, UNSPECIFIED
  1. ;;305.70;;AMPHETAMINE ABUSE, UNSPECIFIED
  1. ;;305.90;;OTHER, MIXED ABUSE, UNSPECIFIED
  1. ;;313.23;;SELECTIVE MUTISM
  1. ;;313.81;;OPPOSITIONAL DEFIANT DISORDER
  1. ;;313.82;;IDENTITY PROBLEM
  1. ;;313.89;;REACTIVE ATTACHMENT DISORDER OF INFANCY OR EARLY CHILDHOOD
  1. ;;314.00;;ATTENTION-DEFICIT/HYPERACTIVITY DISORDER, PREDOM. INATTENTIVE TYPE
  1. ;;314.01;;ATTENTION-DEFICIT/HYPERACTIVITY DISORDER, COMBINED TYPE
  1. ;;299.00;;AUTISTIC DISORDER, ACTIVE
  1. ;;299.80;;PERVASIVE DEVELOPMENT DISORDER NOS, ACTIVE
  1. ;;315.00;;READING DISORDER
  1. ;;315.1;;MATHEMATICS DISORDER
  1. ;;315.31;;EXPRESSIVE LANGUAGE DISORDER- MIXED RECEPTIVE-EXPRESSIVE LANGUAGE DISORDER
  1. ;;315.39;;PHONOLOGICAL DISORDER
  1. ;;315.4;;DEVELOPMENTAL COORDINATION DISORDER
  1. ;;317.;;MILD MENTAL RETARDATION
  1. ;;318.0;;MODERATE MENTAL RETARDATION
  1. ;;318.1;;SEVERE MENTAL RETARDATION
  1. ;;318.2;;PROFOUND MENTAL RETARDATION
  1. ;;315.9;;LEARNING DISORDER NOS
  1. ;;319.;;UNSPECIFIED MENTAL RETARDATION
  1. ;;316.;;(PSYCHOLOGICAL FACTOR)..AFFECTING..(INDICATE MEDICAL CONDITION)
  1. ;;300.16;;FACTITIOUS DISORDER W/PSYCHOLOGICAL SIGNS AND SYMPTOMS
  1. ;;300.19;;OTHER AND UNSPECIFIED FACTITIOUS ILLNESS
  1. ;;39;;SUICIDE (IDEATION)
  1. ;;40;;SUICIDE (ATTEMPT/GESTURE)
  1. ;;41;;SUICIDE (COMPLETED)
  1. ;;42;;CHILD ABUSE (SUSPECTED),UNSPECIFIED
  1. ;;43;;PARTNER ABUSE (SUSPECTED),UNSPECIFIED
  1. ;;44;;ADULT ABUSE (SUSPECTED),UNSPECIFIED
  1. ;;45;;ABUSIVE BEHAVIOR (ALLEGED),UNSPECIFIED
  1. ;;46;;RAPE (ALLEGED/SUSPECTED)
  1. ;;47;;CHILD NEGLECT (SUSPECTED)
  1. ;;48;;ADULT NEGLECT (SUSPECTED)
  1. ;;49;;PARTNER NEGLECT (SUSPECTED)
  1. ;;52;;CHILD/ADOLESCENT ANTISOCIAL BEHAVIOR
  1. ;;53;;ADULT/CHILD RELATIONSHIP
  1. ;;54;;UNCOMPLICATED GRIEF REACTION
  1. ;;55;;ILLNESS IN FAMILY
  1. ;;56;;MARITAL PROBLEM
  1. ;;57;;SIBLING CONFLICT
  1. ;;58;;SEPARATION/DIVORCE
  1. ;;59;;FAMILY CONFLICT
  1. ;;60;;INTERPERSONAL RELATIONSHIPS
  1. ;;61;;ADULT ANTISOCIAL BEHAVIOR
  1. ;;62;;OTHER FAMILY LIFE PROBLEM
  1. ;;63;;PREGNANCY CONFLICT
  1. ;;64;;ADOPTION
  1. ;;65;;FAMILY PLANNING
  1. ;;66;;PREGNANCY CONCERNS
  1. ;;67;;TEENAGE PREGNANCY
  1. ;;68;;HIGH RISK PREGNANCY
  1. ;;69;;OTHER CHILDBEARING PROBLEMS
  1. ;;78;;ALTERNATE HEALTH RESOURCES
  1. ;;79;;FINANCIAL NEEDS/ASSISTANCE
  1. ;;80;;HOUSING
  1. ;;81;;NUTRITION
  1. ;;82;;EMPLOYMENT
  1. ;;83;;TRANSPORTATION
  1. ;;84;;CO-WORKER DIFFICULTIES
  1. ;;85;;OTHER SOCIOECONOMIC PROBLEMS
  1. ;;86;;FORENSIC:CRIMINAL
  1. ;;87;;FORENSIC:CIVIL
  1. ;;88;;OTHER SOCIOLEGAL PROBLEMS
  1. ;;89;;ACADEMIC PROBLEM
  1. ;;90;;SCHOOL BEHAVIOR PROBLEM
  1. ;;91;;SCHOOL DROPOUT
  1. ;;92;;VOCATIONAL REHABILITATION
  1. ;;93;;PEER CONFLICT
  1. ;;94;;PHASE OF LIFE PROBLEM
  1. ;;95;;CONTINUING EDUCATION
  1. ;;96;;TRAINING NEEDS
  1. ;;97;;ADMINISTRATION
  1. ;;98;;EMPLOYEE ASSISTANCE PROGRAM
  1. ;;99;;OTHER ADMINISTRATIVE PROBLEMS
  1. ;;42.1;;CHILD ABUSE (SUSPECTED), PHYSICAL
  1. ;;42.2;;CHILD ABUSE (SUSPECTED),EMOTIONAL
  1. ;;42.3;;CHILD ABUSE (SUSPECTED),SEXUAL
  1. ;;43.1;;PARTNER ABUSE (SUSPECTED),PHYSICAL
  1. ;;43.2;;PARTNER ABUSE (SUSPECTED),EMOTIONAL
  1. ;;43.3;;PARTNER ABUSE (SUSPECTED), SEXUAL
  1. ;;44.1;;ADULT ABUSE (SUSPECTED),PHYSICAL
  1. ;;44.2;;ADULT ABUSE (SUSPECTED),EMOTIONAL
  1. ;;44.3;;ADULT ABUSE (SUSPECTED),SEXUAL
  1. ;;45.1;;ABUSIVE BEHAVIOR (ALLEGED),PHYSICAL
  1. ;;45.2;;ABUSIVE BEHAVIOR (ALLEGED), EMOTIONAL
  1. ;;45.3;;ABUSIVE BEHAVIOR (ALLEGED),SEXUAL (EXCLUDES RAPE)
  1. ;;51;;ALCOHOL RELATED BIRTH DEFECT ARBD
  1. ;;9;;SENILE OR PRE-SENILE CONDITION
  1. ;;10;;ALCOHOL WITHDRAWAL DELIRIUM
  1. ;;11;;DRUG WITHDRAWAL SYNDROME
  1. ;;12;;OTHER ORGANIC MENTAL DISORDER / NOS
  1. ;;13;;SCHIZOPHRENIC DISORDER
  1. ;;14;;MAJOR DEPRESSIVE DISORDER
  1. ;;15;;BIPOLAR DISORDER
  1. ;;16;;DELUSIONAL DISORDER
  1. ;;17;;PSYCHOTIC DISORDER NEC
  1. ;;18;;ANXIETY DISORDER
  1. ;;19;;PERONALITY DISORDER
  1. ;;20;;PSYCHOSEXUAL DISORDER
  1. ;;21;;SPECIAL SYMPTOM NEC
  1. ;;22;;SLEEP DISORDER
  1. ;;23;;EATING DISORDER
  1. ;;24;;ADJUSTMENT DISORDER
  1. ;;25;;DISRUPTIVE BEHAVIOR DISORDER
  1. ;;26;;IMPULSE CONTROL DISORDER
  1. ;;27;;ALCOHOL DEPENDENCE
  1. ;;28;;DRUG DEPENDENCE
  1. ;;29;;ALCOHOL ABUSE
  1. ;;30;;DRUG ABUSE
  1. ;;31;;DISORDER OF INFANCY
  1. ;;32;;PERVASIVE DEVELOPMENTAL DISORDER
  1. ;;33;;MILD MENTAL RETARDATION
  1. ;;34;;MODERATE TO PROFOUND MENTAL RETARDATION
  1. ;;35;;UNSPECIFIED MENTAL RETARDATION
  1. ;;36;;PSYCHIC FACTORS ASSOCIATED WITH DISEASE
  1. ;;37;;FACTITIOUS DISORDER
  1. ;;38;;OTHER SUSPECTED MENTAL CONDITION
  1. ;;46.1;;RAPE (ALLEGED/PERPETRATOR)
  1. ;;51.1;;FETAL ALCOHOL SYNDROME (FAS)
  1. ;;995.5;;ABUSE/NEGLECT OF CHILD (VICTIM)
  1. ;;995.81;;ABUSE/NEGLECT OF ADULT (VICTIM)
  1. ;;38.1;;DIAGNOSIS DEFERRED ON AXIS I OR AXIS II
  1. ;;46.2;;INCEST SURVIVOR (ALLEGED)
  1. ;;294.8;;AMNESTIC DISORDER OR DEMENTIA NOS
  1. ;;295.62;;SCHIZOPHRENIA, RESIDUAL TYPE, CHRONIC
  1. ;;21.1;;MEDICATION INDUCED DISORDER
  1. ;;290.3;;DEMENTIA OF THE ALZHEIMER'S TYPE, W/LATE ONSET, W/DELIRIUM
  1. ;;291.5;;ALCOHOL-INDUCED PSYCHOTIC DISORDER, W/DELUSIONS
  1. ;;291.9;;ALCOHOL-RELATED DISORDER NOS
  1. ;;293.89;;ANXIETY OR CATATONIC DISORDER DUE TO..(INDICATE MEDICAL CONDITION)
  1. ;;293.9;;MENTAL DISORDER NOS DUE TO..(INDICATE MEDICAL CONDITION)
  1. ;;294.9;;COGNITIVE DISORDER NOS
  1. ;;295.41;;SCHIZOPHRENIFORM DISORDER, SUBCHRONIC
  1. ;;295.42;;SCHIZOPHRENIFORM DISORDER, CHRONIC
  1. ;;295.43;;SCHIZOPHRENIFORM DISORDER, SUBCHRONIC, W/ACUTE EXACERBATION
  1. ;;295.44;;SCHIZOPHRENIFORM DISORDER, CHRONIC, W/ACUTE EXACERBATION
  1. ;;295.45;;SCHIZOPHRENIFORM DISORDER, IN REMISSION
  1. ;;295.60;;SCHIZOPHRENIA, RESIDUAL TYPE, UNSPECIFIED
  1. ;;