IBDEI06K ; ; 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,15912,2)
;;=^5015327
;;^UTILITY(U,$J,358.3,15913,0)
;;=M94.20^^56^650^19
;;^UTILITY(U,$J,358.3,15913,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15913,1,3,0)
;;=3^Chondromalacia,Unspec Site
;;^UTILITY(U,$J,358.3,15913,1,4,0)
;;=4^M94.20
;;^UTILITY(U,$J,358.3,15913,2)
;;=^5015329
;;^UTILITY(U,$J,358.3,15914,0)
;;=M94.261^^56^650^18
;;^UTILITY(U,$J,358.3,15914,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15914,1,3,0)
;;=3^Chondromalacia,Right Knee
;;^UTILITY(U,$J,358.3,15914,1,4,0)
;;=4^M94.261
;;^UTILITY(U,$J,358.3,15914,2)
;;=^5015345
;;^UTILITY(U,$J,358.3,15915,0)
;;=M94.262^^56^650^17
;;^UTILITY(U,$J,358.3,15915,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15915,1,3,0)
;;=3^Chondromalacia,Left Knee
;;^UTILITY(U,$J,358.3,15915,1,4,0)
;;=4^M94.262
;;^UTILITY(U,$J,358.3,15915,2)
;;=^5015346
;;^UTILITY(U,$J,358.3,15916,0)
;;=R25.2^^56^650^37
;;^UTILITY(U,$J,358.3,15916,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15916,1,3,0)
;;=3^Cramp and Spasm
;;^UTILITY(U,$J,358.3,15916,1,4,0)
;;=4^R25.2
;;^UTILITY(U,$J,358.3,15916,2)
;;=^5019301
;;^UTILITY(U,$J,358.3,15917,0)
;;=R70.0^^56^650^39
;;^UTILITY(U,$J,358.3,15917,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15917,1,3,0)
;;=3^Elevated Erythrocyte Sedimentation Rate
;;^UTILITY(U,$J,358.3,15917,1,4,0)
;;=4^R70.0
;;^UTILITY(U,$J,358.3,15917,2)
;;=^5019559
;;^UTILITY(U,$J,358.3,15918,0)
;;=M25.511^^56^650^119
;;^UTILITY(U,$J,358.3,15918,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15918,1,3,0)
;;=3^Pain in Right Shoulder
;;^UTILITY(U,$J,358.3,15918,1,4,0)
;;=4^M25.511
;;^UTILITY(U,$J,358.3,15918,2)
;;=^5011602
;;^UTILITY(U,$J,358.3,15919,0)
;;=M25.512^^56^650^109
;;^UTILITY(U,$J,358.3,15919,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15919,1,3,0)
;;=3^Pain in Left Shoulder
;;^UTILITY(U,$J,358.3,15919,1,4,0)
;;=4^M25.512
;;^UTILITY(U,$J,358.3,15919,2)
;;=^5011603
;;^UTILITY(U,$J,358.3,15920,0)
;;=M25.521^^56^650^113
;;^UTILITY(U,$J,358.3,15920,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15920,1,3,0)
;;=3^Pain in Right Elbow
;;^UTILITY(U,$J,358.3,15920,1,4,0)
;;=4^M25.521
;;^UTILITY(U,$J,358.3,15920,2)
;;=^5011605
;;^UTILITY(U,$J,358.3,15921,0)
;;=M25.522^^56^650^103
;;^UTILITY(U,$J,358.3,15921,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15921,1,3,0)
;;=3^Pain in Left Elbow
;;^UTILITY(U,$J,358.3,15921,1,4,0)
;;=4^M25.522
;;^UTILITY(U,$J,358.3,15921,2)
;;=^5011606
;;^UTILITY(U,$J,358.3,15922,0)
;;=M25.531^^56^650^120
;;^UTILITY(U,$J,358.3,15922,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15922,1,3,0)
;;=3^Pain in Right Wrist
;;^UTILITY(U,$J,358.3,15922,1,4,0)
;;=4^M25.531
;;^UTILITY(U,$J,358.3,15922,2)
;;=^5011608
;;^UTILITY(U,$J,358.3,15923,0)
;;=M25.532^^56^650^110
;;^UTILITY(U,$J,358.3,15923,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15923,1,3,0)
;;=3^Pain in Left Wrist
;;^UTILITY(U,$J,358.3,15923,1,4,0)
;;=4^M25.532
;;^UTILITY(U,$J,358.3,15923,2)
;;=^5011609
;;^UTILITY(U,$J,358.3,15924,0)
;;=M25.551^^56^650^116
;;^UTILITY(U,$J,358.3,15924,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15924,1,3,0)
;;=3^Pain in Right Hip
;;^UTILITY(U,$J,358.3,15924,1,4,0)
;;=4^M25.551
;;^UTILITY(U,$J,358.3,15924,2)
;;=^5011611
;;^UTILITY(U,$J,358.3,15925,0)
;;=M25.552^^56^650^106
;;^UTILITY(U,$J,358.3,15925,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15925,1,3,0)
;;=3^Pain in Left Hip
;;^UTILITY(U,$J,358.3,15925,1,4,0)
;;=4^M25.552
;;^UTILITY(U,$J,358.3,15925,2)
;;=^5011612
;;^UTILITY(U,$J,358.3,15926,0)
;;=M25.561^^56^650^117
;;^UTILITY(U,$J,358.3,15926,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15926,1,3,0)
;;=3^Pain in Right Knee
;;^UTILITY(U,$J,358.3,15926,1,4,0)
;;=4^M25.561
;;^UTILITY(U,$J,358.3,15926,2)
;;=^5011614
;;^UTILITY(U,$J,358.3,15927,0)
;;=M25.562^^56^650^107
;;^UTILITY(U,$J,358.3,15927,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15927,1,3,0)
;;=3^Pain in Left Knee
;;^UTILITY(U,$J,358.3,15927,1,4,0)
;;=4^M25.562
;;^UTILITY(U,$J,358.3,15927,2)
;;=^5011615
;;^UTILITY(U,$J,358.3,15928,0)
;;=M25.571^^56^650^111
;;^UTILITY(U,$J,358.3,15928,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15928,1,3,0)
;;=3^Pain in Right Ankle
;;^UTILITY(U,$J,358.3,15928,1,4,0)
;;=4^M25.571
;;^UTILITY(U,$J,358.3,15928,2)
;;=^5011617
;;^UTILITY(U,$J,358.3,15929,0)
;;=M25.572^^56^650^101
;;^UTILITY(U,$J,358.3,15929,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15929,1,3,0)
;;=3^Pain in Left Ankle
;;^UTILITY(U,$J,358.3,15929,1,4,0)
;;=4^M25.572
;;^UTILITY(U,$J,358.3,15929,2)
;;=^5011618
;;^UTILITY(U,$J,358.3,15930,0)
;;=M79.601^^56^650^112
;;^UTILITY(U,$J,358.3,15930,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15930,1,3,0)
;;=3^Pain in Right Arm
;;^UTILITY(U,$J,358.3,15930,1,4,0)
;;=4^M79.601
;;^UTILITY(U,$J,358.3,15930,2)
;;=^5013325
;;^UTILITY(U,$J,358.3,15931,0)
;;=M79.602^^56^650^102
;;^UTILITY(U,$J,358.3,15931,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15931,1,3,0)
;;=3^Pain in Left Arm
;;^UTILITY(U,$J,358.3,15931,1,4,0)
;;=4^M79.602
;;^UTILITY(U,$J,358.3,15931,2)
;;=^5013326
;;^UTILITY(U,$J,358.3,15932,0)
;;=M79.604^^56^650^118
;;^UTILITY(U,$J,358.3,15932,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15932,1,3,0)
;;=3^Pain in Right Leg
;;^UTILITY(U,$J,358.3,15932,1,4,0)
;;=4^M79.604
;;^UTILITY(U,$J,358.3,15932,2)
;;=^5013328
;;^UTILITY(U,$J,358.3,15933,0)
;;=M79.605^^56^650^108
;;^UTILITY(U,$J,358.3,15933,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15933,1,3,0)
;;=3^Pain in Left Leg
;;^UTILITY(U,$J,358.3,15933,1,4,0)
;;=4^M79.605
;;^UTILITY(U,$J,358.3,15933,2)
;;=^5013329
;;^UTILITY(U,$J,358.3,15934,0)
;;=M79.641^^56^650^115
;;^UTILITY(U,$J,358.3,15934,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15934,1,3,0)
;;=3^Pain in Right Hand
;;^UTILITY(U,$J,358.3,15934,1,4,0)
;;=4^M79.641
;;^UTILITY(U,$J,358.3,15934,2)
;;=^5013338
;;^UTILITY(U,$J,358.3,15935,0)
;;=M79.642^^56^650^105
;;^UTILITY(U,$J,358.3,15935,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15935,1,3,0)
;;=3^Pain in Left Hand
;;^UTILITY(U,$J,358.3,15935,1,4,0)
;;=4^M79.642
;;^UTILITY(U,$J,358.3,15935,2)
;;=^5013339
;;^UTILITY(U,$J,358.3,15936,0)
;;=M79.671^^56^650^114
;;^UTILITY(U,$J,358.3,15936,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15936,1,3,0)
;;=3^Pain in Right Foot
;;^UTILITY(U,$J,358.3,15936,1,4,0)
;;=4^M79.671
;;^UTILITY(U,$J,358.3,15936,2)
;;=^5013350
;;^UTILITY(U,$J,358.3,15937,0)
;;=M79.672^^56^650^104
;;^UTILITY(U,$J,358.3,15937,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15937,1,3,0)
;;=3^Pain in Left Foot
;;^UTILITY(U,$J,358.3,15937,1,4,0)
;;=4^M79.672
;;^UTILITY(U,$J,358.3,15937,2)
;;=^5013351
;;^UTILITY(U,$J,358.3,15938,0)
;;=M54.9^^56^650^8
;;^UTILITY(U,$J,358.3,15938,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15938,1,3,0)
;;=3^Backache/Dorsalgia
;;^UTILITY(U,$J,358.3,15938,1,4,0)
;;=4^M54.9
;;^UTILITY(U,$J,358.3,15938,2)
;;=^5012314
;;^UTILITY(U,$J,358.3,15939,0)
;;=M48.52XG^^56^650^20
;;^UTILITY(U,$J,358.3,15939,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15939,1,3,0)
;;=3^Collapsed Vertabra,Cervical Region,Subs Encntr,Del Healing
;;^UTILITY(U,$J,358.3,15939,1,4,0)
;;=4^M48.52XG
;;^UTILITY(U,$J,358.3,15939,2)
;;=^5012169
;;^UTILITY(U,$J,358.3,15940,0)
;;=M48.52XS^^56^650^21
;;^UTILITY(U,$J,358.3,15940,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15940,1,3,0)
;;=3^Collapsed Vertabra,Cervical Region,Subs Encntr,Sequela
;;^UTILITY(U,$J,358.3,15940,1,4,0)
;;=4^M48.52XS
;;^UTILITY(U,$J,358.3,15940,2)
;;=^5012170
;;^UTILITY(U,$J,358.3,15941,0)
;;=M48.57XG^^56^650^28
;;^UTILITY(U,$J,358.3,15941,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15941,1,3,0)
;;=3^Collapsed Vertebra,Lumbosacral Region,Subs Encntr,Del Healing
;;^UTILITY(U,$J,358.3,15941,1,4,0)
;;=4^M48.57XG
;;^UTILITY(U,$J,358.3,15941,2)
;;=^5012189
;;^UTILITY(U,$J,358.3,15942,0)
;;=M48.57XS^^56^650^29
;;^UTILITY(U,$J,358.3,15942,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15942,1,3,0)
;;=3^Collapsed Vertebra,Lumbosacral Region,Subs Encntr,Sequela
;;^UTILITY(U,$J,358.3,15942,1,4,0)
;;=4^M48.57XS
;;^UTILITY(U,$J,358.3,15942,2)
;;=^5012190
;;^UTILITY(U,$J,358.3,15943,0)
;;=M48.54XD^^56^650^30
;;^UTILITY(U,$J,358.3,15943,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15943,1,3,0)
;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Rt Healing
;;^UTILITY(U,$J,358.3,15943,1,4,0)
;;=4^M48.54XD
;;^UTILITY(U,$J,358.3,15943,2)
;;=^5012176
;;^UTILITY(U,$J,358.3,15944,0)
;;=M48.57XG^^56^650^31
;;^UTILITY(U,$J,358.3,15944,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15944,1,3,0)
;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Del Healing
;;^UTILITY(U,$J,358.3,15944,1,4,0)
;;=4^M48.57XG
;;^UTILITY(U,$J,358.3,15944,2)
;;=^5012189
;;^UTILITY(U,$J,358.3,15945,0)
;;=M48.54XS^^56^650^32
;;^UTILITY(U,$J,358.3,15945,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15945,1,3,0)
;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Sequela
;;^UTILITY(U,$J,358.3,15945,1,4,0)
;;=4^M48.54XS
;;^UTILITY(U,$J,358.3,15945,2)
;;=^5012178
;;^UTILITY(U,$J,358.3,15946,0)
;;=M62.830^^56^650^63
;;^UTILITY(U,$J,358.3,15946,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15946,1,3,0)
;;=3^Muscle Spasm of Back
;;^UTILITY(U,$J,358.3,15946,1,4,0)
;;=4^M62.830
;;^UTILITY(U,$J,358.3,15946,2)
;;=^5012680
;;^UTILITY(U,$J,358.3,15947,0)
;;=M19.92^^56^650^126
;;^UTILITY(U,$J,358.3,15947,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15947,1,3,0)
;;=3^Post-Traumatic Osteoarthritis,Unspec Site
;;^UTILITY(U,$J,358.3,15947,1,4,0)
;;=4^M19.92
;;^UTILITY(U,$J,358.3,15947,2)
;;=^5010855
;;^UTILITY(U,$J,358.3,15948,0)
;;=M85.872^^56^650^84
;;^UTILITY(U,$J,358.3,15948,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15948,1,3,0)
;;=3^Osteopenia,Left Ankle & Foot
;;^UTILITY(U,$J,358.3,15948,1,4,0)
;;=4^M85.872
;;^UTILITY(U,$J,358.3,15948,2)
;;=^5014493
;;^UTILITY(U,$J,358.3,15949,0)
;;=M85.832^^56^650^85
;;^UTILITY(U,$J,358.3,15949,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15949,1,3,0)
;;=3^Osteopenia,Left Forearm
;;^UTILITY(U,$J,358.3,15949,1,4,0)
;;=4^M85.832
;;^UTILITY(U,$J,358.3,15949,2)
;;=^5014481
;;^UTILITY(U,$J,358.3,15950,0)
;;=M85.842^^56^650^86
;;^UTILITY(U,$J,358.3,15950,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15950,1,3,0)
;;=3^Osteopenia,Left Hand
;;^UTILITY(U,$J,358.3,15950,1,4,0)
;;=4^M85.842
;;^UTILITY(U,$J,358.3,15950,2)
;;=^5014484
;;^UTILITY(U,$J,358.3,15951,0)
;;=M85.862^^56^650^87
;;^UTILITY(U,$J,358.3,15951,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15951,1,3,0)
;;=3^Osteopenia,Left Lower Leg
;;^UTILITY(U,$J,358.3,15951,1,4,0)
;;=4^M85.862
;;^UTILITY(U,$J,358.3,15951,2)
;;=^5014490
;;^UTILITY(U,$J,358.3,15952,0)
;;=M85.812^^56^650^88
;;^UTILITY(U,$J,358.3,15952,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15952,1,3,0)
;;=3^Osteopenia,Left Shoulder
;;^UTILITY(U,$J,358.3,15952,1,4,0)
;;=4^M85.812
;;^UTILITY(U,$J,358.3,15952,2)
;;=^5014475
;;^UTILITY(U,$J,358.3,15953,0)
;;=M85.852^^56^650^89
;;^UTILITY(U,$J,358.3,15953,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15953,1,3,0)
;;=3^Osteopenia,Left Thigh
;;^UTILITY(U,$J,358.3,15953,1,4,0)
;;=4^M85.852
;;^UTILITY(U,$J,358.3,15953,2)
;;=^5014487
;;^UTILITY(U,$J,358.3,15954,0)
;;=M85.822^^56^650^90
;;^UTILITY(U,$J,358.3,15954,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15954,1,3,0)
;;=3^Osteopenia,Left Upper Arm
;;^UTILITY(U,$J,358.3,15954,1,4,0)
;;=4^M85.822
;;^UTILITY(U,$J,358.3,15954,2)
;;=^5014478
;;^UTILITY(U,$J,358.3,15955,0)
;;=M85.89^^56^650^91
;;^UTILITY(U,$J,358.3,15955,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15955,1,3,0)
;;=3^Osteopenia,Multiple Sites
;;^UTILITY(U,$J,358.3,15955,1,4,0)
;;=4^M85.89
;;^UTILITY(U,$J,358.3,15955,2)
;;=^5014495
;;^UTILITY(U,$J,358.3,15956,0)
;;=M85.88^^56^650^92
;;^UTILITY(U,$J,358.3,15956,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15956,1,3,0)
;;=3^Osteopenia,Other Site
;;^UTILITY(U,$J,358.3,15956,1,4,0)
;;=4^M85.88
;;^UTILITY(U,$J,358.3,15956,2)
;;=^5134059
;;^UTILITY(U,$J,358.3,15957,0)
;;=M85.871^^56^650^93
;;^UTILITY(U,$J,358.3,15957,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15957,1,3,0)
;;=3^Osteopenia,Right Foot & Ankle
;;^UTILITY(U,$J,358.3,15957,1,4,0)
;;=4^M85.871
;;^UTILITY(U,$J,358.3,15957,2)
;;=^5014492
;;^UTILITY(U,$J,358.3,15958,0)
;;=M85.831^^56^650^94
;;^UTILITY(U,$J,358.3,15958,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15958,1,3,0)
;;=3^Osteopenia,Right Forearm
;;^UTILITY(U,$J,358.3,15958,1,4,0)
;;=4^M85.831
;;^UTILITY(U,$J,358.3,15958,2)
;;=^5014480
;;^UTILITY(U,$J,358.3,15959,0)
;;=M85.841^^56^650^95
;;^UTILITY(U,$J,358.3,15959,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15959,1,3,0)
;;=3^Osteopenia,Right Hand
;;^UTILITY(U,$J,358.3,15959,1,4,0)
;;=4^M85.841
;;^UTILITY(U,$J,358.3,15959,2)
;;=^5014483
;;^UTILITY(U,$J,358.3,15960,0)
;;=M85.861^^56^650^96
;;^UTILITY(U,$J,358.3,15960,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15960,1,3,0)
;;=3^Osteopenia,Right Lower Leg
;;^UTILITY(U,$J,358.3,15960,1,4,0)
;;=4^M85.861
;;^UTILITY(U,$J,358.3,15960,2)
;;=^5014489
;;^UTILITY(U,$J,358.3,15961,0)
;;=M85.811^^56^650^97
;;^UTILITY(U,$J,358.3,15961,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15961,1,3,0)
;;=3^Osteopenia,Right Shoulder
;;^UTILITY(U,$J,358.3,15961,1,4,0)
;;=4^M85.811
;;^UTILITY(U,$J,358.3,15961,2)
;;=^5014474
;;^UTILITY(U,$J,358.3,15962,0)
;;=M85.851^^56^650^98
;;^UTILITY(U,$J,358.3,15962,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15962,1,3,0)
;;=3^Osteopenia,Right Thigh
;;^UTILITY(U,$J,358.3,15962,1,4,0)
;;=4^M85.851
;;^UTILITY(U,$J,358.3,15962,2)
;;=^5014486
;;^UTILITY(U,$J,358.3,15963,0)
;;=M85.821^^56^650^99
;;^UTILITY(U,$J,358.3,15963,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15963,1,3,0)
;;=3^Osteopenia,Right Upper Arm
;;^UTILITY(U,$J,358.3,15963,1,4,0)
;;=4^M85.821
;;^UTILITY(U,$J,358.3,15963,2)
;;=^5014477
;;^UTILITY(U,$J,358.3,15964,0)
;;=M85.80^^56^650^100
;;^UTILITY(U,$J,358.3,15964,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15964,1,3,0)
;;=3^Osteopenia,Unspec Site
;;^UTILITY(U,$J,358.3,15964,1,4,0)
;;=4^M85.80
;;^UTILITY(U,$J,358.3,15964,2)
;;=^5014473
;;^UTILITY(U,$J,358.3,15965,0)
;;=G56.03^^56^650^11
;;^UTILITY(U,$J,358.3,15965,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15965,1,3,0)
;;=3^Carpal Tunnel Syndrome,Bilat Upper Limbs
;;^UTILITY(U,$J,358.3,15965,1,4,0)
;;=4^G56.03
;;^UTILITY(U,$J,358.3,15965,2)
;;=^5138452
;;^UTILITY(U,$J,358.3,15966,0)
;;=M26.609^^56^650^188
;;^UTILITY(U,$J,358.3,15966,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15966,1,3,0)
;;=3^Temporomandibular Joint Disorder,Unspec
;;^UTILITY(U,$J,358.3,15966,1,4,0)
;;=4^M26.609
;;^UTILITY(U,$J,358.3,15966,2)
;;=^5138795
;;^UTILITY(U,$J,358.3,15967,0)
;;=M51.86^^56^650^56
;;^UTILITY(U,$J,358.3,15967,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15967,1,3,0)
;;=3^Intvrt Disc Disorder,Lumbar Region,Other
;;^UTILITY(U,$J,358.3,15967,1,4,0)
;;=4^M51.86
;;^UTILITY(U,$J,358.3,15967,2)
;;=^5012261
;;^UTILITY(U,$J,358.3,15968,0)
;;=M54.6^^56^650^121
;;^UTILITY(U,$J,358.3,15968,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15968,1,3,0)
;;=3^Pain in Thoracic Spine
;;^UTILITY(U,$J,358.3,15968,1,4,0)
;;=4^M54.6
;;^UTILITY(U,$J,358.3,15968,2)
;;=^272507
;;^UTILITY(U,$J,358.3,15969,0)
;;=M72.2^^56^650^125
;;^UTILITY(U,$J,358.3,15969,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15969,1,3,0)
;;=3^Plantar Fascial Fibromatosis
;;^UTILITY(U,$J,358.3,15969,1,4,0)
;;=4^M72.2
;;^UTILITY(U,$J,358.3,15969,2)
;;=^272598
;;^UTILITY(U,$J,358.3,15970,0)
;;=M20.42^^56^650^42
;;^UTILITY(U,$J,358.3,15970,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15970,1,3,0)
;;=3^Hammer Toe(s),Acquired,Left Foot
;;^UTILITY(U,$J,358.3,15970,1,4,0)
;;=4^M20.42
;;^UTILITY(U,$J,358.3,15970,2)
;;=^5011052
;;^UTILITY(U,$J,358.3,15971,0)
;;=M20.41^^56^650^43
;;^UTILITY(U,$J,358.3,15971,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15971,1,3,0)
;;=3^Hammer Toe(s),Acquired,Right Foot
;;^UTILITY(U,$J,358.3,15971,1,4,0)
;;=4^M20.41
;;^UTILITY(U,$J,358.3,15971,2)
;;=^5011051
;;^UTILITY(U,$J,358.3,15972,0)
;;=M48.061^^56^650^176
;;^UTILITY(U,$J,358.3,15972,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15972,1,3,0)
;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Caludication
;;^UTILITY(U,$J,358.3,15972,1,4,0)
;;=4^M48.061
;;^UTILITY(U,$J,358.3,15972,2)
;;=^5151513
;;^UTILITY(U,$J,358.3,15973,0)
;;=M48.062^^56^650^175
;;^UTILITY(U,$J,358.3,15973,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15973,1,3,0)
;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
;;^UTILITY(U,$J,358.3,15973,1,4,0)
;;=4^M48.062
;;^UTILITY(U,$J,358.3,15973,2)
;;=^5151514
;;^UTILITY(U,$J,358.3,15974,0)
;;=M79.10^^56^650^65
;;^UTILITY(U,$J,358.3,15974,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15974,1,3,0)
;;=3^Myalgia,Unspec Site
;;^UTILITY(U,$J,358.3,15974,1,4,0)
;;=4^M79.10
;;^UTILITY(U,$J,358.3,15974,2)
;;=^5157394
;;^UTILITY(U,$J,358.3,15975,0)
;;=M54.50^^56^650^61
;;^UTILITY(U,$J,358.3,15975,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15975,1,3,0)
;;=3^Low Back Pain,Unspec
;;^UTILITY(U,$J,358.3,15975,1,4,0)
;;=4^M54.50
;;^UTILITY(U,$J,358.3,15975,2)
;;=^5161215
;;^UTILITY(U,$J,358.3,15976,0)
;;=B02.0^^56^651^47
;;^UTILITY(U,$J,358.3,15976,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15976,1,3,0)
;;=3^Zoster Encephalitis
;;^UTILITY(U,$J,358.3,15976,1,4,0)
;;=4^B02.0
;;^UTILITY(U,$J,358.3,15976,2)
;;=^5000488
;;^UTILITY(U,$J,358.3,15977,0)
;;=B02.29^^56^651^37
;;^UTILITY(U,$J,358.3,15977,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15977,1,3,0)
;;=3^Postherpetic Nervous System Involvement,Other
;;^UTILITY(U,$J,358.3,15977,1,4,0)
;;=4^B02.29
;;^UTILITY(U,$J,358.3,15977,2)
;;=^5000492
;;^UTILITY(U,$J,358.3,15978,0)
;;=F03.90^^56^651^11
;;^UTILITY(U,$J,358.3,15978,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15978,1,3,0)
;;=3^Dementia w/o Behavioral Disturbance,Unspec
;;^UTILITY(U,$J,358.3,15978,1,4,0)
;;=4^F03.90
;;^UTILITY(U,$J,358.3,15978,2)
;;=^5003050
;;^UTILITY(U,$J,358.3,15979,0)
;;=F03.91^^56^651^10
;;^UTILITY(U,$J,358.3,15979,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15979,1,3,0)
;;=3^Dementia w/ Behavioral Disturbance,Unspec
;;^UTILITY(U,$J,358.3,15979,1,4,0)
;;=4^F03.91
;;^UTILITY(U,$J,358.3,15979,2)
;;=^5133350
;;^UTILITY(U,$J,358.3,15980,0)
;;=F01.50^^56^651^13
;;^UTILITY(U,$J,358.3,15980,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15980,1,3,0)
;;=3^Dementia,Vascular w/o Behavioral Disturbance
;;^UTILITY(U,$J,358.3,15980,1,4,0)
;;=4^F01.50
;;^UTILITY(U,$J,358.3,15980,2)
;;=^5003046
;;^UTILITY(U,$J,358.3,15981,0)
;;=F10.27^^56^651^12
;;^UTILITY(U,$J,358.3,15981,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15981,1,3,0)
;;=3^Dementia,Alcohol-Induced/Persist w/ Alcohol Dependence
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI06K 19785 printed Sep 23, 2025@19:18:37 Page 2
IBDEI06K ; ; 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,15912,2)
+2 ;;=^5015327
+3 ;;^UTILITY(U,$J,358.3,15913,0)
+4 ;;=M94.20^^56^650^19
+5 ;;^UTILITY(U,$J,358.3,15913,1,0)
+6 ;;=^358.31IA^4^2
+7 ;;^UTILITY(U,$J,358.3,15913,1,3,0)
+8 ;;=3^Chondromalacia,Unspec Site
+9 ;;^UTILITY(U,$J,358.3,15913,1,4,0)
+10 ;;=4^M94.20
+11 ;;^UTILITY(U,$J,358.3,15913,2)
+12 ;;=^5015329
+13 ;;^UTILITY(U,$J,358.3,15914,0)
+14 ;;=M94.261^^56^650^18
+15 ;;^UTILITY(U,$J,358.3,15914,1,0)
+16 ;;=^358.31IA^4^2
+17 ;;^UTILITY(U,$J,358.3,15914,1,3,0)
+18 ;;=3^Chondromalacia,Right Knee
+19 ;;^UTILITY(U,$J,358.3,15914,1,4,0)
+20 ;;=4^M94.261
+21 ;;^UTILITY(U,$J,358.3,15914,2)
+22 ;;=^5015345
+23 ;;^UTILITY(U,$J,358.3,15915,0)
+24 ;;=M94.262^^56^650^17
+25 ;;^UTILITY(U,$J,358.3,15915,1,0)
+26 ;;=^358.31IA^4^2
+27 ;;^UTILITY(U,$J,358.3,15915,1,3,0)
+28 ;;=3^Chondromalacia,Left Knee
+29 ;;^UTILITY(U,$J,358.3,15915,1,4,0)
+30 ;;=4^M94.262
+31 ;;^UTILITY(U,$J,358.3,15915,2)
+32 ;;=^5015346
+33 ;;^UTILITY(U,$J,358.3,15916,0)
+34 ;;=R25.2^^56^650^37
+35 ;;^UTILITY(U,$J,358.3,15916,1,0)
+36 ;;=^358.31IA^4^2
+37 ;;^UTILITY(U,$J,358.3,15916,1,3,0)
+38 ;;=3^Cramp and Spasm
+39 ;;^UTILITY(U,$J,358.3,15916,1,4,0)
+40 ;;=4^R25.2
+41 ;;^UTILITY(U,$J,358.3,15916,2)
+42 ;;=^5019301
+43 ;;^UTILITY(U,$J,358.3,15917,0)
+44 ;;=R70.0^^56^650^39
+45 ;;^UTILITY(U,$J,358.3,15917,1,0)
+46 ;;=^358.31IA^4^2
+47 ;;^UTILITY(U,$J,358.3,15917,1,3,0)
+48 ;;=3^Elevated Erythrocyte Sedimentation Rate
+49 ;;^UTILITY(U,$J,358.3,15917,1,4,0)
+50 ;;=4^R70.0
+51 ;;^UTILITY(U,$J,358.3,15917,2)
+52 ;;=^5019559
+53 ;;^UTILITY(U,$J,358.3,15918,0)
+54 ;;=M25.511^^56^650^119
+55 ;;^UTILITY(U,$J,358.3,15918,1,0)
+56 ;;=^358.31IA^4^2
+57 ;;^UTILITY(U,$J,358.3,15918,1,3,0)
+58 ;;=3^Pain in Right Shoulder
+59 ;;^UTILITY(U,$J,358.3,15918,1,4,0)
+60 ;;=4^M25.511
+61 ;;^UTILITY(U,$J,358.3,15918,2)
+62 ;;=^5011602
+63 ;;^UTILITY(U,$J,358.3,15919,0)
+64 ;;=M25.512^^56^650^109
+65 ;;^UTILITY(U,$J,358.3,15919,1,0)
+66 ;;=^358.31IA^4^2
+67 ;;^UTILITY(U,$J,358.3,15919,1,3,0)
+68 ;;=3^Pain in Left Shoulder
+69 ;;^UTILITY(U,$J,358.3,15919,1,4,0)
+70 ;;=4^M25.512
+71 ;;^UTILITY(U,$J,358.3,15919,2)
+72 ;;=^5011603
+73 ;;^UTILITY(U,$J,358.3,15920,0)
+74 ;;=M25.521^^56^650^113
+75 ;;^UTILITY(U,$J,358.3,15920,1,0)
+76 ;;=^358.31IA^4^2
+77 ;;^UTILITY(U,$J,358.3,15920,1,3,0)
+78 ;;=3^Pain in Right Elbow
+79 ;;^UTILITY(U,$J,358.3,15920,1,4,0)
+80 ;;=4^M25.521
+81 ;;^UTILITY(U,$J,358.3,15920,2)
+82 ;;=^5011605
+83 ;;^UTILITY(U,$J,358.3,15921,0)
+84 ;;=M25.522^^56^650^103
+85 ;;^UTILITY(U,$J,358.3,15921,1,0)
+86 ;;=^358.31IA^4^2
+87 ;;^UTILITY(U,$J,358.3,15921,1,3,0)
+88 ;;=3^Pain in Left Elbow
+89 ;;^UTILITY(U,$J,358.3,15921,1,4,0)
+90 ;;=4^M25.522
+91 ;;^UTILITY(U,$J,358.3,15921,2)
+92 ;;=^5011606
+93 ;;^UTILITY(U,$J,358.3,15922,0)
+94 ;;=M25.531^^56^650^120
+95 ;;^UTILITY(U,$J,358.3,15922,1,0)
+96 ;;=^358.31IA^4^2
+97 ;;^UTILITY(U,$J,358.3,15922,1,3,0)
+98 ;;=3^Pain in Right Wrist
+99 ;;^UTILITY(U,$J,358.3,15922,1,4,0)
+100 ;;=4^M25.531
+101 ;;^UTILITY(U,$J,358.3,15922,2)
+102 ;;=^5011608
+103 ;;^UTILITY(U,$J,358.3,15923,0)
+104 ;;=M25.532^^56^650^110
+105 ;;^UTILITY(U,$J,358.3,15923,1,0)
+106 ;;=^358.31IA^4^2
+107 ;;^UTILITY(U,$J,358.3,15923,1,3,0)
+108 ;;=3^Pain in Left Wrist
+109 ;;^UTILITY(U,$J,358.3,15923,1,4,0)
+110 ;;=4^M25.532
+111 ;;^UTILITY(U,$J,358.3,15923,2)
+112 ;;=^5011609
+113 ;;^UTILITY(U,$J,358.3,15924,0)
+114 ;;=M25.551^^56^650^116
+115 ;;^UTILITY(U,$J,358.3,15924,1,0)
+116 ;;=^358.31IA^4^2
+117 ;;^UTILITY(U,$J,358.3,15924,1,3,0)
+118 ;;=3^Pain in Right Hip
+119 ;;^UTILITY(U,$J,358.3,15924,1,4,0)
+120 ;;=4^M25.551
+121 ;;^UTILITY(U,$J,358.3,15924,2)
+122 ;;=^5011611
+123 ;;^UTILITY(U,$J,358.3,15925,0)
+124 ;;=M25.552^^56^650^106
+125 ;;^UTILITY(U,$J,358.3,15925,1,0)
+126 ;;=^358.31IA^4^2
+127 ;;^UTILITY(U,$J,358.3,15925,1,3,0)
+128 ;;=3^Pain in Left Hip
+129 ;;^UTILITY(U,$J,358.3,15925,1,4,0)
+130 ;;=4^M25.552
+131 ;;^UTILITY(U,$J,358.3,15925,2)
+132 ;;=^5011612
+133 ;;^UTILITY(U,$J,358.3,15926,0)
+134 ;;=M25.561^^56^650^117
+135 ;;^UTILITY(U,$J,358.3,15926,1,0)
+136 ;;=^358.31IA^4^2
+137 ;;^UTILITY(U,$J,358.3,15926,1,3,0)
+138 ;;=3^Pain in Right Knee
+139 ;;^UTILITY(U,$J,358.3,15926,1,4,0)
+140 ;;=4^M25.561
+141 ;;^UTILITY(U,$J,358.3,15926,2)
+142 ;;=^5011614
+143 ;;^UTILITY(U,$J,358.3,15927,0)
+144 ;;=M25.562^^56^650^107
+145 ;;^UTILITY(U,$J,358.3,15927,1,0)
+146 ;;=^358.31IA^4^2
+147 ;;^UTILITY(U,$J,358.3,15927,1,3,0)
+148 ;;=3^Pain in Left Knee
+149 ;;^UTILITY(U,$J,358.3,15927,1,4,0)
+150 ;;=4^M25.562
+151 ;;^UTILITY(U,$J,358.3,15927,2)
+152 ;;=^5011615
+153 ;;^UTILITY(U,$J,358.3,15928,0)
+154 ;;=M25.571^^56^650^111
+155 ;;^UTILITY(U,$J,358.3,15928,1,0)
+156 ;;=^358.31IA^4^2
+157 ;;^UTILITY(U,$J,358.3,15928,1,3,0)
+158 ;;=3^Pain in Right Ankle
+159 ;;^UTILITY(U,$J,358.3,15928,1,4,0)
+160 ;;=4^M25.571
+161 ;;^UTILITY(U,$J,358.3,15928,2)
+162 ;;=^5011617
+163 ;;^UTILITY(U,$J,358.3,15929,0)
+164 ;;=M25.572^^56^650^101
+165 ;;^UTILITY(U,$J,358.3,15929,1,0)
+166 ;;=^358.31IA^4^2
+167 ;;^UTILITY(U,$J,358.3,15929,1,3,0)
+168 ;;=3^Pain in Left Ankle
+169 ;;^UTILITY(U,$J,358.3,15929,1,4,0)
+170 ;;=4^M25.572
+171 ;;^UTILITY(U,$J,358.3,15929,2)
+172 ;;=^5011618
+173 ;;^UTILITY(U,$J,358.3,15930,0)
+174 ;;=M79.601^^56^650^112
+175 ;;^UTILITY(U,$J,358.3,15930,1,0)
+176 ;;=^358.31IA^4^2
+177 ;;^UTILITY(U,$J,358.3,15930,1,3,0)
+178 ;;=3^Pain in Right Arm
+179 ;;^UTILITY(U,$J,358.3,15930,1,4,0)
+180 ;;=4^M79.601
+181 ;;^UTILITY(U,$J,358.3,15930,2)
+182 ;;=^5013325
+183 ;;^UTILITY(U,$J,358.3,15931,0)
+184 ;;=M79.602^^56^650^102
+185 ;;^UTILITY(U,$J,358.3,15931,1,0)
+186 ;;=^358.31IA^4^2
+187 ;;^UTILITY(U,$J,358.3,15931,1,3,0)
+188 ;;=3^Pain in Left Arm
+189 ;;^UTILITY(U,$J,358.3,15931,1,4,0)
+190 ;;=4^M79.602
+191 ;;^UTILITY(U,$J,358.3,15931,2)
+192 ;;=^5013326
+193 ;;^UTILITY(U,$J,358.3,15932,0)
+194 ;;=M79.604^^56^650^118
+195 ;;^UTILITY(U,$J,358.3,15932,1,0)
+196 ;;=^358.31IA^4^2
+197 ;;^UTILITY(U,$J,358.3,15932,1,3,0)
+198 ;;=3^Pain in Right Leg
+199 ;;^UTILITY(U,$J,358.3,15932,1,4,0)
+200 ;;=4^M79.604
+201 ;;^UTILITY(U,$J,358.3,15932,2)
+202 ;;=^5013328
+203 ;;^UTILITY(U,$J,358.3,15933,0)
+204 ;;=M79.605^^56^650^108
+205 ;;^UTILITY(U,$J,358.3,15933,1,0)
+206 ;;=^358.31IA^4^2
+207 ;;^UTILITY(U,$J,358.3,15933,1,3,0)
+208 ;;=3^Pain in Left Leg
+209 ;;^UTILITY(U,$J,358.3,15933,1,4,0)
+210 ;;=4^M79.605
+211 ;;^UTILITY(U,$J,358.3,15933,2)
+212 ;;=^5013329
+213 ;;^UTILITY(U,$J,358.3,15934,0)
+214 ;;=M79.641^^56^650^115
+215 ;;^UTILITY(U,$J,358.3,15934,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,15934,1,3,0)
+218 ;;=3^Pain in Right Hand
+219 ;;^UTILITY(U,$J,358.3,15934,1,4,0)
+220 ;;=4^M79.641
+221 ;;^UTILITY(U,$J,358.3,15934,2)
+222 ;;=^5013338
+223 ;;^UTILITY(U,$J,358.3,15935,0)
+224 ;;=M79.642^^56^650^105
+225 ;;^UTILITY(U,$J,358.3,15935,1,0)
+226 ;;=^358.31IA^4^2
+227 ;;^UTILITY(U,$J,358.3,15935,1,3,0)
+228 ;;=3^Pain in Left Hand
+229 ;;^UTILITY(U,$J,358.3,15935,1,4,0)
+230 ;;=4^M79.642
+231 ;;^UTILITY(U,$J,358.3,15935,2)
+232 ;;=^5013339
+233 ;;^UTILITY(U,$J,358.3,15936,0)
+234 ;;=M79.671^^56^650^114
+235 ;;^UTILITY(U,$J,358.3,15936,1,0)
+236 ;;=^358.31IA^4^2
+237 ;;^UTILITY(U,$J,358.3,15936,1,3,0)
+238 ;;=3^Pain in Right Foot
+239 ;;^UTILITY(U,$J,358.3,15936,1,4,0)
+240 ;;=4^M79.671
+241 ;;^UTILITY(U,$J,358.3,15936,2)
+242 ;;=^5013350
+243 ;;^UTILITY(U,$J,358.3,15937,0)
+244 ;;=M79.672^^56^650^104
+245 ;;^UTILITY(U,$J,358.3,15937,1,0)
+246 ;;=^358.31IA^4^2
+247 ;;^UTILITY(U,$J,358.3,15937,1,3,0)
+248 ;;=3^Pain in Left Foot
+249 ;;^UTILITY(U,$J,358.3,15937,1,4,0)
+250 ;;=4^M79.672
+251 ;;^UTILITY(U,$J,358.3,15937,2)
+252 ;;=^5013351
+253 ;;^UTILITY(U,$J,358.3,15938,0)
+254 ;;=M54.9^^56^650^8
+255 ;;^UTILITY(U,$J,358.3,15938,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,15938,1,3,0)
+258 ;;=3^Backache/Dorsalgia
+259 ;;^UTILITY(U,$J,358.3,15938,1,4,0)
+260 ;;=4^M54.9
+261 ;;^UTILITY(U,$J,358.3,15938,2)
+262 ;;=^5012314
+263 ;;^UTILITY(U,$J,358.3,15939,0)
+264 ;;=M48.52XG^^56^650^20
+265 ;;^UTILITY(U,$J,358.3,15939,1,0)
+266 ;;=^358.31IA^4^2
+267 ;;^UTILITY(U,$J,358.3,15939,1,3,0)
+268 ;;=3^Collapsed Vertabra,Cervical Region,Subs Encntr,Del Healing
+269 ;;^UTILITY(U,$J,358.3,15939,1,4,0)
+270 ;;=4^M48.52XG
+271 ;;^UTILITY(U,$J,358.3,15939,2)
+272 ;;=^5012169
+273 ;;^UTILITY(U,$J,358.3,15940,0)
+274 ;;=M48.52XS^^56^650^21
+275 ;;^UTILITY(U,$J,358.3,15940,1,0)
+276 ;;=^358.31IA^4^2
+277 ;;^UTILITY(U,$J,358.3,15940,1,3,0)
+278 ;;=3^Collapsed Vertabra,Cervical Region,Subs Encntr,Sequela
+279 ;;^UTILITY(U,$J,358.3,15940,1,4,0)
+280 ;;=4^M48.52XS
+281 ;;^UTILITY(U,$J,358.3,15940,2)
+282 ;;=^5012170
+283 ;;^UTILITY(U,$J,358.3,15941,0)
+284 ;;=M48.57XG^^56^650^28
+285 ;;^UTILITY(U,$J,358.3,15941,1,0)
+286 ;;=^358.31IA^4^2
+287 ;;^UTILITY(U,$J,358.3,15941,1,3,0)
+288 ;;=3^Collapsed Vertebra,Lumbosacral Region,Subs Encntr,Del Healing
+289 ;;^UTILITY(U,$J,358.3,15941,1,4,0)
+290 ;;=4^M48.57XG
+291 ;;^UTILITY(U,$J,358.3,15941,2)
+292 ;;=^5012189
+293 ;;^UTILITY(U,$J,358.3,15942,0)
+294 ;;=M48.57XS^^56^650^29
+295 ;;^UTILITY(U,$J,358.3,15942,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,15942,1,3,0)
+298 ;;=3^Collapsed Vertebra,Lumbosacral Region,Subs Encntr,Sequela
+299 ;;^UTILITY(U,$J,358.3,15942,1,4,0)
+300 ;;=4^M48.57XS
+301 ;;^UTILITY(U,$J,358.3,15942,2)
+302 ;;=^5012190
+303 ;;^UTILITY(U,$J,358.3,15943,0)
+304 ;;=M48.54XD^^56^650^30
+305 ;;^UTILITY(U,$J,358.3,15943,1,0)
+306 ;;=^358.31IA^4^2
+307 ;;^UTILITY(U,$J,358.3,15943,1,3,0)
+308 ;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Rt Healing
+309 ;;^UTILITY(U,$J,358.3,15943,1,4,0)
+310 ;;=4^M48.54XD
+311 ;;^UTILITY(U,$J,358.3,15943,2)
+312 ;;=^5012176
+313 ;;^UTILITY(U,$J,358.3,15944,0)
+314 ;;=M48.57XG^^56^650^31
+315 ;;^UTILITY(U,$J,358.3,15944,1,0)
+316 ;;=^358.31IA^4^2
+317 ;;^UTILITY(U,$J,358.3,15944,1,3,0)
+318 ;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Del Healing
+319 ;;^UTILITY(U,$J,358.3,15944,1,4,0)
+320 ;;=4^M48.57XG
+321 ;;^UTILITY(U,$J,358.3,15944,2)
+322 ;;=^5012189
+323 ;;^UTILITY(U,$J,358.3,15945,0)
+324 ;;=M48.54XS^^56^650^32
+325 ;;^UTILITY(U,$J,358.3,15945,1,0)
+326 ;;=^358.31IA^4^2
+327 ;;^UTILITY(U,$J,358.3,15945,1,3,0)
+328 ;;=3^Collapsed Vertebra,Thoracic Region,Subs Encntr,Sequela
+329 ;;^UTILITY(U,$J,358.3,15945,1,4,0)
+330 ;;=4^M48.54XS
+331 ;;^UTILITY(U,$J,358.3,15945,2)
+332 ;;=^5012178
+333 ;;^UTILITY(U,$J,358.3,15946,0)
+334 ;;=M62.830^^56^650^63
+335 ;;^UTILITY(U,$J,358.3,15946,1,0)
+336 ;;=^358.31IA^4^2
+337 ;;^UTILITY(U,$J,358.3,15946,1,3,0)
+338 ;;=3^Muscle Spasm of Back
+339 ;;^UTILITY(U,$J,358.3,15946,1,4,0)
+340 ;;=4^M62.830
+341 ;;^UTILITY(U,$J,358.3,15946,2)
+342 ;;=^5012680
+343 ;;^UTILITY(U,$J,358.3,15947,0)
+344 ;;=M19.92^^56^650^126
+345 ;;^UTILITY(U,$J,358.3,15947,1,0)
+346 ;;=^358.31IA^4^2
+347 ;;^UTILITY(U,$J,358.3,15947,1,3,0)
+348 ;;=3^Post-Traumatic Osteoarthritis,Unspec Site
+349 ;;^UTILITY(U,$J,358.3,15947,1,4,0)
+350 ;;=4^M19.92
+351 ;;^UTILITY(U,$J,358.3,15947,2)
+352 ;;=^5010855
+353 ;;^UTILITY(U,$J,358.3,15948,0)
+354 ;;=M85.872^^56^650^84
+355 ;;^UTILITY(U,$J,358.3,15948,1,0)
+356 ;;=^358.31IA^4^2
+357 ;;^UTILITY(U,$J,358.3,15948,1,3,0)
+358 ;;=3^Osteopenia,Left Ankle & Foot
+359 ;;^UTILITY(U,$J,358.3,15948,1,4,0)
+360 ;;=4^M85.872
+361 ;;^UTILITY(U,$J,358.3,15948,2)
+362 ;;=^5014493
+363 ;;^UTILITY(U,$J,358.3,15949,0)
+364 ;;=M85.832^^56^650^85
+365 ;;^UTILITY(U,$J,358.3,15949,1,0)
+366 ;;=^358.31IA^4^2
+367 ;;^UTILITY(U,$J,358.3,15949,1,3,0)
+368 ;;=3^Osteopenia,Left Forearm
+369 ;;^UTILITY(U,$J,358.3,15949,1,4,0)
+370 ;;=4^M85.832
+371 ;;^UTILITY(U,$J,358.3,15949,2)
+372 ;;=^5014481
+373 ;;^UTILITY(U,$J,358.3,15950,0)
+374 ;;=M85.842^^56^650^86
+375 ;;^UTILITY(U,$J,358.3,15950,1,0)
+376 ;;=^358.31IA^4^2
+377 ;;^UTILITY(U,$J,358.3,15950,1,3,0)
+378 ;;=3^Osteopenia,Left Hand
+379 ;;^UTILITY(U,$J,358.3,15950,1,4,0)
+380 ;;=4^M85.842
+381 ;;^UTILITY(U,$J,358.3,15950,2)
+382 ;;=^5014484
+383 ;;^UTILITY(U,$J,358.3,15951,0)
+384 ;;=M85.862^^56^650^87
+385 ;;^UTILITY(U,$J,358.3,15951,1,0)
+386 ;;=^358.31IA^4^2
+387 ;;^UTILITY(U,$J,358.3,15951,1,3,0)
+388 ;;=3^Osteopenia,Left Lower Leg
+389 ;;^UTILITY(U,$J,358.3,15951,1,4,0)
+390 ;;=4^M85.862
+391 ;;^UTILITY(U,$J,358.3,15951,2)
+392 ;;=^5014490
+393 ;;^UTILITY(U,$J,358.3,15952,0)
+394 ;;=M85.812^^56^650^88
+395 ;;^UTILITY(U,$J,358.3,15952,1,0)
+396 ;;=^358.31IA^4^2
+397 ;;^UTILITY(U,$J,358.3,15952,1,3,0)
+398 ;;=3^Osteopenia,Left Shoulder
+399 ;;^UTILITY(U,$J,358.3,15952,1,4,0)
+400 ;;=4^M85.812
+401 ;;^UTILITY(U,$J,358.3,15952,2)
+402 ;;=^5014475
+403 ;;^UTILITY(U,$J,358.3,15953,0)
+404 ;;=M85.852^^56^650^89
+405 ;;^UTILITY(U,$J,358.3,15953,1,0)
+406 ;;=^358.31IA^4^2
+407 ;;^UTILITY(U,$J,358.3,15953,1,3,0)
+408 ;;=3^Osteopenia,Left Thigh
+409 ;;^UTILITY(U,$J,358.3,15953,1,4,0)
+410 ;;=4^M85.852
+411 ;;^UTILITY(U,$J,358.3,15953,2)
+412 ;;=^5014487
+413 ;;^UTILITY(U,$J,358.3,15954,0)
+414 ;;=M85.822^^56^650^90
+415 ;;^UTILITY(U,$J,358.3,15954,1,0)
+416 ;;=^358.31IA^4^2
+417 ;;^UTILITY(U,$J,358.3,15954,1,3,0)
+418 ;;=3^Osteopenia,Left Upper Arm
+419 ;;^UTILITY(U,$J,358.3,15954,1,4,0)
+420 ;;=4^M85.822
+421 ;;^UTILITY(U,$J,358.3,15954,2)
+422 ;;=^5014478
+423 ;;^UTILITY(U,$J,358.3,15955,0)
+424 ;;=M85.89^^56^650^91
+425 ;;^UTILITY(U,$J,358.3,15955,1,0)
+426 ;;=^358.31IA^4^2
+427 ;;^UTILITY(U,$J,358.3,15955,1,3,0)
+428 ;;=3^Osteopenia,Multiple Sites
+429 ;;^UTILITY(U,$J,358.3,15955,1,4,0)
+430 ;;=4^M85.89
+431 ;;^UTILITY(U,$J,358.3,15955,2)
+432 ;;=^5014495
+433 ;;^UTILITY(U,$J,358.3,15956,0)
+434 ;;=M85.88^^56^650^92
+435 ;;^UTILITY(U,$J,358.3,15956,1,0)
+436 ;;=^358.31IA^4^2
+437 ;;^UTILITY(U,$J,358.3,15956,1,3,0)
+438 ;;=3^Osteopenia,Other Site
+439 ;;^UTILITY(U,$J,358.3,15956,1,4,0)
+440 ;;=4^M85.88
+441 ;;^UTILITY(U,$J,358.3,15956,2)
+442 ;;=^5134059
+443 ;;^UTILITY(U,$J,358.3,15957,0)
+444 ;;=M85.871^^56^650^93
+445 ;;^UTILITY(U,$J,358.3,15957,1,0)
+446 ;;=^358.31IA^4^2
+447 ;;^UTILITY(U,$J,358.3,15957,1,3,0)
+448 ;;=3^Osteopenia,Right Foot & Ankle
+449 ;;^UTILITY(U,$J,358.3,15957,1,4,0)
+450 ;;=4^M85.871
+451 ;;^UTILITY(U,$J,358.3,15957,2)
+452 ;;=^5014492
+453 ;;^UTILITY(U,$J,358.3,15958,0)
+454 ;;=M85.831^^56^650^94
+455 ;;^UTILITY(U,$J,358.3,15958,1,0)
+456 ;;=^358.31IA^4^2
+457 ;;^UTILITY(U,$J,358.3,15958,1,3,0)
+458 ;;=3^Osteopenia,Right Forearm
+459 ;;^UTILITY(U,$J,358.3,15958,1,4,0)
+460 ;;=4^M85.831
+461 ;;^UTILITY(U,$J,358.3,15958,2)
+462 ;;=^5014480
+463 ;;^UTILITY(U,$J,358.3,15959,0)
+464 ;;=M85.841^^56^650^95
+465 ;;^UTILITY(U,$J,358.3,15959,1,0)
+466 ;;=^358.31IA^4^2
+467 ;;^UTILITY(U,$J,358.3,15959,1,3,0)
+468 ;;=3^Osteopenia,Right Hand
+469 ;;^UTILITY(U,$J,358.3,15959,1,4,0)
+470 ;;=4^M85.841
+471 ;;^UTILITY(U,$J,358.3,15959,2)
+472 ;;=^5014483
+473 ;;^UTILITY(U,$J,358.3,15960,0)
+474 ;;=M85.861^^56^650^96
+475 ;;^UTILITY(U,$J,358.3,15960,1,0)
+476 ;;=^358.31IA^4^2
+477 ;;^UTILITY(U,$J,358.3,15960,1,3,0)
+478 ;;=3^Osteopenia,Right Lower Leg
+479 ;;^UTILITY(U,$J,358.3,15960,1,4,0)
+480 ;;=4^M85.861
+481 ;;^UTILITY(U,$J,358.3,15960,2)
+482 ;;=^5014489
+483 ;;^UTILITY(U,$J,358.3,15961,0)
+484 ;;=M85.811^^56^650^97
+485 ;;^UTILITY(U,$J,358.3,15961,1,0)
+486 ;;=^358.31IA^4^2
+487 ;;^UTILITY(U,$J,358.3,15961,1,3,0)
+488 ;;=3^Osteopenia,Right Shoulder
+489 ;;^UTILITY(U,$J,358.3,15961,1,4,0)
+490 ;;=4^M85.811
+491 ;;^UTILITY(U,$J,358.3,15961,2)
+492 ;;=^5014474
+493 ;;^UTILITY(U,$J,358.3,15962,0)
+494 ;;=M85.851^^56^650^98
+495 ;;^UTILITY(U,$J,358.3,15962,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,15962,1,3,0)
+498 ;;=3^Osteopenia,Right Thigh
+499 ;;^UTILITY(U,$J,358.3,15962,1,4,0)
+500 ;;=4^M85.851
+501 ;;^UTILITY(U,$J,358.3,15962,2)
+502 ;;=^5014486
+503 ;;^UTILITY(U,$J,358.3,15963,0)
+504 ;;=M85.821^^56^650^99
+505 ;;^UTILITY(U,$J,358.3,15963,1,0)
+506 ;;=^358.31IA^4^2
+507 ;;^UTILITY(U,$J,358.3,15963,1,3,0)
+508 ;;=3^Osteopenia,Right Upper Arm
+509 ;;^UTILITY(U,$J,358.3,15963,1,4,0)
+510 ;;=4^M85.821
+511 ;;^UTILITY(U,$J,358.3,15963,2)
+512 ;;=^5014477
+513 ;;^UTILITY(U,$J,358.3,15964,0)
+514 ;;=M85.80^^56^650^100
+515 ;;^UTILITY(U,$J,358.3,15964,1,0)
+516 ;;=^358.31IA^4^2
+517 ;;^UTILITY(U,$J,358.3,15964,1,3,0)
+518 ;;=3^Osteopenia,Unspec Site
+519 ;;^UTILITY(U,$J,358.3,15964,1,4,0)
+520 ;;=4^M85.80
+521 ;;^UTILITY(U,$J,358.3,15964,2)
+522 ;;=^5014473
+523 ;;^UTILITY(U,$J,358.3,15965,0)
+524 ;;=G56.03^^56^650^11
+525 ;;^UTILITY(U,$J,358.3,15965,1,0)
+526 ;;=^358.31IA^4^2
+527 ;;^UTILITY(U,$J,358.3,15965,1,3,0)
+528 ;;=3^Carpal Tunnel Syndrome,Bilat Upper Limbs
+529 ;;^UTILITY(U,$J,358.3,15965,1,4,0)
+530 ;;=4^G56.03
+531 ;;^UTILITY(U,$J,358.3,15965,2)
+532 ;;=^5138452
+533 ;;^UTILITY(U,$J,358.3,15966,0)
+534 ;;=M26.609^^56^650^188
+535 ;;^UTILITY(U,$J,358.3,15966,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,15966,1,3,0)
+538 ;;=3^Temporomandibular Joint Disorder,Unspec
+539 ;;^UTILITY(U,$J,358.3,15966,1,4,0)
+540 ;;=4^M26.609
+541 ;;^UTILITY(U,$J,358.3,15966,2)
+542 ;;=^5138795
+543 ;;^UTILITY(U,$J,358.3,15967,0)
+544 ;;=M51.86^^56^650^56
+545 ;;^UTILITY(U,$J,358.3,15967,1,0)
+546 ;;=^358.31IA^4^2
+547 ;;^UTILITY(U,$J,358.3,15967,1,3,0)
+548 ;;=3^Intvrt Disc Disorder,Lumbar Region,Other
+549 ;;^UTILITY(U,$J,358.3,15967,1,4,0)
+550 ;;=4^M51.86
+551 ;;^UTILITY(U,$J,358.3,15967,2)
+552 ;;=^5012261
+553 ;;^UTILITY(U,$J,358.3,15968,0)
+554 ;;=M54.6^^56^650^121
+555 ;;^UTILITY(U,$J,358.3,15968,1,0)
+556 ;;=^358.31IA^4^2
+557 ;;^UTILITY(U,$J,358.3,15968,1,3,0)
+558 ;;=3^Pain in Thoracic Spine
+559 ;;^UTILITY(U,$J,358.3,15968,1,4,0)
+560 ;;=4^M54.6
+561 ;;^UTILITY(U,$J,358.3,15968,2)
+562 ;;=^272507
+563 ;;^UTILITY(U,$J,358.3,15969,0)
+564 ;;=M72.2^^56^650^125
+565 ;;^UTILITY(U,$J,358.3,15969,1,0)
+566 ;;=^358.31IA^4^2
+567 ;;^UTILITY(U,$J,358.3,15969,1,3,0)
+568 ;;=3^Plantar Fascial Fibromatosis
+569 ;;^UTILITY(U,$J,358.3,15969,1,4,0)
+570 ;;=4^M72.2
+571 ;;^UTILITY(U,$J,358.3,15969,2)
+572 ;;=^272598
+573 ;;^UTILITY(U,$J,358.3,15970,0)
+574 ;;=M20.42^^56^650^42
+575 ;;^UTILITY(U,$J,358.3,15970,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,15970,1,3,0)
+578 ;;=3^Hammer Toe(s),Acquired,Left Foot
+579 ;;^UTILITY(U,$J,358.3,15970,1,4,0)
+580 ;;=4^M20.42
+581 ;;^UTILITY(U,$J,358.3,15970,2)
+582 ;;=^5011052
+583 ;;^UTILITY(U,$J,358.3,15971,0)
+584 ;;=M20.41^^56^650^43
+585 ;;^UTILITY(U,$J,358.3,15971,1,0)
+586 ;;=^358.31IA^4^2
+587 ;;^UTILITY(U,$J,358.3,15971,1,3,0)
+588 ;;=3^Hammer Toe(s),Acquired,Right Foot
+589 ;;^UTILITY(U,$J,358.3,15971,1,4,0)
+590 ;;=4^M20.41
+591 ;;^UTILITY(U,$J,358.3,15971,2)
+592 ;;=^5011051
+593 ;;^UTILITY(U,$J,358.3,15972,0)
+594 ;;=M48.061^^56^650^176
+595 ;;^UTILITY(U,$J,358.3,15972,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,15972,1,3,0)
+598 ;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Caludication
+599 ;;^UTILITY(U,$J,358.3,15972,1,4,0)
+600 ;;=4^M48.061
+601 ;;^UTILITY(U,$J,358.3,15972,2)
+602 ;;=^5151513
+603 ;;^UTILITY(U,$J,358.3,15973,0)
+604 ;;=M48.062^^56^650^175
+605 ;;^UTILITY(U,$J,358.3,15973,1,0)
+606 ;;=^358.31IA^4^2
+607 ;;^UTILITY(U,$J,358.3,15973,1,3,0)
+608 ;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
+609 ;;^UTILITY(U,$J,358.3,15973,1,4,0)
+610 ;;=4^M48.062
+611 ;;^UTILITY(U,$J,358.3,15973,2)
+612 ;;=^5151514
+613 ;;^UTILITY(U,$J,358.3,15974,0)
+614 ;;=M79.10^^56^650^65
+615 ;;^UTILITY(U,$J,358.3,15974,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,15974,1,3,0)
+618 ;;=3^Myalgia,Unspec Site
+619 ;;^UTILITY(U,$J,358.3,15974,1,4,0)
+620 ;;=4^M79.10
+621 ;;^UTILITY(U,$J,358.3,15974,2)
+622 ;;=^5157394
+623 ;;^UTILITY(U,$J,358.3,15975,0)
+624 ;;=M54.50^^56^650^61
+625 ;;^UTILITY(U,$J,358.3,15975,1,0)
+626 ;;=^358.31IA^4^2
+627 ;;^UTILITY(U,$J,358.3,15975,1,3,0)
+628 ;;=3^Low Back Pain,Unspec
+629 ;;^UTILITY(U,$J,358.3,15975,1,4,0)
+630 ;;=4^M54.50
+631 ;;^UTILITY(U,$J,358.3,15975,2)
+632 ;;=^5161215
+633 ;;^UTILITY(U,$J,358.3,15976,0)
+634 ;;=B02.0^^56^651^47
+635 ;;^UTILITY(U,$J,358.3,15976,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,15976,1,3,0)
+638 ;;=3^Zoster Encephalitis
+639 ;;^UTILITY(U,$J,358.3,15976,1,4,0)
+640 ;;=4^B02.0
+641 ;;^UTILITY(U,$J,358.3,15976,2)
+642 ;;=^5000488
+643 ;;^UTILITY(U,$J,358.3,15977,0)
+644 ;;=B02.29^^56^651^37
+645 ;;^UTILITY(U,$J,358.3,15977,1,0)
+646 ;;=^358.31IA^4^2
+647 ;;^UTILITY(U,$J,358.3,15977,1,3,0)
+648 ;;=3^Postherpetic Nervous System Involvement,Other
+649 ;;^UTILITY(U,$J,358.3,15977,1,4,0)
+650 ;;=4^B02.29
+651 ;;^UTILITY(U,$J,358.3,15977,2)
+652 ;;=^5000492
+653 ;;^UTILITY(U,$J,358.3,15978,0)
+654 ;;=F03.90^^56^651^11
+655 ;;^UTILITY(U,$J,358.3,15978,1,0)
+656 ;;=^358.31IA^4^2
+657 ;;^UTILITY(U,$J,358.3,15978,1,3,0)
+658 ;;=3^Dementia w/o Behavioral Disturbance,Unspec
+659 ;;^UTILITY(U,$J,358.3,15978,1,4,0)
+660 ;;=4^F03.90
+661 ;;^UTILITY(U,$J,358.3,15978,2)
+662 ;;=^5003050
+663 ;;^UTILITY(U,$J,358.3,15979,0)
+664 ;;=F03.91^^56^651^10
+665 ;;^UTILITY(U,$J,358.3,15979,1,0)
+666 ;;=^358.31IA^4^2
+667 ;;^UTILITY(U,$J,358.3,15979,1,3,0)
+668 ;;=3^Dementia w/ Behavioral Disturbance,Unspec
+669 ;;^UTILITY(U,$J,358.3,15979,1,4,0)
+670 ;;=4^F03.91
+671 ;;^UTILITY(U,$J,358.3,15979,2)
+672 ;;=^5133350
+673 ;;^UTILITY(U,$J,358.3,15980,0)
+674 ;;=F01.50^^56^651^13
+675 ;;^UTILITY(U,$J,358.3,15980,1,0)
+676 ;;=^358.31IA^4^2
+677 ;;^UTILITY(U,$J,358.3,15980,1,3,0)
+678 ;;=3^Dementia,Vascular w/o Behavioral Disturbance
+679 ;;^UTILITY(U,$J,358.3,15980,1,4,0)
+680 ;;=4^F01.50
+681 ;;^UTILITY(U,$J,358.3,15980,2)
+682 ;;=^5003046
+683 ;;^UTILITY(U,$J,358.3,15981,0)
+684 ;;=F10.27^^56^651^12
+685 ;;^UTILITY(U,$J,358.3,15981,1,0)
+686 ;;=^358.31IA^4^2
+687 ;;^UTILITY(U,$J,358.3,15981,1,3,0)
+688 ;;=3^Dementia,Alcohol-Induced/Persist w/ Alcohol Dependence
