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

IBDEI3II.m

Go to the documentation of this file.
IBDEI3II ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 Q:'DIFQR(358.4)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.4,1422,0)
 ;;=DOMICILIARY NEW PATIENT^13^137
 ;;^UTILITY(U,$J,358.4,1423,0)
 ;;=HOME VISITS EST PATIENT^14^137
 ;;^UTILITY(U,$J,358.4,1424,0)
 ;;=HOME VISITS NEW PATIENT^15^137
 ;;^UTILITY(U,$J,358.4,1425,0)
 ;;=ABUSE AND NEGLECT^1^138
 ;;^UTILITY(U,$J,358.4,1426,0)
 ;;=ANXIETY DISORDERS^3^138
 ;;^UTILITY(U,$J,358.4,1427,0)
 ;;=BIPOLAR DISORDERS^4^138
 ;;^UTILITY(U,$J,358.4,1428,0)
 ;;=DELIRIUM^7^138
 ;;^UTILITY(U,$J,358.4,1429,0)
 ;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^138
 ;;^UTILITY(U,$J,358.4,1430,0)
 ;;=DEPRESSIVE DISORDERS^9^138
 ;;^UTILITY(U,$J,358.4,1431,0)
 ;;=DISSOCIATIVE DISORDERS ^10^138
 ;;^UTILITY(U,$J,358.4,1432,0)
 ;;=EATING DISORDERS^11^138
 ;;^UTILITY(U,$J,358.4,1433,0)
 ;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^138
 ;;^UTILITY(U,$J,358.4,1434,0)
 ;;=GENDER DYSPHORIA^13^138
 ;;^UTILITY(U,$J,358.4,1435,0)
 ;;=HOUSING/ECONOMIC PROBLEMS^14^138
 ;;^UTILITY(U,$J,358.4,1436,0)
 ;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^138
 ;;^UTILITY(U,$J,358.4,1437,0)
 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^138
 ;;^UTILITY(U,$J,358.4,1438,0)
 ;;=ORGANIC DISORDERS^18^138
 ;;^UTILITY(U,$J,358.4,1439,0)
 ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^138
 ;;^UTILITY(U,$J,358.4,1440,0)
 ;;=ADHD^2^138
 ;;^UTILITY(U,$J,358.4,1441,0)
 ;;=COUNSELING/MED ADVICE^5^138
 ;;^UTILITY(U,$J,358.4,1442,0)
 ;;=SOCIAL ENVIRONMENT PROBLEMS^28^138
 ;;^UTILITY(U,$J,358.4,1443,0)
 ;;=PARAPHILIC DISORDERS^19^138
 ;;^UTILITY(U,$J,358.4,1444,0)
 ;;=PERSONALITY DISORDERS^21^138
 ;;^UTILITY(U,$J,358.4,1445,0)
 ;;=CRIME/LEGAL SYSTEM PROBLEMS^6^138
 ;;^UTILITY(U,$J,358.4,1446,0)
 ;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^22^138
 ;;^UTILITY(U,$J,358.4,1447,0)
 ;;=RELATIONAL PROBLEMS^23^138
 ;;^UTILITY(U,$J,358.4,1448,0)
 ;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^25^138
 ;;^UTILITY(U,$J,358.4,1449,0)
 ;;=SEXUAL DYSFUNCTION^26^138
 ;;^UTILITY(U,$J,358.4,1450,0)
 ;;=SLEEP DISORDERS^27^138
 ;;^UTILITY(U,$J,358.4,1451,0)
 ;;=SUBSTANCE ABUSE-ALCOHOL^30^138
 ;;^UTILITY(U,$J,358.4,1452,0)
 ;;=SUBSTANCE ABUSE-AMPHETAMINE^31^138
 ;;^UTILITY(U,$J,358.4,1453,0)
 ;;=SUBSTANCE ABUSE-CANNABIS^32^138
 ;;^UTILITY(U,$J,358.4,1454,0)
 ;;=SUBSTANCE ABUSE-HALLUCINOGEN^34^138
 ;;^UTILITY(U,$J,358.4,1455,0)
 ;;=SUBSTANCE ABUSE-OPIOID^36^138
 ;;^UTILITY(U,$J,358.4,1456,0)
 ;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^37^138
 ;;^UTILITY(U,$J,358.4,1457,0)
 ;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^38^138
 ;;^UTILITY(U,$J,358.4,1458,0)
 ;;=SUBSTANCE ABUSE-TOBACCO^39^138
 ;;^UTILITY(U,$J,358.4,1459,0)
 ;;=SUBSTANCE ABUSE-COCAINE^33^138
 ;;^UTILITY(U,$J,358.4,1460,0)
 ;;=TRAUMA/STRESSOR-RELATED DISORDERS^40^138
 ;;^UTILITY(U,$J,358.4,1461,0)
 ;;=SUBSTANCE ABUSE-INHALANT^35^138
 ;;^UTILITY(U,$J,358.4,1462,0)
 ;;=INTELLECTUAL DISABILITIES^15^138
 ;;^UTILITY(U,$J,358.4,1463,0)
 ;;=RESEARCH^24^138
 ;;^UTILITY(U,$J,358.4,1464,0)
 ;;=SOMATOFORM DISORDERS^29^138
 ;;^UTILITY(U,$J,358.4,1465,0)
 ;;=GROUP PSYCHOTHERAPY/INTERVENTION^2^139
 ;;^UTILITY(U,$J,358.4,1466,0)
 ;;=OTHER^8^139
 ;;^UTILITY(U,$J,358.4,1467,0)
 ;;=TEAM CONFERENCE^7^139
 ;;^UTILITY(U,$J,358.4,1468,0)
 ;;=SUBSTANCE ABUSE^6^139
 ;;^UTILITY(U,$J,358.4,1469,0)
 ;;=CASE MANAGEMENT^1^139
 ;;^UTILITY(U,$J,358.4,1470,0)
 ;;=INJECTION ADMINISTRATION^4^139
 ;;^UTILITY(U,$J,358.4,1471,0)
 ;;=INJECTIONS/MEDS^5^139
 ;;^UTILITY(U,$J,358.4,1472,0)
 ;;=IN-HOME BEHAVIOR/HEALTH ASSESSMENT^3^139
 ;;^UTILITY(U,$J,358.4,1473,0)
 ;;=ESTABLISHED PATIENT^1^140
 ;;^UTILITY(U,$J,358.4,1474,0)
 ;;=ABUSE AND NEGLECT^1^141
 ;;^UTILITY(U,$J,358.4,1475,0)
 ;;=ANXIETY DISORDERS^3^141
 ;;^UTILITY(U,$J,358.4,1476,0)
 ;;=BIPOLAR DISORDERS^4^141