IBDEI08G ; ; 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,20608,1,4,0)
;;=4^M12.531
;;^UTILITY(U,$J,358.3,20608,2)
;;=^5010625
;;^UTILITY(U,$J,358.3,20609,0)
;;=M12.9^^68^848^1
;;^UTILITY(U,$J,358.3,20609,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20609,1,3,0)
;;=3^Arthropathy,Unspec
;;^UTILITY(U,$J,358.3,20609,1,4,0)
;;=4^M12.9
;;^UTILITY(U,$J,358.3,20609,2)
;;=^5010666
;;^UTILITY(U,$J,358.3,20610,0)
;;=M76.12^^68^848^21
;;^UTILITY(U,$J,358.3,20610,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20610,1,3,0)
;;=3^Psoas Tendinitis,Lt Hip
;;^UTILITY(U,$J,358.3,20610,1,4,0)
;;=4^M76.12
;;^UTILITY(U,$J,358.3,20610,2)
;;=^5013271
;;^UTILITY(U,$J,358.3,20611,0)
;;=M76.11^^68^848^22
;;^UTILITY(U,$J,358.3,20611,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20611,1,3,0)
;;=3^Psoas Tendinitis,Rt Hip
;;^UTILITY(U,$J,358.3,20611,1,4,0)
;;=4^M76.11
;;^UTILITY(U,$J,358.3,20611,2)
;;=^5013270
;;^UTILITY(U,$J,358.3,20612,0)
;;=M70.62^^68^848^16
;;^UTILITY(U,$J,358.3,20612,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20612,1,3,0)
;;=3^Greater Trochanteric Bursitis,Lt Hip
;;^UTILITY(U,$J,358.3,20612,1,4,0)
;;=4^M70.62
;;^UTILITY(U,$J,358.3,20612,2)
;;=^5013060
;;^UTILITY(U,$J,358.3,20613,0)
;;=M70.61^^68^848^17
;;^UTILITY(U,$J,358.3,20613,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20613,1,3,0)
;;=3^Greater Trochanteric Bursitis,Rt Hip
;;^UTILITY(U,$J,358.3,20613,1,4,0)
;;=4^M70.61
;;^UTILITY(U,$J,358.3,20613,2)
;;=^5013059
;;^UTILITY(U,$J,358.3,20614,0)
;;=M70.51^^68^848^19
;;^UTILITY(U,$J,358.3,20614,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20614,1,3,0)
;;=3^Pes Anserine Bursitis,Right Knee
;;^UTILITY(U,$J,358.3,20614,1,4,0)
;;=4^M70.51
;;^UTILITY(U,$J,358.3,20614,2)
;;=^5013056
;;^UTILITY(U,$J,358.3,20615,0)
;;=M70.52^^68^848^18
;;^UTILITY(U,$J,358.3,20615,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20615,1,3,0)
;;=3^Pes Anserine Bursitis,Left Knee
;;^UTILITY(U,$J,358.3,20615,1,4,0)
;;=4^M70.52
;;^UTILITY(U,$J,358.3,20615,2)
;;=^5013057
;;^UTILITY(U,$J,358.3,20616,0)
;;=M19.19^^68^848^20
;;^UTILITY(U,$J,358.3,20616,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20616,1,3,0)
;;=3^Post-Traumatic Osteoarthritis,Oth Specified Site
;;^UTILITY(U,$J,358.3,20616,1,4,0)
;;=4^M19.19
;;^UTILITY(U,$J,358.3,20616,2)
;;=^5159230
;;^UTILITY(U,$J,358.3,20617,0)
;;=M25.69^^68^848^31
;;^UTILITY(U,$J,358.3,20617,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20617,1,3,0)
;;=3^Stiffness,Oth Specified Joint NEC
;;^UTILITY(U,$J,358.3,20617,1,4,0)
;;=4^M25.69
;;^UTILITY(U,$J,358.3,20617,2)
;;=^5159241
;;^UTILITY(U,$J,358.3,20618,0)
;;=S22.9XXS^^68^849^3
;;^UTILITY(U,$J,358.3,20618,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20618,1,3,0)
;;=3^Fx,Bony thorax, part unspecified, sequela
;;^UTILITY(U,$J,358.3,20618,1,4,0)
;;=4^S22.9XXS
;;^UTILITY(U,$J,358.3,20618,2)
;;=^5023158
;;^UTILITY(U,$J,358.3,20619,0)
;;=S42.92XS^^68^849^9
;;^UTILITY(U,$J,358.3,20619,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20619,1,3,0)
;;=3^Fx,Left shoulder girdle, part unspecified, sequela
;;^UTILITY(U,$J,358.3,20619,1,4,0)
;;=4^S42.92XS
;;^UTILITY(U,$J,358.3,20619,2)
;;=^5027656
;;^UTILITY(U,$J,358.3,20620,0)
;;=S12.9XXS^^68^849^18
;;^UTILITY(U,$J,358.3,20620,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20620,1,3,0)
;;=3^Fx,Neck, unspecified, sequela
;;^UTILITY(U,$J,358.3,20620,1,4,0)
;;=4^S12.9XXS
;;^UTILITY(U,$J,358.3,20620,2)
;;=^5021964
;;^UTILITY(U,$J,358.3,20621,0)
;;=S42.91XS^^68^849^27
;;^UTILITY(U,$J,358.3,20621,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20621,1,3,0)
;;=3^Fx,Right shoulder girdle, part unspecified, sequela
;;^UTILITY(U,$J,358.3,20621,1,4,0)
;;=4^S42.91XS
;;^UTILITY(U,$J,358.3,20621,2)
;;=^5027649
;;^UTILITY(U,$J,358.3,20622,0)
;;=S72.001S^^68^849^22
;;^UTILITY(U,$J,358.3,20622,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20622,1,3,0)
;;=3^Fx,Right Femur Neck,Unspec Part,Sequela
;;^UTILITY(U,$J,358.3,20622,1,4,0)
;;=4^S72.001S
;;^UTILITY(U,$J,358.3,20622,2)
;;=^5037062
;;^UTILITY(U,$J,358.3,20623,0)
;;=S32.9XXS^^68^849^14
;;^UTILITY(U,$J,358.3,20623,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20623,1,3,0)
;;=3^Fx,Lumbosacral Spine & Pelvis,Unspec Parts,Sequla
;;^UTILITY(U,$J,358.3,20623,1,4,0)
;;=4^S32.9XXS
;;^UTILITY(U,$J,358.3,20623,2)
;;=^5025126
;;^UTILITY(U,$J,358.3,20624,0)
;;=S92.902S^^68^849^5
;;^UTILITY(U,$J,358.3,20624,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20624,1,3,0)
;;=3^Fx,Left foot, sequela
;;^UTILITY(U,$J,358.3,20624,1,4,0)
;;=4^S92.902S
;;^UTILITY(U,$J,358.3,20624,2)
;;=^5045591
;;^UTILITY(U,$J,358.3,20625,0)
;;=S52.92XS^^68^849^6
;;^UTILITY(U,$J,358.3,20625,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20625,1,3,0)
;;=3^Fx,Left forearm, sequela
;;^UTILITY(U,$J,358.3,20625,1,4,0)
;;=4^S52.92XS
;;^UTILITY(U,$J,358.3,20625,2)
;;=^5031189
;;^UTILITY(U,$J,358.3,20626,0)
;;=S82.92XS^^68^849^7
;;^UTILITY(U,$J,358.3,20626,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20626,1,3,0)
;;=3^Fx,Left lower leg, sequela
;;^UTILITY(U,$J,358.3,20626,1,4,0)
;;=4^S82.92XS
;;^UTILITY(U,$J,358.3,20626,2)
;;=^5136992
;;^UTILITY(U,$J,358.3,20627,0)
;;=S82.002S^^68^849^8
;;^UTILITY(U,$J,358.3,20627,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20627,1,3,0)
;;=3^Fx,Left patella, sequela
;;^UTILITY(U,$J,358.3,20627,1,4,0)
;;=4^S82.002S
;;^UTILITY(U,$J,358.3,20627,2)
;;=^5040135
;;^UTILITY(U,$J,358.3,20628,0)
;;=S92.912S^^68^849^10
;;^UTILITY(U,$J,358.3,20628,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20628,1,3,0)
;;=3^Fx,Left toe(s), sequela
;;^UTILITY(U,$J,358.3,20628,1,4,0)
;;=4^S92.912S
;;^UTILITY(U,$J,358.3,20628,2)
;;=^5045605
;;^UTILITY(U,$J,358.3,20629,0)
;;=S62.92XS^^68^849^11
;;^UTILITY(U,$J,358.3,20629,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20629,1,3,0)
;;=3^Fx,Left wrist and hand, sequela
;;^UTILITY(U,$J,358.3,20629,1,4,0)
;;=4^S62.92XS
;;^UTILITY(U,$J,358.3,20629,2)
;;=^5034892
;;^UTILITY(U,$J,358.3,20630,0)
;;=S42.402S^^68^849^12
;;^UTILITY(U,$J,358.3,20630,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20630,1,3,0)
;;=3^Fx,Lower end of left humerus, sequela
;;^UTILITY(U,$J,358.3,20630,1,4,0)
;;=4^S42.402S
;;^UTILITY(U,$J,358.3,20630,2)
;;=^5134725
;;^UTILITY(U,$J,358.3,20631,0)
;;=S42.401S^^68^849^13
;;^UTILITY(U,$J,358.3,20631,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20631,1,3,0)
;;=3^Fx,Lower end of right humerus, sequela
;;^UTILITY(U,$J,358.3,20631,1,4,0)
;;=4^S42.401S
;;^UTILITY(U,$J,358.3,20631,2)
;;=^5027300
;;^UTILITY(U,$J,358.3,20632,0)
;;=S92.901S^^68^849^23
;;^UTILITY(U,$J,358.3,20632,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20632,1,3,0)
;;=3^Fx,Right foot, sequela
;;^UTILITY(U,$J,358.3,20632,1,4,0)
;;=4^S92.901S
;;^UTILITY(U,$J,358.3,20632,2)
;;=^5045584
;;^UTILITY(U,$J,358.3,20633,0)
;;=S52.91XS^^68^849^24
;;^UTILITY(U,$J,358.3,20633,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20633,1,3,0)
;;=3^Fx,Right forearm, sequela
;;^UTILITY(U,$J,358.3,20633,1,4,0)
;;=4^S52.91XS
;;^UTILITY(U,$J,358.3,20633,2)
;;=^5031173
;;^UTILITY(U,$J,358.3,20634,0)
;;=S82.91XS^^68^849^25
;;^UTILITY(U,$J,358.3,20634,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20634,1,3,0)
;;=3^Fx,Right lower leg, sequela
;;^UTILITY(U,$J,358.3,20634,1,4,0)
;;=4^S82.91XS
;;^UTILITY(U,$J,358.3,20634,2)
;;=^5136991
;;^UTILITY(U,$J,358.3,20635,0)
;;=S82.001S^^68^849^26
;;^UTILITY(U,$J,358.3,20635,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20635,1,3,0)
;;=3^Fx,Right patella, sequela
;;^UTILITY(U,$J,358.3,20635,1,4,0)
;;=4^S82.001S
;;^UTILITY(U,$J,358.3,20635,2)
;;=^5040119
;;^UTILITY(U,$J,358.3,20636,0)
;;=S92.911S^^68^849^28
;;^UTILITY(U,$J,358.3,20636,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20636,1,3,0)
;;=3^Fx,Right toe(s), sequela
;;^UTILITY(U,$J,358.3,20636,1,4,0)
;;=4^S92.911S
;;^UTILITY(U,$J,358.3,20636,2)
;;=^5045598
;;^UTILITY(U,$J,358.3,20637,0)
;;=S62.91XS^^68^849^29
;;^UTILITY(U,$J,358.3,20637,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20637,1,3,0)
;;=3^Fx,Right wrist and hand, sequela
;;^UTILITY(U,$J,358.3,20637,1,4,0)
;;=4^S62.91XS
;;^UTILITY(U,$J,358.3,20637,2)
;;=^5034885
;;^UTILITY(U,$J,358.3,20638,0)
;;=S42.302S^^68^849^30
;;^UTILITY(U,$J,358.3,20638,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20638,1,3,0)
;;=3^Fx,Shaft of humerus, left arm, sequela
;;^UTILITY(U,$J,358.3,20638,1,4,0)
;;=4^S42.302S
;;^UTILITY(U,$J,358.3,20638,2)
;;=^5027044
;;^UTILITY(U,$J,358.3,20639,0)
;;=S42.301S^^68^849^31
;;^UTILITY(U,$J,358.3,20639,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20639,1,3,0)
;;=3^Fx,Shaft of humerus, right arm, sequela
;;^UTILITY(U,$J,358.3,20639,1,4,0)
;;=4^S42.301S
;;^UTILITY(U,$J,358.3,20639,2)
;;=^5027037
;;^UTILITY(U,$J,358.3,20640,0)
;;=S42.202S^^68^849^33
;;^UTILITY(U,$J,358.3,20640,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20640,1,3,0)
;;=3^Fx,Upper end of left humerus, sequela
;;^UTILITY(U,$J,358.3,20640,1,4,0)
;;=4^S42.202S
;;^UTILITY(U,$J,358.3,20640,2)
;;=^5026774
;;^UTILITY(U,$J,358.3,20641,0)
;;=S42.201S^^68^849^34
;;^UTILITY(U,$J,358.3,20641,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20641,1,3,0)
;;=3^Fx,Upper end of right humerus, sequela
;;^UTILITY(U,$J,358.3,20641,1,4,0)
;;=4^S42.201S
;;^UTILITY(U,$J,358.3,20641,2)
;;=^5026767
;;^UTILITY(U,$J,358.3,20642,0)
;;=S79.002S^^68^849^42
;;^UTILITY(U,$J,358.3,20642,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20642,1,3,0)
;;=3^Physeal fracture of upper end of left femur, sequela
;;^UTILITY(U,$J,358.3,20642,1,4,0)
;;=4^S79.002S
;;^UTILITY(U,$J,358.3,20642,2)
;;=^5039767
;;^UTILITY(U,$J,358.3,20643,0)
;;=S79.001S^^68^849^43
;;^UTILITY(U,$J,358.3,20643,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20643,1,3,0)
;;=3^Physeal fracture of upper end of right femur, sequela
;;^UTILITY(U,$J,358.3,20643,1,4,0)
;;=4^S79.001S
;;^UTILITY(U,$J,358.3,20643,2)
;;=^5039761
;;^UTILITY(U,$J,358.3,20644,0)
;;=Z87.81^^68^849^41
;;^UTILITY(U,$J,358.3,20644,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20644,1,3,0)
;;=3^Personal Hx of Traumatic Fx
;;^UTILITY(U,$J,358.3,20644,1,4,0)
;;=4^Z87.81
;;^UTILITY(U,$J,358.3,20644,2)
;;=^5063513
;;^UTILITY(U,$J,358.3,20645,0)
;;=S02.42XS^^68^849^1
;;^UTILITY(U,$J,358.3,20645,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20645,1,3,0)
;;=3^Fx,Alveolus of maxilla, sequela
;;^UTILITY(U,$J,358.3,20645,1,4,0)
;;=4^S02.42XS
;;^UTILITY(U,$J,358.3,20645,2)
;;=^5020359
;;^UTILITY(U,$J,358.3,20646,0)
;;=S02.19XS^^68^849^2
;;^UTILITY(U,$J,358.3,20646,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20646,1,3,0)
;;=3^Fx,Base of skull NEC, sequela
;;^UTILITY(U,$J,358.3,20646,1,4,0)
;;=4^S02.19XS
;;^UTILITY(U,$J,358.3,20646,2)
;;=^5020305
;;^UTILITY(U,$J,358.3,20647,0)
;;=S02.92XS^^68^849^4
;;^UTILITY(U,$J,358.3,20647,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20647,1,3,0)
;;=3^Fx,Facial bones unspec, sequela
;;^UTILITY(U,$J,358.3,20647,1,4,0)
;;=4^S02.92XS
;;^UTILITY(U,$J,358.3,20647,2)
;;=^5020443
;;^UTILITY(U,$J,358.3,20648,0)
;;=S02.609S^^68^849^15
;;^UTILITY(U,$J,358.3,20648,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20648,1,3,0)
;;=3^Fx,Mandible, unspecified, sequela
;;^UTILITY(U,$J,358.3,20648,1,4,0)
;;=4^S02.609S
;;^UTILITY(U,$J,358.3,20648,2)
;;=^5020377
;;^UTILITY(U,$J,358.3,20649,0)
;;=S02.2XXS^^68^849^17
;;^UTILITY(U,$J,358.3,20649,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20649,1,3,0)
;;=3^Fx,Nasal bones, sequela
;;^UTILITY(U,$J,358.3,20649,1,4,0)
;;=4^S02.2XXS
;;^UTILITY(U,$J,358.3,20649,2)
;;=^5020311
;;^UTILITY(U,$J,358.3,20650,0)
;;=S02.118S^^68^849^20
;;^UTILITY(U,$J,358.3,20650,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20650,1,3,0)
;;=3^Fx,Occiput NEC, sequela
;;^UTILITY(U,$J,358.3,20650,1,4,0)
;;=4^S02.118S
;;^UTILITY(U,$J,358.3,20650,2)
;;=^5020293
;;^UTILITY(U,$J,358.3,20651,0)
;;=S02.119S^^68^849^21
;;^UTILITY(U,$J,358.3,20651,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20651,1,3,0)
;;=3^Fx,Occiput unspec, sequela
;;^UTILITY(U,$J,358.3,20651,1,4,0)
;;=4^S02.119S
;;^UTILITY(U,$J,358.3,20651,2)
;;=^5020299
;;^UTILITY(U,$J,358.3,20652,0)
;;=S02.66XS^^68^849^32
;;^UTILITY(U,$J,358.3,20652,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20652,1,3,0)
;;=3^Fx,Symphysis of mandible, sequela
;;^UTILITY(U,$J,358.3,20652,1,4,0)
;;=4^S02.66XS
;;^UTILITY(U,$J,358.3,20652,2)
;;=^5020413
;;^UTILITY(U,$J,358.3,20653,0)
;;=S02.600S^^68^849^16
;;^UTILITY(U,$J,358.3,20653,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20653,1,3,0)
;;=3^Fx,Mandible,Unspec Part,Sequela
;;^UTILITY(U,$J,358.3,20653,1,4,0)
;;=4^S02.600S
;;^UTILITY(U,$J,358.3,20653,2)
;;=^5020371
;;^UTILITY(U,$J,358.3,20654,0)
;;=S02.0XXS^^68^849^35
;;^UTILITY(U,$J,358.3,20654,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20654,1,3,0)
;;=3^Fx,Vault of skull, sequela
;;^UTILITY(U,$J,358.3,20654,1,4,0)
;;=4^S02.0XXS
;;^UTILITY(U,$J,358.3,20654,2)
;;=^5020257
;;^UTILITY(U,$J,358.3,20655,0)
;;=S02.411S^^68^849^36
;;^UTILITY(U,$J,358.3,20655,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20655,1,3,0)
;;=3^LeFort I fracture, sequela
;;^UTILITY(U,$J,358.3,20655,1,4,0)
;;=4^S02.411S
;;^UTILITY(U,$J,358.3,20655,2)
;;=^5020341
;;^UTILITY(U,$J,358.3,20656,0)
;;=S02.412S^^68^849^37
;;^UTILITY(U,$J,358.3,20656,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20656,1,3,0)
;;=3^LeFort II fracture, sequela
;;^UTILITY(U,$J,358.3,20656,1,4,0)
;;=4^S02.412S
;;^UTILITY(U,$J,358.3,20656,2)
;;=^5020347
;;^UTILITY(U,$J,358.3,20657,0)
;;=S02.413S^^68^849^38
;;^UTILITY(U,$J,358.3,20657,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20657,1,3,0)
;;=3^LeFort III fracture, sequela
;;^UTILITY(U,$J,358.3,20657,1,4,0)
;;=4^S02.413S
;;^UTILITY(U,$J,358.3,20657,2)
;;=^5020353
;;^UTILITY(U,$J,358.3,20658,0)
;;=S02.400S^^68^849^39
;;^UTILITY(U,$J,358.3,20658,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20658,1,3,0)
;;=3^Malar fracture unspecified, sequela
;;^UTILITY(U,$J,358.3,20658,1,4,0)
;;=4^S02.400S
;;^UTILITY(U,$J,358.3,20658,2)
;;=^5020323
;;^UTILITY(U,$J,358.3,20659,0)
;;=S02.401S^^68^849^40
;;^UTILITY(U,$J,358.3,20659,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20659,1,3,0)
;;=3^Maxillary fracture, unspecified, sequela
;;^UTILITY(U,$J,358.3,20659,1,4,0)
;;=4^S02.401S
;;^UTILITY(U,$J,358.3,20659,2)
;;=^5020329
;;^UTILITY(U,$J,358.3,20660,0)
;;=S02.113S^^68^849^19
;;^UTILITY(U,$J,358.3,20660,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20660,1,3,0)
;;=3^Fx,Occipital condyle unspec, sequela
;;^UTILITY(U,$J,358.3,20660,1,4,0)
;;=4^S02.113S
;;^UTILITY(U,$J,358.3,20660,2)
;;=^5020287
;;^UTILITY(U,$J,358.3,20661,0)
;;=S02.110S^^68^849^44
;;^UTILITY(U,$J,358.3,20661,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20661,1,3,0)
;;=3^Type I occipital condyle fracture, sequela
;;^UTILITY(U,$J,358.3,20661,1,4,0)
;;=4^S02.110S
;;^UTILITY(U,$J,358.3,20661,2)
;;=^5020269
;;^UTILITY(U,$J,358.3,20662,0)
;;=S02.111S^^68^849^45
;;^UTILITY(U,$J,358.3,20662,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20662,1,3,0)
;;=3^Type II occipital condyle fracture, sequela
;;^UTILITY(U,$J,358.3,20662,1,4,0)
;;=4^S02.111S
;;^UTILITY(U,$J,358.3,20662,2)
;;=^5020275
;;^UTILITY(U,$J,358.3,20663,0)
;;=S02.112S^^68^849^46
;;^UTILITY(U,$J,358.3,20663,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20663,1,3,0)
;;=3^Type III occipital condyle fracture, sequela
;;^UTILITY(U,$J,358.3,20663,1,4,0)
;;=4^S02.112S
;;^UTILITY(U,$J,358.3,20663,2)
;;=^5020281
;;^UTILITY(U,$J,358.3,20664,0)
;;=S02.402S^^68^849^47
;;^UTILITY(U,$J,358.3,20664,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20664,1,3,0)
;;=3^Zygomatic fracture, unspecified, sequela
;;^UTILITY(U,$J,358.3,20664,1,4,0)
;;=4^S02.402S
;;^UTILITY(U,$J,358.3,20664,2)
;;=^5020335
;;^UTILITY(U,$J,358.3,20665,0)
;;=F10.20^^68^850^1
;;^UTILITY(U,$J,358.3,20665,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20665,1,3,0)
;;=3^Alcohol dependence, uncomplicated
;;^UTILITY(U,$J,358.3,20665,1,4,0)
;;=4^F10.20
;;^UTILITY(U,$J,358.3,20665,2)
;;=^5003081
;;^UTILITY(U,$J,358.3,20666,0)
;;=F31.10^^68^850^2
;;^UTILITY(U,$J,358.3,20666,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20666,1,3,0)
;;=3^Bipolar disord, crnt episode manic w/o psych features, unsp
;;^UTILITY(U,$J,358.3,20666,1,4,0)
;;=4^F31.10
;;^UTILITY(U,$J,358.3,20666,2)
;;=^5003495
;;^UTILITY(U,$J,358.3,20667,0)
;;=F32.9^^68^850^14
;;^UTILITY(U,$J,358.3,20667,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20667,1,3,0)
;;=3^MDD,Single Episode,Unspec
;;^UTILITY(U,$J,358.3,20667,1,4,0)
;;=4^F32.9
;;^UTILITY(U,$J,358.3,20667,2)
;;=^5003528
;;^UTILITY(U,$J,358.3,20668,0)
;;=F20.0^^68^850^15
;;^UTILITY(U,$J,358.3,20668,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20668,1,3,0)
;;=3^Paranoid schizophrenia
;;^UTILITY(U,$J,358.3,20668,1,4,0)
;;=4^F20.0
;;^UTILITY(U,$J,358.3,20668,2)
;;=^5003469
;;^UTILITY(U,$J,358.3,20669,0)
;;=F06.0^^68^850^16
;;^UTILITY(U,$J,358.3,20669,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20669,1,3,0)
;;=3^Psychotic disorder w hallucin due to known physiol condition
;;^UTILITY(U,$J,358.3,20669,1,4,0)
;;=4^F06.0
;;^UTILITY(U,$J,358.3,20669,2)
;;=^5003053
;;^UTILITY(U,$J,358.3,20670,0)
;;=F20.9^^68^850^20
;;^UTILITY(U,$J,358.3,20670,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20670,1,3,0)
;;=3^Schizophrenia, unspecified
;;^UTILITY(U,$J,358.3,20670,1,4,0)
;;=4^F20.9
;;^UTILITY(U,$J,358.3,20670,2)
;;=^5003476
;;^UTILITY(U,$J,358.3,20671,0)
;;=F03.91^^68^850^3
;;^UTILITY(U,$J,358.3,20671,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20671,1,3,0)
;;=3^Dementia with behavioral disturbance,Unspec
;;^UTILITY(U,$J,358.3,20671,1,4,0)
;;=4^F03.91
;;^UTILITY(U,$J,358.3,20671,2)
;;=^5133350
;;^UTILITY(U,$J,358.3,20672,0)
;;=F03.90^^68^850^4
;;^UTILITY(U,$J,358.3,20672,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20672,1,3,0)
;;=3^Dementia without behavioral disturbance,Unspec
;;^UTILITY(U,$J,358.3,20672,1,4,0)
;;=4^F03.90
;;^UTILITY(U,$J,358.3,20672,2)
;;=^5003050
;;^UTILITY(U,$J,358.3,20673,0)
;;=F33.0^^68^850^6
;;^UTILITY(U,$J,358.3,20673,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20673,1,3,0)
;;=3^MDD,Recurrent,Mild
;;^UTILITY(U,$J,358.3,20673,1,4,0)
;;=4^F33.0
;;^UTILITY(U,$J,358.3,20673,2)
;;=^5003529
;;^UTILITY(U,$J,358.3,20674,0)
;;=F33.1^^68^850^7
;;^UTILITY(U,$J,358.3,20674,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20674,1,3,0)
;;=3^MDD,Recurrent,Moderate
;;^UTILITY(U,$J,358.3,20674,1,4,0)
;;=4^F33.1
;;^UTILITY(U,$J,358.3,20674,2)
;;=^5003530
;;^UTILITY(U,$J,358.3,20675,0)
;;=F33.2^^68^850^8
;;^UTILITY(U,$J,358.3,20675,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20675,1,3,0)
;;=3^MDD,Recurrent,Severe w/o Psychotic Features
;;^UTILITY(U,$J,358.3,20675,1,4,0)
;;=4^F33.2
;;^UTILITY(U,$J,358.3,20675,2)
;;=^5003531
;;^UTILITY(U,$J,358.3,20676,0)
;;=F33.9^^68^850^9
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI08G 19757 printed Apr 09, 2024@21:30:26 Page 2
IBDEI08G ; ; 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,20608,1,4,0)
+2 ;;=4^M12.531
+3 ;;^UTILITY(U,$J,358.3,20608,2)
+4 ;;=^5010625
+5 ;;^UTILITY(U,$J,358.3,20609,0)
+6 ;;=M12.9^^68^848^1
+7 ;;^UTILITY(U,$J,358.3,20609,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,20609,1,3,0)
+10 ;;=3^Arthropathy,Unspec
+11 ;;^UTILITY(U,$J,358.3,20609,1,4,0)
+12 ;;=4^M12.9
+13 ;;^UTILITY(U,$J,358.3,20609,2)
+14 ;;=^5010666
+15 ;;^UTILITY(U,$J,358.3,20610,0)
+16 ;;=M76.12^^68^848^21
+17 ;;^UTILITY(U,$J,358.3,20610,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,20610,1,3,0)
+20 ;;=3^Psoas Tendinitis,Lt Hip
+21 ;;^UTILITY(U,$J,358.3,20610,1,4,0)
+22 ;;=4^M76.12
+23 ;;^UTILITY(U,$J,358.3,20610,2)
+24 ;;=^5013271
+25 ;;^UTILITY(U,$J,358.3,20611,0)
+26 ;;=M76.11^^68^848^22
+27 ;;^UTILITY(U,$J,358.3,20611,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,20611,1,3,0)
+30 ;;=3^Psoas Tendinitis,Rt Hip
+31 ;;^UTILITY(U,$J,358.3,20611,1,4,0)
+32 ;;=4^M76.11
+33 ;;^UTILITY(U,$J,358.3,20611,2)
+34 ;;=^5013270
+35 ;;^UTILITY(U,$J,358.3,20612,0)
+36 ;;=M70.62^^68^848^16
+37 ;;^UTILITY(U,$J,358.3,20612,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,20612,1,3,0)
+40 ;;=3^Greater Trochanteric Bursitis,Lt Hip
+41 ;;^UTILITY(U,$J,358.3,20612,1,4,0)
+42 ;;=4^M70.62
+43 ;;^UTILITY(U,$J,358.3,20612,2)
+44 ;;=^5013060
+45 ;;^UTILITY(U,$J,358.3,20613,0)
+46 ;;=M70.61^^68^848^17
+47 ;;^UTILITY(U,$J,358.3,20613,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,20613,1,3,0)
+50 ;;=3^Greater Trochanteric Bursitis,Rt Hip
+51 ;;^UTILITY(U,$J,358.3,20613,1,4,0)
+52 ;;=4^M70.61
+53 ;;^UTILITY(U,$J,358.3,20613,2)
+54 ;;=^5013059
+55 ;;^UTILITY(U,$J,358.3,20614,0)
+56 ;;=M70.51^^68^848^19
+57 ;;^UTILITY(U,$J,358.3,20614,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,20614,1,3,0)
+60 ;;=3^Pes Anserine Bursitis,Right Knee
+61 ;;^UTILITY(U,$J,358.3,20614,1,4,0)
+62 ;;=4^M70.51
+63 ;;^UTILITY(U,$J,358.3,20614,2)
+64 ;;=^5013056
+65 ;;^UTILITY(U,$J,358.3,20615,0)
+66 ;;=M70.52^^68^848^18
+67 ;;^UTILITY(U,$J,358.3,20615,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,20615,1,3,0)
+70 ;;=3^Pes Anserine Bursitis,Left Knee
+71 ;;^UTILITY(U,$J,358.3,20615,1,4,0)
+72 ;;=4^M70.52
+73 ;;^UTILITY(U,$J,358.3,20615,2)
+74 ;;=^5013057
+75 ;;^UTILITY(U,$J,358.3,20616,0)
+76 ;;=M19.19^^68^848^20
+77 ;;^UTILITY(U,$J,358.3,20616,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,20616,1,3,0)
+80 ;;=3^Post-Traumatic Osteoarthritis,Oth Specified Site
+81 ;;^UTILITY(U,$J,358.3,20616,1,4,0)
+82 ;;=4^M19.19
+83 ;;^UTILITY(U,$J,358.3,20616,2)
+84 ;;=^5159230
+85 ;;^UTILITY(U,$J,358.3,20617,0)
+86 ;;=M25.69^^68^848^31
+87 ;;^UTILITY(U,$J,358.3,20617,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,20617,1,3,0)
+90 ;;=3^Stiffness,Oth Specified Joint NEC
+91 ;;^UTILITY(U,$J,358.3,20617,1,4,0)
+92 ;;=4^M25.69
+93 ;;^UTILITY(U,$J,358.3,20617,2)
+94 ;;=^5159241
+95 ;;^UTILITY(U,$J,358.3,20618,0)
+96 ;;=S22.9XXS^^68^849^3
+97 ;;^UTILITY(U,$J,358.3,20618,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,20618,1,3,0)
+100 ;;=3^Fx,Bony thorax, part unspecified, sequela
+101 ;;^UTILITY(U,$J,358.3,20618,1,4,0)
+102 ;;=4^S22.9XXS
+103 ;;^UTILITY(U,$J,358.3,20618,2)
+104 ;;=^5023158
+105 ;;^UTILITY(U,$J,358.3,20619,0)
+106 ;;=S42.92XS^^68^849^9
+107 ;;^UTILITY(U,$J,358.3,20619,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,20619,1,3,0)
+110 ;;=3^Fx,Left shoulder girdle, part unspecified, sequela
+111 ;;^UTILITY(U,$J,358.3,20619,1,4,0)
+112 ;;=4^S42.92XS
+113 ;;^UTILITY(U,$J,358.3,20619,2)
+114 ;;=^5027656
+115 ;;^UTILITY(U,$J,358.3,20620,0)
+116 ;;=S12.9XXS^^68^849^18
+117 ;;^UTILITY(U,$J,358.3,20620,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,20620,1,3,0)
+120 ;;=3^Fx,Neck, unspecified, sequela
+121 ;;^UTILITY(U,$J,358.3,20620,1,4,0)
+122 ;;=4^S12.9XXS
+123 ;;^UTILITY(U,$J,358.3,20620,2)
+124 ;;=^5021964
+125 ;;^UTILITY(U,$J,358.3,20621,0)
+126 ;;=S42.91XS^^68^849^27
+127 ;;^UTILITY(U,$J,358.3,20621,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,20621,1,3,0)
+130 ;;=3^Fx,Right shoulder girdle, part unspecified, sequela
+131 ;;^UTILITY(U,$J,358.3,20621,1,4,0)
+132 ;;=4^S42.91XS
+133 ;;^UTILITY(U,$J,358.3,20621,2)
+134 ;;=^5027649
+135 ;;^UTILITY(U,$J,358.3,20622,0)
+136 ;;=S72.001S^^68^849^22
+137 ;;^UTILITY(U,$J,358.3,20622,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,20622,1,3,0)
+140 ;;=3^Fx,Right Femur Neck,Unspec Part,Sequela
+141 ;;^UTILITY(U,$J,358.3,20622,1,4,0)
+142 ;;=4^S72.001S
+143 ;;^UTILITY(U,$J,358.3,20622,2)
+144 ;;=^5037062
+145 ;;^UTILITY(U,$J,358.3,20623,0)
+146 ;;=S32.9XXS^^68^849^14
+147 ;;^UTILITY(U,$J,358.3,20623,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,20623,1,3,0)
+150 ;;=3^Fx,Lumbosacral Spine & Pelvis,Unspec Parts,Sequla
+151 ;;^UTILITY(U,$J,358.3,20623,1,4,0)
+152 ;;=4^S32.9XXS
+153 ;;^UTILITY(U,$J,358.3,20623,2)
+154 ;;=^5025126
+155 ;;^UTILITY(U,$J,358.3,20624,0)
+156 ;;=S92.902S^^68^849^5
+157 ;;^UTILITY(U,$J,358.3,20624,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,20624,1,3,0)
+160 ;;=3^Fx,Left foot, sequela
+161 ;;^UTILITY(U,$J,358.3,20624,1,4,0)
+162 ;;=4^S92.902S
+163 ;;^UTILITY(U,$J,358.3,20624,2)
+164 ;;=^5045591
+165 ;;^UTILITY(U,$J,358.3,20625,0)
+166 ;;=S52.92XS^^68^849^6
+167 ;;^UTILITY(U,$J,358.3,20625,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,20625,1,3,0)
+170 ;;=3^Fx,Left forearm, sequela
+171 ;;^UTILITY(U,$J,358.3,20625,1,4,0)
+172 ;;=4^S52.92XS
+173 ;;^UTILITY(U,$J,358.3,20625,2)
+174 ;;=^5031189
+175 ;;^UTILITY(U,$J,358.3,20626,0)
+176 ;;=S82.92XS^^68^849^7
+177 ;;^UTILITY(U,$J,358.3,20626,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,20626,1,3,0)
+180 ;;=3^Fx,Left lower leg, sequela
+181 ;;^UTILITY(U,$J,358.3,20626,1,4,0)
+182 ;;=4^S82.92XS
+183 ;;^UTILITY(U,$J,358.3,20626,2)
+184 ;;=^5136992
+185 ;;^UTILITY(U,$J,358.3,20627,0)
+186 ;;=S82.002S^^68^849^8
+187 ;;^UTILITY(U,$J,358.3,20627,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,20627,1,3,0)
+190 ;;=3^Fx,Left patella, sequela
+191 ;;^UTILITY(U,$J,358.3,20627,1,4,0)
+192 ;;=4^S82.002S
+193 ;;^UTILITY(U,$J,358.3,20627,2)
+194 ;;=^5040135
+195 ;;^UTILITY(U,$J,358.3,20628,0)
+196 ;;=S92.912S^^68^849^10
+197 ;;^UTILITY(U,$J,358.3,20628,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,20628,1,3,0)
+200 ;;=3^Fx,Left toe(s), sequela
+201 ;;^UTILITY(U,$J,358.3,20628,1,4,0)
+202 ;;=4^S92.912S
+203 ;;^UTILITY(U,$J,358.3,20628,2)
+204 ;;=^5045605
+205 ;;^UTILITY(U,$J,358.3,20629,0)
+206 ;;=S62.92XS^^68^849^11
+207 ;;^UTILITY(U,$J,358.3,20629,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,20629,1,3,0)
+210 ;;=3^Fx,Left wrist and hand, sequela
+211 ;;^UTILITY(U,$J,358.3,20629,1,4,0)
+212 ;;=4^S62.92XS
+213 ;;^UTILITY(U,$J,358.3,20629,2)
+214 ;;=^5034892
+215 ;;^UTILITY(U,$J,358.3,20630,0)
+216 ;;=S42.402S^^68^849^12
+217 ;;^UTILITY(U,$J,358.3,20630,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,20630,1,3,0)
+220 ;;=3^Fx,Lower end of left humerus, sequela
+221 ;;^UTILITY(U,$J,358.3,20630,1,4,0)
+222 ;;=4^S42.402S
+223 ;;^UTILITY(U,$J,358.3,20630,2)
+224 ;;=^5134725
+225 ;;^UTILITY(U,$J,358.3,20631,0)
+226 ;;=S42.401S^^68^849^13
+227 ;;^UTILITY(U,$J,358.3,20631,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,20631,1,3,0)
+230 ;;=3^Fx,Lower end of right humerus, sequela
+231 ;;^UTILITY(U,$J,358.3,20631,1,4,0)
+232 ;;=4^S42.401S
+233 ;;^UTILITY(U,$J,358.3,20631,2)
+234 ;;=^5027300
+235 ;;^UTILITY(U,$J,358.3,20632,0)
+236 ;;=S92.901S^^68^849^23
+237 ;;^UTILITY(U,$J,358.3,20632,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,20632,1,3,0)
+240 ;;=3^Fx,Right foot, sequela
+241 ;;^UTILITY(U,$J,358.3,20632,1,4,0)
+242 ;;=4^S92.901S
+243 ;;^UTILITY(U,$J,358.3,20632,2)
+244 ;;=^5045584
+245 ;;^UTILITY(U,$J,358.3,20633,0)
+246 ;;=S52.91XS^^68^849^24
+247 ;;^UTILITY(U,$J,358.3,20633,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,20633,1,3,0)
+250 ;;=3^Fx,Right forearm, sequela
+251 ;;^UTILITY(U,$J,358.3,20633,1,4,0)
+252 ;;=4^S52.91XS
+253 ;;^UTILITY(U,$J,358.3,20633,2)
+254 ;;=^5031173
+255 ;;^UTILITY(U,$J,358.3,20634,0)
+256 ;;=S82.91XS^^68^849^25
+257 ;;^UTILITY(U,$J,358.3,20634,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,20634,1,3,0)
+260 ;;=3^Fx,Right lower leg, sequela
+261 ;;^UTILITY(U,$J,358.3,20634,1,4,0)
+262 ;;=4^S82.91XS
+263 ;;^UTILITY(U,$J,358.3,20634,2)
+264 ;;=^5136991
+265 ;;^UTILITY(U,$J,358.3,20635,0)
+266 ;;=S82.001S^^68^849^26
+267 ;;^UTILITY(U,$J,358.3,20635,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,20635,1,3,0)
+270 ;;=3^Fx,Right patella, sequela
+271 ;;^UTILITY(U,$J,358.3,20635,1,4,0)
+272 ;;=4^S82.001S
+273 ;;^UTILITY(U,$J,358.3,20635,2)
+274 ;;=^5040119
+275 ;;^UTILITY(U,$J,358.3,20636,0)
+276 ;;=S92.911S^^68^849^28
+277 ;;^UTILITY(U,$J,358.3,20636,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,20636,1,3,0)
+280 ;;=3^Fx,Right toe(s), sequela
+281 ;;^UTILITY(U,$J,358.3,20636,1,4,0)
+282 ;;=4^S92.911S
+283 ;;^UTILITY(U,$J,358.3,20636,2)
+284 ;;=^5045598
+285 ;;^UTILITY(U,$J,358.3,20637,0)
+286 ;;=S62.91XS^^68^849^29
+287 ;;^UTILITY(U,$J,358.3,20637,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,20637,1,3,0)
+290 ;;=3^Fx,Right wrist and hand, sequela
+291 ;;^UTILITY(U,$J,358.3,20637,1,4,0)
+292 ;;=4^S62.91XS
+293 ;;^UTILITY(U,$J,358.3,20637,2)
+294 ;;=^5034885
+295 ;;^UTILITY(U,$J,358.3,20638,0)
+296 ;;=S42.302S^^68^849^30
+297 ;;^UTILITY(U,$J,358.3,20638,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,20638,1,3,0)
+300 ;;=3^Fx,Shaft of humerus, left arm, sequela
+301 ;;^UTILITY(U,$J,358.3,20638,1,4,0)
+302 ;;=4^S42.302S
+303 ;;^UTILITY(U,$J,358.3,20638,2)
+304 ;;=^5027044
+305 ;;^UTILITY(U,$J,358.3,20639,0)
+306 ;;=S42.301S^^68^849^31
+307 ;;^UTILITY(U,$J,358.3,20639,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,20639,1,3,0)
+310 ;;=3^Fx,Shaft of humerus, right arm, sequela
+311 ;;^UTILITY(U,$J,358.3,20639,1,4,0)
+312 ;;=4^S42.301S
+313 ;;^UTILITY(U,$J,358.3,20639,2)
+314 ;;=^5027037
+315 ;;^UTILITY(U,$J,358.3,20640,0)
+316 ;;=S42.202S^^68^849^33
+317 ;;^UTILITY(U,$J,358.3,20640,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,20640,1,3,0)
+320 ;;=3^Fx,Upper end of left humerus, sequela
+321 ;;^UTILITY(U,$J,358.3,20640,1,4,0)
+322 ;;=4^S42.202S
+323 ;;^UTILITY(U,$J,358.3,20640,2)
+324 ;;=^5026774
+325 ;;^UTILITY(U,$J,358.3,20641,0)
+326 ;;=S42.201S^^68^849^34
+327 ;;^UTILITY(U,$J,358.3,20641,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,20641,1,3,0)
+330 ;;=3^Fx,Upper end of right humerus, sequela
+331 ;;^UTILITY(U,$J,358.3,20641,1,4,0)
+332 ;;=4^S42.201S
+333 ;;^UTILITY(U,$J,358.3,20641,2)
+334 ;;=^5026767
+335 ;;^UTILITY(U,$J,358.3,20642,0)
+336 ;;=S79.002S^^68^849^42
+337 ;;^UTILITY(U,$J,358.3,20642,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,20642,1,3,0)
+340 ;;=3^Physeal fracture of upper end of left femur, sequela
+341 ;;^UTILITY(U,$J,358.3,20642,1,4,0)
+342 ;;=4^S79.002S
+343 ;;^UTILITY(U,$J,358.3,20642,2)
+344 ;;=^5039767
+345 ;;^UTILITY(U,$J,358.3,20643,0)
+346 ;;=S79.001S^^68^849^43
+347 ;;^UTILITY(U,$J,358.3,20643,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,20643,1,3,0)
+350 ;;=3^Physeal fracture of upper end of right femur, sequela
+351 ;;^UTILITY(U,$J,358.3,20643,1,4,0)
+352 ;;=4^S79.001S
+353 ;;^UTILITY(U,$J,358.3,20643,2)
+354 ;;=^5039761
+355 ;;^UTILITY(U,$J,358.3,20644,0)
+356 ;;=Z87.81^^68^849^41
+357 ;;^UTILITY(U,$J,358.3,20644,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,20644,1,3,0)
+360 ;;=3^Personal Hx of Traumatic Fx
+361 ;;^UTILITY(U,$J,358.3,20644,1,4,0)
+362 ;;=4^Z87.81
+363 ;;^UTILITY(U,$J,358.3,20644,2)
+364 ;;=^5063513
+365 ;;^UTILITY(U,$J,358.3,20645,0)
+366 ;;=S02.42XS^^68^849^1
+367 ;;^UTILITY(U,$J,358.3,20645,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,20645,1,3,0)
+370 ;;=3^Fx,Alveolus of maxilla, sequela
+371 ;;^UTILITY(U,$J,358.3,20645,1,4,0)
+372 ;;=4^S02.42XS
+373 ;;^UTILITY(U,$J,358.3,20645,2)
+374 ;;=^5020359
+375 ;;^UTILITY(U,$J,358.3,20646,0)
+376 ;;=S02.19XS^^68^849^2
+377 ;;^UTILITY(U,$J,358.3,20646,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,20646,1,3,0)
+380 ;;=3^Fx,Base of skull NEC, sequela
+381 ;;^UTILITY(U,$J,358.3,20646,1,4,0)
+382 ;;=4^S02.19XS
+383 ;;^UTILITY(U,$J,358.3,20646,2)
+384 ;;=^5020305
+385 ;;^UTILITY(U,$J,358.3,20647,0)
+386 ;;=S02.92XS^^68^849^4
+387 ;;^UTILITY(U,$J,358.3,20647,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,20647,1,3,0)
+390 ;;=3^Fx,Facial bones unspec, sequela
+391 ;;^UTILITY(U,$J,358.3,20647,1,4,0)
+392 ;;=4^S02.92XS
+393 ;;^UTILITY(U,$J,358.3,20647,2)
+394 ;;=^5020443
+395 ;;^UTILITY(U,$J,358.3,20648,0)
+396 ;;=S02.609S^^68^849^15
+397 ;;^UTILITY(U,$J,358.3,20648,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,20648,1,3,0)
+400 ;;=3^Fx,Mandible, unspecified, sequela
+401 ;;^UTILITY(U,$J,358.3,20648,1,4,0)
+402 ;;=4^S02.609S
+403 ;;^UTILITY(U,$J,358.3,20648,2)
+404 ;;=^5020377
+405 ;;^UTILITY(U,$J,358.3,20649,0)
+406 ;;=S02.2XXS^^68^849^17
+407 ;;^UTILITY(U,$J,358.3,20649,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,20649,1,3,0)
+410 ;;=3^Fx,Nasal bones, sequela
+411 ;;^UTILITY(U,$J,358.3,20649,1,4,0)
+412 ;;=4^S02.2XXS
+413 ;;^UTILITY(U,$J,358.3,20649,2)
+414 ;;=^5020311
+415 ;;^UTILITY(U,$J,358.3,20650,0)
+416 ;;=S02.118S^^68^849^20
+417 ;;^UTILITY(U,$J,358.3,20650,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,20650,1,3,0)
+420 ;;=3^Fx,Occiput NEC, sequela
+421 ;;^UTILITY(U,$J,358.3,20650,1,4,0)
+422 ;;=4^S02.118S
+423 ;;^UTILITY(U,$J,358.3,20650,2)
+424 ;;=^5020293
+425 ;;^UTILITY(U,$J,358.3,20651,0)
+426 ;;=S02.119S^^68^849^21
+427 ;;^UTILITY(U,$J,358.3,20651,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,20651,1,3,0)
+430 ;;=3^Fx,Occiput unspec, sequela
+431 ;;^UTILITY(U,$J,358.3,20651,1,4,0)
+432 ;;=4^S02.119S
+433 ;;^UTILITY(U,$J,358.3,20651,2)
+434 ;;=^5020299
+435 ;;^UTILITY(U,$J,358.3,20652,0)
+436 ;;=S02.66XS^^68^849^32
+437 ;;^UTILITY(U,$J,358.3,20652,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,20652,1,3,0)
+440 ;;=3^Fx,Symphysis of mandible, sequela
+441 ;;^UTILITY(U,$J,358.3,20652,1,4,0)
+442 ;;=4^S02.66XS
+443 ;;^UTILITY(U,$J,358.3,20652,2)
+444 ;;=^5020413
+445 ;;^UTILITY(U,$J,358.3,20653,0)
+446 ;;=S02.600S^^68^849^16
+447 ;;^UTILITY(U,$J,358.3,20653,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,20653,1,3,0)
+450 ;;=3^Fx,Mandible,Unspec Part,Sequela
+451 ;;^UTILITY(U,$J,358.3,20653,1,4,0)
+452 ;;=4^S02.600S
+453 ;;^UTILITY(U,$J,358.3,20653,2)
+454 ;;=^5020371
+455 ;;^UTILITY(U,$J,358.3,20654,0)
+456 ;;=S02.0XXS^^68^849^35
+457 ;;^UTILITY(U,$J,358.3,20654,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,20654,1,3,0)
+460 ;;=3^Fx,Vault of skull, sequela
+461 ;;^UTILITY(U,$J,358.3,20654,1,4,0)
+462 ;;=4^S02.0XXS
+463 ;;^UTILITY(U,$J,358.3,20654,2)
+464 ;;=^5020257
+465 ;;^UTILITY(U,$J,358.3,20655,0)
+466 ;;=S02.411S^^68^849^36
+467 ;;^UTILITY(U,$J,358.3,20655,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,20655,1,3,0)
+470 ;;=3^LeFort I fracture, sequela
+471 ;;^UTILITY(U,$J,358.3,20655,1,4,0)
+472 ;;=4^S02.411S
+473 ;;^UTILITY(U,$J,358.3,20655,2)
+474 ;;=^5020341
+475 ;;^UTILITY(U,$J,358.3,20656,0)
+476 ;;=S02.412S^^68^849^37
+477 ;;^UTILITY(U,$J,358.3,20656,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,20656,1,3,0)
+480 ;;=3^LeFort II fracture, sequela
+481 ;;^UTILITY(U,$J,358.3,20656,1,4,0)
+482 ;;=4^S02.412S
+483 ;;^UTILITY(U,$J,358.3,20656,2)
+484 ;;=^5020347
+485 ;;^UTILITY(U,$J,358.3,20657,0)
+486 ;;=S02.413S^^68^849^38
+487 ;;^UTILITY(U,$J,358.3,20657,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,20657,1,3,0)
+490 ;;=3^LeFort III fracture, sequela
+491 ;;^UTILITY(U,$J,358.3,20657,1,4,0)
+492 ;;=4^S02.413S
+493 ;;^UTILITY(U,$J,358.3,20657,2)
+494 ;;=^5020353
+495 ;;^UTILITY(U,$J,358.3,20658,0)
+496 ;;=S02.400S^^68^849^39
+497 ;;^UTILITY(U,$J,358.3,20658,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,20658,1,3,0)
+500 ;;=3^Malar fracture unspecified, sequela
+501 ;;^UTILITY(U,$J,358.3,20658,1,4,0)
+502 ;;=4^S02.400S
+503 ;;^UTILITY(U,$J,358.3,20658,2)
+504 ;;=^5020323
+505 ;;^UTILITY(U,$J,358.3,20659,0)
+506 ;;=S02.401S^^68^849^40
+507 ;;^UTILITY(U,$J,358.3,20659,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,20659,1,3,0)
+510 ;;=3^Maxillary fracture, unspecified, sequela
+511 ;;^UTILITY(U,$J,358.3,20659,1,4,0)
+512 ;;=4^S02.401S
+513 ;;^UTILITY(U,$J,358.3,20659,2)
+514 ;;=^5020329
+515 ;;^UTILITY(U,$J,358.3,20660,0)
+516 ;;=S02.113S^^68^849^19
+517 ;;^UTILITY(U,$J,358.3,20660,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,20660,1,3,0)
+520 ;;=3^Fx,Occipital condyle unspec, sequela
+521 ;;^UTILITY(U,$J,358.3,20660,1,4,0)
+522 ;;=4^S02.113S
+523 ;;^UTILITY(U,$J,358.3,20660,2)
+524 ;;=^5020287
+525 ;;^UTILITY(U,$J,358.3,20661,0)
+526 ;;=S02.110S^^68^849^44
+527 ;;^UTILITY(U,$J,358.3,20661,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,20661,1,3,0)
+530 ;;=3^Type I occipital condyle fracture, sequela
+531 ;;^UTILITY(U,$J,358.3,20661,1,4,0)
+532 ;;=4^S02.110S
+533 ;;^UTILITY(U,$J,358.3,20661,2)
+534 ;;=^5020269
+535 ;;^UTILITY(U,$J,358.3,20662,0)
+536 ;;=S02.111S^^68^849^45
+537 ;;^UTILITY(U,$J,358.3,20662,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,20662,1,3,0)
+540 ;;=3^Type II occipital condyle fracture, sequela
+541 ;;^UTILITY(U,$J,358.3,20662,1,4,0)
+542 ;;=4^S02.111S
+543 ;;^UTILITY(U,$J,358.3,20662,2)
+544 ;;=^5020275
+545 ;;^UTILITY(U,$J,358.3,20663,0)
+546 ;;=S02.112S^^68^849^46
+547 ;;^UTILITY(U,$J,358.3,20663,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,20663,1,3,0)
+550 ;;=3^Type III occipital condyle fracture, sequela
+551 ;;^UTILITY(U,$J,358.3,20663,1,4,0)
+552 ;;=4^S02.112S
+553 ;;^UTILITY(U,$J,358.3,20663,2)
+554 ;;=^5020281
+555 ;;^UTILITY(U,$J,358.3,20664,0)
+556 ;;=S02.402S^^68^849^47
+557 ;;^UTILITY(U,$J,358.3,20664,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,20664,1,3,0)
+560 ;;=3^Zygomatic fracture, unspecified, sequela
+561 ;;^UTILITY(U,$J,358.3,20664,1,4,0)
+562 ;;=4^S02.402S
+563 ;;^UTILITY(U,$J,358.3,20664,2)
+564 ;;=^5020335
+565 ;;^UTILITY(U,$J,358.3,20665,0)
+566 ;;=F10.20^^68^850^1
+567 ;;^UTILITY(U,$J,358.3,20665,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,20665,1,3,0)
+570 ;;=3^Alcohol dependence, uncomplicated
+571 ;;^UTILITY(U,$J,358.3,20665,1,4,0)
+572 ;;=4^F10.20
+573 ;;^UTILITY(U,$J,358.3,20665,2)
+574 ;;=^5003081
+575 ;;^UTILITY(U,$J,358.3,20666,0)
+576 ;;=F31.10^^68^850^2
+577 ;;^UTILITY(U,$J,358.3,20666,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,20666,1,3,0)
+580 ;;=3^Bipolar disord, crnt episode manic w/o psych features, unsp
+581 ;;^UTILITY(U,$J,358.3,20666,1,4,0)
+582 ;;=4^F31.10
+583 ;;^UTILITY(U,$J,358.3,20666,2)
+584 ;;=^5003495
+585 ;;^UTILITY(U,$J,358.3,20667,0)
+586 ;;=F32.9^^68^850^14
+587 ;;^UTILITY(U,$J,358.3,20667,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,20667,1,3,0)
+590 ;;=3^MDD,Single Episode,Unspec
+591 ;;^UTILITY(U,$J,358.3,20667,1,4,0)
+592 ;;=4^F32.9
+593 ;;^UTILITY(U,$J,358.3,20667,2)
+594 ;;=^5003528
+595 ;;^UTILITY(U,$J,358.3,20668,0)
+596 ;;=F20.0^^68^850^15
+597 ;;^UTILITY(U,$J,358.3,20668,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,20668,1,3,0)
+600 ;;=3^Paranoid schizophrenia
+601 ;;^UTILITY(U,$J,358.3,20668,1,4,0)
+602 ;;=4^F20.0
+603 ;;^UTILITY(U,$J,358.3,20668,2)
+604 ;;=^5003469
+605 ;;^UTILITY(U,$J,358.3,20669,0)
+606 ;;=F06.0^^68^850^16
+607 ;;^UTILITY(U,$J,358.3,20669,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,20669,1,3,0)
+610 ;;=3^Psychotic disorder w hallucin due to known physiol condition
+611 ;;^UTILITY(U,$J,358.3,20669,1,4,0)
+612 ;;=4^F06.0
+613 ;;^UTILITY(U,$J,358.3,20669,2)
+614 ;;=^5003053
+615 ;;^UTILITY(U,$J,358.3,20670,0)
+616 ;;=F20.9^^68^850^20
+617 ;;^UTILITY(U,$J,358.3,20670,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,20670,1,3,0)
+620 ;;=3^Schizophrenia, unspecified
+621 ;;^UTILITY(U,$J,358.3,20670,1,4,0)
+622 ;;=4^F20.9
+623 ;;^UTILITY(U,$J,358.3,20670,2)
+624 ;;=^5003476
+625 ;;^UTILITY(U,$J,358.3,20671,0)
+626 ;;=F03.91^^68^850^3
+627 ;;^UTILITY(U,$J,358.3,20671,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,20671,1,3,0)
+630 ;;=3^Dementia with behavioral disturbance,Unspec
+631 ;;^UTILITY(U,$J,358.3,20671,1,4,0)
+632 ;;=4^F03.91
+633 ;;^UTILITY(U,$J,358.3,20671,2)
+634 ;;=^5133350
+635 ;;^UTILITY(U,$J,358.3,20672,0)
+636 ;;=F03.90^^68^850^4
+637 ;;^UTILITY(U,$J,358.3,20672,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,20672,1,3,0)
+640 ;;=3^Dementia without behavioral disturbance,Unspec
+641 ;;^UTILITY(U,$J,358.3,20672,1,4,0)
+642 ;;=4^F03.90
+643 ;;^UTILITY(U,$J,358.3,20672,2)
+644 ;;=^5003050
+645 ;;^UTILITY(U,$J,358.3,20673,0)
+646 ;;=F33.0^^68^850^6
+647 ;;^UTILITY(U,$J,358.3,20673,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,20673,1,3,0)
+650 ;;=3^MDD,Recurrent,Mild
+651 ;;^UTILITY(U,$J,358.3,20673,1,4,0)
+652 ;;=4^F33.0
+653 ;;^UTILITY(U,$J,358.3,20673,2)
+654 ;;=^5003529
+655 ;;^UTILITY(U,$J,358.3,20674,0)
+656 ;;=F33.1^^68^850^7
+657 ;;^UTILITY(U,$J,358.3,20674,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,20674,1,3,0)
+660 ;;=3^MDD,Recurrent,Moderate
+661 ;;^UTILITY(U,$J,358.3,20674,1,4,0)
+662 ;;=4^F33.1
+663 ;;^UTILITY(U,$J,358.3,20674,2)
+664 ;;=^5003530
+665 ;;^UTILITY(U,$J,358.3,20675,0)
+666 ;;=F33.2^^68^850^8
+667 ;;^UTILITY(U,$J,358.3,20675,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,20675,1,3,0)
+670 ;;=3^MDD,Recurrent,Severe w/o Psychotic Features
+671 ;;^UTILITY(U,$J,358.3,20675,1,4,0)
+672 ;;=4^F33.2
+673 ;;^UTILITY(U,$J,358.3,20675,2)
+674 ;;=^5003531
+675 ;;^UTILITY(U,$J,358.3,20676,0)
+676 ;;=F33.9^^68^850^9
