IBDEI3E3.m

IBDEI3E3 ; ; 19-NOV-2015

 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015

 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,358.3,56989,1,2,0)

 ;;=2^Active Wound Care/20 Cm Or <

 ;;^UTILITY(U,$J,358.3,56989,1,4,0)

 ;;=4^97597

 ;;^UTILITY(U,$J,358.3,56990,0)

 ;;=97602^^263^2847^7^^^^1

 ;;^UTILITY(U,$J,358.3,56990,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56990,1,2,0)

 ;;=2^Wound(S) Care Non-Selective

 ;;^UTILITY(U,$J,358.3,56990,1,4,0)

 ;;=4^97602

 ;;^UTILITY(U,$J,358.3,56991,0)

 ;;=15852^^263^2847^2^^^^1

 ;;^UTILITY(U,$J,358.3,56991,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56991,1,2,0)

 ;;=2^Dressing Change,Not For Burn

 ;;^UTILITY(U,$J,358.3,56991,1,4,0)

 ;;=4^15852

 ;;^UTILITY(U,$J,358.3,56992,0)

 ;;=S0630^^263^2847^6^^^^1

 ;;^UTILITY(U,$J,358.3,56992,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56992,1,2,0)

 ;;=2^Removal Of Sutures

 ;;^UTILITY(U,$J,358.3,56992,1,4,0)

 ;;=4^S0630

 ;;^UTILITY(U,$J,358.3,56993,0)

 ;;=97610^^263^2847^3^^^^1

 ;;^UTILITY(U,$J,358.3,56993,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56993,1,2,0)

 ;;=2^Low Frq,Non Contact/Non Therm US & Wnd Assmt

 ;;^UTILITY(U,$J,358.3,56993,1,4,0)

 ;;=4^97610

 ;;^UTILITY(U,$J,358.3,56994,0)

 ;;=93922^^263^2848^3^^^^1

 ;;^UTILITY(U,$J,358.3,56994,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56994,1,2,0)

 ;;=2^ABI Upper/Lower Single/BL

 ;;^UTILITY(U,$J,358.3,56994,1,4,0)

 ;;=4^93922

 ;;^UTILITY(U,$J,358.3,56995,0)

 ;;=93923^^263^2848^2^^^^1

 ;;^UTILITY(U,$J,358.3,56995,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56995,1,2,0)

 ;;=2^ABI Upper/Lower Comp/BL

 ;;^UTILITY(U,$J,358.3,56995,1,4,0)

 ;;=4^93923

 ;;^UTILITY(U,$J,358.3,56996,0)

 ;;=93971^^263^2848^13^^^^1

 ;;^UTILITY(U,$J,358.3,56996,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56996,1,2,0)

 ;;=2^DUS Ext Veins Resp Cmprssn, Unil/Limited

 ;;^UTILITY(U,$J,358.3,56996,1,4,0)

 ;;=4^93971

 ;;^UTILITY(U,$J,358.3,56997,0)

 ;;=93925^^263^2848^15^^^^1

 ;;^UTILITY(U,$J,358.3,56997,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56997,1,2,0)

 ;;=2^DUS Lower Ext or BPG, Comp/BL

 ;;^UTILITY(U,$J,358.3,56997,1,4,0)

 ;;=4^93925

 ;;^UTILITY(U,$J,358.3,56998,0)

 ;;=93926^^263^2848^16^^^^1

 ;;^UTILITY(U,$J,358.3,56998,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56998,1,2,0)

 ;;=2^DUS Lower Ext or BPG, Unil/Limited

 ;;^UTILITY(U,$J,358.3,56998,1,4,0)

 ;;=4^93926

 ;;^UTILITY(U,$J,358.3,56999,0)

 ;;=36470^^263^2848^22^^^^1

 ;;^UTILITY(U,$J,358.3,56999,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,56999,1,2,0)

 ;;=2^Injection Therapy Of Vein

 ;;^UTILITY(U,$J,358.3,56999,1,4,0)

 ;;=4^36470

 ;;^UTILITY(U,$J,358.3,57000,0)

 ;;=36471^^263^2848^23^^^^1

 ;;^UTILITY(U,$J,358.3,57000,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,57000,1,2,0)

 ;;=2^Injection Therapy Of Veins

 ;;^UTILITY(U,$J,358.3,57000,1,4,0)

 ;;=4^36471

 ;;^UTILITY(U,$J,358.3,57001,0)

 ;;=S5520^^263^2848^20^^^^1

 ;;^UTILITY(U,$J,358.3,57001,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,57001,1,2,0)

 ;;=2^Hit Picc Insert Kit

 ;;^UTILITY(U,$J,358.3,57001,1,4,0)

 ;;=4^S5520

 ;;^UTILITY(U,$J,358.3,57002,0)

 ;;=76700^^263^2848^30^^^^1

 ;;^UTILITY(U,$J,358.3,57002,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,57002,1,2,0)

 ;;=2^US Exam, Abdom, Complete

 ;;^UTILITY(U,$J,358.3,57002,1,4,0)

 ;;=4^76700

 ;;^UTILITY(U,$J,358.3,57003,0)

 ;;=76970^^263^2848^33^^^^1

 ;;^UTILITY(U,$J,358.3,57003,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,57003,1,2,0)

 ;;=2^Ultrasound Exam Follow-Up

 ;;^UTILITY(U,$J,358.3,57003,1,4,0)

 ;;=4^76970

 ;;^UTILITY(U,$J,358.3,57004,0)

 ;;=76999^^263^2848^19^^^^1

 ;;^UTILITY(U,$J,358.3,57004,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,57004,1,2,0)

 ;;=2^Echo Examination Procedure

 ;;^UTILITY(U,$J,358.3,57004,1,4,0)

 ;;=4^76999

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEI3E3   3950     printed  Feb 19, 2025@00:13:24                                                                                                                                                                                                    Page 2

IBDEI3E3  ; ; 19-NOV-2015

 +1       ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015

 +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,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.3,56989,1,2,0)

 +2       ;;=2^Active Wound Care/20 Cm Or <

 +3       ;;^UTILITY(U,$J,358.3,56989,1,4,0)

 +4       ;;=4^97597

 +5       ;;^UTILITY(U,$J,358.3,56990,0)

 +6       ;;=97602^^263^2847^7^^^^1

 +7       ;;^UTILITY(U,$J,358.3,56990,1,0)

 +8       ;;=^358.31IA^4^2

 +9       ;;^UTILITY(U,$J,358.3,56990,1,2,0)

 +10      ;;=2^Wound(S) Care Non-Selective

 +11      ;;^UTILITY(U,$J,358.3,56990,1,4,0)

 +12      ;;=4^97602

 +13      ;;^UTILITY(U,$J,358.3,56991,0)

 +14      ;;=15852^^263^2847^2^^^^1

 +15      ;;^UTILITY(U,$J,358.3,56991,1,0)

 +16      ;;=^358.31IA^4^2

 +17      ;;^UTILITY(U,$J,358.3,56991,1,2,0)

 +18      ;;=2^Dressing Change,Not For Burn

 +19      ;;^UTILITY(U,$J,358.3,56991,1,4,0)

 +20      ;;=4^15852

 +21      ;;^UTILITY(U,$J,358.3,56992,0)

 +22      ;;=S0630^^263^2847^6^^^^1

 +23      ;;^UTILITY(U,$J,358.3,56992,1,0)

 +24      ;;=^358.31IA^4^2

 +25      ;;^UTILITY(U,$J,358.3,56992,1,2,0)

 +26      ;;=2^Removal Of Sutures

 +27      ;;^UTILITY(U,$J,358.3,56992,1,4,0)

 +28      ;;=4^S0630

 +29      ;;^UTILITY(U,$J,358.3,56993,0)

 +30      ;;=97610^^263^2847^3^^^^1

 +31      ;;^UTILITY(U,$J,358.3,56993,1,0)

 +32      ;;=^358.31IA^4^2

 +33      ;;^UTILITY(U,$J,358.3,56993,1,2,0)

 +34      ;;=2^Low Frq,Non Contact/Non Therm US & Wnd Assmt

 +35      ;;^UTILITY(U,$J,358.3,56993,1,4,0)

 +36      ;;=4^97610

 +37      ;;^UTILITY(U,$J,358.3,56994,0)

 +38      ;;=93922^^263^2848^3^^^^1

 +39      ;;^UTILITY(U,$J,358.3,56994,1,0)

 +40      ;;=^358.31IA^4^2

 +41      ;;^UTILITY(U,$J,358.3,56994,1,2,0)

 +42      ;;=2^ABI Upper/Lower Single/BL

 +43      ;;^UTILITY(U,$J,358.3,56994,1,4,0)

 +44      ;;=4^93922

 +45      ;;^UTILITY(U,$J,358.3,56995,0)

 +46      ;;=93923^^263^2848^2^^^^1

 +47      ;;^UTILITY(U,$J,358.3,56995,1,0)

 +48      ;;=^358.31IA^4^2

 +49      ;;^UTILITY(U,$J,358.3,56995,1,2,0)

 +50      ;;=2^ABI Upper/Lower Comp/BL

 +51      ;;^UTILITY(U,$J,358.3,56995,1,4,0)

 +52      ;;=4^93923

 +53      ;;^UTILITY(U,$J,358.3,56996,0)

 +54      ;;=93971^^263^2848^13^^^^1

 +55      ;;^UTILITY(U,$J,358.3,56996,1,0)

 +56      ;;=^358.31IA^4^2

 +57      ;;^UTILITY(U,$J,358.3,56996,1,2,0)

 +58      ;;=2^DUS Ext Veins Resp Cmprssn, Unil/Limited

 +59      ;;^UTILITY(U,$J,358.3,56996,1,4,0)

 +60      ;;=4^93971

 +61      ;;^UTILITY(U,$J,358.3,56997,0)

 +62      ;;=93925^^263^2848^15^^^^1

 +63      ;;^UTILITY(U,$J,358.3,56997,1,0)

 +64      ;;=^358.31IA^4^2

 +65      ;;^UTILITY(U,$J,358.3,56997,1,2,0)

 +66      ;;=2^DUS Lower Ext or BPG, Comp/BL

 +67      ;;^UTILITY(U,$J,358.3,56997,1,4,0)

 +68      ;;=4^93925

 +69      ;;^UTILITY(U,$J,358.3,56998,0)

 +70      ;;=93926^^263^2848^16^^^^1

 +71      ;;^UTILITY(U,$J,358.3,56998,1,0)

 +72      ;;=^358.31IA^4^2

 +73      ;;^UTILITY(U,$J,358.3,56998,1,2,0)

 +74      ;;=2^DUS Lower Ext or BPG, Unil/Limited

 +75      ;;^UTILITY(U,$J,358.3,56998,1,4,0)

 +76      ;;=4^93926

 +77      ;;^UTILITY(U,$J,358.3,56999,0)

 +78      ;;=36470^^263^2848^22^^^^1

 +79      ;;^UTILITY(U,$J,358.3,56999,1,0)

 +80      ;;=^358.31IA^4^2

 +81      ;;^UTILITY(U,$J,358.3,56999,1,2,0)

 +82      ;;=2^Injection Therapy Of Vein

 +83      ;;^UTILITY(U,$J,358.3,56999,1,4,0)

 +84      ;;=4^36470

 +85      ;;^UTILITY(U,$J,358.3,57000,0)

 +86      ;;=36471^^263^2848^23^^^^1

 +87      ;;^UTILITY(U,$J,358.3,57000,1,0)

 +88      ;;=^358.31IA^4^2

 +89      ;;^UTILITY(U,$J,358.3,57000,1,2,0)

 +90      ;;=2^Injection Therapy Of Veins

 +91      ;;^UTILITY(U,$J,358.3,57000,1,4,0)

 +92      ;;=4^36471

 +93      ;;^UTILITY(U,$J,358.3,57001,0)

 +94      ;;=S5520^^263^2848^20^^^^1

 +95      ;;^UTILITY(U,$J,358.3,57001,1,0)

 +96      ;;=^358.31IA^4^2

 +97      ;;^UTILITY(U,$J,358.3,57001,1,2,0)

 +98      ;;=2^Hit Picc Insert Kit

 +99      ;;^UTILITY(U,$J,358.3,57001,1,4,0)

 +100     ;;=4^S5520

 +101     ;;^UTILITY(U,$J,358.3,57002,0)

 +102     ;;=76700^^263^2848^30^^^^1

 +103     ;;^UTILITY(U,$J,358.3,57002,1,0)

 +104     ;;=^358.31IA^4^2

 +105     ;;^UTILITY(U,$J,358.3,57002,1,2,0)

 +106     ;;=2^US Exam, Abdom, Complete

 +107     ;;^UTILITY(U,$J,358.3,57002,1,4,0)

 +108     ;;=4^76700

 +109     ;;^UTILITY(U,$J,358.3,57003,0)

 +110     ;;=76970^^263^2848^33^^^^1

 +111     ;;^UTILITY(U,$J,358.3,57003,1,0)

 +112     ;;=^358.31IA^4^2

 +113     ;;^UTILITY(U,$J,358.3,57003,1,2,0)

 +114     ;;=2^Ultrasound Exam Follow-Up

 +115     ;;^UTILITY(U,$J,358.3,57003,1,4,0)

 +116     ;;=4^76970

 +117     ;;^UTILITY(U,$J,358.3,57004,0)

 +118     ;;=76999^^263^2848^19^^^^1

 +119     ;;^UTILITY(U,$J,358.3,57004,1,0)

 +120     ;;=^358.31IA^4^2

 +121     ;;^UTILITY(U,$J,358.3,57004,1,2,0)

 +122     ;;=2^Echo Examination Procedure

 +123     ;;^UTILITY(U,$J,358.3,57004,1,4,0)

 +124     ;;=4^76999