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

IBDEI2MJ.m

Go to the documentation of this file.
  1. IBDEI2MJ ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,41897,1,4,0)
  1. ;;=4^M21.763
  1. ;;^UTILITY(U,$J,358.3,41897,2)
  1. ;;=^5011145
  1. ;;^UTILITY(U,$J,358.3,41898,0)
  1. ;;=M21.761^^155^2064^205
  1. ;;^UTILITY(U,$J,358.3,41898,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41898,1,3,0)
  1. ;;=3^Unequal limb length (acquired), right tibia
  1. ;;^UTILITY(U,$J,358.3,41898,1,4,0)
  1. ;;=4^M21.761
  1. ;;^UTILITY(U,$J,358.3,41898,2)
  1. ;;=^5011143
  1. ;;^UTILITY(U,$J,358.3,41899,0)
  1. ;;=M17.12^^155^2064^206
  1. ;;^UTILITY(U,$J,358.3,41899,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41899,1,3,0)
  1. ;;=3^Prim Osteoarth,Left Knee,Unilat
  1. ;;^UTILITY(U,$J,358.3,41899,1,4,0)
  1. ;;=4^M17.12
  1. ;;^UTILITY(U,$J,358.3,41899,2)
  1. ;;=^5010787
  1. ;;^UTILITY(U,$J,358.3,41900,0)
  1. ;;=M17.11^^155^2064^207
  1. ;;^UTILITY(U,$J,358.3,41900,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41900,1,3,0)
  1. ;;=3^Prim Osteoarth,Right Knee,Unilat
  1. ;;^UTILITY(U,$J,358.3,41900,1,4,0)
  1. ;;=4^M17.11
  1. ;;^UTILITY(U,$J,358.3,41900,2)
  1. ;;=^5010786
  1. ;;^UTILITY(U,$J,358.3,41901,0)
  1. ;;=M76.51^^155^2064^68
  1. ;;^UTILITY(U,$J,358.3,41901,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41901,1,3,0)
  1. ;;=3^Patellar tendinitis, right knee
  1. ;;^UTILITY(U,$J,358.3,41901,1,4,0)
  1. ;;=4^M76.51
  1. ;;^UTILITY(U,$J,358.3,41901,2)
  1. ;;=^5013282
  1. ;;^UTILITY(U,$J,358.3,41902,0)
  1. ;;=M24.311^^155^2064^72
  1. ;;^UTILITY(U,$J,358.3,41902,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41902,1,3,0)
  1. ;;=3^Path Dislocation,Right Shoulder NEC
  1. ;;^UTILITY(U,$J,358.3,41902,1,4,0)
  1. ;;=4^M24.311
  1. ;;^UTILITY(U,$J,358.3,41902,2)
  1. ;;=^5011346
  1. ;;^UTILITY(U,$J,358.3,41903,0)
  1. ;;=M24.312^^155^2064^70
  1. ;;^UTILITY(U,$J,358.3,41903,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41903,1,3,0)
  1. ;;=3^Path Dislocation,Left Shoulder NEC
  1. ;;^UTILITY(U,$J,358.3,41903,1,4,0)
  1. ;;=4^M24.312
  1. ;;^UTILITY(U,$J,358.3,41903,2)
  1. ;;=^5011347
  1. ;;^UTILITY(U,$J,358.3,41904,0)
  1. ;;=M24.231^^155^2064^57
  1. ;;^UTILITY(U,$J,358.3,41904,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41904,1,3,0)
  1. ;;=3^Ligament D/O,Right Wrist
  1. ;;^UTILITY(U,$J,358.3,41904,1,4,0)
  1. ;;=4^M24.231
  1. ;;^UTILITY(U,$J,358.3,41904,2)
  1. ;;=^5011329
  1. ;;^UTILITY(U,$J,358.3,41905,0)
  1. ;;=M24.232^^155^2064^55
  1. ;;^UTILITY(U,$J,358.3,41905,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41905,1,3,0)
  1. ;;=3^Ligament D/O,Left Wrist
  1. ;;^UTILITY(U,$J,358.3,41905,1,4,0)
  1. ;;=4^M24.232
  1. ;;^UTILITY(U,$J,358.3,41905,2)
  1. ;;=^5011330
  1. ;;^UTILITY(U,$J,358.3,41906,0)
  1. ;;=M24.241^^155^2064^56
  1. ;;^UTILITY(U,$J,358.3,41906,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41906,1,3,0)
  1. ;;=3^Ligament D/O,Right Hand
  1. ;;^UTILITY(U,$J,358.3,41906,1,4,0)
  1. ;;=4^M24.241
  1. ;;^UTILITY(U,$J,358.3,41906,2)
  1. ;;=^5011332
  1. ;;^UTILITY(U,$J,358.3,41907,0)
  1. ;;=M24.242^^155^2064^54
  1. ;;^UTILITY(U,$J,358.3,41907,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41907,1,3,0)
  1. ;;=3^Ligament D/O,Left Hand
  1. ;;^UTILITY(U,$J,358.3,41907,1,4,0)
  1. ;;=4^M24.242
  1. ;;^UTILITY(U,$J,358.3,41907,2)
  1. ;;=^5011333
  1. ;;^UTILITY(U,$J,358.3,41908,0)
  1. ;;=M24.411^^155^2064^92
  1. ;;^UTILITY(U,$J,358.3,41908,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41908,1,3,0)
  1. ;;=3^Recurrent Dislocation,Right Shoulder
  1. ;;^UTILITY(U,$J,358.3,41908,1,4,0)
  1. ;;=4^M24.411
  1. ;;^UTILITY(U,$J,358.3,41908,2)
  1. ;;=^5011371
  1. ;;^UTILITY(U,$J,358.3,41909,0)
  1. ;;=M24.412^^155^2064^91
  1. ;;^UTILITY(U,$J,358.3,41909,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41909,1,3,0)
  1. ;;=3^Recurrent Dislocation,Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,41909,1,4,0)
  1. ;;=4^M24.412