IBDEI0A2 ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
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,24618,0)
;;=B44.1^^74^979^76
;;^UTILITY(U,$J,358.3,24618,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24618,1,3,0)
;;=3^Pulmonary Aspergillosis NEC
;;^UTILITY(U,$J,358.3,24618,1,4,0)
;;=4^B44.1
;;^UTILITY(U,$J,358.3,24618,2)
;;=^5000664
;;^UTILITY(U,$J,358.3,24619,0)
;;=B48.4^^74^979^68
;;^UTILITY(U,$J,358.3,24619,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24619,1,3,0)
;;=3^Penicillosis
;;^UTILITY(U,$J,358.3,24619,1,4,0)
;;=4^B48.4
;;^UTILITY(U,$J,358.3,24619,2)
;;=^5000688
;;^UTILITY(U,$J,358.3,24620,0)
;;=J14.^^74^979^69
;;^UTILITY(U,$J,358.3,24620,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24620,1,3,0)
;;=3^Pneumonia d/t Hemophilus Influenzae
;;^UTILITY(U,$J,358.3,24620,1,4,0)
;;=4^J14.
;;^UTILITY(U,$J,358.3,24620,2)
;;=^5008171
;;^UTILITY(U,$J,358.3,24621,0)
;;=J13.^^74^979^70
;;^UTILITY(U,$J,358.3,24621,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24621,1,3,0)
;;=3^Pneumonia d/t Streptococcus Pneumoniae
;;^UTILITY(U,$J,358.3,24621,1,4,0)
;;=4^J13.
;;^UTILITY(U,$J,358.3,24621,2)
;;=^5008170
;;^UTILITY(U,$J,358.3,24622,0)
;;=J17.^^74^979^71
;;^UTILITY(U,$J,358.3,24622,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24622,1,3,0)
;;=3^Pneumonia in Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,24622,1,4,0)
;;=4^J17.
;;^UTILITY(U,$J,358.3,24622,2)
;;=^5008181
;;^UTILITY(U,$J,358.3,24623,0)
;;=J18.9^^74^979^72
;;^UTILITY(U,$J,358.3,24623,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24623,1,3,0)
;;=3^Pneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,24623,1,4,0)
;;=4^J18.9
;;^UTILITY(U,$J,358.3,24623,2)
;;=^95632
;;^UTILITY(U,$J,358.3,24624,0)
;;=A15.7^^74^979^74
;;^UTILITY(U,$J,358.3,24624,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24624,1,3,0)
;;=3^Primary Respiratory TB
;;^UTILITY(U,$J,358.3,24624,1,4,0)
;;=4^A15.7
;;^UTILITY(U,$J,358.3,24624,2)
;;=^5000065
;;^UTILITY(U,$J,358.3,24625,0)
;;=A42.0^^74^979^75
;;^UTILITY(U,$J,358.3,24625,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24625,1,3,0)
;;=3^Pulmonary Actinomycosis
;;^UTILITY(U,$J,358.3,24625,1,4,0)
;;=4^A42.0
;;^UTILITY(U,$J,358.3,24625,2)
;;=^5000215
;;^UTILITY(U,$J,358.3,24626,0)
;;=B40.2^^74^979^77
;;^UTILITY(U,$J,358.3,24626,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24626,1,3,0)
;;=3^Pulmonary Blastomycosis,Unspec
;;^UTILITY(U,$J,358.3,24626,1,4,0)
;;=4^B40.2
;;^UTILITY(U,$J,358.3,24626,2)
;;=^5000641
;;^UTILITY(U,$J,358.3,24627,0)
;;=B38.2^^74^979^78
;;^UTILITY(U,$J,358.3,24627,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24627,1,3,0)
;;=3^Pulmonary Coccidiodomycosis,Unspec
;;^UTILITY(U,$J,358.3,24627,1,4,0)
;;=4^B38.2
;;^UTILITY(U,$J,358.3,24627,2)
;;=^295703
;;^UTILITY(U,$J,358.3,24628,0)
;;=B45.0^^74^979^79
;;^UTILITY(U,$J,358.3,24628,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24628,1,3,0)
;;=3^Pulmonary Cryptococcosis
;;^UTILITY(U,$J,358.3,24628,1,4,0)
;;=4^B45.0
;;^UTILITY(U,$J,358.3,24628,2)
;;=^5000669
;;^UTILITY(U,$J,358.3,24629,0)
;;=A31.0^^74^979^80
;;^UTILITY(U,$J,358.3,24629,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24629,1,3,0)
;;=3^Pulmonary Mycobacterial Infection
;;^UTILITY(U,$J,358.3,24629,1,4,0)
;;=4^A31.0
;;^UTILITY(U,$J,358.3,24629,2)
;;=^5000149
;;^UTILITY(U,$J,358.3,24630,0)
;;=A43.0^^74^979^81
;;^UTILITY(U,$J,358.3,24630,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24630,1,3,0)
;;=3^Pulmonary Nocardiosis
;;^UTILITY(U,$J,358.3,24630,1,4,0)
;;=4^A43.0
;;^UTILITY(U,$J,358.3,24630,2)
;;=^5000223
;;^UTILITY(U,$J,358.3,24631,0)
;;=B90.9^^74^979^83
;;^UTILITY(U,$J,358.3,24631,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24631,1,3,0)
;;=3^Sequelae of Respiratory/Unspec TB
;;^UTILITY(U,$J,358.3,24631,1,4,0)
;;=4^B90.9
;;^UTILITY(U,$J,358.3,24631,2)
;;=^5000827
;;^UTILITY(U,$J,358.3,24632,0)
;;=J41.0^^74^979^84
;;^UTILITY(U,$J,358.3,24632,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24632,1,3,0)
;;=3^Simple Chr Bronchitis
;;^UTILITY(U,$J,358.3,24632,1,4,0)
;;=4^J41.0
;;^UTILITY(U,$J,358.3,24632,2)
;;=^269946
;;^UTILITY(U,$J,358.3,24633,0)
;;=B44.2^^74^979^85
;;^UTILITY(U,$J,358.3,24633,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24633,1,3,0)
;;=3^Tonsillar Aspergillosis
;;^UTILITY(U,$J,358.3,24633,1,4,0)
;;=4^B44.2
;;^UTILITY(U,$J,358.3,24633,2)
;;=^5000665
;;^UTILITY(U,$J,358.3,24634,0)
;;=A15.0^^74^979^86
;;^UTILITY(U,$J,358.3,24634,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24634,1,3,0)
;;=3^Tuberculosis of Lung
;;^UTILITY(U,$J,358.3,24634,1,4,0)
;;=4^A15.0
;;^UTILITY(U,$J,358.3,24634,2)
;;=^5000062
;;^UTILITY(U,$J,358.3,24635,0)
;;=A15.6^^74^979^87
;;^UTILITY(U,$J,358.3,24635,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24635,1,3,0)
;;=3^Tuberculous Pleurisy
;;^UTILITY(U,$J,358.3,24635,1,4,0)
;;=4^A15.6
;;^UTILITY(U,$J,358.3,24635,2)
;;=^5000064
;;^UTILITY(U,$J,358.3,24636,0)
;;=H60.503^^74^979^26
;;^UTILITY(U,$J,358.3,24636,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24636,1,3,0)
;;=3^AC Noninfective Otitis Externa,Bilateral,Unspec
;;^UTILITY(U,$J,358.3,24636,1,4,0)
;;=4^H60.503
;;^UTILITY(U,$J,358.3,24636,2)
;;=^5006469
;;^UTILITY(U,$J,358.3,24637,0)
;;=H60.502^^74^979^27
;;^UTILITY(U,$J,358.3,24637,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24637,1,3,0)
;;=3^AC Noninfective Otitis Externa,Left Ear,Unspec
;;^UTILITY(U,$J,358.3,24637,1,4,0)
;;=4^H60.502
;;^UTILITY(U,$J,358.3,24637,2)
;;=^5006468
;;^UTILITY(U,$J,358.3,24638,0)
;;=H60.501^^74^979^28
;;^UTILITY(U,$J,358.3,24638,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24638,1,3,0)
;;=3^AC Noninfective Otitis Externa,Right Ear,Unspec
;;^UTILITY(U,$J,358.3,24638,1,4,0)
;;=4^H60.501
;;^UTILITY(U,$J,358.3,24638,2)
;;=^5006467
;;^UTILITY(U,$J,358.3,24639,0)
;;=J15.9^^74^979^46
;;^UTILITY(U,$J,358.3,24639,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24639,1,3,0)
;;=3^Bacterial Pneumonia,Unspec
;;^UTILITY(U,$J,358.3,24639,1,4,0)
;;=4^J15.9
;;^UTILITY(U,$J,358.3,24639,2)
;;=^5008178
;;^UTILITY(U,$J,358.3,24640,0)
;;=B97.10^^74^979^58
;;^UTILITY(U,$J,358.3,24640,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24640,1,3,0)
;;=3^Enterovirus as Cause of Diseases Classified Elsewhere,Unspec
;;^UTILITY(U,$J,358.3,24640,1,4,0)
;;=4^B97.10
;;^UTILITY(U,$J,358.3,24640,2)
;;=^5000861
;;^UTILITY(U,$J,358.3,24641,0)
;;=J30.0^^74^979^88
;;^UTILITY(U,$J,358.3,24641,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24641,1,3,0)
;;=3^Vasomotor Rhinitis
;;^UTILITY(U,$J,358.3,24641,1,4,0)
;;=4^J30.0
;;^UTILITY(U,$J,358.3,24641,2)
;;=^5008201
;;^UTILITY(U,$J,358.3,24642,0)
;;=B34.9^^74^979^89
;;^UTILITY(U,$J,358.3,24642,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24642,1,3,0)
;;=3^Viral Infection,Unspec
;;^UTILITY(U,$J,358.3,24642,1,4,0)
;;=4^B34.9
;;^UTILITY(U,$J,358.3,24642,2)
;;=^5000603
;;^UTILITY(U,$J,358.3,24643,0)
;;=J12.9^^74^979^90
;;^UTILITY(U,$J,358.3,24643,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24643,1,3,0)
;;=3^Viral Pneumonia,Unspec
;;^UTILITY(U,$J,358.3,24643,1,4,0)
;;=4^J12.9
;;^UTILITY(U,$J,358.3,24643,2)
;;=^5008169
;;^UTILITY(U,$J,358.3,24644,0)
;;=J84.114^^74^980^1
;;^UTILITY(U,$J,358.3,24644,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24644,1,3,0)
;;=3^AC Interstitial Pneumonitis
;;^UTILITY(U,$J,358.3,24644,1,4,0)
;;=4^J84.114
;;^UTILITY(U,$J,358.3,24644,2)
;;=^340536
;;^UTILITY(U,$J,358.3,24645,0)
;;=J84.09^^74^980^2
;;^UTILITY(U,$J,358.3,24645,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24645,1,3,0)
;;=3^Alveolar/Parieto-Alveolar Conditions NEC
;;^UTILITY(U,$J,358.3,24645,1,4,0)
;;=4^J84.09
;;^UTILITY(U,$J,358.3,24645,2)
;;=^5008299
;;^UTILITY(U,$J,358.3,24646,0)
;;=J67.2^^74^980^3
;;^UTILITY(U,$J,358.3,24646,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24646,1,3,0)
;;=3^Bird Fancier's Lung
;;^UTILITY(U,$J,358.3,24646,1,4,0)
;;=4^J67.2
;;^UTILITY(U,$J,358.3,24646,2)
;;=^14840
;;^UTILITY(U,$J,358.3,24647,0)
;;=J68.4^^74^980^5
;;^UTILITY(U,$J,358.3,24647,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24647,1,3,0)
;;=3^Chr Resp Cond d/t Chemicals/Gases/Fumes/Vapors
;;^UTILITY(U,$J,358.3,24647,1,4,0)
;;=4^J68.4
;;^UTILITY(U,$J,358.3,24647,2)
;;=^5008285
;;^UTILITY(U,$J,358.3,24648,0)
;;=M34.1^^74^980^4
;;^UTILITY(U,$J,358.3,24648,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24648,1,3,0)
;;=3^CR(E)ST Syndrome
;;^UTILITY(U,$J,358.3,24648,1,4,0)
;;=4^M34.1
;;^UTILITY(U,$J,358.3,24648,2)
;;=^5011779
;;^UTILITY(U,$J,358.3,24649,0)
;;=J84.116^^74^980^6
;;^UTILITY(U,$J,358.3,24649,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24649,1,3,0)
;;=3^Cryptogenic Organizing Pneumonia
;;^UTILITY(U,$J,358.3,24649,1,4,0)
;;=4^J84.116
;;^UTILITY(U,$J,358.3,24649,2)
;;=^340539
;;^UTILITY(U,$J,358.3,24650,0)
;;=J84.117^^74^980^7
;;^UTILITY(U,$J,358.3,24650,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24650,1,3,0)
;;=3^Desquamative Interstitial Pneumonia
;;^UTILITY(U,$J,358.3,24650,1,4,0)
;;=4^J84.117
;;^UTILITY(U,$J,358.3,24650,2)
;;=^340540
;;^UTILITY(U,$J,358.3,24651,0)
;;=M32.0^^74^980^8
;;^UTILITY(U,$J,358.3,24651,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24651,1,3,0)
;;=3^Drug-Induced Systemic Lupus Erythematosus
;;^UTILITY(U,$J,358.3,24651,1,4,0)
;;=4^M32.0
;;^UTILITY(U,$J,358.3,24651,2)
;;=^5011752
;;^UTILITY(U,$J,358.3,24652,0)
;;=M32.11^^74^980^9
;;^UTILITY(U,$J,358.3,24652,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24652,1,3,0)
;;=3^Endocarditis in Systemic Lupus Erythematosus
;;^UTILITY(U,$J,358.3,24652,1,4,0)
;;=4^M32.11
;;^UTILITY(U,$J,358.3,24652,2)
;;=^5011754
;;^UTILITY(U,$J,358.3,24653,0)
;;=J67.0^^74^980^10
;;^UTILITY(U,$J,358.3,24653,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24653,1,3,0)
;;=3^Farmer's Lung
;;^UTILITY(U,$J,358.3,24653,1,4,0)
;;=4^J67.0
;;^UTILITY(U,$J,358.3,24653,2)
;;=^44962
;;^UTILITY(U,$J,358.3,24654,0)
;;=M32.14^^74^980^11
;;^UTILITY(U,$J,358.3,24654,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24654,1,3,0)
;;=3^Glomerular Disease in Systemic Lupus Erythematosus
;;^UTILITY(U,$J,358.3,24654,1,4,0)
;;=4^M32.14
;;^UTILITY(U,$J,358.3,24654,2)
;;=^5011757
;;^UTILITY(U,$J,358.3,24655,0)
;;=J67.9^^74^980^12
;;^UTILITY(U,$J,358.3,24655,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24655,1,3,0)
;;=3^Hypersensitivity Pneumonitis d/t Unspec Organic Dust
;;^UTILITY(U,$J,358.3,24655,1,4,0)
;;=4^J67.9
;;^UTILITY(U,$J,358.3,24655,2)
;;=^5008280
;;^UTILITY(U,$J,358.3,24656,0)
;;=J84.113^^74^980^14
;;^UTILITY(U,$J,358.3,24656,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24656,1,3,0)
;;=3^Idiopathic Non-Specific Interstitial Pneumonitis
;;^UTILITY(U,$J,358.3,24656,1,4,0)
;;=4^J84.113
;;^UTILITY(U,$J,358.3,24656,2)
;;=^340535
;;^UTILITY(U,$J,358.3,24657,0)
;;=J84.112^^74^980^15
;;^UTILITY(U,$J,358.3,24657,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24657,1,3,0)
;;=3^Idiopathic Pulmonary Fibrosis
;;^UTILITY(U,$J,358.3,24657,1,4,0)
;;=4^J84.112
;;^UTILITY(U,$J,358.3,24657,2)
;;=^340534
;;^UTILITY(U,$J,358.3,24658,0)
;;=J84.111^^74^980^13
;;^UTILITY(U,$J,358.3,24658,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24658,1,3,0)
;;=3^Idiopathic Interstitial Pneumonia NOS
;;^UTILITY(U,$J,358.3,24658,1,4,0)
;;=4^J84.111
;;^UTILITY(U,$J,358.3,24658,2)
;;=^340610
;;^UTILITY(U,$J,358.3,24659,0)
;;=J84.9^^74^980^18
;;^UTILITY(U,$J,358.3,24659,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24659,1,3,0)
;;=3^Interstitial Pulmonary Disease,Unspec
;;^UTILITY(U,$J,358.3,24659,1,4,0)
;;=4^J84.9
;;^UTILITY(U,$J,358.3,24659,2)
;;=^5008304
;;^UTILITY(U,$J,358.3,24660,0)
;;=M32.13^^74^980^19
;;^UTILITY(U,$J,358.3,24660,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24660,1,3,0)
;;=3^Lung Involvement in Systemic Lupus Erythematosus
;;^UTILITY(U,$J,358.3,24660,1,4,0)
;;=4^M32.13
;;^UTILITY(U,$J,358.3,24660,2)
;;=^5011756
;;^UTILITY(U,$J,358.3,24661,0)
;;=J84.2^^74^980^20
;;^UTILITY(U,$J,358.3,24661,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24661,1,3,0)
;;=3^Lymphoid Interstitial Pneumonia
;;^UTILITY(U,$J,358.3,24661,1,4,0)
;;=4^J84.2
;;^UTILITY(U,$J,358.3,24661,2)
;;=^5008302
;;^UTILITY(U,$J,358.3,24662,0)
;;=D86.82^^74^980^21
;;^UTILITY(U,$J,358.3,24662,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24662,1,3,0)
;;=3^Multiple Cranial Nerve Palsies in Sarcoidosis
;;^UTILITY(U,$J,358.3,24662,1,4,0)
;;=4^D86.82
;;^UTILITY(U,$J,358.3,24662,2)
;;=^5002447
;;^UTILITY(U,$J,358.3,24663,0)
;;=M32.8^^74^980^60
;;^UTILITY(U,$J,358.3,24663,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24663,1,3,0)
;;=3^Systemic Lupus Erythematosus NEC
;;^UTILITY(U,$J,358.3,24663,1,4,0)
;;=4^M32.8
;;^UTILITY(U,$J,358.3,24663,2)
;;=^5011760
;;^UTILITY(U,$J,358.3,24664,0)
;;=J68.8^^74^980^25
;;^UTILITY(U,$J,358.3,24664,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24664,1,3,0)
;;=3^Respiratory Condition d/t Chemicals/Gases/Fumes/Vapors
;;^UTILITY(U,$J,358.3,24664,1,4,0)
;;=4^J68.8
;;^UTILITY(U,$J,358.3,24664,2)
;;=^5008286
;;^UTILITY(U,$J,358.3,24665,0)
;;=J69.0^^74^980^22
;;^UTILITY(U,$J,358.3,24665,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24665,1,3,0)
;;=3^Pneumonitis d/t Inhalation of Food/Vomit
;;^UTILITY(U,$J,358.3,24665,1,4,0)
;;=4^J69.0
;;^UTILITY(U,$J,358.3,24665,2)
;;=^5008288
;;^UTILITY(U,$J,358.3,24666,0)
;;=J69.1^^74^980^23
;;^UTILITY(U,$J,358.3,24666,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24666,1,3,0)
;;=3^Pneumonitis d/t Inhalation of Oils/Essences
;;^UTILITY(U,$J,358.3,24666,1,4,0)
;;=4^J69.1
;;^UTILITY(U,$J,358.3,24666,2)
;;=^95664
;;^UTILITY(U,$J,358.3,24667,0)
;;=J84.115^^74^980^24
;;^UTILITY(U,$J,358.3,24667,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24667,1,3,0)
;;=3^Respiratory Bronchiolitis Interstitial Lung Disease
;;^UTILITY(U,$J,358.3,24667,1,4,0)
;;=4^J84.115
;;^UTILITY(U,$J,358.3,24667,2)
;;=^340537
;;^UTILITY(U,$J,358.3,24668,0)
;;=M05.172^^74^980^26
;;^UTILITY(U,$J,358.3,24668,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24668,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Left Ankle/Foot
;;^UTILITY(U,$J,358.3,24668,1,4,0)
;;=4^M05.172
;;^UTILITY(U,$J,358.3,24668,2)
;;=^5009882
;;^UTILITY(U,$J,358.3,24669,0)
;;=M05.122^^74^980^27
;;^UTILITY(U,$J,358.3,24669,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24669,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Left Elbow
;;^UTILITY(U,$J,358.3,24669,1,4,0)
;;=4^M05.122
;;^UTILITY(U,$J,358.3,24669,2)
;;=^5009867
;;^UTILITY(U,$J,358.3,24670,0)
;;=M05.142^^74^980^28
;;^UTILITY(U,$J,358.3,24670,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24670,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Left Hand
;;^UTILITY(U,$J,358.3,24670,1,4,0)
;;=4^M05.142
;;^UTILITY(U,$J,358.3,24670,2)
;;=^5009873
;;^UTILITY(U,$J,358.3,24671,0)
;;=M05.152^^74^980^29
;;^UTILITY(U,$J,358.3,24671,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24671,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Left Hip
;;^UTILITY(U,$J,358.3,24671,1,4,0)
;;=4^M05.152
;;^UTILITY(U,$J,358.3,24671,2)
;;=^5009876
;;^UTILITY(U,$J,358.3,24672,0)
;;=M05.162^^74^980^30
;;^UTILITY(U,$J,358.3,24672,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24672,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Left Knee
;;^UTILITY(U,$J,358.3,24672,1,4,0)
;;=4^M05.162
;;^UTILITY(U,$J,358.3,24672,2)
;;=^5009879
;;^UTILITY(U,$J,358.3,24673,0)
;;=M05.112^^74^980^31
;;^UTILITY(U,$J,358.3,24673,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24673,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Left Shldr
;;^UTILITY(U,$J,358.3,24673,1,4,0)
;;=4^M05.112
;;^UTILITY(U,$J,358.3,24673,2)
;;=^5009864
;;^UTILITY(U,$J,358.3,24674,0)
;;=M05.132^^74^980^32
;;^UTILITY(U,$J,358.3,24674,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24674,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Left Wrist
;;^UTILITY(U,$J,358.3,24674,1,4,0)
;;=4^M05.132
;;^UTILITY(U,$J,358.3,24674,2)
;;=^5009870
;;^UTILITY(U,$J,358.3,24675,0)
;;=M05.19^^74^980^33
;;^UTILITY(U,$J,358.3,24675,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24675,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Mult Sites
;;^UTILITY(U,$J,358.3,24675,1,4,0)
;;=4^M05.19
;;^UTILITY(U,$J,358.3,24675,2)
;;=^5009884
;;^UTILITY(U,$J,358.3,24676,0)
;;=M05.171^^74^980^34
;;^UTILITY(U,$J,358.3,24676,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24676,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Right Ankle/Foot
;;^UTILITY(U,$J,358.3,24676,1,4,0)
;;=4^M05.171
;;^UTILITY(U,$J,358.3,24676,2)
;;=^5009881
;;^UTILITY(U,$J,358.3,24677,0)
;;=M05.121^^74^980^35
;;^UTILITY(U,$J,358.3,24677,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24677,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Right Elbow
;;^UTILITY(U,$J,358.3,24677,1,4,0)
;;=4^M05.121
;;^UTILITY(U,$J,358.3,24677,2)
;;=^5009866
;;^UTILITY(U,$J,358.3,24678,0)
;;=M05.141^^74^980^36
;;^UTILITY(U,$J,358.3,24678,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24678,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Right Hand
;;^UTILITY(U,$J,358.3,24678,1,4,0)
;;=4^M05.141
;;^UTILITY(U,$J,358.3,24678,2)
;;=^5009872
;;^UTILITY(U,$J,358.3,24679,0)
;;=M05.151^^74^980^37
;;^UTILITY(U,$J,358.3,24679,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24679,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Right Hip
;;^UTILITY(U,$J,358.3,24679,1,4,0)
;;=4^M05.151
;;^UTILITY(U,$J,358.3,24679,2)
;;=^5009875
;;^UTILITY(U,$J,358.3,24680,0)
;;=M05.161^^74^980^38
;;^UTILITY(U,$J,358.3,24680,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24680,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Right Knee
;;^UTILITY(U,$J,358.3,24680,1,4,0)
;;=4^M05.161
;;^UTILITY(U,$J,358.3,24680,2)
;;=^5009878
;;^UTILITY(U,$J,358.3,24681,0)
;;=M05.111^^74^980^39
;;^UTILITY(U,$J,358.3,24681,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24681,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Right Shldr
;;^UTILITY(U,$J,358.3,24681,1,4,0)
;;=4^M05.111
;;^UTILITY(U,$J,358.3,24681,2)
;;=^5009863
;;^UTILITY(U,$J,358.3,24682,0)
;;=M05.131^^74^980^40
;;^UTILITY(U,$J,358.3,24682,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24682,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Right Wrist
;;^UTILITY(U,$J,358.3,24682,1,4,0)
;;=4^M05.131
;;^UTILITY(U,$J,358.3,24682,2)
;;=^5009869
;;^UTILITY(U,$J,358.3,24683,0)
;;=M05.10^^74^980^41
;;^UTILITY(U,$J,358.3,24683,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24683,1,3,0)
;;=3^Rheu Lung Disease w/ Rheu Arth of Unspec Site
;;^UTILITY(U,$J,358.3,24683,1,4,0)
;;=4^M05.10
;;^UTILITY(U,$J,358.3,24683,2)
;;=^5009862
;;^UTILITY(U,$J,358.3,24684,0)
;;=D86.86^^74^980^42
;;^UTILITY(U,$J,358.3,24684,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24684,1,3,0)
;;=3^Sarcoid Arthropathy
;;^UTILITY(U,$J,358.3,24684,1,4,0)
;;=4^D86.86
;;^UTILITY(U,$J,358.3,24684,2)
;;=^5002451
;;^UTILITY(U,$J,358.3,24685,0)
;;=D86.83^^74^980^43
;;^UTILITY(U,$J,358.3,24685,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,24685,1,3,0)
;;=3^Sarcoid Iridocyclitis
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0A2 19745 printed Sep 23, 2025@19:20:35 Page 2
IBDEI0A2 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,24618,0)
+2 ;;=B44.1^^74^979^76
+3 ;;^UTILITY(U,$J,358.3,24618,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,24618,1,3,0)
+6 ;;=3^Pulmonary Aspergillosis NEC
+7 ;;^UTILITY(U,$J,358.3,24618,1,4,0)
+8 ;;=4^B44.1
+9 ;;^UTILITY(U,$J,358.3,24618,2)
+10 ;;=^5000664
+11 ;;^UTILITY(U,$J,358.3,24619,0)
+12 ;;=B48.4^^74^979^68
+13 ;;^UTILITY(U,$J,358.3,24619,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,24619,1,3,0)
+16 ;;=3^Penicillosis
+17 ;;^UTILITY(U,$J,358.3,24619,1,4,0)
+18 ;;=4^B48.4
+19 ;;^UTILITY(U,$J,358.3,24619,2)
+20 ;;=^5000688
+21 ;;^UTILITY(U,$J,358.3,24620,0)
+22 ;;=J14.^^74^979^69
+23 ;;^UTILITY(U,$J,358.3,24620,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,24620,1,3,0)
+26 ;;=3^Pneumonia d/t Hemophilus Influenzae
+27 ;;^UTILITY(U,$J,358.3,24620,1,4,0)
+28 ;;=4^J14.
+29 ;;^UTILITY(U,$J,358.3,24620,2)
+30 ;;=^5008171
+31 ;;^UTILITY(U,$J,358.3,24621,0)
+32 ;;=J13.^^74^979^70
+33 ;;^UTILITY(U,$J,358.3,24621,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,24621,1,3,0)
+36 ;;=3^Pneumonia d/t Streptococcus Pneumoniae
+37 ;;^UTILITY(U,$J,358.3,24621,1,4,0)
+38 ;;=4^J13.
+39 ;;^UTILITY(U,$J,358.3,24621,2)
+40 ;;=^5008170
+41 ;;^UTILITY(U,$J,358.3,24622,0)
+42 ;;=J17.^^74^979^71
+43 ;;^UTILITY(U,$J,358.3,24622,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,24622,1,3,0)
+46 ;;=3^Pneumonia in Diseases Classified Elsewhere
+47 ;;^UTILITY(U,$J,358.3,24622,1,4,0)
+48 ;;=4^J17.
+49 ;;^UTILITY(U,$J,358.3,24622,2)
+50 ;;=^5008181
+51 ;;^UTILITY(U,$J,358.3,24623,0)
+52 ;;=J18.9^^74^979^72
+53 ;;^UTILITY(U,$J,358.3,24623,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,24623,1,3,0)
+56 ;;=3^Pneumonia,Unspec Organism
+57 ;;^UTILITY(U,$J,358.3,24623,1,4,0)
+58 ;;=4^J18.9
+59 ;;^UTILITY(U,$J,358.3,24623,2)
+60 ;;=^95632
+61 ;;^UTILITY(U,$J,358.3,24624,0)
+62 ;;=A15.7^^74^979^74
+63 ;;^UTILITY(U,$J,358.3,24624,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,24624,1,3,0)
+66 ;;=3^Primary Respiratory TB
+67 ;;^UTILITY(U,$J,358.3,24624,1,4,0)
+68 ;;=4^A15.7
+69 ;;^UTILITY(U,$J,358.3,24624,2)
+70 ;;=^5000065
+71 ;;^UTILITY(U,$J,358.3,24625,0)
+72 ;;=A42.0^^74^979^75
+73 ;;^UTILITY(U,$J,358.3,24625,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,24625,1,3,0)
+76 ;;=3^Pulmonary Actinomycosis
+77 ;;^UTILITY(U,$J,358.3,24625,1,4,0)
+78 ;;=4^A42.0
+79 ;;^UTILITY(U,$J,358.3,24625,2)
+80 ;;=^5000215
+81 ;;^UTILITY(U,$J,358.3,24626,0)
+82 ;;=B40.2^^74^979^77
+83 ;;^UTILITY(U,$J,358.3,24626,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,24626,1,3,0)
+86 ;;=3^Pulmonary Blastomycosis,Unspec
+87 ;;^UTILITY(U,$J,358.3,24626,1,4,0)
+88 ;;=4^B40.2
+89 ;;^UTILITY(U,$J,358.3,24626,2)
+90 ;;=^5000641
+91 ;;^UTILITY(U,$J,358.3,24627,0)
+92 ;;=B38.2^^74^979^78
+93 ;;^UTILITY(U,$J,358.3,24627,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,24627,1,3,0)
+96 ;;=3^Pulmonary Coccidiodomycosis,Unspec
+97 ;;^UTILITY(U,$J,358.3,24627,1,4,0)
+98 ;;=4^B38.2
+99 ;;^UTILITY(U,$J,358.3,24627,2)
+100 ;;=^295703
+101 ;;^UTILITY(U,$J,358.3,24628,0)
+102 ;;=B45.0^^74^979^79
+103 ;;^UTILITY(U,$J,358.3,24628,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,24628,1,3,0)
+106 ;;=3^Pulmonary Cryptococcosis
+107 ;;^UTILITY(U,$J,358.3,24628,1,4,0)
+108 ;;=4^B45.0
+109 ;;^UTILITY(U,$J,358.3,24628,2)
+110 ;;=^5000669
+111 ;;^UTILITY(U,$J,358.3,24629,0)
+112 ;;=A31.0^^74^979^80
+113 ;;^UTILITY(U,$J,358.3,24629,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,24629,1,3,0)
+116 ;;=3^Pulmonary Mycobacterial Infection
+117 ;;^UTILITY(U,$J,358.3,24629,1,4,0)
+118 ;;=4^A31.0
+119 ;;^UTILITY(U,$J,358.3,24629,2)
+120 ;;=^5000149
+121 ;;^UTILITY(U,$J,358.3,24630,0)
+122 ;;=A43.0^^74^979^81
+123 ;;^UTILITY(U,$J,358.3,24630,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,24630,1,3,0)
+126 ;;=3^Pulmonary Nocardiosis
+127 ;;^UTILITY(U,$J,358.3,24630,1,4,0)
+128 ;;=4^A43.0
+129 ;;^UTILITY(U,$J,358.3,24630,2)
+130 ;;=^5000223
+131 ;;^UTILITY(U,$J,358.3,24631,0)
+132 ;;=B90.9^^74^979^83
+133 ;;^UTILITY(U,$J,358.3,24631,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,24631,1,3,0)
+136 ;;=3^Sequelae of Respiratory/Unspec TB
+137 ;;^UTILITY(U,$J,358.3,24631,1,4,0)
+138 ;;=4^B90.9
+139 ;;^UTILITY(U,$J,358.3,24631,2)
+140 ;;=^5000827
+141 ;;^UTILITY(U,$J,358.3,24632,0)
+142 ;;=J41.0^^74^979^84
+143 ;;^UTILITY(U,$J,358.3,24632,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,24632,1,3,0)
+146 ;;=3^Simple Chr Bronchitis
+147 ;;^UTILITY(U,$J,358.3,24632,1,4,0)
+148 ;;=4^J41.0
+149 ;;^UTILITY(U,$J,358.3,24632,2)
+150 ;;=^269946
+151 ;;^UTILITY(U,$J,358.3,24633,0)
+152 ;;=B44.2^^74^979^85
+153 ;;^UTILITY(U,$J,358.3,24633,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,24633,1,3,0)
+156 ;;=3^Tonsillar Aspergillosis
+157 ;;^UTILITY(U,$J,358.3,24633,1,4,0)
+158 ;;=4^B44.2
+159 ;;^UTILITY(U,$J,358.3,24633,2)
+160 ;;=^5000665
+161 ;;^UTILITY(U,$J,358.3,24634,0)
+162 ;;=A15.0^^74^979^86
+163 ;;^UTILITY(U,$J,358.3,24634,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,24634,1,3,0)
+166 ;;=3^Tuberculosis of Lung
+167 ;;^UTILITY(U,$J,358.3,24634,1,4,0)
+168 ;;=4^A15.0
+169 ;;^UTILITY(U,$J,358.3,24634,2)
+170 ;;=^5000062
+171 ;;^UTILITY(U,$J,358.3,24635,0)
+172 ;;=A15.6^^74^979^87
+173 ;;^UTILITY(U,$J,358.3,24635,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,24635,1,3,0)
+176 ;;=3^Tuberculous Pleurisy
+177 ;;^UTILITY(U,$J,358.3,24635,1,4,0)
+178 ;;=4^A15.6
+179 ;;^UTILITY(U,$J,358.3,24635,2)
+180 ;;=^5000064
+181 ;;^UTILITY(U,$J,358.3,24636,0)
+182 ;;=H60.503^^74^979^26
+183 ;;^UTILITY(U,$J,358.3,24636,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,24636,1,3,0)
+186 ;;=3^AC Noninfective Otitis Externa,Bilateral,Unspec
+187 ;;^UTILITY(U,$J,358.3,24636,1,4,0)
+188 ;;=4^H60.503
+189 ;;^UTILITY(U,$J,358.3,24636,2)
+190 ;;=^5006469
+191 ;;^UTILITY(U,$J,358.3,24637,0)
+192 ;;=H60.502^^74^979^27
+193 ;;^UTILITY(U,$J,358.3,24637,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,24637,1,3,0)
+196 ;;=3^AC Noninfective Otitis Externa,Left Ear,Unspec
+197 ;;^UTILITY(U,$J,358.3,24637,1,4,0)
+198 ;;=4^H60.502
+199 ;;^UTILITY(U,$J,358.3,24637,2)
+200 ;;=^5006468
+201 ;;^UTILITY(U,$J,358.3,24638,0)
+202 ;;=H60.501^^74^979^28
+203 ;;^UTILITY(U,$J,358.3,24638,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,24638,1,3,0)
+206 ;;=3^AC Noninfective Otitis Externa,Right Ear,Unspec
+207 ;;^UTILITY(U,$J,358.3,24638,1,4,0)
+208 ;;=4^H60.501
+209 ;;^UTILITY(U,$J,358.3,24638,2)
+210 ;;=^5006467
+211 ;;^UTILITY(U,$J,358.3,24639,0)
+212 ;;=J15.9^^74^979^46
+213 ;;^UTILITY(U,$J,358.3,24639,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,24639,1,3,0)
+216 ;;=3^Bacterial Pneumonia,Unspec
+217 ;;^UTILITY(U,$J,358.3,24639,1,4,0)
+218 ;;=4^J15.9
+219 ;;^UTILITY(U,$J,358.3,24639,2)
+220 ;;=^5008178
+221 ;;^UTILITY(U,$J,358.3,24640,0)
+222 ;;=B97.10^^74^979^58
+223 ;;^UTILITY(U,$J,358.3,24640,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,24640,1,3,0)
+226 ;;=3^Enterovirus as Cause of Diseases Classified Elsewhere,Unspec
+227 ;;^UTILITY(U,$J,358.3,24640,1,4,0)
+228 ;;=4^B97.10
+229 ;;^UTILITY(U,$J,358.3,24640,2)
+230 ;;=^5000861
+231 ;;^UTILITY(U,$J,358.3,24641,0)
+232 ;;=J30.0^^74^979^88
+233 ;;^UTILITY(U,$J,358.3,24641,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,24641,1,3,0)
+236 ;;=3^Vasomotor Rhinitis
+237 ;;^UTILITY(U,$J,358.3,24641,1,4,0)
+238 ;;=4^J30.0
+239 ;;^UTILITY(U,$J,358.3,24641,2)
+240 ;;=^5008201
+241 ;;^UTILITY(U,$J,358.3,24642,0)
+242 ;;=B34.9^^74^979^89
+243 ;;^UTILITY(U,$J,358.3,24642,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,24642,1,3,0)
+246 ;;=3^Viral Infection,Unspec
+247 ;;^UTILITY(U,$J,358.3,24642,1,4,0)
+248 ;;=4^B34.9
+249 ;;^UTILITY(U,$J,358.3,24642,2)
+250 ;;=^5000603
+251 ;;^UTILITY(U,$J,358.3,24643,0)
+252 ;;=J12.9^^74^979^90
+253 ;;^UTILITY(U,$J,358.3,24643,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,24643,1,3,0)
+256 ;;=3^Viral Pneumonia,Unspec
+257 ;;^UTILITY(U,$J,358.3,24643,1,4,0)
+258 ;;=4^J12.9
+259 ;;^UTILITY(U,$J,358.3,24643,2)
+260 ;;=^5008169
+261 ;;^UTILITY(U,$J,358.3,24644,0)
+262 ;;=J84.114^^74^980^1
+263 ;;^UTILITY(U,$J,358.3,24644,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,24644,1,3,0)
+266 ;;=3^AC Interstitial Pneumonitis
+267 ;;^UTILITY(U,$J,358.3,24644,1,4,0)
+268 ;;=4^J84.114
+269 ;;^UTILITY(U,$J,358.3,24644,2)
+270 ;;=^340536
+271 ;;^UTILITY(U,$J,358.3,24645,0)
+272 ;;=J84.09^^74^980^2
+273 ;;^UTILITY(U,$J,358.3,24645,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,24645,1,3,0)
+276 ;;=3^Alveolar/Parieto-Alveolar Conditions NEC
+277 ;;^UTILITY(U,$J,358.3,24645,1,4,0)
+278 ;;=4^J84.09
+279 ;;^UTILITY(U,$J,358.3,24645,2)
+280 ;;=^5008299
+281 ;;^UTILITY(U,$J,358.3,24646,0)
+282 ;;=J67.2^^74^980^3
+283 ;;^UTILITY(U,$J,358.3,24646,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,24646,1,3,0)
+286 ;;=3^Bird Fancier's Lung
+287 ;;^UTILITY(U,$J,358.3,24646,1,4,0)
+288 ;;=4^J67.2
+289 ;;^UTILITY(U,$J,358.3,24646,2)
+290 ;;=^14840
+291 ;;^UTILITY(U,$J,358.3,24647,0)
+292 ;;=J68.4^^74^980^5
+293 ;;^UTILITY(U,$J,358.3,24647,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,24647,1,3,0)
+296 ;;=3^Chr Resp Cond d/t Chemicals/Gases/Fumes/Vapors
+297 ;;^UTILITY(U,$J,358.3,24647,1,4,0)
+298 ;;=4^J68.4
+299 ;;^UTILITY(U,$J,358.3,24647,2)
+300 ;;=^5008285
+301 ;;^UTILITY(U,$J,358.3,24648,0)
+302 ;;=M34.1^^74^980^4
+303 ;;^UTILITY(U,$J,358.3,24648,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,24648,1,3,0)
+306 ;;=3^CR(E)ST Syndrome
+307 ;;^UTILITY(U,$J,358.3,24648,1,4,0)
+308 ;;=4^M34.1
+309 ;;^UTILITY(U,$J,358.3,24648,2)
+310 ;;=^5011779
+311 ;;^UTILITY(U,$J,358.3,24649,0)
+312 ;;=J84.116^^74^980^6
+313 ;;^UTILITY(U,$J,358.3,24649,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,24649,1,3,0)
+316 ;;=3^Cryptogenic Organizing Pneumonia
+317 ;;^UTILITY(U,$J,358.3,24649,1,4,0)
+318 ;;=4^J84.116
+319 ;;^UTILITY(U,$J,358.3,24649,2)
+320 ;;=^340539
+321 ;;^UTILITY(U,$J,358.3,24650,0)
+322 ;;=J84.117^^74^980^7
+323 ;;^UTILITY(U,$J,358.3,24650,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,24650,1,3,0)
+326 ;;=3^Desquamative Interstitial Pneumonia
+327 ;;^UTILITY(U,$J,358.3,24650,1,4,0)
+328 ;;=4^J84.117
+329 ;;^UTILITY(U,$J,358.3,24650,2)
+330 ;;=^340540
+331 ;;^UTILITY(U,$J,358.3,24651,0)
+332 ;;=M32.0^^74^980^8
+333 ;;^UTILITY(U,$J,358.3,24651,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,24651,1,3,0)
+336 ;;=3^Drug-Induced Systemic Lupus Erythematosus
+337 ;;^UTILITY(U,$J,358.3,24651,1,4,0)
+338 ;;=4^M32.0
+339 ;;^UTILITY(U,$J,358.3,24651,2)
+340 ;;=^5011752
+341 ;;^UTILITY(U,$J,358.3,24652,0)
+342 ;;=M32.11^^74^980^9
+343 ;;^UTILITY(U,$J,358.3,24652,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,24652,1,3,0)
+346 ;;=3^Endocarditis in Systemic Lupus Erythematosus
+347 ;;^UTILITY(U,$J,358.3,24652,1,4,0)
+348 ;;=4^M32.11
+349 ;;^UTILITY(U,$J,358.3,24652,2)
+350 ;;=^5011754
+351 ;;^UTILITY(U,$J,358.3,24653,0)
+352 ;;=J67.0^^74^980^10
+353 ;;^UTILITY(U,$J,358.3,24653,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,24653,1,3,0)
+356 ;;=3^Farmer's Lung
+357 ;;^UTILITY(U,$J,358.3,24653,1,4,0)
+358 ;;=4^J67.0
+359 ;;^UTILITY(U,$J,358.3,24653,2)
+360 ;;=^44962
+361 ;;^UTILITY(U,$J,358.3,24654,0)
+362 ;;=M32.14^^74^980^11
+363 ;;^UTILITY(U,$J,358.3,24654,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,24654,1,3,0)
+366 ;;=3^Glomerular Disease in Systemic Lupus Erythematosus
+367 ;;^UTILITY(U,$J,358.3,24654,1,4,0)
+368 ;;=4^M32.14
+369 ;;^UTILITY(U,$J,358.3,24654,2)
+370 ;;=^5011757
+371 ;;^UTILITY(U,$J,358.3,24655,0)
+372 ;;=J67.9^^74^980^12
+373 ;;^UTILITY(U,$J,358.3,24655,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,24655,1,3,0)
+376 ;;=3^Hypersensitivity Pneumonitis d/t Unspec Organic Dust
+377 ;;^UTILITY(U,$J,358.3,24655,1,4,0)
+378 ;;=4^J67.9
+379 ;;^UTILITY(U,$J,358.3,24655,2)
+380 ;;=^5008280
+381 ;;^UTILITY(U,$J,358.3,24656,0)
+382 ;;=J84.113^^74^980^14
+383 ;;^UTILITY(U,$J,358.3,24656,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,24656,1,3,0)
+386 ;;=3^Idiopathic Non-Specific Interstitial Pneumonitis
+387 ;;^UTILITY(U,$J,358.3,24656,1,4,0)
+388 ;;=4^J84.113
+389 ;;^UTILITY(U,$J,358.3,24656,2)
+390 ;;=^340535
+391 ;;^UTILITY(U,$J,358.3,24657,0)
+392 ;;=J84.112^^74^980^15
+393 ;;^UTILITY(U,$J,358.3,24657,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,24657,1,3,0)
+396 ;;=3^Idiopathic Pulmonary Fibrosis
+397 ;;^UTILITY(U,$J,358.3,24657,1,4,0)
+398 ;;=4^J84.112
+399 ;;^UTILITY(U,$J,358.3,24657,2)
+400 ;;=^340534
+401 ;;^UTILITY(U,$J,358.3,24658,0)
+402 ;;=J84.111^^74^980^13
+403 ;;^UTILITY(U,$J,358.3,24658,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,24658,1,3,0)
+406 ;;=3^Idiopathic Interstitial Pneumonia NOS
+407 ;;^UTILITY(U,$J,358.3,24658,1,4,0)
+408 ;;=4^J84.111
+409 ;;^UTILITY(U,$J,358.3,24658,2)
+410 ;;=^340610
+411 ;;^UTILITY(U,$J,358.3,24659,0)
+412 ;;=J84.9^^74^980^18
+413 ;;^UTILITY(U,$J,358.3,24659,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,24659,1,3,0)
+416 ;;=3^Interstitial Pulmonary Disease,Unspec
+417 ;;^UTILITY(U,$J,358.3,24659,1,4,0)
+418 ;;=4^J84.9
+419 ;;^UTILITY(U,$J,358.3,24659,2)
+420 ;;=^5008304
+421 ;;^UTILITY(U,$J,358.3,24660,0)
+422 ;;=M32.13^^74^980^19
+423 ;;^UTILITY(U,$J,358.3,24660,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,24660,1,3,0)
+426 ;;=3^Lung Involvement in Systemic Lupus Erythematosus
+427 ;;^UTILITY(U,$J,358.3,24660,1,4,0)
+428 ;;=4^M32.13
+429 ;;^UTILITY(U,$J,358.3,24660,2)
+430 ;;=^5011756
+431 ;;^UTILITY(U,$J,358.3,24661,0)
+432 ;;=J84.2^^74^980^20
+433 ;;^UTILITY(U,$J,358.3,24661,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,24661,1,3,0)
+436 ;;=3^Lymphoid Interstitial Pneumonia
+437 ;;^UTILITY(U,$J,358.3,24661,1,4,0)
+438 ;;=4^J84.2
+439 ;;^UTILITY(U,$J,358.3,24661,2)
+440 ;;=^5008302
+441 ;;^UTILITY(U,$J,358.3,24662,0)
+442 ;;=D86.82^^74^980^21
+443 ;;^UTILITY(U,$J,358.3,24662,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,24662,1,3,0)
+446 ;;=3^Multiple Cranial Nerve Palsies in Sarcoidosis
+447 ;;^UTILITY(U,$J,358.3,24662,1,4,0)
+448 ;;=4^D86.82
+449 ;;^UTILITY(U,$J,358.3,24662,2)
+450 ;;=^5002447
+451 ;;^UTILITY(U,$J,358.3,24663,0)
+452 ;;=M32.8^^74^980^60
+453 ;;^UTILITY(U,$J,358.3,24663,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,24663,1,3,0)
+456 ;;=3^Systemic Lupus Erythematosus NEC
+457 ;;^UTILITY(U,$J,358.3,24663,1,4,0)
+458 ;;=4^M32.8
+459 ;;^UTILITY(U,$J,358.3,24663,2)
+460 ;;=^5011760
+461 ;;^UTILITY(U,$J,358.3,24664,0)
+462 ;;=J68.8^^74^980^25
+463 ;;^UTILITY(U,$J,358.3,24664,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,24664,1,3,0)
+466 ;;=3^Respiratory Condition d/t Chemicals/Gases/Fumes/Vapors
+467 ;;^UTILITY(U,$J,358.3,24664,1,4,0)
+468 ;;=4^J68.8
+469 ;;^UTILITY(U,$J,358.3,24664,2)
+470 ;;=^5008286
+471 ;;^UTILITY(U,$J,358.3,24665,0)
+472 ;;=J69.0^^74^980^22
+473 ;;^UTILITY(U,$J,358.3,24665,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,24665,1,3,0)
+476 ;;=3^Pneumonitis d/t Inhalation of Food/Vomit
+477 ;;^UTILITY(U,$J,358.3,24665,1,4,0)
+478 ;;=4^J69.0
+479 ;;^UTILITY(U,$J,358.3,24665,2)
+480 ;;=^5008288
+481 ;;^UTILITY(U,$J,358.3,24666,0)
+482 ;;=J69.1^^74^980^23
+483 ;;^UTILITY(U,$J,358.3,24666,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,24666,1,3,0)
+486 ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
+487 ;;^UTILITY(U,$J,358.3,24666,1,4,0)
+488 ;;=4^J69.1
+489 ;;^UTILITY(U,$J,358.3,24666,2)
+490 ;;=^95664
+491 ;;^UTILITY(U,$J,358.3,24667,0)
+492 ;;=J84.115^^74^980^24
+493 ;;^UTILITY(U,$J,358.3,24667,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,24667,1,3,0)
+496 ;;=3^Respiratory Bronchiolitis Interstitial Lung Disease
+497 ;;^UTILITY(U,$J,358.3,24667,1,4,0)
+498 ;;=4^J84.115
+499 ;;^UTILITY(U,$J,358.3,24667,2)
+500 ;;=^340537
+501 ;;^UTILITY(U,$J,358.3,24668,0)
+502 ;;=M05.172^^74^980^26
+503 ;;^UTILITY(U,$J,358.3,24668,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,24668,1,3,0)
+506 ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Ankle/Foot
+507 ;;^UTILITY(U,$J,358.3,24668,1,4,0)
+508 ;;=4^M05.172
+509 ;;^UTILITY(U,$J,358.3,24668,2)
+510 ;;=^5009882
+511 ;;^UTILITY(U,$J,358.3,24669,0)
+512 ;;=M05.122^^74^980^27
+513 ;;^UTILITY(U,$J,358.3,24669,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,24669,1,3,0)
+516 ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Elbow
+517 ;;^UTILITY(U,$J,358.3,24669,1,4,0)
+518 ;;=4^M05.122
+519 ;;^UTILITY(U,$J,358.3,24669,2)
+520 ;;=^5009867
+521 ;;^UTILITY(U,$J,358.3,24670,0)
+522 ;;=M05.142^^74^980^28
+523 ;;^UTILITY(U,$J,358.3,24670,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,24670,1,3,0)
+526 ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Hand
+527 ;;^UTILITY(U,$J,358.3,24670,1,4,0)
+528 ;;=4^M05.142
+529 ;;^UTILITY(U,$J,358.3,24670,2)
+530 ;;=^5009873
+531 ;;^UTILITY(U,$J,358.3,24671,0)
+532 ;;=M05.152^^74^980^29
+533 ;;^UTILITY(U,$J,358.3,24671,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,24671,1,3,0)
+536 ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Hip
+537 ;;^UTILITY(U,$J,358.3,24671,1,4,0)
+538 ;;=4^M05.152
+539 ;;^UTILITY(U,$J,358.3,24671,2)
+540 ;;=^5009876
+541 ;;^UTILITY(U,$J,358.3,24672,0)
+542 ;;=M05.162^^74^980^30
+543 ;;^UTILITY(U,$J,358.3,24672,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,24672,1,3,0)
+546 ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Knee
+547 ;;^UTILITY(U,$J,358.3,24672,1,4,0)
+548 ;;=4^M05.162
+549 ;;^UTILITY(U,$J,358.3,24672,2)
+550 ;;=^5009879
+551 ;;^UTILITY(U,$J,358.3,24673,0)
+552 ;;=M05.112^^74^980^31
+553 ;;^UTILITY(U,$J,358.3,24673,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,24673,1,3,0)
+556 ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Shldr
+557 ;;^UTILITY(U,$J,358.3,24673,1,4,0)
+558 ;;=4^M05.112
+559 ;;^UTILITY(U,$J,358.3,24673,2)
+560 ;;=^5009864
+561 ;;^UTILITY(U,$J,358.3,24674,0)
+562 ;;=M05.132^^74^980^32
+563 ;;^UTILITY(U,$J,358.3,24674,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,24674,1,3,0)
+566 ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Wrist
+567 ;;^UTILITY(U,$J,358.3,24674,1,4,0)
+568 ;;=4^M05.132
+569 ;;^UTILITY(U,$J,358.3,24674,2)
+570 ;;=^5009870
+571 ;;^UTILITY(U,$J,358.3,24675,0)
+572 ;;=M05.19^^74^980^33
+573 ;;^UTILITY(U,$J,358.3,24675,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,24675,1,3,0)
+576 ;;=3^Rheu Lung Disease w/ Rheu Arth of Mult Sites
+577 ;;^UTILITY(U,$J,358.3,24675,1,4,0)
+578 ;;=4^M05.19
+579 ;;^UTILITY(U,$J,358.3,24675,2)
+580 ;;=^5009884
+581 ;;^UTILITY(U,$J,358.3,24676,0)
+582 ;;=M05.171^^74^980^34
+583 ;;^UTILITY(U,$J,358.3,24676,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,24676,1,3,0)
+586 ;;=3^Rheu Lung Disease w/ Rheu Arth of Right Ankle/Foot
+587 ;;^UTILITY(U,$J,358.3,24676,1,4,0)
+588 ;;=4^M05.171
+589 ;;^UTILITY(U,$J,358.3,24676,2)
+590 ;;=^5009881
+591 ;;^UTILITY(U,$J,358.3,24677,0)
+592 ;;=M05.121^^74^980^35
+593 ;;^UTILITY(U,$J,358.3,24677,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,24677,1,3,0)
+596 ;;=3^Rheu Lung Disease w/ Rheu Arth of Right Elbow
+597 ;;^UTILITY(U,$J,358.3,24677,1,4,0)
+598 ;;=4^M05.121
+599 ;;^UTILITY(U,$J,358.3,24677,2)
+600 ;;=^5009866
+601 ;;^UTILITY(U,$J,358.3,24678,0)
+602 ;;=M05.141^^74^980^36
+603 ;;^UTILITY(U,$J,358.3,24678,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,24678,1,3,0)
+606 ;;=3^Rheu Lung Disease w/ Rheu Arth of Right Hand
+607 ;;^UTILITY(U,$J,358.3,24678,1,4,0)
+608 ;;=4^M05.141
+609 ;;^UTILITY(U,$J,358.3,24678,2)
+610 ;;=^5009872
+611 ;;^UTILITY(U,$J,358.3,24679,0)
+612 ;;=M05.151^^74^980^37
+613 ;;^UTILITY(U,$J,358.3,24679,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,24679,1,3,0)
+616 ;;=3^Rheu Lung Disease w/ Rheu Arth of Right Hip
+617 ;;^UTILITY(U,$J,358.3,24679,1,4,0)
+618 ;;=4^M05.151
+619 ;;^UTILITY(U,$J,358.3,24679,2)
+620 ;;=^5009875
+621 ;;^UTILITY(U,$J,358.3,24680,0)
+622 ;;=M05.161^^74^980^38
+623 ;;^UTILITY(U,$J,358.3,24680,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,24680,1,3,0)
+626 ;;=3^Rheu Lung Disease w/ Rheu Arth of Right Knee
+627 ;;^UTILITY(U,$J,358.3,24680,1,4,0)
+628 ;;=4^M05.161
+629 ;;^UTILITY(U,$J,358.3,24680,2)
+630 ;;=^5009878
+631 ;;^UTILITY(U,$J,358.3,24681,0)
+632 ;;=M05.111^^74^980^39
+633 ;;^UTILITY(U,$J,358.3,24681,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,24681,1,3,0)
+636 ;;=3^Rheu Lung Disease w/ Rheu Arth of Right Shldr
+637 ;;^UTILITY(U,$J,358.3,24681,1,4,0)
+638 ;;=4^M05.111
+639 ;;^UTILITY(U,$J,358.3,24681,2)
+640 ;;=^5009863
+641 ;;^UTILITY(U,$J,358.3,24682,0)
+642 ;;=M05.131^^74^980^40
+643 ;;^UTILITY(U,$J,358.3,24682,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,24682,1,3,0)
+646 ;;=3^Rheu Lung Disease w/ Rheu Arth of Right Wrist
+647 ;;^UTILITY(U,$J,358.3,24682,1,4,0)
+648 ;;=4^M05.131
+649 ;;^UTILITY(U,$J,358.3,24682,2)
+650 ;;=^5009869
+651 ;;^UTILITY(U,$J,358.3,24683,0)
+652 ;;=M05.10^^74^980^41
+653 ;;^UTILITY(U,$J,358.3,24683,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,24683,1,3,0)
+656 ;;=3^Rheu Lung Disease w/ Rheu Arth of Unspec Site
+657 ;;^UTILITY(U,$J,358.3,24683,1,4,0)
+658 ;;=4^M05.10
+659 ;;^UTILITY(U,$J,358.3,24683,2)
+660 ;;=^5009862
+661 ;;^UTILITY(U,$J,358.3,24684,0)
+662 ;;=D86.86^^74^980^42
+663 ;;^UTILITY(U,$J,358.3,24684,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,24684,1,3,0)
+666 ;;=3^Sarcoid Arthropathy
+667 ;;^UTILITY(U,$J,358.3,24684,1,4,0)
+668 ;;=4^D86.86
+669 ;;^UTILITY(U,$J,358.3,24684,2)
+670 ;;=^5002451
+671 ;;^UTILITY(U,$J,358.3,24685,0)
+672 ;;=D86.83^^74^980^43
+673 ;;^UTILITY(U,$J,358.3,24685,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,24685,1,3,0)
+676 ;;=3^Sarcoid Iridocyclitis
