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

IBDEI0D0.m

Go to the documentation of this file.
IBDEI0D0 ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,32632,1,3,0)
 ;;=3^Tinnitus,Left Ear
 ;;^UTILITY(U,$J,358.3,32632,1,4,0)
 ;;=4^H93.12
 ;;^UTILITY(U,$J,358.3,32632,2)
 ;;=^5006965
 ;;^UTILITY(U,$J,358.3,32633,0)
 ;;=H93.13^^99^1347^71
 ;;^UTILITY(U,$J,358.3,32633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32633,1,3,0)
 ;;=3^Tinnitus,Bilateral
 ;;^UTILITY(U,$J,358.3,32633,1,4,0)
 ;;=4^H93.13
 ;;^UTILITY(U,$J,358.3,32633,2)
 ;;=^5006966
 ;;^UTILITY(U,$J,358.3,32634,0)
 ;;=H93.11^^99^1347^73
 ;;^UTILITY(U,$J,358.3,32634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32634,1,3,0)
 ;;=3^Tinnitus,Right Ear
 ;;^UTILITY(U,$J,358.3,32634,1,4,0)
 ;;=4^H93.11
 ;;^UTILITY(U,$J,358.3,32634,2)
 ;;=^5006964
 ;;^UTILITY(U,$J,358.3,32635,0)
 ;;=J30.9^^99^1347^2
 ;;^UTILITY(U,$J,358.3,32635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32635,1,3,0)
 ;;=3^Allergic Rhinitis,Unspec
 ;;^UTILITY(U,$J,358.3,32635,1,4,0)
 ;;=4^J30.9
 ;;^UTILITY(U,$J,358.3,32635,2)
 ;;=^5008205
 ;;^UTILITY(U,$J,358.3,32636,0)
 ;;=R43.0^^99^1347^3
 ;;^UTILITY(U,$J,358.3,32636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32636,1,3,0)
 ;;=3^Anosmia
 ;;^UTILITY(U,$J,358.3,32636,1,4,0)
 ;;=4^R43.0
 ;;^UTILITY(U,$J,358.3,32636,2)
 ;;=^7949
 ;;^UTILITY(U,$J,358.3,32637,0)
 ;;=R04.0^^99^1347^4
 ;;^UTILITY(U,$J,358.3,32637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32637,1,3,0)
 ;;=3^Epistaxis
 ;;^UTILITY(U,$J,358.3,32637,1,4,0)
 ;;=4^R04.0
 ;;^UTILITY(U,$J,358.3,32637,2)
 ;;=^5019173
 ;;^UTILITY(U,$J,358.3,32638,0)
 ;;=R09.81^^99^1347^18
 ;;^UTILITY(U,$J,358.3,32638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32638,1,3,0)
 ;;=3^Nasal Congestion,Hyperplasia
 ;;^UTILITY(U,$J,358.3,32638,1,4,0)
 ;;=4^R09.81
 ;;^UTILITY(U,$J,358.3,32638,2)
 ;;=^5019203
 ;;^UTILITY(U,$J,358.3,32639,0)
 ;;=J33.0^^99^1347^19
 ;;^UTILITY(U,$J,358.3,32639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32639,1,3,0)
 ;;=3^Nasal Polyp
 ;;^UTILITY(U,$J,358.3,32639,1,4,0)
 ;;=4^J33.0
 ;;^UTILITY(U,$J,358.3,32639,2)
 ;;=^269880
 ;;^UTILITY(U,$J,358.3,32640,0)
 ;;=J00.^^99^1347^20
 ;;^UTILITY(U,$J,358.3,32640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32640,1,3,0)
 ;;=3^Nasopharyngitis,Acute
 ;;^UTILITY(U,$J,358.3,32640,1,4,0)
 ;;=4^J00.
 ;;^UTILITY(U,$J,358.3,32640,2)
 ;;=^5008115
 ;;^UTILITY(U,$J,358.3,32641,0)
 ;;=R09.82^^99^1347^55
 ;;^UTILITY(U,$J,358.3,32641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32641,1,3,0)
 ;;=3^Post Nasal Drip
 ;;^UTILITY(U,$J,358.3,32641,1,4,0)
 ;;=4^R09.82
 ;;^UTILITY(U,$J,358.3,32641,2)
 ;;=^97058
 ;;^UTILITY(U,$J,358.3,32642,0)
 ;;=J01.90^^99^1347^56
 ;;^UTILITY(U,$J,358.3,32642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32642,1,3,0)
 ;;=3^Sinusitis,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,32642,1,4,0)
 ;;=4^J01.90
 ;;^UTILITY(U,$J,358.3,32642,2)
 ;;=^5008127
 ;;^UTILITY(U,$J,358.3,32643,0)
 ;;=J32.9^^99^1347^58
 ;;^UTILITY(U,$J,358.3,32643,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32643,1,3,0)
 ;;=3^Sinusitis,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,32643,1,4,0)
 ;;=4^J32.9
 ;;^UTILITY(U,$J,358.3,32643,2)
 ;;=^5008207
 ;;^UTILITY(U,$J,358.3,32644,0)
 ;;=J01.00^^99^1347^65
 ;;^UTILITY(U,$J,358.3,32644,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32644,1,3,0)
 ;;=3^Sinusitis,Maxillary,Acute
 ;;^UTILITY(U,$J,358.3,32644,1,4,0)
 ;;=4^J01.00
 ;;^UTILITY(U,$J,358.3,32644,2)
 ;;=^5008116
 ;;^UTILITY(U,$J,358.3,32645,0)
 ;;=J01.01^^99^1347^67
 ;;^UTILITY(U,$J,358.3,32645,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32645,1,3,0)
 ;;=3^Sinusitis,Maxillary,Recurrent
 ;;^UTILITY(U,$J,358.3,32645,1,4,0)
 ;;=4^J01.01
 ;;^UTILITY(U,$J,358.3,32645,2)
 ;;=^5008117
 ;;^UTILITY(U,$J,358.3,32646,0)
 ;;=J01.10^^99^1347^62
 ;;^UTILITY(U,$J,358.3,32646,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32646,1,3,0)
 ;;=3^Sinusitis,Frontal,Acute
 ;;^UTILITY(U,$J,358.3,32646,1,4,0)
 ;;=4^J01.10
 ;;^UTILITY(U,$J,358.3,32646,2)
 ;;=^5008118
 ;;^UTILITY(U,$J,358.3,32647,0)
 ;;=J01.11^^99^1347^64
 ;;^UTILITY(U,$J,358.3,32647,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32647,1,3,0)
 ;;=3^Sinusitis,Frontal,Recurrent
 ;;^UTILITY(U,$J,358.3,32647,1,4,0)
 ;;=4^J01.11
 ;;^UTILITY(U,$J,358.3,32647,2)
 ;;=^5008119
 ;;^UTILITY(U,$J,358.3,32648,0)
 ;;=J01.20^^99^1347^59
 ;;^UTILITY(U,$J,358.3,32648,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32648,1,3,0)
 ;;=3^Sinusitis,Ethmoid,Acute
 ;;^UTILITY(U,$J,358.3,32648,1,4,0)
 ;;=4^J01.20
 ;;^UTILITY(U,$J,358.3,32648,2)
 ;;=^5008120
 ;;^UTILITY(U,$J,358.3,32649,0)
 ;;=J01.21^^99^1347^60
 ;;^UTILITY(U,$J,358.3,32649,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32649,1,3,0)
 ;;=3^Sinusitis,Ethmoid,Recurrent
 ;;^UTILITY(U,$J,358.3,32649,1,4,0)
 ;;=4^J01.21
 ;;^UTILITY(U,$J,358.3,32649,2)
 ;;=^5008121
 ;;^UTILITY(U,$J,358.3,32650,0)
 ;;=J01.30^^99^1347^69
 ;;^UTILITY(U,$J,358.3,32650,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32650,1,3,0)
 ;;=3^Sinusitis,Sphenoidal,Acute
 ;;^UTILITY(U,$J,358.3,32650,1,4,0)
 ;;=4^J01.30
 ;;^UTILITY(U,$J,358.3,32650,2)
 ;;=^5008122
 ;;^UTILITY(U,$J,358.3,32651,0)
 ;;=J01.31^^99^1347^70
 ;;^UTILITY(U,$J,358.3,32651,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32651,1,3,0)
 ;;=3^Sinusitis,Sphenoidal,Recurrent
 ;;^UTILITY(U,$J,358.3,32651,1,4,0)
 ;;=4^J01.31
 ;;^UTILITY(U,$J,358.3,32651,2)
 ;;=^5008123
 ;;^UTILITY(U,$J,358.3,32652,0)
 ;;=J01.40^^99^1347^51
 ;;^UTILITY(U,$J,358.3,32652,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32652,1,3,0)
 ;;=3^Pansinusitis,Acute
 ;;^UTILITY(U,$J,358.3,32652,1,4,0)
 ;;=4^J01.40
 ;;^UTILITY(U,$J,358.3,32652,2)
 ;;=^5008124
 ;;^UTILITY(U,$J,358.3,32653,0)
 ;;=J01.41^^99^1347^53
 ;;^UTILITY(U,$J,358.3,32653,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32653,1,3,0)
 ;;=3^Pansinusitis,Recurrent
 ;;^UTILITY(U,$J,358.3,32653,1,4,0)
 ;;=4^J01.41
 ;;^UTILITY(U,$J,358.3,32653,2)
 ;;=^5008125
 ;;^UTILITY(U,$J,358.3,32654,0)
 ;;=J32.0^^99^1347^66
 ;;^UTILITY(U,$J,358.3,32654,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32654,1,3,0)
 ;;=3^Sinusitis,Maxillary,Chronic
 ;;^UTILITY(U,$J,358.3,32654,1,4,0)
 ;;=4^J32.0
 ;;^UTILITY(U,$J,358.3,32654,2)
 ;;=^24407
 ;;^UTILITY(U,$J,358.3,32655,0)
 ;;=J32.1^^99^1347^63
 ;;^UTILITY(U,$J,358.3,32655,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32655,1,3,0)
 ;;=3^Sinusitis,Frontal,Chronic
 ;;^UTILITY(U,$J,358.3,32655,1,4,0)
 ;;=4^J32.1
 ;;^UTILITY(U,$J,358.3,32655,2)
 ;;=^24380
 ;;^UTILITY(U,$J,358.3,32656,0)
 ;;=J32.2^^99^1347^61
 ;;^UTILITY(U,$J,358.3,32656,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32656,1,3,0)
 ;;=3^Sinusitis,Ethmoidal,Chronic
 ;;^UTILITY(U,$J,358.3,32656,1,4,0)
 ;;=4^J32.2
 ;;^UTILITY(U,$J,358.3,32656,2)
 ;;=^24376
 ;;^UTILITY(U,$J,358.3,32657,0)
 ;;=J32.3^^99^1347^68
 ;;^UTILITY(U,$J,358.3,32657,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32657,1,3,0)
 ;;=3^Sinusitis,Spenoidal,Chronic
 ;;^UTILITY(U,$J,358.3,32657,1,4,0)
 ;;=4^J32.3
 ;;^UTILITY(U,$J,358.3,32657,2)
 ;;=^24437
 ;;^UTILITY(U,$J,358.3,32658,0)
 ;;=J32.4^^99^1347^52
 ;;^UTILITY(U,$J,358.3,32658,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32658,1,3,0)
 ;;=3^Pansinusitis,Chronic
 ;;^UTILITY(U,$J,358.3,32658,1,4,0)
 ;;=4^J32.4
 ;;^UTILITY(U,$J,358.3,32658,2)
 ;;=^5008206
 ;;^UTILITY(U,$J,358.3,32659,0)
 ;;=J32.8^^99^1347^57
 ;;^UTILITY(U,$J,358.3,32659,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32659,1,3,0)
 ;;=3^Sinusitis,Chronic,Other
 ;;^UTILITY(U,$J,358.3,32659,1,4,0)
 ;;=4^J32.8
 ;;^UTILITY(U,$J,358.3,32659,2)
 ;;=^269890
 ;;^UTILITY(U,$J,358.3,32660,0)
 ;;=J35.3^^99^1347^1
 ;;^UTILITY(U,$J,358.3,32660,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32660,1,3,0)
 ;;=3^Adenotonsilliar Hypertrophy
 ;;^UTILITY(U,$J,358.3,32660,1,4,0)
 ;;=4^J35.3
 ;;^UTILITY(U,$J,358.3,32660,2)
 ;;=^5008216
 ;;^UTILITY(U,$J,358.3,32661,0)
 ;;=R06.5^^99^1347^17
 ;;^UTILITY(U,$J,358.3,32661,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32661,1,3,0)
 ;;=3^Mouth Breathing
 ;;^UTILITY(U,$J,358.3,32661,1,4,0)
 ;;=4^R06.5
 ;;^UTILITY(U,$J,358.3,32661,2)
 ;;=^5019187
 ;;^UTILITY(U,$J,358.3,32662,0)
 ;;=J03.90^^99^1347^74
 ;;^UTILITY(U,$J,358.3,32662,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32662,1,3,0)
 ;;=3^Tonsilitis
 ;;^UTILITY(U,$J,358.3,32662,1,4,0)
 ;;=4^J03.90
 ;;^UTILITY(U,$J,358.3,32662,2)
 ;;=^5008135
 ;;^UTILITY(U,$J,358.3,32663,0)
 ;;=J38.3^^99^1347^78
 ;;^UTILITY(U,$J,358.3,32663,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32663,1,3,0)
 ;;=3^Vocal Cord Dysfunction
 ;;^UTILITY(U,$J,358.3,32663,1,4,0)
 ;;=4^J38.3
 ;;^UTILITY(U,$J,358.3,32663,2)
 ;;=^269924
 ;;^UTILITY(U,$J,358.3,32664,0)
 ;;=R49.0^^99^1347^11
 ;;^UTILITY(U,$J,358.3,32664,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32664,1,3,0)
 ;;=3^Hoarseness
 ;;^UTILITY(U,$J,358.3,32664,1,4,0)
 ;;=4^R49.0
 ;;^UTILITY(U,$J,358.3,32664,2)
 ;;=^5019501
 ;;^UTILITY(U,$J,358.3,32665,0)
 ;;=H60.393^^99^1347^30
 ;;^UTILITY(U,$J,358.3,32665,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32665,1,3,0)
 ;;=3^Otitis Externa Infective,Bilateral
 ;;^UTILITY(U,$J,358.3,32665,1,4,0)
 ;;=4^H60.393
 ;;^UTILITY(U,$J,358.3,32665,2)
 ;;=^5006461
 ;;^UTILITY(U,$J,358.3,32666,0)
 ;;=M25.511^^99^1348^26
 ;;^UTILITY(U,$J,358.3,32666,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32666,1,3,0)
 ;;=3^Pain Right Shoulder
 ;;^UTILITY(U,$J,358.3,32666,1,4,0)
 ;;=4^M25.511
 ;;^UTILITY(U,$J,358.3,32666,2)
 ;;=^5011602
 ;;^UTILITY(U,$J,358.3,32667,0)
 ;;=M25.512^^99^1348^20
 ;;^UTILITY(U,$J,358.3,32667,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32667,1,3,0)
 ;;=3^Pain Left Shoulder
 ;;^UTILITY(U,$J,358.3,32667,1,4,0)
 ;;=4^M25.512
 ;;^UTILITY(U,$J,358.3,32667,2)
 ;;=^5011603
 ;;^UTILITY(U,$J,358.3,32668,0)
 ;;=M25.521^^99^1348^22
 ;;^UTILITY(U,$J,358.3,32668,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32668,1,3,0)
 ;;=3^Pain Right Elbow
 ;;^UTILITY(U,$J,358.3,32668,1,4,0)
 ;;=4^M25.521
 ;;^UTILITY(U,$J,358.3,32668,2)
 ;;=^5011605
 ;;^UTILITY(U,$J,358.3,32669,0)
 ;;=M25.522^^99^1348^16
 ;;^UTILITY(U,$J,358.3,32669,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32669,1,3,0)
 ;;=3^Pain Left Elbow
 ;;^UTILITY(U,$J,358.3,32669,1,4,0)
 ;;=4^M25.522
 ;;^UTILITY(U,$J,358.3,32669,2)
 ;;=^5011606
 ;;^UTILITY(U,$J,358.3,32670,0)
 ;;=M79.641^^99^1348^23
 ;;^UTILITY(U,$J,358.3,32670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32670,1,3,0)
 ;;=3^Pain Right Hand
 ;;^UTILITY(U,$J,358.3,32670,1,4,0)
 ;;=4^M79.641
 ;;^UTILITY(U,$J,358.3,32670,2)
 ;;=^5013338
 ;;^UTILITY(U,$J,358.3,32671,0)
 ;;=M79.642^^99^1348^17
 ;;^UTILITY(U,$J,358.3,32671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32671,1,3,0)
 ;;=3^Pain Left Hand
 ;;^UTILITY(U,$J,358.3,32671,1,4,0)
 ;;=4^M79.642
 ;;^UTILITY(U,$J,358.3,32671,2)
 ;;=^5013339
 ;;^UTILITY(U,$J,358.3,32672,0)
 ;;=M25.551^^99^1348^24
 ;;^UTILITY(U,$J,358.3,32672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32672,1,3,0)
 ;;=3^Pain Right Hip
 ;;^UTILITY(U,$J,358.3,32672,1,4,0)
 ;;=4^M25.551
 ;;^UTILITY(U,$J,358.3,32672,2)
 ;;=^5011611
 ;;^UTILITY(U,$J,358.3,32673,0)
 ;;=M25.552^^99^1348^18
 ;;^UTILITY(U,$J,358.3,32673,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32673,1,3,0)
 ;;=3^Pain Left Hip
 ;;^UTILITY(U,$J,358.3,32673,1,4,0)
 ;;=4^M25.552
 ;;^UTILITY(U,$J,358.3,32673,2)
 ;;=^5011612
 ;;^UTILITY(U,$J,358.3,32674,0)
 ;;=M25.561^^99^1348^25
 ;;^UTILITY(U,$J,358.3,32674,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32674,1,3,0)
 ;;=3^Pain Right Knee
 ;;^UTILITY(U,$J,358.3,32674,1,4,0)
 ;;=4^M25.561
 ;;^UTILITY(U,$J,358.3,32674,2)
 ;;=^5011614
 ;;^UTILITY(U,$J,358.3,32675,0)
 ;;=M25.562^^99^1348^19
 ;;^UTILITY(U,$J,358.3,32675,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32675,1,3,0)
 ;;=3^Pain Left Knee
 ;;^UTILITY(U,$J,358.3,32675,1,4,0)
 ;;=4^M25.562
 ;;^UTILITY(U,$J,358.3,32675,2)
 ;;=^5011615
 ;;^UTILITY(U,$J,358.3,32676,0)
 ;;=M25.571^^99^1348^21
 ;;^UTILITY(U,$J,358.3,32676,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32676,1,3,0)
 ;;=3^Pain Right Ankle & Joints Right Foot
 ;;^UTILITY(U,$J,358.3,32676,1,4,0)
 ;;=4^M25.571
 ;;^UTILITY(U,$J,358.3,32676,2)
 ;;=^5011617
 ;;^UTILITY(U,$J,358.3,32677,0)
 ;;=M25.572^^99^1348^15
 ;;^UTILITY(U,$J,358.3,32677,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32677,1,3,0)
 ;;=3^Pain Left Ankle & Joints Left Foot
 ;;^UTILITY(U,$J,358.3,32677,1,4,0)
 ;;=4^M25.572
 ;;^UTILITY(U,$J,358.3,32677,2)
 ;;=^5011618
 ;;^UTILITY(U,$J,358.3,32678,0)
 ;;=R10.2^^99^1348^27
 ;;^UTILITY(U,$J,358.3,32678,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32678,1,3,0)
 ;;=3^Pelvic & Perineal Pain
 ;;^UTILITY(U,$J,358.3,32678,1,4,0)
 ;;=4^R10.2
 ;;^UTILITY(U,$J,358.3,32678,2)
 ;;=^5019209
 ;;^UTILITY(U,$J,358.3,32679,0)
 ;;=M06.9^^99^1348^34
 ;;^UTILITY(U,$J,358.3,32679,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32679,1,3,0)
 ;;=3^Rheumatoid arthritis, unspecified
 ;;^UTILITY(U,$J,358.3,32679,1,4,0)
 ;;=4^M06.9
 ;;^UTILITY(U,$J,358.3,32679,2)
 ;;=^5010145
 ;;^UTILITY(U,$J,358.3,32680,0)
 ;;=M10.9^^99^1348^7
 ;;^UTILITY(U,$J,358.3,32680,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32680,1,3,0)
 ;;=3^Gout, unspecified
 ;;^UTILITY(U,$J,358.3,32680,1,4,0)
 ;;=4^M10.9
 ;;^UTILITY(U,$J,358.3,32680,2)
 ;;=^5010404
 ;;^UTILITY(U,$J,358.3,32681,0)
 ;;=M12.9^^99^1348^1
 ;;^UTILITY(U,$J,358.3,32681,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32681,1,3,0)
 ;;=3^Arthropathy, unspecified
 ;;^UTILITY(U,$J,358.3,32681,1,4,0)
 ;;=4^M12.9
 ;;^UTILITY(U,$J,358.3,32681,2)
 ;;=^5010666
 ;;^UTILITY(U,$J,358.3,32682,0)
 ;;=M15.3^^99^1348^37
 ;;^UTILITY(U,$J,358.3,32682,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32682,1,3,0)
 ;;=3^Secondary multiple arthritis
 ;;^UTILITY(U,$J,358.3,32682,1,4,0)
 ;;=4^M15.3
 ;;^UTILITY(U,$J,358.3,32682,2)
 ;;=^5010765
 ;;^UTILITY(U,$J,358.3,32683,0)
 ;;=M15.8^^99^1348^28
 ;;^UTILITY(U,$J,358.3,32683,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32683,1,3,0)
 ;;=3^Polyosteoarthritis, other
 ;;^UTILITY(U,$J,358.3,32683,1,4,0)
 ;;=4^M15.8
 ;;^UTILITY(U,$J,358.3,32683,2)
 ;;=^5010767
 ;;^UTILITY(U,$J,358.3,32684,0)
 ;;=M46.90^^99^1348^38
 ;;^UTILITY(U,$J,358.3,32684,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32684,1,3,0)
 ;;=3^Spondylopathy inflammatory, site unspec
 ;;^UTILITY(U,$J,358.3,32684,1,4,0)
 ;;=4^M46.90
 ;;^UTILITY(U,$J,358.3,32684,2)
 ;;=^5012030
 ;;^UTILITY(U,$J,358.3,32685,0)
 ;;=M47.819^^99^1348^39
 ;;^UTILITY(U,$J,358.3,32685,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32685,1,3,0)
 ;;=3^Spondylosis w/o myelopathy/radiculopathy, site unspec
 ;;^UTILITY(U,$J,358.3,32685,1,4,0)
 ;;=4^M47.819
 ;;^UTILITY(U,$J,358.3,32685,2)
 ;;=^5012076
 ;;^UTILITY(U,$J,358.3,32686,0)
 ;;=M51.9^^99^1348^8
 ;;^UTILITY(U,$J,358.3,32686,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32686,1,3,0)
 ;;=3^Intervertebral disc disorder, thoracic, thoracolumbar & lumbar
 ;;^UTILITY(U,$J,358.3,32686,1,4,0)
 ;;=4^M51.9
 ;;^UTILITY(U,$J,358.3,32686,2)
 ;;=^5012263
 ;;^UTILITY(U,$J,358.3,32687,0)
 ;;=M54.10^^99^1348^33
 ;;^UTILITY(U,$J,358.3,32687,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32687,1,3,0)
 ;;=3^Radiculopathy,Unspec Site
 ;;^UTILITY(U,$J,358.3,32687,1,4,0)
 ;;=4^M54.10
 ;;^UTILITY(U,$J,358.3,32687,2)
 ;;=^5012295
 ;;^UTILITY(U,$J,358.3,32688,0)
 ;;=M54.2^^99^1348^3
 ;;^UTILITY(U,$J,358.3,32688,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32688,1,3,0)
 ;;=3^Cervicalgia
 ;;^UTILITY(U,$J,358.3,32688,1,4,0)
 ;;=4^M54.2
 ;;^UTILITY(U,$J,358.3,32688,2)
 ;;=^5012304
 ;;^UTILITY(U,$J,358.3,32689,0)
 ;;=M54.31^^99^1348^36
 ;;^UTILITY(U,$J,358.3,32689,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32689,1,3,0)
 ;;=3^Sciatica, right side
 ;;^UTILITY(U,$J,358.3,32689,1,4,0)
 ;;=4^M54.31
 ;;^UTILITY(U,$J,358.3,32689,2)
 ;;=^5012306
 ;;^UTILITY(U,$J,358.3,32690,0)
 ;;=M54.32^^99^1348^35
 ;;^UTILITY(U,$J,358.3,32690,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32690,1,3,0)
 ;;=3^Sciatica, left side
 ;;^UTILITY(U,$J,358.3,32690,1,4,0)
 ;;=4^M54.32
 ;;^UTILITY(U,$J,358.3,32690,2)
 ;;=^5012307
 ;;^UTILITY(U,$J,358.3,32691,0)
 ;;=M54.9^^99^1348^4
 ;;^UTILITY(U,$J,358.3,32691,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32691,1,3,0)
 ;;=3^Dorsalgia, unspecified
 ;;^UTILITY(U,$J,358.3,32691,1,4,0)
 ;;=4^M54.9
 ;;^UTILITY(U,$J,358.3,32691,2)
 ;;=^5012314
 ;;^UTILITY(U,$J,358.3,32692,0)
 ;;=M77.9^^99^1348^5
 ;;^UTILITY(U,$J,358.3,32692,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32692,1,3,0)
 ;;=3^Enthesopathy, unspecified
 ;;^UTILITY(U,$J,358.3,32692,1,4,0)
 ;;=4^M77.9
 ;;^UTILITY(U,$J,358.3,32692,2)
 ;;=^5013319
 ;;^UTILITY(U,$J,358.3,32693,0)
 ;;=M71.50^^99^1348^2
 ;;^UTILITY(U,$J,358.3,32693,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32693,1,3,0)
 ;;=3^Bursitis NEC, unspec site
 ;;^UTILITY(U,$J,358.3,32693,1,4,0)
 ;;=4^M71.50
 ;;^UTILITY(U,$J,358.3,32693,2)
 ;;=^5013190
 ;;^UTILITY(U,$J,358.3,32694,0)
 ;;=M79.7^^99^1348^6
 ;;^UTILITY(U,$J,358.3,32694,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32694,1,3,0)
 ;;=3^Fibromyalgia
 ;;^UTILITY(U,$J,358.3,32694,1,4,0)
 ;;=4^M79.7
 ;;^UTILITY(U,$J,358.3,32694,2)
 ;;=^46261
 ;;^UTILITY(U,$J,358.3,32695,0)
 ;;=M81.0^^99^1348^14
 ;;^UTILITY(U,$J,358.3,32695,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32695,1,3,0)
 ;;=3^Osteoporosis, age-related w/o current path fx
 ;;^UTILITY(U,$J,358.3,32695,1,4,0)
 ;;=4^M81.0
 ;;^UTILITY(U,$J,358.3,32695,2)
 ;;=^5013555
 ;;^UTILITY(U,$J,358.3,32696,0)
 ;;=M79.11^^99^1348^12
 ;;^UTILITY(U,$J,358.3,32696,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32696,1,3,0)
 ;;=3^Myalgia,Mastication Muscle
 ;;^UTILITY(U,$J,358.3,32696,1,4,0)
 ;;=4^M79.11
 ;;^UTILITY(U,$J,358.3,32696,2)
 ;;=^5157395
 ;;^UTILITY(U,$J,358.3,32697,0)
 ;;=M79.12^^99^1348^11
 ;;^UTILITY(U,$J,358.3,32697,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32697,1,3,0)
 ;;=3^Myalgia,Auxiliary Muscles,Head & Neck
 ;;^UTILITY(U,$J,358.3,32697,1,4,0)
 ;;=4^M79.12
 ;;^UTILITY(U,$J,358.3,32697,2)
 ;;=^5157396
 ;;^UTILITY(U,$J,358.3,32698,0)
 ;;=M79.10^^99^1348^13
 ;;^UTILITY(U,$J,358.3,32698,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32698,1,3,0)
 ;;=3^Myalgia,Unspec Site
 ;;^UTILITY(U,$J,358.3,32698,1,4,0)
 ;;=4^M79.10
 ;;^UTILITY(U,$J,358.3,32698,2)
 ;;=^5157394
 ;;^UTILITY(U,$J,358.3,32699,0)
 ;;=M54.12^^99^1348^29
 ;;^UTILITY(U,$J,358.3,32699,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32699,1,3,0)
 ;;=3^Radiculopathy,Cervical
 ;;^UTILITY(U,$J,358.3,32699,1,4,0)
 ;;=4^M54.12
 ;;^UTILITY(U,$J,358.3,32699,2)
 ;;=^5012297
 ;;^UTILITY(U,$J,358.3,32700,0)
 ;;=M54.13^^99^1348^30
 ;;^UTILITY(U,$J,358.3,32700,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32700,1,3,0)
 ;;=3^Radiculopathy,Cervicothoracic
 ;;^UTILITY(U,$J,358.3,32700,1,4,0)
 ;;=4^M54.13
 ;;^UTILITY(U,$J,358.3,32700,2)
 ;;=^5012298
 ;;^UTILITY(U,$J,358.3,32701,0)
 ;;=M54.14^^99^1348^32
 ;;^UTILITY(U,$J,358.3,32701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32701,1,3,0)
 ;;=3^Radiculopathy,Thoracic
 ;;^UTILITY(U,$J,358.3,32701,1,4,0)
 ;;=4^M54.14
 ;;^UTILITY(U,$J,358.3,32701,2)
 ;;=^5012299
 ;;^UTILITY(U,$J,358.3,32702,0)
 ;;=M54.16^^99^1348^31
 ;;^UTILITY(U,$J,358.3,32702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32702,1,3,0)
 ;;=3^Radiculopathy,Lumbar
 ;;^UTILITY(U,$J,358.3,32702,1,4,0)
 ;;=4^M54.16
 ;;^UTILITY(U,$J,358.3,32702,2)
 ;;=^5012301