IBDEI3IU ; ; 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,2117,0)
;;=INJECTION ADMIN^14^191
;;^UTILITY(U,$J,358.4,2118,0)
;;=INJECTION SUBSTANCE^15^191
;;^UTILITY(U,$J,358.4,2119,0)
;;=REPAIR/REVISE/RECONSTRUCTION^25^191
;;^UTILITY(U,$J,358.4,2120,0)
;;=INCISION-FOOT/TOES^13^191
;;^UTILITY(U,$J,358.4,2121,0)
;;=EXCISION-FOOT/TOES^9^191
;;^UTILITY(U,$J,358.4,2122,0)
;;=OTHER PROCEDURES^19^191
;;^UTILITY(U,$J,358.4,2123,0)
;;=OPEN OR CLOSED TREATMENT OF FRACTURES^17^191
;;^UTILITY(U,$J,358.4,2124,0)
;;=ARTHRODESIS^2^191
;;^UTILITY(U,$J,358.4,2125,0)
;;=CASTS/SPLINTS/STRAPPING APPLICATION^5^191
;;^UTILITY(U,$J,358.4,2126,0)
;;=REMOVAL/REPAIR OF CASTS^23^191
;;^UTILITY(U,$J,358.4,2127,0)
;;=ORTHOTICS^18^191
;;^UTILITY(U,$J,358.4,2128,0)
;;=SUPPLIES^27^191
;;^UTILITY(U,$J,358.4,2129,0)
;;=REMOVAL^22^191
;;^UTILITY(U,$J,358.4,2130,0)
;;=AMPUTATION^1^191
;;^UTILITY(U,$J,358.4,2131,0)
;;=GRAFT^11^191
;;^UTILITY(U,$J,358.4,2132,0)
;;=A^1^192
;;^UTILITY(U,$J,358.4,2133,0)
;;=B^2^192
;;^UTILITY(U,$J,358.4,2134,0)
;;=C^3^192
;;^UTILITY(U,$J,358.4,2135,0)
;;=D^4^192
;;^UTILITY(U,$J,358.4,2136,0)
;;=E^5^192
;;^UTILITY(U,$J,358.4,2137,0)
;;=F^6^192
;;^UTILITY(U,$J,358.4,2138,0)
;;=G^7^192
;;^UTILITY(U,$J,358.4,2139,0)
;;=H^8^192
;;^UTILITY(U,$J,358.4,2140,0)
;;=I^9^192
;;^UTILITY(U,$J,358.4,2141,0)
;;=L^12^192
;;^UTILITY(U,$J,358.4,2142,0)
;;=M^13^192
;;^UTILITY(U,$J,358.4,2143,0)
;;=N^14^192
;;^UTILITY(U,$J,358.4,2144,0)
;;=O^15^192
;;^UTILITY(U,$J,358.4,2145,0)
;;=P^16^192
;;^UTILITY(U,$J,358.4,2146,0)
;;=R^17^192
;;^UTILITY(U,$J,358.4,2147,0)
;;=S^18^192
;;^UTILITY(U,$J,358.4,2148,0)
;;=T^19^192
;;^UTILITY(U,$J,358.4,2149,0)
;;=U^21^192
;;^UTILITY(U,$J,358.4,2150,0)
;;=V^22^192
;;^UTILITY(U,$J,358.4,2151,0)
;;=W^23^192
;;^UTILITY(U,$J,358.4,2152,0)
;;=X^24^192
;;^UTILITY(U,$J,358.4,2153,0)
;;=Z CODES^25^192
;;^UTILITY(U,$J,358.4,2154,0)
;;=NEW PATIENT^2^193
;;^UTILITY(U,$J,358.4,2155,0)
;;=ESTABLISHED PATIENT^1^193
;;^UTILITY(U,$J,358.4,2156,0)
;;=CONSULTATIONS^3^193
;;^UTILITY(U,$J,358.4,2157,0)
;;=IMMUNIZATIONS^5^194
;;^UTILITY(U,$J,358.4,2158,0)
;;=PT/KT/OT^7^194
;;^UTILITY(U,$J,358.4,2159,0)
;;=TESTING^8^194
;;^UTILITY(U,$J,358.4,2160,0)
;;=IMMUNIZATION ADMINISTRATION^4^194
;;^UTILITY(U,$J,358.4,2161,0)
;;=COUNSELING^2^194
;;^UTILITY(U,$J,358.4,2162,0)
;;=EDUCATION^3^194
;;^UTILITY(U,$J,358.4,2163,0)
;;=INJECTIONS^6^194
;;^UTILITY(U,$J,358.4,2164,0)
;;=ACUPUNTURE^1^194
;;^UTILITY(U,$J,358.4,2165,0)
;;=TBI SCREENING^10^195
;;^UTILITY(U,$J,358.4,2166,0)
;;=SKULL FRACTURE^9^195
;;^UTILITY(U,$J,358.4,2167,0)
;;=INTRACRANIAL INJURY^4^195
;;^UTILITY(U,$J,358.4,2168,0)
;;=MENTAL HEALTH^5^195
;;^UTILITY(U,$J,358.4,2169,0)
;;=NEUROLOGY^6^195
;;^UTILITY(U,$J,358.4,2170,0)
;;=HEADACHES^2^195
;;^UTILITY(U,$J,358.4,2171,0)
;;=HISTORY OF ILLNESS^3^195
;;^UTILITY(U,$J,358.4,2172,0)
;;=SIGNS, SYMPTOMS, CONDITIONS^8^195
;;^UTILITY(U,$J,358.4,2173,0)
;;=REASON FOR VISIT^7^195
;;^UTILITY(U,$J,358.4,2174,0)
;;=CAUSES OF INJURY (SECONDARY DX ONLY)^1^195
;;^UTILITY(U,$J,358.4,2175,0)
;;=IMMUNIZATION^3^196
;;^UTILITY(U,$J,358.4,2176,0)
;;=BEHAVIOR CHANGE INTERVENTION,INDIVIDUAL^1^196
;;^UTILITY(U,$J,358.4,2177,0)
;;=COUNSELING RISK FACTOR REDUCTION^2^196
;;^UTILITY(U,$J,358.4,2178,0)
;;=OTH PREVENTIVE MEDICINE SERVICES^4^196
;;^UTILITY(U,$J,358.4,2179,0)
;;=PREVENTIVE MEDICINE,GROUP^7^196
;;^UTILITY(U,$J,358.4,2180,0)
;;=PREVENTIVE HEALTH VISIT-EST PT^5^196
;;^UTILITY(U,$J,358.4,2181,0)
;;=PREVENTIVE HEALTH VISIT-NEW PT^6^196
;;^UTILITY(U,$J,358.4,2182,0)
;;=BODY MASS INDEX (BMI)^2^197
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IU 4004 printed Sep 23, 2025@20:25:40 Page 2
IBDEI3IU ; ; 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,2117,0)
+2 ;;=INJECTION ADMIN^14^191
+3 ;;^UTILITY(U,$J,358.4,2118,0)
+4 ;;=INJECTION SUBSTANCE^15^191
+5 ;;^UTILITY(U,$J,358.4,2119,0)
+6 ;;=REPAIR/REVISE/RECONSTRUCTION^25^191
+7 ;;^UTILITY(U,$J,358.4,2120,0)
+8 ;;=INCISION-FOOT/TOES^13^191
+9 ;;^UTILITY(U,$J,358.4,2121,0)
+10 ;;=EXCISION-FOOT/TOES^9^191
+11 ;;^UTILITY(U,$J,358.4,2122,0)
+12 ;;=OTHER PROCEDURES^19^191
+13 ;;^UTILITY(U,$J,358.4,2123,0)
+14 ;;=OPEN OR CLOSED TREATMENT OF FRACTURES^17^191
+15 ;;^UTILITY(U,$J,358.4,2124,0)
+16 ;;=ARTHRODESIS^2^191
+17 ;;^UTILITY(U,$J,358.4,2125,0)
+18 ;;=CASTS/SPLINTS/STRAPPING APPLICATION^5^191
+19 ;;^UTILITY(U,$J,358.4,2126,0)
+20 ;;=REMOVAL/REPAIR OF CASTS^23^191
+21 ;;^UTILITY(U,$J,358.4,2127,0)
+22 ;;=ORTHOTICS^18^191
+23 ;;^UTILITY(U,$J,358.4,2128,0)
+24 ;;=SUPPLIES^27^191
+25 ;;^UTILITY(U,$J,358.4,2129,0)
+26 ;;=REMOVAL^22^191
+27 ;;^UTILITY(U,$J,358.4,2130,0)
+28 ;;=AMPUTATION^1^191
+29 ;;^UTILITY(U,$J,358.4,2131,0)
+30 ;;=GRAFT^11^191
+31 ;;^UTILITY(U,$J,358.4,2132,0)
+32 ;;=A^1^192
+33 ;;^UTILITY(U,$J,358.4,2133,0)
+34 ;;=B^2^192
+35 ;;^UTILITY(U,$J,358.4,2134,0)
+36 ;;=C^3^192
+37 ;;^UTILITY(U,$J,358.4,2135,0)
+38 ;;=D^4^192
+39 ;;^UTILITY(U,$J,358.4,2136,0)
+40 ;;=E^5^192
+41 ;;^UTILITY(U,$J,358.4,2137,0)
+42 ;;=F^6^192
+43 ;;^UTILITY(U,$J,358.4,2138,0)
+44 ;;=G^7^192
+45 ;;^UTILITY(U,$J,358.4,2139,0)
+46 ;;=H^8^192
+47 ;;^UTILITY(U,$J,358.4,2140,0)
+48 ;;=I^9^192
+49 ;;^UTILITY(U,$J,358.4,2141,0)
+50 ;;=L^12^192
+51 ;;^UTILITY(U,$J,358.4,2142,0)
+52 ;;=M^13^192
+53 ;;^UTILITY(U,$J,358.4,2143,0)
+54 ;;=N^14^192
+55 ;;^UTILITY(U,$J,358.4,2144,0)
+56 ;;=O^15^192
+57 ;;^UTILITY(U,$J,358.4,2145,0)
+58 ;;=P^16^192
+59 ;;^UTILITY(U,$J,358.4,2146,0)
+60 ;;=R^17^192
+61 ;;^UTILITY(U,$J,358.4,2147,0)
+62 ;;=S^18^192
+63 ;;^UTILITY(U,$J,358.4,2148,0)
+64 ;;=T^19^192
+65 ;;^UTILITY(U,$J,358.4,2149,0)
+66 ;;=U^21^192
+67 ;;^UTILITY(U,$J,358.4,2150,0)
+68 ;;=V^22^192
+69 ;;^UTILITY(U,$J,358.4,2151,0)
+70 ;;=W^23^192
+71 ;;^UTILITY(U,$J,358.4,2152,0)
+72 ;;=X^24^192
+73 ;;^UTILITY(U,$J,358.4,2153,0)
+74 ;;=Z CODES^25^192
+75 ;;^UTILITY(U,$J,358.4,2154,0)
+76 ;;=NEW PATIENT^2^193
+77 ;;^UTILITY(U,$J,358.4,2155,0)
+78 ;;=ESTABLISHED PATIENT^1^193
+79 ;;^UTILITY(U,$J,358.4,2156,0)
+80 ;;=CONSULTATIONS^3^193
+81 ;;^UTILITY(U,$J,358.4,2157,0)
+82 ;;=IMMUNIZATIONS^5^194
+83 ;;^UTILITY(U,$J,358.4,2158,0)
+84 ;;=PT/KT/OT^7^194
+85 ;;^UTILITY(U,$J,358.4,2159,0)
+86 ;;=TESTING^8^194
+87 ;;^UTILITY(U,$J,358.4,2160,0)
+88 ;;=IMMUNIZATION ADMINISTRATION^4^194
+89 ;;^UTILITY(U,$J,358.4,2161,0)
+90 ;;=COUNSELING^2^194
+91 ;;^UTILITY(U,$J,358.4,2162,0)
+92 ;;=EDUCATION^3^194
+93 ;;^UTILITY(U,$J,358.4,2163,0)
+94 ;;=INJECTIONS^6^194
+95 ;;^UTILITY(U,$J,358.4,2164,0)
+96 ;;=ACUPUNTURE^1^194
+97 ;;^UTILITY(U,$J,358.4,2165,0)
+98 ;;=TBI SCREENING^10^195
+99 ;;^UTILITY(U,$J,358.4,2166,0)
+100 ;;=SKULL FRACTURE^9^195
+101 ;;^UTILITY(U,$J,358.4,2167,0)
+102 ;;=INTRACRANIAL INJURY^4^195
+103 ;;^UTILITY(U,$J,358.4,2168,0)
+104 ;;=MENTAL HEALTH^5^195
+105 ;;^UTILITY(U,$J,358.4,2169,0)
+106 ;;=NEUROLOGY^6^195
+107 ;;^UTILITY(U,$J,358.4,2170,0)
+108 ;;=HEADACHES^2^195
+109 ;;^UTILITY(U,$J,358.4,2171,0)
+110 ;;=HISTORY OF ILLNESS^3^195
+111 ;;^UTILITY(U,$J,358.4,2172,0)
+112 ;;=SIGNS, SYMPTOMS, CONDITIONS^8^195
+113 ;;^UTILITY(U,$J,358.4,2173,0)
+114 ;;=REASON FOR VISIT^7^195
+115 ;;^UTILITY(U,$J,358.4,2174,0)
+116 ;;=CAUSES OF INJURY (SECONDARY DX ONLY)^1^195
+117 ;;^UTILITY(U,$J,358.4,2175,0)
+118 ;;=IMMUNIZATION^3^196
+119 ;;^UTILITY(U,$J,358.4,2176,0)
+120 ;;=BEHAVIOR CHANGE INTERVENTION,INDIVIDUAL^1^196
+121 ;;^UTILITY(U,$J,358.4,2177,0)
+122 ;;=COUNSELING RISK FACTOR REDUCTION^2^196
+123 ;;^UTILITY(U,$J,358.4,2178,0)
+124 ;;=OTH PREVENTIVE MEDICINE SERVICES^4^196
+125 ;;^UTILITY(U,$J,358.4,2179,0)
+126 ;;=PREVENTIVE MEDICINE,GROUP^7^196
+127 ;;^UTILITY(U,$J,358.4,2180,0)
+128 ;;=PREVENTIVE HEALTH VISIT-EST PT^5^196
+129 ;;^UTILITY(U,$J,358.4,2181,0)
+130 ;;=PREVENTIVE HEALTH VISIT-NEW PT^6^196
+131 ;;^UTILITY(U,$J,358.4,2182,0)
+132 ;;=BODY MASS INDEX (BMI)^2^197
