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

IBDEI2ML.m

Go to the documentation of this file.
  1. IBDEI2ML ; ; 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,41922,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41922,1,3,0)
  1. ;;=3^Swan-Neck Deformity,Right Finger(s)
  1. ;;^UTILITY(U,$J,358.3,41922,1,4,0)
  1. ;;=4^M20.031
  1. ;;^UTILITY(U,$J,358.3,41922,2)
  1. ;;=^5011036
  1. ;;^UTILITY(U,$J,358.3,41923,0)
  1. ;;=M20.032^^155^2064^196
  1. ;;^UTILITY(U,$J,358.3,41923,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41923,1,3,0)
  1. ;;=3^Swan-Neck Deformity,Left Finger(s)
  1. ;;^UTILITY(U,$J,358.3,41923,1,4,0)
  1. ;;=4^M20.032
  1. ;;^UTILITY(U,$J,358.3,41923,2)
  1. ;;=^5011037
  1. ;;^UTILITY(U,$J,358.3,41924,0)
  1. ;;=M21.331^^155^2064^209
  1. ;;^UTILITY(U,$J,358.3,41924,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41924,1,3,0)
  1. ;;=3^Wrist Drop,Right Wrist
  1. ;;^UTILITY(U,$J,358.3,41924,1,4,0)
  1. ;;=4^M21.331
  1. ;;^UTILITY(U,$J,358.3,41924,2)
  1. ;;=^5011107
  1. ;;^UTILITY(U,$J,358.3,41925,0)
  1. ;;=M21.332^^155^2064^208
  1. ;;^UTILITY(U,$J,358.3,41925,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41925,1,3,0)
  1. ;;=3^Wrist Drop,Left Wrist
  1. ;;^UTILITY(U,$J,358.3,41925,1,4,0)
  1. ;;=4^M21.332
  1. ;;^UTILITY(U,$J,358.3,41925,2)
  1. ;;=^5011108
  1. ;;^UTILITY(U,$J,358.3,41926,0)
  1. ;;=M18.0^^155^2064^74
  1. ;;^UTILITY(U,$J,358.3,41926,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41926,1,3,0)
  1. ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Bilateral
  1. ;;^UTILITY(U,$J,358.3,41926,1,4,0)
  1. ;;=4^M18.0
  1. ;;^UTILITY(U,$J,358.3,41926,2)
  1. ;;=^5010795
  1. ;;^UTILITY(U,$J,358.3,41927,0)
  1. ;;=M18.11^^155^2064^75
  1. ;;^UTILITY(U,$J,358.3,41927,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41927,1,3,0)
  1. ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Right Hand,Unilat
  1. ;;^UTILITY(U,$J,358.3,41927,1,4,0)
  1. ;;=4^M18.11
  1. ;;^UTILITY(U,$J,358.3,41927,2)
  1. ;;=^5010797
  1. ;;^UTILITY(U,$J,358.3,41928,0)
  1. ;;=M18.12^^155^2064^76
  1. ;;^UTILITY(U,$J,358.3,41928,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41928,1,3,0)
  1. ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Left Hand,Unilat
  1. ;;^UTILITY(U,$J,358.3,41928,1,4,0)
  1. ;;=4^M18.12
  1. ;;^UTILITY(U,$J,358.3,41928,2)
  1. ;;=^5010798
  1. ;;^UTILITY(U,$J,358.3,41929,0)
  1. ;;=M19.031^^155^2064^85
  1. ;;^UTILITY(U,$J,358.3,41929,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41929,1,3,0)
  1. ;;=3^Prim Osteoarth,Right Wrist
  1. ;;^UTILITY(U,$J,358.3,41929,1,4,0)
  1. ;;=4^M19.031
  1. ;;^UTILITY(U,$J,358.3,41929,2)
  1. ;;=^5010814
  1. ;;^UTILITY(U,$J,358.3,41930,0)
  1. ;;=M19.032^^155^2064^81
  1. ;;^UTILITY(U,$J,358.3,41930,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41930,1,3,0)
  1. ;;=3^Prim Osteoarth,Left Wrist
  1. ;;^UTILITY(U,$J,358.3,41930,1,4,0)
  1. ;;=4^M19.032
  1. ;;^UTILITY(U,$J,358.3,41930,2)
  1. ;;=^5010815
  1. ;;^UTILITY(U,$J,358.3,41931,0)
  1. ;;=M19.041^^155^2064^83
  1. ;;^UTILITY(U,$J,358.3,41931,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41931,1,3,0)
  1. ;;=3^Prim Osteoarth,Right Hand
  1. ;;^UTILITY(U,$J,358.3,41931,1,4,0)
  1. ;;=4^M19.041
  1. ;;^UTILITY(U,$J,358.3,41931,2)
  1. ;;=^5010817
  1. ;;^UTILITY(U,$J,358.3,41932,0)
  1. ;;=Z44.012^^155^2065^4
  1. ;;^UTILITY(U,$J,358.3,41932,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41932,1,3,0)
  1. ;;=3^Fit/adjst of complete left artificial arm
  1. ;;^UTILITY(U,$J,358.3,41932,1,4,0)
  1. ;;=4^Z44.012
  1. ;;^UTILITY(U,$J,358.3,41932,2)
  1. ;;=^5062972
  1. ;;^UTILITY(U,$J,358.3,41933,0)
  1. ;;=Z44.011^^155^2065^6
  1. ;;^UTILITY(U,$J,358.3,41933,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41933,1,3,0)
  1. ;;=3^Fit/adjst of complete right artificial arm
  1. ;;^UTILITY(U,$J,358.3,41933,1,4,0)
  1. ;;=4^Z44.011
  1. ;;^UTILITY(U,$J,358.3,41933,2)
  1. ;;=^5062971
  1. ;;^UTILITY(U,$J,358.3,41934,0)
  1. ;;=Z44.022^^155^2065^10