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

IBDEI00S.m

Go to the documentation of this file.
IBDEI00S ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2021
 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,1289,1,4,0)
 ;;=4^K91.31
 ;;^UTILITY(U,$J,358.3,1289,2)
 ;;=^5151428
 ;;^UTILITY(U,$J,358.3,1290,0)
 ;;=K91.32^^16^88^20
 ;;^UTILITY(U,$J,358.3,1290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1290,1,3,0)
 ;;=3^Postproc Intestinal Obstr,Compl
 ;;^UTILITY(U,$J,358.3,1290,1,4,0)
 ;;=4^K91.32
 ;;^UTILITY(U,$J,358.3,1290,2)
 ;;=^5151429
 ;;^UTILITY(U,$J,358.3,1291,0)
 ;;=T81.40XA^^16^88^16
 ;;^UTILITY(U,$J,358.3,1291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1291,1,3,0)
 ;;=3^Infect Following Proced,Unspec,Init
 ;;^UTILITY(U,$J,358.3,1291,1,4,0)
 ;;=4^T81.40XA
 ;;^UTILITY(U,$J,358.3,1291,2)
 ;;=^5157584
 ;;^UTILITY(U,$J,358.3,1292,0)
 ;;=T81.40XD^^16^88^17
 ;;^UTILITY(U,$J,358.3,1292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1292,1,3,0)
 ;;=3^Infect Following Proced,Unspec,Subs
 ;;^UTILITY(U,$J,358.3,1292,1,4,0)
 ;;=4^T81.40XD
 ;;^UTILITY(U,$J,358.3,1292,2)
 ;;=^5157585
 ;;^UTILITY(U,$J,358.3,1293,0)
 ;;=T81.40XS^^16^88^18
 ;;^UTILITY(U,$J,358.3,1293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1293,1,3,0)
 ;;=3^Infect Following Proced,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,1293,1,4,0)
 ;;=4^T81.40XS
 ;;^UTILITY(U,$J,358.3,1293,2)
 ;;=^5157586
 ;;^UTILITY(U,$J,358.3,1294,0)
 ;;=T81.41XA^^16^88^13
 ;;^UTILITY(U,$J,358.3,1294,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1294,1,3,0)
 ;;=3^Infect Following Proced,Superfic Incis Surg Site,Init
 ;;^UTILITY(U,$J,358.3,1294,1,4,0)
 ;;=4^T81.41XA
 ;;^UTILITY(U,$J,358.3,1294,2)
 ;;=^5157587
 ;;^UTILITY(U,$J,358.3,1295,0)
 ;;=T81.41XD^^16^88^14
 ;;^UTILITY(U,$J,358.3,1295,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1295,1,3,0)
 ;;=3^Infect Following Proced,Superfic Incis Surg Site,Subs
 ;;^UTILITY(U,$J,358.3,1295,1,4,0)
 ;;=4^T81.41XD
 ;;^UTILITY(U,$J,358.3,1295,2)
 ;;=^5157588
 ;;^UTILITY(U,$J,358.3,1296,0)
 ;;=T81.41XS^^16^88^15
 ;;^UTILITY(U,$J,358.3,1296,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1296,1,3,0)
 ;;=3^Infect Following Proced,Superfic Incis Surg Site,Sequela
 ;;^UTILITY(U,$J,358.3,1296,1,4,0)
 ;;=4^T81.41XS
 ;;^UTILITY(U,$J,358.3,1296,2)
 ;;=^5157589
 ;;^UTILITY(U,$J,358.3,1297,0)
 ;;=T81.42XA^^16^88^4
 ;;^UTILITY(U,$J,358.3,1297,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1297,1,3,0)
 ;;=3^Infect Following Proced,Deep Incis Surg Site,Init
 ;;^UTILITY(U,$J,358.3,1297,1,4,0)
 ;;=4^T81.42XA
 ;;^UTILITY(U,$J,358.3,1297,2)
 ;;=^5157590
 ;;^UTILITY(U,$J,358.3,1298,0)
 ;;=T81.42XD^^16^88^5
 ;;^UTILITY(U,$J,358.3,1298,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1298,1,3,0)
 ;;=3^Infect Following Proced,Deep Incis Surg Site,Subs
 ;;^UTILITY(U,$J,358.3,1298,1,4,0)
 ;;=4^T81.42XD
 ;;^UTILITY(U,$J,358.3,1298,2)
 ;;=^5157591
 ;;^UTILITY(U,$J,358.3,1299,0)
 ;;=T81.42XS^^16^88^6
 ;;^UTILITY(U,$J,358.3,1299,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1299,1,3,0)
 ;;=3^Infect Following Proced,Deep Incis Surg Site,Sequela
 ;;^UTILITY(U,$J,358.3,1299,1,4,0)
 ;;=4^T81.42XS
 ;;^UTILITY(U,$J,358.3,1299,2)
 ;;=^5157592
 ;;^UTILITY(U,$J,358.3,1300,0)
 ;;=T81.43XA^^16^88^7
 ;;^UTILITY(U,$J,358.3,1300,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1300,1,3,0)
 ;;=3^Infect Following Proced,Organ/Space Surg Site,Init
 ;;^UTILITY(U,$J,358.3,1300,1,4,0)
 ;;=4^T81.43XA
 ;;^UTILITY(U,$J,358.3,1300,2)
 ;;=^5157593
 ;;^UTILITY(U,$J,358.3,1301,0)
 ;;=T81.43XD^^16^88^8
 ;;^UTILITY(U,$J,358.3,1301,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1301,1,3,0)
 ;;=3^Infect Following Proced,Organ/Space Surg Site,Subs
 ;;^UTILITY(U,$J,358.3,1301,1,4,0)
 ;;=4^T81.43XD
 ;;^UTILITY(U,$J,358.3,1301,2)
 ;;=^5157594
 ;;^UTILITY(U,$J,358.3,1302,0)
 ;;=T81.43XS^^16^88^9
 ;;^UTILITY(U,$J,358.3,1302,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1302,1,3,0)
 ;;=3^Infect Following Proced,Organ/Space Surg Site,Sequela
 ;;^UTILITY(U,$J,358.3,1302,1,4,0)
 ;;=4^T81.43XS
 ;;^UTILITY(U,$J,358.3,1302,2)
 ;;=^5157595
 ;;^UTILITY(U,$J,358.3,1303,0)
 ;;=T81.49XA^^16^88^10
 ;;^UTILITY(U,$J,358.3,1303,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1303,1,3,0)
 ;;=3^Infect Following Proced,Oth Surg Site,Init
 ;;^UTILITY(U,$J,358.3,1303,1,4,0)
 ;;=4^T81.49XA
 ;;^UTILITY(U,$J,358.3,1303,2)
 ;;=^5157599
 ;;^UTILITY(U,$J,358.3,1304,0)
 ;;=T81.49XD^^16^88^11
 ;;^UTILITY(U,$J,358.3,1304,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1304,1,3,0)
 ;;=3^Infect Following Proced,Oth Surg Site,Subs
 ;;^UTILITY(U,$J,358.3,1304,1,4,0)
 ;;=4^T81.49XD
 ;;^UTILITY(U,$J,358.3,1304,2)
 ;;=^5157600
 ;;^UTILITY(U,$J,358.3,1305,0)
 ;;=T81.49XS^^16^88^12
 ;;^UTILITY(U,$J,358.3,1305,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1305,1,3,0)
 ;;=3^Infect Following Proced,Oth Surg Site,Sequela
 ;;^UTILITY(U,$J,358.3,1305,1,4,0)
 ;;=4^T81.49XS
 ;;^UTILITY(U,$J,358.3,1305,2)
 ;;=^5157601
 ;;^UTILITY(U,$J,358.3,1306,0)
 ;;=I25.10^^16^89^1
 ;;^UTILITY(U,$J,358.3,1306,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1306,1,3,0)
 ;;=3^Athscl Hrt Dis,NTV Cor Art w/o AP
 ;;^UTILITY(U,$J,358.3,1306,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,1306,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,1307,0)
 ;;=I50.9^^16^89^21
 ;;^UTILITY(U,$J,358.3,1307,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1307,1,3,0)
 ;;=3^Heart Failure,Unspec
 ;;^UTILITY(U,$J,358.3,1307,1,4,0)
 ;;=4^I50.9
 ;;^UTILITY(U,$J,358.3,1307,2)
 ;;=^5007251
 ;;^UTILITY(U,$J,358.3,1308,0)
 ;;=I65.21^^16^89^25
 ;;^UTILITY(U,$J,358.3,1308,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1308,1,3,0)
 ;;=3^Occl/Stenosis,Right Carotid Artery
 ;;^UTILITY(U,$J,358.3,1308,1,4,0)
 ;;=4^I65.21
 ;;^UTILITY(U,$J,358.3,1308,2)
 ;;=^5007360
 ;;^UTILITY(U,$J,358.3,1309,0)
 ;;=I65.22^^16^89^23
 ;;^UTILITY(U,$J,358.3,1309,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1309,1,3,0)
 ;;=3^Occl/Stenosis,Left Carotid Artery
 ;;^UTILITY(U,$J,358.3,1309,1,4,0)
 ;;=4^I65.22
 ;;^UTILITY(U,$J,358.3,1309,2)
 ;;=^5007361
 ;;^UTILITY(U,$J,358.3,1310,0)
 ;;=I70.219^^16^89^2
 ;;^UTILITY(U,$J,358.3,1310,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1310,1,3,0)
 ;;=3^Athscl NTV Art,Extrm w/ Intrmt Claud,Unsp Extrm
 ;;^UTILITY(U,$J,358.3,1310,1,4,0)
 ;;=4^I70.219
 ;;^UTILITY(U,$J,358.3,1310,2)
 ;;=^5007582
 ;;^UTILITY(U,$J,358.3,1311,0)
 ;;=I73.9^^16^89^26
 ;;^UTILITY(U,$J,358.3,1311,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1311,1,3,0)
 ;;=3^Peripheral Vasc Disease,Unspec
 ;;^UTILITY(U,$J,358.3,1311,1,4,0)
 ;;=4^I73.9
 ;;^UTILITY(U,$J,358.3,1311,2)
 ;;=^184182
 ;;^UTILITY(U,$J,358.3,1312,0)
 ;;=I65.23^^16^89^22
 ;;^UTILITY(U,$J,358.3,1312,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1312,1,3,0)
 ;;=3^Occl/Stenosis,Bilat Carotid Arteries
 ;;^UTILITY(U,$J,358.3,1312,1,4,0)
 ;;=4^I65.23
 ;;^UTILITY(U,$J,358.3,1312,2)
 ;;=^5007362
 ;;^UTILITY(U,$J,358.3,1313,0)
 ;;=I65.8^^16^89^24
 ;;^UTILITY(U,$J,358.3,1313,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1313,1,3,0)
 ;;=3^Occl/Stenosis,Precerebral Arteries NEC
 ;;^UTILITY(U,$J,358.3,1313,1,4,0)
 ;;=4^I65.8
 ;;^UTILITY(U,$J,358.3,1313,2)
 ;;=^5007364
 ;;^UTILITY(U,$J,358.3,1314,0)
 ;;=Z13.6^^16^89^27
 ;;^UTILITY(U,$J,358.3,1314,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1314,1,3,0)
 ;;=3^Screening for cardiovascular disorders
 ;;^UTILITY(U,$J,358.3,1314,1,4,0)
 ;;=4^Z13.6
 ;;^UTILITY(U,$J,358.3,1314,2)
 ;;=^5062707
 ;;^UTILITY(U,$J,358.3,1315,0)
 ;;=I50.810^^16^89^16
 ;;^UTILITY(U,$J,358.3,1315,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1315,1,3,0)
 ;;=3^Heart Failure,Right
 ;;^UTILITY(U,$J,358.3,1315,1,4,0)
 ;;=4^I50.810
 ;;^UTILITY(U,$J,358.3,1315,2)
 ;;=^5151384
 ;;^UTILITY(U,$J,358.3,1316,0)
 ;;=I50.811^^16^89^18
 ;;^UTILITY(U,$J,358.3,1316,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1316,1,3,0)
 ;;=3^Heart Failure,Right,Acute
 ;;^UTILITY(U,$J,358.3,1316,1,4,0)
 ;;=4^I50.811
 ;;^UTILITY(U,$J,358.3,1316,2)
 ;;=^5151385
 ;;^UTILITY(U,$J,358.3,1317,0)
 ;;=I50.812^^16^89^20
 ;;^UTILITY(U,$J,358.3,1317,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1317,1,3,0)
 ;;=3^Heart Failure,Right,Chronic
 ;;^UTILITY(U,$J,358.3,1317,1,4,0)
 ;;=4^I50.812
 ;;^UTILITY(U,$J,358.3,1317,2)
 ;;=^5151386
 ;;^UTILITY(U,$J,358.3,1318,0)
 ;;=I50.813^^16^89^19
 ;;^UTILITY(U,$J,358.3,1318,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1318,1,3,0)
 ;;=3^Heart Failure,Right,Acute on Chronic
 ;;^UTILITY(U,$J,358.3,1318,1,4,0)
 ;;=4^I50.813
 ;;^UTILITY(U,$J,358.3,1318,2)
 ;;=^5151387
 ;;^UTILITY(U,$J,358.3,1319,0)
 ;;=I50.814^^16^89^17
 ;;^UTILITY(U,$J,358.3,1319,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1319,1,3,0)
 ;;=3^Heart Failure,Right d/t Left Heart Failure
 ;;^UTILITY(U,$J,358.3,1319,1,4,0)
 ;;=4^I50.814
 ;;^UTILITY(U,$J,358.3,1319,2)
 ;;=^5151388
 ;;^UTILITY(U,$J,358.3,1320,0)
 ;;=I50.82^^16^89^3
 ;;^UTILITY(U,$J,358.3,1320,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1320,1,3,0)
 ;;=3^Heart Failure,Biventricular
 ;;^UTILITY(U,$J,358.3,1320,1,4,0)
 ;;=4^I50.82
 ;;^UTILITY(U,$J,358.3,1320,2)
 ;;=^5151389
 ;;^UTILITY(U,$J,358.3,1321,0)
 ;;=I50.83^^16^89^14
 ;;^UTILITY(U,$J,358.3,1321,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1321,1,3,0)
 ;;=3^Heart Failure,High Output
 ;;^UTILITY(U,$J,358.3,1321,1,4,0)
 ;;=4^I50.83
 ;;^UTILITY(U,$J,358.3,1321,2)
 ;;=^5151390
 ;;^UTILITY(U,$J,358.3,1322,0)
 ;;=I50.84^^16^89^13
 ;;^UTILITY(U,$J,358.3,1322,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1322,1,3,0)
 ;;=3^Heart Failure,End Stage
 ;;^UTILITY(U,$J,358.3,1322,1,4,0)
 ;;=4^I50.84
 ;;^UTILITY(U,$J,358.3,1322,2)
 ;;=^5151391
 ;;^UTILITY(U,$J,358.3,1323,0)
 ;;=I50.89^^16^89^15
 ;;^UTILITY(U,$J,358.3,1323,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1323,1,3,0)
 ;;=3^Heart Failure,Other
 ;;^UTILITY(U,$J,358.3,1323,1,4,0)
 ;;=4^I50.89
 ;;^UTILITY(U,$J,358.3,1323,2)
 ;;=^5151392
 ;;^UTILITY(U,$J,358.3,1324,0)
 ;;=I50.21^^16^89^6
 ;;^UTILITY(U,$J,358.3,1324,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1324,1,3,0)
 ;;=3^Heart Failure,Congestive,Acute Systolic
 ;;^UTILITY(U,$J,358.3,1324,1,4,0)
 ;;=4^I50.21
 ;;^UTILITY(U,$J,358.3,1324,2)
 ;;=^5007240
 ;;^UTILITY(U,$J,358.3,1325,0)
 ;;=I50.22^^16^89^12
 ;;^UTILITY(U,$J,358.3,1325,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1325,1,3,0)
 ;;=3^Heart Failure,Congestive,Chr Systolic
 ;;^UTILITY(U,$J,358.3,1325,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,1325,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,1326,0)
 ;;=I50.23^^16^89^7
 ;;^UTILITY(U,$J,358.3,1326,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1326,1,3,0)
 ;;=3^Heart Failure,Congestive,Acute on Chronic Systolic
 ;;^UTILITY(U,$J,358.3,1326,1,4,0)
 ;;=4^I50.23
 ;;^UTILITY(U,$J,358.3,1326,2)
 ;;=^5007242
 ;;^UTILITY(U,$J,358.3,1327,0)
 ;;=I50.31^^16^89^5
 ;;^UTILITY(U,$J,358.3,1327,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1327,1,3,0)
 ;;=3^Heart Failure,Congestive,Acute Diastolic
 ;;^UTILITY(U,$J,358.3,1327,1,4,0)
 ;;=4^I50.31
 ;;^UTILITY(U,$J,358.3,1327,2)
 ;;=^5007244
 ;;^UTILITY(U,$J,358.3,1328,0)
 ;;=I50.32^^16^89^11
 ;;^UTILITY(U,$J,358.3,1328,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1328,1,3,0)
 ;;=3^Heart Failure,Congestive,Chr Diastolic
 ;;^UTILITY(U,$J,358.3,1328,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,1328,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,1329,0)
 ;;=I50.33^^16^89^8
 ;;^UTILITY(U,$J,358.3,1329,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1329,1,3,0)
 ;;=3^Heart Failure,Congestive,Acute on Chronic Diastolic
 ;;^UTILITY(U,$J,358.3,1329,1,4,0)
 ;;=4^I50.33
 ;;^UTILITY(U,$J,358.3,1329,2)
 ;;=^5007246
 ;;^UTILITY(U,$J,358.3,1330,0)
 ;;=I50.41^^16^89^4
 ;;^UTILITY(U,$J,358.3,1330,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1330,1,3,0)
 ;;=3^Heart Failure,Congestive,Acute Combined Systolic & Diastolic
 ;;^UTILITY(U,$J,358.3,1330,1,4,0)
 ;;=4^I50.41
 ;;^UTILITY(U,$J,358.3,1330,2)
 ;;=^5007248
 ;;^UTILITY(U,$J,358.3,1331,0)
 ;;=I50.42^^16^89^9
 ;;^UTILITY(U,$J,358.3,1331,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1331,1,3,0)
 ;;=3^Heart Failure,Congestive,Chr Combined Systolic & Diastolic
 ;;^UTILITY(U,$J,358.3,1331,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,1331,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,1332,0)
 ;;=I50.43^^16^89^10
 ;;^UTILITY(U,$J,358.3,1332,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1332,1,3,0)
 ;;=3^Heart Failure,Congestive,Chr Combined Systolic & Diastolic
 ;;^UTILITY(U,$J,358.3,1332,1,4,0)
 ;;=4^I50.43
 ;;^UTILITY(U,$J,358.3,1332,2)
 ;;=^5007250
 ;;^UTILITY(U,$J,358.3,1333,0)
 ;;=I26.99^^16^90^13
 ;;^UTILITY(U,$J,358.3,1333,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1333,1,3,0)
 ;;=3^Pulmonary embolism w/o acute cor pulm NEC
 ;;^UTILITY(U,$J,358.3,1333,1,4,0)
 ;;=4^I26.99
 ;;^UTILITY(U,$J,358.3,1333,2)
 ;;=^5007150
 ;;^UTILITY(U,$J,358.3,1334,0)
 ;;=J20.9^^16^90^1
 ;;^UTILITY(U,$J,358.3,1334,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1334,1,3,0)
 ;;=3^Acute bronchitis, unspecified
 ;;^UTILITY(U,$J,358.3,1334,1,4,0)
 ;;=4^J20.9
 ;;^UTILITY(U,$J,358.3,1334,2)
 ;;=^5008195
 ;;^UTILITY(U,$J,358.3,1335,0)
 ;;=J42.^^16^90^6
 ;;^UTILITY(U,$J,358.3,1335,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1335,1,3,0)
 ;;=3^Chronic bronchitis,Unspec
 ;;^UTILITY(U,$J,358.3,1335,1,4,0)
 ;;=4^J42.
 ;;^UTILITY(U,$J,358.3,1335,2)
 ;;=^5008234
 ;;^UTILITY(U,$J,358.3,1336,0)
 ;;=J45.909^^16^90^3
 ;;^UTILITY(U,$J,358.3,1336,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1336,1,3,0)
 ;;=3^Asthma,uncomplicated,Unspec
 ;;^UTILITY(U,$J,358.3,1336,1,4,0)
 ;;=4^J45.909
 ;;^UTILITY(U,$J,358.3,1336,2)
 ;;=^5008256
 ;;^UTILITY(U,$J,358.3,1337,0)
 ;;=J45.902^^16^90^2
 ;;^UTILITY(U,$J,358.3,1337,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1337,1,3,0)
 ;;=3^Asthma w/ status asthmaticus,Unspec
 ;;^UTILITY(U,$J,358.3,1337,1,4,0)
 ;;=4^J45.902
 ;;^UTILITY(U,$J,358.3,1337,2)
 ;;=^5008255
 ;;^UTILITY(U,$J,358.3,1338,0)
 ;;=J44.9^^16^90^4
 ;;^UTILITY(U,$J,358.3,1338,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1338,1,3,0)
 ;;=3^COPD,Unspec
 ;;^UTILITY(U,$J,358.3,1338,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,1338,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,1339,0)
 ;;=J61.^^16^90^9
 ;;^UTILITY(U,$J,358.3,1339,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1339,1,3,0)
 ;;=3^Pneumoconiosis d/t asbest/oth mnrl fibers
 ;;^UTILITY(U,$J,358.3,1339,1,4,0)
 ;;=4^J61.
 ;;^UTILITY(U,$J,358.3,1339,2)
 ;;=^5008262
 ;;^UTILITY(U,$J,358.3,1340,0)
 ;;=R09.1^^16^90^8
 ;;^UTILITY(U,$J,358.3,1340,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1340,1,3,0)
 ;;=3^Pleurisy
 ;;^UTILITY(U,$J,358.3,1340,1,4,0)
 ;;=4^R09.1
 ;;^UTILITY(U,$J,358.3,1340,2)
 ;;=^95428
 ;;^UTILITY(U,$J,358.3,1341,0)
 ;;=J84.10^^16^90^14
 ;;^UTILITY(U,$J,358.3,1341,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1341,1,3,0)
 ;;=3^Pulmonary fibrosis,Unspec
 ;;^UTILITY(U,$J,358.3,1341,1,4,0)
 ;;=4^J84.10
 ;;^UTILITY(U,$J,358.3,1341,2)
 ;;=^5008300
 ;;^UTILITY(U,$J,358.3,1342,0)
 ;;=R06.02^^16^90^15
 ;;^UTILITY(U,$J,358.3,1342,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1342,1,3,0)
 ;;=3^Shortness of breath
 ;;^UTILITY(U,$J,358.3,1342,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,1342,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,1343,0)
 ;;=R06.00^^16^90^7
 ;;^UTILITY(U,$J,358.3,1343,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1343,1,3,0)
 ;;=3^Dyspnea, unspecified
 ;;^UTILITY(U,$J,358.3,1343,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,1343,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,1344,0)
 ;;=I26.94^^16^90^11
 ;;^UTILITY(U,$J,358.3,1344,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1344,1,3,0)
 ;;=3^Pulm Embol,Subsegmntl,Multi w/o AC cor Pulm
 ;;^UTILITY(U,$J,358.3,1344,1,4,0)
 ;;=4^I26.94
 ;;^UTILITY(U,$J,358.3,1344,2)
 ;;=^5158045
 ;;^UTILITY(U,$J,358.3,1345,0)
 ;;=I26.93^^16^90^12
 ;;^UTILITY(U,$J,358.3,1345,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1345,1,3,0)
 ;;=3^Pulm Embol,Subseqmntl,Sngl w/o AC co Pulm
 ;;^UTILITY(U,$J,358.3,1345,1,4,0)
 ;;=4^I26.93
 ;;^UTILITY(U,$J,358.3,1345,2)
 ;;=^5158044
 ;;^UTILITY(U,$J,358.3,1346,0)
 ;;=U07.1^^16^90^5
 ;;^UTILITY(U,$J,358.3,1346,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1346,1,3,0)
 ;;=3^COVID-19
 ;;^UTILITY(U,$J,358.3,1346,1,4,0)
 ;;=4^U07.1
 ;;^UTILITY(U,$J,358.3,1346,2)
 ;;=^5159070
 ;;^UTILITY(U,$J,358.3,1347,0)
 ;;=J12.82^^16^90^10
 ;;^UTILITY(U,$J,358.3,1347,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1347,1,3,0)
 ;;=3^Pneumonia d/t Coronavirus Disease 2019
 ;;^UTILITY(U,$J,358.3,1347,1,4,0)
 ;;=4^J12.82
 ;;^UTILITY(U,$J,358.3,1347,2)
 ;;=^5160183
 ;;^UTILITY(U,$J,358.3,1348,0)
 ;;=C49.9^^16^91^1
 ;;^UTILITY(U,$J,358.3,1348,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1348,1,3,0)
 ;;=3^Malig Neop,Connective/Soft Tissue,Unsp
 ;;^UTILITY(U,$J,358.3,1348,1,4,0)
 ;;=4^C49.9
 ;;^UTILITY(U,$J,358.3,1348,2)
 ;;=^5001136
 ;;^UTILITY(U,$J,358.3,1349,0)
 ;;=C34.11^^16^91^7
 ;;^UTILITY(U,$J,358.3,1349,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1349,1,3,0)
 ;;=3^Malig Neop,RUL Bronch/Lung
 ;;^UTILITY(U,$J,358.3,1349,1,4,0)
 ;;=4^C34.11
 ;;^UTILITY(U,$J,358.3,1349,2)
 ;;=^5000961
 ;;^UTILITY(U,$J,358.3,1350,0)
 ;;=C34.12^^16^91^3
 ;;^UTILITY(U,$J,358.3,1350,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1350,1,3,0)
 ;;=3^Malig Neop,LUL Bronch/Lung
 ;;^UTILITY(U,$J,358.3,1350,1,4,0)
 ;;=4^C34.12
 ;;^UTILITY(U,$J,358.3,1350,2)
 ;;=^5000962
 ;;^UTILITY(U,$J,358.3,1351,0)
 ;;=C34.2^^16^91^5
 ;;^UTILITY(U,$J,358.3,1351,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1351,1,3,0)
 ;;=3^Malig Neop,Mid Lobe Bronch/Lung
 ;;^UTILITY(U,$J,358.3,1351,1,4,0)
 ;;=4^C34.2
 ;;^UTILITY(U,$J,358.3,1351,2)
 ;;=^267137
 ;;^UTILITY(U,$J,358.3,1352,0)
 ;;=C34.31^^16^91^6
 ;;^UTILITY(U,$J,358.3,1352,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1352,1,3,0)
 ;;=3^Malig Neop,RLL Bronch/Lung
 ;;^UTILITY(U,$J,358.3,1352,1,4,0)
 ;;=4^C34.31
 ;;^UTILITY(U,$J,358.3,1352,2)
 ;;=^5133321
 ;;^UTILITY(U,$J,358.3,1353,0)
 ;;=C34.32^^16^91^2
 ;;^UTILITY(U,$J,358.3,1353,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1353,1,3,0)
 ;;=3^Malig Neop,LLL Bronch/Lung
 ;;^UTILITY(U,$J,358.3,1353,1,4,0)
 ;;=4^C34.32
 ;;^UTILITY(U,$J,358.3,1353,2)
 ;;=^5133322
 ;;^UTILITY(U,$J,358.3,1354,0)
 ;;=C34.81^^16^91^8
 ;;^UTILITY(U,$J,358.3,1354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1354,1,3,0)
 ;;=3^Malig Neop,Rt Bronch/Lung,Ovrlp Sites
 ;;^UTILITY(U,$J,358.3,1354,1,4,0)
 ;;=4^C34.81
 ;;^UTILITY(U,$J,358.3,1354,2)
 ;;=^5000964
 ;;^UTILITY(U,$J,358.3,1355,0)
 ;;=C34.82^^16^91^4
 ;;^UTILITY(U,$J,358.3,1355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1355,1,3,0)
 ;;=3^Malig Neop,Lt Bronchus/Lung,Ovrlp Sites
 ;;^UTILITY(U,$J,358.3,1355,1,4,0)
 ;;=4^C34.82
 ;;^UTILITY(U,$J,358.3,1355,2)
 ;;=^5000965
 ;;^UTILITY(U,$J,358.3,1356,0)
 ;;=C77.1^^16^91^9
 ;;^UTILITY(U,$J,358.3,1356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1356,1,3,0)
 ;;=3^Sec Malig Neop,Intrathoracic Nodes
 ;;^UTILITY(U,$J,358.3,1356,1,4,0)
 ;;=4^C77.1
 ;;^UTILITY(U,$J,358.3,1356,2)
 ;;=^267315
 ;;^UTILITY(U,$J,358.3,1357,0)
 ;;=C78.01^^16^91^14
 ;;^UTILITY(U,$J,358.3,1357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1357,1,3,0)
 ;;=3^Sec Malig Neop,Right Lung
 ;;^UTILITY(U,$J,358.3,1357,1,4,0)
 ;;=4^C78.01
 ;;^UTILITY(U,$J,358.3,1357,2)
 ;;=^5001335
 ;;^UTILITY(U,$J,358.3,1358,0)
 ;;=C78.02^^16^91^10
 ;;^UTILITY(U,$J,358.3,1358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,1358,1,3,0)
 ;;=3^Sec Malig Neop,Left Lung