IBDEI3BZ ; ; 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,2409,0)
;;=MENTAL HEALTH^18^185
;;^UTILITY(U,$J,358.4,2410,0)
;;=ABDOMINAL/GASTRO/DIGESTIVE^1^185
;;^UTILITY(U,$J,358.4,2411,0)
;;=ANEMIA/BLOOD^2^185
;;^UTILITY(U,$J,358.4,2412,0)
;;=BREAST/SKIN/HAIR/NAIL/SOFT TISSUE^3^185
;;^UTILITY(U,$J,358.4,2413,0)
;;=CANCER^4^185
;;^UTILITY(U,$J,358.4,2414,0)
;;=CARDIO/VASCULAR^5^185
;;^UTILITY(U,$J,358.4,2415,0)
;;=EAR/HEARING^7^185
;;^UTILITY(U,$J,358.4,2416,0)
;;=EAR/HEARING-VESTIBULAR FUNCTION^8^185
;;^UTILITY(U,$J,358.4,2417,0)
;;=ENDOCRINE/METABOLIC/NUTRITIONAL^9^185
;;^UTILITY(U,$J,358.4,2418,0)
;;=EYE/VISION DISORDERS^10^185
;;^UTILITY(U,$J,358.4,2419,0)
;;=FALLS-INITIAL^11^185
;;^UTILITY(U,$J,358.4,2420,0)
;;=GENITOURINARY^15^185
;;^UTILITY(U,$J,358.4,2421,0)
;;=INFECTION^16^185
;;^UTILITY(U,$J,358.4,2422,0)
;;=KIDNEY/RENAL^17^185
;;^UTILITY(U,$J,358.4,2423,0)
;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^19^185
;;^UTILITY(U,$J,358.4,2424,0)
;;=NEUROLOGICAL/CEREBROVASCULAR^20^185
;;^UTILITY(U,$J,358.4,2425,0)
;;=PAIN^21^185
;;^UTILITY(U,$J,358.4,2426,0)
;;=PULMONARY/RESPIRATORY^22^185
;;^UTILITY(U,$J,358.4,2427,0)
;;=SLEEP DISORDERS^23^185
;;^UTILITY(U,$J,358.4,2428,0)
;;=SYMPTOMS/OTHER CONDITIONS^25^185
;;^UTILITY(U,$J,358.4,2429,0)
;;=FALLS-SEQUELA^12^185
;;^UTILITY(U,$J,358.4,2430,0)
;;=FALLS-SUBSEQUENT^13^185
;;^UTILITY(U,$J,358.4,2431,0)
;;=FUNCTION/GAIT/MOBILITY^14^185
;;^UTILITY(U,$J,358.4,2432,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^24^185
;;^UTILITY(U,$J,358.4,2433,0)
;;=HOSPICE CARE SUPERVISION^2^186
;;^UTILITY(U,$J,358.4,2434,0)
;;=PROLONGED SERVICES^3^186
;;^UTILITY(U,$J,358.4,2435,0)
;;=ADVANCE CARE PLANNING^1^186
;;^UTILITY(U,$J,358.4,2436,0)
;;=TEAM CONFERENCE^4^186
;;^UTILITY(U,$J,358.4,2437,0)
;;=NEOPLASMS^9^187
;;^UTILITY(U,$J,358.4,2438,0)
;;=CARDIOVASCULAR DISORDERS^2^187
;;^UTILITY(U,$J,358.4,2439,0)
;;=MENTAL HEALTH^8^187
;;^UTILITY(U,$J,358.4,2440,0)
;;=NEUROLOGICAL CONDITIONS^10^187
;;^UTILITY(U,$J,358.4,2441,0)
;;=GI DISORDERS^5^187
;;^UTILITY(U,$J,358.4,2442,0)
;;=LIVER DISORDERS^7^187
;;^UTILITY(U,$J,358.4,2443,0)
;;=KIDNEY DISORDERS^6^187
;;^UTILITY(U,$J,358.4,2444,0)
;;=RESPIRATORY DISORDERS^11^187
;;^UTILITY(U,$J,358.4,2445,0)
;;=PALLIATIVE/HOSPICE ENCOUNTER^1^187
;;^UTILITY(U,$J,358.4,2446,0)
;;=OTHER CONDITIONS^13^187
;;^UTILITY(U,$J,358.4,2447,0)
;;=DEMENTIA^3^187
;;^UTILITY(U,$J,358.4,2448,0)
;;=GENERAL IM^4^187
;;^UTILITY(U,$J,358.4,2449,0)
;;=OTHER BACTERIAL DISEASES^12^187
;;^UTILITY(U,$J,358.4,2450,0)
;;=INPATIENT CONSULTATIONS^1^188
;;^UTILITY(U,$J,358.4,2451,0)
;;=INITIAL INPATIENT CARE^2^188
;;^UTILITY(U,$J,358.4,2452,0)
;;=SUBSEQUENT INPATIENT CARE^3^188
;;^UTILITY(U,$J,358.4,2453,0)
;;=DISCHARGE/PRONOUNCEMENT^4^188
;;^UTILITY(U,$J,358.4,2454,0)
;;=NH INITIAL INPATIENT CARE^5^188
;;^UTILITY(U,$J,358.4,2455,0)
;;=NH SUBSEQUENT INPATIENT CARE^6^188
;;^UTILITY(U,$J,358.4,2456,0)
;;=NH DISCHARGE/PRONOUNCEMENT^7^188
;;^UTILITY(U,$J,358.4,2457,0)
;;=HOSPICE CARE SUPERVISION^4^189
;;^UTILITY(U,$J,358.4,2458,0)
;;=ADVANCE LIFE PLANNING^2^189
;;^UTILITY(U,$J,358.4,2459,0)
;;=EDUCATION^3^189
;;^UTILITY(U,$J,358.4,2460,0)
;;=NON-VIDEO MONITORING^5^189
;;^UTILITY(U,$J,358.4,2461,0)
;;=TEAM CONFERENCE^7^189
;;^UTILITY(U,$J,358.4,2462,0)
;;=PROLONGED SERVICES^6^189
;;^UTILITY(U,$J,358.4,2463,0)
;;=ADVANCE CARE PLANNING^1^189
;;^UTILITY(U,$J,358.4,2464,0)
;;=NEW PATIENT ^2^190
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BZ 3797 printed Sep 15, 2024@22:10 Page 2
IBDEI3BZ ; ; 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,2409,0)
+2 ;;=MENTAL HEALTH^18^185
+3 ;;^UTILITY(U,$J,358.4,2410,0)
+4 ;;=ABDOMINAL/GASTRO/DIGESTIVE^1^185
+5 ;;^UTILITY(U,$J,358.4,2411,0)
+6 ;;=ANEMIA/BLOOD^2^185
+7 ;;^UTILITY(U,$J,358.4,2412,0)
+8 ;;=BREAST/SKIN/HAIR/NAIL/SOFT TISSUE^3^185
+9 ;;^UTILITY(U,$J,358.4,2413,0)
+10 ;;=CANCER^4^185
+11 ;;^UTILITY(U,$J,358.4,2414,0)
+12 ;;=CARDIO/VASCULAR^5^185
+13 ;;^UTILITY(U,$J,358.4,2415,0)
+14 ;;=EAR/HEARING^7^185
+15 ;;^UTILITY(U,$J,358.4,2416,0)
+16 ;;=EAR/HEARING-VESTIBULAR FUNCTION^8^185
+17 ;;^UTILITY(U,$J,358.4,2417,0)
+18 ;;=ENDOCRINE/METABOLIC/NUTRITIONAL^9^185
+19 ;;^UTILITY(U,$J,358.4,2418,0)
+20 ;;=EYE/VISION DISORDERS^10^185
+21 ;;^UTILITY(U,$J,358.4,2419,0)
+22 ;;=FALLS-INITIAL^11^185
+23 ;;^UTILITY(U,$J,358.4,2420,0)
+24 ;;=GENITOURINARY^15^185
+25 ;;^UTILITY(U,$J,358.4,2421,0)
+26 ;;=INFECTION^16^185
+27 ;;^UTILITY(U,$J,358.4,2422,0)
+28 ;;=KIDNEY/RENAL^17^185
+29 ;;^UTILITY(U,$J,358.4,2423,0)
+30 ;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^19^185
+31 ;;^UTILITY(U,$J,358.4,2424,0)
+32 ;;=NEUROLOGICAL/CEREBROVASCULAR^20^185
+33 ;;^UTILITY(U,$J,358.4,2425,0)
+34 ;;=PAIN^21^185
+35 ;;^UTILITY(U,$J,358.4,2426,0)
+36 ;;=PULMONARY/RESPIRATORY^22^185
+37 ;;^UTILITY(U,$J,358.4,2427,0)
+38 ;;=SLEEP DISORDERS^23^185
+39 ;;^UTILITY(U,$J,358.4,2428,0)
+40 ;;=SYMPTOMS/OTHER CONDITIONS^25^185
+41 ;;^UTILITY(U,$J,358.4,2429,0)
+42 ;;=FALLS-SEQUELA^12^185
+43 ;;^UTILITY(U,$J,358.4,2430,0)
+44 ;;=FALLS-SUBSEQUENT^13^185
+45 ;;^UTILITY(U,$J,358.4,2431,0)
+46 ;;=FUNCTION/GAIT/MOBILITY^14^185
+47 ;;^UTILITY(U,$J,358.4,2432,0)
+48 ;;=SUICIDE IDEATIONS/ATTEMPTS^24^185
+49 ;;^UTILITY(U,$J,358.4,2433,0)
+50 ;;=HOSPICE CARE SUPERVISION^2^186
+51 ;;^UTILITY(U,$J,358.4,2434,0)
+52 ;;=PROLONGED SERVICES^3^186
+53 ;;^UTILITY(U,$J,358.4,2435,0)
+54 ;;=ADVANCE CARE PLANNING^1^186
+55 ;;^UTILITY(U,$J,358.4,2436,0)
+56 ;;=TEAM CONFERENCE^4^186
+57 ;;^UTILITY(U,$J,358.4,2437,0)
+58 ;;=NEOPLASMS^9^187
+59 ;;^UTILITY(U,$J,358.4,2438,0)
+60 ;;=CARDIOVASCULAR DISORDERS^2^187
+61 ;;^UTILITY(U,$J,358.4,2439,0)
+62 ;;=MENTAL HEALTH^8^187
+63 ;;^UTILITY(U,$J,358.4,2440,0)
+64 ;;=NEUROLOGICAL CONDITIONS^10^187
+65 ;;^UTILITY(U,$J,358.4,2441,0)
+66 ;;=GI DISORDERS^5^187
+67 ;;^UTILITY(U,$J,358.4,2442,0)
+68 ;;=LIVER DISORDERS^7^187
+69 ;;^UTILITY(U,$J,358.4,2443,0)
+70 ;;=KIDNEY DISORDERS^6^187
+71 ;;^UTILITY(U,$J,358.4,2444,0)
+72 ;;=RESPIRATORY DISORDERS^11^187
+73 ;;^UTILITY(U,$J,358.4,2445,0)
+74 ;;=PALLIATIVE/HOSPICE ENCOUNTER^1^187
+75 ;;^UTILITY(U,$J,358.4,2446,0)
+76 ;;=OTHER CONDITIONS^13^187
+77 ;;^UTILITY(U,$J,358.4,2447,0)
+78 ;;=DEMENTIA^3^187
+79 ;;^UTILITY(U,$J,358.4,2448,0)
+80 ;;=GENERAL IM^4^187
+81 ;;^UTILITY(U,$J,358.4,2449,0)
+82 ;;=OTHER BACTERIAL DISEASES^12^187
+83 ;;^UTILITY(U,$J,358.4,2450,0)
+84 ;;=INPATIENT CONSULTATIONS^1^188
+85 ;;^UTILITY(U,$J,358.4,2451,0)
+86 ;;=INITIAL INPATIENT CARE^2^188
+87 ;;^UTILITY(U,$J,358.4,2452,0)
+88 ;;=SUBSEQUENT INPATIENT CARE^3^188
+89 ;;^UTILITY(U,$J,358.4,2453,0)
+90 ;;=DISCHARGE/PRONOUNCEMENT^4^188
+91 ;;^UTILITY(U,$J,358.4,2454,0)
+92 ;;=NH INITIAL INPATIENT CARE^5^188
+93 ;;^UTILITY(U,$J,358.4,2455,0)
+94 ;;=NH SUBSEQUENT INPATIENT CARE^6^188
+95 ;;^UTILITY(U,$J,358.4,2456,0)
+96 ;;=NH DISCHARGE/PRONOUNCEMENT^7^188
+97 ;;^UTILITY(U,$J,358.4,2457,0)
+98 ;;=HOSPICE CARE SUPERVISION^4^189
+99 ;;^UTILITY(U,$J,358.4,2458,0)
+100 ;;=ADVANCE LIFE PLANNING^2^189
+101 ;;^UTILITY(U,$J,358.4,2459,0)
+102 ;;=EDUCATION^3^189
+103 ;;^UTILITY(U,$J,358.4,2460,0)
+104 ;;=NON-VIDEO MONITORING^5^189
+105 ;;^UTILITY(U,$J,358.4,2461,0)
+106 ;;=TEAM CONFERENCE^7^189
+107 ;;^UTILITY(U,$J,358.4,2462,0)
+108 ;;=PROLONGED SERVICES^6^189
+109 ;;^UTILITY(U,$J,358.4,2463,0)
+110 ;;=ADVANCE CARE PLANNING^1^189
+111 ;;^UTILITY(U,$J,358.4,2464,0)
+112 ;;=NEW PATIENT ^2^190
