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