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

IBDEI1A9.m

Go to the documentation of this file.
IBDEI1A9 ; ; 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,20740,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20740,1,3,0)
 ;;=3^Galeazzi's fracture of left radius, sequela
 ;;^UTILITY(U,$J,358.3,20740,1,4,0)
 ;;=4^S52.372S
 ;;^UTILITY(U,$J,358.3,20740,2)
 ;;=^5030478
 ;;^UTILITY(U,$J,358.3,20741,0)
 ;;=S52.371S^^67^890^66
 ;;^UTILITY(U,$J,358.3,20741,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20741,1,3,0)
 ;;=3^Galeazzi's fracture of right radius, sequela
 ;;^UTILITY(U,$J,358.3,20741,1,4,0)
 ;;=4^S52.371S
 ;;^UTILITY(U,$J,358.3,20741,2)
 ;;=^5030462
 ;;^UTILITY(U,$J,358.3,20742,0)
 ;;=S52.312S^^67^890^67
 ;;^UTILITY(U,$J,358.3,20742,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20742,1,3,0)
 ;;=3^Greenstick fracture of shaft of left radius, sequela
 ;;^UTILITY(U,$J,358.3,20742,1,4,0)
 ;;=4^S52.312S
 ;;^UTILITY(U,$J,358.3,20742,2)
 ;;=^5029960
 ;;^UTILITY(U,$J,358.3,20743,0)
 ;;=S52.311S^^67^890^69
 ;;^UTILITY(U,$J,358.3,20743,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20743,1,3,0)
 ;;=3^Greenstick fracture of shaft of right radius, sequela
 ;;^UTILITY(U,$J,358.3,20743,1,4,0)
 ;;=4^S52.311S
 ;;^UTILITY(U,$J,358.3,20743,2)
 ;;=^5029954
 ;;^UTILITY(U,$J,358.3,20744,0)
 ;;=S52.355S^^67^890^77
 ;;^UTILITY(U,$J,358.3,20744,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20744,1,3,0)
 ;;=3^Nondisp fx of comminuted shaft of radius, left arm, sequela
 ;;^UTILITY(U,$J,358.3,20744,1,4,0)
 ;;=4^S52.355S
 ;;^UTILITY(U,$J,358.3,20744,2)
 ;;=^5030334
 ;;^UTILITY(U,$J,358.3,20745,0)
 ;;=S52.354S^^67^890^78
 ;;^UTILITY(U,$J,358.3,20745,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20745,1,3,0)
 ;;=3^Nondisp fx of comminuted shaft of radius, right arm, sequela
 ;;^UTILITY(U,$J,358.3,20745,1,4,0)
 ;;=4^S52.354S
 ;;^UTILITY(U,$J,358.3,20745,2)
 ;;=^5030318
 ;;^UTILITY(U,$J,358.3,20746,0)
 ;;=S52.125S^^67^890^85
 ;;^UTILITY(U,$J,358.3,20746,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20746,1,3,0)
 ;;=3^Nondisp fx of head of left radius, sequela
 ;;^UTILITY(U,$J,358.3,20746,1,4,0)
 ;;=4^S52.125S
 ;;^UTILITY(U,$J,358.3,20746,2)
 ;;=^5029126
 ;;^UTILITY(U,$J,358.3,20747,0)
 ;;=S52.124S^^67^890^86
 ;;^UTILITY(U,$J,358.3,20747,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20747,1,3,0)
 ;;=3^Nondisp fx of head of right radius, sequela
 ;;^UTILITY(U,$J,358.3,20747,1,4,0)
 ;;=4^S52.124S
 ;;^UTILITY(U,$J,358.3,20747,2)
 ;;=^5029110
 ;;^UTILITY(U,$J,358.3,20748,0)
 ;;=S52.135S^^67^890^95
 ;;^UTILITY(U,$J,358.3,20748,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20748,1,3,0)
 ;;=3^Nondisp fx of neck of left radius, sequela
 ;;^UTILITY(U,$J,358.3,20748,1,4,0)
 ;;=4^S52.135S
 ;;^UTILITY(U,$J,358.3,20748,2)
 ;;=^5029222
 ;;^UTILITY(U,$J,358.3,20749,0)
 ;;=S52.134S^^67^890^96
 ;;^UTILITY(U,$J,358.3,20749,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20749,1,3,0)
 ;;=3^Nondisp fx of neck of right radius, sequela
 ;;^UTILITY(U,$J,358.3,20749,1,4,0)
 ;;=4^S52.134S
 ;;^UTILITY(U,$J,358.3,20749,2)
 ;;=^5029206
 ;;^UTILITY(U,$J,358.3,20750,0)
 ;;=S52.335S^^67^890^97
 ;;^UTILITY(U,$J,358.3,20750,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20750,1,3,0)
 ;;=3^Nondisp fx of oblique shaft of left radius, sequela
 ;;^UTILITY(U,$J,358.3,20750,1,4,0)
 ;;=4^S52.335S
 ;;^UTILITY(U,$J,358.3,20750,2)
 ;;=^5030142
 ;;^UTILITY(U,$J,358.3,20751,0)
 ;;=S52.334S^^67^890^99
 ;;^UTILITY(U,$J,358.3,20751,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20751,1,3,0)
 ;;=3^Nondisp fx of oblique shaft of right radius, sequela