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