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

IBDEI0X8.m

Go to the documentation of this file.
IBDEI0X8 ; ; 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,14973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14973,1,3,0)
 ;;=3^Adhesive Capsulitis,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,14973,1,4,0)
 ;;=4^M75.02
 ;;^UTILITY(U,$J,358.3,14973,2)
 ;;=^5013240
 ;;^UTILITY(U,$J,358.3,14974,0)
 ;;=M75.01^^58^714^4
 ;;^UTILITY(U,$J,358.3,14974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14974,1,3,0)
 ;;=3^Adhesive Capsulitis,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,14974,1,4,0)
 ;;=4^M75.01
 ;;^UTILITY(U,$J,358.3,14974,2)
 ;;=^5013239
 ;;^UTILITY(U,$J,358.3,14975,0)
 ;;=M75.22^^58^714^5
 ;;^UTILITY(U,$J,358.3,14975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14975,1,3,0)
 ;;=3^Bicipital Tendinitis,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,14975,1,4,0)
 ;;=4^M75.22
 ;;^UTILITY(U,$J,358.3,14975,2)
 ;;=^5013252
 ;;^UTILITY(U,$J,358.3,14976,0)
 ;;=M75.21^^58^714^6
 ;;^UTILITY(U,$J,358.3,14976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14976,1,3,0)
 ;;=3^Bicipital Tendinitis,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,14976,1,4,0)
 ;;=4^M75.21
 ;;^UTILITY(U,$J,358.3,14976,2)
 ;;=^5013251
 ;;^UTILITY(U,$J,358.3,14977,0)
 ;;=M75.52^^58^714^7
 ;;^UTILITY(U,$J,358.3,14977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14977,1,3,0)
 ;;=3^Bursitis,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,14977,1,4,0)
 ;;=4^M75.52
 ;;^UTILITY(U,$J,358.3,14977,2)
 ;;=^5133691
 ;;^UTILITY(U,$J,358.3,14978,0)
 ;;=M75.51^^58^714^8
 ;;^UTILITY(U,$J,358.3,14978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14978,1,3,0)
 ;;=3^Bursitis,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,14978,1,4,0)
 ;;=4^M75.51
 ;;^UTILITY(U,$J,358.3,14978,2)
 ;;=^5133690
 ;;^UTILITY(U,$J,358.3,14979,0)
 ;;=M75.32^^58^714^9
 ;;^UTILITY(U,$J,358.3,14979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14979,1,3,0)
 ;;=3^Calcific Tendinitis,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,14979,1,4,0)
 ;;=4^M75.32
 ;;^UTILITY(U,$J,358.3,14979,2)
 ;;=^5013255
 ;;^UTILITY(U,$J,358.3,14980,0)
 ;;=M75.31^^58^714^10
 ;;^UTILITY(U,$J,358.3,14980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14980,1,3,0)
 ;;=3^Calcific Tendinitis,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,14980,1,4,0)
 ;;=4^M75.31
 ;;^UTILITY(U,$J,358.3,14980,2)
 ;;=^5013254
 ;;^UTILITY(U,$J,358.3,14981,0)
 ;;=M22.42^^58^714^13
 ;;^UTILITY(U,$J,358.3,14981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14981,1,3,0)
 ;;=3^Chondromalacia Patellae,Lt Knee
 ;;^UTILITY(U,$J,358.3,14981,1,4,0)
 ;;=4^M22.42
 ;;^UTILITY(U,$J,358.3,14981,2)
 ;;=^5011187
 ;;^UTILITY(U,$J,358.3,14982,0)
 ;;=M22.41^^58^714^14
 ;;^UTILITY(U,$J,358.3,14982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14982,1,3,0)
 ;;=3^Chondromalacia Patellae,Rt Knee
 ;;^UTILITY(U,$J,358.3,14982,1,4,0)
 ;;=4^M22.41
 ;;^UTILITY(U,$J,358.3,14982,2)
 ;;=^5011186
 ;;^UTILITY(U,$J,358.3,14983,0)
 ;;=M23.52^^58^714^15
 ;;^UTILITY(U,$J,358.3,14983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14983,1,3,0)
 ;;=3^Chr Instability of Lt Knee
 ;;^UTILITY(U,$J,358.3,14983,1,4,0)
 ;;=4^M23.52
 ;;^UTILITY(U,$J,358.3,14983,2)
 ;;=^5011255
 ;;^UTILITY(U,$J,358.3,14984,0)
 ;;=M23.51^^58^714^16
 ;;^UTILITY(U,$J,358.3,14984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14984,1,3,0)
 ;;=3^Chr Instability of Rt Knee
 ;;^UTILITY(U,$J,358.3,14984,1,4,0)
 ;;=4^M23.51
 ;;^UTILITY(U,$J,358.3,14984,2)
 ;;=^5011254
 ;;^UTILITY(U,$J,358.3,14985,0)
 ;;=T20.40XS^^58^714^17
 ;;^UTILITY(U,$J,358.3,14985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14985,1,3,0)
 ;;=3^Corrosion Head/Face/Neck,Unspec Degree/Site,Sequla