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

IBDEI249.m

Go to the documentation of this file.
  1. IBDEI249 ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,33813,2)
  1. ;;=^5133691
  1. ;;^UTILITY(U,$J,358.3,33814,0)
  1. ;;=M75.51^^132^1712^8
  1. ;;^UTILITY(U,$J,358.3,33814,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33814,1,3,0)
  1. ;;=3^Bursitis of right shoulder
  1. ;;^UTILITY(U,$J,358.3,33814,1,4,0)
  1. ;;=4^M75.51
  1. ;;^UTILITY(U,$J,358.3,33814,2)
  1. ;;=^5133690
  1. ;;^UTILITY(U,$J,358.3,33815,0)
  1. ;;=M75.32^^132^1712^9
  1. ;;^UTILITY(U,$J,358.3,33815,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33815,1,3,0)
  1. ;;=3^Calcific tendinitis of left shoulder
  1. ;;^UTILITY(U,$J,358.3,33815,1,4,0)
  1. ;;=4^M75.32
  1. ;;^UTILITY(U,$J,358.3,33815,2)
  1. ;;=^5013255
  1. ;;^UTILITY(U,$J,358.3,33816,0)
  1. ;;=M75.31^^132^1712^10
  1. ;;^UTILITY(U,$J,358.3,33816,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33816,1,3,0)
  1. ;;=3^Calcific tendinitis of right shoulder
  1. ;;^UTILITY(U,$J,358.3,33816,1,4,0)
  1. ;;=4^M75.31
  1. ;;^UTILITY(U,$J,358.3,33816,2)
  1. ;;=^5013254
  1. ;;^UTILITY(U,$J,358.3,33817,0)
  1. ;;=M75.122^^132^1712^11
  1. ;;^UTILITY(U,$J,358.3,33817,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33817,1,3,0)
  1. ;;=3^Complete rotatr-cuff tear/ruptr of left shoulder, not trauma
  1. ;;^UTILITY(U,$J,358.3,33817,1,4,0)
  1. ;;=4^M75.122
  1. ;;^UTILITY(U,$J,358.3,33817,2)
  1. ;;=^5013249
  1. ;;^UTILITY(U,$J,358.3,33818,0)
  1. ;;=M75.121^^132^1712^12
  1. ;;^UTILITY(U,$J,358.3,33818,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33818,1,3,0)
  1. ;;=3^Complete rotatr-cuff tear/ruptr of r shoulder, not trauma
  1. ;;^UTILITY(U,$J,358.3,33818,1,4,0)
  1. ;;=4^M75.121
  1. ;;^UTILITY(U,$J,358.3,33818,2)
  1. ;;=^5013248
  1. ;;^UTILITY(U,$J,358.3,33819,0)
  1. ;;=S40.012A^^132^1712^13
  1. ;;^UTILITY(U,$J,358.3,33819,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33819,1,3,0)
  1. ;;=3^Contusion of left shoulder, initial encounter
  1. ;;^UTILITY(U,$J,358.3,33819,1,4,0)
  1. ;;=4^S40.012A
  1. ;;^UTILITY(U,$J,358.3,33819,2)
  1. ;;=^5026156
  1. ;;^UTILITY(U,$J,358.3,33820,0)
  1. ;;=S40.011A^^132^1712^15
  1. ;;^UTILITY(U,$J,358.3,33820,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33820,1,3,0)
  1. ;;=3^Contusion of right shoulder, initial encounter
  1. ;;^UTILITY(U,$J,358.3,33820,1,4,0)
  1. ;;=4^S40.011A
  1. ;;^UTILITY(U,$J,358.3,33820,2)
  1. ;;=^5026153
  1. ;;^UTILITY(U,$J,358.3,33821,0)
  1. ;;=S42.002A^^132^1712^25
  1. ;;^UTILITY(U,$J,358.3,33821,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33821,1,3,0)
  1. ;;=3^Fracture of unsp part of left clavicle, init for clos fx
  1. ;;^UTILITY(U,$J,358.3,33821,1,4,0)
  1. ;;=4^S42.002A
  1. ;;^UTILITY(U,$J,358.3,33821,2)
  1. ;;=^5026376
  1. ;;^UTILITY(U,$J,358.3,33822,0)
  1. ;;=S42.001A^^132^1712^26
  1. ;;^UTILITY(U,$J,358.3,33822,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33822,1,3,0)
  1. ;;=3^Fracture of unsp part of right clavicle, init for clos fx
  1. ;;^UTILITY(U,$J,358.3,33822,1,4,0)
  1. ;;=4^S42.001A
  1. ;;^UTILITY(U,$J,358.3,33822,2)
  1. ;;=^5026369
  1. ;;^UTILITY(U,$J,358.3,33823,0)
  1. ;;=M75.42^^132^1712^29
  1. ;;^UTILITY(U,$J,358.3,33823,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33823,1,3,0)
  1. ;;=3^Impingement syndrome of left shoulder
  1. ;;^UTILITY(U,$J,358.3,33823,1,4,0)
  1. ;;=4^M75.42
  1. ;;^UTILITY(U,$J,358.3,33823,2)
  1. ;;=^5013258
  1. ;;^UTILITY(U,$J,358.3,33824,0)
  1. ;;=M75.41^^132^1712^30
  1. ;;^UTILITY(U,$J,358.3,33824,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33824,1,3,0)
  1. ;;=3^Impingement syndrome of right shoulder
  1. ;;^UTILITY(U,$J,358.3,33824,1,4,0)
  1. ;;=4^M75.41
  1. ;;^UTILITY(U,$J,358.3,33824,2)
  1. ;;=^5013257
  1. ;;^UTILITY(U,$J,358.3,33825,0)
  1. ;;=M75.112^^132^1712^31
  1. ;;^UTILITY(U,$J,358.3,33825,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33825,1,3,0)
  1. ;;=3^Incomplete rotatr-cuff tear/ruptr of l shoulder, not trauma