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

IBDEI04G.m

Go to the documentation of this file.
IBDEI04G ; ; 28-OCT-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 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,10453,2)
 ;;=^5008310
 ;;^UTILITY(U,$J,358.3,10454,0)
 ;;=J91.8^^62^602^4
 ;;^UTILITY(U,$J,358.3,10454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10454,1,3,0)
 ;;=3^Pleural effusion in other conditions classified elsewhere
 ;;^UTILITY(U,$J,358.3,10454,1,4,0)
 ;;=4^J91.8
 ;;^UTILITY(U,$J,358.3,10454,2)
 ;;=^5008311
 ;;^UTILITY(U,$J,358.3,10455,0)
 ;;=J93.0^^62^602^10
 ;;^UTILITY(U,$J,358.3,10455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10455,1,3,0)
 ;;=3^Spontaneous tension pneumothorax
 ;;^UTILITY(U,$J,358.3,10455,1,4,0)
 ;;=4^J93.0
 ;;^UTILITY(U,$J,358.3,10455,2)
 ;;=^269987
 ;;^UTILITY(U,$J,358.3,10456,0)
 ;;=J93.11^^62^602^8
 ;;^UTILITY(U,$J,358.3,10456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10456,1,3,0)
 ;;=3^Primary spontaneous pneumothorax
 ;;^UTILITY(U,$J,358.3,10456,1,4,0)
 ;;=4^J93.11
 ;;^UTILITY(U,$J,358.3,10456,2)
 ;;=^340529
 ;;^UTILITY(U,$J,358.3,10457,0)
 ;;=J93.12^^62^602^9
 ;;^UTILITY(U,$J,358.3,10457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10457,1,3,0)
 ;;=3^Secondary spontaneous pneumothorax
 ;;^UTILITY(U,$J,358.3,10457,1,4,0)
 ;;=4^J93.12
 ;;^UTILITY(U,$J,358.3,10457,2)
 ;;=^340530
 ;;^UTILITY(U,$J,358.3,10458,0)
 ;;=J93.81^^62^602^2
 ;;^UTILITY(U,$J,358.3,10458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10458,1,3,0)
 ;;=3^Chronic pneumothorax
 ;;^UTILITY(U,$J,358.3,10458,1,4,0)
 ;;=4^J93.81
 ;;^UTILITY(U,$J,358.3,10458,2)
 ;;=^340531
 ;;^UTILITY(U,$J,358.3,10459,0)
 ;;=J93.82^^62^602^1
 ;;^UTILITY(U,$J,358.3,10459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10459,1,3,0)
 ;;=3^Air Leak NEC
 ;;^UTILITY(U,$J,358.3,10459,1,4,0)
 ;;=4^J93.82
 ;;^UTILITY(U,$J,358.3,10459,2)
 ;;=^5008314
 ;;^UTILITY(U,$J,358.3,10460,0)
 ;;=J93.9^^62^602^7
 ;;^UTILITY(U,$J,358.3,10460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10460,1,3,0)
 ;;=3^Pneumothorax, unspecified
 ;;^UTILITY(U,$J,358.3,10460,1,4,0)
 ;;=4^J93.9
 ;;^UTILITY(U,$J,358.3,10460,2)
 ;;=^5008315
 ;;^UTILITY(U,$J,358.3,10461,0)
 ;;=J12.9^^62^603^11
 ;;^UTILITY(U,$J,358.3,10461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10461,1,3,0)
 ;;=3^Viral pneumonia, unspecified
 ;;^UTILITY(U,$J,358.3,10461,1,4,0)
 ;;=4^J12.9
 ;;^UTILITY(U,$J,358.3,10461,2)
 ;;=^5008169
 ;;^UTILITY(U,$J,358.3,10462,0)
 ;;=J13.^^62^603^7
 ;;^UTILITY(U,$J,358.3,10462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10462,1,3,0)
 ;;=3^Pneumonia d/t Streptococcus pneumoniae
 ;;^UTILITY(U,$J,358.3,10462,1,4,0)
 ;;=4^J13.
 ;;^UTILITY(U,$J,358.3,10462,2)
 ;;=^5008170
 ;;^UTILITY(U,$J,358.3,10463,0)
 ;;=J15.4^^62^603^9
 ;;^UTILITY(U,$J,358.3,10463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10463,1,3,0)
 ;;=3^Pneumonia d/t other streptococci
 ;;^UTILITY(U,$J,358.3,10463,1,4,0)
 ;;=4^J15.4
 ;;^UTILITY(U,$J,358.3,10463,2)
 ;;=^5008174
 ;;^UTILITY(U,$J,358.3,10464,0)
 ;;=J15.211^^62^603^8
 ;;^UTILITY(U,$J,358.3,10464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10464,1,3,0)
 ;;=3^Pneumonia d/t methicillin suscep staph
 ;;^UTILITY(U,$J,358.3,10464,1,4,0)
 ;;=4^J15.211
 ;;^UTILITY(U,$J,358.3,10464,2)
 ;;=^336833
 ;;^UTILITY(U,$J,358.3,10465,0)
 ;;=J15.212^^62^603^6
 ;;^UTILITY(U,$J,358.3,10465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10465,1,3,0)
 ;;=3^Pneumonia d/t Methicillin resistant Staphylococcus aureus
 ;;^UTILITY(U,$J,358.3,10465,1,4,0)
 ;;=4^J15.212
 ;;^UTILITY(U,$J,358.3,10465,2)
 ;;=^336602
 ;;^UTILITY(U,$J,358.3,10466,0)
 ;;=J15.9^^62^603^1
 ;;^UTILITY(U,$J,358.3,10466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10466,1,3,0)
 ;;=3^Bacterial Pneumonia,Unspec
 ;;^UTILITY(U,$J,358.3,10466,1,4,0)
 ;;=4^J15.9
 ;;^UTILITY(U,$J,358.3,10466,2)
 ;;=^5008178
 ;;^UTILITY(U,$J,358.3,10467,0)
 ;;=J18.9^^62^603^10
 ;;^UTILITY(U,$J,358.3,10467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10467,1,3,0)
 ;;=3^Pneumonia, unspecified organism
 ;;^UTILITY(U,$J,358.3,10467,1,4,0)
 ;;=4^J18.9
 ;;^UTILITY(U,$J,358.3,10467,2)
 ;;=^95632
 ;;^UTILITY(U,$J,358.3,10468,0)
 ;;=J09.X1^^62^603^2
 ;;^UTILITY(U,$J,358.3,10468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10468,1,3,0)
 ;;=3^Flu d/t ident novel influenza A virus w pneumonia
 ;;^UTILITY(U,$J,358.3,10468,1,4,0)
 ;;=4^J09.X1
 ;;^UTILITY(U,$J,358.3,10468,2)
 ;;=^5008144
 ;;^UTILITY(U,$J,358.3,10469,0)
 ;;=J09.X2^^62^603^3
 ;;^UTILITY(U,$J,358.3,10469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10469,1,3,0)
 ;;=3^Flu d/t ident novel influenza A virus w oth resp manifest
 ;;^UTILITY(U,$J,358.3,10469,1,4,0)
 ;;=4^J09.X2
 ;;^UTILITY(U,$J,358.3,10469,2)
 ;;=^5008145
 ;;^UTILITY(U,$J,358.3,10470,0)
 ;;=J09.X3^^62^603^4
 ;;^UTILITY(U,$J,358.3,10470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10470,1,3,0)
 ;;=3^Flu d/t ident novel influenza A virus w GI manifest
 ;;^UTILITY(U,$J,358.3,10470,1,4,0)
 ;;=4^J09.X3
 ;;^UTILITY(U,$J,358.3,10470,2)
 ;;=^5008146
 ;;^UTILITY(U,$J,358.3,10471,0)
 ;;=J09.X9^^62^603^5
 ;;^UTILITY(U,$J,358.3,10471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10471,1,3,0)
 ;;=3^Flu d/t ident novel influenza A virus w oth manifest
 ;;^UTILITY(U,$J,358.3,10471,1,4,0)
 ;;=4^J09.X9
 ;;^UTILITY(U,$J,358.3,10471,2)
 ;;=^5008147
 ;;^UTILITY(U,$J,358.3,10472,0)
 ;;=I26.92^^62^604^10
 ;;^UTILITY(U,$J,358.3,10472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10472,1,3,0)
 ;;=3^Saddle Embolus of Pulmonary Artery w/o Acute Cor Pulmonale
 ;;^UTILITY(U,$J,358.3,10472,1,4,0)
 ;;=4^I26.92
 ;;^UTILITY(U,$J,358.3,10472,2)
 ;;=^5007149
 ;;^UTILITY(U,$J,358.3,10473,0)
 ;;=I26.99^^62^604^5
 ;;^UTILITY(U,$J,358.3,10473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10473,1,3,0)
 ;;=3^Pulmonary Embolism w/o Acute Cor Pulmonale NEC
 ;;^UTILITY(U,$J,358.3,10473,1,4,0)
 ;;=4^I26.99
 ;;^UTILITY(U,$J,358.3,10473,2)
 ;;=^5007150
 ;;^UTILITY(U,$J,358.3,10474,0)
 ;;=I27.0^^62^604^3
 ;;^UTILITY(U,$J,358.3,10474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10474,1,3,0)
 ;;=3^Primary pulmonary hypertension
 ;;^UTILITY(U,$J,358.3,10474,1,4,0)
 ;;=4^I27.0
 ;;^UTILITY(U,$J,358.3,10474,2)
 ;;=^265310
 ;;^UTILITY(U,$J,358.3,10475,0)
 ;;=I27.89^^62^604^7
 ;;^UTILITY(U,$J,358.3,10475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10475,1,3,0)
 ;;=3^Pulmonary Heart Diseases NEC
 ;;^UTILITY(U,$J,358.3,10475,1,4,0)
 ;;=4^I27.89
 ;;^UTILITY(U,$J,358.3,10475,2)
 ;;=^5007153
 ;;^UTILITY(U,$J,358.3,10476,0)
 ;;=I27.9^^62^604^6
 ;;^UTILITY(U,$J,358.3,10476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10476,1,3,0)
 ;;=3^Pulmonary Heart Disease,Unspec
 ;;^UTILITY(U,$J,358.3,10476,1,4,0)
 ;;=4^I27.9
 ;;^UTILITY(U,$J,358.3,10476,2)
 ;;=^5007154
 ;;^UTILITY(U,$J,358.3,10477,0)
 ;;=I27.81^^62^604^1
 ;;^UTILITY(U,$J,358.3,10477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10477,1,3,0)
 ;;=3^Cor Pulmonale (chronic)
 ;;^UTILITY(U,$J,358.3,10477,1,4,0)
 ;;=4^I27.81
 ;;^UTILITY(U,$J,358.3,10477,2)
 ;;=^5007152
 ;;^UTILITY(U,$J,358.3,10478,0)
 ;;=R04.2^^62^604^2
 ;;^UTILITY(U,$J,358.3,10478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10478,1,3,0)
 ;;=3^Hemoptysis
 ;;^UTILITY(U,$J,358.3,10478,1,4,0)
 ;;=4^R04.2
 ;;^UTILITY(U,$J,358.3,10478,2)
 ;;=^5019175
 ;;^UTILITY(U,$J,358.3,10479,0)
 ;;=I27.20^^62^604^9
 ;;^UTILITY(U,$J,358.3,10479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10479,1,3,0)
 ;;=3^Pulmonary Hypertension,Unspec
 ;;^UTILITY(U,$J,358.3,10479,1,4,0)
 ;;=4^I27.20
 ;;^UTILITY(U,$J,358.3,10479,2)
 ;;=^5151376
 ;;^UTILITY(U,$J,358.3,10480,0)
 ;;=I27.21^^62^604^4
 ;;^UTILITY(U,$J,358.3,10480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10480,1,3,0)
 ;;=3^Pulmonary Arterial Hypertension,Secondary
 ;;^UTILITY(U,$J,358.3,10480,1,4,0)
 ;;=4^I27.21
 ;;^UTILITY(U,$J,358.3,10480,2)
 ;;=^5151377
 ;;^UTILITY(U,$J,358.3,10481,0)
 ;;=I27.29^^62^604^8
 ;;^UTILITY(U,$J,358.3,10481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10481,1,3,0)
 ;;=3^Pulmonary Hypertension,Oth Secondary
 ;;^UTILITY(U,$J,358.3,10481,1,4,0)
 ;;=4^I27.29
 ;;^UTILITY(U,$J,358.3,10481,2)
 ;;=^5151381
 ;;^UTILITY(U,$J,358.3,10482,0)
 ;;=J41.0^^62^605^17
 ;;^UTILITY(U,$J,358.3,10482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10482,1,3,0)
 ;;=3^Simple chronic bronchitis
 ;;^UTILITY(U,$J,358.3,10482,1,4,0)
 ;;=4^J41.0
 ;;^UTILITY(U,$J,358.3,10482,2)
 ;;=^269946
 ;;^UTILITY(U,$J,358.3,10483,0)
 ;;=J70.5^^62^605^15
 ;;^UTILITY(U,$J,358.3,10483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10483,1,3,0)
 ;;=3^Respiratory conditions due to smoke inhalation
 ;;^UTILITY(U,$J,358.3,10483,1,4,0)
 ;;=4^J70.5
 ;;^UTILITY(U,$J,358.3,10483,2)
 ;;=^5008293
 ;;^UTILITY(U,$J,358.3,10484,0)
 ;;=J98.11^^62^605^6
 ;;^UTILITY(U,$J,358.3,10484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10484,1,3,0)
 ;;=3^Atelectasis
 ;;^UTILITY(U,$J,358.3,10484,1,4,0)
 ;;=4^J98.11
 ;;^UTILITY(U,$J,358.3,10484,2)
 ;;=^5008360
 ;;^UTILITY(U,$J,358.3,10485,0)
 ;;=J80.^^62^605^4
 ;;^UTILITY(U,$J,358.3,10485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10485,1,3,0)
 ;;=3^Acute respiratory distress syndrome
 ;;^UTILITY(U,$J,358.3,10485,1,4,0)
 ;;=4^J80.
 ;;^UTILITY(U,$J,358.3,10485,2)
 ;;=^5008294
 ;;^UTILITY(U,$J,358.3,10486,0)
 ;;=J98.01^^62^605^3
 ;;^UTILITY(U,$J,358.3,10486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10486,1,3,0)
 ;;=3^Acute bronchospasm
 ;;^UTILITY(U,$J,358.3,10486,1,4,0)
 ;;=4^J98.01
 ;;^UTILITY(U,$J,358.3,10486,2)
 ;;=^334092
 ;;^UTILITY(U,$J,358.3,10487,0)
 ;;=R06.02^^62^605^16
 ;;^UTILITY(U,$J,358.3,10487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10487,1,3,0)
 ;;=3^Shortness of breath
 ;;^UTILITY(U,$J,358.3,10487,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,10487,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,10488,0)
 ;;=R06.82^^62^605^20
 ;;^UTILITY(U,$J,358.3,10488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10488,1,3,0)
 ;;=3^Tachypnea, not elsewhere classified
 ;;^UTILITY(U,$J,358.3,10488,1,4,0)
 ;;=4^R06.82
 ;;^UTILITY(U,$J,358.3,10488,2)
 ;;=^5019191
 ;;^UTILITY(U,$J,358.3,10489,0)
 ;;=R06.2^^62^605^21
 ;;^UTILITY(U,$J,358.3,10489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10489,1,3,0)
 ;;=3^Wheezing
 ;;^UTILITY(U,$J,358.3,10489,1,4,0)
 ;;=4^R06.2
 ;;^UTILITY(U,$J,358.3,10489,2)
 ;;=^5019184
 ;;^UTILITY(U,$J,358.3,10490,0)
 ;;=R06.00^^62^605^10
 ;;^UTILITY(U,$J,358.3,10490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10490,1,3,0)
 ;;=3^Dyspnea, unspecified
 ;;^UTILITY(U,$J,358.3,10490,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,10490,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,10491,0)
 ;;=R06.1^^62^605^19
 ;;^UTILITY(U,$J,358.3,10491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10491,1,3,0)
 ;;=3^Stridor
 ;;^UTILITY(U,$J,358.3,10491,1,4,0)
 ;;=4^R06.1
 ;;^UTILITY(U,$J,358.3,10491,2)
 ;;=^5019183
 ;;^UTILITY(U,$J,358.3,10492,0)
 ;;=R05.^^62^605^8
 ;;^UTILITY(U,$J,358.3,10492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10492,1,3,0)
 ;;=3^Cough
 ;;^UTILITY(U,$J,358.3,10492,1,4,0)
 ;;=4^R05.
 ;;^UTILITY(U,$J,358.3,10492,2)
 ;;=^5019179
 ;;^UTILITY(U,$J,358.3,10493,0)
 ;;=R07.1^^62^605^7
 ;;^UTILITY(U,$J,358.3,10493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10493,1,3,0)
 ;;=3^Chest pain on breathing
 ;;^UTILITY(U,$J,358.3,10493,1,4,0)
 ;;=4^R07.1
 ;;^UTILITY(U,$J,358.3,10493,2)
 ;;=^5019196
 ;;^UTILITY(U,$J,358.3,10494,0)
 ;;=R07.81^^62^605^14
 ;;^UTILITY(U,$J,358.3,10494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10494,1,3,0)
 ;;=3^Pleurodynia
 ;;^UTILITY(U,$J,358.3,10494,1,4,0)
 ;;=4^R07.81
 ;;^UTILITY(U,$J,358.3,10494,2)
 ;;=^5019198
 ;;^UTILITY(U,$J,358.3,10495,0)
 ;;=R91.1^^62^605^18
 ;;^UTILITY(U,$J,358.3,10495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10495,1,3,0)
 ;;=3^Solitary pulmonary nodule
 ;;^UTILITY(U,$J,358.3,10495,1,4,0)
 ;;=4^R91.1
 ;;^UTILITY(U,$J,358.3,10495,2)
 ;;=^5019707
 ;;^UTILITY(U,$J,358.3,10496,0)
 ;;=R91.8^^62^605^1
 ;;^UTILITY(U,$J,358.3,10496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10496,1,3,0)
 ;;=3^Abnormal Finding of Lung Field,Nonspecific NEC
 ;;^UTILITY(U,$J,358.3,10496,1,4,0)
 ;;=4^R91.8
 ;;^UTILITY(U,$J,358.3,10496,2)
 ;;=^5019708
 ;;^UTILITY(U,$J,358.3,10497,0)
 ;;=R93.1^^62^605^2
 ;;^UTILITY(U,$J,358.3,10497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10497,1,3,0)
 ;;=3^Abnormal findings on dx imaging of heart and cor circ
 ;;^UTILITY(U,$J,358.3,10497,1,4,0)
 ;;=4^R93.1
 ;;^UTILITY(U,$J,358.3,10497,2)
 ;;=^5019714
 ;;^UTILITY(U,$J,358.3,10498,0)
 ;;=R76.12^^62^605^12
 ;;^UTILITY(U,$J,358.3,10498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10498,1,3,0)
 ;;=3^Nonspec reaction to gamma intrfrn respns w/o actv tubrclosis
 ;;^UTILITY(U,$J,358.3,10498,1,4,0)
 ;;=4^R76.12
 ;;^UTILITY(U,$J,358.3,10498,2)
 ;;=^5019571
 ;;^UTILITY(U,$J,358.3,10499,0)
 ;;=R09.01^^62^605^5
 ;;^UTILITY(U,$J,358.3,10499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10499,1,3,0)
 ;;=3^Asphyxia
 ;;^UTILITY(U,$J,358.3,10499,1,4,0)
 ;;=4^R09.01
 ;;^UTILITY(U,$J,358.3,10499,2)
 ;;=^11005
 ;;^UTILITY(U,$J,358.3,10500,0)
 ;;=R09.02^^62^605^11
 ;;^UTILITY(U,$J,358.3,10500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10500,1,3,0)
 ;;=3^Hypoxemia
 ;;^UTILITY(U,$J,358.3,10500,1,4,0)
 ;;=4^R09.02
 ;;^UTILITY(U,$J,358.3,10500,2)
 ;;=^332831
 ;;^UTILITY(U,$J,358.3,10501,0)
 ;;=Z86.718^^62^605^13
 ;;^UTILITY(U,$J,358.3,10501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10501,1,3,0)
 ;;=3^Personal history of other venous thrombosis and embolism
 ;;^UTILITY(U,$J,358.3,10501,1,4,0)
 ;;=4^Z86.718
 ;;^UTILITY(U,$J,358.3,10501,2)
 ;;=^5063475
 ;;^UTILITY(U,$J,358.3,10502,0)
 ;;=U07.1^^62^605^9
 ;;^UTILITY(U,$J,358.3,10502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10502,1,3,0)
 ;;=3^Covid-19 Acute Respiratory Disease
 ;;^UTILITY(U,$J,358.3,10502,1,4,0)
 ;;=4^U07.1
 ;;^UTILITY(U,$J,358.3,10502,2)
 ;;=^5159070
 ;;^UTILITY(U,$J,358.3,10503,0)
 ;;=E08.9^^62^606^31
 ;;^UTILITY(U,$J,358.3,10503,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10503,1,3,0)
 ;;=3^Diabetes due to underlying condition w/o complications
 ;;^UTILITY(U,$J,358.3,10503,1,4,0)
 ;;=4^E08.9
 ;;^UTILITY(U,$J,358.3,10503,2)
 ;;=^5002544
 ;;^UTILITY(U,$J,358.3,10504,0)
 ;;=E09.9^^62^606^61
 ;;^UTILITY(U,$J,358.3,10504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10504,1,3,0)
 ;;=3^Drug/chem induced diabetes mellitus w/o complications
 ;;^UTILITY(U,$J,358.3,10504,1,4,0)
 ;;=4^E09.9
 ;;^UTILITY(U,$J,358.3,10504,2)
 ;;=^5002586
 ;;^UTILITY(U,$J,358.3,10505,0)
 ;;=E08.65^^62^606^1
 ;;^UTILITY(U,$J,358.3,10505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10505,1,3,0)
 ;;=3^Diabetes due to underlying condition w hyperglycemia
 ;;^UTILITY(U,$J,358.3,10505,1,4,0)
 ;;=4^E08.65
 ;;^UTILITY(U,$J,358.3,10505,2)
 ;;=^5002541
 ;;^UTILITY(U,$J,358.3,10506,0)
 ;;=E09.65^^62^606^58
 ;;^UTILITY(U,$J,358.3,10506,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10506,1,3,0)
 ;;=3^Drug/chem induced diabetes mellitus w hyperglycemia
 ;;^UTILITY(U,$J,358.3,10506,1,4,0)
 ;;=4^E09.65
 ;;^UTILITY(U,$J,358.3,10506,2)
 ;;=^5002583
 ;;^UTILITY(U,$J,358.3,10507,0)
 ;;=E08.10^^62^606^2
 ;;^UTILITY(U,$J,358.3,10507,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10507,1,3,0)
 ;;=3^Diabetes due to underlying condition w ketoacidosis w/o coma
 ;;^UTILITY(U,$J,358.3,10507,1,4,0)
 ;;=4^E08.10
 ;;^UTILITY(U,$J,358.3,10507,2)
 ;;=^5002505
 ;;^UTILITY(U,$J,358.3,10508,0)
 ;;=E09.10^^62^606^41
 ;;^UTILITY(U,$J,358.3,10508,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10508,1,3,0)
 ;;=3^Drug/chem diabetes w ketoacidosis w/o coma
 ;;^UTILITY(U,$J,358.3,10508,1,4,0)
 ;;=4^E09.10
 ;;^UTILITY(U,$J,358.3,10508,2)
 ;;=^5002547
 ;;^UTILITY(U,$J,358.3,10509,0)
 ;;=E08.01^^62^606^3
 ;;^UTILITY(U,$J,358.3,10509,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10509,1,3,0)
 ;;=3^Diabetes due to underlying condition w hyprosm w coma
 ;;^UTILITY(U,$J,358.3,10509,1,4,0)
 ;;=4^E08.01
 ;;^UTILITY(U,$J,358.3,10509,2)
 ;;=^5002504
 ;;^UTILITY(U,$J,358.3,10510,0)
 ;;=E09.01^^62^606^37
 ;;^UTILITY(U,$J,358.3,10510,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10510,1,3,0)
 ;;=3^Drug/chem diabetes w hyperosmolarity w coma
 ;;^UTILITY(U,$J,358.3,10510,1,4,0)
 ;;=4^E09.01
 ;;^UTILITY(U,$J,358.3,10510,2)
 ;;=^5002546
 ;;^UTILITY(U,$J,358.3,10511,0)
 ;;=E08.11^^62^606^4
 ;;^UTILITY(U,$J,358.3,10511,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10511,1,3,0)
 ;;=3^Diabetes due to underlying condition w ketoacidosis w coma
 ;;^UTILITY(U,$J,358.3,10511,1,4,0)
 ;;=4^E08.11
 ;;^UTILITY(U,$J,358.3,10511,2)
 ;;=^5002506
 ;;^UTILITY(U,$J,358.3,10512,0)
 ;;=E08.641^^62^606^5
 ;;^UTILITY(U,$J,358.3,10512,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10512,1,3,0)
 ;;=3^Diabetes due to underlying condition w hypoglycemia w coma
 ;;^UTILITY(U,$J,358.3,10512,1,4,0)
 ;;=4^E08.641
 ;;^UTILITY(U,$J,358.3,10512,2)
 ;;=^5002539
 ;;^UTILITY(U,$J,358.3,10513,0)
 ;;=E09.11^^62^606^40
 ;;^UTILITY(U,$J,358.3,10513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10513,1,3,0)
 ;;=3^Drug/chem diabetes w ketoacidosis w coma
 ;;^UTILITY(U,$J,358.3,10513,1,4,0)
 ;;=4^E09.11
 ;;^UTILITY(U,$J,358.3,10513,2)
 ;;=^5002548
 ;;^UTILITY(U,$J,358.3,10514,0)
 ;;=E09.641^^62^606^38
 ;;^UTILITY(U,$J,358.3,10514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10514,1,3,0)
 ;;=3^Drug/chem diabetes w hypoglycemia w coma
 ;;^UTILITY(U,$J,358.3,10514,1,4,0)
 ;;=4^E09.641
 ;;^UTILITY(U,$J,358.3,10514,2)
 ;;=^5002581
 ;;^UTILITY(U,$J,358.3,10515,0)
 ;;=E08.21^^62^606^6
 ;;^UTILITY(U,$J,358.3,10515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10515,1,3,0)
 ;;=3^Diabetes due to underlying condition w diabetic nephropathy
 ;;^UTILITY(U,$J,358.3,10515,1,4,0)
 ;;=4^E08.21
 ;;^UTILITY(U,$J,358.3,10515,2)
 ;;=^5002507
 ;;^UTILITY(U,$J,358.3,10516,0)
 ;;=E09.21^^62^606^34
 ;;^UTILITY(U,$J,358.3,10516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10516,1,3,0)
 ;;=3^Drug/chem diabetes w diabetic nephropathy
 ;;^UTILITY(U,$J,358.3,10516,1,4,0)
 ;;=4^E09.21
 ;;^UTILITY(U,$J,358.3,10516,2)
 ;;=^5002549
 ;;^UTILITY(U,$J,358.3,10517,0)
 ;;=E08.311^^62^606^7
 ;;^UTILITY(U,$J,358.3,10517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10517,1,3,0)
 ;;=3^Diabetes due to underlying condition w unsp diabetic rtnop w macular edema
 ;;^UTILITY(U,$J,358.3,10517,1,4,0)
 ;;=4^E08.311
 ;;^UTILITY(U,$J,358.3,10517,2)
 ;;=^5002510
 ;;^UTILITY(U,$J,358.3,10518,0)
 ;;=E08.319^^62^606^8
 ;;^UTILITY(U,$J,358.3,10518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10518,1,3,0)
 ;;=3^Diabetes due to underlying condition w unsp diab rtnop w/o macular edema
 ;;^UTILITY(U,$J,358.3,10518,1,4,0)
 ;;=4^E08.319
 ;;^UTILITY(U,$J,358.3,10518,2)
 ;;=^5002511
 ;;^UTILITY(U,$J,358.3,10519,0)
 ;;=E08.36^^62^606^9
 ;;^UTILITY(U,$J,358.3,10519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10519,1,3,0)
 ;;=3^Diabetes due to underlying condition w diabetic cataract
 ;;^UTILITY(U,$J,358.3,10519,1,4,0)
 ;;=4^E08.36
 ;;^UTILITY(U,$J,358.3,10519,2)
 ;;=^5002520
 ;;^UTILITY(U,$J,358.3,10520,0)
 ;;=E08.39^^62^606^10
 ;;^UTILITY(U,$J,358.3,10520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10520,1,3,0)
 ;;=3^Diabetes due to underlying condition w oth diabetic opth comp
 ;;^UTILITY(U,$J,358.3,10520,1,4,0)
 ;;=4^E08.39
 ;;^UTILITY(U,$J,358.3,10520,2)
 ;;=^5002521
 ;;^UTILITY(U,$J,358.3,10521,0)
 ;;=E09.311^^62^606^56
 ;;^UTILITY(U,$J,358.3,10521,1,0)
 ;;=^358.31IA^4^2