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

IBDEI2OC.m

Go to the documentation of this file.
IBDEI2OC ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,42637,1,4,0)
 ;;=4^S82.265S
 ;;^UTILITY(U,$J,358.3,42637,2)
 ;;=^5041602
 ;;^UTILITY(U,$J,358.3,42638,0)
 ;;=S82.264S^^155^2072^65
 ;;^UTILITY(U,$J,358.3,42638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42638,1,3,0)
 ;;=3^Nondisp fx of segmental shaft of right tibia, sequela 
 ;;^UTILITY(U,$J,358.3,42638,1,4,0)
 ;;=4^S82.264S
 ;;^UTILITY(U,$J,358.3,42638,2)
 ;;=^5041586
 ;;^UTILITY(U,$J,358.3,42639,0)
 ;;=S82.244S^^155^2072^70
 ;;^UTILITY(U,$J,358.3,42639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42639,1,3,0)
 ;;=3^Nondisp fx of spiral shaft of right tibia, sequela  
 ;;^UTILITY(U,$J,358.3,42639,1,4,0)
 ;;=4^S82.244S
 ;;^UTILITY(U,$J,358.3,42639,2)
 ;;=^5041394
 ;;^UTILITY(U,$J,358.3,42640,0)
 ;;=S82.245S^^155^2072^68
 ;;^UTILITY(U,$J,358.3,42640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42640,1,3,0)
 ;;=3^Nondisp fx of spiral shaft of left tibia, sequela   
 ;;^UTILITY(U,$J,358.3,42640,1,4,0)
 ;;=4^S82.245S
 ;;^UTILITY(U,$J,358.3,42640,2)
 ;;=^5041410
 ;;^UTILITY(U,$J,358.3,42641,0)
 ;;=S82.225S^^155^2072^71
 ;;^UTILITY(U,$J,358.3,42641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42641,1,3,0)
 ;;=3^Nondisp fx of transverse shaft of left tibia, sequela  
 ;;^UTILITY(U,$J,358.3,42641,1,4,0)
 ;;=4^S82.225S
 ;;^UTILITY(U,$J,358.3,42641,2)
 ;;=^5041218
 ;;^UTILITY(U,$J,358.3,42642,0)
 ;;=S82.224S^^155^2072^73
 ;;^UTILITY(U,$J,358.3,42642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42642,1,3,0)
 ;;=3^Nondisp fx of transverse shaft of right tibia, sequela  
 ;;^UTILITY(U,$J,358.3,42642,1,4,0)
 ;;=4^S82.224S
 ;;^UTILITY(U,$J,358.3,42642,2)
 ;;=^5041202
 ;;^UTILITY(U,$J,358.3,42643,0)
 ;;=M84.462S^^155^2072^76
 ;;^UTILITY(U,$J,358.3,42643,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42643,1,3,0)
 ;;=3^Pathological fracture, left tibia, sequela
 ;;^UTILITY(U,$J,358.3,42643,1,4,0)
 ;;=4^M84.462S
 ;;^UTILITY(U,$J,358.3,42643,2)
 ;;=^5013943
 ;;^UTILITY(U,$J,358.3,42644,0)
 ;;=M84.461S^^155^2072^78
 ;;^UTILITY(U,$J,358.3,42644,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42644,1,3,0)
 ;;=3^Pathological fracture, right tibia, sequela
 ;;^UTILITY(U,$J,358.3,42644,1,4,0)
 ;;=4^M84.461S
 ;;^UTILITY(U,$J,358.3,42644,2)
 ;;=^5013937
 ;;^UTILITY(U,$J,358.3,42645,0)
 ;;=S89.112S^^155^2072^79
 ;;^UTILITY(U,$J,358.3,42645,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42645,1,3,0)
 ;;=3^Sltr-haris Type I physeal fx lower end of l tibia, sequela
 ;;^UTILITY(U,$J,358.3,42645,1,4,0)
 ;;=4^S89.112S
 ;;^UTILITY(U,$J,358.3,42645,2)
 ;;=^5137294
 ;;^UTILITY(U,$J,358.3,42646,0)
 ;;=S89.012S^^155^2072^83
 ;;^UTILITY(U,$J,358.3,42646,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42646,1,3,0)
 ;;=3^Sltr-haris Type I physeal fx upper end of l tibia, sequela
 ;;^UTILITY(U,$J,358.3,42646,1,4,0)
 ;;=4^S89.012S
 ;;^UTILITY(U,$J,358.3,42646,2)
 ;;=^5043654
 ;;^UTILITY(U,$J,358.3,42647,0)
 ;;=S89.011S^^155^2072^84
 ;;^UTILITY(U,$J,358.3,42647,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42647,1,3,0)
 ;;=3^Sltr-haris Type I physeal fx upper end of r tibia, sequela
 ;;^UTILITY(U,$J,358.3,42647,1,4,0)
 ;;=4^S89.011S
 ;;^UTILITY(U,$J,358.3,42647,2)
 ;;=^5043648
 ;;^UTILITY(U,$J,358.3,42648,0)
 ;;=S89.111S^^155^2072^80
 ;;^UTILITY(U,$J,358.3,42648,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42648,1,3,0)
 ;;=3^Sltr-haris Type I physeal fx lower end of r tibia, sequela
 ;;^UTILITY(U,$J,358.3,42648,1,4,0)
 ;;=4^S89.111S