IBDEI0UJ ; ; 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,13783,1,3,0)
;;=3^L3480
;;^UTILITY(U,$J,358.3,13784,0)
;;=L3510^^53^655^25^^^^1
;;^UTILITY(U,$J,358.3,13784,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13784,1,2,0)
;;=2^VISCO PEDS
;;^UTILITY(U,$J,358.3,13784,1,3,0)
;;=3^L3510
;;^UTILITY(U,$J,358.3,13785,0)
;;=L1900^^53^655^26^^^^1
;;^UTILITY(U,$J,358.3,13785,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13785,1,2,0)
;;=2^WALKER- PRE FAB SLW - ADULT
;;^UTILITY(U,$J,358.3,13785,1,3,0)
;;=3^L1900
;;^UTILITY(U,$J,358.3,13786,0)
;;=A4580^^53^655^7^^^^1
;;^UTILITY(U,$J,358.3,13786,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13786,1,2,0)
;;=2^CAST MATERIAL - PLASTER
;;^UTILITY(U,$J,358.3,13786,1,3,0)
;;=3^A4580
;;^UTILITY(U,$J,358.3,13787,0)
;;=L3908^^53^655^28^^^^1
;;^UTILITY(U,$J,358.3,13787,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13787,1,2,0)
;;=2^WRISTLET
;;^UTILITY(U,$J,358.3,13787,1,3,0)
;;=3^L3908
;;^UTILITY(U,$J,358.3,13788,0)
;;=L3808^^53^655^27^^^^1
;;^UTILITY(U,$J,358.3,13788,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13788,1,2,0)
;;=2^WHFO, RIGID W/O JOINTS
;;^UTILITY(U,$J,358.3,13788,1,3,0)
;;=3^L3808
;;^UTILITY(U,$J,358.3,13789,0)
;;=L1810^^53^655^17^^^^1
;;^UTILITY(U,$J,358.3,13789,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13789,1,2,0)
;;=2^KO ELASTIC WITH JOINTS
;;^UTILITY(U,$J,358.3,13789,1,3,0)
;;=3^L1810
;;^UTILITY(U,$J,358.3,13790,0)
;;=L1830^^53^655^18^^^^1
;;^UTILITY(U,$J,358.3,13790,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13790,1,2,0)
;;=2^KO IMMOBILIZER CANVAS LONGIT
;;^UTILITY(U,$J,358.3,13790,1,3,0)
;;=3^L1830
;;^UTILITY(U,$J,358.3,13791,0)
;;=L3050^^53^656^13^^^^1
;;^UTILITY(U,$J,358.3,13791,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13791,1,2,0)
;;=2^METATARSAL CUSHION - BALLOFOOT
;;^UTILITY(U,$J,358.3,13791,1,3,0)
;;=3^L3050
;;^UTILITY(U,$J,358.3,13792,0)
;;=J0702^^53^656^1^^^^1
;;^UTILITY(U,$J,358.3,13792,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13792,1,2,0)
;;=2^CELESTONE SOLUSPAN per 3mg
;;^UTILITY(U,$J,358.3,13792,1,3,0)
;;=3^J0702
;;^UTILITY(U,$J,358.3,13793,0)
;;=J1030^^53^656^3^^^^1
;;^UTILITY(U,$J,358.3,13793,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13793,1,2,0)
;;=2^DEPO MEDROL per 40mg
;;^UTILITY(U,$J,358.3,13793,1,3,0)
;;=3^J1030
;;^UTILITY(U,$J,358.3,13794,0)
;;=J1040^^53^656^4^^^^1
;;^UTILITY(U,$J,358.3,13794,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13794,1,2,0)
;;=2^DEPO MEDROL per 80mg
;;^UTILITY(U,$J,358.3,13794,1,3,0)
;;=3^J1040
;;^UTILITY(U,$J,358.3,13795,0)
;;=A6222^^53^656^17^^^^1
;;^UTILITY(U,$J,358.3,13795,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13795,1,2,0)
;;=2^XEROFORM DRESSING
;;^UTILITY(U,$J,358.3,13795,1,3,0)
;;=3^A6222
;;^UTILITY(U,$J,358.3,13796,0)
;;=S0020^^53^656^12^^^^1
;;^UTILITY(U,$J,358.3,13796,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13796,1,2,0)
;;=2^MARCAINE per 30mg
;;^UTILITY(U,$J,358.3,13796,1,3,0)
;;=3^S0020
;;^UTILITY(U,$J,358.3,13797,0)
;;=A4550^^53^656^14^^^^1
;;^UTILITY(U,$J,358.3,13797,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13797,1,2,0)
;;=2^SURGICAL TRAY
;;^UTILITY(U,$J,358.3,13797,1,3,0)
;;=3^A4550
;;^UTILITY(U,$J,358.3,13798,0)
;;=J7321^^53^656^8^^^^1
;;^UTILITY(U,$J,358.3,13798,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13798,1,2,0)
;;=2^HYALGAN/SUPARTZ INJ,PER DOSE
;;^UTILITY(U,$J,358.3,13798,1,3,0)
;;=3^J7321
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0UJ 3766 printed Apr 09, 2024@21:10:05 Page 2
IBDEI0UJ ; ; 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,13783,1,3,0)
+2 ;;=3^L3480
+3 ;;^UTILITY(U,$J,358.3,13784,0)
+4 ;;=L3510^^53^655^25^^^^1
+5 ;;^UTILITY(U,$J,358.3,13784,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,13784,1,2,0)
+8 ;;=2^VISCO PEDS
+9 ;;^UTILITY(U,$J,358.3,13784,1,3,0)
+10 ;;=3^L3510
+11 ;;^UTILITY(U,$J,358.3,13785,0)
+12 ;;=L1900^^53^655^26^^^^1
+13 ;;^UTILITY(U,$J,358.3,13785,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,13785,1,2,0)
+16 ;;=2^WALKER- PRE FAB SLW - ADULT
+17 ;;^UTILITY(U,$J,358.3,13785,1,3,0)
+18 ;;=3^L1900
+19 ;;^UTILITY(U,$J,358.3,13786,0)
+20 ;;=A4580^^53^655^7^^^^1
+21 ;;^UTILITY(U,$J,358.3,13786,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,13786,1,2,0)
+24 ;;=2^CAST MATERIAL - PLASTER
+25 ;;^UTILITY(U,$J,358.3,13786,1,3,0)
+26 ;;=3^A4580
+27 ;;^UTILITY(U,$J,358.3,13787,0)
+28 ;;=L3908^^53^655^28^^^^1
+29 ;;^UTILITY(U,$J,358.3,13787,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,13787,1,2,0)
+32 ;;=2^WRISTLET
+33 ;;^UTILITY(U,$J,358.3,13787,1,3,0)
+34 ;;=3^L3908
+35 ;;^UTILITY(U,$J,358.3,13788,0)
+36 ;;=L3808^^53^655^27^^^^1
+37 ;;^UTILITY(U,$J,358.3,13788,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,13788,1,2,0)
+40 ;;=2^WHFO, RIGID W/O JOINTS
+41 ;;^UTILITY(U,$J,358.3,13788,1,3,0)
+42 ;;=3^L3808
+43 ;;^UTILITY(U,$J,358.3,13789,0)
+44 ;;=L1810^^53^655^17^^^^1
+45 ;;^UTILITY(U,$J,358.3,13789,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,13789,1,2,0)
+48 ;;=2^KO ELASTIC WITH JOINTS
+49 ;;^UTILITY(U,$J,358.3,13789,1,3,0)
+50 ;;=3^L1810
+51 ;;^UTILITY(U,$J,358.3,13790,0)
+52 ;;=L1830^^53^655^18^^^^1
+53 ;;^UTILITY(U,$J,358.3,13790,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,13790,1,2,0)
+56 ;;=2^KO IMMOBILIZER CANVAS LONGIT
+57 ;;^UTILITY(U,$J,358.3,13790,1,3,0)
+58 ;;=3^L1830
+59 ;;^UTILITY(U,$J,358.3,13791,0)
+60 ;;=L3050^^53^656^13^^^^1
+61 ;;^UTILITY(U,$J,358.3,13791,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,13791,1,2,0)
+64 ;;=2^METATARSAL CUSHION - BALLOFOOT
+65 ;;^UTILITY(U,$J,358.3,13791,1,3,0)
+66 ;;=3^L3050
+67 ;;^UTILITY(U,$J,358.3,13792,0)
+68 ;;=J0702^^53^656^1^^^^1
+69 ;;^UTILITY(U,$J,358.3,13792,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,13792,1,2,0)
+72 ;;=2^CELESTONE SOLUSPAN per 3mg
+73 ;;^UTILITY(U,$J,358.3,13792,1,3,0)
+74 ;;=3^J0702
+75 ;;^UTILITY(U,$J,358.3,13793,0)
+76 ;;=J1030^^53^656^3^^^^1
+77 ;;^UTILITY(U,$J,358.3,13793,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,13793,1,2,0)
+80 ;;=2^DEPO MEDROL per 40mg
+81 ;;^UTILITY(U,$J,358.3,13793,1,3,0)
+82 ;;=3^J1030
+83 ;;^UTILITY(U,$J,358.3,13794,0)
+84 ;;=J1040^^53^656^4^^^^1
+85 ;;^UTILITY(U,$J,358.3,13794,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,13794,1,2,0)
+88 ;;=2^DEPO MEDROL per 80mg
+89 ;;^UTILITY(U,$J,358.3,13794,1,3,0)
+90 ;;=3^J1040
+91 ;;^UTILITY(U,$J,358.3,13795,0)
+92 ;;=A6222^^53^656^17^^^^1
+93 ;;^UTILITY(U,$J,358.3,13795,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,13795,1,2,0)
+96 ;;=2^XEROFORM DRESSING
+97 ;;^UTILITY(U,$J,358.3,13795,1,3,0)
+98 ;;=3^A6222
+99 ;;^UTILITY(U,$J,358.3,13796,0)
+100 ;;=S0020^^53^656^12^^^^1
+101 ;;^UTILITY(U,$J,358.3,13796,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,13796,1,2,0)
+104 ;;=2^MARCAINE per 30mg
+105 ;;^UTILITY(U,$J,358.3,13796,1,3,0)
+106 ;;=3^S0020
+107 ;;^UTILITY(U,$J,358.3,13797,0)
+108 ;;=A4550^^53^656^14^^^^1
+109 ;;^UTILITY(U,$J,358.3,13797,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,13797,1,2,0)
+112 ;;=2^SURGICAL TRAY
+113 ;;^UTILITY(U,$J,358.3,13797,1,3,0)
+114 ;;=3^A4550
+115 ;;^UTILITY(U,$J,358.3,13798,0)
+116 ;;=J7321^^53^656^8^^^^1
+117 ;;^UTILITY(U,$J,358.3,13798,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,13798,1,2,0)
+120 ;;=2^HYALGAN/SUPARTZ INJ,PER DOSE
+121 ;;^UTILITY(U,$J,358.3,13798,1,3,0)
+122 ;;=3^J7321
