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

IBDEI0A5.m

Go to the documentation of this file.
IBDEI0A5 ; ; 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,24821,1,3,0)
 ;;=3^Rheumatoid Nodule Left Wrist
 ;;^UTILITY(U,$J,358.3,24821,1,4,0)
 ;;=4^M06.332
 ;;^UTILITY(U,$J,358.3,24821,2)
 ;;=^5010104
 ;;^UTILITY(U,$J,358.3,24822,0)
 ;;=M06.39^^74^981^133
 ;;^UTILITY(U,$J,358.3,24822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24822,1,3,0)
 ;;=3^Rheumatoid Nodule Mult Sites
 ;;^UTILITY(U,$J,358.3,24822,1,4,0)
 ;;=4^M06.39
 ;;^UTILITY(U,$J,358.3,24822,2)
 ;;=^5010119
 ;;^UTILITY(U,$J,358.3,24823,0)
 ;;=M06.371^^74^981^134
 ;;^UTILITY(U,$J,358.3,24823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24823,1,3,0)
 ;;=3^Rheumatoid Nodule Right Ankle/Foot
 ;;^UTILITY(U,$J,358.3,24823,1,4,0)
 ;;=4^M06.371
 ;;^UTILITY(U,$J,358.3,24823,2)
 ;;=^5010115
 ;;^UTILITY(U,$J,358.3,24824,0)
 ;;=M06.321^^74^981^135
 ;;^UTILITY(U,$J,358.3,24824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24824,1,3,0)
 ;;=3^Rheumatoid Nodule Right Elbow
 ;;^UTILITY(U,$J,358.3,24824,1,4,0)
 ;;=4^M06.321
 ;;^UTILITY(U,$J,358.3,24824,2)
 ;;=^5010100
 ;;^UTILITY(U,$J,358.3,24825,0)
 ;;=M06.341^^74^981^136
 ;;^UTILITY(U,$J,358.3,24825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24825,1,3,0)
 ;;=3^Rheumatoid Nodule Right Hand
 ;;^UTILITY(U,$J,358.3,24825,1,4,0)
 ;;=4^M06.341
 ;;^UTILITY(U,$J,358.3,24825,2)
 ;;=^5010106
 ;;^UTILITY(U,$J,358.3,24826,0)
 ;;=M06.351^^74^981^137
 ;;^UTILITY(U,$J,358.3,24826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24826,1,3,0)
 ;;=3^Rheumatoid Nodule Right Hip
 ;;^UTILITY(U,$J,358.3,24826,1,4,0)
 ;;=4^M06.351
 ;;^UTILITY(U,$J,358.3,24826,2)
 ;;=^5010109
 ;;^UTILITY(U,$J,358.3,24827,0)
 ;;=M06.361^^74^981^138
 ;;^UTILITY(U,$J,358.3,24827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24827,1,3,0)
 ;;=3^Rheumatoid Nodule Right Knee
 ;;^UTILITY(U,$J,358.3,24827,1,4,0)
 ;;=4^M06.361
 ;;^UTILITY(U,$J,358.3,24827,2)
 ;;=^5010112
 ;;^UTILITY(U,$J,358.3,24828,0)
 ;;=M06.311^^74^981^139
 ;;^UTILITY(U,$J,358.3,24828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24828,1,3,0)
 ;;=3^Rheumatoid Nodule Right Shoulder
 ;;^UTILITY(U,$J,358.3,24828,1,4,0)
 ;;=4^M06.311
 ;;^UTILITY(U,$J,358.3,24828,2)
 ;;=^5010097
 ;;^UTILITY(U,$J,358.3,24829,0)
 ;;=M06.331^^74^981^140
 ;;^UTILITY(U,$J,358.3,24829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24829,1,3,0)
 ;;=3^Rheumatoid Nodule Right Wrist
 ;;^UTILITY(U,$J,358.3,24829,1,4,0)
 ;;=4^M06.331
 ;;^UTILITY(U,$J,358.3,24829,2)
 ;;=^5010103
 ;;^UTILITY(U,$J,358.3,24830,0)
 ;;=M06.30^^74^981^141
 ;;^UTILITY(U,$J,358.3,24830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24830,1,3,0)
 ;;=3^Rheumatoid Nodule Unspec Site
 ;;^UTILITY(U,$J,358.3,24830,1,4,0)
 ;;=4^M06.30
 ;;^UTILITY(U,$J,358.3,24830,2)
 ;;=^5010096
 ;;^UTILITY(U,$J,358.3,24831,0)
 ;;=M06.38^^74^981^142
 ;;^UTILITY(U,$J,358.3,24831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24831,1,3,0)
 ;;=3^Rheumatoid Nodule Vertebrae
 ;;^UTILITY(U,$J,358.3,24831,1,4,0)
 ;;=4^M06.38
 ;;^UTILITY(U,$J,358.3,24831,2)
 ;;=^5010118
 ;;^UTILITY(U,$J,358.3,24832,0)
 ;;=M05.572^^74^981^77
 ;;^UTILITY(U,$J,358.3,24832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24832,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Ankle/Foot
 ;;^UTILITY(U,$J,358.3,24832,1,4,0)
 ;;=4^M05.572
 ;;^UTILITY(U,$J,358.3,24832,2)
 ;;=^5009974
 ;;^UTILITY(U,$J,358.3,24833,0)
 ;;=M05.522^^74^981^78
 ;;^UTILITY(U,$J,358.3,24833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24833,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Elbow
 ;;^UTILITY(U,$J,358.3,24833,1,4,0)
 ;;=4^M05.522
 ;;^UTILITY(U,$J,358.3,24833,2)
 ;;=^5009959
 ;;^UTILITY(U,$J,358.3,24834,0)
 ;;=M05.542^^74^981^79
 ;;^UTILITY(U,$J,358.3,24834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24834,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Hand
 ;;^UTILITY(U,$J,358.3,24834,1,4,0)
 ;;=4^M05.542
 ;;^UTILITY(U,$J,358.3,24834,2)
 ;;=^5009965
 ;;^UTILITY(U,$J,358.3,24835,0)
 ;;=M05.552^^74^981^80
 ;;^UTILITY(U,$J,358.3,24835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24835,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Hip
 ;;^UTILITY(U,$J,358.3,24835,1,4,0)
 ;;=4^M05.552
 ;;^UTILITY(U,$J,358.3,24835,2)
 ;;=^5009968
 ;;^UTILITY(U,$J,358.3,24836,0)
 ;;=M05.562^^74^981^81
 ;;^UTILITY(U,$J,358.3,24836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24836,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Knee
 ;;^UTILITY(U,$J,358.3,24836,1,4,0)
 ;;=4^M05.562
 ;;^UTILITY(U,$J,358.3,24836,2)
 ;;=^5009971
 ;;^UTILITY(U,$J,358.3,24837,0)
 ;;=M05.512^^74^981^82
 ;;^UTILITY(U,$J,358.3,24837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24837,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Shoulder
 ;;^UTILITY(U,$J,358.3,24837,1,4,0)
 ;;=4^M05.512
 ;;^UTILITY(U,$J,358.3,24837,2)
 ;;=^5009956
 ;;^UTILITY(U,$J,358.3,24838,0)
 ;;=M05.532^^74^981^83
 ;;^UTILITY(U,$J,358.3,24838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24838,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Wrist
 ;;^UTILITY(U,$J,358.3,24838,1,4,0)
 ;;=4^M05.532
 ;;^UTILITY(U,$J,358.3,24838,2)
 ;;=^5009962
 ;;^UTILITY(U,$J,358.3,24839,0)
 ;;=M05.59^^74^981^84
 ;;^UTILITY(U,$J,358.3,24839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24839,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Mult Sites
 ;;^UTILITY(U,$J,358.3,24839,1,4,0)
 ;;=4^M05.59
 ;;^UTILITY(U,$J,358.3,24839,2)
 ;;=^5009976
 ;;^UTILITY(U,$J,358.3,24840,0)
 ;;=M05.571^^74^981^85
 ;;^UTILITY(U,$J,358.3,24840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24840,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Ankle/Foot
 ;;^UTILITY(U,$J,358.3,24840,1,4,0)
 ;;=4^M05.571
 ;;^UTILITY(U,$J,358.3,24840,2)
 ;;=^5009973
 ;;^UTILITY(U,$J,358.3,24841,0)
 ;;=M05.521^^74^981^86
 ;;^UTILITY(U,$J,358.3,24841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24841,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Elbow
 ;;^UTILITY(U,$J,358.3,24841,1,4,0)
 ;;=4^M05.521
 ;;^UTILITY(U,$J,358.3,24841,2)
 ;;=^5009958
 ;;^UTILITY(U,$J,358.3,24842,0)
 ;;=M05.541^^74^981^87
 ;;^UTILITY(U,$J,358.3,24842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24842,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Hand
 ;;^UTILITY(U,$J,358.3,24842,1,4,0)
 ;;=4^M05.541
 ;;^UTILITY(U,$J,358.3,24842,2)
 ;;=^5009964
 ;;^UTILITY(U,$J,358.3,24843,0)
 ;;=M05.551^^74^981^88
 ;;^UTILITY(U,$J,358.3,24843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24843,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Hip
 ;;^UTILITY(U,$J,358.3,24843,1,4,0)
 ;;=4^M05.551
 ;;^UTILITY(U,$J,358.3,24843,2)
 ;;=^5009967
 ;;^UTILITY(U,$J,358.3,24844,0)
 ;;=M05.561^^74^981^89
 ;;^UTILITY(U,$J,358.3,24844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24844,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Knee
 ;;^UTILITY(U,$J,358.3,24844,1,4,0)
 ;;=4^M05.561
 ;;^UTILITY(U,$J,358.3,24844,2)
 ;;=^5009970
 ;;^UTILITY(U,$J,358.3,24845,0)
 ;;=M05.511^^74^981^90
 ;;^UTILITY(U,$J,358.3,24845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24845,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Shoulder
 ;;^UTILITY(U,$J,358.3,24845,1,4,0)
 ;;=4^M05.511
 ;;^UTILITY(U,$J,358.3,24845,2)
 ;;=^5009955
 ;;^UTILITY(U,$J,358.3,24846,0)
 ;;=M05.531^^74^981^91
 ;;^UTILITY(U,$J,358.3,24846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24846,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Wrist
 ;;^UTILITY(U,$J,358.3,24846,1,4,0)
 ;;=4^M05.531
 ;;^UTILITY(U,$J,358.3,24846,2)
 ;;=^5009961
 ;;^UTILITY(U,$J,358.3,24847,0)
 ;;=M05.50^^74^981^92
 ;;^UTILITY(U,$J,358.3,24847,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24847,1,3,0)
 ;;=3^Rheum Polyneuropathy w/ Rheum Arth Unspec Site
 ;;^UTILITY(U,$J,358.3,24847,1,4,0)
 ;;=4^M05.50
 ;;^UTILITY(U,$J,358.3,24847,2)
 ;;=^5009954
 ;;^UTILITY(U,$J,358.3,24848,0)
 ;;=G04.1^^74^981^143
 ;;^UTILITY(U,$J,358.3,24848,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24848,1,3,0)
 ;;=3^Tropical Spastic Paraplegia
 ;;^UTILITY(U,$J,358.3,24848,1,4,0)
 ;;=4^G04.1
 ;;^UTILITY(U,$J,358.3,24848,2)
 ;;=^5003733
 ;;^UTILITY(U,$J,358.3,24849,0)
 ;;=M19.90^^74^981^20
 ;;^UTILITY(U,$J,358.3,24849,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24849,1,3,0)
 ;;=3^Osteoarthritis Unspec Site
 ;;^UTILITY(U,$J,358.3,24849,1,4,0)
 ;;=4^M19.90
 ;;^UTILITY(U,$J,358.3,24849,2)
 ;;=^5010853
 ;;^UTILITY(U,$J,358.3,24850,0)
 ;;=M54.50^^74^981^16
 ;;^UTILITY(U,$J,358.3,24850,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24850,1,3,0)
 ;;=3^Low Back Pain,Unspec
 ;;^UTILITY(U,$J,358.3,24850,1,4,0)
 ;;=4^M54.50
 ;;^UTILITY(U,$J,358.3,24850,2)
 ;;=^5161215
 ;;^UTILITY(U,$J,358.3,24851,0)
 ;;=M54.59^^74^981^15
 ;;^UTILITY(U,$J,358.3,24851,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24851,1,3,0)
 ;;=3^Low Back Pain,Other
 ;;^UTILITY(U,$J,358.3,24851,1,4,0)
 ;;=4^M54.59
 ;;^UTILITY(U,$J,358.3,24851,2)
 ;;=^5161217
 ;;^UTILITY(U,$J,358.3,24852,0)
 ;;=M54.51^^74^981^17
 ;;^UTILITY(U,$J,358.3,24852,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24852,1,3,0)
 ;;=3^Low Back Pain,Vertebrogenic
 ;;^UTILITY(U,$J,358.3,24852,1,4,0)
 ;;=4^M54.51
 ;;^UTILITY(U,$J,358.3,24852,2)
 ;;=^5161216
 ;;^UTILITY(U,$J,358.3,24853,0)
 ;;=Z79.1^^74^981^14
 ;;^UTILITY(U,$J,358.3,24853,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24853,1,3,0)
 ;;=3^Long Term (Current) Use of NSAID
 ;;^UTILITY(U,$J,358.3,24853,1,4,0)
 ;;=4^Z79.1
 ;;^UTILITY(U,$J,358.3,24853,2)
 ;;=^5063332
 ;;^UTILITY(U,$J,358.3,24854,0)
 ;;=Z48.02^^74^982^1
 ;;^UTILITY(U,$J,358.3,24854,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24854,1,3,0)
 ;;=3^Suture Removal
 ;;^UTILITY(U,$J,358.3,24854,1,4,0)
 ;;=4^Z48.02
 ;;^UTILITY(U,$J,358.3,24854,2)
 ;;=^5063035
 ;;^UTILITY(U,$J,358.3,24855,0)
 ;;=J70.1^^74^983^1
 ;;^UTILITY(U,$J,358.3,24855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24855,1,3,0)
 ;;=3^Chr Pulmonary Manifestations d/t Radiation
 ;;^UTILITY(U,$J,358.3,24855,1,4,0)
 ;;=4^J70.1
 ;;^UTILITY(U,$J,358.3,24855,2)
 ;;=^269983
 ;;^UTILITY(U,$J,358.3,24856,0)
 ;;=J70.0^^74^984^1
 ;;^UTILITY(U,$J,358.3,24856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24856,1,3,0)
 ;;=3^Acute Pulmonary Manifestations d/t Radiation
 ;;^UTILITY(U,$J,358.3,24856,1,4,0)
 ;;=4^J70.0
 ;;^UTILITY(U,$J,358.3,24856,2)
 ;;=^269982
 ;;^UTILITY(U,$J,358.3,24857,0)
 ;;=J63.0^^74^984^2
 ;;^UTILITY(U,$J,358.3,24857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24857,1,3,0)
 ;;=3^Aluminosis of Lung
 ;;^UTILITY(U,$J,358.3,24857,1,4,0)
 ;;=4^J63.0
 ;;^UTILITY(U,$J,358.3,24857,2)
 ;;=^5008265
 ;;^UTILITY(U,$J,358.3,24858,0)
 ;;=J63.1^^74^984^3
 ;;^UTILITY(U,$J,358.3,24858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24858,1,3,0)
 ;;=3^Bauxite Fibrosis of Lung
 ;;^UTILITY(U,$J,358.3,24858,1,4,0)
 ;;=4^J63.1
 ;;^UTILITY(U,$J,358.3,24858,2)
 ;;=^5008266
 ;;^UTILITY(U,$J,358.3,24859,0)
 ;;=J63.2^^74^984^4
 ;;^UTILITY(U,$J,358.3,24859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24859,1,3,0)
 ;;=3^Berylliosis
 ;;^UTILITY(U,$J,358.3,24859,1,4,0)
 ;;=4^J63.2
 ;;^UTILITY(U,$J,358.3,24859,2)
 ;;=^13594
 ;;^UTILITY(U,$J,358.3,24860,0)
 ;;=J60.^^74^984^5
 ;;^UTILITY(U,$J,358.3,24860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24860,1,3,0)
 ;;=3^Coalworker's Pneumoconiosis
 ;;^UTILITY(U,$J,358.3,24860,1,4,0)
 ;;=4^J60.
 ;;^UTILITY(U,$J,358.3,24860,2)
 ;;=^5008261
 ;;^UTILITY(U,$J,358.3,24861,0)
 ;;=J63.3^^74^984^9
 ;;^UTILITY(U,$J,358.3,24861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24861,1,3,0)
 ;;=3^Graphite Fibrosis of Lung
 ;;^UTILITY(U,$J,358.3,24861,1,4,0)
 ;;=4^J63.3
 ;;^UTILITY(U,$J,358.3,24861,2)
 ;;=^5008267
 ;;^UTILITY(U,$J,358.3,24862,0)
 ;;=J65.^^74^984^10
 ;;^UTILITY(U,$J,358.3,24862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24862,1,3,0)
 ;;=3^Pneumoconiosis Associated w/ Tuberculosis
 ;;^UTILITY(U,$J,358.3,24862,1,4,0)
 ;;=4^J65.
 ;;^UTILITY(U,$J,358.3,24862,2)
 ;;=^5008272
 ;;^UTILITY(U,$J,358.3,24863,0)
 ;;=J61.^^74^984^11
 ;;^UTILITY(U,$J,358.3,24863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24863,1,3,0)
 ;;=3^Pneumoconiosis d/t Asbestos/Oth Mineral Fibers
 ;;^UTILITY(U,$J,358.3,24863,1,4,0)
 ;;=4^J61.
 ;;^UTILITY(U,$J,358.3,24863,2)
 ;;=^5008262
 ;;^UTILITY(U,$J,358.3,24864,0)
 ;;=J62.8^^74^984^12
 ;;^UTILITY(U,$J,358.3,24864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24864,1,3,0)
 ;;=3^Pneumoconiosis d/t Dust Containing Silica
 ;;^UTILITY(U,$J,358.3,24864,1,4,0)
 ;;=4^J62.8
 ;;^UTILITY(U,$J,358.3,24864,2)
 ;;=^5008264
 ;;^UTILITY(U,$J,358.3,24865,0)
 ;;=J62.0^^74^984^13
 ;;^UTILITY(U,$J,358.3,24865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24865,1,3,0)
 ;;=3^Pneumoconiosis d/t Talc Dust
 ;;^UTILITY(U,$J,358.3,24865,1,4,0)
 ;;=4^J62.0
 ;;^UTILITY(U,$J,358.3,24865,2)
 ;;=^5008263
 ;;^UTILITY(U,$J,358.3,24866,0)
 ;;=J63.4^^74^984^15
 ;;^UTILITY(U,$J,358.3,24866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24866,1,3,0)
 ;;=3^Siderosis
 ;;^UTILITY(U,$J,358.3,24866,1,4,0)
 ;;=4^J63.4
 ;;^UTILITY(U,$J,358.3,24866,2)
 ;;=^5008268
 ;;^UTILITY(U,$J,358.3,24867,0)
 ;;=J63.5^^74^984^16
 ;;^UTILITY(U,$J,358.3,24867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24867,1,3,0)
 ;;=3^Stannosis
 ;;^UTILITY(U,$J,358.3,24867,1,4,0)
 ;;=4^J63.5
 ;;^UTILITY(U,$J,358.3,24867,2)
 ;;=^5008269
 ;;^UTILITY(U,$J,358.3,24868,0)
 ;;=J64.^^74^984^14
 ;;^UTILITY(U,$J,358.3,24868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24868,1,3,0)
 ;;=3^Pneumoconiosis,Unspec
 ;;^UTILITY(U,$J,358.3,24868,1,4,0)
 ;;=4^J64.
 ;;^UTILITY(U,$J,358.3,24868,2)
 ;;=^5008271
 ;;^UTILITY(U,$J,358.3,24869,0)
 ;;=J82.81^^74^984^8
 ;;^UTILITY(U,$J,358.3,24869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24869,1,3,0)
 ;;=3^Eosinophilic Pneumonia,Chronic
 ;;^UTILITY(U,$J,358.3,24869,1,4,0)
 ;;=4^J82.81
 ;;^UTILITY(U,$J,358.3,24869,2)
 ;;=^24374
 ;;^UTILITY(U,$J,358.3,24870,0)
 ;;=J82.82^^74^984^7
 ;;^UTILITY(U,$J,358.3,24870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24870,1,3,0)
 ;;=3^Eosinophilic Pneumonia,Acute
 ;;^UTILITY(U,$J,358.3,24870,1,4,0)
 ;;=4^J82.82
 ;;^UTILITY(U,$J,358.3,24870,2)
 ;;=^5159205
 ;;^UTILITY(U,$J,358.3,24871,0)
 ;;=J82.83^^74^984^6
 ;;^UTILITY(U,$J,358.3,24871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24871,1,3,0)
 ;;=3^Eosinophilic Asthma
 ;;^UTILITY(U,$J,358.3,24871,1,4,0)
 ;;=4^J82.83
 ;;^UTILITY(U,$J,358.3,24871,2)
 ;;=^5159206
 ;;^UTILITY(U,$J,358.3,24872,0)
 ;;=G89.22^^74^985^2
 ;;^UTILITY(U,$J,358.3,24872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24872,1,3,0)
 ;;=3^Chr Post-Thoracotomy Pain
 ;;^UTILITY(U,$J,358.3,24872,1,4,0)
 ;;=4^G89.22
 ;;^UTILITY(U,$J,358.3,24872,2)
 ;;=^5004156
 ;;^UTILITY(U,$J,358.3,24873,0)
 ;;=G89.3^^74^985^4
 ;;^UTILITY(U,$J,358.3,24873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24873,1,3,0)
 ;;=3^Neoplasm Related Pain
 ;;^UTILITY(U,$J,358.3,24873,1,4,0)
 ;;=4^G89.3
 ;;^UTILITY(U,$J,358.3,24873,2)
 ;;=^5004159
 ;;^UTILITY(U,$J,358.3,24874,0)
 ;;=G89.18^^74^985^1
 ;;^UTILITY(U,$J,358.3,24874,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24874,1,3,0)
 ;;=3^Acute Postprocedural Pain
 ;;^UTILITY(U,$J,358.3,24874,1,4,0)
 ;;=4^G89.18
 ;;^UTILITY(U,$J,358.3,24874,2)
 ;;=^5004154
 ;;^UTILITY(U,$J,358.3,24875,0)
 ;;=G89.29^^74^985^3
 ;;^UTILITY(U,$J,358.3,24875,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24875,1,3,0)
 ;;=3^Chronic Pain
 ;;^UTILITY(U,$J,358.3,24875,1,4,0)
 ;;=4^G89.29
 ;;^UTILITY(U,$J,358.3,24875,2)
 ;;=^5004158
 ;;^UTILITY(U,$J,358.3,24876,0)
 ;;=J94.1^^74^986^1
 ;;^UTILITY(U,$J,358.3,24876,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24876,1,3,0)
 ;;=3^Fibrothorax
 ;;^UTILITY(U,$J,358.3,24876,1,4,0)
 ;;=4^J94.1
 ;;^UTILITY(U,$J,358.3,24876,2)
 ;;=^5008317
 ;;^UTILITY(U,$J,358.3,24877,0)
 ;;=C45.0^^74^986^2
 ;;^UTILITY(U,$J,358.3,24877,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24877,1,3,0)
 ;;=3^Pleura Mesothelioma
 ;;^UTILITY(U,$J,358.3,24877,1,4,0)
 ;;=4^C45.0
 ;;^UTILITY(U,$J,358.3,24877,2)
 ;;=^5001095
 ;;^UTILITY(U,$J,358.3,24878,0)
 ;;=J94.8^^74^986^4
 ;;^UTILITY(U,$J,358.3,24878,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24878,1,3,0)
 ;;=3^Pleural Conditions NEC
 ;;^UTILITY(U,$J,358.3,24878,1,4,0)
 ;;=4^J94.8
 ;;^UTILITY(U,$J,358.3,24878,2)
 ;;=^5008319
 ;;^UTILITY(U,$J,358.3,24879,0)
 ;;=J94.9^^74^986^3
 ;;^UTILITY(U,$J,358.3,24879,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24879,1,3,0)
 ;;=3^Pleural Condition,Unspec
 ;;^UTILITY(U,$J,358.3,24879,1,4,0)
 ;;=4^J94.9
 ;;^UTILITY(U,$J,358.3,24879,2)
 ;;=^5008320
 ;;^UTILITY(U,$J,358.3,24880,0)
 ;;=J91.8^^74^986^6
 ;;^UTILITY(U,$J,358.3,24880,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24880,1,3,0)
 ;;=3^Pleural Effusion in Conditions Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,24880,1,4,0)
 ;;=4^J91.8
 ;;^UTILITY(U,$J,358.3,24880,2)
 ;;=^5008311
 ;;^UTILITY(U,$J,358.3,24881,0)
 ;;=J90.^^74^986^5
 ;;^UTILITY(U,$J,358.3,24881,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24881,1,3,0)
 ;;=3^Pleural Effusion NEC
 ;;^UTILITY(U,$J,358.3,24881,1,4,0)
 ;;=4^J90.
 ;;^UTILITY(U,$J,358.3,24881,2)
 ;;=^5008310
 ;;^UTILITY(U,$J,358.3,24882,0)
 ;;=J92.0^^74^986^7
 ;;^UTILITY(U,$J,358.3,24882,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24882,1,3,0)
 ;;=3^Pleural Plaque w/ Presence of Asbestos
 ;;^UTILITY(U,$J,358.3,24882,1,4,0)
 ;;=4^J92.0
 ;;^UTILITY(U,$J,358.3,24882,2)
 ;;=^5008312
 ;;^UTILITY(U,$J,358.3,24883,0)
 ;;=J92.9^^74^986^8
 ;;^UTILITY(U,$J,358.3,24883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24883,1,3,0)
 ;;=3^Pleural Plaque w/o Asbestos
 ;;^UTILITY(U,$J,358.3,24883,1,4,0)
 ;;=4^J92.9
 ;;^UTILITY(U,$J,358.3,24883,2)
 ;;=^5008313
 ;;^UTILITY(U,$J,358.3,24884,0)
 ;;=R09.1^^74^986^9
 ;;^UTILITY(U,$J,358.3,24884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24884,1,3,0)
 ;;=3^Pleurisy
 ;;^UTILITY(U,$J,358.3,24884,1,4,0)
 ;;=4^R09.1
 ;;^UTILITY(U,$J,358.3,24884,2)
 ;;=^95428
 ;;^UTILITY(U,$J,358.3,24885,0)
 ;;=J86.0^^74^986^10
 ;;^UTILITY(U,$J,358.3,24885,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24885,1,3,0)
 ;;=3^Pyothorax w/ Fistula
 ;;^UTILITY(U,$J,358.3,24885,1,4,0)
 ;;=4^J86.0
 ;;^UTILITY(U,$J,358.3,24885,2)
 ;;=^5008308
 ;;^UTILITY(U,$J,358.3,24886,0)
 ;;=J86.9^^74^986^11
 ;;^UTILITY(U,$J,358.3,24886,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24886,1,3,0)
 ;;=3^Pyothorax w/o Fistula
 ;;^UTILITY(U,$J,358.3,24886,1,4,0)
 ;;=4^J86.9
 ;;^UTILITY(U,$J,358.3,24886,2)
 ;;=^5008309
 ;;^UTILITY(U,$J,358.3,24887,0)
 ;;=F41.9^^74^987^2
 ;;^UTILITY(U,$J,358.3,24887,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24887,1,3,0)
 ;;=3^Anxiety Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,24887,1,4,0)
 ;;=4^F41.9
 ;;^UTILITY(U,$J,358.3,24887,2)
 ;;=^5003567
 ;;^UTILITY(U,$J,358.3,24888,0)
 ;;=F10.20^^74^987^1
 ;;^UTILITY(U,$J,358.3,24888,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24888,1,3,0)
 ;;=3^Alcohol Dependence,Uncomplicated
 ;;^UTILITY(U,$J,358.3,24888,1,4,0)
 ;;=4^F10.20
 ;;^UTILITY(U,$J,358.3,24888,2)
 ;;=^5003081
 ;;^UTILITY(U,$J,358.3,24889,0)
 ;;=F32.9^^74^987^13
 ;;^UTILITY(U,$J,358.3,24889,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24889,1,3,0)
 ;;=3^MDD,Single Episode,Unspec
 ;;^UTILITY(U,$J,358.3,24889,1,4,0)
 ;;=4^F32.9
 ;;^UTILITY(U,$J,358.3,24889,2)
 ;;=^5003528
 ;;^UTILITY(U,$J,358.3,24890,0)
 ;;=F17.221^^74^987^14
 ;;^UTILITY(U,$J,358.3,24890,1,0)
 ;;=^358.31IA^4^2