IBDEI3IW ; ; 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,2245,0)
;;=WOUNDS-INITIAL ENCOUNTER^38^200
;;^UTILITY(U,$J,358.4,2246,0)
;;=COMA^7^200
;;^UTILITY(U,$J,358.4,2247,0)
;;=CAUSES OF INJURY^6^200
;;^UTILITY(U,$J,358.4,2248,0)
;;=DEMENTIA^8^200
;;^UTILITY(U,$J,358.4,2249,0)
;;=LONG TERM CURRENT DRUG THERAPY^24^200
;;^UTILITY(U,$J,358.4,2250,0)
;;=NEW PATIENT^2^201
;;^UTILITY(U,$J,358.4,2251,0)
;;=ESTABLISHED PATIENT^1^201
;;^UTILITY(U,$J,358.4,2252,0)
;;=CONSULTATIONS^3^201
;;^UTILITY(U,$J,358.4,2253,0)
;;=PROSTHETICS/ORTHOTICS^1^202
;;^UTILITY(U,$J,358.4,2254,0)
;;=ANKLE^2^203
;;^UTILITY(U,$J,358.4,2255,0)
;;=FOOT^12^203
;;^UTILITY(U,$J,358.4,2256,0)
;;=FINGER^9^203
;;^UTILITY(U,$J,358.4,2257,0)
;;=KNEE^16^203
;;^UTILITY(U,$J,358.4,2258,0)
;;=MISCELLANEOUS^17^203
;;^UTILITY(U,$J,358.4,2259,0)
;;=PAIN^19^203
;;^UTILITY(U,$J,358.4,2260,0)
;;=HIP^14^203
;;^UTILITY(U,$J,358.4,2261,0)
;;=AMPUTATION STATUS^1^203
;;^UTILITY(U,$J,358.4,2262,0)
;;=FOLLOW UP CARE^11^203
;;^UTILITY(U,$J,358.4,2263,0)
;;=FITTING/ADJUSTMENT^10^203
;;^UTILITY(U,$J,358.4,2264,0)
;;=ARTHRITIS^3^203
;;^UTILITY(U,$J,358.4,2265,0)
;;=CENTRAL NERVOUS SYSTEM^4^203
;;^UTILITY(U,$J,358.4,2266,0)
;;=CEREBRAL/VASCULAR^5^203
;;^UTILITY(U,$J,358.4,2267,0)
;;=CIRCULATORY/NEUROPATHIC^6^203
;;^UTILITY(U,$J,358.4,2268,0)
;;=DIABETES^7^203
;;^UTILITY(U,$J,358.4,2269,0)
;;=DISLOCATION^8^203
;;^UTILITY(U,$J,358.4,2270,0)
;;=FRACTURES^13^203
;;^UTILITY(U,$J,358.4,2271,0)
;;=JOINT REPLACEMENT/FUSION^15^203
;;^UTILITY(U,$J,358.4,2272,0)
;;=NERVOUS SYSTEM-PERIPHERAL^18^203
;;^UTILITY(U,$J,358.4,2273,0)
;;=SPINAL CORD INJURY^20^203
;;^UTILITY(U,$J,358.4,2274,0)
;;=SPINE AND NECK^21^203
;;^UTILITY(U,$J,358.4,2275,0)
;;=SPRAIN/STRAIN^22^203
;;^UTILITY(U,$J,358.4,2276,0)
;;=VISION/EYE^23^203
;;^UTILITY(U,$J,358.4,2277,0)
;;=BLOODS, ARTERIAL & VENOUS^1^204
;;^UTILITY(U,$J,358.4,2278,0)
;;=OXIMETRY (WHEN ONLY SERVICE)^7^204
;;^UTILITY(U,$J,358.4,2279,0)
;;=PULMONARY FUNCTION TESTING^9^204
;;^UTILITY(U,$J,358.4,2280,0)
;;=THORACENTESIS^11^204
;;^UTILITY(U,$J,358.4,2281,0)
;;=RESPIRATORY THERAPY^10^204
;;^UTILITY(U,$J,358.4,2282,0)
;;=BRONCHOSCOPY^2^204
;;^UTILITY(U,$J,358.4,2283,0)
;;=EXERCISE TESTING^3^204
;;^UTILITY(U,$J,358.4,2284,0)
;;=IMMUNIZATION ADMINISTRATION^4^204
;;^UTILITY(U,$J,358.4,2285,0)
;;=IMMUNIZATIONS^5^204
;;^UTILITY(U,$J,358.4,2286,0)
;;=TRACHEOSTOMY^12^204
;;^UTILITY(U,$J,358.4,2287,0)
;;=PROLONGED SVC W/O PT^8^204
;;^UTILITY(U,$J,358.4,2288,0)
;;=MISCELLANEOUS^6^204
;;^UTILITY(U,$J,358.4,2289,0)
;;=NEW PATIENT^2^205
;;^UTILITY(U,$J,358.4,2290,0)
;;=ESTABLISHED PATIENT^1^205
;;^UTILITY(U,$J,358.4,2291,0)
;;=CONSULTATIONS^3^205
;;^UTILITY(U,$J,358.4,2292,0)
;;=COMMON PULMONARY DX^1^206
;;^UTILITY(U,$J,358.4,2293,0)
;;=SLEEP DISORDERS^20^206
;;^UTILITY(U,$J,358.4,2294,0)
;;=OBSTRUCTIVE SLEEP APNEA^13^206
;;^UTILITY(U,$J,358.4,2295,0)
;;=OTHER^26^206
;;^UTILITY(U,$J,358.4,2296,0)
;;=CANCER^2^206
;;^UTILITY(U,$J,358.4,2297,0)
;;=CARDIAC^3^206
;;^UTILITY(U,$J,358.4,2298,0)
;;=ENDOCRINE^4^206
;;^UTILITY(U,$J,358.4,2299,0)
;;=ENT^5^206
;;^UTILITY(U,$J,358.4,2300,0)
;;=GASTROINTESTINAL^5^206
;;^UTILITY(U,$J,358.4,2301,0)
;;=GENITOURINARY/RENAL^6^206
;;^UTILITY(U,$J,358.4,2302,0)
;;=HEMATOLOGIC/LYMPHATIC^7^206
;;^UTILITY(U,$J,358.4,2303,0)
;;=HEPATIC/BILIARY^8^206
;;^UTILITY(U,$J,358.4,2304,0)
;;=INFECTIOUS DISEASE^9^206
;;^UTILITY(U,$J,358.4,2305,0)
;;=INTERSTITIAL LUNG DISEASE^10^206
;;^UTILITY(U,$J,358.4,2306,0)
;;=MUSCULOSKELETAL^11^206
;;^UTILITY(U,$J,358.4,2307,0)
;;=SUTURES^23^206
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IW 3979 printed Apr 09, 2024@21:48:12 Page 2
IBDEI3IW ; ; 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,2245,0)
+2 ;;=WOUNDS-INITIAL ENCOUNTER^38^200
+3 ;;^UTILITY(U,$J,358.4,2246,0)
+4 ;;=COMA^7^200
+5 ;;^UTILITY(U,$J,358.4,2247,0)
+6 ;;=CAUSES OF INJURY^6^200
+7 ;;^UTILITY(U,$J,358.4,2248,0)
+8 ;;=DEMENTIA^8^200
+9 ;;^UTILITY(U,$J,358.4,2249,0)
+10 ;;=LONG TERM CURRENT DRUG THERAPY^24^200
+11 ;;^UTILITY(U,$J,358.4,2250,0)
+12 ;;=NEW PATIENT^2^201
+13 ;;^UTILITY(U,$J,358.4,2251,0)
+14 ;;=ESTABLISHED PATIENT^1^201
+15 ;;^UTILITY(U,$J,358.4,2252,0)
+16 ;;=CONSULTATIONS^3^201
+17 ;;^UTILITY(U,$J,358.4,2253,0)
+18 ;;=PROSTHETICS/ORTHOTICS^1^202
+19 ;;^UTILITY(U,$J,358.4,2254,0)
+20 ;;=ANKLE^2^203
+21 ;;^UTILITY(U,$J,358.4,2255,0)
+22 ;;=FOOT^12^203
+23 ;;^UTILITY(U,$J,358.4,2256,0)
+24 ;;=FINGER^9^203
+25 ;;^UTILITY(U,$J,358.4,2257,0)
+26 ;;=KNEE^16^203
+27 ;;^UTILITY(U,$J,358.4,2258,0)
+28 ;;=MISCELLANEOUS^17^203
+29 ;;^UTILITY(U,$J,358.4,2259,0)
+30 ;;=PAIN^19^203
+31 ;;^UTILITY(U,$J,358.4,2260,0)
+32 ;;=HIP^14^203
+33 ;;^UTILITY(U,$J,358.4,2261,0)
+34 ;;=AMPUTATION STATUS^1^203
+35 ;;^UTILITY(U,$J,358.4,2262,0)
+36 ;;=FOLLOW UP CARE^11^203
+37 ;;^UTILITY(U,$J,358.4,2263,0)
+38 ;;=FITTING/ADJUSTMENT^10^203
+39 ;;^UTILITY(U,$J,358.4,2264,0)
+40 ;;=ARTHRITIS^3^203
+41 ;;^UTILITY(U,$J,358.4,2265,0)
+42 ;;=CENTRAL NERVOUS SYSTEM^4^203
+43 ;;^UTILITY(U,$J,358.4,2266,0)
+44 ;;=CEREBRAL/VASCULAR^5^203
+45 ;;^UTILITY(U,$J,358.4,2267,0)
+46 ;;=CIRCULATORY/NEUROPATHIC^6^203
+47 ;;^UTILITY(U,$J,358.4,2268,0)
+48 ;;=DIABETES^7^203
+49 ;;^UTILITY(U,$J,358.4,2269,0)
+50 ;;=DISLOCATION^8^203
+51 ;;^UTILITY(U,$J,358.4,2270,0)
+52 ;;=FRACTURES^13^203
+53 ;;^UTILITY(U,$J,358.4,2271,0)
+54 ;;=JOINT REPLACEMENT/FUSION^15^203
+55 ;;^UTILITY(U,$J,358.4,2272,0)
+56 ;;=NERVOUS SYSTEM-PERIPHERAL^18^203
+57 ;;^UTILITY(U,$J,358.4,2273,0)
+58 ;;=SPINAL CORD INJURY^20^203
+59 ;;^UTILITY(U,$J,358.4,2274,0)
+60 ;;=SPINE AND NECK^21^203
+61 ;;^UTILITY(U,$J,358.4,2275,0)
+62 ;;=SPRAIN/STRAIN^22^203
+63 ;;^UTILITY(U,$J,358.4,2276,0)
+64 ;;=VISION/EYE^23^203
+65 ;;^UTILITY(U,$J,358.4,2277,0)
+66 ;;=BLOODS, ARTERIAL & VENOUS^1^204
+67 ;;^UTILITY(U,$J,358.4,2278,0)
+68 ;;=OXIMETRY (WHEN ONLY SERVICE)^7^204
+69 ;;^UTILITY(U,$J,358.4,2279,0)
+70 ;;=PULMONARY FUNCTION TESTING^9^204
+71 ;;^UTILITY(U,$J,358.4,2280,0)
+72 ;;=THORACENTESIS^11^204
+73 ;;^UTILITY(U,$J,358.4,2281,0)
+74 ;;=RESPIRATORY THERAPY^10^204
+75 ;;^UTILITY(U,$J,358.4,2282,0)
+76 ;;=BRONCHOSCOPY^2^204
+77 ;;^UTILITY(U,$J,358.4,2283,0)
+78 ;;=EXERCISE TESTING^3^204
+79 ;;^UTILITY(U,$J,358.4,2284,0)
+80 ;;=IMMUNIZATION ADMINISTRATION^4^204
+81 ;;^UTILITY(U,$J,358.4,2285,0)
+82 ;;=IMMUNIZATIONS^5^204
+83 ;;^UTILITY(U,$J,358.4,2286,0)
+84 ;;=TRACHEOSTOMY^12^204
+85 ;;^UTILITY(U,$J,358.4,2287,0)
+86 ;;=PROLONGED SVC W/O PT^8^204
+87 ;;^UTILITY(U,$J,358.4,2288,0)
+88 ;;=MISCELLANEOUS^6^204
+89 ;;^UTILITY(U,$J,358.4,2289,0)
+90 ;;=NEW PATIENT^2^205
+91 ;;^UTILITY(U,$J,358.4,2290,0)
+92 ;;=ESTABLISHED PATIENT^1^205
+93 ;;^UTILITY(U,$J,358.4,2291,0)
+94 ;;=CONSULTATIONS^3^205
+95 ;;^UTILITY(U,$J,358.4,2292,0)
+96 ;;=COMMON PULMONARY DX^1^206
+97 ;;^UTILITY(U,$J,358.4,2293,0)
+98 ;;=SLEEP DISORDERS^20^206
+99 ;;^UTILITY(U,$J,358.4,2294,0)
+100 ;;=OBSTRUCTIVE SLEEP APNEA^13^206
+101 ;;^UTILITY(U,$J,358.4,2295,0)
+102 ;;=OTHER^26^206
+103 ;;^UTILITY(U,$J,358.4,2296,0)
+104 ;;=CANCER^2^206
+105 ;;^UTILITY(U,$J,358.4,2297,0)
+106 ;;=CARDIAC^3^206
+107 ;;^UTILITY(U,$J,358.4,2298,0)
+108 ;;=ENDOCRINE^4^206
+109 ;;^UTILITY(U,$J,358.4,2299,0)
+110 ;;=ENT^5^206
+111 ;;^UTILITY(U,$J,358.4,2300,0)
+112 ;;=GASTROINTESTINAL^5^206
+113 ;;^UTILITY(U,$J,358.4,2301,0)
+114 ;;=GENITOURINARY/RENAL^6^206
+115 ;;^UTILITY(U,$J,358.4,2302,0)
+116 ;;=HEMATOLOGIC/LYMPHATIC^7^206
+117 ;;^UTILITY(U,$J,358.4,2303,0)
+118 ;;=HEPATIC/BILIARY^8^206
+119 ;;^UTILITY(U,$J,358.4,2304,0)
+120 ;;=INFECTIOUS DISEASE^9^206
+121 ;;^UTILITY(U,$J,358.4,2305,0)
+122 ;;=INTERSTITIAL LUNG DISEASE^10^206
+123 ;;^UTILITY(U,$J,358.4,2306,0)
+124 ;;=MUSCULOSKELETAL^11^206
+125 ;;^UTILITY(U,$J,358.4,2307,0)
+126 ;;=SUTURES^23^206
