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

IBDEI085.m

Go to the documentation of this file.
IBDEI085 ; ; 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,19843,1,3,0)
 ;;=3^Skin sensation disturbances,unspec
 ;;^UTILITY(U,$J,358.3,19843,1,4,0)
 ;;=4^R20.9
 ;;^UTILITY(U,$J,358.3,19843,2)
 ;;=^5019282
 ;;^UTILITY(U,$J,358.3,19844,0)
 ;;=G82.50^^65^804^66
 ;;^UTILITY(U,$J,358.3,19844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19844,1,3,0)
 ;;=3^Quadriplegia, unspecified
 ;;^UTILITY(U,$J,358.3,19844,1,4,0)
 ;;=4^G82.50
 ;;^UTILITY(U,$J,358.3,19844,2)
 ;;=^5004128
 ;;^UTILITY(U,$J,358.3,19845,0)
 ;;=G47.9^^65^804^71
 ;;^UTILITY(U,$J,358.3,19845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19845,1,3,0)
 ;;=3^Sleep disorder, unspecified
 ;;^UTILITY(U,$J,358.3,19845,1,4,0)
 ;;=4^G47.9
 ;;^UTILITY(U,$J,358.3,19845,2)
 ;;=^5003990
 ;;^UTILITY(U,$J,358.3,19846,0)
 ;;=G44.209^^65^804^73
 ;;^UTILITY(U,$J,358.3,19846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19846,1,3,0)
 ;;=3^Tension-type headache, unspecified, not intractable
 ;;^UTILITY(U,$J,358.3,19846,1,4,0)
 ;;=4^G44.209
 ;;^UTILITY(U,$J,358.3,19846,2)
 ;;=^5003936
 ;;^UTILITY(U,$J,358.3,19847,0)
 ;;=R32.^^65^804^79
 ;;^UTILITY(U,$J,358.3,19847,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19847,1,3,0)
 ;;=3^Urinary incontinence,unspec
 ;;^UTILITY(U,$J,358.3,19847,1,4,0)
 ;;=4^R32.
 ;;^UTILITY(U,$J,358.3,19847,2)
 ;;=^5019329
 ;;^UTILITY(U,$J,358.3,19848,0)
 ;;=R53.1^^65^804^80
 ;;^UTILITY(U,$J,358.3,19848,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19848,1,3,0)
 ;;=3^Weakness
 ;;^UTILITY(U,$J,358.3,19848,1,4,0)
 ;;=4^R53.1
 ;;^UTILITY(U,$J,358.3,19848,2)
 ;;=^5019516
 ;;^UTILITY(U,$J,358.3,19849,0)
 ;;=G47.63^^65^804^3
 ;;^UTILITY(U,$J,358.3,19849,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19849,1,3,0)
 ;;=3^Bruxism
 ;;^UTILITY(U,$J,358.3,19849,1,4,0)
 ;;=4^G47.63
 ;;^UTILITY(U,$J,358.3,19849,2)
 ;;=^332783
 ;;^UTILITY(U,$J,358.3,19850,0)
 ;;=G56.01^^65^804^8
 ;;^UTILITY(U,$J,358.3,19850,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19850,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,19850,1,4,0)
 ;;=4^G56.01
 ;;^UTILITY(U,$J,358.3,19850,2)
 ;;=^5004018
 ;;^UTILITY(U,$J,358.3,19851,0)
 ;;=G56.02^^65^804^7
 ;;^UTILITY(U,$J,358.3,19851,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19851,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,19851,1,4,0)
 ;;=4^G56.02
 ;;^UTILITY(U,$J,358.3,19851,2)
 ;;=^5004019
 ;;^UTILITY(U,$J,358.3,19852,0)
 ;;=S06.0X0A^^65^804^10
 ;;^UTILITY(U,$J,358.3,19852,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19852,1,3,0)
 ;;=3^Concussion,Acute
 ;;^UTILITY(U,$J,358.3,19852,1,4,0)
 ;;=4^S06.0X0A
 ;;^UTILITY(U,$J,358.3,19852,2)
 ;;=^5020666
 ;;^UTILITY(U,$J,358.3,19853,0)
 ;;=S06.0X0S^^65^804^11
 ;;^UTILITY(U,$J,358.3,19853,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19853,1,3,0)
 ;;=3^Concussion,Sequela
 ;;^UTILITY(U,$J,358.3,19853,1,4,0)
 ;;=4^S06.0X0S
 ;;^UTILITY(U,$J,358.3,19853,2)
 ;;=^5020668
 ;;^UTILITY(U,$J,358.3,19854,0)
 ;;=R42.^^65^804^13
 ;;^UTILITY(U,$J,358.3,19854,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19854,1,3,0)
 ;;=3^Dizziness
 ;;^UTILITY(U,$J,358.3,19854,1,4,0)
 ;;=4^R42.
 ;;^UTILITY(U,$J,358.3,19854,2)
 ;;=^5019450
 ;;^UTILITY(U,$J,358.3,19855,0)
 ;;=G57.11^^65^804^26
 ;;^UTILITY(U,$J,358.3,19855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19855,1,3,0)
 ;;=3^Meralgia Paresthetica,Right Lower Limb
 ;;^UTILITY(U,$J,358.3,19855,1,4,0)
 ;;=4^G57.11
 ;;^UTILITY(U,$J,358.3,19855,2)
 ;;=^5004042
 ;;^UTILITY(U,$J,358.3,19856,0)
 ;;=G57.12^^65^804^25
 ;;^UTILITY(U,$J,358.3,19856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19856,1,3,0)
 ;;=3^Meralgia Paresthetica,Left Lower Limb
 ;;^UTILITY(U,$J,358.3,19856,1,4,0)
 ;;=4^G57.12
 ;;^UTILITY(U,$J,358.3,19856,2)
 ;;=^5004043
 ;;^UTILITY(U,$J,358.3,19857,0)
 ;;=G43.901^^65^804^27
 ;;^UTILITY(U,$J,358.3,19857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19857,1,3,0)
 ;;=3^Migraine w/ Status Migrainosus
 ;;^UTILITY(U,$J,358.3,19857,1,4,0)
 ;;=4^G43.901
 ;;^UTILITY(U,$J,358.3,19857,2)
 ;;=^5003908
 ;;^UTILITY(U,$J,358.3,19858,0)
 ;;=M79.601^^65^804^42
 ;;^UTILITY(U,$J,358.3,19858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19858,1,3,0)
 ;;=3^Pain,Arm,Right
 ;;^UTILITY(U,$J,358.3,19858,1,4,0)
 ;;=4^M79.601
 ;;^UTILITY(U,$J,358.3,19858,2)
 ;;=^5013325
 ;;^UTILITY(U,$J,358.3,19859,0)
 ;;=M79.602^^65^804^41
 ;;^UTILITY(U,$J,358.3,19859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19859,1,3,0)
 ;;=3^Pain,Arm,Left
 ;;^UTILITY(U,$J,358.3,19859,1,4,0)
 ;;=4^M79.602
 ;;^UTILITY(U,$J,358.3,19859,2)
 ;;=^5013326
 ;;^UTILITY(U,$J,358.3,19860,0)
 ;;=M25.511^^65^804^56
 ;;^UTILITY(U,$J,358.3,19860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19860,1,3,0)
 ;;=3^Pain,Shoulder,Right
 ;;^UTILITY(U,$J,358.3,19860,1,4,0)
 ;;=4^M25.511
 ;;^UTILITY(U,$J,358.3,19860,2)
 ;;=^5011602
 ;;^UTILITY(U,$J,358.3,19861,0)
 ;;=M25.512^^65^804^55
 ;;^UTILITY(U,$J,358.3,19861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19861,1,3,0)
 ;;=3^Pain,Shoulder,Left
 ;;^UTILITY(U,$J,358.3,19861,1,4,0)
 ;;=4^M25.512
 ;;^UTILITY(U,$J,358.3,19861,2)
 ;;=^5011603
 ;;^UTILITY(U,$J,358.3,19862,0)
 ;;=M25.521^^65^804^44
 ;;^UTILITY(U,$J,358.3,19862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19862,1,3,0)
 ;;=3^Pain,Elbow,Right
 ;;^UTILITY(U,$J,358.3,19862,1,4,0)
 ;;=4^M25.521
 ;;^UTILITY(U,$J,358.3,19862,2)
 ;;=^5011605
 ;;^UTILITY(U,$J,358.3,19863,0)
 ;;=M25.522^^65^804^43
 ;;^UTILITY(U,$J,358.3,19863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19863,1,3,0)
 ;;=3^Pain,Elbow,Left
 ;;^UTILITY(U,$J,358.3,19863,1,4,0)
 ;;=4^M25.522
 ;;^UTILITY(U,$J,358.3,19863,2)
 ;;=^5011606
 ;;^UTILITY(U,$J,358.3,19864,0)
 ;;=M25.531^^65^804^58
 ;;^UTILITY(U,$J,358.3,19864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19864,1,3,0)
 ;;=3^Pain,Wrist,Right
 ;;^UTILITY(U,$J,358.3,19864,1,4,0)
 ;;=4^M25.531
 ;;^UTILITY(U,$J,358.3,19864,2)
 ;;=^5011608
 ;;^UTILITY(U,$J,358.3,19865,0)
 ;;=M25.532^^65^804^57
 ;;^UTILITY(U,$J,358.3,19865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19865,1,3,0)
 ;;=3^Pain,Wrist,Left
 ;;^UTILITY(U,$J,358.3,19865,1,4,0)
 ;;=4^M25.532
 ;;^UTILITY(U,$J,358.3,19865,2)
 ;;=^5011609
 ;;^UTILITY(U,$J,358.3,19866,0)
 ;;=M79.641^^65^804^48
 ;;^UTILITY(U,$J,358.3,19866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19866,1,3,0)
 ;;=3^Pain,Hand,Right
 ;;^UTILITY(U,$J,358.3,19866,1,4,0)
 ;;=4^M79.641
 ;;^UTILITY(U,$J,358.3,19866,2)
 ;;=^5013338
 ;;^UTILITY(U,$J,358.3,19867,0)
 ;;=M79.642^^65^804^47
 ;;^UTILITY(U,$J,358.3,19867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19867,1,3,0)
 ;;=3^Pain,Hand,Left
 ;;^UTILITY(U,$J,358.3,19867,1,4,0)
 ;;=4^M79.642
 ;;^UTILITY(U,$J,358.3,19867,2)
 ;;=^5013339
 ;;^UTILITY(U,$J,358.3,19868,0)
 ;;=M79.604^^65^804^54
 ;;^UTILITY(U,$J,358.3,19868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19868,1,3,0)
 ;;=3^Pain,Leg,Right
 ;;^UTILITY(U,$J,358.3,19868,1,4,0)
 ;;=4^M79.604
 ;;^UTILITY(U,$J,358.3,19868,2)
 ;;=^5013328
 ;;^UTILITY(U,$J,358.3,19869,0)
 ;;=M79.605^^65^804^53
 ;;^UTILITY(U,$J,358.3,19869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19869,1,3,0)
 ;;=3^Pain,Leg,Left
 ;;^UTILITY(U,$J,358.3,19869,1,4,0)
 ;;=4^M79.605
 ;;^UTILITY(U,$J,358.3,19869,2)
 ;;=^5013329
 ;;^UTILITY(U,$J,358.3,19870,0)
 ;;=M25.551^^65^804^50
 ;;^UTILITY(U,$J,358.3,19870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19870,1,3,0)
 ;;=3^Pain,Hip,Right
 ;;^UTILITY(U,$J,358.3,19870,1,4,0)
 ;;=4^M25.551
 ;;^UTILITY(U,$J,358.3,19870,2)
 ;;=^5011611
 ;;^UTILITY(U,$J,358.3,19871,0)
 ;;=M25.552^^65^804^49
 ;;^UTILITY(U,$J,358.3,19871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19871,1,3,0)
 ;;=3^Pain,Hip,Left
 ;;^UTILITY(U,$J,358.3,19871,1,4,0)
 ;;=4^M25.552
 ;;^UTILITY(U,$J,358.3,19871,2)
 ;;=^5011612
 ;;^UTILITY(U,$J,358.3,19872,0)
 ;;=M25.561^^65^804^52
 ;;^UTILITY(U,$J,358.3,19872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19872,1,3,0)
 ;;=3^Pain,Knee,Right
 ;;^UTILITY(U,$J,358.3,19872,1,4,0)
 ;;=4^M25.561
 ;;^UTILITY(U,$J,358.3,19872,2)
 ;;=^5011614
 ;;^UTILITY(U,$J,358.3,19873,0)
 ;;=M25.562^^65^804^51
 ;;^UTILITY(U,$J,358.3,19873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19873,1,3,0)
 ;;=3^Pain,Knee,Left
 ;;^UTILITY(U,$J,358.3,19873,1,4,0)
 ;;=4^M25.562
 ;;^UTILITY(U,$J,358.3,19873,2)
 ;;=^5011615
 ;;^UTILITY(U,$J,358.3,19874,0)
 ;;=M25.571^^65^804^40
 ;;^UTILITY(U,$J,358.3,19874,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19874,1,3,0)
 ;;=3^Pain,Ankle,Right
 ;;^UTILITY(U,$J,358.3,19874,1,4,0)
 ;;=4^M25.571
 ;;^UTILITY(U,$J,358.3,19874,2)
 ;;=^5011617
 ;;^UTILITY(U,$J,358.3,19875,0)
 ;;=M25.572^^65^804^39
 ;;^UTILITY(U,$J,358.3,19875,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19875,1,3,0)
 ;;=3^Pain,Ankle,Left
 ;;^UTILITY(U,$J,358.3,19875,1,4,0)
 ;;=4^M25.572
 ;;^UTILITY(U,$J,358.3,19875,2)
 ;;=^5011618
 ;;^UTILITY(U,$J,358.3,19876,0)
 ;;=M79.671^^65^804^46
 ;;^UTILITY(U,$J,358.3,19876,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19876,1,3,0)
 ;;=3^Pain,Foot,Right
 ;;^UTILITY(U,$J,358.3,19876,1,4,0)
 ;;=4^M79.671
 ;;^UTILITY(U,$J,358.3,19876,2)
 ;;=^5013350
 ;;^UTILITY(U,$J,358.3,19877,0)
 ;;=M79.672^^65^804^45
 ;;^UTILITY(U,$J,358.3,19877,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19877,1,3,0)
 ;;=3^Pain,Foot,Left
 ;;^UTILITY(U,$J,358.3,19877,1,4,0)
 ;;=4^M79.672
 ;;^UTILITY(U,$J,358.3,19877,2)
 ;;=^5013351
 ;;^UTILITY(U,$J,358.3,19878,0)
 ;;=M54.31^^65^804^68
 ;;^UTILITY(U,$J,358.3,19878,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19878,1,3,0)
 ;;=3^Sciatica,Right
 ;;^UTILITY(U,$J,358.3,19878,1,4,0)
 ;;=4^M54.31
 ;;^UTILITY(U,$J,358.3,19878,2)
 ;;=^5012306
 ;;^UTILITY(U,$J,358.3,19879,0)
 ;;=M54.32^^65^804^67
 ;;^UTILITY(U,$J,358.3,19879,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19879,1,3,0)
 ;;=3^Sciatica,Left
 ;;^UTILITY(U,$J,358.3,19879,1,4,0)
 ;;=4^M54.32
 ;;^UTILITY(U,$J,358.3,19879,2)
 ;;=^5012307
 ;;^UTILITY(U,$J,358.3,19880,0)
 ;;=G44.201^^65^804^72
 ;;^UTILITY(U,$J,358.3,19880,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19880,1,3,0)
 ;;=3^Tension Headache,Intractable
 ;;^UTILITY(U,$J,358.3,19880,1,4,0)
 ;;=4^G44.201
 ;;^UTILITY(U,$J,358.3,19880,2)
 ;;=^5003935
 ;;^UTILITY(U,$J,358.3,19881,0)
 ;;=G50.0^^65^804^78
 ;;^UTILITY(U,$J,358.3,19881,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19881,1,3,0)
 ;;=3^Trigeminal Neuralgia
 ;;^UTILITY(U,$J,358.3,19881,1,4,0)
 ;;=4^G50.0
 ;;^UTILITY(U,$J,358.3,19881,2)
 ;;=^121978
 ;;^UTILITY(U,$J,358.3,19882,0)
 ;;=M79.10^^65^804^30
 ;;^UTILITY(U,$J,358.3,19882,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19882,1,3,0)
 ;;=3^Myalga,Unspec Site
 ;;^UTILITY(U,$J,358.3,19882,1,4,0)
 ;;=4^M79.10
 ;;^UTILITY(U,$J,358.3,19882,2)
 ;;=^5157394
 ;;^UTILITY(U,$J,358.3,19883,0)
 ;;=M79.11^^65^804^32
 ;;^UTILITY(U,$J,358.3,19883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19883,1,3,0)
 ;;=3^Myalgia,Mastication Muscle
 ;;^UTILITY(U,$J,358.3,19883,1,4,0)
 ;;=4^M79.11
 ;;^UTILITY(U,$J,358.3,19883,2)
 ;;=^5157395
 ;;^UTILITY(U,$J,358.3,19884,0)
 ;;=M79.12^^65^804^31
 ;;^UTILITY(U,$J,358.3,19884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19884,1,3,0)
 ;;=3^Myalgia,Auxiliary Muscles,Head/Neck
 ;;^UTILITY(U,$J,358.3,19884,1,4,0)
 ;;=4^M79.12
 ;;^UTILITY(U,$J,358.3,19884,2)
 ;;=^5157396
 ;;^UTILITY(U,$J,358.3,19885,0)
 ;;=M79.18^^65^804^33
 ;;^UTILITY(U,$J,358.3,19885,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19885,1,3,0)
 ;;=3^Myalgia,Other Site
 ;;^UTILITY(U,$J,358.3,19885,1,4,0)
 ;;=4^M79.18
 ;;^UTILITY(U,$J,358.3,19885,2)
 ;;=^5157397
 ;;^UTILITY(U,$J,358.3,19886,0)
 ;;=R51.0^^65^804^20
 ;;^UTILITY(U,$J,358.3,19886,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19886,1,3,0)
 ;;=3^Headache w/ Orthostatic Component
 ;;^UTILITY(U,$J,358.3,19886,1,4,0)
 ;;=4^R51.0
 ;;^UTILITY(U,$J,358.3,19886,2)
 ;;=^5159305
 ;;^UTILITY(U,$J,358.3,19887,0)
 ;;=R51.9^^65^804^21
 ;;^UTILITY(U,$J,358.3,19887,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19887,1,3,0)
 ;;=3^Headache,Unspec
 ;;^UTILITY(U,$J,358.3,19887,1,4,0)
 ;;=4^R51.9
 ;;^UTILITY(U,$J,358.3,19887,2)
 ;;=^5159306
 ;;^UTILITY(U,$J,358.3,19888,0)
 ;;=T20.20XS^^65^804^4
 ;;^UTILITY(U,$J,358.3,19888,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19888,1,3,0)
 ;;=3^Burn 2nd Degree of Head,Face,Neck,Unspec Site,Sequela
 ;;^UTILITY(U,$J,358.3,19888,1,4,0)
 ;;=4^T20.20XS
 ;;^UTILITY(U,$J,358.3,19888,2)
 ;;=^5046707
 ;;^UTILITY(U,$J,358.3,19889,0)
 ;;=T20.30XS^^65^804^5
 ;;^UTILITY(U,$J,358.3,19889,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19889,1,3,0)
 ;;=3^Burn 3rd Degree of Head,Face,Neck,Unspec Site,Sequela
 ;;^UTILITY(U,$J,358.3,19889,1,4,0)
 ;;=4^T20.30XS
 ;;^UTILITY(U,$J,358.3,19889,2)
 ;;=^5046740
 ;;^UTILITY(U,$J,358.3,19890,0)
 ;;=Z47.1^^65^805^1
 ;;^UTILITY(U,$J,358.3,19890,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19890,1,3,0)
 ;;=3^Aftercare following joint replacement surgery
 ;;^UTILITY(U,$J,358.3,19890,1,4,0)
 ;;=4^Z47.1
 ;;^UTILITY(U,$J,358.3,19890,2)
 ;;=^5063025
 ;;^UTILITY(U,$J,358.3,19891,0)
 ;;=Z96.662^^65^805^2
 ;;^UTILITY(U,$J,358.3,19891,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19891,1,3,0)
 ;;=3^Presence of left artificial ankle joint
 ;;^UTILITY(U,$J,358.3,19891,1,4,0)
 ;;=4^Z96.662
 ;;^UTILITY(U,$J,358.3,19891,2)
 ;;=^5063710
 ;;^UTILITY(U,$J,358.3,19892,0)
 ;;=Z96.622^^65^805^3
 ;;^UTILITY(U,$J,358.3,19892,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19892,1,3,0)
 ;;=3^Presence of left artificial elbow joint
 ;;^UTILITY(U,$J,358.3,19892,1,4,0)
 ;;=4^Z96.622
 ;;^UTILITY(U,$J,358.3,19892,2)
 ;;=^5063696
 ;;^UTILITY(U,$J,358.3,19893,0)
 ;;=Z96.642^^65^805^4
 ;;^UTILITY(U,$J,358.3,19893,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19893,1,3,0)
 ;;=3^Presence of left artificial hip joint
 ;;^UTILITY(U,$J,358.3,19893,1,4,0)
 ;;=4^Z96.642
 ;;^UTILITY(U,$J,358.3,19893,2)
 ;;=^5063702
 ;;^UTILITY(U,$J,358.3,19894,0)
 ;;=Z96.652^^65^805^5
 ;;^UTILITY(U,$J,358.3,19894,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19894,1,3,0)
 ;;=3^Presence of left artificial knee joint
 ;;^UTILITY(U,$J,358.3,19894,1,4,0)
 ;;=4^Z96.652
 ;;^UTILITY(U,$J,358.3,19894,2)
 ;;=^5063706
 ;;^UTILITY(U,$J,358.3,19895,0)
 ;;=Z96.612^^65^805^6
 ;;^UTILITY(U,$J,358.3,19895,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19895,1,3,0)
 ;;=3^Presence of left artificial shoulder joint
 ;;^UTILITY(U,$J,358.3,19895,1,4,0)
 ;;=4^Z96.612
 ;;^UTILITY(U,$J,358.3,19895,2)
 ;;=^5063693
 ;;^UTILITY(U,$J,358.3,19896,0)
 ;;=Z96.632^^65^805^7
 ;;^UTILITY(U,$J,358.3,19896,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19896,1,3,0)
 ;;=3^Presence of left artificial wrist joint
 ;;^UTILITY(U,$J,358.3,19896,1,4,0)
 ;;=4^Z96.632
 ;;^UTILITY(U,$J,358.3,19896,2)
 ;;=^5063699
 ;;^UTILITY(U,$J,358.3,19897,0)
 ;;=Z96.60^^65^805^14
 ;;^UTILITY(U,$J,358.3,19897,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19897,1,3,0)
 ;;=3^Presence of unspecified orthopedic joint implant
 ;;^UTILITY(U,$J,358.3,19897,1,4,0)
 ;;=4^Z96.60
 ;;^UTILITY(U,$J,358.3,19897,2)
 ;;=^5063691
 ;;^UTILITY(U,$J,358.3,19898,0)
 ;;=Z96.661^^65^805^8
 ;;^UTILITY(U,$J,358.3,19898,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19898,1,3,0)
 ;;=3^Presence of right artificial ankle joint
 ;;^UTILITY(U,$J,358.3,19898,1,4,0)
 ;;=4^Z96.661
 ;;^UTILITY(U,$J,358.3,19898,2)
 ;;=^5063709
 ;;^UTILITY(U,$J,358.3,19899,0)
 ;;=Z96.621^^65^805^9
 ;;^UTILITY(U,$J,358.3,19899,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19899,1,3,0)
 ;;=3^Presence of right artificial elbow joint
 ;;^UTILITY(U,$J,358.3,19899,1,4,0)
 ;;=4^Z96.621
 ;;^UTILITY(U,$J,358.3,19899,2)
 ;;=^5063695
 ;;^UTILITY(U,$J,358.3,19900,0)
 ;;=Z96.641^^65^805^10
 ;;^UTILITY(U,$J,358.3,19900,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19900,1,3,0)
 ;;=3^Presence of right artificial hip joint
 ;;^UTILITY(U,$J,358.3,19900,1,4,0)
 ;;=4^Z96.641
 ;;^UTILITY(U,$J,358.3,19900,2)
 ;;=^5063701
 ;;^UTILITY(U,$J,358.3,19901,0)
 ;;=Z96.651^^65^805^11
 ;;^UTILITY(U,$J,358.3,19901,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19901,1,3,0)
 ;;=3^Presence of right artificial knee joint
 ;;^UTILITY(U,$J,358.3,19901,1,4,0)
 ;;=4^Z96.651
 ;;^UTILITY(U,$J,358.3,19901,2)
 ;;=^5063705
 ;;^UTILITY(U,$J,358.3,19902,0)
 ;;=Z96.611^^65^805^12
 ;;^UTILITY(U,$J,358.3,19902,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19902,1,3,0)
 ;;=3^Presence of right artificial shoulder joint
 ;;^UTILITY(U,$J,358.3,19902,1,4,0)
 ;;=4^Z96.611
 ;;^UTILITY(U,$J,358.3,19902,2)
 ;;=^5063692
 ;;^UTILITY(U,$J,358.3,19903,0)
 ;;=Z96.631^^65^805^13
 ;;^UTILITY(U,$J,358.3,19903,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19903,1,3,0)
 ;;=3^Presence of right artificial wrist joint
 ;;^UTILITY(U,$J,358.3,19903,1,4,0)
 ;;=4^Z96.631
 ;;^UTILITY(U,$J,358.3,19903,2)
 ;;=^5063698
 ;;^UTILITY(U,$J,358.3,19904,0)
 ;;=M05.772^^65^806^1
 ;;^UTILITY(U,$J,358.3,19904,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19904,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,19904,1,4,0)
 ;;=4^M05.772
 ;;^UTILITY(U,$J,358.3,19904,2)
 ;;=^5010020
 ;;^UTILITY(U,$J,358.3,19905,0)
 ;;=M05.722^^65^806^2
 ;;^UTILITY(U,$J,358.3,19905,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19905,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Elbow
 ;;^UTILITY(U,$J,358.3,19905,1,4,0)
 ;;=4^M05.722
 ;;^UTILITY(U,$J,358.3,19905,2)
 ;;=^5010005
 ;;^UTILITY(U,$J,358.3,19906,0)
 ;;=M05.742^^65^806^3
 ;;^UTILITY(U,$J,358.3,19906,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19906,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Hand
 ;;^UTILITY(U,$J,358.3,19906,1,4,0)
 ;;=4^M05.742
 ;;^UTILITY(U,$J,358.3,19906,2)
 ;;=^5010011
 ;;^UTILITY(U,$J,358.3,19907,0)
 ;;=M05.752^^65^806^4
 ;;^UTILITY(U,$J,358.3,19907,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19907,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Hip
 ;;^UTILITY(U,$J,358.3,19907,1,4,0)
 ;;=4^M05.752
 ;;^UTILITY(U,$J,358.3,19907,2)
 ;;=^5010014
 ;;^UTILITY(U,$J,358.3,19908,0)
 ;;=M05.752^^65^806^5
 ;;^UTILITY(U,$J,358.3,19908,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19908,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Hip
 ;;^UTILITY(U,$J,358.3,19908,1,4,0)
 ;;=4^M05.752
 ;;^UTILITY(U,$J,358.3,19908,2)
 ;;=^5010014
 ;;^UTILITY(U,$J,358.3,19909,0)
 ;;=M05.762^^65^806^6
 ;;^UTILITY(U,$J,358.3,19909,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19909,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Knee
 ;;^UTILITY(U,$J,358.3,19909,1,4,0)
 ;;=4^M05.762
 ;;^UTILITY(U,$J,358.3,19909,2)
 ;;=^5010017
 ;;^UTILITY(U,$J,358.3,19910,0)
 ;;=M05.712^^65^806^7
 ;;^UTILITY(U,$J,358.3,19910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19910,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,19910,1,4,0)
 ;;=4^M05.712
 ;;^UTILITY(U,$J,358.3,19910,2)
 ;;=^5010002
 ;;^UTILITY(U,$J,358.3,19911,0)
 ;;=M05.732^^65^806^8
 ;;^UTILITY(U,$J,358.3,19911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19911,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Lt Wrist
 ;;^UTILITY(U,$J,358.3,19911,1,4,0)
 ;;=4^M05.732
 ;;^UTILITY(U,$J,358.3,19911,2)
 ;;=^5010008
 ;;^UTILITY(U,$J,358.3,19912,0)
 ;;=M05.79^^65^806^9
 ;;^UTILITY(U,$J,358.3,19912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19912,1,3,0)
 ;;=3^Rheum Arthritis w/ Rheum Factor,Mult Sites