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

IBDEI2O7.m

Go to the documentation of this file.
IBDEI2O7 ; ; 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,42581,0)
 ;;=S42.012S^^155^2071^10
 ;;^UTILITY(U,$J,358.3,42581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42581,1,3,0)
 ;;=3^Disp fx of anterior sternal end of left clavicle, sequela
 ;;^UTILITY(U,$J,358.3,42581,1,4,0)
 ;;=4^S42.012S
 ;;^UTILITY(U,$J,358.3,42581,2)
 ;;=^5026396
 ;;^UTILITY(U,$J,358.3,42582,0)
 ;;=S42.011S^^155^2071^11
 ;;^UTILITY(U,$J,358.3,42582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42582,1,3,0)
 ;;=3^Disp fx of anterior sternal end of right clavicle, sequela
 ;;^UTILITY(U,$J,358.3,42582,1,4,0)
 ;;=4^S42.011S
 ;;^UTILITY(U,$J,358.3,42582,2)
 ;;=^5026389
 ;;^UTILITY(U,$J,358.3,42583,0)
 ;;=S42.032S^^155^2071^26
 ;;^UTILITY(U,$J,358.3,42583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42583,1,3,0)
 ;;=3^Disp fx of lateral end of left clavicle, sequela
 ;;^UTILITY(U,$J,358.3,42583,1,4,0)
 ;;=4^S42.032S
 ;;^UTILITY(U,$J,358.3,42583,2)
 ;;=^5026501
 ;;^UTILITY(U,$J,358.3,42584,0)
 ;;=S42.031S^^155^2071^27
 ;;^UTILITY(U,$J,358.3,42584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42584,1,3,0)
 ;;=3^Disp fx of lateral end of right clavicle, sequela 
 ;;^UTILITY(U,$J,358.3,42584,1,4,0)
 ;;=4^S42.031S
 ;;^UTILITY(U,$J,358.3,42584,2)
 ;;=^5026494
 ;;^UTILITY(U,$J,358.3,42585,0)
 ;;=S42.022S^^155^2071^43
 ;;^UTILITY(U,$J,358.3,42585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42585,1,3,0)
 ;;=3^Disp fx of shaft of left clavicle, sequela    
 ;;^UTILITY(U,$J,358.3,42585,1,4,0)
 ;;=4^S42.022S
 ;;^UTILITY(U,$J,358.3,42585,2)
 ;;=^5026459
 ;;^UTILITY(U,$J,358.3,42586,0)
 ;;=S42.021S^^155^2071^44
 ;;^UTILITY(U,$J,358.3,42586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42586,1,3,0)
 ;;=3^Disp fx of shaft of right clavicle, sequela   
 ;;^UTILITY(U,$J,358.3,42586,1,4,0)
 ;;=4^S42.021S
 ;;^UTILITY(U,$J,358.3,42586,2)
 ;;=^5026452
 ;;^UTILITY(U,$J,358.3,42587,0)
 ;;=S42.035S^^155^2071^72
 ;;^UTILITY(U,$J,358.3,42587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42587,1,3,0)
 ;;=3^Nondisp fx of lateral end of left clavicle, sequela
 ;;^UTILITY(U,$J,358.3,42587,1,4,0)
 ;;=4^S42.035S
 ;;^UTILITY(U,$J,358.3,42587,2)
 ;;=^5026522
 ;;^UTILITY(U,$J,358.3,42588,0)
 ;;=S42.034S^^155^2071^73
 ;;^UTILITY(U,$J,358.3,42588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42588,1,3,0)
 ;;=3^Nondisp fx of lateral end of right clavicle, sequela
 ;;^UTILITY(U,$J,358.3,42588,1,4,0)
 ;;=4^S42.034S
 ;;^UTILITY(U,$J,358.3,42588,2)
 ;;=^5026515
 ;;^UTILITY(U,$J,358.3,42589,0)
 ;;=S42.025S^^155^2071^89
 ;;^UTILITY(U,$J,358.3,42589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42589,1,3,0)
 ;;=3^Nondisp fx of shaft of left clavicle, sequela 
 ;;^UTILITY(U,$J,358.3,42589,1,4,0)
 ;;=4^S42.025S
 ;;^UTILITY(U,$J,358.3,42589,2)
 ;;=^5026480
 ;;^UTILITY(U,$J,358.3,42590,0)
 ;;=S42.024S^^155^2071^90
 ;;^UTILITY(U,$J,358.3,42590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42590,1,3,0)
 ;;=3^Nondisp fx of shaft of right clavicle, sequela
 ;;^UTILITY(U,$J,358.3,42590,1,4,0)
 ;;=4^S42.024S
 ;;^UTILITY(U,$J,358.3,42590,2)
 ;;=^5026473
 ;;^UTILITY(U,$J,358.3,42591,0)
 ;;=S42.018S^^155^2071^95
 ;;^UTILITY(U,$J,358.3,42591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42591,1,3,0)
 ;;=3^Nondisp fx of sternal end of left clavicle, sequela
 ;;^UTILITY(U,$J,358.3,42591,1,4,0)
 ;;=4^S42.018S
 ;;^UTILITY(U,$J,358.3,42591,2)
 ;;=^5026438
 ;;^UTILITY(U,$J,358.3,42592,0)
 ;;=S42.017S^^155^2071^96
 ;;^UTILITY(U,$J,358.3,42592,1,0)
 ;;=^358.31IA^4^2