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

IBDEI2J3.m

Go to the documentation of this file.
IBDEI2J3 ; ; 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,40369,2)
 ;;=^5008234
 ;;^UTILITY(U,$J,358.3,40370,0)
 ;;=J43.9^^152^2010^22
 ;;^UTILITY(U,$J,358.3,40370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40370,1,3,0)
 ;;=3^Emphysema,Unspec
 ;;^UTILITY(U,$J,358.3,40370,1,4,0)
 ;;=4^J43.9
 ;;^UTILITY(U,$J,358.3,40370,2)
 ;;=^5008238
 ;;^UTILITY(U,$J,358.3,40371,0)
 ;;=J43.0^^152^2010^30
 ;;^UTILITY(U,$J,358.3,40371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40371,1,3,0)
 ;;=3^MacLeod's Syndrome
 ;;^UTILITY(U,$J,358.3,40371,1,4,0)
 ;;=4^J43.0
 ;;^UTILITY(U,$J,358.3,40371,2)
 ;;=^5008235
 ;;^UTILITY(U,$J,358.3,40372,0)
 ;;=J43.1^^152^2010^21
 ;;^UTILITY(U,$J,358.3,40372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40372,1,3,0)
 ;;=3^Emphysema,Panlobular
 ;;^UTILITY(U,$J,358.3,40372,1,4,0)
 ;;=4^J43.1
 ;;^UTILITY(U,$J,358.3,40372,2)
 ;;=^5008236
 ;;^UTILITY(U,$J,358.3,40373,0)
 ;;=J43.2^^152^2010^19
 ;;^UTILITY(U,$J,358.3,40373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40373,1,3,0)
 ;;=3^Emphysema,Centrilobular
 ;;^UTILITY(U,$J,358.3,40373,1,4,0)
 ;;=4^J43.2
 ;;^UTILITY(U,$J,358.3,40373,2)
 ;;=^5008237
 ;;^UTILITY(U,$J,358.3,40374,0)
 ;;=J43.8^^152^2010^20
 ;;^UTILITY(U,$J,358.3,40374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40374,1,3,0)
 ;;=3^Emphysema,Other
 ;;^UTILITY(U,$J,358.3,40374,1,4,0)
 ;;=4^J43.8
 ;;^UTILITY(U,$J,358.3,40374,2)
 ;;=^87569
 ;;^UTILITY(U,$J,358.3,40375,0)
 ;;=J45.902^^152^2010^4
 ;;^UTILITY(U,$J,358.3,40375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40375,1,3,0)
 ;;=3^Asthma w/ Status Asthmaticus,Unspec
 ;;^UTILITY(U,$J,358.3,40375,1,4,0)
 ;;=4^J45.902
 ;;^UTILITY(U,$J,358.3,40375,2)
 ;;=^5008255
 ;;^UTILITY(U,$J,358.3,40376,0)
 ;;=J45.901^^152^2010^3
 ;;^UTILITY(U,$J,358.3,40376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40376,1,3,0)
 ;;=3^Asthma w/ Acute Exacerbation,Unspec
 ;;^UTILITY(U,$J,358.3,40376,1,4,0)
 ;;=4^J45.901
 ;;^UTILITY(U,$J,358.3,40376,2)
 ;;=^5008254
 ;;^UTILITY(U,$J,358.3,40377,0)
 ;;=J47.9^^152^2010^9
 ;;^UTILITY(U,$J,358.3,40377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40377,1,3,0)
 ;;=3^Bronchiectasis,Uncomplicated
 ;;^UTILITY(U,$J,358.3,40377,1,4,0)
 ;;=4^J47.9
 ;;^UTILITY(U,$J,358.3,40377,2)
 ;;=^5008260
 ;;^UTILITY(U,$J,358.3,40378,0)
 ;;=J47.1^^152^2010^7
 ;;^UTILITY(U,$J,358.3,40378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40378,1,3,0)
 ;;=3^Bronchiectasis w/ Acute Exacerbation
 ;;^UTILITY(U,$J,358.3,40378,1,4,0)
 ;;=4^J47.1
 ;;^UTILITY(U,$J,358.3,40378,2)
 ;;=^5008259
 ;;^UTILITY(U,$J,358.3,40379,0)
 ;;=J47.0^^152^2010^8
 ;;^UTILITY(U,$J,358.3,40379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40379,1,3,0)
 ;;=3^Bronchiectasis w/ Acute Lower Respiratory Infection
 ;;^UTILITY(U,$J,358.3,40379,1,4,0)
 ;;=4^J47.0
 ;;^UTILITY(U,$J,358.3,40379,2)
 ;;=^5008258
 ;;^UTILITY(U,$J,358.3,40380,0)
 ;;=R09.1^^152^2010^37
 ;;^UTILITY(U,$J,358.3,40380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40380,1,3,0)
 ;;=3^Pleurisy
 ;;^UTILITY(U,$J,358.3,40380,1,4,0)
 ;;=4^R09.1
 ;;^UTILITY(U,$J,358.3,40380,2)
 ;;=^95428
 ;;^UTILITY(U,$J,358.3,40381,0)
 ;;=J94.9^^152^2010^33
 ;;^UTILITY(U,$J,358.3,40381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40381,1,3,0)
 ;;=3^Pleural Condition,Unspec
 ;;^UTILITY(U,$J,358.3,40381,1,4,0)
 ;;=4^J94.9
 ;;^UTILITY(U,$J,358.3,40381,2)
 ;;=^5008320
 ;;^UTILITY(U,$J,358.3,40382,0)
 ;;=J92.9^^152^2010^36
 ;;^UTILITY(U,$J,358.3,40382,1,0)
 ;;=^358.31IA^4^2