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

IBDEI336.m

Go to the documentation of this file.
IBDEI336 ; ; 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,49281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49281,1,3,0)
 ;;=3^Acute Kidney Failure,Unspec
 ;;^UTILITY(U,$J,358.3,49281,1,4,0)
 ;;=4^N17.9
 ;;^UTILITY(U,$J,358.3,49281,2)
 ;;=^338532
 ;;^UTILITY(U,$J,358.3,49282,0)
 ;;=N18.1^^187^2443^2
 ;;^UTILITY(U,$J,358.3,49282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49282,1,3,0)
 ;;=3^Chronic Kidney Disease,Stage 1
 ;;^UTILITY(U,$J,358.3,49282,1,4,0)
 ;;=4^N18.1
 ;;^UTILITY(U,$J,358.3,49282,2)
 ;;=^5015602
 ;;^UTILITY(U,$J,358.3,49283,0)
 ;;=N18.2^^187^2443^3
 ;;^UTILITY(U,$J,358.3,49283,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49283,1,3,0)
 ;;=3^Chronic Kidney Disease,Stage 2
 ;;^UTILITY(U,$J,358.3,49283,1,4,0)
 ;;=4^N18.2
 ;;^UTILITY(U,$J,358.3,49283,2)
 ;;=^5015603
 ;;^UTILITY(U,$J,358.3,49284,0)
 ;;=N18.9^^187^2443^7
 ;;^UTILITY(U,$J,358.3,49284,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49284,1,3,0)
 ;;=3^Chronic Kidney Disease,Unspec
 ;;^UTILITY(U,$J,358.3,49284,1,4,0)
 ;;=4^N18.9
 ;;^UTILITY(U,$J,358.3,49284,2)
 ;;=^332812
 ;;^UTILITY(U,$J,358.3,49285,0)
 ;;=J44.9^^187^2444^31
 ;;^UTILITY(U,$J,358.3,49285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49285,1,3,0)
 ;;=3^COPD,Unspec
 ;;^UTILITY(U,$J,358.3,49285,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,49285,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,49286,0)
 ;;=J96.00^^187^2444^9
 ;;^UTILITY(U,$J,358.3,49286,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49286,1,3,0)
 ;;=3^Acute Resp Failure
 ;;^UTILITY(U,$J,358.3,49286,1,4,0)
 ;;=4^J96.00
 ;;^UTILITY(U,$J,358.3,49286,2)
 ;;=^5008347
 ;;^UTILITY(U,$J,358.3,49287,0)
 ;;=J96.90^^187^2444^49
 ;;^UTILITY(U,$J,358.3,49287,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49287,1,3,0)
 ;;=3^Respiratory Failure,Unspec
 ;;^UTILITY(U,$J,358.3,49287,1,4,0)
 ;;=4^J96.90
 ;;^UTILITY(U,$J,358.3,49287,2)
 ;;=^5008356
 ;;^UTILITY(U,$J,358.3,49288,0)
 ;;=J43.9^^187^2444^37
 ;;^UTILITY(U,$J,358.3,49288,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49288,1,3,0)
 ;;=3^Emphysema,Unspec
 ;;^UTILITY(U,$J,358.3,49288,1,4,0)
 ;;=4^J43.9
 ;;^UTILITY(U,$J,358.3,49288,2)
 ;;=^5008238
 ;;^UTILITY(U,$J,358.3,49289,0)
 ;;=J96.20^^187^2444^3
 ;;^UTILITY(U,$J,358.3,49289,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49289,1,3,0)
 ;;=3^Ac/Chr Resp Failure,Unspec
 ;;^UTILITY(U,$J,358.3,49289,1,4,0)
 ;;=4^J96.20
 ;;^UTILITY(U,$J,358.3,49289,2)
 ;;=^5008353
 ;;^UTILITY(U,$J,358.3,49290,0)
 ;;=J69.0^^187^2444^42
 ;;^UTILITY(U,$J,358.3,49290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49290,1,3,0)
 ;;=3^Pneumonitis d/t Inhalation Food/Vomit
 ;;^UTILITY(U,$J,358.3,49290,1,4,0)
 ;;=4^J69.0
 ;;^UTILITY(U,$J,358.3,49290,2)
 ;;=^5008288
 ;;^UTILITY(U,$J,358.3,49291,0)
 ;;=J98.9^^187^2444^48
 ;;^UTILITY(U,$J,358.3,49291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49291,1,3,0)
 ;;=3^Respiratory Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,49291,1,4,0)
 ;;=4^J98.9
 ;;^UTILITY(U,$J,358.3,49291,2)
 ;;=^5008366
 ;;^UTILITY(U,$J,358.3,49292,0)
 ;;=J91.8^^187^2444^41
 ;;^UTILITY(U,$J,358.3,49292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49292,1,3,0)
 ;;=3^Pleur Effus,Oth Cond Class Elsewhere
 ;;^UTILITY(U,$J,358.3,49292,1,4,0)
 ;;=4^J91.8
 ;;^UTILITY(U,$J,358.3,49292,2)
 ;;=^5008311
 ;;^UTILITY(U,$J,358.3,49293,0)
 ;;=J84.10^^187^2444^46
 ;;^UTILITY(U,$J,358.3,49293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49293,1,3,0)
 ;;=3^Pulmonary Fibrosis,Unspec
 ;;^UTILITY(U,$J,358.3,49293,1,4,0)
 ;;=4^J84.10