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

IBDEI2MG.m

Go to the documentation of this file.
IBDEI2MG ; ; 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,41862,1,4,0)
 ;;=4^M05.562
 ;;^UTILITY(U,$J,358.3,41862,2)
 ;;=^5009971
 ;;^UTILITY(U,$J,358.3,41863,0)
 ;;=M05.512^^155^2064^139
 ;;^UTILITY(U,$J,358.3,41863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41863,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of left shoulder 
 ;;^UTILITY(U,$J,358.3,41863,1,4,0)
 ;;=4^M05.512
 ;;^UTILITY(U,$J,358.3,41863,2)
 ;;=^5009956
 ;;^UTILITY(U,$J,358.3,41864,0)
 ;;=M05.532^^155^2064^140
 ;;^UTILITY(U,$J,358.3,41864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41864,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of left wrist
 ;;^UTILITY(U,$J,358.3,41864,1,4,0)
 ;;=4^M05.532
 ;;^UTILITY(U,$J,358.3,41864,2)
 ;;=^5009962
 ;;^UTILITY(U,$J,358.3,41865,0)
 ;;=M05.59^^155^2064^133
 ;;^UTILITY(U,$J,358.3,41865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41865,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit mult sites 
 ;;^UTILITY(U,$J,358.3,41865,1,4,0)
 ;;=4^M05.59
 ;;^UTILITY(U,$J,358.3,41865,2)
 ;;=^5009976
 ;;^UTILITY(U,$J,358.3,41866,0)
 ;;=M05.571^^155^2064^141
 ;;^UTILITY(U,$J,358.3,41866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41866,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of right ank/ft
 ;;^UTILITY(U,$J,358.3,41866,1,4,0)
 ;;=4^M05.571
 ;;^UTILITY(U,$J,358.3,41866,2)
 ;;=^5009973
 ;;^UTILITY(U,$J,358.3,41867,0)
 ;;=M05.521^^155^2064^142
 ;;^UTILITY(U,$J,358.3,41867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41867,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of right elbow 
 ;;^UTILITY(U,$J,358.3,41867,1,4,0)
 ;;=4^M05.521
 ;;^UTILITY(U,$J,358.3,41867,2)
 ;;=^5009958
 ;;^UTILITY(U,$J,358.3,41868,0)
 ;;=M05.541^^155^2064^143
 ;;^UTILITY(U,$J,358.3,41868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41868,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of right hand 
 ;;^UTILITY(U,$J,358.3,41868,1,4,0)
 ;;=4^M05.541
 ;;^UTILITY(U,$J,358.3,41868,2)
 ;;=^5009964
 ;;^UTILITY(U,$J,358.3,41869,0)
 ;;=M05.551^^155^2064^144
 ;;^UTILITY(U,$J,358.3,41869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41869,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of right hip 
 ;;^UTILITY(U,$J,358.3,41869,1,4,0)
 ;;=4^M05.551
 ;;^UTILITY(U,$J,358.3,41869,2)
 ;;=^5009967
 ;;^UTILITY(U,$J,358.3,41870,0)
 ;;=M05.561^^155^2064^145
 ;;^UTILITY(U,$J,358.3,41870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41870,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of right knee
 ;;^UTILITY(U,$J,358.3,41870,1,4,0)
 ;;=4^M05.561
 ;;^UTILITY(U,$J,358.3,41870,2)
 ;;=^5009970
 ;;^UTILITY(U,$J,358.3,41871,0)
 ;;=M05.511^^155^2064^146
 ;;^UTILITY(U,$J,358.3,41871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41871,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of right shoulder 
 ;;^UTILITY(U,$J,358.3,41871,1,4,0)
 ;;=4^M05.511
 ;;^UTILITY(U,$J,358.3,41871,2)
 ;;=^5009955
 ;;^UTILITY(U,$J,358.3,41872,0)
 ;;=M05.531^^155^2064^147
 ;;^UTILITY(U,$J,358.3,41872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41872,1,3,0)
 ;;=3^Rheu polyneurop w rheu arthrit of right wrist 
 ;;^UTILITY(U,$J,358.3,41872,1,4,0)
 ;;=4^M05.531
 ;;^UTILITY(U,$J,358.3,41872,2)
 ;;=^5009961
 ;;^UTILITY(U,$J,358.3,41873,0)
 ;;=M19.272^^155^2064^178
 ;;^UTILITY(U,$J,358.3,41873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41873,1,3,0)
 ;;=3^Secondary osteoarthritis, left ankle and foot
 ;;^UTILITY(U,$J,358.3,41873,1,4,0)
 ;;=4^M19.272
 ;;^UTILITY(U,$J,358.3,41873,2)
 ;;=^5010851
 ;;^UTILITY(U,$J,358.3,41874,0)
 ;;=M19.271^^155^2064^181