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

IBDEI15J.m

Go to the documentation of this file.
IBDEI15J ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,18699,0)
 ;;=N15.0^^64^837^2
 ;;^UTILITY(U,$J,358.3,18699,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18699,1,3,0)
 ;;=3^Balkan Nephropathy
 ;;^UTILITY(U,$J,358.3,18699,1,4,0)
 ;;=4^N15.0
 ;;^UTILITY(U,$J,358.3,18699,2)
 ;;=^12543
 ;;^UTILITY(U,$J,358.3,18700,0)
 ;;=N18.9^^64^837^3
 ;;^UTILITY(U,$J,358.3,18700,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18700,1,3,0)
 ;;=3^Chr Kidney Disease,Unspec
 ;;^UTILITY(U,$J,358.3,18700,1,4,0)
 ;;=4^N18.9
 ;;^UTILITY(U,$J,358.3,18700,2)
 ;;=^332812
 ;;^UTILITY(U,$J,358.3,18701,0)
 ;;=N28.9^^64^837^18
 ;;^UTILITY(U,$J,358.3,18701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18701,1,3,0)
 ;;=3^Kidney/Ureter Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,18701,1,4,0)
 ;;=4^N28.9
 ;;^UTILITY(U,$J,358.3,18701,2)
 ;;=^5015630
 ;;^UTILITY(U,$J,358.3,18702,0)
 ;;=N40.0^^64^837^5
 ;;^UTILITY(U,$J,358.3,18702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18702,1,3,0)
 ;;=3^Enlarged Prostate w/o Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,18702,1,4,0)
 ;;=4^N40.0
 ;;^UTILITY(U,$J,358.3,18702,2)
 ;;=^5015689
 ;;^UTILITY(U,$J,358.3,18703,0)
 ;;=N07.6^^64^837^6
 ;;^UTILITY(U,$J,358.3,18703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18703,1,3,0)
 ;;=3^Hereditary Nephropathy w/ Dense Deposit Disease NEC
 ;;^UTILITY(U,$J,358.3,18703,1,4,0)
 ;;=4^N07.6
 ;;^UTILITY(U,$J,358.3,18703,2)
 ;;=^5015565
 ;;^UTILITY(U,$J,358.3,18704,0)
 ;;=N07.7^^64^837^7
 ;;^UTILITY(U,$J,358.3,18704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18704,1,3,0)
 ;;=3^Hereditary Nephropathy w/ Diffuse Crescentic Glomerular NEC
 ;;^UTILITY(U,$J,358.3,18704,1,4,0)
 ;;=4^N07.7
 ;;^UTILITY(U,$J,358.3,18704,2)
 ;;=^5015566
 ;;^UTILITY(U,$J,358.3,18705,0)
 ;;=N07.1^^64^837^8
 ;;^UTILITY(U,$J,358.3,18705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18705,1,3,0)
 ;;=3^Hereditary Nephropathy w/ Focal/Segmental Glomerular Lesions NEC
 ;;^UTILITY(U,$J,358.3,18705,1,4,0)
 ;;=4^N07.1
 ;;^UTILITY(U,$J,358.3,18705,2)
 ;;=^5015560
 ;;^UTILITY(U,$J,358.3,18706,0)
 ;;=N07.0^^64^837^9
 ;;^UTILITY(U,$J,358.3,18706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18706,1,3,0)
 ;;=3^Hereditary Nephropathy w/ Minor Glomerular Abnormality NEC
 ;;^UTILITY(U,$J,358.3,18706,1,4,0)
 ;;=4^N07.0
 ;;^UTILITY(U,$J,358.3,18706,2)
 ;;=^5015559
 ;;^UTILITY(U,$J,358.3,18707,0)
 ;;=N07.8^^64^837^10
 ;;^UTILITY(U,$J,358.3,18707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18707,1,3,0)
 ;;=3^Hereditary Nephropathy w/ Morphologic Lesions NEC
 ;;^UTILITY(U,$J,358.3,18707,1,4,0)
 ;;=4^N07.8
 ;;^UTILITY(U,$J,358.3,18707,2)
 ;;=^5015567
 ;;^UTILITY(U,$J,358.3,18708,0)
 ;;=N41.9^^64^837^11
 ;;^UTILITY(U,$J,358.3,18708,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18708,1,3,0)
 ;;=3^Inflammatory Prostate Disease,Unspec
 ;;^UTILITY(U,$J,358.3,18708,1,4,0)
 ;;=4^N41.9
 ;;^UTILITY(U,$J,358.3,18708,2)
 ;;=^5015694
 ;;^UTILITY(U,$J,358.3,18709,0)
 ;;=N06.6^^64^837^12
 ;;^UTILITY(U,$J,358.3,18709,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18709,1,3,0)
 ;;=3^Isolated Proteinuria w/ Dense Deposit Disease
 ;;^UTILITY(U,$J,358.3,18709,1,4,0)
 ;;=4^N06.6
 ;;^UTILITY(U,$J,358.3,18709,2)
 ;;=^5015555
 ;;^UTILITY(U,$J,358.3,18710,0)
 ;;=N06.7^^64^837^13
 ;;^UTILITY(U,$J,358.3,18710,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18710,1,3,0)
 ;;=3^Isolated Proteinuria w/ Diffuse Crescentic Glomerulonephritis
 ;;^UTILITY(U,$J,358.3,18710,1,4,0)
 ;;=4^N06.7