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

IBDEI2BD.m

Go to the documentation of this file.
  1. IBDEI2BD ; ; 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,36955,1,3,0)
  1. ;;=3^Interm Repair Nk/Hd/Ft; 12.6 cm to 20 cm
  1. ;;^UTILITY(U,$J,358.3,36956,0)
  1. ;;=12046^^143^1886^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,36956,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36956,1,2,0)
  1. ;;=2^12046
  1. ;;^UTILITY(U,$J,358.3,36956,1,3,0)
  1. ;;=3^Interm Repair Nk/Hd/Ft; 20.1 cm to 30 cm
  1. ;;^UTILITY(U,$J,358.3,36957,0)
  1. ;;=12047^^143^1886^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,36957,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36957,1,2,0)
  1. ;;=2^12047
  1. ;;^UTILITY(U,$J,358.3,36957,1,3,0)
  1. ;;=3^Interm Repair Nk/Hd/Ft; over 30 cm
  1. ;;^UTILITY(U,$J,358.3,36958,0)
  1. ;;=12051^^143^1887^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,36958,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36958,1,2,0)
  1. ;;=2^12051
  1. ;;^UTILITY(U,$J,358.3,36958,1,3,0)
  1. ;;=3^Interm Repair Face; 2.5 cm or less
  1. ;;^UTILITY(U,$J,358.3,36959,0)
  1. ;;=12052^^143^1887^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,36959,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36959,1,2,0)
  1. ;;=2^12052
  1. ;;^UTILITY(U,$J,358.3,36959,1,3,0)
  1. ;;=3^Interm Repair Face; 2.6 cm to 5.0 cm
  1. ;;^UTILITY(U,$J,358.3,36960,0)
  1. ;;=12053^^143^1887^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,36960,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36960,1,2,0)
  1. ;;=2^12053
  1. ;;^UTILITY(U,$J,358.3,36960,1,3,0)
  1. ;;=3^Interm Repair Face; 5.1 cm to 7.5 cm
  1. ;;^UTILITY(U,$J,358.3,36961,0)
  1. ;;=12054^^143^1887^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,36961,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36961,1,2,0)
  1. ;;=2^12054
  1. ;;^UTILITY(U,$J,358.3,36961,1,3,0)
  1. ;;=3^Interm Repair Face; 7.6 cm to 12.5 cm
  1. ;;^UTILITY(U,$J,358.3,36962,0)
  1. ;;=12055^^143^1887^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,36962,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36962,1,2,0)
  1. ;;=2^12055
  1. ;;^UTILITY(U,$J,358.3,36962,1,3,0)
  1. ;;=3^Interm Repair Face; 12.6 cm to 20 cm
  1. ;;^UTILITY(U,$J,358.3,36963,0)
  1. ;;=12056^^143^1887^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,36963,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36963,1,2,0)
  1. ;;=2^12056
  1. ;;^UTILITY(U,$J,358.3,36963,1,3,0)
  1. ;;=3^Interm Repair Face; 20.1 cm to 30 cm
  1. ;;^UTILITY(U,$J,358.3,36964,0)
  1. ;;=12057^^143^1887^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,36964,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36964,1,2,0)
  1. ;;=2^12057
  1. ;;^UTILITY(U,$J,358.3,36964,1,3,0)
  1. ;;=3^Interm Repair Face; over 30 cm
  1. ;;^UTILITY(U,$J,358.3,36965,0)
  1. ;;=97605^^143^1888^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,36965,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36965,1,2,0)
  1. ;;=2^97605
  1. ;;^UTILITY(U,$J,358.3,36965,1,3,0)
  1. ;;=3^Neg Press Wound Tx <= 50 cm,using wnd vac
  1. ;;^UTILITY(U,$J,358.3,36966,0)
  1. ;;=97606^^143^1888^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,36966,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36966,1,2,0)
  1. ;;=2^97606
  1. ;;^UTILITY(U,$J,358.3,36966,1,3,0)
  1. ;;=3^Neg Press Wound Tx > 50 cm,using wnd vac
  1. ;;^UTILITY(U,$J,358.3,36967,0)
  1. ;;=97598^^143^1888^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,36967,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36967,1,2,0)
  1. ;;=2^97598
  1. ;;^UTILITY(U,$J,358.3,36967,1,3,0)
  1. ;;=3^Rmvl Devital Tiss,Addl 20 cm
  1. ;;^UTILITY(U,$J,358.3,36968,0)
  1. ;;=97597^^143^1888^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,36968,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36968,1,2,0)
  1. ;;=2^97597
  1. ;;^UTILITY(U,$J,358.3,36968,1,3,0)
  1. ;;=3^Rmvl Devital Tiss < 20 cm
  1. ;;^UTILITY(U,$J,358.3,36969,0)
  1. ;;=29580^^143^1888^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,36969,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36969,1,2,0)
  1. ;;=2^29580
  1. ;;^UTILITY(U,$J,358.3,36969,1,3,0)
  1. ;;=3^Application of UNNA Boot