IBDEI3BF ; ; 04-FEB-2020
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,1312,0)
;;=TRAUMA/STRESSOR-RELATED DISORDERS^42^110
;;^UTILITY(U,$J,358.4,1313,0)
;;=SUBSTANCE DISORDER-INHALANT^35^110
;;^UTILITY(U,$J,358.4,1314,0)
;;=CLINICAL RESEARCH PROGRAM^4^110
;;^UTILITY(U,$J,358.4,1315,0)
;;=SOMATIC SYMPTOM & RELATED DISORDERS^30^110
;;^UTILITY(U,$J,358.4,1316,0)
;;=DISRUPTIVE,IMPULSE,CONDUCT D/O^8^110
;;^UTILITY(U,$J,358.4,1317,0)
;;=ELIMINATION DISORDERS^11^110
;;^UTILITY(U,$J,358.4,1318,0)
;;=GAMBLING DISORDER^13^110
;;^UTILITY(U,$J,358.4,1319,0)
;;=OTHER MENTAL DISORDERS^20^110
;;^UTILITY(U,$J,358.4,1320,0)
;;=NEURODEVELOPMENTAL DISORDERS^18^110
;;^UTILITY(U,$J,358.4,1321,0)
;;=SUBSTANCE DISORDER-CAFFEINE^32^110
;;^UTILITY(U,$J,358.4,1322,0)
;;=SUICIDAL IDEATIONS/ATTEMPTS^41^110
;;^UTILITY(U,$J,358.4,1323,0)
;;=SUBSTANCE DISORDER-UNKNOWN SUBSTANCE^40^110
;;^UTILITY(U,$J,358.4,1324,0)
;;=SUBSTANCE DISORDER-STIMULANTS^38^110
;;^UTILITY(U,$J,358.4,1325,0)
;;=UNDERDOSING OF MEDICATION REGIMEN^43^110
;;^UTILITY(U,$J,358.4,1326,0)
;;=ESTABLISHED PATIENT^1^111
;;^UTILITY(U,$J,358.4,1327,0)
;;=GROUP PSYCHOTHERAPY/INTERVENTION^2^112
;;^UTILITY(U,$J,358.4,1328,0)
;;=OTHER^10^112
;;^UTILITY(U,$J,358.4,1329,0)
;;=TEAM CONFERENCE^9^112
;;^UTILITY(U,$J,358.4,1330,0)
;;=SUBSTANCE ABUSE^8^112
;;^UTILITY(U,$J,358.4,1331,0)
;;=CASE MANAGEMENT^1^112
;;^UTILITY(U,$J,358.4,1332,0)
;;=INJECTION ADMINISTRATION^6^112
;;^UTILITY(U,$J,358.4,1333,0)
;;=INJECTIONS/MEDICATIONS^7^112
;;^UTILITY(U,$J,358.4,1334,0)
;;=IN-HOME BEHAVIOR/HEALTH ASSESSMENT^5^112
;;^UTILITY(U,$J,358.4,1335,0)
;;=IMMUNIZATION ADMINISTRATION ^3^112
;;^UTILITY(U,$J,358.4,1336,0)
;;=IMMUNIZATIONS^4^112
;;^UTILITY(U,$J,358.4,1337,0)
;;=ABUSE,NEGLECT, & VIOLENCE^1^113
;;^UTILITY(U,$J,358.4,1338,0)
;;=ANXIETY DISORDERS^2^113
;;^UTILITY(U,$J,358.4,1339,0)
;;=BIPOLAR & RELATED DISORDERS^3^113
;;^UTILITY(U,$J,358.4,1340,0)
;;=NEUROCOGNITIVE DISORDERS^17^113
;;^UTILITY(U,$J,358.4,1341,0)
;;=DEPRESSIVE DISORDERS^7^113
;;^UTILITY(U,$J,358.4,1342,0)
;;=DISSOCIATIVE DISORDERS ^9^113
;;^UTILITY(U,$J,358.4,1343,0)
;;=FEEDING & EATING DISORDERS^12^113
;;^UTILITY(U,$J,358.4,1344,0)
;;=EDUC/OCCUPATIONAL PROBLEMS^10^113
;;^UTILITY(U,$J,358.4,1345,0)
;;=GENDER DYSPHORIA^14^113
;;^UTILITY(U,$J,358.4,1346,0)
;;=HOUSING/ECONOMIC PROBLEMS^15^113
;;^UTILITY(U,$J,358.4,1347,0)
;;=MEDICATION ADVERSE EFFECTS^16^113
;;^UTILITY(U,$J,358.4,1348,0)
;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^19^113
;;^UTILITY(U,$J,358.4,1349,0)
;;=PERSONAL HX & CURRENT CIRCUMSTANCES^22^113
;;^UTILITY(U,$J,358.4,1350,0)
;;=COUNSELING/MEDICAL ADVICE^5^113
;;^UTILITY(U,$J,358.4,1351,0)
;;=SOCIAL ENVIRONMENT PROBLEMS^29^113
;;^UTILITY(U,$J,358.4,1352,0)
;;=PARAPHILIC DISORDERS^21^113
;;^UTILITY(U,$J,358.4,1353,0)
;;=PERSONALITY DISORDERS^23^113
;;^UTILITY(U,$J,358.4,1354,0)
;;=CRIME/LEGAL SYSTEM PROBLEMS^6^113
;;^UTILITY(U,$J,358.4,1355,0)
;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^24^113
;;^UTILITY(U,$J,358.4,1356,0)
;;=RELATIONAL PROBLEMS^25^113
;;^UTILITY(U,$J,358.4,1357,0)
;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^26^113
;;^UTILITY(U,$J,358.4,1358,0)
;;=SEXUAL DYSFUNCTIONS^27^113
;;^UTILITY(U,$J,358.4,1359,0)
;;=SLEEP-WAKE DISORDERS^28^113
;;^UTILITY(U,$J,358.4,1360,0)
;;=SUBSTANCE DISORDER-ALCOHOL^31^113
;;^UTILITY(U,$J,358.4,1361,0)
;;=SUBSTANCE DISORDER-CANNABIS^33^113
;;^UTILITY(U,$J,358.4,1362,0)
;;=SUBSTANCE DISORDER-HALLUCINOGEN^34^113
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BF 3808 printed Sep 23, 2025@20:21:32 Page 2
IBDEI3BF ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+2 if 'DIFQR(358.4)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.4,1312,0)
+2 ;;=TRAUMA/STRESSOR-RELATED DISORDERS^42^110
+3 ;;^UTILITY(U,$J,358.4,1313,0)
+4 ;;=SUBSTANCE DISORDER-INHALANT^35^110
+5 ;;^UTILITY(U,$J,358.4,1314,0)
+6 ;;=CLINICAL RESEARCH PROGRAM^4^110
+7 ;;^UTILITY(U,$J,358.4,1315,0)
+8 ;;=SOMATIC SYMPTOM & RELATED DISORDERS^30^110
+9 ;;^UTILITY(U,$J,358.4,1316,0)
+10 ;;=DISRUPTIVE,IMPULSE,CONDUCT D/O^8^110
+11 ;;^UTILITY(U,$J,358.4,1317,0)
+12 ;;=ELIMINATION DISORDERS^11^110
+13 ;;^UTILITY(U,$J,358.4,1318,0)
+14 ;;=GAMBLING DISORDER^13^110
+15 ;;^UTILITY(U,$J,358.4,1319,0)
+16 ;;=OTHER MENTAL DISORDERS^20^110
+17 ;;^UTILITY(U,$J,358.4,1320,0)
+18 ;;=NEURODEVELOPMENTAL DISORDERS^18^110
+19 ;;^UTILITY(U,$J,358.4,1321,0)
+20 ;;=SUBSTANCE DISORDER-CAFFEINE^32^110
+21 ;;^UTILITY(U,$J,358.4,1322,0)
+22 ;;=SUICIDAL IDEATIONS/ATTEMPTS^41^110
+23 ;;^UTILITY(U,$J,358.4,1323,0)
+24 ;;=SUBSTANCE DISORDER-UNKNOWN SUBSTANCE^40^110
+25 ;;^UTILITY(U,$J,358.4,1324,0)
+26 ;;=SUBSTANCE DISORDER-STIMULANTS^38^110
+27 ;;^UTILITY(U,$J,358.4,1325,0)
+28 ;;=UNDERDOSING OF MEDICATION REGIMEN^43^110
+29 ;;^UTILITY(U,$J,358.4,1326,0)
+30 ;;=ESTABLISHED PATIENT^1^111
+31 ;;^UTILITY(U,$J,358.4,1327,0)
+32 ;;=GROUP PSYCHOTHERAPY/INTERVENTION^2^112
+33 ;;^UTILITY(U,$J,358.4,1328,0)
+34 ;;=OTHER^10^112
+35 ;;^UTILITY(U,$J,358.4,1329,0)
+36 ;;=TEAM CONFERENCE^9^112
+37 ;;^UTILITY(U,$J,358.4,1330,0)
+38 ;;=SUBSTANCE ABUSE^8^112
+39 ;;^UTILITY(U,$J,358.4,1331,0)
+40 ;;=CASE MANAGEMENT^1^112
+41 ;;^UTILITY(U,$J,358.4,1332,0)
+42 ;;=INJECTION ADMINISTRATION^6^112
+43 ;;^UTILITY(U,$J,358.4,1333,0)
+44 ;;=INJECTIONS/MEDICATIONS^7^112
+45 ;;^UTILITY(U,$J,358.4,1334,0)
+46 ;;=IN-HOME BEHAVIOR/HEALTH ASSESSMENT^5^112
+47 ;;^UTILITY(U,$J,358.4,1335,0)
+48 ;;=IMMUNIZATION ADMINISTRATION ^3^112
+49 ;;^UTILITY(U,$J,358.4,1336,0)
+50 ;;=IMMUNIZATIONS^4^112
+51 ;;^UTILITY(U,$J,358.4,1337,0)
+52 ;;=ABUSE,NEGLECT, & VIOLENCE^1^113
+53 ;;^UTILITY(U,$J,358.4,1338,0)
+54 ;;=ANXIETY DISORDERS^2^113
+55 ;;^UTILITY(U,$J,358.4,1339,0)
+56 ;;=BIPOLAR & RELATED DISORDERS^3^113
+57 ;;^UTILITY(U,$J,358.4,1340,0)
+58 ;;=NEUROCOGNITIVE DISORDERS^17^113
+59 ;;^UTILITY(U,$J,358.4,1341,0)
+60 ;;=DEPRESSIVE DISORDERS^7^113
+61 ;;^UTILITY(U,$J,358.4,1342,0)
+62 ;;=DISSOCIATIVE DISORDERS ^9^113
+63 ;;^UTILITY(U,$J,358.4,1343,0)
+64 ;;=FEEDING & EATING DISORDERS^12^113
+65 ;;^UTILITY(U,$J,358.4,1344,0)
+66 ;;=EDUC/OCCUPATIONAL PROBLEMS^10^113
+67 ;;^UTILITY(U,$J,358.4,1345,0)
+68 ;;=GENDER DYSPHORIA^14^113
+69 ;;^UTILITY(U,$J,358.4,1346,0)
+70 ;;=HOUSING/ECONOMIC PROBLEMS^15^113
+71 ;;^UTILITY(U,$J,358.4,1347,0)
+72 ;;=MEDICATION ADVERSE EFFECTS^16^113
+73 ;;^UTILITY(U,$J,358.4,1348,0)
+74 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^19^113
+75 ;;^UTILITY(U,$J,358.4,1349,0)
+76 ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^22^113
+77 ;;^UTILITY(U,$J,358.4,1350,0)
+78 ;;=COUNSELING/MEDICAL ADVICE^5^113
+79 ;;^UTILITY(U,$J,358.4,1351,0)
+80 ;;=SOCIAL ENVIRONMENT PROBLEMS^29^113
+81 ;;^UTILITY(U,$J,358.4,1352,0)
+82 ;;=PARAPHILIC DISORDERS^21^113
+83 ;;^UTILITY(U,$J,358.4,1353,0)
+84 ;;=PERSONALITY DISORDERS^23^113
+85 ;;^UTILITY(U,$J,358.4,1354,0)
+86 ;;=CRIME/LEGAL SYSTEM PROBLEMS^6^113
+87 ;;^UTILITY(U,$J,358.4,1355,0)
+88 ;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^24^113
+89 ;;^UTILITY(U,$J,358.4,1356,0)
+90 ;;=RELATIONAL PROBLEMS^25^113
+91 ;;^UTILITY(U,$J,358.4,1357,0)
+92 ;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^26^113
+93 ;;^UTILITY(U,$J,358.4,1358,0)
+94 ;;=SEXUAL DYSFUNCTIONS^27^113
+95 ;;^UTILITY(U,$J,358.4,1359,0)
+96 ;;=SLEEP-WAKE DISORDERS^28^113
+97 ;;^UTILITY(U,$J,358.4,1360,0)
+98 ;;=SUBSTANCE DISORDER-ALCOHOL^31^113
+99 ;;^UTILITY(U,$J,358.4,1361,0)
+100 ;;=SUBSTANCE DISORDER-CANNABIS^33^113
+101 ;;^UTILITY(U,$J,358.4,1362,0)
+102 ;;=SUBSTANCE DISORDER-HALLUCINOGEN^34^113
