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

IBDEI319.m

Go to the documentation of this file.
  1. IBDEI319 ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,48431,1,3,0)
  1. ;;=3^Kidney,Page
  1. ;;^UTILITY(U,$J,358.3,48431,1,4,0)
  1. ;;=4^N26.2
  1. ;;^UTILITY(U,$J,358.3,48431,2)
  1. ;;=^5015621
  1. ;;^UTILITY(U,$J,358.3,48432,0)
  1. ;;=N27.9^^185^2422^18
  1. ;;^UTILITY(U,$J,358.3,48432,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48432,1,3,0)
  1. ;;=3^Kidney,Small,Unspec
  1. ;;^UTILITY(U,$J,358.3,48432,1,4,0)
  1. ;;=4^N27.9
  1. ;;^UTILITY(U,$J,358.3,48432,2)
  1. ;;=^5015625
  1. ;;^UTILITY(U,$J,358.3,48433,0)
  1. ;;=N00.9^^185^2422^19
  1. ;;^UTILITY(U,$J,358.3,48433,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48433,1,3,0)
  1. ;;=3^Nephritic Syndrome,Acute w/ Unspec Morphologic Changes
  1. ;;^UTILITY(U,$J,358.3,48433,1,4,0)
  1. ;;=4^N00.9
  1. ;;^UTILITY(U,$J,358.3,48433,2)
  1. ;;=^5015500
  1. ;;^UTILITY(U,$J,358.3,48434,0)
  1. ;;=N11.9^^185^2422^21
  1. ;;^UTILITY(U,$J,358.3,48434,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48434,1,3,0)
  1. ;;=3^Nephritis,Chronic Tubulo-Interstitial,Unspec
  1. ;;^UTILITY(U,$J,358.3,48434,1,4,0)
  1. ;;=4^N11.9
  1. ;;^UTILITY(U,$J,358.3,48434,2)
  1. ;;=^5015574
  1. ;;^UTILITY(U,$J,358.3,48435,0)
  1. ;;=N10.^^185^2422^20
  1. ;;^UTILITY(U,$J,358.3,48435,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48435,1,3,0)
  1. ;;=3^Nephritis,Acute Tubulo-Interstitial
  1. ;;^UTILITY(U,$J,358.3,48435,1,4,0)
  1. ;;=4^N10.
  1. ;;^UTILITY(U,$J,358.3,48435,2)
  1. ;;=^5015570
  1. ;;^UTILITY(U,$J,358.3,48436,0)
  1. ;;=N12.^^185^2422^22
  1. ;;^UTILITY(U,$J,358.3,48436,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48436,1,3,0)
  1. ;;=3^Nephritis,Tubulo-Interstitial,Not Specified
  1. ;;^UTILITY(U,$J,358.3,48436,1,4,0)
  1. ;;=4^N12.
  1. ;;^UTILITY(U,$J,358.3,48436,2)
  1. ;;=^5015575
  1. ;;^UTILITY(U,$J,358.3,48437,0)
  1. ;;=N11.0^^185^2422^23
  1. ;;^UTILITY(U,$J,358.3,48437,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48437,1,3,0)
  1. ;;=3^Pyelonephritis,Chronic Non-obstructive Reflux-Associated
  1. ;;^UTILITY(U,$J,358.3,48437,1,4,0)
  1. ;;=4^N11.0
  1. ;;^UTILITY(U,$J,358.3,48437,2)
  1. ;;=^5015571
  1. ;;^UTILITY(U,$J,358.3,48438,0)
  1. ;;=N11.1^^185^2422^24
  1. ;;^UTILITY(U,$J,358.3,48438,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48438,1,3,0)
  1. ;;=3^Pyelonephritis,Chronic Obstructive
  1. ;;^UTILITY(U,$J,358.3,48438,1,4,0)
  1. ;;=4^N11.1
  1. ;;^UTILITY(U,$J,358.3,48438,2)
  1. ;;=^5015572
  1. ;;^UTILITY(U,$J,358.3,48439,0)
  1. ;;=N23.^^185^2422^25
  1. ;;^UTILITY(U,$J,358.3,48439,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48439,1,3,0)
  1. ;;=3^Renal Colic,Unspec
  1. ;;^UTILITY(U,$J,358.3,48439,1,4,0)
  1. ;;=4^N23.
  1. ;;^UTILITY(U,$J,358.3,48439,2)
  1. ;;=^5015615
  1. ;;^UTILITY(U,$J,358.3,48440,0)
  1. ;;=Z99.2^^185^2422^26
  1. ;;^UTILITY(U,$J,358.3,48440,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48440,1,3,0)
  1. ;;=3^Renal Dialysis Dependence
  1. ;;^UTILITY(U,$J,358.3,48440,1,4,0)
  1. ;;=4^Z99.2
  1. ;;^UTILITY(U,$J,358.3,48440,2)
  1. ;;=^5063758
  1. ;;^UTILITY(U,$J,358.3,48441,0)
  1. ;;=N26.9^^185^2422^27
  1. ;;^UTILITY(U,$J,358.3,48441,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48441,1,3,0)
  1. ;;=3^Renal Sclerosis,Unspec
  1. ;;^UTILITY(U,$J,358.3,48441,1,4,0)
  1. ;;=4^N26.9
  1. ;;^UTILITY(U,$J,358.3,48441,2)
  1. ;;=^5015622
  1. ;;^UTILITY(U,$J,358.3,48442,0)
  1. ;;=N25.9^^185^2422^28
  1. ;;^UTILITY(U,$J,358.3,48442,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48442,1,3,0)
  1. ;;=3^Renal Tubular Function Impaired,Disorder from,Unspec
  1. ;;^UTILITY(U,$J,358.3,48442,1,4,0)
  1. ;;=4^N25.9
  1. ;;^UTILITY(U,$J,358.3,48442,2)
  1. ;;=^5015619
  1. ;;^UTILITY(U,$J,358.3,48443,0)
  1. ;;=M89.00^^185^2423^1
  1. ;;^UTILITY(U,$J,358.3,48443,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48443,1,3,0)
  1. ;;=3^Algoneurodystrophy (RSD),Unspec Site