IBDEI2DH.m

IBDEI2DH ; ; 04-FEB-2020

 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020

 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,37867,1,4,0)

 ;;=4^R20.1

 ;;^UTILITY(U,$J,358.3,37867,2)

 ;;=^5019279

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

 ;;=R20.3^^146^1919^9

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hyperesthesia

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

 ;;=4^R20.3

 ;;^UTILITY(U,$J,358.3,37868,2)

 ;;=^60011

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

 ;;=M20.12^^146^1919^3

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hallux valgus (acquired), left foot

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

 ;;=4^M20.12

 ;;^UTILITY(U,$J,358.3,37869,2)

 ;;=^5011043

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

 ;;=M20.11^^146^1919^4

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hallux valgus (acquired), right foot

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

 ;;=4^M20.11

 ;;^UTILITY(U,$J,358.3,37870,2)

 ;;=^5011042

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

 ;;=M20.31^^146^1919^6

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hallux varus (acquired), right foot

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

 ;;=4^M20.31

 ;;^UTILITY(U,$J,358.3,37871,2)

 ;;=^5011048

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

 ;;=M20.32^^146^1919^5

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hallux varus (acquired), left foot

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

 ;;=4^M20.32

 ;;^UTILITY(U,$J,358.3,37872,2)

 ;;=^5011049

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

 ;;=M20.22^^146^1919^1

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hallux rigidus, left foot

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

 ;;=4^M20.22

 ;;^UTILITY(U,$J,358.3,37873,2)

 ;;=^5011046

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

 ;;=M20.21^^146^1919^2

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hallux rigidus, right foot

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

 ;;=4^M20.21

 ;;^UTILITY(U,$J,358.3,37874,2)

 ;;=^5011045

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

 ;;=M20.42^^146^1919^7

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hammer toe(s) (acquired), left foot, oth

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

 ;;=4^M20.42

 ;;^UTILITY(U,$J,358.3,37875,2)

 ;;=^5011052

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

 ;;=M20.41^^146^1919^8

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hammer toe(s) (acquired), right foot, oth

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

 ;;=4^M20.41

 ;;^UTILITY(U,$J,358.3,37876,2)

 ;;=^5011051

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

 ;;=L85.9^^146^1919^10

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

 ;;=^358.31IA^4^2

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

 ;;=3^Hyperkeratosis

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

 ;;=4^L85.9

 ;;^UTILITY(U,$J,358.3,37877,2)

 ;;=^5009325

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

 ;;=T84.7XXA^^146^1920^13

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

 ;;=^358.31IA^4^2

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

 ;;=3^Infect/inflm react d/t int orth pros dev/graft, init

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

 ;;=4^T84.7XXA

 ;;^UTILITY(U,$J,358.3,37878,2)

 ;;=^5055451

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

 ;;=T84.69XA^^146^1920^8

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

 ;;=^358.31IA^4^2

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

 ;;=3^Infect/inflm react d/t int fix of oth site, init

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

 ;;=4^T84.69XA

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEI2DH   3757     printed  Mar 13, 2025@21:31:26                                                                                                                                                                                                    Page 2

IBDEI2DH  ; ; 04-FEB-2020

 +1       ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020

 +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,37867,1,4,0)

 +2       ;;=4^R20.1

 +3       ;;^UTILITY(U,$J,358.3,37867,2)

 +4       ;;=^5019279

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

 +6       ;;=R20.3^^146^1919^9

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

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

 +9       ;;^UTILITY(U,$J,358.3,37868,1,3,0)

 +10      ;;=3^Hyperesthesia

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

 +12      ;;=4^R20.3

 +13      ;;^UTILITY(U,$J,358.3,37868,2)

 +14      ;;=^60011

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

 +16      ;;=M20.12^^146^1919^3

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

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

 +19      ;;^UTILITY(U,$J,358.3,37869,1,3,0)

 +20      ;;=3^Hallux valgus (acquired), left foot

 +21      ;;^UTILITY(U,$J,358.3,37869,1,4,0)

 +22      ;;=4^M20.12

 +23      ;;^UTILITY(U,$J,358.3,37869,2)

 +24      ;;=^5011043

 +25      ;;^UTILITY(U,$J,358.3,37870,0)

 +26      ;;=M20.11^^146^1919^4

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

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

 +29      ;;^UTILITY(U,$J,358.3,37870,1,3,0)

 +30      ;;=3^Hallux valgus (acquired), right foot

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

 +32      ;;=4^M20.11

 +33      ;;^UTILITY(U,$J,358.3,37870,2)

 +34      ;;=^5011042

 +35      ;;^UTILITY(U,$J,358.3,37871,0)

 +36      ;;=M20.31^^146^1919^6

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

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

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

 +40      ;;=3^Hallux varus (acquired), right foot

 +41      ;;^UTILITY(U,$J,358.3,37871,1,4,0)

 +42      ;;=4^M20.31

 +43      ;;^UTILITY(U,$J,358.3,37871,2)

 +44      ;;=^5011048

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

 +46      ;;=M20.32^^146^1919^5

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

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

 +49      ;;^UTILITY(U,$J,358.3,37872,1,3,0)

 +50      ;;=3^Hallux varus (acquired), left foot

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

 +52      ;;=4^M20.32

 +53      ;;^UTILITY(U,$J,358.3,37872,2)

 +54      ;;=^5011049

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

 +56      ;;=M20.22^^146^1919^1

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

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

 +59      ;;^UTILITY(U,$J,358.3,37873,1,3,0)

 +60      ;;=3^Hallux rigidus, left foot

 +61      ;;^UTILITY(U,$J,358.3,37873,1,4,0)

 +62      ;;=4^M20.22

 +63      ;;^UTILITY(U,$J,358.3,37873,2)

 +64      ;;=^5011046

 +65      ;;^UTILITY(U,$J,358.3,37874,0)

 +66      ;;=M20.21^^146^1919^2

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

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

 +69      ;;^UTILITY(U,$J,358.3,37874,1,3,0)

 +70      ;;=3^Hallux rigidus, right foot

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

 +72      ;;=4^M20.21

 +73      ;;^UTILITY(U,$J,358.3,37874,2)

 +74      ;;=^5011045

 +75      ;;^UTILITY(U,$J,358.3,37875,0)

 +76      ;;=M20.42^^146^1919^7

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

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

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

 +80      ;;=3^Hammer toe(s) (acquired), left foot, oth

 +81      ;;^UTILITY(U,$J,358.3,37875,1,4,0)

 +82      ;;=4^M20.42

 +83      ;;^UTILITY(U,$J,358.3,37875,2)

 +84      ;;=^5011052

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

 +86      ;;=M20.41^^146^1919^8

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

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

 +89      ;;^UTILITY(U,$J,358.3,37876,1,3,0)

 +90      ;;=3^Hammer toe(s) (acquired), right foot, oth

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

 +92      ;;=4^M20.41

 +93      ;;^UTILITY(U,$J,358.3,37876,2)

 +94      ;;=^5011051

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

 +96      ;;=L85.9^^146^1919^10

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

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

 +99      ;;^UTILITY(U,$J,358.3,37877,1,3,0)

 +100     ;;=3^Hyperkeratosis

 +101     ;;^UTILITY(U,$J,358.3,37877,1,4,0)

 +102     ;;=4^L85.9

 +103     ;;^UTILITY(U,$J,358.3,37877,2)

 +104     ;;=^5009325

 +105     ;;^UTILITY(U,$J,358.3,37878,0)

 +106     ;;=T84.7XXA^^146^1920^13

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

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

 +109     ;;^UTILITY(U,$J,358.3,37878,1,3,0)

 +110     ;;=3^Infect/inflm react d/t int orth pros dev/graft, init

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

 +112     ;;=4^T84.7XXA

 +113     ;;^UTILITY(U,$J,358.3,37878,2)

 +114     ;;=^5055451

 +115     ;;^UTILITY(U,$J,358.3,37879,0)

 +116     ;;=T84.69XA^^146^1920^8

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

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

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

 +120     ;;=3^Infect/inflm react d/t int fix of oth site, init

 +121     ;;^UTILITY(U,$J,358.3,37879,1,4,0)

 +122     ;;=4^T84.69XA