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

IBDEI24C.m

Go to the documentation of this file.
  1. IBDEI24C ; ; 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,33848,1,4,0)
  1. ;;=4^S42.002D
  1. ;;^UTILITY(U,$J,358.3,33848,2)
  1. ;;=^5026378
  1. ;;^UTILITY(U,$J,358.3,33849,0)
  1. ;;=S42.001D^^132^1712^28
  1. ;;^UTILITY(U,$J,358.3,33849,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33849,1,3,0)
  1. ;;=3^Fx unsp part of r clavicle, subs for fx w routn heal
  1. ;;^UTILITY(U,$J,358.3,33849,1,4,0)
  1. ;;=4^S42.001D
  1. ;;^UTILITY(U,$J,358.3,33849,2)
  1. ;;=^5026371
  1. ;;^UTILITY(U,$J,358.3,33850,0)
  1. ;;=S43.025D^^132^1712^38
  1. ;;^UTILITY(U,$J,358.3,33850,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33850,1,3,0)
  1. ;;=3^Posterior dislocation of left humerus, subsequent encounter
  1. ;;^UTILITY(U,$J,358.3,33850,1,4,0)
  1. ;;=4^S43.025D
  1. ;;^UTILITY(U,$J,358.3,33850,2)
  1. ;;=^5027700
  1. ;;^UTILITY(U,$J,358.3,33851,0)
  1. ;;=S43.024D^^132^1712^40
  1. ;;^UTILITY(U,$J,358.3,33851,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33851,1,3,0)
  1. ;;=3^Posterior dislocation of right humerus, subsequent encounter
  1. ;;^UTILITY(U,$J,358.3,33851,1,4,0)
  1. ;;=4^S43.024D
  1. ;;^UTILITY(U,$J,358.3,33851,2)
  1. ;;=^5027697
  1. ;;^UTILITY(U,$J,358.3,33852,0)
  1. ;;=M19.111^^132^1712^36
  1. ;;^UTILITY(U,$J,358.3,33852,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33852,1,3,0)
  1. ;;=3^Post-traumatic osteoarthritis, right shoulder
  1. ;;^UTILITY(U,$J,358.3,33852,1,4,0)
  1. ;;=4^M19.111
  1. ;;^UTILITY(U,$J,358.3,33852,2)
  1. ;;=^5010823
  1. ;;^UTILITY(U,$J,358.3,33853,0)
  1. ;;=M19.112^^132^1712^35
  1. ;;^UTILITY(U,$J,358.3,33853,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33853,1,3,0)
  1. ;;=3^Post-traumatic osteoarthritis, left shoulder
  1. ;;^UTILITY(U,$J,358.3,33853,1,4,0)
  1. ;;=4^M19.112
  1. ;;^UTILITY(U,$J,358.3,33853,2)
  1. ;;=^5010824
  1. ;;^UTILITY(U,$J,358.3,33854,0)
  1. ;;=M19.211^^132^1712^48
  1. ;;^UTILITY(U,$J,358.3,33854,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33854,1,3,0)
  1. ;;=3^Secondary osteoarthritis, right shoulder
  1. ;;^UTILITY(U,$J,358.3,33854,1,4,0)
  1. ;;=4^M19.211
  1. ;;^UTILITY(U,$J,358.3,33854,2)
  1. ;;=^5010838
  1. ;;^UTILITY(U,$J,358.3,33855,0)
  1. ;;=M19.212^^132^1712^47
  1. ;;^UTILITY(U,$J,358.3,33855,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33855,1,3,0)
  1. ;;=3^Secondary osteoarthritis, left shoulder
  1. ;;^UTILITY(U,$J,358.3,33855,1,4,0)
  1. ;;=4^M19.212
  1. ;;^UTILITY(U,$J,358.3,33855,2)
  1. ;;=^5010839
  1. ;;^UTILITY(U,$J,358.3,33856,0)
  1. ;;=S43.005D^^132^1712^20
  1. ;;^UTILITY(U,$J,358.3,33856,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33856,1,3,0)
  1. ;;=3^Dislocation of left shoulder joint, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33856,1,4,0)
  1. ;;=4^S43.005D
  1. ;;^UTILITY(U,$J,358.3,33856,2)
  1. ;;=^5027667
  1. ;;^UTILITY(U,$J,358.3,33857,0)
  1. ;;=M80.072A^^132^1713^3
  1. ;;^UTILITY(U,$J,358.3,33857,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33857,1,3,0)
  1. ;;=3^Age-rel osteopor w current path fracture, left ank/ft, init
  1. ;;^UTILITY(U,$J,358.3,33857,1,4,0)
  1. ;;=4^M80.072A
  1. ;;^UTILITY(U,$J,358.3,33857,2)
  1. ;;=^5013483
  1. ;;^UTILITY(U,$J,358.3,33858,0)
  1. ;;=M80.071A^^132^1713^4
  1. ;;^UTILITY(U,$J,358.3,33858,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33858,1,3,0)
  1. ;;=3^Age-rel osteopor w current path fracture, right ank/ft, init
  1. ;;^UTILITY(U,$J,358.3,33858,1,4,0)
  1. ;;=4^M80.071A
  1. ;;^UTILITY(U,$J,358.3,33858,2)
  1. ;;=^5013477
  1. ;;^UTILITY(U,$J,358.3,33859,0)
  1. ;;=S80.12XA^^132^1713^5
  1. ;;^UTILITY(U,$J,358.3,33859,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33859,1,3,0)
  1. ;;=3^Contusion of left lower leg, initial encounter
  1. ;;^UTILITY(U,$J,358.3,33859,1,4,0)
  1. ;;=4^S80.12XA
  1. ;;^UTILITY(U,$J,358.3,33859,2)
  1. ;;=^5039903