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

IBDEI2BI.m

Go to the documentation of this file.
IBDEI2BI ; ; 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,37028,1,2,0)
 ;;=2^67810
 ;;^UTILITY(U,$J,358.3,37028,1,3,0)
 ;;=3^Bx,Eyelid
 ;;^UTILITY(U,$J,358.3,37029,0)
 ;;=69100^^143^1903^1^^^^1
 ;;^UTILITY(U,$J,358.3,37029,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37029,1,2,0)
 ;;=2^69100
 ;;^UTILITY(U,$J,358.3,37029,1,3,0)
 ;;=3^Bx,External Ear
 ;;^UTILITY(U,$J,358.3,37030,0)
 ;;=40490^^143^1903^5^^^^1
 ;;^UTILITY(U,$J,358.3,37030,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37030,1,2,0)
 ;;=2^40490
 ;;^UTILITY(U,$J,358.3,37030,1,3,0)
 ;;=3^Bx,Lip
 ;;^UTILITY(U,$J,358.3,37031,0)
 ;;=54100^^143^1903^7^^^^1
 ;;^UTILITY(U,$J,358.3,37031,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37031,1,2,0)
 ;;=2^54100
 ;;^UTILITY(U,$J,358.3,37031,1,3,0)
 ;;=3^Bx,Penis
 ;;^UTILITY(U,$J,358.3,37032,0)
 ;;=11755^^143^1903^6^^^^1
 ;;^UTILITY(U,$J,358.3,37032,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37032,1,2,0)
 ;;=2^11755
 ;;^UTILITY(U,$J,358.3,37032,1,3,0)
 ;;=3^Bx,Nail Unit
 ;;^UTILITY(U,$J,358.3,37033,0)
 ;;=56605^^143^1903^12^^^^1
 ;;^UTILITY(U,$J,358.3,37033,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37033,1,2,0)
 ;;=2^56605
 ;;^UTILITY(U,$J,358.3,37033,1,3,0)
 ;;=3^Bx,Vulva/Perineum,Single Lesion
 ;;^UTILITY(U,$J,358.3,37034,0)
 ;;=56606^^143^1903^13^^^^1
 ;;^UTILITY(U,$J,358.3,37034,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37034,1,2,0)
 ;;=2^56606
 ;;^UTILITY(U,$J,358.3,37034,1,3,0)
 ;;=3^Bx,Vulva/Perineum,Ea Addl Lesion
 ;;^UTILITY(U,$J,358.3,37035,0)
 ;;=11106^^143^1903^3^^^^1
 ;;^UTILITY(U,$J,358.3,37035,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37035,1,2,0)
 ;;=2^11106
 ;;^UTILITY(U,$J,358.3,37035,1,3,0)
 ;;=3^Bx,Incisional,Skin,Single Lesion
 ;;^UTILITY(U,$J,358.3,37036,0)
 ;;=11107^^143^1903^4^^^^1
 ;;^UTILITY(U,$J,358.3,37036,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37036,1,2,0)
 ;;=2^11107
 ;;^UTILITY(U,$J,358.3,37036,1,3,0)
 ;;=3^Bx,Incisional,Skin,Ea Addl Lesion
 ;;^UTILITY(U,$J,358.3,37037,0)
 ;;=11104^^143^1903^8^^^^1
 ;;^UTILITY(U,$J,358.3,37037,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37037,1,2,0)
 ;;=2^11104
 ;;^UTILITY(U,$J,358.3,37037,1,3,0)
 ;;=3^Bx,Punch,Skin,Single Lesion
 ;;^UTILITY(U,$J,358.3,37038,0)
 ;;=11105^^143^1903^9^^^^1
 ;;^UTILITY(U,$J,358.3,37038,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37038,1,2,0)
 ;;=2^11105
 ;;^UTILITY(U,$J,358.3,37038,1,3,0)
 ;;=3^Bx,Punch,Skin,Ea Addl Lesion
 ;;^UTILITY(U,$J,358.3,37039,0)
 ;;=11102^^143^1903^10^^^^1
 ;;^UTILITY(U,$J,358.3,37039,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37039,1,2,0)
 ;;=2^11102
 ;;^UTILITY(U,$J,358.3,37039,1,3,0)
 ;;=3^Bx,Tangential,Skin,Single Lesion
 ;;^UTILITY(U,$J,358.3,37040,0)
 ;;=11103^^143^1903^11^^^^1
 ;;^UTILITY(U,$J,358.3,37040,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37040,1,2,0)
 ;;=2^11103
 ;;^UTILITY(U,$J,358.3,37040,1,3,0)
 ;;=3^Bx,Tangential,Skin,Ea Addl Lesion
 ;;^UTILITY(U,$J,358.3,37041,0)
 ;;=14301^^143^1904^1^^^^1
 ;;^UTILITY(U,$J,358.3,37041,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37041,1,2,0)
 ;;=2^14301
 ;;^UTILITY(U,$J,358.3,37041,1,3,0)
 ;;=3^Tissue Rearrangement,30.1-60.0sq cm
 ;;^UTILITY(U,$J,358.3,37042,0)
 ;;=14302^^143^1904^2^^^^1
 ;;^UTILITY(U,$J,358.3,37042,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37042,1,2,0)
 ;;=2^14302
 ;;^UTILITY(U,$J,358.3,37042,1,3,0)
 ;;=3^Tissue Rearrangement,Ea Addl 30.0sq cm
 ;;^UTILITY(U,$J,358.3,37043,0)
 ;;=15050^^143^1905^11^^^^1
 ;;^UTILITY(U,$J,358.3,37043,1,0)
 ;;=^358.31IA^3^2