IBDEI3BT ; ; 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,2071,0)
;;=HUMERUS/SHOULDER FRACTURE^11^155
;;^UTILITY(U,$J,358.4,2072,0)
;;=TIBIA/FIBULA FRACTURE^19^155
;;^UTILITY(U,$J,358.4,2073,0)
;;=SPINE FRACTURE^16^155
;;^UTILITY(U,$J,358.4,2074,0)
;;=WRIST/FOREARM FRACTURE^20^155
;;^UTILITY(U,$J,358.4,2075,0)
;;=OTHER FRACTURE^14^155
;;^UTILITY(U,$J,358.4,2076,0)
;;=PAIN^15^155
;;^UTILITY(U,$J,358.4,2077,0)
;;=SPINAL CONDITIONS^17^155
;;^UTILITY(U,$J,358.4,2078,0)
;;=SYMPTOMS^18^155
;;^UTILITY(U,$J,358.4,2079,0)
;;=FALLS^6^155
;;^UTILITY(U,$J,358.4,2080,0)
;;=NERVES^13^155
;;^UTILITY(U,$J,358.4,2081,0)
;;=VACCINATIONS^14^156
;;^UTILITY(U,$J,358.4,2082,0)
;;=INJECTION^7^156
;;^UTILITY(U,$J,358.4,2083,0)
;;=EDUCATION/TRAINING^3^156
;;^UTILITY(U,$J,358.4,2084,0)
;;=COUNSELING^2^156
;;^UTILITY(U,$J,358.4,2085,0)
;;=EVALUATIONS^4^156
;;^UTILITY(U,$J,358.4,2086,0)
;;=SPINAL INJECTION CODES^10^156
;;^UTILITY(U,$J,358.4,2087,0)
;;=SUPPLIES^11^156
;;^UTILITY(U,$J,358.4,2088,0)
;;=TREATMENT PROCEDURES^12^156
;;^UTILITY(U,$J,358.4,2089,0)
;;=TRIGGER POINT INJECTIONS^13^156
;;^UTILITY(U,$J,358.4,2090,0)
;;=HOME VISIT-ESTABLISHED PT^5^156
;;^UTILITY(U,$J,358.4,2091,0)
;;=HOME VISIT-NEW PT^6^156
;;^UTILITY(U,$J,358.4,2092,0)
;;=ACUPUNCTURE^1^156
;;^UTILITY(U,$J,358.4,2093,0)
;;=NAILS^9^156
;;^UTILITY(U,$J,358.4,2094,0)
;;=INTRATHECAL BACLOFED PUMP REFILL/ADJ^8^156
;;^UTILITY(U,$J,358.4,2095,0)
;;=NEW PT-OFFICE^3^157
;;^UTILITY(U,$J,358.4,2096,0)
;;=ESTABLISHED PT-OFFICE^1^157
;;^UTILITY(U,$J,358.4,2097,0)
;;=CONSULTATIONS^5^157
;;^UTILITY(U,$J,358.4,2098,0)
;;=CARDIOVASCULAR^2^158
;;^UTILITY(U,$J,358.4,2099,0)
;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^3^158
;;^UTILITY(U,$J,358.4,2100,0)
;;=MENTAL HEALTH^4^158
;;^UTILITY(U,$J,358.4,2101,0)
;;=MUSCULOSKELETAL^5^158
;;^UTILITY(U,$J,358.4,2102,0)
;;=NEPHRO/GU/GI^6^158
;;^UTILITY(U,$J,358.4,2103,0)
;;=PARAPLEGIA^8^158
;;^UTILITY(U,$J,358.4,2104,0)
;;=QUADRAPLEGIA^9^158
;;^UTILITY(U,$J,358.4,2105,0)
;;=ULCERS^13^158
;;^UTILITY(U,$J,358.4,2106,0)
;;=OTHER HEALTH STATUS FACTORS^7^158
;;^UTILITY(U,$J,358.4,2107,0)
;;=COMMON DIAGNOSES^1^158
;;^UTILITY(U,$J,358.4,2108,0)
;;=SUICIDAL IDEATIONS/ATTEMPTS^12^158
;;^UTILITY(U,$J,358.4,2109,0)
;;=SPORT PARTICIPATION^11^158
;;^UTILITY(U,$J,358.4,2110,0)
;;=SPASM OF MUSCLE (SPASTICITY)^10^158
;;^UTILITY(U,$J,358.4,2111,0)
;;=GROUP TREATMENT^5^159
;;^UTILITY(U,$J,358.4,2112,0)
;;=VOICE PROSTHESES^12^159
;;^UTILITY(U,$J,358.4,2113,0)
;;=AAC DEVICES^1^159
;;^UTILITY(U,$J,358.4,2114,0)
;;=OTHER PROCEDURES^8^159
;;^UTILITY(U,$J,358.4,2115,0)
;;=LARYNGOSCOPY PROCEDURES^6^159
;;^UTILITY(U,$J,358.4,2116,0)
;;=NASOPHARYNGOSCOPY^7^159
;;^UTILITY(U,$J,358.4,2117,0)
;;=DYSPHAGIA EVALUATION^2^159
;;^UTILITY(U,$J,358.4,2118,0)
;;=SPECIAL OTORHINOLARYNGOLOGIC SERVICES^11^159
;;^UTILITY(U,$J,358.4,2119,0)
;;=SCREENING^10^159
;;^UTILITY(U,$J,358.4,2120,0)
;;=EDUCATION^3^159
;;^UTILITY(U,$J,358.4,2121,0)
;;=FITTING/ORIENTATION DEVICE^4^159
;;^UTILITY(U,$J,358.4,2122,0)
;;=SPEECH LANGUAGE PATHOLOGY^9^159
;;^UTILITY(U,$J,358.4,2123,0)
;;=DEVELOPMENTAL DISORDERS^1^160
;;^UTILITY(U,$J,358.4,2124,0)
;;=LATE EFFECTS OF CEREBROVASCULAR DISEASE^2^160
;;^UTILITY(U,$J,358.4,2125,0)
;;=VOCAL FOLD DISORDERS^6^160
;;^UTILITY(U,$J,358.4,2126,0)
;;=SWALLOWING DISORDERS^5^160
;;^UTILITY(U,$J,358.4,2127,0)
;;=SPEECH DISORDERS^4^160
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BT 3772 printed Dec 13, 2024@02:45:42 Page 2
IBDEI3BT ; ; 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,2071,0)
+2 ;;=HUMERUS/SHOULDER FRACTURE^11^155
+3 ;;^UTILITY(U,$J,358.4,2072,0)
+4 ;;=TIBIA/FIBULA FRACTURE^19^155
+5 ;;^UTILITY(U,$J,358.4,2073,0)
+6 ;;=SPINE FRACTURE^16^155
+7 ;;^UTILITY(U,$J,358.4,2074,0)
+8 ;;=WRIST/FOREARM FRACTURE^20^155
+9 ;;^UTILITY(U,$J,358.4,2075,0)
+10 ;;=OTHER FRACTURE^14^155
+11 ;;^UTILITY(U,$J,358.4,2076,0)
+12 ;;=PAIN^15^155
+13 ;;^UTILITY(U,$J,358.4,2077,0)
+14 ;;=SPINAL CONDITIONS^17^155
+15 ;;^UTILITY(U,$J,358.4,2078,0)
+16 ;;=SYMPTOMS^18^155
+17 ;;^UTILITY(U,$J,358.4,2079,0)
+18 ;;=FALLS^6^155
+19 ;;^UTILITY(U,$J,358.4,2080,0)
+20 ;;=NERVES^13^155
+21 ;;^UTILITY(U,$J,358.4,2081,0)
+22 ;;=VACCINATIONS^14^156
+23 ;;^UTILITY(U,$J,358.4,2082,0)
+24 ;;=INJECTION^7^156
+25 ;;^UTILITY(U,$J,358.4,2083,0)
+26 ;;=EDUCATION/TRAINING^3^156
+27 ;;^UTILITY(U,$J,358.4,2084,0)
+28 ;;=COUNSELING^2^156
+29 ;;^UTILITY(U,$J,358.4,2085,0)
+30 ;;=EVALUATIONS^4^156
+31 ;;^UTILITY(U,$J,358.4,2086,0)
+32 ;;=SPINAL INJECTION CODES^10^156
+33 ;;^UTILITY(U,$J,358.4,2087,0)
+34 ;;=SUPPLIES^11^156
+35 ;;^UTILITY(U,$J,358.4,2088,0)
+36 ;;=TREATMENT PROCEDURES^12^156
+37 ;;^UTILITY(U,$J,358.4,2089,0)
+38 ;;=TRIGGER POINT INJECTIONS^13^156
+39 ;;^UTILITY(U,$J,358.4,2090,0)
+40 ;;=HOME VISIT-ESTABLISHED PT^5^156
+41 ;;^UTILITY(U,$J,358.4,2091,0)
+42 ;;=HOME VISIT-NEW PT^6^156
+43 ;;^UTILITY(U,$J,358.4,2092,0)
+44 ;;=ACUPUNCTURE^1^156
+45 ;;^UTILITY(U,$J,358.4,2093,0)
+46 ;;=NAILS^9^156
+47 ;;^UTILITY(U,$J,358.4,2094,0)
+48 ;;=INTRATHECAL BACLOFED PUMP REFILL/ADJ^8^156
+49 ;;^UTILITY(U,$J,358.4,2095,0)
+50 ;;=NEW PT-OFFICE^3^157
+51 ;;^UTILITY(U,$J,358.4,2096,0)
+52 ;;=ESTABLISHED PT-OFFICE^1^157
+53 ;;^UTILITY(U,$J,358.4,2097,0)
+54 ;;=CONSULTATIONS^5^157
+55 ;;^UTILITY(U,$J,358.4,2098,0)
+56 ;;=CARDIOVASCULAR^2^158
+57 ;;^UTILITY(U,$J,358.4,2099,0)
+58 ;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^3^158
+59 ;;^UTILITY(U,$J,358.4,2100,0)
+60 ;;=MENTAL HEALTH^4^158
+61 ;;^UTILITY(U,$J,358.4,2101,0)
+62 ;;=MUSCULOSKELETAL^5^158
+63 ;;^UTILITY(U,$J,358.4,2102,0)
+64 ;;=NEPHRO/GU/GI^6^158
+65 ;;^UTILITY(U,$J,358.4,2103,0)
+66 ;;=PARAPLEGIA^8^158
+67 ;;^UTILITY(U,$J,358.4,2104,0)
+68 ;;=QUADRAPLEGIA^9^158
+69 ;;^UTILITY(U,$J,358.4,2105,0)
+70 ;;=ULCERS^13^158
+71 ;;^UTILITY(U,$J,358.4,2106,0)
+72 ;;=OTHER HEALTH STATUS FACTORS^7^158
+73 ;;^UTILITY(U,$J,358.4,2107,0)
+74 ;;=COMMON DIAGNOSES^1^158
+75 ;;^UTILITY(U,$J,358.4,2108,0)
+76 ;;=SUICIDAL IDEATIONS/ATTEMPTS^12^158
+77 ;;^UTILITY(U,$J,358.4,2109,0)
+78 ;;=SPORT PARTICIPATION^11^158
+79 ;;^UTILITY(U,$J,358.4,2110,0)
+80 ;;=SPASM OF MUSCLE (SPASTICITY)^10^158
+81 ;;^UTILITY(U,$J,358.4,2111,0)
+82 ;;=GROUP TREATMENT^5^159
+83 ;;^UTILITY(U,$J,358.4,2112,0)
+84 ;;=VOICE PROSTHESES^12^159
+85 ;;^UTILITY(U,$J,358.4,2113,0)
+86 ;;=AAC DEVICES^1^159
+87 ;;^UTILITY(U,$J,358.4,2114,0)
+88 ;;=OTHER PROCEDURES^8^159
+89 ;;^UTILITY(U,$J,358.4,2115,0)
+90 ;;=LARYNGOSCOPY PROCEDURES^6^159
+91 ;;^UTILITY(U,$J,358.4,2116,0)
+92 ;;=NASOPHARYNGOSCOPY^7^159
+93 ;;^UTILITY(U,$J,358.4,2117,0)
+94 ;;=DYSPHAGIA EVALUATION^2^159
+95 ;;^UTILITY(U,$J,358.4,2118,0)
+96 ;;=SPECIAL OTORHINOLARYNGOLOGIC SERVICES^11^159
+97 ;;^UTILITY(U,$J,358.4,2119,0)
+98 ;;=SCREENING^10^159
+99 ;;^UTILITY(U,$J,358.4,2120,0)
+100 ;;=EDUCATION^3^159
+101 ;;^UTILITY(U,$J,358.4,2121,0)
+102 ;;=FITTING/ORIENTATION DEVICE^4^159
+103 ;;^UTILITY(U,$J,358.4,2122,0)
+104 ;;=SPEECH LANGUAGE PATHOLOGY^9^159
+105 ;;^UTILITY(U,$J,358.4,2123,0)
+106 ;;=DEVELOPMENTAL DISORDERS^1^160
+107 ;;^UTILITY(U,$J,358.4,2124,0)
+108 ;;=LATE EFFECTS OF CEREBROVASCULAR DISEASE^2^160
+109 ;;^UTILITY(U,$J,358.4,2125,0)
+110 ;;=VOCAL FOLD DISORDERS^6^160
+111 ;;^UTILITY(U,$J,358.4,2126,0)
+112 ;;=SWALLOWING DISORDERS^5^160
+113 ;;^UTILITY(U,$J,358.4,2127,0)
+114 ;;=SPEECH DISORDERS^4^160