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

IBDEI2TB.m

Go to the documentation of this file.
IBDEI2TB ; ; 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,44857,2)
 ;;=^5009082
 ;;^UTILITY(U,$J,358.3,44858,0)
 ;;=Q80.0^^170^2239^1
 ;;^UTILITY(U,$J,358.3,44858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44858,1,3,0)
 ;;=3^Ichthyosis Vulgaris
 ;;^UTILITY(U,$J,358.3,44858,1,4,0)
 ;;=4^Q80.0
 ;;^UTILITY(U,$J,358.3,44858,2)
 ;;=^175407
 ;;^UTILITY(U,$J,358.3,44859,0)
 ;;=Q80.1^^170^2239^2
 ;;^UTILITY(U,$J,358.3,44859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44859,1,3,0)
 ;;=3^Ichthyosis,X-Linked
 ;;^UTILITY(U,$J,358.3,44859,1,4,0)
 ;;=4^Q80.1
 ;;^UTILITY(U,$J,358.3,44859,2)
 ;;=^5019041
 ;;^UTILITY(U,$J,358.3,44860,0)
 ;;=L76.01^^170^2239^7
 ;;^UTILITY(U,$J,358.3,44860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44860,1,3,0)
 ;;=3^Intraop Hemor/Hemtom Skin/SQ Tissue,Comp Derm Procedure
 ;;^UTILITY(U,$J,358.3,44860,1,4,0)
 ;;=4^L76.01
 ;;^UTILITY(U,$J,358.3,44860,2)
 ;;=^5009302
 ;;^UTILITY(U,$J,358.3,44861,0)
 ;;=L76.02^^170^2239^8
 ;;^UTILITY(U,$J,358.3,44861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44861,1,3,0)
 ;;=3^Intraop Hemor/Hemtom Skin/SQ Tissue,Comp Oth Procedure
 ;;^UTILITY(U,$J,358.3,44861,1,4,0)
 ;;=4^L76.02
 ;;^UTILITY(U,$J,358.3,44861,2)
 ;;=^5009303
 ;;^UTILITY(U,$J,358.3,44862,0)
 ;;=L60.0^^170^2239^5
 ;;^UTILITY(U,$J,358.3,44862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44862,1,3,0)
 ;;=3^Ingrown Nail
 ;;^UTILITY(U,$J,358.3,44862,1,4,0)
 ;;=4^L60.0
 ;;^UTILITY(U,$J,358.3,44862,2)
 ;;=^5009234
 ;;^UTILITY(U,$J,358.3,44863,0)
 ;;=L30.4^^170^2239^6
 ;;^UTILITY(U,$J,358.3,44863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44863,1,3,0)
 ;;=3^Intertrigo Erythema
 ;;^UTILITY(U,$J,358.3,44863,1,4,0)
 ;;=4^L30.4
 ;;^UTILITY(U,$J,358.3,44863,2)
 ;;=^5009157
 ;;^UTILITY(U,$J,358.3,44864,0)
 ;;=L11.0^^170^2240^3
 ;;^UTILITY(U,$J,358.3,44864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44864,1,3,0)
 ;;=3^Keratosis,Follicularis,Acquired
 ;;^UTILITY(U,$J,358.3,44864,1,4,0)
 ;;=4^L11.0
 ;;^UTILITY(U,$J,358.3,44864,2)
 ;;=^5009091
 ;;^UTILITY(U,$J,358.3,44865,0)
 ;;=L57.0^^170^2240^2
 ;;^UTILITY(U,$J,358.3,44865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44865,1,3,0)
 ;;=3^Keratosis,Actinic
 ;;^UTILITY(U,$J,358.3,44865,1,4,0)
 ;;=4^L57.0
 ;;^UTILITY(U,$J,358.3,44865,2)
 ;;=^66900
 ;;^UTILITY(U,$J,358.3,44866,0)
 ;;=L82.0^^170^2240^4
 ;;^UTILITY(U,$J,358.3,44866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44866,1,3,0)
 ;;=3^Keratosis,Inflamed Seborrheic
 ;;^UTILITY(U,$J,358.3,44866,1,4,0)
 ;;=4^L82.0
 ;;^UTILITY(U,$J,358.3,44866,2)
 ;;=^303311
 ;;^UTILITY(U,$J,358.3,44867,0)
 ;;=L82.1^^170^2240^5
 ;;^UTILITY(U,$J,358.3,44867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44867,1,3,0)
 ;;=3^Keratosis,Seborrheic
 ;;^UTILITY(U,$J,358.3,44867,1,4,0)
 ;;=4^L82.1
 ;;^UTILITY(U,$J,358.3,44867,2)
 ;;=^303312
 ;;^UTILITY(U,$J,358.3,44868,0)
 ;;=L85.8^^170^2240^1
 ;;^UTILITY(U,$J,358.3,44868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44868,1,3,0)
 ;;=3^Keratoacantoma (Benign)
 ;;^UTILITY(U,$J,358.3,44868,1,4,0)
 ;;=4^L85.8
 ;;^UTILITY(U,$J,358.3,44868,2)
 ;;=^5009324
 ;;^UTILITY(U,$J,358.3,44869,0)
 ;;=B08.1^^170^2241^91
 ;;^UTILITY(U,$J,358.3,44869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44869,1,3,0)
 ;;=3^Molluscum Contagiosum
 ;;^UTILITY(U,$J,358.3,44869,1,4,0)
 ;;=4^B08.1
 ;;^UTILITY(U,$J,358.3,44869,2)
 ;;=^78675
 ;;^UTILITY(U,$J,358.3,44870,0)
 ;;=L74.0^^170^2241^89
 ;;^UTILITY(U,$J,358.3,44870,1,0)
 ;;=^358.31IA^4^2