IBDEI0Y5 ; ; 01-FEB-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
Q:'DIFQR(358.3) 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.3,15389,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15389,1,2,0)
;;=2^96375
;;^UTILITY(U,$J,358.3,15389,1,3,0)
;;=3^IV Push,Ea Addl Hr
;;^UTILITY(U,$J,358.3,15390,0)
;;=17000^^59^731^15^^^^1
;;^UTILITY(U,$J,358.3,15390,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15390,1,2,0)
;;=2^17000
;;^UTILITY(U,$J,358.3,15390,1,3,0)
;;=3^Destr ben les, any method, 1st les
;;^UTILITY(U,$J,358.3,15391,0)
;;=17003^^59^731^16^^^^1
;;^UTILITY(U,$J,358.3,15391,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15391,1,2,0)
;;=2^17003
;;^UTILITY(U,$J,358.3,15391,1,3,0)
;;=3^Destr ben les, any method,ea addl les (2-14)
;;^UTILITY(U,$J,358.3,15392,0)
;;=17004^^59^731^17^^^^1
;;^UTILITY(U,$J,358.3,15392,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15392,1,2,0)
;;=2^17004
;;^UTILITY(U,$J,358.3,15392,1,3,0)
;;=3^Destr ben les,15 or more
;;^UTILITY(U,$J,358.3,15393,0)
;;=10060^^59^731^22^^^^1
;;^UTILITY(U,$J,358.3,15393,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15393,1,2,0)
;;=2^10060
;;^UTILITY(U,$J,358.3,15393,1,3,0)
;;=3^I&D Abscess
;;^UTILITY(U,$J,358.3,15394,0)
;;=10061^^59^731^23^^^^1
;;^UTILITY(U,$J,358.3,15394,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15394,1,2,0)
;;=2^10061
;;^UTILITY(U,$J,358.3,15394,1,3,0)
;;=3^I&D Complicated Abscess
;;^UTILITY(U,$J,358.3,15395,0)
;;=12001^^59^731^40^^^^1
;;^UTILITY(U,$J,358.3,15395,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15395,1,2,0)
;;=2^12001
;;^UTILITY(U,$J,358.3,15395,1,3,0)
;;=3^Suture Simple Wound,Trunk/Ext 2.5 cm or <
;;^UTILITY(U,$J,358.3,15396,0)
;;=12002^^59^731^41^^^^1
;;^UTILITY(U,$J,358.3,15396,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15396,1,2,0)
;;=2^12002
;;^UTILITY(U,$J,358.3,15396,1,3,0)
;;=3^Suture Simple Wound,Trunk/Ext 2.6-7.5 cm
;;^UTILITY(U,$J,358.3,15397,0)
;;=11042^^59^731^14^^^^1
;;^UTILITY(U,$J,358.3,15397,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15397,1,2,0)
;;=2^11042
;;^UTILITY(U,$J,358.3,15397,1,3,0)
;;=3^Debridement, Skin & Subcu. Tissue,1st 20sq cm
;;^UTILITY(U,$J,358.3,15398,0)
;;=20550^^59^731^26^^^^1
;;^UTILITY(U,$J,358.3,15398,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15398,1,2,0)
;;=2^20550
;;^UTILITY(U,$J,358.3,15398,1,3,0)
;;=3^Injection,Tendon Sheath,Ligament,Ganglion Cyst
;;^UTILITY(U,$J,358.3,15399,0)
;;=20551^^59^731^25^^^^1
;;^UTILITY(U,$J,358.3,15399,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15399,1,2,0)
;;=2^20551
;;^UTILITY(U,$J,358.3,15399,1,3,0)
;;=3^Injection,Tendon Origin/Insertion
;;^UTILITY(U,$J,358.3,15400,0)
;;=20552^^59^731^27^^^^1
;;^UTILITY(U,$J,358.3,15400,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15400,1,2,0)
;;=2^20552
;;^UTILITY(U,$J,358.3,15400,1,3,0)
;;=3^Injection,Trigger Point, 1 or 2 Muscle groups
;;^UTILITY(U,$J,358.3,15401,0)
;;=20600^^59^731^10^^^^1
;;^UTILITY(U,$J,358.3,15401,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15401,1,2,0)
;;=2^20600
;;^UTILITY(U,$J,358.3,15401,1,3,0)
;;=3^Arthrocentesis,Small Jt w/o US Guidance
;;^UTILITY(U,$J,358.3,15402,0)
;;=20605^^59^731^6^^^^1
;;^UTILITY(U,$J,358.3,15402,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15402,1,2,0)
;;=2^20605
;;^UTILITY(U,$J,358.3,15402,1,3,0)
;;=3^Arthrocentesis,Intermediate Jt w/o US Guidance
;;^UTILITY(U,$J,358.3,15403,0)
;;=20610^^59^731^8^^^^1
;;^UTILITY(U,$J,358.3,15403,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,15403,1,2,0)
;;=2^20610
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0Y5 3773 printed Sep 23, 2025@19:34:02 Page 2
IBDEI0Y5 ; ; 01-FEB-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
+2 if 'DIFQR(358.3)
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.3,15389,1,0)
+2 ;;=^358.31IA^3^2
+3 ;;^UTILITY(U,$J,358.3,15389,1,2,0)
+4 ;;=2^96375
+5 ;;^UTILITY(U,$J,358.3,15389,1,3,0)
+6 ;;=3^IV Push,Ea Addl Hr
+7 ;;^UTILITY(U,$J,358.3,15390,0)
+8 ;;=17000^^59^731^15^^^^1
+9 ;;^UTILITY(U,$J,358.3,15390,1,0)
+10 ;;=^358.31IA^3^2
+11 ;;^UTILITY(U,$J,358.3,15390,1,2,0)
+12 ;;=2^17000
+13 ;;^UTILITY(U,$J,358.3,15390,1,3,0)
+14 ;;=3^Destr ben les, any method, 1st les
+15 ;;^UTILITY(U,$J,358.3,15391,0)
+16 ;;=17003^^59^731^16^^^^1
+17 ;;^UTILITY(U,$J,358.3,15391,1,0)
+18 ;;=^358.31IA^3^2
+19 ;;^UTILITY(U,$J,358.3,15391,1,2,0)
+20 ;;=2^17003
+21 ;;^UTILITY(U,$J,358.3,15391,1,3,0)
+22 ;;=3^Destr ben les, any method,ea addl les (2-14)
+23 ;;^UTILITY(U,$J,358.3,15392,0)
+24 ;;=17004^^59^731^17^^^^1
+25 ;;^UTILITY(U,$J,358.3,15392,1,0)
+26 ;;=^358.31IA^3^2
+27 ;;^UTILITY(U,$J,358.3,15392,1,2,0)
+28 ;;=2^17004
+29 ;;^UTILITY(U,$J,358.3,15392,1,3,0)
+30 ;;=3^Destr ben les,15 or more
+31 ;;^UTILITY(U,$J,358.3,15393,0)
+32 ;;=10060^^59^731^22^^^^1
+33 ;;^UTILITY(U,$J,358.3,15393,1,0)
+34 ;;=^358.31IA^3^2
+35 ;;^UTILITY(U,$J,358.3,15393,1,2,0)
+36 ;;=2^10060
+37 ;;^UTILITY(U,$J,358.3,15393,1,3,0)
+38 ;;=3^I&D Abscess
+39 ;;^UTILITY(U,$J,358.3,15394,0)
+40 ;;=10061^^59^731^23^^^^1
+41 ;;^UTILITY(U,$J,358.3,15394,1,0)
+42 ;;=^358.31IA^3^2
+43 ;;^UTILITY(U,$J,358.3,15394,1,2,0)
+44 ;;=2^10061
+45 ;;^UTILITY(U,$J,358.3,15394,1,3,0)
+46 ;;=3^I&D Complicated Abscess
+47 ;;^UTILITY(U,$J,358.3,15395,0)
+48 ;;=12001^^59^731^40^^^^1
+49 ;;^UTILITY(U,$J,358.3,15395,1,0)
+50 ;;=^358.31IA^3^2
+51 ;;^UTILITY(U,$J,358.3,15395,1,2,0)
+52 ;;=2^12001
+53 ;;^UTILITY(U,$J,358.3,15395,1,3,0)
+54 ;;=3^Suture Simple Wound,Trunk/Ext 2.5 cm or <
+55 ;;^UTILITY(U,$J,358.3,15396,0)
+56 ;;=12002^^59^731^41^^^^1
+57 ;;^UTILITY(U,$J,358.3,15396,1,0)
+58 ;;=^358.31IA^3^2
+59 ;;^UTILITY(U,$J,358.3,15396,1,2,0)
+60 ;;=2^12002
+61 ;;^UTILITY(U,$J,358.3,15396,1,3,0)
+62 ;;=3^Suture Simple Wound,Trunk/Ext 2.6-7.5 cm
+63 ;;^UTILITY(U,$J,358.3,15397,0)
+64 ;;=11042^^59^731^14^^^^1
+65 ;;^UTILITY(U,$J,358.3,15397,1,0)
+66 ;;=^358.31IA^3^2
+67 ;;^UTILITY(U,$J,358.3,15397,1,2,0)
+68 ;;=2^11042
+69 ;;^UTILITY(U,$J,358.3,15397,1,3,0)
+70 ;;=3^Debridement, Skin & Subcu. Tissue,1st 20sq cm
+71 ;;^UTILITY(U,$J,358.3,15398,0)
+72 ;;=20550^^59^731^26^^^^1
+73 ;;^UTILITY(U,$J,358.3,15398,1,0)
+74 ;;=^358.31IA^3^2
+75 ;;^UTILITY(U,$J,358.3,15398,1,2,0)
+76 ;;=2^20550
+77 ;;^UTILITY(U,$J,358.3,15398,1,3,0)
+78 ;;=3^Injection,Tendon Sheath,Ligament,Ganglion Cyst
+79 ;;^UTILITY(U,$J,358.3,15399,0)
+80 ;;=20551^^59^731^25^^^^1
+81 ;;^UTILITY(U,$J,358.3,15399,1,0)
+82 ;;=^358.31IA^3^2
+83 ;;^UTILITY(U,$J,358.3,15399,1,2,0)
+84 ;;=2^20551
+85 ;;^UTILITY(U,$J,358.3,15399,1,3,0)
+86 ;;=3^Injection,Tendon Origin/Insertion
+87 ;;^UTILITY(U,$J,358.3,15400,0)
+88 ;;=20552^^59^731^27^^^^1
+89 ;;^UTILITY(U,$J,358.3,15400,1,0)
+90 ;;=^358.31IA^3^2
+91 ;;^UTILITY(U,$J,358.3,15400,1,2,0)
+92 ;;=2^20552
+93 ;;^UTILITY(U,$J,358.3,15400,1,3,0)
+94 ;;=3^Injection,Trigger Point, 1 or 2 Muscle groups
+95 ;;^UTILITY(U,$J,358.3,15401,0)
+96 ;;=20600^^59^731^10^^^^1
+97 ;;^UTILITY(U,$J,358.3,15401,1,0)
+98 ;;=^358.31IA^3^2
+99 ;;^UTILITY(U,$J,358.3,15401,1,2,0)
+100 ;;=2^20600
+101 ;;^UTILITY(U,$J,358.3,15401,1,3,0)
+102 ;;=3^Arthrocentesis,Small Jt w/o US Guidance
+103 ;;^UTILITY(U,$J,358.3,15402,0)
+104 ;;=20605^^59^731^6^^^^1
+105 ;;^UTILITY(U,$J,358.3,15402,1,0)
+106 ;;=^358.31IA^3^2
+107 ;;^UTILITY(U,$J,358.3,15402,1,2,0)
+108 ;;=2^20605
+109 ;;^UTILITY(U,$J,358.3,15402,1,3,0)
+110 ;;=3^Arthrocentesis,Intermediate Jt w/o US Guidance
+111 ;;^UTILITY(U,$J,358.3,15403,0)
+112 ;;=20610^^59^731^8^^^^1
+113 ;;^UTILITY(U,$J,358.3,15403,1,0)
+114 ;;=^358.31IA^3^2
+115 ;;^UTILITY(U,$J,358.3,15403,1,2,0)
+116 ;;=2^20610
