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

IBDEI2L9.m

Go to the documentation of this file.
  1. IBDEI2L9 ; ; 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,41312,2)
  1. ;;=^5015570
  1. ;;^UTILITY(U,$J,358.3,41313,0)
  1. ;;=N11.9^^152^2034^4
  1. ;;^UTILITY(U,$J,358.3,41313,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41313,1,3,0)
  1. ;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
  1. ;;^UTILITY(U,$J,358.3,41313,1,4,0)
  1. ;;=4^N11.9
  1. ;;^UTILITY(U,$J,358.3,41313,2)
  1. ;;=^5015574
  1. ;;^UTILITY(U,$J,358.3,41314,0)
  1. ;;=N30.91^^152^2034^5
  1. ;;^UTILITY(U,$J,358.3,41314,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41314,1,3,0)
  1. ;;=3^Cystitis,Unspec w/ Hematuria
  1. ;;^UTILITY(U,$J,358.3,41314,1,4,0)
  1. ;;=4^N30.91
  1. ;;^UTILITY(U,$J,358.3,41314,2)
  1. ;;=^5015643
  1. ;;^UTILITY(U,$J,358.3,41315,0)
  1. ;;=N30.90^^152^2034^6
  1. ;;^UTILITY(U,$J,358.3,41315,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41315,1,3,0)
  1. ;;=3^Cystitis,Unspec w/o Hematuria
  1. ;;^UTILITY(U,$J,358.3,41315,1,4,0)
  1. ;;=4^N30.90
  1. ;;^UTILITY(U,$J,358.3,41315,2)
  1. ;;=^5015642
  1. ;;^UTILITY(U,$J,358.3,41316,0)
  1. ;;=N28.84^^152^2034^7
  1. ;;^UTILITY(U,$J,358.3,41316,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41316,1,3,0)
  1. ;;=3^Pyelitis Cystica
  1. ;;^UTILITY(U,$J,358.3,41316,1,4,0)
  1. ;;=4^N28.84
  1. ;;^UTILITY(U,$J,358.3,41316,2)
  1. ;;=^5015628
  1. ;;^UTILITY(U,$J,358.3,41317,0)
  1. ;;=N28.85^^152^2034^8
  1. ;;^UTILITY(U,$J,358.3,41317,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41317,1,3,0)
  1. ;;=3^Pyeloureteritis Cystica
  1. ;;^UTILITY(U,$J,358.3,41317,1,4,0)
  1. ;;=4^N28.85
  1. ;;^UTILITY(U,$J,358.3,41317,2)
  1. ;;=^270372
  1. ;;^UTILITY(U,$J,358.3,41318,0)
  1. ;;=N15.1^^152^2034^9
  1. ;;^UTILITY(U,$J,358.3,41318,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41318,1,3,0)
  1. ;;=3^Renal & Perinephric Abscess
  1. ;;^UTILITY(U,$J,358.3,41318,1,4,0)
  1. ;;=4^N15.1
  1. ;;^UTILITY(U,$J,358.3,41318,2)
  1. ;;=^270371
  1. ;;^UTILITY(U,$J,358.3,41319,0)
  1. ;;=N16.^^152^2034^10
  1. ;;^UTILITY(U,$J,358.3,41319,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41319,1,3,0)
  1. ;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
  1. ;;^UTILITY(U,$J,358.3,41319,1,4,0)
  1. ;;=4^N16.
  1. ;;^UTILITY(U,$J,358.3,41319,2)
  1. ;;=^5015597
  1. ;;^UTILITY(U,$J,358.3,41320,0)
  1. ;;=N15.9^^152^2034^11
  1. ;;^UTILITY(U,$J,358.3,41320,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41320,1,3,0)
  1. ;;=3^Tubulo-Interstitial Disease,Unspec
  1. ;;^UTILITY(U,$J,358.3,41320,1,4,0)
  1. ;;=4^N15.9
  1. ;;^UTILITY(U,$J,358.3,41320,2)
  1. ;;=^5015596
  1. ;;^UTILITY(U,$J,358.3,41321,0)
  1. ;;=N12.^^152^2034^12
  1. ;;^UTILITY(U,$J,358.3,41321,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41321,1,3,0)
  1. ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
  1. ;;^UTILITY(U,$J,358.3,41321,1,4,0)
  1. ;;=4^N12.
  1. ;;^UTILITY(U,$J,358.3,41321,2)
  1. ;;=^5015575
  1. ;;^UTILITY(U,$J,358.3,41322,0)
  1. ;;=N28.86^^152^2034^14
  1. ;;^UTILITY(U,$J,358.3,41322,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41322,1,3,0)
  1. ;;=3^Ureteritis Cystica
  1. ;;^UTILITY(U,$J,358.3,41322,1,4,0)
  1. ;;=4^N28.86
  1. ;;^UTILITY(U,$J,358.3,41322,2)
  1. ;;=^5015629
  1. ;;^UTILITY(U,$J,358.3,41323,0)
  1. ;;=A08.0^^152^2035^6
  1. ;;^UTILITY(U,$J,358.3,41323,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41323,1,3,0)
  1. ;;=3^Enteritis,Rotaviral
  1. ;;^UTILITY(U,$J,358.3,41323,1,4,0)
  1. ;;=4^A08.0
  1. ;;^UTILITY(U,$J,358.3,41323,2)
  1. ;;=^5000052
  1. ;;^UTILITY(U,$J,358.3,41324,0)
  1. ;;=A08.11^^152^2035^1
  1. ;;^UTILITY(U,$J,358.3,41324,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41324,1,3,0)
  1. ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
  1. ;;^UTILITY(U,$J,358.3,41324,1,4,0)
  1. ;;=4^A08.11
  1. ;;^UTILITY(U,$J,358.3,41324,2)
  1. ;;=^5000053
  1. ;;^UTILITY(U,$J,358.3,41325,0)
  1. ;;=A08.19^^152^2035^2