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