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

IBDEI2DK.m

Go to the documentation of this file.
  1. IBDEI2DK ; ; 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,37903,1,3,0)
  1. ;;=3^Lacrtn w/o foreign body lft lsr toe(s) w/o nail dmg, init
  1. ;;^UTILITY(U,$J,358.3,37903,1,4,0)
  1. ;;=4^S91.115A
  1. ;;^UTILITY(U,$J,358.3,37903,2)
  1. ;;=^5044195
  1. ;;^UTILITY(U,$J,358.3,37904,0)
  1. ;;=S91.111A^^146^1921^26
  1. ;;^UTILITY(U,$J,358.3,37904,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37904,1,3,0)
  1. ;;=3^Lacrtn w/o foreign body rt grt toe w/o nail dmg, init
  1. ;;^UTILITY(U,$J,358.3,37904,1,4,0)
  1. ;;=4^S91.111A
  1. ;;^UTILITY(U,$J,358.3,37904,2)
  1. ;;=^5044183
  1. ;;^UTILITY(U,$J,358.3,37905,0)
  1. ;;=S91.112A^^146^1921^19
  1. ;;^UTILITY(U,$J,358.3,37905,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37905,1,3,0)
  1. ;;=3^Lacrtn w/o foreign body lft grt toe w/o nail dmg, init
  1. ;;^UTILITY(U,$J,358.3,37905,1,4,0)
  1. ;;=4^S91.112A
  1. ;;^UTILITY(U,$J,358.3,37905,2)
  1. ;;=^5044186
  1. ;;^UTILITY(U,$J,358.3,37906,0)
  1. ;;=S91.214A^^146^1921^15
  1. ;;^UTILITY(U,$J,358.3,37906,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37906,1,3,0)
  1. ;;=3^Lacrtn w/o foregin body rt lsr toe(s) w/ nail dmg, init
  1. ;;^UTILITY(U,$J,358.3,37906,1,4,0)
  1. ;;=4^S91.214A
  1. ;;^UTILITY(U,$J,358.3,37906,2)
  1. ;;=^5044279
  1. ;;^UTILITY(U,$J,358.3,37907,0)
  1. ;;=S91.215A^^146^1921^21
  1. ;;^UTILITY(U,$J,358.3,37907,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37907,1,3,0)
  1. ;;=3^Lacrtn w/o foreign body lft lsr toe(s) w/ nail dmg, init
  1. ;;^UTILITY(U,$J,358.3,37907,1,4,0)
  1. ;;=4^S91.215A
  1. ;;^UTILITY(U,$J,358.3,37907,2)
  1. ;;=^5044282
  1. ;;^UTILITY(U,$J,358.3,37908,0)
  1. ;;=S91.022A^^146^1921^5
  1. ;;^UTILITY(U,$J,358.3,37908,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37908,1,3,0)
  1. ;;=3^Lacrtn w/ foreign body lft ankl, init
  1. ;;^UTILITY(U,$J,358.3,37908,1,4,0)
  1. ;;=4^S91.022A
  1. ;;^UTILITY(U,$J,358.3,37908,2)
  1. ;;=^5137406
  1. ;;^UTILITY(U,$J,358.3,37909,0)
  1. ;;=S91.021A^^146^1921^10
  1. ;;^UTILITY(U,$J,358.3,37909,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37909,1,3,0)
  1. ;;=3^Lacrtn w/ foreign body rt ankl, init
  1. ;;^UTILITY(U,$J,358.3,37909,1,4,0)
  1. ;;=4^S91.021A
  1. ;;^UTILITY(U,$J,358.3,37909,2)
  1. ;;=^5044144
  1. ;;^UTILITY(U,$J,358.3,37910,0)
  1. ;;=S81.821A^^146^1921^14
  1. ;;^UTILITY(U,$J,358.3,37910,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37910,1,3,0)
  1. ;;=3^Lacrtn w/ foreign body rt lwr leg, init
  1. ;;^UTILITY(U,$J,358.3,37910,1,4,0)
  1. ;;=4^S81.821A
  1. ;;^UTILITY(U,$J,358.3,37910,2)
  1. ;;=^5040080
  1. ;;^UTILITY(U,$J,358.3,37911,0)
  1. ;;=S81.822A^^146^1921^2
  1. ;;^UTILITY(U,$J,358.3,37911,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37911,1,3,0)
  1. ;;=3^Lacrtn w/ foregin body lft lwr leg, init
  1. ;;^UTILITY(U,$J,358.3,37911,1,4,0)
  1. ;;=4^S81.822A
  1. ;;^UTILITY(U,$J,358.3,37911,2)
  1. ;;=^5136691
  1. ;;^UTILITY(U,$J,358.3,37912,0)
  1. ;;=S91.321A^^146^1921^3
  1. ;;^UTILITY(U,$J,358.3,37912,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37912,1,3,0)
  1. ;;=3^Lacrtn w/ foregin body rt ft, init
  1. ;;^UTILITY(U,$J,358.3,37912,1,4,0)
  1. ;;=4^S91.321A
  1. ;;^UTILITY(U,$J,358.3,37912,2)
  1. ;;=^5044329
  1. ;;^UTILITY(U,$J,358.3,37913,0)
  1. ;;=S91.322A^^146^1921^1
  1. ;;^UTILITY(U,$J,358.3,37913,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37913,1,3,0)
  1. ;;=3^Lacrtn w/ foregin body lft ft, init
  1. ;;^UTILITY(U,$J,358.3,37913,1,4,0)
  1. ;;=4^S91.322A
  1. ;;^UTILITY(U,$J,358.3,37913,2)
  1. ;;=^5137527
  1. ;;^UTILITY(U,$J,358.3,37914,0)
  1. ;;=S91.125A^^146^1921^8
  1. ;;^UTILITY(U,$J,358.3,37914,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37914,1,3,0)
  1. ;;=3^Lacrtn w/ foreign body lft lsr toe(s) w/o nail dmg, init
  1. ;;^UTILITY(U,$J,358.3,37914,1,4,0)
  1. ;;=4^S91.125A