IBDEI3J1 ; ; 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,2552,0)
;;=REASON FOR VISIT/HEALTH STATUS^6^233
;;^UTILITY(U,$J,358.4,2553,0)
;;=OTHER^7^234
;;^UTILITY(U,$J,358.4,2554,0)
;;=CASE MANAGEMENT SERVICES^1^234
;;^UTILITY(U,$J,358.4,2555,0)
;;=HOME HEALTH VISIT^5^234
;;^UTILITY(U,$J,358.4,2556,0)
;;=COMMUNITY RESIDENTIAL CARE^2^234
;;^UTILITY(U,$J,358.4,2557,0)
;;=SMOKING/TOBACCO USE CESSATION^8^234
;;^UTILITY(U,$J,358.4,2558,0)
;;=HEALTH AND BEHAVIOR ASSESSMENT^4^234
;;^UTILITY(U,$J,358.4,2559,0)
;;=EDUCATION/TRAINING^3^234
;;^UTILITY(U,$J,358.4,2560,0)
;;=ADMINISTRATIVE PURPOSES^1^235
;;^UTILITY(U,$J,358.4,2561,0)
;;=CONDITIONS INFLUENCING HEALTH^2^235
;;^UTILITY(U,$J,358.4,2562,0)
;;=FAMILY CIRCUMSTANCES^4^235
;;^UTILITY(U,$J,358.4,2563,0)
;;=HOUSING/ECONOMIC CIRCUMSTANCES^5^235
;;^UTILITY(U,$J,358.4,2564,0)
;;=MENTAL/BEHAVIORAL PROBLEMS^9^235
;;^UTILITY(U,$J,358.4,2565,0)
;;=ORGAN/TISSUE REPLACED^11^235
;;^UTILITY(U,$J,358.4,2566,0)
;;=POSTPROCEDURAL STATES^15^235
;;^UTILITY(U,$J,358.4,2567,0)
;;=PSYCHOSOCIAL CIRCUMSTANCES^16^235
;;^UTILITY(U,$J,358.4,2568,0)
;;=PERSONAL HX OF HAZARDS TO HEALTH^12^235
;;^UTILITY(U,$J,358.4,2569,0)
;;=PERSONS SEEKING CONSULT^14^235
;;^UTILITY(U,$J,358.4,2570,0)
;;=LIFESTYLE PROBLEMS^6^235
;;^UTILITY(U,$J,358.4,2571,0)
;;=MENTAL/DEVELOPMENTAL SCRN^10^235
;;^UTILITY(U,$J,358.4,2572,0)
;;=PERSONAL HX OF MENTAL DISORDER^13^235
;;^UTILITY(U,$J,358.4,2573,0)
;;=SENSES/FUNCTION PROBLEMS^17^235
;;^UTILITY(U,$J,358.4,2574,0)
;;=MACHINE/DEVICE DEPENDENCE^8^235
;;^UTILITY(U,$J,358.4,2575,0)
;;=UPPER LIMB AMPUTATION STATUS^19^235
;;^UTILITY(U,$J,358.4,2576,0)
;;=LOWER LIMB AMPUTATION STATUS^7^235
;;^UTILITY(U,$J,358.4,2577,0)
;;=UNAVAILABILITY OF MED FACILITY CARE^18^235
;;^UTILITY(U,$J,358.4,2578,0)
;;=CONVALENSCENCE/PALLIATIVE CARE^3^235
;;^UTILITY(U,$J,358.4,2579,0)
;;=PSYCHIATRIC THERAPY^8^236
;;^UTILITY(U,$J,358.4,2580,0)
;;=OTHER^7^236
;;^UTILITY(U,$J,358.4,2581,0)
;;=CASE MANAGEMENT SERVICES^1^236
;;^UTILITY(U,$J,358.4,2582,0)
;;=HOME HEALTH VISIT^5^236
;;^UTILITY(U,$J,358.4,2583,0)
;;=COMMUNITY RESIDENTIAL CARE^2^236
;;^UTILITY(U,$J,358.4,2584,0)
;;=SMOKING/TOBACCO USE CESSATION^9^236
;;^UTILITY(U,$J,358.4,2585,0)
;;=HEALTH AND BEHAVIOR ASSESSMENT^4^236
;;^UTILITY(U,$J,358.4,2586,0)
;;=EDUCATION/TRAINING^3^236
;;^UTILITY(U,$J,358.4,2587,0)
;;=TEAM CONFERENCE^10^236
;;^UTILITY(U,$J,358.4,2588,0)
;;=ABUSE AND NEGLECT^1^237
;;^UTILITY(U,$J,358.4,2589,0)
;;=ANXIETY DISORDERS^3^237
;;^UTILITY(U,$J,358.4,2590,0)
;;=BIPOLAR DISORDERS^4^237
;;^UTILITY(U,$J,358.4,2591,0)
;;=DELIRIUM^7^237
;;^UTILITY(U,$J,358.4,2592,0)
;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^237
;;^UTILITY(U,$J,358.4,2593,0)
;;=DEPRESSIVE DISORDERS^9^237
;;^UTILITY(U,$J,358.4,2594,0)
;;=DISSOCIATIVE DISORDERS ^10^237
;;^UTILITY(U,$J,358.4,2595,0)
;;=EATING DISORDERS^11^237
;;^UTILITY(U,$J,358.4,2596,0)
;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^237
;;^UTILITY(U,$J,358.4,2597,0)
;;=GENDER DYSPHORIA^13^237
;;^UTILITY(U,$J,358.4,2598,0)
;;=HOUSING/ECONOMIC PROBLEMS^14^237
;;^UTILITY(U,$J,358.4,2599,0)
;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^237
;;^UTILITY(U,$J,358.4,2600,0)
;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^237
;;^UTILITY(U,$J,358.4,2601,0)
;;=ORGANIC DISORDERS^18^237
;;^UTILITY(U,$J,358.4,2602,0)
;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^237
;;^UTILITY(U,$J,358.4,2603,0)
;;=ADHD^2^237
;;^UTILITY(U,$J,358.4,2604,0)
;;=COUNSELING/MED ADVICE^5^237
;;^UTILITY(U,$J,358.4,2605,0)
;;=SOCIAL ENVIRONMENT PROBLEMS^28^237
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3J1 3914 printed Dec 13, 2024@02:49:44 Page 2
IBDEI3J1 ; ; 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,2552,0)
+2 ;;=REASON FOR VISIT/HEALTH STATUS^6^233
+3 ;;^UTILITY(U,$J,358.4,2553,0)
+4 ;;=OTHER^7^234
+5 ;;^UTILITY(U,$J,358.4,2554,0)
+6 ;;=CASE MANAGEMENT SERVICES^1^234
+7 ;;^UTILITY(U,$J,358.4,2555,0)
+8 ;;=HOME HEALTH VISIT^5^234
+9 ;;^UTILITY(U,$J,358.4,2556,0)
+10 ;;=COMMUNITY RESIDENTIAL CARE^2^234
+11 ;;^UTILITY(U,$J,358.4,2557,0)
+12 ;;=SMOKING/TOBACCO USE CESSATION^8^234
+13 ;;^UTILITY(U,$J,358.4,2558,0)
+14 ;;=HEALTH AND BEHAVIOR ASSESSMENT^4^234
+15 ;;^UTILITY(U,$J,358.4,2559,0)
+16 ;;=EDUCATION/TRAINING^3^234
+17 ;;^UTILITY(U,$J,358.4,2560,0)
+18 ;;=ADMINISTRATIVE PURPOSES^1^235
+19 ;;^UTILITY(U,$J,358.4,2561,0)
+20 ;;=CONDITIONS INFLUENCING HEALTH^2^235
+21 ;;^UTILITY(U,$J,358.4,2562,0)
+22 ;;=FAMILY CIRCUMSTANCES^4^235
+23 ;;^UTILITY(U,$J,358.4,2563,0)
+24 ;;=HOUSING/ECONOMIC CIRCUMSTANCES^5^235
+25 ;;^UTILITY(U,$J,358.4,2564,0)
+26 ;;=MENTAL/BEHAVIORAL PROBLEMS^9^235
+27 ;;^UTILITY(U,$J,358.4,2565,0)
+28 ;;=ORGAN/TISSUE REPLACED^11^235
+29 ;;^UTILITY(U,$J,358.4,2566,0)
+30 ;;=POSTPROCEDURAL STATES^15^235
+31 ;;^UTILITY(U,$J,358.4,2567,0)
+32 ;;=PSYCHOSOCIAL CIRCUMSTANCES^16^235
+33 ;;^UTILITY(U,$J,358.4,2568,0)
+34 ;;=PERSONAL HX OF HAZARDS TO HEALTH^12^235
+35 ;;^UTILITY(U,$J,358.4,2569,0)
+36 ;;=PERSONS SEEKING CONSULT^14^235
+37 ;;^UTILITY(U,$J,358.4,2570,0)
+38 ;;=LIFESTYLE PROBLEMS^6^235
+39 ;;^UTILITY(U,$J,358.4,2571,0)
+40 ;;=MENTAL/DEVELOPMENTAL SCRN^10^235
+41 ;;^UTILITY(U,$J,358.4,2572,0)
+42 ;;=PERSONAL HX OF MENTAL DISORDER^13^235
+43 ;;^UTILITY(U,$J,358.4,2573,0)
+44 ;;=SENSES/FUNCTION PROBLEMS^17^235
+45 ;;^UTILITY(U,$J,358.4,2574,0)
+46 ;;=MACHINE/DEVICE DEPENDENCE^8^235
+47 ;;^UTILITY(U,$J,358.4,2575,0)
+48 ;;=UPPER LIMB AMPUTATION STATUS^19^235
+49 ;;^UTILITY(U,$J,358.4,2576,0)
+50 ;;=LOWER LIMB AMPUTATION STATUS^7^235
+51 ;;^UTILITY(U,$J,358.4,2577,0)
+52 ;;=UNAVAILABILITY OF MED FACILITY CARE^18^235
+53 ;;^UTILITY(U,$J,358.4,2578,0)
+54 ;;=CONVALENSCENCE/PALLIATIVE CARE^3^235
+55 ;;^UTILITY(U,$J,358.4,2579,0)
+56 ;;=PSYCHIATRIC THERAPY^8^236
+57 ;;^UTILITY(U,$J,358.4,2580,0)
+58 ;;=OTHER^7^236
+59 ;;^UTILITY(U,$J,358.4,2581,0)
+60 ;;=CASE MANAGEMENT SERVICES^1^236
+61 ;;^UTILITY(U,$J,358.4,2582,0)
+62 ;;=HOME HEALTH VISIT^5^236
+63 ;;^UTILITY(U,$J,358.4,2583,0)
+64 ;;=COMMUNITY RESIDENTIAL CARE^2^236
+65 ;;^UTILITY(U,$J,358.4,2584,0)
+66 ;;=SMOKING/TOBACCO USE CESSATION^9^236
+67 ;;^UTILITY(U,$J,358.4,2585,0)
+68 ;;=HEALTH AND BEHAVIOR ASSESSMENT^4^236
+69 ;;^UTILITY(U,$J,358.4,2586,0)
+70 ;;=EDUCATION/TRAINING^3^236
+71 ;;^UTILITY(U,$J,358.4,2587,0)
+72 ;;=TEAM CONFERENCE^10^236
+73 ;;^UTILITY(U,$J,358.4,2588,0)
+74 ;;=ABUSE AND NEGLECT^1^237
+75 ;;^UTILITY(U,$J,358.4,2589,0)
+76 ;;=ANXIETY DISORDERS^3^237
+77 ;;^UTILITY(U,$J,358.4,2590,0)
+78 ;;=BIPOLAR DISORDERS^4^237
+79 ;;^UTILITY(U,$J,358.4,2591,0)
+80 ;;=DELIRIUM^7^237
+81 ;;^UTILITY(U,$J,358.4,2592,0)
+82 ;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^237
+83 ;;^UTILITY(U,$J,358.4,2593,0)
+84 ;;=DEPRESSIVE DISORDERS^9^237
+85 ;;^UTILITY(U,$J,358.4,2594,0)
+86 ;;=DISSOCIATIVE DISORDERS ^10^237
+87 ;;^UTILITY(U,$J,358.4,2595,0)
+88 ;;=EATING DISORDERS^11^237
+89 ;;^UTILITY(U,$J,358.4,2596,0)
+90 ;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^237
+91 ;;^UTILITY(U,$J,358.4,2597,0)
+92 ;;=GENDER DYSPHORIA^13^237
+93 ;;^UTILITY(U,$J,358.4,2598,0)
+94 ;;=HOUSING/ECONOMIC PROBLEMS^14^237
+95 ;;^UTILITY(U,$J,358.4,2599,0)
+96 ;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^237
+97 ;;^UTILITY(U,$J,358.4,2600,0)
+98 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^237
+99 ;;^UTILITY(U,$J,358.4,2601,0)
+100 ;;=ORGANIC DISORDERS^18^237
+101 ;;^UTILITY(U,$J,358.4,2602,0)
+102 ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^237
+103 ;;^UTILITY(U,$J,358.4,2603,0)
+104 ;;=ADHD^2^237
+105 ;;^UTILITY(U,$J,358.4,2604,0)
+106 ;;=COUNSELING/MED ADVICE^5^237
+107 ;;^UTILITY(U,$J,358.4,2605,0)
+108 ;;=SOCIAL ENVIRONMENT PROBLEMS^28^237
