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

IBDEI1NS.m

Go to the documentation of this file.
IBDEI1NS ; ; 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,26488,2)
 ;;=^5015574
 ;;^UTILITY(U,$J,358.3,26489,0)
 ;;=N30.91^^107^1245^5
 ;;^UTILITY(U,$J,358.3,26489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26489,1,3,0)
 ;;=3^Cystitis,Unspec w/ Hematuria
 ;;^UTILITY(U,$J,358.3,26489,1,4,0)
 ;;=4^N30.91
 ;;^UTILITY(U,$J,358.3,26489,2)
 ;;=^5015643
 ;;^UTILITY(U,$J,358.3,26490,0)
 ;;=N30.90^^107^1245^6
 ;;^UTILITY(U,$J,358.3,26490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26490,1,3,0)
 ;;=3^Cystitis,Unspec w/o Hematuria
 ;;^UTILITY(U,$J,358.3,26490,1,4,0)
 ;;=4^N30.90
 ;;^UTILITY(U,$J,358.3,26490,2)
 ;;=^5015642
 ;;^UTILITY(U,$J,358.3,26491,0)
 ;;=N28.84^^107^1245^7
 ;;^UTILITY(U,$J,358.3,26491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26491,1,3,0)
 ;;=3^Pyelitis Cystica
 ;;^UTILITY(U,$J,358.3,26491,1,4,0)
 ;;=4^N28.84
 ;;^UTILITY(U,$J,358.3,26491,2)
 ;;=^5015628
 ;;^UTILITY(U,$J,358.3,26492,0)
 ;;=N28.85^^107^1245^8
 ;;^UTILITY(U,$J,358.3,26492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26492,1,3,0)
 ;;=3^Pyeloureteritis Cystica
 ;;^UTILITY(U,$J,358.3,26492,1,4,0)
 ;;=4^N28.85
 ;;^UTILITY(U,$J,358.3,26492,2)
 ;;=^270372
 ;;^UTILITY(U,$J,358.3,26493,0)
 ;;=N15.1^^107^1245^9
 ;;^UTILITY(U,$J,358.3,26493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26493,1,3,0)
 ;;=3^Renal & Perinephric Abscess
 ;;^UTILITY(U,$J,358.3,26493,1,4,0)
 ;;=4^N15.1
 ;;^UTILITY(U,$J,358.3,26493,2)
 ;;=^270371
 ;;^UTILITY(U,$J,358.3,26494,0)
 ;;=N16.^^107^1245^10
 ;;^UTILITY(U,$J,358.3,26494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26494,1,3,0)
 ;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
 ;;^UTILITY(U,$J,358.3,26494,1,4,0)
 ;;=4^N16.
 ;;^UTILITY(U,$J,358.3,26494,2)
 ;;=^5015597
 ;;^UTILITY(U,$J,358.3,26495,0)
 ;;=N15.9^^107^1245^11
 ;;^UTILITY(U,$J,358.3,26495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26495,1,3,0)
 ;;=3^Tubulo-Interstitial Disease,Unspec
 ;;^UTILITY(U,$J,358.3,26495,1,4,0)
 ;;=4^N15.9
 ;;^UTILITY(U,$J,358.3,26495,2)
 ;;=^5015596
 ;;^UTILITY(U,$J,358.3,26496,0)
 ;;=N12.^^107^1245^12
 ;;^UTILITY(U,$J,358.3,26496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26496,1,3,0)
 ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
 ;;^UTILITY(U,$J,358.3,26496,1,4,0)
 ;;=4^N12.
 ;;^UTILITY(U,$J,358.3,26496,2)
 ;;=^5015575
 ;;^UTILITY(U,$J,358.3,26497,0)
 ;;=N28.86^^107^1245^14
 ;;^UTILITY(U,$J,358.3,26497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26497,1,3,0)
 ;;=3^Ureteritis Cystica
 ;;^UTILITY(U,$J,358.3,26497,1,4,0)
 ;;=4^N28.86
 ;;^UTILITY(U,$J,358.3,26497,2)
 ;;=^5015629
 ;;^UTILITY(U,$J,358.3,26498,0)
 ;;=A08.0^^107^1246^6
 ;;^UTILITY(U,$J,358.3,26498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26498,1,3,0)
 ;;=3^Enteritis,Rotaviral
 ;;^UTILITY(U,$J,358.3,26498,1,4,0)
 ;;=4^A08.0
 ;;^UTILITY(U,$J,358.3,26498,2)
 ;;=^5000052
 ;;^UTILITY(U,$J,358.3,26499,0)
 ;;=A08.11^^107^1246^1
 ;;^UTILITY(U,$J,358.3,26499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26499,1,3,0)
 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
 ;;^UTILITY(U,$J,358.3,26499,1,4,0)
 ;;=4^A08.11
 ;;^UTILITY(U,$J,358.3,26499,2)
 ;;=^5000053
 ;;^UTILITY(U,$J,358.3,26500,0)
 ;;=A08.19^^107^1246^2
 ;;^UTILITY(U,$J,358.3,26500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26500,1,3,0)
 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
 ;;^UTILITY(U,$J,358.3,26500,1,4,0)
 ;;=4^A08.19
 ;;^UTILITY(U,$J,358.3,26500,2)
 ;;=^5000054
 ;;^UTILITY(U,$J,358.3,26501,0)
 ;;=A08.2^^107^1246^3