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

IBDEI18O.m

Go to the documentation of this file.
IBDEI18O ; ; 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,20089,1,4,0)
 ;;=4^S82.035S
 ;;^UTILITY(U,$J,358.3,20089,2)
 ;;=^5040412
 ;;^UTILITY(U,$J,358.3,20090,0)
 ;;=S82.041S^^67^883^13
 ;;^UTILITY(U,$J,358.3,20090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20090,1,3,0)
 ;;=3^Displaced comminuted fx of right patella, sequela
 ;;^UTILITY(U,$J,358.3,20090,1,4,0)
 ;;=4^S82.041S
 ;;^UTILITY(U,$J,358.3,20090,2)
 ;;=^5040444
 ;;^UTILITY(U,$J,358.3,20091,0)
 ;;=S82.042S^^67^883^12
 ;;^UTILITY(U,$J,358.3,20091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20091,1,3,0)
 ;;=3^Displaced comminuted fx of left patella, sequela
 ;;^UTILITY(U,$J,358.3,20091,1,4,0)
 ;;=4^S82.042S
 ;;^UTILITY(U,$J,358.3,20091,2)
 ;;=^5040460
 ;;^UTILITY(U,$J,358.3,20092,0)
 ;;=S82.044S^^67^883^61
 ;;^UTILITY(U,$J,358.3,20092,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20092,1,3,0)
 ;;=3^Nondisp comminuted fx of right patella, sequela
 ;;^UTILITY(U,$J,358.3,20092,1,4,0)
 ;;=4^S82.044S
 ;;^UTILITY(U,$J,358.3,20092,2)
 ;;=^5040492
 ;;^UTILITY(U,$J,358.3,20093,0)
 ;;=S82.045S^^67^883^60
 ;;^UTILITY(U,$J,358.3,20093,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20093,1,3,0)
 ;;=3^Nondisp comminuted fx of left patella, sequela
 ;;^UTILITY(U,$J,358.3,20093,1,4,0)
 ;;=4^S82.045S
 ;;^UTILITY(U,$J,358.3,20093,2)
 ;;=^5040508
 ;;^UTILITY(U,$J,358.3,20094,0)
 ;;=S72.045S^^67^883^58
 ;;^UTILITY(U,$J,358.3,20094,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20094,1,3,0)
 ;;=3^Nondisp base of neck fx of left femur, sequela
 ;;^UTILITY(U,$J,358.3,20094,1,4,0)
 ;;=4^S72.045S
 ;;^UTILITY(U,$J,358.3,20094,2)
 ;;=^5037392
 ;;^UTILITY(U,$J,358.3,20095,0)
 ;;=S72.345S^^67^883^89
 ;;^UTILITY(U,$J,358.3,20095,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20095,1,3,0)
 ;;=3^Nondisp spiral fx shaft of left femur, sequela
 ;;^UTILITY(U,$J,358.3,20095,1,4,0)
 ;;=4^S72.345S
 ;;^UTILITY(U,$J,358.3,20095,2)
 ;;=^5038415
 ;;^UTILITY(U,$J,358.3,20096,0)
 ;;=M84.752S^^67^883^52
 ;;^UTILITY(U,$J,358.3,20096,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20096,1,3,0)
 ;;=3^Incomp Atypical Femoral Fx,Left 
 ;;^UTILITY(U,$J,358.3,20096,1,4,0)
 ;;=4^M84.752S
 ;;^UTILITY(U,$J,358.3,20096,2)
 ;;=^5138850
 ;;^UTILITY(U,$J,358.3,20097,0)
 ;;=M84.750S^^67^883^1
 ;;^UTILITY(U,$J,358.3,20097,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20097,1,3,0)
 ;;=3^Atypical Femoral Fx,Unspec
 ;;^UTILITY(U,$J,358.3,20097,1,4,0)
 ;;=4^M84.750S
 ;;^UTILITY(U,$J,358.3,20097,2)
 ;;=^5138838
 ;;^UTILITY(U,$J,358.3,20098,0)
 ;;=M84.751S^^67^883^53
 ;;^UTILITY(U,$J,358.3,20098,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20098,1,3,0)
 ;;=3^Incomp Atypical Femoral Fx,Right
 ;;^UTILITY(U,$J,358.3,20098,1,4,0)
 ;;=4^M84.751S
 ;;^UTILITY(U,$J,358.3,20098,2)
 ;;=^5138844
 ;;^UTILITY(U,$J,358.3,20099,0)
 ;;=M84.754S^^67^883^5
 ;;^UTILITY(U,$J,358.3,20099,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20099,1,3,0)
 ;;=3^Complete Transverse Atyp Femoral Fx,Right
 ;;^UTILITY(U,$J,358.3,20099,1,4,0)
 ;;=4^M84.754S
 ;;^UTILITY(U,$J,358.3,20099,2)
 ;;=^5138862
 ;;^UTILITY(U,$J,358.3,20100,0)
 ;;=M84.755S^^67^883^4
 ;;^UTILITY(U,$J,358.3,20100,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20100,1,3,0)
 ;;=3^Complete Transverse Atyp Femoral Fx,Left
 ;;^UTILITY(U,$J,358.3,20100,1,4,0)
 ;;=4^M84.755S
 ;;^UTILITY(U,$J,358.3,20100,2)
 ;;=^5138868
 ;;^UTILITY(U,$J,358.3,20101,0)
 ;;=M84.757S^^67^883^3
 ;;^UTILITY(U,$J,358.3,20101,1,0)
 ;;=^358.31IA^4^2