IBDEI3BS ; ; 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,2015,0)
;;=VARICOSE VEINS^50^152
;;^UTILITY(U,$J,358.4,2016,0)
;;=WOMEN'S HEALTH^51^152
;;^UTILITY(U,$J,358.4,2017,0)
;;=WOUNDS-INITIAL ENCOUNTER^52^152
;;^UTILITY(U,$J,358.4,2018,0)
;;=COMA^20^152
;;^UTILITY(U,$J,358.4,2019,0)
;;=CAUSES OF INJURY^19^152
;;^UTILITY(U,$J,358.4,2020,0)
;;=DEMENTIA^21^152
;;^UTILITY(U,$J,358.4,2021,0)
;;=LONG TERM CURRENT DRUG THERAPY^37^152
;;^UTILITY(U,$J,358.4,2022,0)
;;=ACQUIRED ABSENCE OF BODY PART(S)^2^152
;;^UTILITY(U,$J,358.4,2023,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^49^152
;;^UTILITY(U,$J,358.4,2024,0)
;;=ACSC ACUTE KIDNEY FAILURE^3^152
;;^UTILITY(U,$J,358.4,2025,0)
;;=ACSC ANGINA^4^152
;;^UTILITY(U,$J,358.4,2026,0)
;;=ACSC ASTHMA/BRONCHITIS/COPD^5^152
;;^UTILITY(U,$J,358.4,2027,0)
;;=ACSC CHF^6^152
;;^UTILITY(U,$J,358.4,2028,0)
;;=ACSC DEHYDRATION^7^152
;;^UTILITY(U,$J,358.4,2029,0)
;;=ACSC DIABETES TYPE 1^8^152
;;^UTILITY(U,$J,358.4,2030,0)
;;=ACSC DIABETES TYPE 2^9^152
;;^UTILITY(U,$J,358.4,2031,0)
;;=ACSC HYPERTENSION^10^152
;;^UTILITY(U,$J,358.4,2032,0)
;;=ACSC INFECTIOUS GASTROENTERITIS^11^152
;;^UTILITY(U,$J,358.4,2033,0)
;;=ACSC PNEUMONIA^12^152
;;^UTILITY(U,$J,358.4,2034,0)
;;=ACSC UTI^13^152
;;^UTILITY(U,$J,358.4,2035,0)
;;=ACSC VIRAL ENTERITIS^14^152
;;^UTILITY(U,$J,358.4,2036,0)
;;=E-CIG/VAPE LUNG INJURY^23^152
;;^UTILITY(U,$J,358.4,2037,0)
;;=NEW PATIENT^2^153
;;^UTILITY(U,$J,358.4,2038,0)
;;=ESTABLISHED PATIENT^1^153
;;^UTILITY(U,$J,358.4,2039,0)
;;=CONSULTATIONS^3^153
;;^UTILITY(U,$J,358.4,2040,0)
;;=THERAPY MODALITIES/PROCEDURES^19^154
;;^UTILITY(U,$J,358.4,2041,0)
;;=DRUGS/MEDICATION^6^154
;;^UTILITY(U,$J,358.4,2042,0)
;;=ORTHOTIC DEVICES^13^154
;;^UTILITY(U,$J,358.4,2043,0)
;;=KINESIOTHERAPY^11^154
;;^UTILITY(U,$J,358.4,2044,0)
;;=THERAPY EVALUATIONS^18^154
;;^UTILITY(U,$J,358.4,2045,0)
;;=WOUND CARE^20^154
;;^UTILITY(U,$J,358.4,2046,0)
;;=CARDIAC REHAB^4^154
;;^UTILITY(U,$J,358.4,2047,0)
;;=EDUCATION/TRAINING^7^154
;;^UTILITY(U,$J,358.4,2048,0)
;;=HOME THERAPY SERVICES^9^154
;;^UTILITY(U,$J,358.4,2049,0)
;;=NEUROMUSCULAR TESTING^12^154
;;^UTILITY(U,$J,358.4,2050,0)
;;=TEAM CONFERENCE^16^154
;;^UTILITY(U,$J,358.4,2051,0)
;;=HEALTH BEHAVIORS^8^154
;;^UTILITY(U,$J,358.4,2052,0)
;;=RECREATION THERAPY^14^154
;;^UTILITY(U,$J,358.4,2053,0)
;;=DEVICES/SUPPLIES^5^154
;;^UTILITY(U,$J,358.4,2054,0)
;;=TENS^17^154
;;^UTILITY(U,$J,358.4,2055,0)
;;=ACUPUNCTURE^1^154
;;^UTILITY(U,$J,358.4,2056,0)
;;=INJECTIONS^10^154
;;^UTILITY(U,$J,358.4,2057,0)
;;=SPINAL CORD STIMULATOR^15^154
;;^UTILITY(U,$J,358.4,2058,0)
;;=ADAPTIVE BEHAVIOR ASSESSMENTS^2^154
;;^UTILITY(U,$J,358.4,2059,0)
;;=ADAPTIVE BEHAVIOR TREATMENT^3^154
;;^UTILITY(U,$J,358.4,2060,0)
;;=AMPUTATION STATUS^1^155
;;^UTILITY(U,$J,358.4,2061,0)
;;=BRAIN DISORDERS^2^155
;;^UTILITY(U,$J,358.4,2062,0)
;;=CARDIOPULMONARY^4^155
;;^UTILITY(U,$J,358.4,2063,0)
;;=COMPLICATIONS DUE TO^5^155
;;^UTILITY(U,$J,358.4,2064,0)
;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^12^155
;;^UTILITY(U,$J,358.4,2065,0)
;;=Z CODES^21^155
;;^UTILITY(U,$J,358.4,2066,0)
;;=BRAIN INJURY - TRAUMATIC^3^155
;;^UTILITY(U,$J,358.4,2067,0)
;;=FEMUR/THIGH/KNEE FRACTURE^7^155
;;^UTILITY(U,$J,358.4,2068,0)
;;=FOOT/TOE/ANKLE FRANCTURE^8^155
;;^UTILITY(U,$J,358.4,2069,0)
;;=HAND/FINGER FRACTURE^9^155
;;^UTILITY(U,$J,358.4,2070,0)
;;=HIP/PELVIS FRACTURE^10^155
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BS 3762 printed Dec 13, 2024@02:45:41 Page 2
IBDEI3BS ; ; 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,2015,0)
+2 ;;=VARICOSE VEINS^50^152
+3 ;;^UTILITY(U,$J,358.4,2016,0)
+4 ;;=WOMEN'S HEALTH^51^152
+5 ;;^UTILITY(U,$J,358.4,2017,0)
+6 ;;=WOUNDS-INITIAL ENCOUNTER^52^152
+7 ;;^UTILITY(U,$J,358.4,2018,0)
+8 ;;=COMA^20^152
+9 ;;^UTILITY(U,$J,358.4,2019,0)
+10 ;;=CAUSES OF INJURY^19^152
+11 ;;^UTILITY(U,$J,358.4,2020,0)
+12 ;;=DEMENTIA^21^152
+13 ;;^UTILITY(U,$J,358.4,2021,0)
+14 ;;=LONG TERM CURRENT DRUG THERAPY^37^152
+15 ;;^UTILITY(U,$J,358.4,2022,0)
+16 ;;=ACQUIRED ABSENCE OF BODY PART(S)^2^152
+17 ;;^UTILITY(U,$J,358.4,2023,0)
+18 ;;=SUICIDE IDEATIONS/ATTEMPTS^49^152
+19 ;;^UTILITY(U,$J,358.4,2024,0)
+20 ;;=ACSC ACUTE KIDNEY FAILURE^3^152
+21 ;;^UTILITY(U,$J,358.4,2025,0)
+22 ;;=ACSC ANGINA^4^152
+23 ;;^UTILITY(U,$J,358.4,2026,0)
+24 ;;=ACSC ASTHMA/BRONCHITIS/COPD^5^152
+25 ;;^UTILITY(U,$J,358.4,2027,0)
+26 ;;=ACSC CHF^6^152
+27 ;;^UTILITY(U,$J,358.4,2028,0)
+28 ;;=ACSC DEHYDRATION^7^152
+29 ;;^UTILITY(U,$J,358.4,2029,0)
+30 ;;=ACSC DIABETES TYPE 1^8^152
+31 ;;^UTILITY(U,$J,358.4,2030,0)
+32 ;;=ACSC DIABETES TYPE 2^9^152
+33 ;;^UTILITY(U,$J,358.4,2031,0)
+34 ;;=ACSC HYPERTENSION^10^152
+35 ;;^UTILITY(U,$J,358.4,2032,0)
+36 ;;=ACSC INFECTIOUS GASTROENTERITIS^11^152
+37 ;;^UTILITY(U,$J,358.4,2033,0)
+38 ;;=ACSC PNEUMONIA^12^152
+39 ;;^UTILITY(U,$J,358.4,2034,0)
+40 ;;=ACSC UTI^13^152
+41 ;;^UTILITY(U,$J,358.4,2035,0)
+42 ;;=ACSC VIRAL ENTERITIS^14^152
+43 ;;^UTILITY(U,$J,358.4,2036,0)
+44 ;;=E-CIG/VAPE LUNG INJURY^23^152
+45 ;;^UTILITY(U,$J,358.4,2037,0)
+46 ;;=NEW PATIENT^2^153
+47 ;;^UTILITY(U,$J,358.4,2038,0)
+48 ;;=ESTABLISHED PATIENT^1^153
+49 ;;^UTILITY(U,$J,358.4,2039,0)
+50 ;;=CONSULTATIONS^3^153
+51 ;;^UTILITY(U,$J,358.4,2040,0)
+52 ;;=THERAPY MODALITIES/PROCEDURES^19^154
+53 ;;^UTILITY(U,$J,358.4,2041,0)
+54 ;;=DRUGS/MEDICATION^6^154
+55 ;;^UTILITY(U,$J,358.4,2042,0)
+56 ;;=ORTHOTIC DEVICES^13^154
+57 ;;^UTILITY(U,$J,358.4,2043,0)
+58 ;;=KINESIOTHERAPY^11^154
+59 ;;^UTILITY(U,$J,358.4,2044,0)
+60 ;;=THERAPY EVALUATIONS^18^154
+61 ;;^UTILITY(U,$J,358.4,2045,0)
+62 ;;=WOUND CARE^20^154
+63 ;;^UTILITY(U,$J,358.4,2046,0)
+64 ;;=CARDIAC REHAB^4^154
+65 ;;^UTILITY(U,$J,358.4,2047,0)
+66 ;;=EDUCATION/TRAINING^7^154
+67 ;;^UTILITY(U,$J,358.4,2048,0)
+68 ;;=HOME THERAPY SERVICES^9^154
+69 ;;^UTILITY(U,$J,358.4,2049,0)
+70 ;;=NEUROMUSCULAR TESTING^12^154
+71 ;;^UTILITY(U,$J,358.4,2050,0)
+72 ;;=TEAM CONFERENCE^16^154
+73 ;;^UTILITY(U,$J,358.4,2051,0)
+74 ;;=HEALTH BEHAVIORS^8^154
+75 ;;^UTILITY(U,$J,358.4,2052,0)
+76 ;;=RECREATION THERAPY^14^154
+77 ;;^UTILITY(U,$J,358.4,2053,0)
+78 ;;=DEVICES/SUPPLIES^5^154
+79 ;;^UTILITY(U,$J,358.4,2054,0)
+80 ;;=TENS^17^154
+81 ;;^UTILITY(U,$J,358.4,2055,0)
+82 ;;=ACUPUNCTURE^1^154
+83 ;;^UTILITY(U,$J,358.4,2056,0)
+84 ;;=INJECTIONS^10^154
+85 ;;^UTILITY(U,$J,358.4,2057,0)
+86 ;;=SPINAL CORD STIMULATOR^15^154
+87 ;;^UTILITY(U,$J,358.4,2058,0)
+88 ;;=ADAPTIVE BEHAVIOR ASSESSMENTS^2^154
+89 ;;^UTILITY(U,$J,358.4,2059,0)
+90 ;;=ADAPTIVE BEHAVIOR TREATMENT^3^154
+91 ;;^UTILITY(U,$J,358.4,2060,0)
+92 ;;=AMPUTATION STATUS^1^155
+93 ;;^UTILITY(U,$J,358.4,2061,0)
+94 ;;=BRAIN DISORDERS^2^155
+95 ;;^UTILITY(U,$J,358.4,2062,0)
+96 ;;=CARDIOPULMONARY^4^155
+97 ;;^UTILITY(U,$J,358.4,2063,0)
+98 ;;=COMPLICATIONS DUE TO^5^155
+99 ;;^UTILITY(U,$J,358.4,2064,0)
+100 ;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^12^155
+101 ;;^UTILITY(U,$J,358.4,2065,0)
+102 ;;=Z CODES^21^155
+103 ;;^UTILITY(U,$J,358.4,2066,0)
+104 ;;=BRAIN INJURY - TRAUMATIC^3^155
+105 ;;^UTILITY(U,$J,358.4,2067,0)
+106 ;;=FEMUR/THIGH/KNEE FRACTURE^7^155
+107 ;;^UTILITY(U,$J,358.4,2068,0)
+108 ;;=FOOT/TOE/ANKLE FRANCTURE^8^155
+109 ;;^UTILITY(U,$J,358.4,2069,0)
+110 ;;=HAND/FINGER FRACTURE^9^155
+111 ;;^UTILITY(U,$J,358.4,2070,0)
+112 ;;=HIP/PELVIS FRACTURE^10^155