Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI0V7

IBDEI0V7.m

Go to the documentation of this file.
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