IBDEI3BU ; ; 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,2128,0)
;;=REASON FOR VISIT/HEALTH STATUS^3^160
;;^UTILITY(U,$J,358.4,2129,0)
;;=OTHER^7^161
;;^UTILITY(U,$J,358.4,2130,0)
;;=CASE MANAGEMENT SERVICES^1^161
;;^UTILITY(U,$J,358.4,2131,0)
;;=HOME HEALTH VISIT^5^161
;;^UTILITY(U,$J,358.4,2132,0)
;;=COMMUNITY RESIDENTIAL CARE^2^161
;;^UTILITY(U,$J,358.4,2133,0)
;;=SMOKING/TOBACCO USE CESSATION^8^161
;;^UTILITY(U,$J,358.4,2134,0)
;;=HEALTH AND BEHAVIOR ASSESSMENT^4^161
;;^UTILITY(U,$J,358.4,2135,0)
;;=EDUCATION/TRAINING^3^161
;;^UTILITY(U,$J,358.4,2136,0)
;;=ADMINISTRATIVE PURPOSES^1^162
;;^UTILITY(U,$J,358.4,2137,0)
;;=CONDITIONS INFLUENCING HEALTH^2^162
;;^UTILITY(U,$J,358.4,2138,0)
;;=FAMILY CIRCUMSTANCES^4^162
;;^UTILITY(U,$J,358.4,2139,0)
;;=HOUSING/ECONOMIC CIRCUMSTANCES^5^162
;;^UTILITY(U,$J,358.4,2140,0)
;;=MENTAL/BEHAVIORAL PROBLEMS^9^162
;;^UTILITY(U,$J,358.4,2141,0)
;;=ORGAN/TISSUE REPLACED^11^162
;;^UTILITY(U,$J,358.4,2142,0)
;;=POSTPROCEDURAL STATES^15^162
;;^UTILITY(U,$J,358.4,2143,0)
;;=PSYCHOSOCIAL CIRCUMSTANCES^16^162
;;^UTILITY(U,$J,358.4,2144,0)
;;=PERSONAL HX OF HAZARDS TO HEALTH^12^162
;;^UTILITY(U,$J,358.4,2145,0)
;;=PERSONS SEEKING CONSULT^14^162
;;^UTILITY(U,$J,358.4,2146,0)
;;=LIFESTYLE PROBLEMS^6^162
;;^UTILITY(U,$J,358.4,2147,0)
;;=MENTAL/DEVELOPMENTAL SCRN^10^162
;;^UTILITY(U,$J,358.4,2148,0)
;;=PERSONAL HX OF MENTAL DISORDER^13^162
;;^UTILITY(U,$J,358.4,2149,0)
;;=SENSES/FUNCTION PROBLEMS^17^162
;;^UTILITY(U,$J,358.4,2150,0)
;;=MACHINE/DEVICE DEPENDENCE^8^162
;;^UTILITY(U,$J,358.4,2151,0)
;;=UPPER LIMB AMPUTATION STATUS^20^162
;;^UTILITY(U,$J,358.4,2152,0)
;;=LOWER LIMB AMPUTATION STATUS^7^162
;;^UTILITY(U,$J,358.4,2153,0)
;;=UNAVAILABILITY OF MED FACILITY CARE^19^162
;;^UTILITY(U,$J,358.4,2154,0)
;;=CONVALENSCENCE/PALLIATIVE CARE^3^162
;;^UTILITY(U,$J,358.4,2155,0)
;;=SUICIDAL IDEATION^18^162
;;^UTILITY(U,$J,358.4,2156,0)
;;=PSYCHIATRIC THERAPY^8^163
;;^UTILITY(U,$J,358.4,2157,0)
;;=OTHER^7^163
;;^UTILITY(U,$J,358.4,2158,0)
;;=CASE MANAGEMENT SERVICES^1^163
;;^UTILITY(U,$J,358.4,2159,0)
;;=HOME HEALTH VISIT^5^163
;;^UTILITY(U,$J,358.4,2160,0)
;;=COMMUNITY RESIDENTIAL CARE^2^163
;;^UTILITY(U,$J,358.4,2161,0)
;;=SMOKING/TOBACCO USE CESSATION^9^163
;;^UTILITY(U,$J,358.4,2162,0)
;;=HEALTH AND BEHAVIOR ASSESSMENT^4^163
;;^UTILITY(U,$J,358.4,2163,0)
;;=EDUCATION/TRAINING^3^163
;;^UTILITY(U,$J,358.4,2164,0)
;;=TEAM CONFERENCE^11^163
;;^UTILITY(U,$J,358.4,2165,0)
;;=SUBSTANCE USE D/O^10^163
;;^UTILITY(U,$J,358.4,2166,0)
;;=ABUSE,NEGLECT, & VIOLENCE^1^164
;;^UTILITY(U,$J,358.4,2167,0)
;;=ANXIETY DISORDERS^2^164
;;^UTILITY(U,$J,358.4,2168,0)
;;=BIPOLAR & RELATED DISORDERS^3^164
;;^UTILITY(U,$J,358.4,2169,0)
;;=NEUROCOGNITIVE DISORDERS^17^164
;;^UTILITY(U,$J,358.4,2170,0)
;;=DEPRESSIVE DISORDERS^7^164
;;^UTILITY(U,$J,358.4,2171,0)
;;=DISSOCIATIVE DISORDERS ^9^164
;;^UTILITY(U,$J,358.4,2172,0)
;;=FEEDING & EATING DISORDERS^12^164
;;^UTILITY(U,$J,358.4,2173,0)
;;=EDUC/OCCUPATIONAL PROBLEMS^10^164
;;^UTILITY(U,$J,358.4,2174,0)
;;=GENDER DYSPHORIA^14^164
;;^UTILITY(U,$J,358.4,2175,0)
;;=HOUSING/ECONOMIC PROBLEMS^15^164
;;^UTILITY(U,$J,358.4,2176,0)
;;=MEDICATION ADVERSE EFFECTS^16^164
;;^UTILITY(U,$J,358.4,2177,0)
;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^19^164
;;^UTILITY(U,$J,358.4,2178,0)
;;=PERSONAL HX & CURRENT CIRCUMSTANCES^22^164
;;^UTILITY(U,$J,358.4,2179,0)
;;=COUNSELING/MEDICAL ADVICE^5^164
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BU 3810 printed Sep 23, 2025@20:21:46 Page 2
IBDEI3BU ; ; 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,2128,0)
+2 ;;=REASON FOR VISIT/HEALTH STATUS^3^160
+3 ;;^UTILITY(U,$J,358.4,2129,0)
+4 ;;=OTHER^7^161
+5 ;;^UTILITY(U,$J,358.4,2130,0)
+6 ;;=CASE MANAGEMENT SERVICES^1^161
+7 ;;^UTILITY(U,$J,358.4,2131,0)
+8 ;;=HOME HEALTH VISIT^5^161
+9 ;;^UTILITY(U,$J,358.4,2132,0)
+10 ;;=COMMUNITY RESIDENTIAL CARE^2^161
+11 ;;^UTILITY(U,$J,358.4,2133,0)
+12 ;;=SMOKING/TOBACCO USE CESSATION^8^161
+13 ;;^UTILITY(U,$J,358.4,2134,0)
+14 ;;=HEALTH AND BEHAVIOR ASSESSMENT^4^161
+15 ;;^UTILITY(U,$J,358.4,2135,0)
+16 ;;=EDUCATION/TRAINING^3^161
+17 ;;^UTILITY(U,$J,358.4,2136,0)
+18 ;;=ADMINISTRATIVE PURPOSES^1^162
+19 ;;^UTILITY(U,$J,358.4,2137,0)
+20 ;;=CONDITIONS INFLUENCING HEALTH^2^162
+21 ;;^UTILITY(U,$J,358.4,2138,0)
+22 ;;=FAMILY CIRCUMSTANCES^4^162
+23 ;;^UTILITY(U,$J,358.4,2139,0)
+24 ;;=HOUSING/ECONOMIC CIRCUMSTANCES^5^162
+25 ;;^UTILITY(U,$J,358.4,2140,0)
+26 ;;=MENTAL/BEHAVIORAL PROBLEMS^9^162
+27 ;;^UTILITY(U,$J,358.4,2141,0)
+28 ;;=ORGAN/TISSUE REPLACED^11^162
+29 ;;^UTILITY(U,$J,358.4,2142,0)
+30 ;;=POSTPROCEDURAL STATES^15^162
+31 ;;^UTILITY(U,$J,358.4,2143,0)
+32 ;;=PSYCHOSOCIAL CIRCUMSTANCES^16^162
+33 ;;^UTILITY(U,$J,358.4,2144,0)
+34 ;;=PERSONAL HX OF HAZARDS TO HEALTH^12^162
+35 ;;^UTILITY(U,$J,358.4,2145,0)
+36 ;;=PERSONS SEEKING CONSULT^14^162
+37 ;;^UTILITY(U,$J,358.4,2146,0)
+38 ;;=LIFESTYLE PROBLEMS^6^162
+39 ;;^UTILITY(U,$J,358.4,2147,0)
+40 ;;=MENTAL/DEVELOPMENTAL SCRN^10^162
+41 ;;^UTILITY(U,$J,358.4,2148,0)
+42 ;;=PERSONAL HX OF MENTAL DISORDER^13^162
+43 ;;^UTILITY(U,$J,358.4,2149,0)
+44 ;;=SENSES/FUNCTION PROBLEMS^17^162
+45 ;;^UTILITY(U,$J,358.4,2150,0)
+46 ;;=MACHINE/DEVICE DEPENDENCE^8^162
+47 ;;^UTILITY(U,$J,358.4,2151,0)
+48 ;;=UPPER LIMB AMPUTATION STATUS^20^162
+49 ;;^UTILITY(U,$J,358.4,2152,0)
+50 ;;=LOWER LIMB AMPUTATION STATUS^7^162
+51 ;;^UTILITY(U,$J,358.4,2153,0)
+52 ;;=UNAVAILABILITY OF MED FACILITY CARE^19^162
+53 ;;^UTILITY(U,$J,358.4,2154,0)
+54 ;;=CONVALENSCENCE/PALLIATIVE CARE^3^162
+55 ;;^UTILITY(U,$J,358.4,2155,0)
+56 ;;=SUICIDAL IDEATION^18^162
+57 ;;^UTILITY(U,$J,358.4,2156,0)
+58 ;;=PSYCHIATRIC THERAPY^8^163
+59 ;;^UTILITY(U,$J,358.4,2157,0)
+60 ;;=OTHER^7^163
+61 ;;^UTILITY(U,$J,358.4,2158,0)
+62 ;;=CASE MANAGEMENT SERVICES^1^163
+63 ;;^UTILITY(U,$J,358.4,2159,0)
+64 ;;=HOME HEALTH VISIT^5^163
+65 ;;^UTILITY(U,$J,358.4,2160,0)
+66 ;;=COMMUNITY RESIDENTIAL CARE^2^163
+67 ;;^UTILITY(U,$J,358.4,2161,0)
+68 ;;=SMOKING/TOBACCO USE CESSATION^9^163
+69 ;;^UTILITY(U,$J,358.4,2162,0)
+70 ;;=HEALTH AND BEHAVIOR ASSESSMENT^4^163
+71 ;;^UTILITY(U,$J,358.4,2163,0)
+72 ;;=EDUCATION/TRAINING^3^163
+73 ;;^UTILITY(U,$J,358.4,2164,0)
+74 ;;=TEAM CONFERENCE^11^163
+75 ;;^UTILITY(U,$J,358.4,2165,0)
+76 ;;=SUBSTANCE USE D/O^10^163
+77 ;;^UTILITY(U,$J,358.4,2166,0)
+78 ;;=ABUSE,NEGLECT, & VIOLENCE^1^164
+79 ;;^UTILITY(U,$J,358.4,2167,0)
+80 ;;=ANXIETY DISORDERS^2^164
+81 ;;^UTILITY(U,$J,358.4,2168,0)
+82 ;;=BIPOLAR & RELATED DISORDERS^3^164
+83 ;;^UTILITY(U,$J,358.4,2169,0)
+84 ;;=NEUROCOGNITIVE DISORDERS^17^164
+85 ;;^UTILITY(U,$J,358.4,2170,0)
+86 ;;=DEPRESSIVE DISORDERS^7^164
+87 ;;^UTILITY(U,$J,358.4,2171,0)
+88 ;;=DISSOCIATIVE DISORDERS ^9^164
+89 ;;^UTILITY(U,$J,358.4,2172,0)
+90 ;;=FEEDING & EATING DISORDERS^12^164
+91 ;;^UTILITY(U,$J,358.4,2173,0)
+92 ;;=EDUC/OCCUPATIONAL PROBLEMS^10^164
+93 ;;^UTILITY(U,$J,358.4,2174,0)
+94 ;;=GENDER DYSPHORIA^14^164
+95 ;;^UTILITY(U,$J,358.4,2175,0)
+96 ;;=HOUSING/ECONOMIC PROBLEMS^15^164
+97 ;;^UTILITY(U,$J,358.4,2176,0)
+98 ;;=MEDICATION ADVERSE EFFECTS^16^164
+99 ;;^UTILITY(U,$J,358.4,2177,0)
+100 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^19^164
+101 ;;^UTILITY(U,$J,358.4,2178,0)
+102 ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^22^164
+103 ;;^UTILITY(U,$J,358.4,2179,0)
+104 ;;=COUNSELING/MEDICAL ADVICE^5^164
