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

IBDEI08L.m

Go to the documentation of this file.
IBDEI08L ; ; 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,20949,2)
 ;;=^5009962
 ;;^UTILITY(U,$J,358.3,20950,0)
 ;;=M05.59^^68^854^91
 ;;^UTILITY(U,$J,358.3,20950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20950,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Mult Sites
 ;;^UTILITY(U,$J,358.3,20950,1,4,0)
 ;;=4^M05.59
 ;;^UTILITY(U,$J,358.3,20950,2)
 ;;=^5009976
 ;;^UTILITY(U,$J,358.3,20951,0)
 ;;=M05.571^^68^854^92
 ;;^UTILITY(U,$J,358.3,20951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20951,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,20951,1,4,0)
 ;;=4^M05.571
 ;;^UTILITY(U,$J,358.3,20951,2)
 ;;=^5009973
 ;;^UTILITY(U,$J,358.3,20952,0)
 ;;=M05.521^^68^854^93
 ;;^UTILITY(U,$J,358.3,20952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20952,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Elbow
 ;;^UTILITY(U,$J,358.3,20952,1,4,0)
 ;;=4^M05.521
 ;;^UTILITY(U,$J,358.3,20952,2)
 ;;=^5009958
 ;;^UTILITY(U,$J,358.3,20953,0)
 ;;=M05.541^^68^854^94
 ;;^UTILITY(U,$J,358.3,20953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20953,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Hand
 ;;^UTILITY(U,$J,358.3,20953,1,4,0)
 ;;=4^M05.541
 ;;^UTILITY(U,$J,358.3,20953,2)
 ;;=^5009964
 ;;^UTILITY(U,$J,358.3,20954,0)
 ;;=M05.561^^68^854^95
 ;;^UTILITY(U,$J,358.3,20954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20954,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Knee
 ;;^UTILITY(U,$J,358.3,20954,1,4,0)
 ;;=4^M05.561
 ;;^UTILITY(U,$J,358.3,20954,2)
 ;;=^5009970
 ;;^UTILITY(U,$J,358.3,20955,0)
 ;;=M05.511^^68^854^96
 ;;^UTILITY(U,$J,358.3,20955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20955,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,20955,1,4,0)
 ;;=4^M05.511
 ;;^UTILITY(U,$J,358.3,20955,2)
 ;;=^5009955
 ;;^UTILITY(U,$J,358.3,20956,0)
 ;;=M05.531^^68^854^97
 ;;^UTILITY(U,$J,358.3,20956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20956,1,3,0)
 ;;=3^Rheumatoid Polyneurop w/ Rheum Arthritis,Rt Wrist
 ;;^UTILITY(U,$J,358.3,20956,1,4,0)
 ;;=4^M05.531
 ;;^UTILITY(U,$J,358.3,20956,2)
 ;;=^5009961
 ;;^UTILITY(U,$J,358.3,20957,0)
 ;;=M06.9^^68^854^36
 ;;^UTILITY(U,$J,358.3,20957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20957,1,3,0)
 ;;=3^Rheumatoid Arthritis,Unspec
 ;;^UTILITY(U,$J,358.3,20957,1,4,0)
 ;;=4^M06.9
 ;;^UTILITY(U,$J,358.3,20957,2)
 ;;=^5010145
 ;;^UTILITY(U,$J,358.3,20958,0)
 ;;=M05.8A^^68^854^10
 ;;^UTILITY(U,$J,358.3,20958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20958,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Oth Site
 ;;^UTILITY(U,$J,358.3,20958,1,4,0)
 ;;=4^M05.8A
 ;;^UTILITY(U,$J,358.3,20958,2)
 ;;=^5159222
 ;;^UTILITY(U,$J,358.3,20959,0)
 ;;=M06.0A^^68^854^26
 ;;^UTILITY(U,$J,358.3,20959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20959,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Oth Site
 ;;^UTILITY(U,$J,358.3,20959,1,4,0)
 ;;=4^M06.0A
 ;;^UTILITY(U,$J,358.3,20959,2)
 ;;=^5159223
 ;;^UTILITY(U,$J,358.3,20960,0)
 ;;=M06.8A^^68^854^35
 ;;^UTILITY(U,$J,358.3,20960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20960,1,3,0)
 ;;=3^Rheum Arthritis,Oth Spec,Oth Spec Site
 ;;^UTILITY(U,$J,358.3,20960,1,4,0)
 ;;=4^M06.8A
 ;;^UTILITY(U,$J,358.3,20960,2)
 ;;=^5159224
 ;;^UTILITY(U,$J,358.3,20961,0)
 ;;=F31.81^^68^855^8
 ;;^UTILITY(U,$J,358.3,20961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20961,1,3,0)
 ;;=3^Bipolar II disorder
 ;;^UTILITY(U,$J,358.3,20961,1,4,0)
 ;;=4^F31.81
 ;;^UTILITY(U,$J,358.3,20961,2)
 ;;=^5003519
 ;;^UTILITY(U,$J,358.3,20962,0)
 ;;=F41.9^^68^855^7
 ;;^UTILITY(U,$J,358.3,20962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20962,1,3,0)
 ;;=3^Anxiety D/O,Unspec
 ;;^UTILITY(U,$J,358.3,20962,1,4,0)
 ;;=4^F41.9
 ;;^UTILITY(U,$J,358.3,20962,2)
 ;;=^5003567
 ;;^UTILITY(U,$J,358.3,20963,0)
 ;;=F34.1^^68^855^10
 ;;^UTILITY(U,$J,358.3,20963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20963,1,3,0)
 ;;=3^Dysthymic disorder
 ;;^UTILITY(U,$J,358.3,20963,1,4,0)
 ;;=4^F34.1
 ;;^UTILITY(U,$J,358.3,20963,2)
 ;;=^331913
 ;;^UTILITY(U,$J,358.3,20964,0)
 ;;=F60.4^^68^855^11
 ;;^UTILITY(U,$J,358.3,20964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20964,1,3,0)
 ;;=3^Histrionic personality disorder
 ;;^UTILITY(U,$J,358.3,20964,1,4,0)
 ;;=4^F60.4
 ;;^UTILITY(U,$J,358.3,20964,2)
 ;;=^5003636
 ;;^UTILITY(U,$J,358.3,20965,0)
 ;;=F60.7^^68^855^9
 ;;^UTILITY(U,$J,358.3,20965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20965,1,3,0)
 ;;=3^Dependent personality disorder
 ;;^UTILITY(U,$J,358.3,20965,1,4,0)
 ;;=4^F60.7
 ;;^UTILITY(U,$J,358.3,20965,2)
 ;;=^5003637
 ;;^UTILITY(U,$J,358.3,20966,0)
 ;;=F43.21^^68^855^3
 ;;^UTILITY(U,$J,358.3,20966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20966,1,3,0)
 ;;=3^Adjustment D/O w/ Depressed Mood
 ;;^UTILITY(U,$J,358.3,20966,1,4,0)
 ;;=4^F43.21
 ;;^UTILITY(U,$J,358.3,20966,2)
 ;;=^331948
 ;;^UTILITY(U,$J,358.3,20967,0)
 ;;=F93.0^^68^855^17
 ;;^UTILITY(U,$J,358.3,20967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20967,1,3,0)
 ;;=3^Separation anxiety disorder of childhood
 ;;^UTILITY(U,$J,358.3,20967,1,4,0)
 ;;=4^F93.0
 ;;^UTILITY(U,$J,358.3,20967,2)
 ;;=^5003702
 ;;^UTILITY(U,$J,358.3,20968,0)
 ;;=F43.22^^68^855^2
 ;;^UTILITY(U,$J,358.3,20968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20968,1,3,0)
 ;;=3^Adjustment D/O w/ Anxiety
 ;;^UTILITY(U,$J,358.3,20968,1,4,0)
 ;;=4^F43.22
 ;;^UTILITY(U,$J,358.3,20968,2)
 ;;=^331949
 ;;^UTILITY(U,$J,358.3,20969,0)
 ;;=F43.23^^68^855^5
 ;;^UTILITY(U,$J,358.3,20969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20969,1,3,0)
 ;;=3^Adjustment D/O w/ Mixed Anxiety & Depressed Mood
 ;;^UTILITY(U,$J,358.3,20969,1,4,0)
 ;;=4^F43.23
 ;;^UTILITY(U,$J,358.3,20969,2)
 ;;=^331950
 ;;^UTILITY(U,$J,358.3,20970,0)
 ;;=F43.24^^68^855^4
 ;;^UTILITY(U,$J,358.3,20970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20970,1,3,0)
 ;;=3^Adjustment D/O w/ Conduct Disturbance
 ;;^UTILITY(U,$J,358.3,20970,1,4,0)
 ;;=4^F43.24
 ;;^UTILITY(U,$J,358.3,20970,2)
 ;;=^331951
 ;;^UTILITY(U,$J,358.3,20971,0)
 ;;=F43.25^^68^855^1
 ;;^UTILITY(U,$J,358.3,20971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20971,1,3,0)
 ;;=3^Adjustment D/O w/ Mixed Disturb Emotions & Conduct
 ;;^UTILITY(U,$J,358.3,20971,1,4,0)
 ;;=4^F43.25
 ;;^UTILITY(U,$J,358.3,20971,2)
 ;;=^331952
 ;;^UTILITY(U,$J,358.3,20972,0)
 ;;=F43.10^^68^855^15
 ;;^UTILITY(U,$J,358.3,20972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20972,1,3,0)
 ;;=3^Post-traumatic stress disorder, unspecified
 ;;^UTILITY(U,$J,358.3,20972,1,4,0)
 ;;=4^F43.10
 ;;^UTILITY(U,$J,358.3,20972,2)
 ;;=^5003570
 ;;^UTILITY(U,$J,358.3,20973,0)
 ;;=F43.12^^68^855^14
 ;;^UTILITY(U,$J,358.3,20973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20973,1,3,0)
 ;;=3^Post-traumatic stress disorder, chronic
 ;;^UTILITY(U,$J,358.3,20973,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,20973,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,20974,0)
 ;;=F43.8^^68^855^16
 ;;^UTILITY(U,$J,358.3,20974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20974,1,3,0)
 ;;=3^Reactions to severe stress NEC
 ;;^UTILITY(U,$J,358.3,20974,1,4,0)
 ;;=4^F43.8
 ;;^UTILITY(U,$J,358.3,20974,2)
 ;;=^5003575
 ;;^UTILITY(U,$J,358.3,20975,0)
 ;;=F43.20^^68^855^6
 ;;^UTILITY(U,$J,358.3,20975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20975,1,3,0)
 ;;=3^Adjustment D/O,Unspec
 ;;^UTILITY(U,$J,358.3,20975,1,4,0)
 ;;=4^F43.20
 ;;^UTILITY(U,$J,358.3,20975,2)
 ;;=^5003573
 ;;^UTILITY(U,$J,358.3,20976,0)
 ;;=F07.0^^68^855^13
 ;;^UTILITY(U,$J,358.3,20976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20976,1,3,0)
 ;;=3^Personality change due to known physiological condition
 ;;^UTILITY(U,$J,358.3,20976,1,4,0)
 ;;=4^F07.0
 ;;^UTILITY(U,$J,358.3,20976,2)
 ;;=^5003063
 ;;^UTILITY(U,$J,358.3,20977,0)
 ;;=F98.5^^68^856^1
 ;;^UTILITY(U,$J,358.3,20977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20977,1,3,0)
 ;;=3^Adult onset fluency disorder
 ;;^UTILITY(U,$J,358.3,20977,1,4,0)
 ;;=4^F98.5
 ;;^UTILITY(U,$J,358.3,20977,2)
 ;;=^5003717
 ;;^UTILITY(U,$J,358.3,20978,0)
 ;;=R47.01^^68^856^2
 ;;^UTILITY(U,$J,358.3,20978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20978,1,3,0)
 ;;=3^Aphasia
 ;;^UTILITY(U,$J,358.3,20978,1,4,0)
 ;;=4^R47.01
 ;;^UTILITY(U,$J,358.3,20978,2)
 ;;=^5019488
 ;;^UTILITY(U,$J,358.3,20979,0)
 ;;=I69.920^^68^856^4
 ;;^UTILITY(U,$J,358.3,20979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20979,1,3,0)
 ;;=3^Aphasia following unspecified cerebrovascular disease
 ;;^UTILITY(U,$J,358.3,20979,1,4,0)
 ;;=4^I69.920
 ;;^UTILITY(U,$J,358.3,20979,2)
 ;;=^5007553
 ;;^UTILITY(U,$J,358.3,20980,0)
 ;;=F80.1^^68^856^5
 ;;^UTILITY(U,$J,358.3,20980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20980,1,3,0)
 ;;=3^Expressive language disorder
 ;;^UTILITY(U,$J,358.3,20980,1,4,0)
 ;;=4^F80.1
 ;;^UTILITY(U,$J,358.3,20980,2)
 ;;=^331958
 ;;^UTILITY(U,$J,358.3,20981,0)
 ;;=F80.2^^68^856^6
 ;;^UTILITY(U,$J,358.3,20981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20981,1,3,0)
 ;;=3^Mixed receptive-expressive language disorder
 ;;^UTILITY(U,$J,358.3,20981,1,4,0)
 ;;=4^F80.2
 ;;^UTILITY(U,$J,358.3,20981,2)
 ;;=^331959
 ;;^UTILITY(U,$J,358.3,20982,0)
 ;;=R47.89^^68^856^7
 ;;^UTILITY(U,$J,358.3,20982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20982,1,3,0)
 ;;=3^Speech disturbances NEC
 ;;^UTILITY(U,$J,358.3,20982,1,4,0)
 ;;=4^R47.89
 ;;^UTILITY(U,$J,358.3,20982,2)
 ;;=^5019493
 ;;^UTILITY(U,$J,358.3,20983,0)
 ;;=R49.8^^68^856^8
 ;;^UTILITY(U,$J,358.3,20983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20983,1,3,0)
 ;;=3^Voice and resonance disorders NEC
 ;;^UTILITY(U,$J,358.3,20983,1,4,0)
 ;;=4^R49.8
 ;;^UTILITY(U,$J,358.3,20983,2)
 ;;=^5019505
 ;;^UTILITY(U,$J,358.3,20984,0)
 ;;=I69.320^^68^856^3
 ;;^UTILITY(U,$J,358.3,20984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20984,1,3,0)
 ;;=3^Aphasia Following CVA
 ;;^UTILITY(U,$J,358.3,20984,1,4,0)
 ;;=4^I69.320
 ;;^UTILITY(U,$J,358.3,20984,2)
 ;;=^5007491
 ;;^UTILITY(U,$J,358.3,20985,0)
 ;;=Z44.011^^68^857^7
 ;;^UTILITY(U,$J,358.3,20985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20985,1,3,0)
 ;;=3^Fit/adjst of complete right artificial arm
 ;;^UTILITY(U,$J,358.3,20985,1,4,0)
 ;;=4^Z44.011
 ;;^UTILITY(U,$J,358.3,20985,2)
 ;;=^5062971
 ;;^UTILITY(U,$J,358.3,20986,0)
 ;;=Z44.012^^68^857^5
 ;;^UTILITY(U,$J,358.3,20986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20986,1,3,0)
 ;;=3^Fit/adjst of complete left artificial arm
 ;;^UTILITY(U,$J,358.3,20986,1,4,0)
 ;;=4^Z44.012
 ;;^UTILITY(U,$J,358.3,20986,2)
 ;;=^5062972
 ;;^UTILITY(U,$J,358.3,20987,0)
 ;;=Z44.021^^68^857^12
 ;;^UTILITY(U,$J,358.3,20987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20987,1,3,0)
 ;;=3^Fit/adjst of partial artificial right arm
 ;;^UTILITY(U,$J,358.3,20987,1,4,0)
 ;;=4^Z44.021
 ;;^UTILITY(U,$J,358.3,20987,2)
 ;;=^5062974
 ;;^UTILITY(U,$J,358.3,20988,0)
 ;;=Z44.022^^68^857^10
 ;;^UTILITY(U,$J,358.3,20988,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20988,1,3,0)
 ;;=3^Fit/adjst of partial artificial left arm
 ;;^UTILITY(U,$J,358.3,20988,1,4,0)
 ;;=4^Z44.022
 ;;^UTILITY(U,$J,358.3,20988,2)
 ;;=^5062975
 ;;^UTILITY(U,$J,358.3,20989,0)
 ;;=Z44.111^^68^857^8
 ;;^UTILITY(U,$J,358.3,20989,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20989,1,3,0)
 ;;=3^Fit/adjst of complete right artificial leg
 ;;^UTILITY(U,$J,358.3,20989,1,4,0)
 ;;=4^Z44.111
 ;;^UTILITY(U,$J,358.3,20989,2)
 ;;=^5062980
 ;;^UTILITY(U,$J,358.3,20990,0)
 ;;=Z44.112^^68^857^6
 ;;^UTILITY(U,$J,358.3,20990,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20990,1,3,0)
 ;;=3^Fit/adjst of complete left artificial leg
 ;;^UTILITY(U,$J,358.3,20990,1,4,0)
 ;;=4^Z44.112
 ;;^UTILITY(U,$J,358.3,20990,2)
 ;;=^5062981
 ;;^UTILITY(U,$J,358.3,20991,0)
 ;;=Z44.121^^68^857^13
 ;;^UTILITY(U,$J,358.3,20991,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20991,1,3,0)
 ;;=3^Fit/adjst of partial artificial right leg
 ;;^UTILITY(U,$J,358.3,20991,1,4,0)
 ;;=4^Z44.121
 ;;^UTILITY(U,$J,358.3,20991,2)
 ;;=^5062983
 ;;^UTILITY(U,$J,358.3,20992,0)
 ;;=Z44.122^^68^857^11
 ;;^UTILITY(U,$J,358.3,20992,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20992,1,3,0)
 ;;=3^Fit/adjst of partial artificial left leg
 ;;^UTILITY(U,$J,358.3,20992,1,4,0)
 ;;=4^Z44.122
 ;;^UTILITY(U,$J,358.3,20992,2)
 ;;=^5062984
 ;;^UTILITY(U,$J,358.3,20993,0)
 ;;=Z44.8^^68^857^9
 ;;^UTILITY(U,$J,358.3,20993,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20993,1,3,0)
 ;;=3^Fit/adjst of external prosthetic devices
 ;;^UTILITY(U,$J,358.3,20993,1,4,0)
 ;;=4^Z44.8
 ;;^UTILITY(U,$J,358.3,20993,2)
 ;;=^5062992
 ;;^UTILITY(U,$J,358.3,20994,0)
 ;;=Z44.9^^68^857^14
 ;;^UTILITY(U,$J,358.3,20994,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20994,1,3,0)
 ;;=3^Fit/adjst of unsp external prosthetic device
 ;;^UTILITY(U,$J,358.3,20994,1,4,0)
 ;;=4^Z44.9
 ;;^UTILITY(U,$J,358.3,20994,2)
 ;;=^5062993
 ;;^UTILITY(U,$J,358.3,20995,0)
 ;;=Z47.89^^68^857^3
 ;;^UTILITY(U,$J,358.3,20995,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20995,1,3,0)
 ;;=3^Aftercare,Orthopedic NEC
 ;;^UTILITY(U,$J,358.3,20995,1,4,0)
 ;;=4^Z47.89
 ;;^UTILITY(U,$J,358.3,20995,2)
 ;;=^5063032
 ;;^UTILITY(U,$J,358.3,20996,0)
 ;;=Z51.89^^68^857^4
 ;;^UTILITY(U,$J,358.3,20996,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20996,1,3,0)
 ;;=3^Aftercare,Specified NEC
 ;;^UTILITY(U,$J,358.3,20996,1,4,0)
 ;;=4^Z51.89
 ;;^UTILITY(U,$J,358.3,20996,2)
 ;;=^5063065
 ;;^UTILITY(U,$J,358.3,20997,0)
 ;;=Z47.1^^68^857^2
 ;;^UTILITY(U,$J,358.3,20997,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20997,1,3,0)
 ;;=3^Aftercare,Joint Replacement
 ;;^UTILITY(U,$J,358.3,20997,1,4,0)
 ;;=4^Z47.1
 ;;^UTILITY(U,$J,358.3,20997,2)
 ;;=^5063025
 ;;^UTILITY(U,$J,358.3,20998,0)
 ;;=Z47.81^^68^857^1
 ;;^UTILITY(U,$J,358.3,20998,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20998,1,3,0)
 ;;=3^Aftercare,Amputation
 ;;^UTILITY(U,$J,358.3,20998,1,4,0)
 ;;=4^Z47.81
 ;;^UTILITY(U,$J,358.3,20998,2)
 ;;=^5063030
 ;;^UTILITY(U,$J,358.3,20999,0)
 ;;=R45.851^^68^858^3
 ;;^UTILITY(U,$J,358.3,20999,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20999,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,20999,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,20999,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,21000,0)
 ;;=T14.91XA^^68^858^4
 ;;^UTILITY(U,$J,358.3,21000,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21000,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,21000,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,21000,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,21001,0)
 ;;=T14.91XD^^68^858^6
 ;;^UTILITY(U,$J,358.3,21001,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21001,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,21001,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,21001,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,21002,0)
 ;;=T14.91XS^^68^858^5
 ;;^UTILITY(U,$J,358.3,21002,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21002,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,21002,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,21002,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,21003,0)
 ;;=Z91.51^^68^858^2
 ;;^UTILITY(U,$J,358.3,21003,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21003,1,3,0)
 ;;=3^Personal Hx of Suicidal Behavior
 ;;^UTILITY(U,$J,358.3,21003,1,4,0)
 ;;=4^Z91.51
 ;;^UTILITY(U,$J,358.3,21003,2)
 ;;=^5161317
 ;;^UTILITY(U,$J,358.3,21004,0)
 ;;=Z91.52^^68^858^1
 ;;^UTILITY(U,$J,358.3,21004,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21004,1,3,0)
 ;;=3^Personal Hx of Non-Suicidal Self-Harm
 ;;^UTILITY(U,$J,358.3,21004,1,4,0)
 ;;=4^Z91.52
 ;;^UTILITY(U,$J,358.3,21004,2)
 ;;=^5161318
 ;;^UTILITY(U,$J,358.3,21005,0)
 ;;=M50.11^^68^859^5
 ;;^UTILITY(U,$J,358.3,21005,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21005,1,3,0)
 ;;=3^Cervical DDD w/ Radiculopathy,C2-C4
 ;;^UTILITY(U,$J,358.3,21005,1,4,0)
 ;;=4^M50.11
 ;;^UTILITY(U,$J,358.3,21005,2)
 ;;=^5012220
 ;;^UTILITY(U,$J,358.3,21006,0)
 ;;=M50.120^^68^859^6
 ;;^UTILITY(U,$J,358.3,21006,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21006,1,3,0)
 ;;=3^Cervical DDD w/ Radiculopathy,C4-C7
 ;;^UTILITY(U,$J,358.3,21006,1,4,0)
 ;;=4^M50.120
 ;;^UTILITY(U,$J,358.3,21006,2)
 ;;=^5138812
 ;;^UTILITY(U,$J,358.3,21007,0)
 ;;=M50.13^^68^859^7
 ;;^UTILITY(U,$J,358.3,21007,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21007,1,3,0)
 ;;=3^Cervical DDD w/ Radiculopathy,C7-C11
 ;;^UTILITY(U,$J,358.3,21007,1,4,0)
 ;;=4^M50.13
 ;;^UTILITY(U,$J,358.3,21007,2)
 ;;=^5012222
 ;;^UTILITY(U,$J,358.3,21008,0)
 ;;=M50.31^^68^859^8
 ;;^UTILITY(U,$J,358.3,21008,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21008,1,3,0)
 ;;=3^Cervical DDD w/o Radiculopathy,C2-C4
 ;;^UTILITY(U,$J,358.3,21008,1,4,0)
 ;;=4^M50.31
 ;;^UTILITY(U,$J,358.3,21008,2)
 ;;=^5012228
 ;;^UTILITY(U,$J,358.3,21009,0)
 ;;=M50.320^^68^859^9
 ;;^UTILITY(U,$J,358.3,21009,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21009,1,3,0)
 ;;=3^Cervical DDD w/o Radiculopathy,C4-C7
 ;;^UTILITY(U,$J,358.3,21009,1,4,0)
 ;;=4^M50.320
 ;;^UTILITY(U,$J,358.3,21009,2)
 ;;=^5138820
 ;;^UTILITY(U,$J,358.3,21010,0)
 ;;=M50.33^^68^859^10
 ;;^UTILITY(U,$J,358.3,21010,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21010,1,3,0)
 ;;=3^Cervical DDD w/o Radiculopathy,C7-C11
 ;;^UTILITY(U,$J,358.3,21010,1,4,0)
 ;;=4^M50.33
 ;;^UTILITY(U,$J,358.3,21010,2)
 ;;=^5012230
 ;;^UTILITY(U,$J,358.3,21011,0)
 ;;=M50.01^^68^859^1
 ;;^UTILITY(U,$J,358.3,21011,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21011,1,3,0)
 ;;=3^Cervical DDD w/ Myelopathy,C2-C4
 ;;^UTILITY(U,$J,358.3,21011,1,4,0)
 ;;=4^M50.01
 ;;^UTILITY(U,$J,358.3,21011,2)
 ;;=^5012216
 ;;^UTILITY(U,$J,358.3,21012,0)
 ;;=M50.021^^68^859^2
 ;;^UTILITY(U,$J,358.3,21012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21012,1,3,0)
 ;;=3^Cervical DDD w/ Myelopathy,C4-C5
 ;;^UTILITY(U,$J,358.3,21012,1,4,0)
 ;;=4^M50.021
 ;;^UTILITY(U,$J,358.3,21012,2)
 ;;=^5138809
 ;;^UTILITY(U,$J,358.3,21013,0)
 ;;=M50.022^^68^859^3
 ;;^UTILITY(U,$J,358.3,21013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21013,1,3,0)
 ;;=3^Cervical DDD w/ Myelopathy,C5-C6
 ;;^UTILITY(U,$J,358.3,21013,1,4,0)
 ;;=4^M50.022
 ;;^UTILITY(U,$J,358.3,21013,2)
 ;;=^5138810
 ;;^UTILITY(U,$J,358.3,21014,0)
 ;;=M50.023^^68^859^4
 ;;^UTILITY(U,$J,358.3,21014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21014,1,3,0)
 ;;=3^Cervical DDD w/ Myelopathy,C6-C7
 ;;^UTILITY(U,$J,358.3,21014,1,4,0)
 ;;=4^M50.023
 ;;^UTILITY(U,$J,358.3,21014,2)
 ;;=^5138811
 ;;^UTILITY(U,$J,358.3,21015,0)
 ;;=M43.16^^68^860^6
 ;;^UTILITY(U,$J,358.3,21015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21015,1,3,0)
 ;;=3^Lumbar Lithesis
 ;;^UTILITY(U,$J,358.3,21015,1,4,0)
 ;;=4^M43.16
 ;;^UTILITY(U,$J,358.3,21015,2)
 ;;=^5011927
 ;;^UTILITY(U,$J,358.3,21016,0)
 ;;=M43.17^^68^860^2
 ;;^UTILITY(U,$J,358.3,21016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21016,1,3,0)
 ;;=3^L-S Lithesis
 ;;^UTILITY(U,$J,358.3,21016,1,4,0)
 ;;=4^M43.17
 ;;^UTILITY(U,$J,358.3,21016,2)
 ;;=^5011928
 ;;^UTILITY(U,$J,358.3,21017,0)
 ;;=M51.16^^68^860^4
 ;;^UTILITY(U,$J,358.3,21017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21017,1,3,0)
 ;;=3^Lumbar DDD w/ Radiculopathy
 ;;^UTILITY(U,$J,358.3,21017,1,4,0)
 ;;=4^M51.16