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

IBDEI39U.m

Go to the documentation of this file.
IBDEI39U ; ; 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,52213,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52213,1,3,0)
 ;;=3^Exercised Induced Bronchospasm
 ;;^UTILITY(U,$J,358.3,52213,1,4,0)
 ;;=4^J45.990
 ;;^UTILITY(U,$J,358.3,52213,2)
 ;;=^329926
 ;;^UTILITY(U,$J,358.3,52214,0)
 ;;=J45.998^^193^2523^11
 ;;^UTILITY(U,$J,358.3,52214,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52214,1,3,0)
 ;;=3^Asthma,Other
 ;;^UTILITY(U,$J,358.3,52214,1,4,0)
 ;;=4^J45.998
 ;;^UTILITY(U,$J,358.3,52214,2)
 ;;=^5008257
 ;;^UTILITY(U,$J,358.3,52215,0)
 ;;=J45.991^^193^2523^25
 ;;^UTILITY(U,$J,358.3,52215,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52215,1,3,0)
 ;;=3^Cough Variant Asthma
 ;;^UTILITY(U,$J,358.3,52215,1,4,0)
 ;;=4^J45.991
 ;;^UTILITY(U,$J,358.3,52215,2)
 ;;=^329927
 ;;^UTILITY(U,$J,358.3,52216,0)
 ;;=I50.1^^193^2524^14
 ;;^UTILITY(U,$J,358.3,52216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52216,1,3,0)
 ;;=3^Left Ventricular Failure
 ;;^UTILITY(U,$J,358.3,52216,1,4,0)
 ;;=4^I50.1
 ;;^UTILITY(U,$J,358.3,52216,2)
 ;;=^5007238
 ;;^UTILITY(U,$J,358.3,52217,0)
 ;;=I50.20^^193^2524^12
 ;;^UTILITY(U,$J,358.3,52217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52217,1,3,0)
 ;;=3^Heart Failure,Systolic,Unspec
 ;;^UTILITY(U,$J,358.3,52217,1,4,0)
 ;;=4^I50.20
 ;;^UTILITY(U,$J,358.3,52217,2)
 ;;=^5007239
 ;;^UTILITY(U,$J,358.3,52218,0)
 ;;=I50.21^^193^2524^9
 ;;^UTILITY(U,$J,358.3,52218,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52218,1,3,0)
 ;;=3^Heart Failure,Systolic,Acute
 ;;^UTILITY(U,$J,358.3,52218,1,4,0)
 ;;=4^I50.21
 ;;^UTILITY(U,$J,358.3,52218,2)
 ;;=^5007240
 ;;^UTILITY(U,$J,358.3,52219,0)
 ;;=I50.22^^193^2524^11
 ;;^UTILITY(U,$J,358.3,52219,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52219,1,3,0)
 ;;=3^Heart Failure,Systolic,Chronic
 ;;^UTILITY(U,$J,358.3,52219,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,52219,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,52220,0)
 ;;=I50.23^^193^2524^10
 ;;^UTILITY(U,$J,358.3,52220,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52220,1,3,0)
 ;;=3^Heart Failure,Systolic,Acute on Chronic
 ;;^UTILITY(U,$J,358.3,52220,1,4,0)
 ;;=4^I50.23
 ;;^UTILITY(U,$J,358.3,52220,2)
 ;;=^5007242
 ;;^UTILITY(U,$J,358.3,52221,0)
 ;;=I50.30^^193^2524^4
 ;;^UTILITY(U,$J,358.3,52221,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52221,1,3,0)
 ;;=3^Heart Failure,Diastolic,Unspec
 ;;^UTILITY(U,$J,358.3,52221,1,4,0)
 ;;=4^I50.30
 ;;^UTILITY(U,$J,358.3,52221,2)
 ;;=^5007243
 ;;^UTILITY(U,$J,358.3,52222,0)
 ;;=I50.31^^193^2524^1
 ;;^UTILITY(U,$J,358.3,52222,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52222,1,3,0)
 ;;=3^Heart Failure,Diastolic,Acute
 ;;^UTILITY(U,$J,358.3,52222,1,4,0)
 ;;=4^I50.31
 ;;^UTILITY(U,$J,358.3,52222,2)
 ;;=^5007244
 ;;^UTILITY(U,$J,358.3,52223,0)
 ;;=I50.32^^193^2524^3
 ;;^UTILITY(U,$J,358.3,52223,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52223,1,3,0)
 ;;=3^Heart Failure,Diastolic,Chronic
 ;;^UTILITY(U,$J,358.3,52223,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,52223,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,52224,0)
 ;;=I50.33^^193^2524^2
 ;;^UTILITY(U,$J,358.3,52224,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52224,1,3,0)
 ;;=3^Heart Failure,Diastolic,Acute on Chronic
 ;;^UTILITY(U,$J,358.3,52224,1,4,0)
 ;;=4^I50.33
 ;;^UTILITY(U,$J,358.3,52224,2)
 ;;=^5007246
 ;;^UTILITY(U,$J,358.3,52225,0)
 ;;=I50.40^^193^2524^8
 ;;^UTILITY(U,$J,358.3,52225,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,52225,1,3,0)
 ;;=3^Heart Failure,Systolic & Diastolic,Unspec