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

IBDEI31M.m

Go to the documentation of this file.
IBDEI31M ; ; 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,48591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48591,1,3,0)
 ;;=3^Pine,Cervical Disc Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,48591,1,4,0)
 ;;=4^M50.90
 ;;^UTILITY(U,$J,358.3,48591,2)
 ;;=^5012235
 ;;^UTILITY(U,$J,358.3,48592,0)
 ;;=M54.2^^185^2423^151
 ;;^UTILITY(U,$J,358.3,48592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48592,1,3,0)
 ;;=3^Spine,Cervicalgia
 ;;^UTILITY(U,$J,358.3,48592,1,4,0)
 ;;=4^M54.2
 ;;^UTILITY(U,$J,358.3,48592,2)
 ;;=^5012304
 ;;^UTILITY(U,$J,358.3,48593,0)
 ;;=M43.20^^185^2423^152
 ;;^UTILITY(U,$J,358.3,48593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48593,1,3,0)
 ;;=3^Spine,Fusion,Unspec Site
 ;;^UTILITY(U,$J,358.3,48593,1,4,0)
 ;;=4^M43.20
 ;;^UTILITY(U,$J,358.3,48593,2)
 ;;=^5011931
 ;;^UTILITY(U,$J,358.3,48594,0)
 ;;=M48.20^^185^2423^153
 ;;^UTILITY(U,$J,358.3,48594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48594,1,3,0)
 ;;=3^Spine,Kissing,Unspec Site
 ;;^UTILITY(U,$J,358.3,48594,1,4,0)
 ;;=4^M48.20
 ;;^UTILITY(U,$J,358.3,48594,2)
 ;;=^5012106
 ;;^UTILITY(U,$J,358.3,48595,0)
 ;;=M40.50^^185^2423^154
 ;;^UTILITY(U,$J,358.3,48595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48595,1,3,0)
 ;;=3^Spine,Lordosis,Unspec Site
 ;;^UTILITY(U,$J,358.3,48595,1,4,0)
 ;;=4^M40.50
 ;;^UTILITY(U,$J,358.3,48595,2)
 ;;=^5011831
 ;;^UTILITY(U,$J,358.3,48596,0)
 ;;=M43.10^^185^2423^155
 ;;^UTILITY(U,$J,358.3,48596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48596,1,3,0)
 ;;=3^Spondylolisthesis,Unspec Site
 ;;^UTILITY(U,$J,358.3,48596,1,4,0)
 ;;=4^M43.10
 ;;^UTILITY(U,$J,358.3,48596,2)
 ;;=^5011921
 ;;^UTILITY(U,$J,358.3,48597,0)
 ;;=M43.00^^185^2423^156
 ;;^UTILITY(U,$J,358.3,48597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48597,1,3,0)
 ;;=3^Spondylolysis,Unspec Site
 ;;^UTILITY(U,$J,358.3,48597,1,4,0)
 ;;=4^M43.00
 ;;^UTILITY(U,$J,358.3,48597,2)
 ;;=^5011911
 ;;^UTILITY(U,$J,358.3,48598,0)
 ;;=M46.90^^185^2423^157
 ;;^UTILITY(U,$J,358.3,48598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48598,1,3,0)
 ;;=3^Spondylopathy,Inflammatory,Unspec Site
 ;;^UTILITY(U,$J,358.3,48598,1,4,0)
 ;;=4^M46.90
 ;;^UTILITY(U,$J,358.3,48598,2)
 ;;=^5012030
 ;;^UTILITY(U,$J,358.3,48599,0)
 ;;=M48.30^^185^2423^158
 ;;^UTILITY(U,$J,358.3,48599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48599,1,3,0)
 ;;=3^Spondylopathy,Traumatic,Unspec Site
 ;;^UTILITY(U,$J,358.3,48599,1,4,0)
 ;;=4^M48.30
 ;;^UTILITY(U,$J,358.3,48599,2)
 ;;=^5012114
 ;;^UTILITY(U,$J,358.3,48600,0)
 ;;=M48.9^^185^2423^159
 ;;^UTILITY(U,$J,358.3,48600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48600,1,3,0)
 ;;=3^Spondylopathy,Unspec
 ;;^UTILITY(U,$J,358.3,48600,1,4,0)
 ;;=4^M48.9
 ;;^UTILITY(U,$J,358.3,48600,2)
 ;;=^5012204
 ;;^UTILITY(U,$J,358.3,48601,0)
 ;;=M47.9^^185^2423^160
 ;;^UTILITY(U,$J,358.3,48601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48601,1,3,0)
 ;;=3^Spondylosis,Unspec
 ;;^UTILITY(U,$J,358.3,48601,1,4,0)
 ;;=4^M47.9
 ;;^UTILITY(U,$J,358.3,48601,2)
 ;;=^5012086
 ;;^UTILITY(U,$J,358.3,48602,0)
 ;;=M67.90^^185^2423^161
 ;;^UTILITY(U,$J,358.3,48602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48602,1,3,0)
 ;;=3^Tendon & Synovium Disorder,Unspec Site
 ;;^UTILITY(U,$J,358.3,48602,1,4,0)
 ;;=4^M67.90
 ;;^UTILITY(U,$J,358.3,48602,2)
 ;;=^5013020
 ;;^UTILITY(U,$J,358.3,48603,0)
 ;;=M51.9^^185^2423^162
 ;;^UTILITY(U,$J,358.3,48603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48603,1,3,0)
 ;;=3^Thoracic/Thoracolumbar/Lumbosacral Intvrt Disc Disorder,Unspec