Routine: IBDEI3FB

IBDEI3FB ; ; 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,57590,1,0)

 ;;=^358.31IA^4^2

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

 ;;=3^Gout,Unspec

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

 ;;=4^M10.9

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

 ;;=^5010404

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

 ;;=M06.9^^267^2883^7

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

 ;;=^358.31IA^4^2

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

 ;;=3^Rheumatoid Arthritis,Unspec

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

 ;;=4^M06.9

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

 ;;=^5010145

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

 ;;=M19.90^^267^2883^5

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

 ;;=^358.31IA^4^2

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

 ;;=3^Osteoarthritis,Unspec,Unspec Site

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

 ;;=4^M19.90

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

 ;;=^5010853

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

 ;;=M54.5^^267^2883^4

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

 ;;=^358.31IA^4^2

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

 ;;=3^Low Back Pain

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

 ;;=4^M54.5

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

 ;;=^5012311

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

 ;;=M71.50^^267^2883^2

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

 ;;=^358.31IA^4^2

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

 ;;=3^Bursitis NEC,Unspec Site

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

 ;;=4^M71.50

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

 ;;=^5013190

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

 ;;=M81.0^^267^2883^6

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

 ;;=^358.31IA^4^2

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

 ;;=3^Osteoporosis,Age-Related

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

 ;;=4^M81.0

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

 ;;=^5013555

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

 ;;=M85.80^^267^2883^1

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

 ;;=^358.31IA^4^2

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

 ;;=3^Bone Density & Structure Disorder,Unspec Site

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

 ;;=4^M85.80

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

 ;;=^5014473

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

 ;;=F03.90^^267^2884^5

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

 ;;=^358.31IA^4^2

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

 ;;=3^Dementia w/o Behavioral Disturbance

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

 ;;=4^F03.90

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

 ;;=^5003050

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

 ;;=G30.9^^267^2884^1

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

 ;;=^358.31IA^4^2

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

 ;;=3^Alzheimer's Disease,Unspec

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

 ;;=4^G30.9

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

 ;;=^5003808

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

 ;;=G20.^^267^2884^13

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

 ;;=^358.31IA^4^2

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

 ;;=3^Parkinson's Disease

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

 ;;=4^G20.

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

 ;;=^5003770

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

 ;;=G35.^^267^2884^9

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

 ;;=^358.31IA^4^2

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

 ;;=3^Multiple Sclerosis

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

 ;;=4^G35.

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

 ;;=^79761

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

 ;;=G82.50^^267^2884^14

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

 ;;=^358.31IA^4^2

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

 ;;=3^Quadriplegia,Unspec

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

 ;;=4^G82.50

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

 ;;=^5004128

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

 ;;=G82.20^^267^2884^12

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

 ;;=^358.31IA^4^2

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

 ;;=3^Paraplegia,Unspec

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

 ;;=4^G82.20

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

 ;;=^5004125

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

 ;;=G82.21^^267^2884^10

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

 ;;=^358.31IA^4^2

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

 ;;=3^Paraplegia,Complete

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3FB   3971     printed  Feb 19, 2025@00:14:05                                                                                                                                                                                                    Page 2

IBDEI3FB  ; ; 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,57590,1,0)

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

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

 +4       ;;=3^Gout,Unspec

 +5       ;;^UTILITY(U,$J,358.3,57590,1,4,0)

 +6       ;;=4^M10.9

 +7       ;;^UTILITY(U,$J,358.3,57590,2)

 +8       ;;=^5010404

 +9       ;;^UTILITY(U,$J,358.3,57591,0)

 +10      ;;=M06.9^^267^2883^7

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

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

 +13      ;;^UTILITY(U,$J,358.3,57591,1,3,0)

 +14      ;;=3^Rheumatoid Arthritis,Unspec

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

 +16      ;;=4^M06.9

 +17      ;;^UTILITY(U,$J,358.3,57591,2)

 +18      ;;=^5010145

 +19      ;;^UTILITY(U,$J,358.3,57592,0)

 +20      ;;=M19.90^^267^2883^5

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

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

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

 +24      ;;=3^Osteoarthritis,Unspec,Unspec Site

 +25      ;;^UTILITY(U,$J,358.3,57592,1,4,0)

 +26      ;;=4^M19.90

 +27      ;;^UTILITY(U,$J,358.3,57592,2)

 +28      ;;=^5010853

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

 +30      ;;=M54.5^^267^2883^4

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

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

 +33      ;;^UTILITY(U,$J,358.3,57593,1,3,0)

 +34      ;;=3^Low Back Pain

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

 +36      ;;=4^M54.5

 +37      ;;^UTILITY(U,$J,358.3,57593,2)

 +38      ;;=^5012311

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

 +40      ;;=M71.50^^267^2883^2

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

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

 +43      ;;^UTILITY(U,$J,358.3,57594,1,3,0)

 +44      ;;=3^Bursitis NEC,Unspec Site

 +45      ;;^UTILITY(U,$J,358.3,57594,1,4,0)

 +46      ;;=4^M71.50

 +47      ;;^UTILITY(U,$J,358.3,57594,2)

 +48      ;;=^5013190

 +49      ;;^UTILITY(U,$J,358.3,57595,0)

 +50      ;;=M81.0^^267^2883^6

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

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

 +53      ;;^UTILITY(U,$J,358.3,57595,1,3,0)

 +54      ;;=3^Osteoporosis,Age-Related

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

 +56      ;;=4^M81.0

 +57      ;;^UTILITY(U,$J,358.3,57595,2)

 +58      ;;=^5013555

 +59      ;;^UTILITY(U,$J,358.3,57596,0)

 +60      ;;=M85.80^^267^2883^1

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

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

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

 +64      ;;=3^Bone Density & Structure Disorder,Unspec Site

 +65      ;;^UTILITY(U,$J,358.3,57596,1,4,0)

 +66      ;;=4^M85.80

 +67      ;;^UTILITY(U,$J,358.3,57596,2)

 +68      ;;=^5014473

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

 +70      ;;=F03.90^^267^2884^5

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

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

 +73      ;;^UTILITY(U,$J,358.3,57597,1,3,0)

 +74      ;;=3^Dementia w/o Behavioral Disturbance

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

 +76      ;;=4^F03.90

 +77      ;;^UTILITY(U,$J,358.3,57597,2)

 +78      ;;=^5003050

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

 +80      ;;=G30.9^^267^2884^1

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

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

 +83      ;;^UTILITY(U,$J,358.3,57598,1,3,0)

 +84      ;;=3^Alzheimer's Disease,Unspec

 +85      ;;^UTILITY(U,$J,358.3,57598,1,4,0)

 +86      ;;=4^G30.9

 +87      ;;^UTILITY(U,$J,358.3,57598,2)

 +88      ;;=^5003808

 +89      ;;^UTILITY(U,$J,358.3,57599,0)

 +90      ;;=G20.^^267^2884^13

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

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

 +93      ;;^UTILITY(U,$J,358.3,57599,1,3,0)

 +94      ;;=3^Parkinson's Disease

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

 +96      ;;=4^G20.

 +97      ;;^UTILITY(U,$J,358.3,57599,2)

 +98      ;;=^5003770

 +99      ;;^UTILITY(U,$J,358.3,57600,0)

 +100     ;;=G35.^^267^2884^9

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

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

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

 +104     ;;=3^Multiple Sclerosis

 +105     ;;^UTILITY(U,$J,358.3,57600,1,4,0)

 +106     ;;=4^G35.

 +107     ;;^UTILITY(U,$J,358.3,57600,2)

 +108     ;;=^79761

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

 +110     ;;=G82.50^^267^2884^14

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

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

 +113     ;;^UTILITY(U,$J,358.3,57601,1,3,0)

 +114     ;;=3^Quadriplegia,Unspec

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

 +116     ;;=4^G82.50

 +117     ;;^UTILITY(U,$J,358.3,57601,2)

 +118     ;;=^5004128

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

 +120     ;;=G82.20^^267^2884^12

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

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

 +123     ;;^UTILITY(U,$J,358.3,57602,1,3,0)

 +124     ;;=3^Paraplegia,Unspec

 +125     ;;^UTILITY(U,$J,358.3,57602,1,4,0)

 +126     ;;=4^G82.20

 +127     ;;^UTILITY(U,$J,358.3,57602,2)

 +128     ;;=^5004125

 +129     ;;^UTILITY(U,$J,358.3,57603,0)

 +130     ;;=G82.21^^267^2884^10

 +131     ;;^UTILITY(U,$J,358.3,57603,1,0)

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

 +133     ;;^UTILITY(U,$J,358.3,57603,1,3,0)

 +134     ;;=3^Paraplegia,Complete

IBDEI3FB.m