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

IBDEI33U.m

Go to the documentation of this file.
IBDEI33U ; ; 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,49588,2)
 ;;=^5015603
 ;;^UTILITY(U,$J,358.3,49589,0)
 ;;=N18.9^^191^2473^7
 ;;^UTILITY(U,$J,358.3,49589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49589,1,3,0)
 ;;=3^Chronic Kidney Disease,Unspec
 ;;^UTILITY(U,$J,358.3,49589,1,4,0)
 ;;=4^N18.9
 ;;^UTILITY(U,$J,358.3,49589,2)
 ;;=^332812
 ;;^UTILITY(U,$J,358.3,49590,0)
 ;;=J44.9^^191^2474^31
 ;;^UTILITY(U,$J,358.3,49590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49590,1,3,0)
 ;;=3^COPD,Unspec
 ;;^UTILITY(U,$J,358.3,49590,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,49590,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,49591,0)
 ;;=J96.00^^191^2474^9
 ;;^UTILITY(U,$J,358.3,49591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49591,1,3,0)
 ;;=3^Acute Resp Failure
 ;;^UTILITY(U,$J,358.3,49591,1,4,0)
 ;;=4^J96.00
 ;;^UTILITY(U,$J,358.3,49591,2)
 ;;=^5008347
 ;;^UTILITY(U,$J,358.3,49592,0)
 ;;=J96.90^^191^2474^49
 ;;^UTILITY(U,$J,358.3,49592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49592,1,3,0)
 ;;=3^Respiratory Failure,Unspec
 ;;^UTILITY(U,$J,358.3,49592,1,4,0)
 ;;=4^J96.90
 ;;^UTILITY(U,$J,358.3,49592,2)
 ;;=^5008356
 ;;^UTILITY(U,$J,358.3,49593,0)
 ;;=J43.9^^191^2474^37
 ;;^UTILITY(U,$J,358.3,49593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49593,1,3,0)
 ;;=3^Emphysema,Unspec
 ;;^UTILITY(U,$J,358.3,49593,1,4,0)
 ;;=4^J43.9
 ;;^UTILITY(U,$J,358.3,49593,2)
 ;;=^5008238
 ;;^UTILITY(U,$J,358.3,49594,0)
 ;;=J96.20^^191^2474^3
 ;;^UTILITY(U,$J,358.3,49594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49594,1,3,0)
 ;;=3^Ac/Chr Resp Failure,Unspec
 ;;^UTILITY(U,$J,358.3,49594,1,4,0)
 ;;=4^J96.20
 ;;^UTILITY(U,$J,358.3,49594,2)
 ;;=^5008353
 ;;^UTILITY(U,$J,358.3,49595,0)
 ;;=J69.0^^191^2474^42
 ;;^UTILITY(U,$J,358.3,49595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49595,1,3,0)
 ;;=3^Pneumonitis d/t Inhalation Food/Vomit
 ;;^UTILITY(U,$J,358.3,49595,1,4,0)
 ;;=4^J69.0
 ;;^UTILITY(U,$J,358.3,49595,2)
 ;;=^5008288
 ;;^UTILITY(U,$J,358.3,49596,0)
 ;;=J98.9^^191^2474^48
 ;;^UTILITY(U,$J,358.3,49596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49596,1,3,0)
 ;;=3^Respiratory Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,49596,1,4,0)
 ;;=4^J98.9
 ;;^UTILITY(U,$J,358.3,49596,2)
 ;;=^5008366
 ;;^UTILITY(U,$J,358.3,49597,0)
 ;;=J91.8^^191^2474^41
 ;;^UTILITY(U,$J,358.3,49597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49597,1,3,0)
 ;;=3^Pleur Effus,Oth Cond Class Elsewhere
 ;;^UTILITY(U,$J,358.3,49597,1,4,0)
 ;;=4^J91.8
 ;;^UTILITY(U,$J,358.3,49597,2)
 ;;=^5008311
 ;;^UTILITY(U,$J,358.3,49598,0)
 ;;=J84.10^^191^2474^46
 ;;^UTILITY(U,$J,358.3,49598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49598,1,3,0)
 ;;=3^Pulmonary Fibrosis,Unspec
 ;;^UTILITY(U,$J,358.3,49598,1,4,0)
 ;;=4^J84.10
 ;;^UTILITY(U,$J,358.3,49598,2)
 ;;=^5008300
 ;;^UTILITY(U,$J,358.3,49599,0)
 ;;=R22.2^^191^2474^54
 ;;^UTILITY(U,$J,358.3,49599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49599,1,3,0)
 ;;=3^Swelling,Mass & Lump,Trunk
 ;;^UTILITY(U,$J,358.3,49599,1,4,0)
 ;;=4^R22.2
 ;;^UTILITY(U,$J,358.3,49599,2)
 ;;=^5019286
 ;;^UTILITY(U,$J,358.3,49600,0)
 ;;=R06.02^^191^2474^52
 ;;^UTILITY(U,$J,358.3,49600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49600,1,3,0)
 ;;=3^Shortness of Breath
 ;;^UTILITY(U,$J,358.3,49600,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,49600,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,49601,0)
 ;;=J96.10^^191^2474^33
 ;;^UTILITY(U,$J,358.3,49601,1,0)
 ;;=^358.31IA^4^2