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

IBDEI0Q7.m

Go to the documentation of this file.
  1. IBDEI0Q7 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,11773,1,4,0)
  1. ;;=4^N06.8
  1. ;;^UTILITY(U,$J,358.3,11773,2)
  1. ;;=^5015557
  1. ;;^UTILITY(U,$J,358.3,11774,0)
  1. ;;=N06.9^^46^573^41
  1. ;;^UTILITY(U,$J,358.3,11774,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11774,1,3,0)
  1. ;;=3^Isolated proteinuria w/ unspecified morphologic lesion
  1. ;;^UTILITY(U,$J,358.3,11774,1,4,0)
  1. ;;=4^N06.9
  1. ;;^UTILITY(U,$J,358.3,11774,2)
  1. ;;=^5015558
  1. ;;^UTILITY(U,$J,358.3,11775,0)
  1. ;;=N07.0^^46^573^29
  1. ;;^UTILITY(U,$J,358.3,11775,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11775,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ minor glomerular abnormality
  1. ;;^UTILITY(U,$J,358.3,11775,1,4,0)
  1. ;;=4^N07.0
  1. ;;^UTILITY(U,$J,358.3,11775,2)
  1. ;;=^5015559
  1. ;;^UTILITY(U,$J,358.3,11776,0)
  1. ;;=N07.1^^46^573^28
  1. ;;^UTILITY(U,$J,358.3,11776,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11776,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ focal & seg glomerular lesions
  1. ;;^UTILITY(U,$J,358.3,11776,1,4,0)
  1. ;;=4^N07.1
  1. ;;^UTILITY(U,$J,358.3,11776,2)
  1. ;;=^5015560
  1. ;;^UTILITY(U,$J,358.3,11777,0)
  1. ;;=N07.2^^46^573^24
  1. ;;^UTILITY(U,$J,358.3,11777,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11777,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ diffuse membranous glomrlneph
  1. ;;^UTILITY(U,$J,358.3,11777,1,4,0)
  1. ;;=4^N07.2
  1. ;;^UTILITY(U,$J,358.3,11777,2)
  1. ;;=^5015561
  1. ;;^UTILITY(U,$J,358.3,11778,0)
  1. ;;=N07.3^^46^573^25
  1. ;;^UTILITY(U,$J,358.3,11778,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11778,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ diffuse mesangial prolif glomrlneph
  1. ;;^UTILITY(U,$J,358.3,11778,1,4,0)
  1. ;;=4^N07.3
  1. ;;^UTILITY(U,$J,358.3,11778,2)
  1. ;;=^5015562
  1. ;;^UTILITY(U,$J,358.3,11779,0)
  1. ;;=N07.4^^46^573^23
  1. ;;^UTILITY(U,$J,358.3,11779,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11779,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ diffus endocaplry prolif glomrlneph
  1. ;;^UTILITY(U,$J,358.3,11779,1,4,0)
  1. ;;=4^N07.4
  1. ;;^UTILITY(U,$J,358.3,11779,2)
  1. ;;=^5015563
  1. ;;^UTILITY(U,$J,358.3,11780,0)
  1. ;;=N07.5^^46^573^26
  1. ;;^UTILITY(U,$J,358.3,11780,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11780,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ diffuse mesangiocap glomrlneph
  1. ;;^UTILITY(U,$J,358.3,11780,1,4,0)
  1. ;;=4^N07.5
  1. ;;^UTILITY(U,$J,358.3,11780,2)
  1. ;;=^5015564
  1. ;;^UTILITY(U,$J,358.3,11781,0)
  1. ;;=N07.6^^46^573^22
  1. ;;^UTILITY(U,$J,358.3,11781,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11781,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ dense deposit disease
  1. ;;^UTILITY(U,$J,358.3,11781,1,4,0)
  1. ;;=4^N07.6
  1. ;;^UTILITY(U,$J,358.3,11781,2)
  1. ;;=^5015565
  1. ;;^UTILITY(U,$J,358.3,11782,0)
  1. ;;=N07.7^^46^573^27
  1. ;;^UTILITY(U,$J,358.3,11782,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11782,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ diffuse crescentic glomrlneph
  1. ;;^UTILITY(U,$J,358.3,11782,1,4,0)
  1. ;;=4^N07.7
  1. ;;^UTILITY(U,$J,358.3,11782,2)
  1. ;;=^5015566
  1. ;;^UTILITY(U,$J,358.3,11783,0)
  1. ;;=N07.8^^46^573^30
  1. ;;^UTILITY(U,$J,358.3,11783,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11783,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ oth morphologic lesions
  1. ;;^UTILITY(U,$J,358.3,11783,1,4,0)
  1. ;;=4^N07.8
  1. ;;^UTILITY(U,$J,358.3,11783,2)
  1. ;;=^5015567
  1. ;;^UTILITY(U,$J,358.3,11784,0)
  1. ;;=N07.9^^46^573^31
  1. ;;^UTILITY(U,$J,358.3,11784,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11784,1,3,0)
  1. ;;=3^Hereditary nephropathy, NEC w/ unsp morphologic lesions
  1. ;;^UTILITY(U,$J,358.3,11784,1,4,0)
  1. ;;=4^N07.9
  1. ;;^UTILITY(U,$J,358.3,11784,2)
  1. ;;=^5015568