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

IBDEI2BC.m

Go to the documentation of this file.
IBDEI2BC ; ; 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,36941,1,3,0)
 ;;=3^Shaving Epiderm Face/Mucous: 1.1-2.0cm
 ;;^UTILITY(U,$J,358.3,36942,0)
 ;;=11313^^143^1884^4^^^^1
 ;;^UTILITY(U,$J,358.3,36942,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36942,1,2,0)
 ;;=2^11313
 ;;^UTILITY(U,$J,358.3,36942,1,3,0)
 ;;=3^Shaving Epiderm Face/Mucous > 2.0cm
 ;;^UTILITY(U,$J,358.3,36943,0)
 ;;=12011^^143^1885^1^^^^1
 ;;^UTILITY(U,$J,358.3,36943,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36943,1,2,0)
 ;;=2^12011
 ;;^UTILITY(U,$J,358.3,36943,1,3,0)
 ;;=3^Simple repair Face/Mucous; 2.5 cm or less
 ;;^UTILITY(U,$J,358.3,36944,0)
 ;;=12013^^143^1885^2^^^^1
 ;;^UTILITY(U,$J,358.3,36944,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36944,1,2,0)
 ;;=2^12013
 ;;^UTILITY(U,$J,358.3,36944,1,3,0)
 ;;=3^Simple repair Face/Mucous; 2.6 cm to 5.0 cm
 ;;^UTILITY(U,$J,358.3,36945,0)
 ;;=12014^^143^1885^3^^^^1
 ;;^UTILITY(U,$J,358.3,36945,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36945,1,2,0)
 ;;=2^12014
 ;;^UTILITY(U,$J,358.3,36945,1,3,0)
 ;;=3^Simple repair Face/Mucous; 5.1 cm to 7.5 cm
 ;;^UTILITY(U,$J,358.3,36946,0)
 ;;=12015^^143^1885^4^^^^1
 ;;^UTILITY(U,$J,358.3,36946,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36946,1,2,0)
 ;;=2^12015
 ;;^UTILITY(U,$J,358.3,36946,1,3,0)
 ;;=3^Simple repair Face/Mucous; 7.6 cm to 12.5 cm
 ;;^UTILITY(U,$J,358.3,36947,0)
 ;;=12016^^143^1885^5^^^^1
 ;;^UTILITY(U,$J,358.3,36947,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36947,1,2,0)
 ;;=2^12016
 ;;^UTILITY(U,$J,358.3,36947,1,3,0)
 ;;=3^Simple repair Face/Mucous; 12.6 cm to 20 cm
 ;;^UTILITY(U,$J,358.3,36948,0)
 ;;=12017^^143^1885^6^^^^1
 ;;^UTILITY(U,$J,358.3,36948,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36948,1,2,0)
 ;;=2^12017
 ;;^UTILITY(U,$J,358.3,36948,1,3,0)
 ;;=3^Simple repair Face/Mucous; 20.1 cm to 30 cm
 ;;^UTILITY(U,$J,358.3,36949,0)
 ;;=12018^^143^1885^7^^^^1
 ;;^UTILITY(U,$J,358.3,36949,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36949,1,2,0)
 ;;=2^12018
 ;;^UTILITY(U,$J,358.3,36949,1,3,0)
 ;;=3^Simple repair Face/Mucous; over 30 cm
 ;;^UTILITY(U,$J,358.3,36950,0)
 ;;=12020^^143^1885^8^^^^1
 ;;^UTILITY(U,$J,358.3,36950,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36950,1,2,0)
 ;;=2^12020
 ;;^UTILITY(U,$J,358.3,36950,1,3,0)
 ;;=3^TX, superficial wound dihiscence simple cl
 ;;^UTILITY(U,$J,358.3,36951,0)
 ;;=12021^^143^1885^9^^^^1
 ;;^UTILITY(U,$J,358.3,36951,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36951,1,2,0)
 ;;=2^12021
 ;;^UTILITY(U,$J,358.3,36951,1,3,0)
 ;;=3^TX, superficial wound dihiscenc w/ packing
 ;;^UTILITY(U,$J,358.3,36952,0)
 ;;=12041^^143^1886^1^^^^1
 ;;^UTILITY(U,$J,358.3,36952,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36952,1,2,0)
 ;;=2^12041
 ;;^UTILITY(U,$J,358.3,36952,1,3,0)
 ;;=3^Interm Repair Nk/Hd/Ft; 2.5 cm or less
 ;;^UTILITY(U,$J,358.3,36953,0)
 ;;=12042^^143^1886^2^^^^1
 ;;^UTILITY(U,$J,358.3,36953,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36953,1,2,0)
 ;;=2^12042
 ;;^UTILITY(U,$J,358.3,36953,1,3,0)
 ;;=3^Interm Repair Nk/Hd/Ft; 2.6 cm to 7.5 cm
 ;;^UTILITY(U,$J,358.3,36954,0)
 ;;=12044^^143^1886^3^^^^1
 ;;^UTILITY(U,$J,358.3,36954,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36954,1,2,0)
 ;;=2^12044
 ;;^UTILITY(U,$J,358.3,36954,1,3,0)
 ;;=3^Interm Repair Nk/Hd/Ft; 7.6 cm to 12.5 cm
 ;;^UTILITY(U,$J,358.3,36955,0)
 ;;=12045^^143^1886^4^^^^1
 ;;^UTILITY(U,$J,358.3,36955,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,36955,1,2,0)
 ;;=2^12045