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

IBDEI0V5.m

Go to the documentation of this file.
IBDEI0V5 ; ; 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,14054,1,3,0)
 ;;=3^Derang Unsp Lateral Mensc d/t Old Tear/Inj,Right Knee
 ;;^UTILITY(U,$J,358.3,14054,1,4,0)
 ;;=4^M23.200
 ;;^UTILITY(U,$J,358.3,14054,2)
 ;;=^5011212
 ;;^UTILITY(U,$J,358.3,14055,0)
 ;;=M23.204^^55^670^35
 ;;^UTILITY(U,$J,358.3,14055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14055,1,3,0)
 ;;=3^Derang Unsp Medial Menisc d/t Old Tear/Inj,Left Knee
 ;;^UTILITY(U,$J,358.3,14055,1,4,0)
 ;;=4^M23.204
 ;;^UTILITY(U,$J,358.3,14055,2)
 ;;=^5011215
 ;;^UTILITY(U,$J,358.3,14056,0)
 ;;=M23.203^^55^670^36
 ;;^UTILITY(U,$J,358.3,14056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14056,1,3,0)
 ;;=3^Derang Unsp Medial Menisc d/t Old Tear/Inj,Right Knee
 ;;^UTILITY(U,$J,358.3,14056,1,4,0)
 ;;=4^M23.203
 ;;^UTILITY(U,$J,358.3,14056,2)
 ;;=^5011214
 ;;^UTILITY(U,$J,358.3,14057,0)
 ;;=M25.462^^55^670^57
 ;;^UTILITY(U,$J,358.3,14057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14057,1,3,0)
 ;;=3^Effusion, left knee
 ;;^UTILITY(U,$J,358.3,14057,1,4,0)
 ;;=4^M25.462
 ;;^UTILITY(U,$J,358.3,14057,2)
 ;;=^5011592
 ;;^UTILITY(U,$J,358.3,14058,0)
 ;;=M25.461^^55^670^58
 ;;^UTILITY(U,$J,358.3,14058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14058,1,3,0)
 ;;=3^Effusion, right knee
 ;;^UTILITY(U,$J,358.3,14058,1,4,0)
 ;;=4^M25.461
 ;;^UTILITY(U,$J,358.3,14058,2)
 ;;=^5011591
 ;;^UTILITY(U,$J,358.3,14059,0)
 ;;=M76.32^^55^670^59
 ;;^UTILITY(U,$J,358.3,14059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14059,1,3,0)
 ;;=3^Iliotibial band syndrome, left leg
 ;;^UTILITY(U,$J,358.3,14059,1,4,0)
 ;;=4^M76.32
 ;;^UTILITY(U,$J,358.3,14059,2)
 ;;=^5013277
 ;;^UTILITY(U,$J,358.3,14060,0)
 ;;=M76.31^^55^670^60
 ;;^UTILITY(U,$J,358.3,14060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14060,1,3,0)
 ;;=3^Iliotibial band syndrome, right leg
 ;;^UTILITY(U,$J,358.3,14060,1,4,0)
 ;;=4^M76.31
 ;;^UTILITY(U,$J,358.3,14060,2)
 ;;=^5013276
 ;;^UTILITY(U,$J,358.3,14061,0)
 ;;=M23.42^^55^670^63
 ;;^UTILITY(U,$J,358.3,14061,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14061,1,3,0)
 ;;=3^Loose body in knee, left knee
 ;;^UTILITY(U,$J,358.3,14061,1,4,0)
 ;;=4^M23.42
 ;;^UTILITY(U,$J,358.3,14061,2)
 ;;=^5011252
 ;;^UTILITY(U,$J,358.3,14062,0)
 ;;=M23.41^^55^670^64
 ;;^UTILITY(U,$J,358.3,14062,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14062,1,3,0)
 ;;=3^Loose body in knee, right knee
 ;;^UTILITY(U,$J,358.3,14062,1,4,0)
 ;;=4^M23.41
 ;;^UTILITY(U,$J,358.3,14062,2)
 ;;=^5011251
 ;;^UTILITY(U,$J,358.3,14063,0)
 ;;=M93.262^^55^670^65
 ;;^UTILITY(U,$J,358.3,14063,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14063,1,3,0)
 ;;=3^Osteochondritis dissecans, left knee
 ;;^UTILITY(U,$J,358.3,14063,1,4,0)
 ;;=4^M93.262
 ;;^UTILITY(U,$J,358.3,14063,2)
 ;;=^5015272
 ;;^UTILITY(U,$J,358.3,14064,0)
 ;;=M93.261^^55^670^66
 ;;^UTILITY(U,$J,358.3,14064,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14064,1,3,0)
 ;;=3^Osteochondritis dissecans, right knee
 ;;^UTILITY(U,$J,358.3,14064,1,4,0)
 ;;=4^M93.261
 ;;^UTILITY(U,$J,358.3,14064,2)
 ;;=^5015271
 ;;^UTILITY(U,$J,358.3,14065,0)
 ;;=M70.52^^55^670^8
 ;;^UTILITY(U,$J,358.3,14065,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14065,1,3,0)
 ;;=3^Bursitis of Left Knee NEC
 ;;^UTILITY(U,$J,358.3,14065,1,4,0)
 ;;=4^M70.52
 ;;^UTILITY(U,$J,358.3,14065,2)
 ;;=^5013057
 ;;^UTILITY(U,$J,358.3,14066,0)
 ;;=M70.51^^55^670^9
 ;;^UTILITY(U,$J,358.3,14066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14066,1,3,0)
 ;;=3^Bursitis of Right Knee NEC