IBDEI0V7.m

IBDEI0V7 ; ; 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,14078,1,4,0)

 ;;=4^M67.52

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

 ;;=^5012982

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

 ;;=M67.51^^55^670^72

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

 ;;=^358.31IA^4^2

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

 ;;=3^Plica syndrome, right knee

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

 ;;=4^M67.51

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

 ;;=^5012981

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

 ;;=M70.42^^55^670^73

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

 ;;=^358.31IA^4^2

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

 ;;=3^Prepatellar bursitis, left knee

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

 ;;=4^M70.42

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

 ;;=^5013054

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

 ;;=M70.41^^55^670^74

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

 ;;=^358.31IA^4^2

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

 ;;=3^Prepatellar bursitis, right knee

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

 ;;=4^M70.41

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

 ;;=^5013053

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

 ;;=M12.562^^55^670^82

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

 ;;=^358.31IA^4^2

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

 ;;=3^Traumatic arthropathy, left knee

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

 ;;=4^M12.562

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

 ;;=^5010635

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

 ;;=M12.561^^55^670^83

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

 ;;=^358.31IA^4^2

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

 ;;=3^Traumatic arthropathy, right knee

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

 ;;=4^M12.561

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

 ;;=^5010634

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

 ;;=M25.361^^55^670^62

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

 ;;=^358.31IA^4^2

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

 ;;=3^Instability, right knee NEC

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

 ;;=4^M25.361

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

 ;;=^5011566

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

 ;;=M17.0^^55^670^6

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

 ;;=^358.31IA^4^2

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

 ;;=3^Bilateral primary osteoarthritis of knee

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

 ;;=4^M17.0

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

 ;;=^5010784

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

 ;;=M17.11^^55^670^87

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

 ;;=^358.31IA^4^2

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

 ;;=3^Unilateral primary osteoarthritis, right knee

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

 ;;=4^M17.11

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

 ;;=^5010786

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

 ;;=M17.12^^55^670^86

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

 ;;=^358.31IA^4^2

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

 ;;=3^Unilateral primary osteoarthritis, left knee

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

 ;;=4^M17.12

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

 ;;=^5010787

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

 ;;=M17.2^^55^670^5

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

 ;;=^358.31IA^4^2

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

 ;;=3^Bilateral post-traumatic osteoarthritis of knee

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

 ;;=4^M17.2

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

 ;;=^5010788

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

 ;;=M17.31^^55^670^84

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

 ;;=^358.31IA^4^2

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

 ;;=3^Unilateral post-traumatic osteoarthritis, right knee

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

 ;;=4^M17.31

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

 ;;=^5010790

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

 ;;=M17.32^^55^670^85

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

 ;;=^358.31IA^4^2

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

 ;;=3^Unilateral post-traumatic osteoarthritis, left knee

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEI0V7   3752     printed  Mar 13, 2025@21:01:03                                                                                                                                                                                                    Page 2

IBDEI0V7  ; ; 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,14078,1,4,0)

 +2       ;;=4^M67.52

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

 +4       ;;=^5012982

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

 +6       ;;=M67.51^^55^670^72

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

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

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

 +10      ;;=3^Plica syndrome, right knee

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

 +12      ;;=4^M67.51

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

 +14      ;;=^5012981

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

 +16      ;;=M70.42^^55^670^73

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

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

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

 +20      ;;=3^Prepatellar bursitis, left knee

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

 +22      ;;=4^M70.42

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

 +24      ;;=^5013054

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

 +26      ;;=M70.41^^55^670^74

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

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

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

 +30      ;;=3^Prepatellar bursitis, right knee

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

 +32      ;;=4^M70.41

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

 +34      ;;=^5013053

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

 +36      ;;=M12.562^^55^670^82

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

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

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

 +40      ;;=3^Traumatic arthropathy, left knee

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

 +42      ;;=4^M12.562

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

 +44      ;;=^5010635

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

 +46      ;;=M12.561^^55^670^83

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

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

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

 +50      ;;=3^Traumatic arthropathy, right knee

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

 +52      ;;=4^M12.561

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

 +54      ;;=^5010634

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

 +56      ;;=M25.361^^55^670^62

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

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

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

 +60      ;;=3^Instability, right knee NEC

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

 +62      ;;=4^M25.361

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

 +64      ;;=^5011566

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

 +66      ;;=M17.0^^55^670^6

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

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

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

 +70      ;;=3^Bilateral primary osteoarthritis of knee

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

 +72      ;;=4^M17.0

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

 +74      ;;=^5010784

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

 +76      ;;=M17.11^^55^670^87

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

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

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

 +80      ;;=3^Unilateral primary osteoarthritis, right knee

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

 +82      ;;=4^M17.11

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

 +84      ;;=^5010786

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

 +86      ;;=M17.12^^55^670^86

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

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

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

 +90      ;;=3^Unilateral primary osteoarthritis, left knee

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

 +92      ;;=4^M17.12

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

 +94      ;;=^5010787

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

 +96      ;;=M17.2^^55^670^5

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

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

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

 +100     ;;=3^Bilateral post-traumatic osteoarthritis of knee

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

 +102     ;;=4^M17.2

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

 +104     ;;=^5010788

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

 +106     ;;=M17.31^^55^670^84

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

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

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

 +110     ;;=3^Unilateral post-traumatic osteoarthritis, right knee

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

 +112     ;;=4^M17.31

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

 +114     ;;=^5010790

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

 +116     ;;=M17.32^^55^670^85

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

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

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

 +120     ;;=3^Unilateral post-traumatic osteoarthritis, left knee