IBDEI3HV ; ; 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)
;;=^IBE(358.4,
;;^UTILITY(U,$J,358.4,0)
;;=IMP/EXP SELECTION GROUP^358.4I^2912^2912
;;^UTILITY(U,$J,358.4,1,0)
;;=SUBSTANCE ABUSE^5^1
;;^UTILITY(U,$J,358.4,2,0)
;;=DIAGNOSTIC EVALUATION^1^1
;;^UTILITY(U,$J,358.4,3,0)
;;=PSYCHOTHERAPY ^4^1
;;^UTILITY(U,$J,358.4,4,0)
;;=OTHER CODES^3^1
;;^UTILITY(U,$J,358.4,5,0)
;;=TOBACCO CESSATION^6^1
;;^UTILITY(U,$J,358.4,6,0)
;;=MEDICATIONS^2^1
;;^UTILITY(U,$J,358.4,7,0)
;;=ESTABLISHED PATIENT^1^2
;;^UTILITY(U,$J,358.4,8,0)
;;=OUTPATIENT CONSULTATIONS^3^2
;;^UTILITY(U,$J,358.4,9,0)
;;=NEW PATIENT^2^2
;;^UTILITY(U,$J,358.4,10,0)
;;=INPATIENT CONSULTATIONS^4^2
;;^UTILITY(U,$J,358.4,11,0)
;;=INITIAL HOSPITAL CARE^5^2
;;^UTILITY(U,$J,358.4,12,0)
;;=HOSPITAL CARE DISCHARGE SERVICES^7^2
;;^UTILITY(U,$J,358.4,13,0)
;;=INITIAL OBSERVATION CARE^8^2
;;^UTILITY(U,$J,358.4,14,0)
;;=OBSERVATION CARE DISCHARGE SERVICES^10^2
;;^UTILITY(U,$J,358.4,15,0)
;;=INPT/OBS ADMIT/DISCHARGE SAME DATE^11^2
;;^UTILITY(U,$J,358.4,16,0)
;;=SUBSEQUENT HOSPITAL CARE^6^2
;;^UTILITY(U,$J,358.4,17,0)
;;=OBSERVATION SUBSEQUENT CARE^9^2
;;^UTILITY(U,$J,358.4,18,0)
;;=DOMICILIARY EST PATIENT^12^2
;;^UTILITY(U,$J,358.4,19,0)
;;=DOMICILIARY NEW PATIENT^13^2
;;^UTILITY(U,$J,358.4,20,0)
;;=HOME VISITS EST PATIENT^14^2
;;^UTILITY(U,$J,358.4,21,0)
;;=HOME VISITS NEW PATIENT^15^2
;;^UTILITY(U,$J,358.4,22,0)
;;=OTHER E/M SERVICES^16^2
;;^UTILITY(U,$J,358.4,23,0)
;;=ABUSE AND NEGLECT^1^3
;;^UTILITY(U,$J,358.4,24,0)
;;=ANXIETY DISORDERS^3^3
;;^UTILITY(U,$J,358.4,25,0)
;;=BIPOLAR DISORDERS^4^3
;;^UTILITY(U,$J,358.4,26,0)
;;=DELIRIUM^7^3
;;^UTILITY(U,$J,358.4,27,0)
;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^3
;;^UTILITY(U,$J,358.4,28,0)
;;=DEPRESSIVE DISORDERS^9^3
;;^UTILITY(U,$J,358.4,29,0)
;;=DISSOCIATIVE DISORDERS ^10^3
;;^UTILITY(U,$J,358.4,30,0)
;;=EATING DISORDERS^11^3
;;^UTILITY(U,$J,358.4,31,0)
;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^3
;;^UTILITY(U,$J,358.4,32,0)
;;=GENDER DYSPHORIA^13^3
;;^UTILITY(U,$J,358.4,33,0)
;;=HOUSING/ECONOMIC PROBLEMS^14^3
;;^UTILITY(U,$J,358.4,34,0)
;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^3
;;^UTILITY(U,$J,358.4,35,0)
;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^3
;;^UTILITY(U,$J,358.4,36,0)
;;=ORGANIC DISORDERS^18^3
;;^UTILITY(U,$J,358.4,37,0)
;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^3
;;^UTILITY(U,$J,358.4,38,0)
;;=ADHD^2^3
;;^UTILITY(U,$J,358.4,39,0)
;;=COUNSELING/MED ADVICE^5^3
;;^UTILITY(U,$J,358.4,40,0)
;;=SOCIAL ENVIRONMENT PROBLEMS^28^3
;;^UTILITY(U,$J,358.4,41,0)
;;=PARAPHILIC DISORDERS^19^3
;;^UTILITY(U,$J,358.4,42,0)
;;=PERSONALITY DISORDERS^21^3
;;^UTILITY(U,$J,358.4,43,0)
;;=CRIME/LEGAL SYSTEM PROBLEMS^6^3
;;^UTILITY(U,$J,358.4,44,0)
;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^22^3
;;^UTILITY(U,$J,358.4,45,0)
;;=RELATIONAL PROBLEMS^23^3
;;^UTILITY(U,$J,358.4,46,0)
;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^25^3
;;^UTILITY(U,$J,358.4,47,0)
;;=SEXUAL DYSFUNCTION^26^3
;;^UTILITY(U,$J,358.4,48,0)
;;=SLEEP DISORDERS^27^3
;;^UTILITY(U,$J,358.4,49,0)
;;=SUBSTANCE ABUSE-ALCOHOL^30^3
;;^UTILITY(U,$J,358.4,50,0)
;;=SUBSTANCE ABUSE-AMPHETAMINE^31^3
;;^UTILITY(U,$J,358.4,51,0)
;;=SUBSTANCE ABUSE-CANNABIS^32^3
;;^UTILITY(U,$J,358.4,52,0)
;;=SUBSTANCE ABUSE-HALLUCINOGEN^34^3
;;^UTILITY(U,$J,358.4,53,0)
;;=SUBSTANCE ABUSE-OPIOID^36^3
;;^UTILITY(U,$J,358.4,54,0)
;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^37^3
;;^UTILITY(U,$J,358.4,55,0)
;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^38^3
;;^UTILITY(U,$J,358.4,56,0)
;;=SUBSTANCE ABUSE-TOBACCO^39^3
;;^UTILITY(U,$J,358.4,57,0)
;;=SUBSTANCE ABUSE-COCAINE^33^3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3HV 3982 printed Dec 13, 2024@02:49:05 Page 2
IBDEI3HV ; ; 19-NOV-2015
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
+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,99)
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)
+2 ;;=^IBE(358.4,
+3 ;;^UTILITY(U,$J,358.4,0)
+4 ;;=IMP/EXP SELECTION GROUP^358.4I^2912^2912
+5 ;;^UTILITY(U,$J,358.4,1,0)
+6 ;;=SUBSTANCE ABUSE^5^1
+7 ;;^UTILITY(U,$J,358.4,2,0)
+8 ;;=DIAGNOSTIC EVALUATION^1^1
+9 ;;^UTILITY(U,$J,358.4,3,0)
+10 ;;=PSYCHOTHERAPY ^4^1
+11 ;;^UTILITY(U,$J,358.4,4,0)
+12 ;;=OTHER CODES^3^1
+13 ;;^UTILITY(U,$J,358.4,5,0)
+14 ;;=TOBACCO CESSATION^6^1
+15 ;;^UTILITY(U,$J,358.4,6,0)
+16 ;;=MEDICATIONS^2^1
+17 ;;^UTILITY(U,$J,358.4,7,0)
+18 ;;=ESTABLISHED PATIENT^1^2
+19 ;;^UTILITY(U,$J,358.4,8,0)
+20 ;;=OUTPATIENT CONSULTATIONS^3^2
+21 ;;^UTILITY(U,$J,358.4,9,0)
+22 ;;=NEW PATIENT^2^2
+23 ;;^UTILITY(U,$J,358.4,10,0)
+24 ;;=INPATIENT CONSULTATIONS^4^2
+25 ;;^UTILITY(U,$J,358.4,11,0)
+26 ;;=INITIAL HOSPITAL CARE^5^2
+27 ;;^UTILITY(U,$J,358.4,12,0)
+28 ;;=HOSPITAL CARE DISCHARGE SERVICES^7^2
+29 ;;^UTILITY(U,$J,358.4,13,0)
+30 ;;=INITIAL OBSERVATION CARE^8^2
+31 ;;^UTILITY(U,$J,358.4,14,0)
+32 ;;=OBSERVATION CARE DISCHARGE SERVICES^10^2
+33 ;;^UTILITY(U,$J,358.4,15,0)
+34 ;;=INPT/OBS ADMIT/DISCHARGE SAME DATE^11^2
+35 ;;^UTILITY(U,$J,358.4,16,0)
+36 ;;=SUBSEQUENT HOSPITAL CARE^6^2
+37 ;;^UTILITY(U,$J,358.4,17,0)
+38 ;;=OBSERVATION SUBSEQUENT CARE^9^2
+39 ;;^UTILITY(U,$J,358.4,18,0)
+40 ;;=DOMICILIARY EST PATIENT^12^2
+41 ;;^UTILITY(U,$J,358.4,19,0)
+42 ;;=DOMICILIARY NEW PATIENT^13^2
+43 ;;^UTILITY(U,$J,358.4,20,0)
+44 ;;=HOME VISITS EST PATIENT^14^2
+45 ;;^UTILITY(U,$J,358.4,21,0)
+46 ;;=HOME VISITS NEW PATIENT^15^2
+47 ;;^UTILITY(U,$J,358.4,22,0)
+48 ;;=OTHER E/M SERVICES^16^2
+49 ;;^UTILITY(U,$J,358.4,23,0)
+50 ;;=ABUSE AND NEGLECT^1^3
+51 ;;^UTILITY(U,$J,358.4,24,0)
+52 ;;=ANXIETY DISORDERS^3^3
+53 ;;^UTILITY(U,$J,358.4,25,0)
+54 ;;=BIPOLAR DISORDERS^4^3
+55 ;;^UTILITY(U,$J,358.4,26,0)
+56 ;;=DELIRIUM^7^3
+57 ;;^UTILITY(U,$J,358.4,27,0)
+58 ;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^3
+59 ;;^UTILITY(U,$J,358.4,28,0)
+60 ;;=DEPRESSIVE DISORDERS^9^3
+61 ;;^UTILITY(U,$J,358.4,29,0)
+62 ;;=DISSOCIATIVE DISORDERS ^10^3
+63 ;;^UTILITY(U,$J,358.4,30,0)
+64 ;;=EATING DISORDERS^11^3
+65 ;;^UTILITY(U,$J,358.4,31,0)
+66 ;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^3
+67 ;;^UTILITY(U,$J,358.4,32,0)
+68 ;;=GENDER DYSPHORIA^13^3
+69 ;;^UTILITY(U,$J,358.4,33,0)
+70 ;;=HOUSING/ECONOMIC PROBLEMS^14^3
+71 ;;^UTILITY(U,$J,358.4,34,0)
+72 ;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^3
+73 ;;^UTILITY(U,$J,358.4,35,0)
+74 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^3
+75 ;;^UTILITY(U,$J,358.4,36,0)
+76 ;;=ORGANIC DISORDERS^18^3
+77 ;;^UTILITY(U,$J,358.4,37,0)
+78 ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^3
+79 ;;^UTILITY(U,$J,358.4,38,0)
+80 ;;=ADHD^2^3
+81 ;;^UTILITY(U,$J,358.4,39,0)
+82 ;;=COUNSELING/MED ADVICE^5^3
+83 ;;^UTILITY(U,$J,358.4,40,0)
+84 ;;=SOCIAL ENVIRONMENT PROBLEMS^28^3
+85 ;;^UTILITY(U,$J,358.4,41,0)
+86 ;;=PARAPHILIC DISORDERS^19^3
+87 ;;^UTILITY(U,$J,358.4,42,0)
+88 ;;=PERSONALITY DISORDERS^21^3
+89 ;;^UTILITY(U,$J,358.4,43,0)
+90 ;;=CRIME/LEGAL SYSTEM PROBLEMS^6^3
+91 ;;^UTILITY(U,$J,358.4,44,0)
+92 ;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^22^3
+93 ;;^UTILITY(U,$J,358.4,45,0)
+94 ;;=RELATIONAL PROBLEMS^23^3
+95 ;;^UTILITY(U,$J,358.4,46,0)
+96 ;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^25^3
+97 ;;^UTILITY(U,$J,358.4,47,0)
+98 ;;=SEXUAL DYSFUNCTION^26^3
+99 ;;^UTILITY(U,$J,358.4,48,0)
+100 ;;=SLEEP DISORDERS^27^3
+101 ;;^UTILITY(U,$J,358.4,49,0)
+102 ;;=SUBSTANCE ABUSE-ALCOHOL^30^3
+103 ;;^UTILITY(U,$J,358.4,50,0)
+104 ;;=SUBSTANCE ABUSE-AMPHETAMINE^31^3
+105 ;;^UTILITY(U,$J,358.4,51,0)
+106 ;;=SUBSTANCE ABUSE-CANNABIS^32^3
+107 ;;^UTILITY(U,$J,358.4,52,0)
+108 ;;=SUBSTANCE ABUSE-HALLUCINOGEN^34^3
+109 ;;^UTILITY(U,$J,358.4,53,0)
+110 ;;=SUBSTANCE ABUSE-OPIOID^36^3
+111 ;;^UTILITY(U,$J,358.4,54,0)
+112 ;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^37^3
+113 ;;^UTILITY(U,$J,358.4,55,0)
+114 ;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^38^3
+115 ;;^UTILITY(U,$J,358.4,56,0)
+116 ;;=SUBSTANCE ABUSE-TOBACCO^39^3
+117 ;;^UTILITY(U,$J,358.4,57,0)
+118 ;;=SUBSTANCE ABUSE-COCAINE^33^3
