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