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