IBDEI0U5 ; ; 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,13572,0)
;;=97530^^52^644^17^^^^1
;;^UTILITY(U,$J,358.3,13572,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13572,1,2,0)
;;=2^97530
;;^UTILITY(U,$J,358.3,13572,1,3,0)
;;=3^Therapeutic Activities,Ea 15 min
;;^UTILITY(U,$J,358.3,13573,0)
;;=97763^^52^644^5^^^^1
;;^UTILITY(U,$J,358.3,13573,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13573,1,2,0)
;;=2^97763
;;^UTILITY(U,$J,358.3,13573,1,3,0)
;;=3^Orthotic/Prosthetic Mgmt,Subsq Visit,Ea 15 min
;;^UTILITY(U,$J,358.3,13574,0)
;;=99367^^52^644^16^^^^1
;;^UTILITY(U,$J,358.3,13574,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13574,1,2,0)
;;=2^99367
;;^UTILITY(U,$J,358.3,13574,1,3,0)
;;=3^Team Conf w/o Pat by Physician
;;^UTILITY(U,$J,358.3,13575,0)
;;=V2615^^52^644^19^^^^1
;;^UTILITY(U,$J,358.3,13575,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13575,1,2,0)
;;=2^V2615
;;^UTILITY(U,$J,358.3,13575,1,3,0)
;;=3^Fit Telescope/Compound Lens System
;;^UTILITY(U,$J,358.3,13576,0)
;;=V2600^^52^644^20^^^^1
;;^UTILITY(U,$J,358.3,13576,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13576,1,2,0)
;;=2^V2600
;;^UTILITY(U,$J,358.3,13576,1,3,0)
;;=3^Fit Hand Held Mag/Non-spectacle Mounted Aid
;;^UTILITY(U,$J,358.3,13577,0)
;;=V2610^^52^644^21^^^^1
;;^UTILITY(U,$J,358.3,13577,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13577,1,2,0)
;;=2^V2610
;;^UTILITY(U,$J,358.3,13577,1,3,0)
;;=3^Fit Single Lens Spec Mounted Low Vision Device
;;^UTILITY(U,$J,358.3,13578,0)
;;=92354^^52^644^22^^^^1
;;^UTILITY(U,$J,358.3,13578,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13578,1,2,0)
;;=2^92354
;;^UTILITY(U,$J,358.3,13578,1,3,0)
;;=3^Fit Spec Mounted Low Vision Device Single Element
;;^UTILITY(U,$J,358.3,13579,0)
;;=92355^^52^644^23^^^^1
;;^UTILITY(U,$J,358.3,13579,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13579,1,2,0)
;;=2^92355
;;^UTILITY(U,$J,358.3,13579,1,3,0)
;;=3^Fit Spec Mount TS or Compound Device
;;^UTILITY(U,$J,358.3,13580,0)
;;=V2118^^52^644^24^^^^1
;;^UTILITY(U,$J,358.3,13580,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13580,1,2,0)
;;=2^V2118
;;^UTILITY(U,$J,358.3,13580,1,3,0)
;;=3^Fit Aniseikonic Lens Single Vision
;;^UTILITY(U,$J,358.3,13581,0)
;;=V2718^^52^644^25^^^^1
;;^UTILITY(U,$J,358.3,13581,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13581,1,2,0)
;;=2^V2718
;;^UTILITY(U,$J,358.3,13581,1,3,0)
;;=3^Fit Press-ON Prism per Lens
;;^UTILITY(U,$J,358.3,13582,0)
;;=V2715^^52^644^26^^^^1
;;^UTILITY(U,$J,358.3,13582,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13582,1,2,0)
;;=2^V2715
;;^UTILITY(U,$J,358.3,13582,1,3,0)
;;=3^Fit Prism per Lens
;;^UTILITY(U,$J,358.3,13583,0)
;;=97129^^52^644^2^^^^1
;;^UTILITY(U,$J,358.3,13583,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13583,1,2,0)
;;=2^97129
;;^UTILITY(U,$J,358.3,13583,1,3,0)
;;=3^Therapeutic Intrvn,1st 15 min
;;^UTILITY(U,$J,358.3,13584,0)
;;=97130^^52^644^3^^^^1
;;^UTILITY(U,$J,358.3,13584,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13584,1,2,0)
;;=2^97130
;;^UTILITY(U,$J,358.3,13584,1,3,0)
;;=3^Therapeutic Intrvn,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,13585,0)
;;=92020^^52^645^7^^^^1
;;^UTILITY(U,$J,358.3,13585,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,13585,1,2,0)
;;=2^92020
;;^UTILITY(U,$J,358.3,13585,1,3,0)
;;=3^Gonioscopy
;;^UTILITY(U,$J,358.3,13586,0)
;;=92060^^52^645^3^^^^1
;;^UTILITY(U,$J,358.3,13586,1,0)
;;=^358.31IA^3^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0U5 3758 printed Sep 23, 2025@19:31:48 Page 2
IBDEI0U5 ; ; 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,13572,0)
+2 ;;=97530^^52^644^17^^^^1
+3 ;;^UTILITY(U,$J,358.3,13572,1,0)
+4 ;;=^358.31IA^3^2
+5 ;;^UTILITY(U,$J,358.3,13572,1,2,0)
+6 ;;=2^97530
+7 ;;^UTILITY(U,$J,358.3,13572,1,3,0)
+8 ;;=3^Therapeutic Activities,Ea 15 min
+9 ;;^UTILITY(U,$J,358.3,13573,0)
+10 ;;=97763^^52^644^5^^^^1
+11 ;;^UTILITY(U,$J,358.3,13573,1,0)
+12 ;;=^358.31IA^3^2
+13 ;;^UTILITY(U,$J,358.3,13573,1,2,0)
+14 ;;=2^97763
+15 ;;^UTILITY(U,$J,358.3,13573,1,3,0)
+16 ;;=3^Orthotic/Prosthetic Mgmt,Subsq Visit,Ea 15 min
+17 ;;^UTILITY(U,$J,358.3,13574,0)
+18 ;;=99367^^52^644^16^^^^1
+19 ;;^UTILITY(U,$J,358.3,13574,1,0)
+20 ;;=^358.31IA^3^2
+21 ;;^UTILITY(U,$J,358.3,13574,1,2,0)
+22 ;;=2^99367
+23 ;;^UTILITY(U,$J,358.3,13574,1,3,0)
+24 ;;=3^Team Conf w/o Pat by Physician
+25 ;;^UTILITY(U,$J,358.3,13575,0)
+26 ;;=V2615^^52^644^19^^^^1
+27 ;;^UTILITY(U,$J,358.3,13575,1,0)
+28 ;;=^358.31IA^3^2
+29 ;;^UTILITY(U,$J,358.3,13575,1,2,0)
+30 ;;=2^V2615
+31 ;;^UTILITY(U,$J,358.3,13575,1,3,0)
+32 ;;=3^Fit Telescope/Compound Lens System
+33 ;;^UTILITY(U,$J,358.3,13576,0)
+34 ;;=V2600^^52^644^20^^^^1
+35 ;;^UTILITY(U,$J,358.3,13576,1,0)
+36 ;;=^358.31IA^3^2
+37 ;;^UTILITY(U,$J,358.3,13576,1,2,0)
+38 ;;=2^V2600
+39 ;;^UTILITY(U,$J,358.3,13576,1,3,0)
+40 ;;=3^Fit Hand Held Mag/Non-spectacle Mounted Aid
+41 ;;^UTILITY(U,$J,358.3,13577,0)
+42 ;;=V2610^^52^644^21^^^^1
+43 ;;^UTILITY(U,$J,358.3,13577,1,0)
+44 ;;=^358.31IA^3^2
+45 ;;^UTILITY(U,$J,358.3,13577,1,2,0)
+46 ;;=2^V2610
+47 ;;^UTILITY(U,$J,358.3,13577,1,3,0)
+48 ;;=3^Fit Single Lens Spec Mounted Low Vision Device
+49 ;;^UTILITY(U,$J,358.3,13578,0)
+50 ;;=92354^^52^644^22^^^^1
+51 ;;^UTILITY(U,$J,358.3,13578,1,0)
+52 ;;=^358.31IA^3^2
+53 ;;^UTILITY(U,$J,358.3,13578,1,2,0)
+54 ;;=2^92354
+55 ;;^UTILITY(U,$J,358.3,13578,1,3,0)
+56 ;;=3^Fit Spec Mounted Low Vision Device Single Element
+57 ;;^UTILITY(U,$J,358.3,13579,0)
+58 ;;=92355^^52^644^23^^^^1
+59 ;;^UTILITY(U,$J,358.3,13579,1,0)
+60 ;;=^358.31IA^3^2
+61 ;;^UTILITY(U,$J,358.3,13579,1,2,0)
+62 ;;=2^92355
+63 ;;^UTILITY(U,$J,358.3,13579,1,3,0)
+64 ;;=3^Fit Spec Mount TS or Compound Device
+65 ;;^UTILITY(U,$J,358.3,13580,0)
+66 ;;=V2118^^52^644^24^^^^1
+67 ;;^UTILITY(U,$J,358.3,13580,1,0)
+68 ;;=^358.31IA^3^2
+69 ;;^UTILITY(U,$J,358.3,13580,1,2,0)
+70 ;;=2^V2118
+71 ;;^UTILITY(U,$J,358.3,13580,1,3,0)
+72 ;;=3^Fit Aniseikonic Lens Single Vision
+73 ;;^UTILITY(U,$J,358.3,13581,0)
+74 ;;=V2718^^52^644^25^^^^1
+75 ;;^UTILITY(U,$J,358.3,13581,1,0)
+76 ;;=^358.31IA^3^2
+77 ;;^UTILITY(U,$J,358.3,13581,1,2,0)
+78 ;;=2^V2718
+79 ;;^UTILITY(U,$J,358.3,13581,1,3,0)
+80 ;;=3^Fit Press-ON Prism per Lens
+81 ;;^UTILITY(U,$J,358.3,13582,0)
+82 ;;=V2715^^52^644^26^^^^1
+83 ;;^UTILITY(U,$J,358.3,13582,1,0)
+84 ;;=^358.31IA^3^2
+85 ;;^UTILITY(U,$J,358.3,13582,1,2,0)
+86 ;;=2^V2715
+87 ;;^UTILITY(U,$J,358.3,13582,1,3,0)
+88 ;;=3^Fit Prism per Lens
+89 ;;^UTILITY(U,$J,358.3,13583,0)
+90 ;;=97129^^52^644^2^^^^1
+91 ;;^UTILITY(U,$J,358.3,13583,1,0)
+92 ;;=^358.31IA^3^2
+93 ;;^UTILITY(U,$J,358.3,13583,1,2,0)
+94 ;;=2^97129
+95 ;;^UTILITY(U,$J,358.3,13583,1,3,0)
+96 ;;=3^Therapeutic Intrvn,1st 15 min
+97 ;;^UTILITY(U,$J,358.3,13584,0)
+98 ;;=97130^^52^644^3^^^^1
+99 ;;^UTILITY(U,$J,358.3,13584,1,0)
+100 ;;=^358.31IA^3^2
+101 ;;^UTILITY(U,$J,358.3,13584,1,2,0)
+102 ;;=2^97130
+103 ;;^UTILITY(U,$J,358.3,13584,1,3,0)
+104 ;;=3^Therapeutic Intrvn,Ea Addl 15 min
+105 ;;^UTILITY(U,$J,358.3,13585,0)
+106 ;;=92020^^52^645^7^^^^1
+107 ;;^UTILITY(U,$J,358.3,13585,1,0)
+108 ;;=^358.31IA^3^2
+109 ;;^UTILITY(U,$J,358.3,13585,1,2,0)
+110 ;;=2^92020
+111 ;;^UTILITY(U,$J,358.3,13585,1,3,0)
+112 ;;=3^Gonioscopy
+113 ;;^UTILITY(U,$J,358.3,13586,0)
+114 ;;=92060^^52^645^3^^^^1
+115 ;;^UTILITY(U,$J,358.3,13586,1,0)
+116 ;;=^358.31IA^3^2
