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

IBDEI087.m

Go to the documentation of this file.
IBDEI087 ; ; 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,19979,1,4,0)
 ;;=4^M06.361
 ;;^UTILITY(U,$J,358.3,19979,2)
 ;;=^5010112
 ;;^UTILITY(U,$J,358.3,19980,0)
 ;;=M06.311^^65^806^81
 ;;^UTILITY(U,$J,358.3,19980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19980,1,3,0)
 ;;=3^Rheumatoid Nodule,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,19980,1,4,0)
 ;;=4^M06.311
 ;;^UTILITY(U,$J,358.3,19980,2)
 ;;=^5010097
 ;;^UTILITY(U,$J,358.3,19981,0)
 ;;=M06.331^^65^806^82
 ;;^UTILITY(U,$J,358.3,19981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19981,1,3,0)
 ;;=3^Rheumatoid Nodule,Rt Wrist
 ;;^UTILITY(U,$J,358.3,19981,1,4,0)
 ;;=4^M06.331
 ;;^UTILITY(U,$J,358.3,19981,2)
 ;;=^5010103
 ;;^UTILITY(U,$J,358.3,19982,0)
 ;;=M06.38^^65^806^83
 ;;^UTILITY(U,$J,358.3,19982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19982,1,3,0)
 ;;=3^Rheumatoid Nodule,Vertebrae
 ;;^UTILITY(U,$J,358.3,19982,1,4,0)
 ;;=4^M06.38
 ;;^UTILITY(U,$J,358.3,19982,2)
 ;;=^5010118
 ;;^UTILITY(U,$J,358.3,19983,0)
 ;;=M05.572^^65^806^84
 ;;^UTILITY(U,$J,358.3,19983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19983,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Lt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,19983,1,4,0)
 ;;=4^M05.572
 ;;^UTILITY(U,$J,358.3,19983,2)
 ;;=^5009974
 ;;^UTILITY(U,$J,358.3,19984,0)
 ;;=M05.522^^65^806^85
 ;;^UTILITY(U,$J,358.3,19984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19984,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Lt Elbow
 ;;^UTILITY(U,$J,358.3,19984,1,4,0)
 ;;=4^M05.522
 ;;^UTILITY(U,$J,358.3,19984,2)
 ;;=^5009959
 ;;^UTILITY(U,$J,358.3,19985,0)
 ;;=M05.542^^65^806^86
 ;;^UTILITY(U,$J,358.3,19985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19985,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Lt Hand
 ;;^UTILITY(U,$J,358.3,19985,1,4,0)
 ;;=4^M05.542
 ;;^UTILITY(U,$J,358.3,19985,2)
 ;;=^5009965
 ;;^UTILITY(U,$J,358.3,19986,0)
 ;;=M05.552^^65^806^87
 ;;^UTILITY(U,$J,358.3,19986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19986,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Lt Hip
 ;;^UTILITY(U,$J,358.3,19986,1,4,0)
 ;;=4^M05.552
 ;;^UTILITY(U,$J,358.3,19986,2)
 ;;=^5009968
 ;;^UTILITY(U,$J,358.3,19987,0)
 ;;=M05.562^^65^806^88
 ;;^UTILITY(U,$J,358.3,19987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19987,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Lt Knee
 ;;^UTILITY(U,$J,358.3,19987,1,4,0)
 ;;=4^M05.562
 ;;^UTILITY(U,$J,358.3,19987,2)
 ;;=^5009971
 ;;^UTILITY(U,$J,358.3,19988,0)
 ;;=M05.512^^65^806^89
 ;;^UTILITY(U,$J,358.3,19988,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19988,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,19988,1,4,0)
 ;;=4^M05.512
 ;;^UTILITY(U,$J,358.3,19988,2)
 ;;=^5009956
 ;;^UTILITY(U,$J,358.3,19989,0)
 ;;=M05.532^^65^806^90
 ;;^UTILITY(U,$J,358.3,19989,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19989,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Lt Wrist
 ;;^UTILITY(U,$J,358.3,19989,1,4,0)
 ;;=4^M05.532
 ;;^UTILITY(U,$J,358.3,19989,2)
 ;;=^5009962
 ;;^UTILITY(U,$J,358.3,19990,0)
 ;;=M05.59^^65^806^91
 ;;^UTILITY(U,$J,358.3,19990,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19990,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Mult Sites
 ;;^UTILITY(U,$J,358.3,19990,1,4,0)
 ;;=4^M05.59
 ;;^UTILITY(U,$J,358.3,19990,2)
 ;;=^5009976
 ;;^UTILITY(U,$J,358.3,19991,0)
 ;;=M05.571^^65^806^92
 ;;^UTILITY(U,$J,358.3,19991,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19991,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,19991,1,4,0)
 ;;=4^M05.571
 ;;^UTILITY(U,$J,358.3,19991,2)
 ;;=^5009973
 ;;^UTILITY(U,$J,358.3,19992,0)
 ;;=M05.521^^65^806^93
 ;;^UTILITY(U,$J,358.3,19992,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19992,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Elbow
 ;;^UTILITY(U,$J,358.3,19992,1,4,0)
 ;;=4^M05.521
 ;;^UTILITY(U,$J,358.3,19992,2)
 ;;=^5009958
 ;;^UTILITY(U,$J,358.3,19993,0)
 ;;=M05.541^^65^806^94
 ;;^UTILITY(U,$J,358.3,19993,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19993,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Hand
 ;;^UTILITY(U,$J,358.3,19993,1,4,0)
 ;;=4^M05.541
 ;;^UTILITY(U,$J,358.3,19993,2)
 ;;=^5009964
 ;;^UTILITY(U,$J,358.3,19994,0)
 ;;=M05.561^^65^806^95
 ;;^UTILITY(U,$J,358.3,19994,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19994,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Knee
 ;;^UTILITY(U,$J,358.3,19994,1,4,0)
 ;;=4^M05.561
 ;;^UTILITY(U,$J,358.3,19994,2)
 ;;=^5009970
 ;;^UTILITY(U,$J,358.3,19995,0)
 ;;=M05.511^^65^806^96
 ;;^UTILITY(U,$J,358.3,19995,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19995,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,19995,1,4,0)
 ;;=4^M05.511
 ;;^UTILITY(U,$J,358.3,19995,2)
 ;;=^5009955
 ;;^UTILITY(U,$J,358.3,19996,0)
 ;;=M05.531^^65^806^97
 ;;^UTILITY(U,$J,358.3,19996,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19996,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Wrist
 ;;^UTILITY(U,$J,358.3,19996,1,4,0)
 ;;=4^M05.531
 ;;^UTILITY(U,$J,358.3,19996,2)
 ;;=^5009961
 ;;^UTILITY(U,$J,358.3,19997,0)
 ;;=M06.9^^65^806^36
 ;;^UTILITY(U,$J,358.3,19997,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19997,1,3,0)
 ;;=3^Rheumatoid Arthritis,Unspec
 ;;^UTILITY(U,$J,358.3,19997,1,4,0)
 ;;=4^M06.9
 ;;^UTILITY(U,$J,358.3,19997,2)
 ;;=^5010145
 ;;^UTILITY(U,$J,358.3,19998,0)
 ;;=M05.8A^^65^806^10
 ;;^UTILITY(U,$J,358.3,19998,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19998,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Oth Site
 ;;^UTILITY(U,$J,358.3,19998,1,4,0)
 ;;=4^M05.8A
 ;;^UTILITY(U,$J,358.3,19998,2)
 ;;=^5159222
 ;;^UTILITY(U,$J,358.3,19999,0)
 ;;=M06.0A^^65^806^26
 ;;^UTILITY(U,$J,358.3,19999,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19999,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Oth Site
 ;;^UTILITY(U,$J,358.3,19999,1,4,0)
 ;;=4^M06.0A
 ;;^UTILITY(U,$J,358.3,19999,2)
 ;;=^5159223
 ;;^UTILITY(U,$J,358.3,20000,0)
 ;;=M06.8A^^65^806^35
 ;;^UTILITY(U,$J,358.3,20000,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20000,1,3,0)
 ;;=3^Rheum Arthritis,Oth Spec,Oth Spec Site
 ;;^UTILITY(U,$J,358.3,20000,1,4,0)
 ;;=4^M06.8A
 ;;^UTILITY(U,$J,358.3,20000,2)
 ;;=^5159224
 ;;^UTILITY(U,$J,358.3,20001,0)
 ;;=F31.81^^65^807^8
 ;;^UTILITY(U,$J,358.3,20001,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20001,1,3,0)
 ;;=3^Bipolar II disorder
 ;;^UTILITY(U,$J,358.3,20001,1,4,0)
 ;;=4^F31.81
 ;;^UTILITY(U,$J,358.3,20001,2)
 ;;=^5003519
 ;;^UTILITY(U,$J,358.3,20002,0)
 ;;=F41.9^^65^807^7
 ;;^UTILITY(U,$J,358.3,20002,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20002,1,3,0)
 ;;=3^Anxiety D/O,Unspec
 ;;^UTILITY(U,$J,358.3,20002,1,4,0)
 ;;=4^F41.9
 ;;^UTILITY(U,$J,358.3,20002,2)
 ;;=^5003567
 ;;^UTILITY(U,$J,358.3,20003,0)
 ;;=F34.1^^65^807^10
 ;;^UTILITY(U,$J,358.3,20003,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20003,1,3,0)
 ;;=3^Dysthymic disorder
 ;;^UTILITY(U,$J,358.3,20003,1,4,0)
 ;;=4^F34.1
 ;;^UTILITY(U,$J,358.3,20003,2)
 ;;=^331913
 ;;^UTILITY(U,$J,358.3,20004,0)
 ;;=F60.4^^65^807^11
 ;;^UTILITY(U,$J,358.3,20004,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20004,1,3,0)
 ;;=3^Histrionic personality disorder
 ;;^UTILITY(U,$J,358.3,20004,1,4,0)
 ;;=4^F60.4
 ;;^UTILITY(U,$J,358.3,20004,2)
 ;;=^5003636
 ;;^UTILITY(U,$J,358.3,20005,0)
 ;;=F60.7^^65^807^9
 ;;^UTILITY(U,$J,358.3,20005,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20005,1,3,0)
 ;;=3^Dependent personality disorder
 ;;^UTILITY(U,$J,358.3,20005,1,4,0)
 ;;=4^F60.7
 ;;^UTILITY(U,$J,358.3,20005,2)
 ;;=^5003637
 ;;^UTILITY(U,$J,358.3,20006,0)
 ;;=F43.21^^65^807^3
 ;;^UTILITY(U,$J,358.3,20006,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20006,1,3,0)
 ;;=3^Adjustment D/O w/ Depressed Mood
 ;;^UTILITY(U,$J,358.3,20006,1,4,0)
 ;;=4^F43.21
 ;;^UTILITY(U,$J,358.3,20006,2)
 ;;=^331948
 ;;^UTILITY(U,$J,358.3,20007,0)
 ;;=F93.0^^65^807^17
 ;;^UTILITY(U,$J,358.3,20007,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20007,1,3,0)
 ;;=3^Separation anxiety disorder of childhood
 ;;^UTILITY(U,$J,358.3,20007,1,4,0)
 ;;=4^F93.0
 ;;^UTILITY(U,$J,358.3,20007,2)
 ;;=^5003702
 ;;^UTILITY(U,$J,358.3,20008,0)
 ;;=F43.22^^65^807^2
 ;;^UTILITY(U,$J,358.3,20008,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20008,1,3,0)
 ;;=3^Adjustment D/O w/ Anxiety
 ;;^UTILITY(U,$J,358.3,20008,1,4,0)
 ;;=4^F43.22
 ;;^UTILITY(U,$J,358.3,20008,2)
 ;;=^331949
 ;;^UTILITY(U,$J,358.3,20009,0)
 ;;=F43.23^^65^807^5
 ;;^UTILITY(U,$J,358.3,20009,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20009,1,3,0)
 ;;=3^Adjustment D/O w/ Mixed Anxiety & Depressed Mood
 ;;^UTILITY(U,$J,358.3,20009,1,4,0)
 ;;=4^F43.23
 ;;^UTILITY(U,$J,358.3,20009,2)
 ;;=^331950
 ;;^UTILITY(U,$J,358.3,20010,0)
 ;;=F43.24^^65^807^4
 ;;^UTILITY(U,$J,358.3,20010,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20010,1,3,0)
 ;;=3^Adjustment D/O w/ Conduct Disturbance
 ;;^UTILITY(U,$J,358.3,20010,1,4,0)
 ;;=4^F43.24
 ;;^UTILITY(U,$J,358.3,20010,2)
 ;;=^331951
 ;;^UTILITY(U,$J,358.3,20011,0)
 ;;=F43.25^^65^807^1
 ;;^UTILITY(U,$J,358.3,20011,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20011,1,3,0)
 ;;=3^Adjustment D/O w/ Mixed Disturb Emotions & Conduct
 ;;^UTILITY(U,$J,358.3,20011,1,4,0)
 ;;=4^F43.25
 ;;^UTILITY(U,$J,358.3,20011,2)
 ;;=^331952
 ;;^UTILITY(U,$J,358.3,20012,0)
 ;;=F43.10^^65^807^15
 ;;^UTILITY(U,$J,358.3,20012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20012,1,3,0)
 ;;=3^Post-traumatic stress disorder, unspecified
 ;;^UTILITY(U,$J,358.3,20012,1,4,0)
 ;;=4^F43.10
 ;;^UTILITY(U,$J,358.3,20012,2)
 ;;=^5003570
 ;;^UTILITY(U,$J,358.3,20013,0)
 ;;=F43.12^^65^807^14
 ;;^UTILITY(U,$J,358.3,20013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20013,1,3,0)
 ;;=3^Post-traumatic stress disorder, chronic
 ;;^UTILITY(U,$J,358.3,20013,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,20013,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,20014,0)
 ;;=F43.8^^65^807^16
 ;;^UTILITY(U,$J,358.3,20014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20014,1,3,0)
 ;;=3^Reactions to severe stress NEC
 ;;^UTILITY(U,$J,358.3,20014,1,4,0)
 ;;=4^F43.8
 ;;^UTILITY(U,$J,358.3,20014,2)
 ;;=^5003575
 ;;^UTILITY(U,$J,358.3,20015,0)
 ;;=F43.20^^65^807^6
 ;;^UTILITY(U,$J,358.3,20015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20015,1,3,0)
 ;;=3^Adjustment D/O,Unspec
 ;;^UTILITY(U,$J,358.3,20015,1,4,0)
 ;;=4^F43.20
 ;;^UTILITY(U,$J,358.3,20015,2)
 ;;=^5003573
 ;;^UTILITY(U,$J,358.3,20016,0)
 ;;=F07.0^^65^807^13
 ;;^UTILITY(U,$J,358.3,20016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20016,1,3,0)
 ;;=3^Personality change due to known physiological condition
 ;;^UTILITY(U,$J,358.3,20016,1,4,0)
 ;;=4^F07.0
 ;;^UTILITY(U,$J,358.3,20016,2)
 ;;=^5003063
 ;;^UTILITY(U,$J,358.3,20017,0)
 ;;=F98.5^^65^808^1
 ;;^UTILITY(U,$J,358.3,20017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20017,1,3,0)
 ;;=3^Adult onset fluency disorder
 ;;^UTILITY(U,$J,358.3,20017,1,4,0)
 ;;=4^F98.5
 ;;^UTILITY(U,$J,358.3,20017,2)
 ;;=^5003717
 ;;^UTILITY(U,$J,358.3,20018,0)
 ;;=R47.01^^65^808^2
 ;;^UTILITY(U,$J,358.3,20018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20018,1,3,0)
 ;;=3^Aphasia
 ;;^UTILITY(U,$J,358.3,20018,1,4,0)
 ;;=4^R47.01
 ;;^UTILITY(U,$J,358.3,20018,2)
 ;;=^5019488
 ;;^UTILITY(U,$J,358.3,20019,0)
 ;;=I69.920^^65^808^4
 ;;^UTILITY(U,$J,358.3,20019,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20019,1,3,0)
 ;;=3^Aphasia following unspecified cerebrovascular disease
 ;;^UTILITY(U,$J,358.3,20019,1,4,0)
 ;;=4^I69.920
 ;;^UTILITY(U,$J,358.3,20019,2)
 ;;=^5007553
 ;;^UTILITY(U,$J,358.3,20020,0)
 ;;=F80.1^^65^808^5
 ;;^UTILITY(U,$J,358.3,20020,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20020,1,3,0)
 ;;=3^Expressive language disorder
 ;;^UTILITY(U,$J,358.3,20020,1,4,0)
 ;;=4^F80.1
 ;;^UTILITY(U,$J,358.3,20020,2)
 ;;=^331958
 ;;^UTILITY(U,$J,358.3,20021,0)
 ;;=F80.2^^65^808^6
 ;;^UTILITY(U,$J,358.3,20021,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20021,1,3,0)
 ;;=3^Mixed receptive-expressive language disorder
 ;;^UTILITY(U,$J,358.3,20021,1,4,0)
 ;;=4^F80.2
 ;;^UTILITY(U,$J,358.3,20021,2)
 ;;=^331959
 ;;^UTILITY(U,$J,358.3,20022,0)
 ;;=R47.89^^65^808^7
 ;;^UTILITY(U,$J,358.3,20022,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20022,1,3,0)
 ;;=3^Speech disturbances NEC
 ;;^UTILITY(U,$J,358.3,20022,1,4,0)
 ;;=4^R47.89
 ;;^UTILITY(U,$J,358.3,20022,2)
 ;;=^5019493
 ;;^UTILITY(U,$J,358.3,20023,0)
 ;;=R49.8^^65^808^8
 ;;^UTILITY(U,$J,358.3,20023,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20023,1,3,0)
 ;;=3^Voice and resonance disorders NEC
 ;;^UTILITY(U,$J,358.3,20023,1,4,0)
 ;;=4^R49.8
 ;;^UTILITY(U,$J,358.3,20023,2)
 ;;=^5019505
 ;;^UTILITY(U,$J,358.3,20024,0)
 ;;=I69.320^^65^808^3
 ;;^UTILITY(U,$J,358.3,20024,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20024,1,3,0)
 ;;=3^Aphasia Following CVA
 ;;^UTILITY(U,$J,358.3,20024,1,4,0)
 ;;=4^I69.320
 ;;^UTILITY(U,$J,358.3,20024,2)
 ;;=^5007491
 ;;^UTILITY(U,$J,358.3,20025,0)
 ;;=Z44.011^^65^809^7
 ;;^UTILITY(U,$J,358.3,20025,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20025,1,3,0)
 ;;=3^Fit/adjst of complete right artificial arm
 ;;^UTILITY(U,$J,358.3,20025,1,4,0)
 ;;=4^Z44.011
 ;;^UTILITY(U,$J,358.3,20025,2)
 ;;=^5062971
 ;;^UTILITY(U,$J,358.3,20026,0)
 ;;=Z44.012^^65^809^5
 ;;^UTILITY(U,$J,358.3,20026,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20026,1,3,0)
 ;;=3^Fit/adjst of complete left artificial arm
 ;;^UTILITY(U,$J,358.3,20026,1,4,0)
 ;;=4^Z44.012
 ;;^UTILITY(U,$J,358.3,20026,2)
 ;;=^5062972
 ;;^UTILITY(U,$J,358.3,20027,0)
 ;;=Z44.021^^65^809^12
 ;;^UTILITY(U,$J,358.3,20027,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20027,1,3,0)
 ;;=3^Fit/adjst of partial artificial right arm
 ;;^UTILITY(U,$J,358.3,20027,1,4,0)
 ;;=4^Z44.021
 ;;^UTILITY(U,$J,358.3,20027,2)
 ;;=^5062974
 ;;^UTILITY(U,$J,358.3,20028,0)
 ;;=Z44.022^^65^809^10
 ;;^UTILITY(U,$J,358.3,20028,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20028,1,3,0)
 ;;=3^Fit/adjst of partial artificial left arm
 ;;^UTILITY(U,$J,358.3,20028,1,4,0)
 ;;=4^Z44.022
 ;;^UTILITY(U,$J,358.3,20028,2)
 ;;=^5062975
 ;;^UTILITY(U,$J,358.3,20029,0)
 ;;=Z44.111^^65^809^8
 ;;^UTILITY(U,$J,358.3,20029,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20029,1,3,0)
 ;;=3^Fit/adjst of complete right artificial leg
 ;;^UTILITY(U,$J,358.3,20029,1,4,0)
 ;;=4^Z44.111
 ;;^UTILITY(U,$J,358.3,20029,2)
 ;;=^5062980
 ;;^UTILITY(U,$J,358.3,20030,0)
 ;;=Z44.112^^65^809^6
 ;;^UTILITY(U,$J,358.3,20030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20030,1,3,0)
 ;;=3^Fit/adjst of complete left artificial leg
 ;;^UTILITY(U,$J,358.3,20030,1,4,0)
 ;;=4^Z44.112
 ;;^UTILITY(U,$J,358.3,20030,2)
 ;;=^5062981
 ;;^UTILITY(U,$J,358.3,20031,0)
 ;;=Z44.121^^65^809^13
 ;;^UTILITY(U,$J,358.3,20031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20031,1,3,0)
 ;;=3^Fit/adjst of partial artificial right leg
 ;;^UTILITY(U,$J,358.3,20031,1,4,0)
 ;;=4^Z44.121
 ;;^UTILITY(U,$J,358.3,20031,2)
 ;;=^5062983
 ;;^UTILITY(U,$J,358.3,20032,0)
 ;;=Z44.122^^65^809^11
 ;;^UTILITY(U,$J,358.3,20032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20032,1,3,0)
 ;;=3^Fit/adjst of partial artificial left leg
 ;;^UTILITY(U,$J,358.3,20032,1,4,0)
 ;;=4^Z44.122
 ;;^UTILITY(U,$J,358.3,20032,2)
 ;;=^5062984
 ;;^UTILITY(U,$J,358.3,20033,0)
 ;;=Z44.8^^65^809^9
 ;;^UTILITY(U,$J,358.3,20033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20033,1,3,0)
 ;;=3^Fit/adjst of external prosthetic devices
 ;;^UTILITY(U,$J,358.3,20033,1,4,0)
 ;;=4^Z44.8
 ;;^UTILITY(U,$J,358.3,20033,2)
 ;;=^5062992
 ;;^UTILITY(U,$J,358.3,20034,0)
 ;;=Z44.9^^65^809^14
 ;;^UTILITY(U,$J,358.3,20034,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20034,1,3,0)
 ;;=3^Fit/adjst of unsp external prosthetic device
 ;;^UTILITY(U,$J,358.3,20034,1,4,0)
 ;;=4^Z44.9
 ;;^UTILITY(U,$J,358.3,20034,2)
 ;;=^5062993
 ;;^UTILITY(U,$J,358.3,20035,0)
 ;;=Z47.89^^65^809^3
 ;;^UTILITY(U,$J,358.3,20035,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20035,1,3,0)
 ;;=3^Aftercare,Orthopedic NEC
 ;;^UTILITY(U,$J,358.3,20035,1,4,0)
 ;;=4^Z47.89
 ;;^UTILITY(U,$J,358.3,20035,2)
 ;;=^5063032
 ;;^UTILITY(U,$J,358.3,20036,0)
 ;;=Z51.89^^65^809^4
 ;;^UTILITY(U,$J,358.3,20036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20036,1,3,0)
 ;;=3^Aftercare,Specified NEC
 ;;^UTILITY(U,$J,358.3,20036,1,4,0)
 ;;=4^Z51.89
 ;;^UTILITY(U,$J,358.3,20036,2)
 ;;=^5063065
 ;;^UTILITY(U,$J,358.3,20037,0)
 ;;=Z47.1^^65^809^2
 ;;^UTILITY(U,$J,358.3,20037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20037,1,3,0)
 ;;=3^Aftercare,Joint Replacement
 ;;^UTILITY(U,$J,358.3,20037,1,4,0)
 ;;=4^Z47.1
 ;;^UTILITY(U,$J,358.3,20037,2)
 ;;=^5063025
 ;;^UTILITY(U,$J,358.3,20038,0)
 ;;=Z47.81^^65^809^1
 ;;^UTILITY(U,$J,358.3,20038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20038,1,3,0)
 ;;=3^Aftercare,Amputation
 ;;^UTILITY(U,$J,358.3,20038,1,4,0)
 ;;=4^Z47.81
 ;;^UTILITY(U,$J,358.3,20038,2)
 ;;=^5063030
 ;;^UTILITY(U,$J,358.3,20039,0)
 ;;=R45.851^^65^810^3
 ;;^UTILITY(U,$J,358.3,20039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20039,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,20039,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,20039,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,20040,0)
 ;;=T14.91XA^^65^810^4
 ;;^UTILITY(U,$J,358.3,20040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20040,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,20040,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,20040,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,20041,0)
 ;;=T14.91XD^^65^810^6
 ;;^UTILITY(U,$J,358.3,20041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20041,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,20041,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,20041,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,20042,0)
 ;;=T14.91XS^^65^810^5
 ;;^UTILITY(U,$J,358.3,20042,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20042,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,20042,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,20042,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,20043,0)
 ;;=Z91.51^^65^810^2
 ;;^UTILITY(U,$J,358.3,20043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20043,1,3,0)
 ;;=3^Personal Hx of Suicidal Behavior
 ;;^UTILITY(U,$J,358.3,20043,1,4,0)
 ;;=4^Z91.51
 ;;^UTILITY(U,$J,358.3,20043,2)
 ;;=^5161317
 ;;^UTILITY(U,$J,358.3,20044,0)
 ;;=Z91.52^^65^810^1
 ;;^UTILITY(U,$J,358.3,20044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20044,1,3,0)
 ;;=3^Personal Hx of Non-Suicidal Self-Harm
 ;;^UTILITY(U,$J,358.3,20044,1,4,0)
 ;;=4^Z91.52
 ;;^UTILITY(U,$J,358.3,20044,2)
 ;;=^5161318
 ;;^UTILITY(U,$J,358.3,20045,0)
 ;;=M50.11^^65^811^5
 ;;^UTILITY(U,$J,358.3,20045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20045,1,3,0)
 ;;=3^Cervical DDD w/ Radiculopathy,C2-C4
 ;;^UTILITY(U,$J,358.3,20045,1,4,0)
 ;;=4^M50.11
 ;;^UTILITY(U,$J,358.3,20045,2)
 ;;=^5012220
 ;;^UTILITY(U,$J,358.3,20046,0)
 ;;=M50.120^^65^811^6
 ;;^UTILITY(U,$J,358.3,20046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20046,1,3,0)
 ;;=3^Cervical DDD w/ Radiculopathy,C4-C7
 ;;^UTILITY(U,$J,358.3,20046,1,4,0)
 ;;=4^M50.120
 ;;^UTILITY(U,$J,358.3,20046,2)
 ;;=^5138812