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

IBDEI05N.m

Go to the documentation of this file.
IBDEI05N ; ; 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,13638,1,3,0)
 ;;=3^Sciatica,Left Side
 ;;^UTILITY(U,$J,358.3,13638,1,4,0)
 ;;=4^M54.32
 ;;^UTILITY(U,$J,358.3,13638,2)
 ;;=^5012307
 ;;^UTILITY(U,$J,358.3,13639,0)
 ;;=M54.9^^53^587^8
 ;;^UTILITY(U,$J,358.3,13639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13639,1,3,0)
 ;;=3^Dorsalgia,Unspec
 ;;^UTILITY(U,$J,358.3,13639,1,4,0)
 ;;=4^M54.9
 ;;^UTILITY(U,$J,358.3,13639,2)
 ;;=^5012314
 ;;^UTILITY(U,$J,358.3,13640,0)
 ;;=M54.89^^53^587^7
 ;;^UTILITY(U,$J,358.3,13640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13640,1,3,0)
 ;;=3^Dorsalgia NEC
 ;;^UTILITY(U,$J,358.3,13640,1,4,0)
 ;;=4^M54.89
 ;;^UTILITY(U,$J,358.3,13640,2)
 ;;=^5012313
 ;;^UTILITY(U,$J,358.3,13641,0)
 ;;=M75.51^^53^587^5
 ;;^UTILITY(U,$J,358.3,13641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13641,1,3,0)
 ;;=3^Bursitis,Right Shoulder
 ;;^UTILITY(U,$J,358.3,13641,1,4,0)
 ;;=4^M75.51
 ;;^UTILITY(U,$J,358.3,13641,2)
 ;;=^5133690
 ;;^UTILITY(U,$J,358.3,13642,0)
 ;;=M75.52^^53^587^4
 ;;^UTILITY(U,$J,358.3,13642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13642,1,3,0)
 ;;=3^Bursitis,Left Shoulder
 ;;^UTILITY(U,$J,358.3,13642,1,4,0)
 ;;=4^M75.52
 ;;^UTILITY(U,$J,358.3,13642,2)
 ;;=^5133691
 ;;^UTILITY(U,$J,358.3,13643,0)
 ;;=M75.101^^53^587^53
 ;;^UTILITY(U,$J,358.3,13643,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13643,1,3,0)
 ;;=3^Rotator Cuff Tear/Rupture,Right Shoulder
 ;;^UTILITY(U,$J,358.3,13643,1,4,0)
 ;;=4^M75.101
 ;;^UTILITY(U,$J,358.3,13643,2)
 ;;=^5013242
 ;;^UTILITY(U,$J,358.3,13644,0)
 ;;=M75.102^^53^587^52
 ;;^UTILITY(U,$J,358.3,13644,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13644,1,3,0)
 ;;=3^Rotator Cuff Tear/Rupture,Left Shoulder
 ;;^UTILITY(U,$J,358.3,13644,1,4,0)
 ;;=4^M75.102
 ;;^UTILITY(U,$J,358.3,13644,2)
 ;;=^5013243
 ;;^UTILITY(U,$J,358.3,13645,0)
 ;;=M79.7^^53^587^10
 ;;^UTILITY(U,$J,358.3,13645,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13645,1,3,0)
 ;;=3^Fibromyalgia
 ;;^UTILITY(U,$J,358.3,13645,1,4,0)
 ;;=4^M79.7
 ;;^UTILITY(U,$J,358.3,13645,2)
 ;;=^46261
 ;;^UTILITY(U,$J,358.3,13646,0)
 ;;=M54.10^^53^587^49
 ;;^UTILITY(U,$J,358.3,13646,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13646,1,3,0)
 ;;=3^Radiculopathy,Site Unspec
 ;;^UTILITY(U,$J,358.3,13646,1,4,0)
 ;;=4^M54.10
 ;;^UTILITY(U,$J,358.3,13646,2)
 ;;=^5012295
 ;;^UTILITY(U,$J,358.3,13647,0)
 ;;=M79.2^^53^587^17
 ;;^UTILITY(U,$J,358.3,13647,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13647,1,3,0)
 ;;=3^Neuralgia and Neuritis,Unspec
 ;;^UTILITY(U,$J,358.3,13647,1,4,0)
 ;;=4^M79.2
 ;;^UTILITY(U,$J,358.3,13647,2)
 ;;=^5013322
 ;;^UTILITY(U,$J,358.3,13648,0)
 ;;=M79.89^^53^587^72
 ;;^UTILITY(U,$J,358.3,13648,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13648,1,3,0)
 ;;=3^Soft Tissue Disorders
 ;;^UTILITY(U,$J,358.3,13648,1,4,0)
 ;;=4^M79.89
 ;;^UTILITY(U,$J,358.3,13648,2)
 ;;=^5013357
 ;;^UTILITY(U,$J,358.3,13649,0)
 ;;=M88.9^^53^587^18
 ;;^UTILITY(U,$J,358.3,13649,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13649,1,3,0)
 ;;=3^Osteitis Deformans,Unspec Bone
 ;;^UTILITY(U,$J,358.3,13649,1,4,0)
 ;;=4^M88.9
 ;;^UTILITY(U,$J,358.3,13649,2)
 ;;=^5014899
 ;;^UTILITY(U,$J,358.3,13650,0)
 ;;=M81.0^^53^587^21
 ;;^UTILITY(U,$J,358.3,13650,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13650,1,3,0)
 ;;=3^Osteoporosis,Age-Related w/o Current Fx
 ;;^UTILITY(U,$J,358.3,13650,1,4,0)
 ;;=4^M81.0
 ;;^UTILITY(U,$J,358.3,13650,2)
 ;;=^5013555
 ;;^UTILITY(U,$J,358.3,13651,0)
 ;;=M84.40XA^^53^587^23
 ;;^UTILITY(U,$J,358.3,13651,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13651,1,3,0)
 ;;=3^Patholog Fx,Unspec Site,Init Encntr for Fx
 ;;^UTILITY(U,$J,358.3,13651,1,4,0)
 ;;=4^M84.40XA
 ;;^UTILITY(U,$J,358.3,13651,2)
 ;;=^5013794
 ;;^UTILITY(U,$J,358.3,13652,0)
 ;;=M84.40XD^^53^587^24
 ;;^UTILITY(U,$J,358.3,13652,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13652,1,3,0)
 ;;=3^Patholog Fx,Unspec Site,Subsq Encntr for Fx w/ Routine Healing
 ;;^UTILITY(U,$J,358.3,13652,1,4,0)
 ;;=4^M84.40XD
 ;;^UTILITY(U,$J,358.3,13652,2)
 ;;=^5013795
 ;;^UTILITY(U,$J,358.3,13653,0)
 ;;=M84.40XG^^53^587^25
 ;;^UTILITY(U,$J,358.3,13653,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13653,1,3,0)
 ;;=3^Patholog Fx,Unspec Site,Subsq Encntr for Fx w/ Delay Healing
 ;;^UTILITY(U,$J,358.3,13653,1,4,0)
 ;;=4^M84.40XG
 ;;^UTILITY(U,$J,358.3,13653,2)
 ;;=^5013796
 ;;^UTILITY(U,$J,358.3,13654,0)
 ;;=M84.40XK^^53^587^26
 ;;^UTILITY(U,$J,358.3,13654,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13654,1,3,0)
 ;;=3^Patholog Fx,Unspec Site,Subsq Encntr for Fx w/ Nonunion
 ;;^UTILITY(U,$J,358.3,13654,1,4,0)
 ;;=4^M84.40XK
 ;;^UTILITY(U,$J,358.3,13654,2)
 ;;=^5013797
 ;;^UTILITY(U,$J,358.3,13655,0)
 ;;=M84.40XP^^53^587^27
 ;;^UTILITY(U,$J,358.3,13655,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13655,1,3,0)
 ;;=3^Patholog Fx,Unspec Site,Subsq Encntr for Fx w/ Malunion
 ;;^UTILITY(U,$J,358.3,13655,1,4,0)
 ;;=4^M84.40XP
 ;;^UTILITY(U,$J,358.3,13655,2)
 ;;=^5013798
 ;;^UTILITY(U,$J,358.3,13656,0)
 ;;=M84.40XS^^53^587^28
 ;;^UTILITY(U,$J,358.3,13656,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13656,1,3,0)
 ;;=3^Patholog Fx,Unspec Site,Subsq Encntr for Fx w/ Sequela
 ;;^UTILITY(U,$J,358.3,13656,1,4,0)
 ;;=4^M84.40XS
 ;;^UTILITY(U,$J,358.3,13656,2)
 ;;=^5013799
 ;;^UTILITY(U,$J,358.3,13657,0)
 ;;=M85.80^^53^587^3
 ;;^UTILITY(U,$J,358.3,13657,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13657,1,3,0)
 ;;=3^Bone Density/Structure Disorders,Unspec Site
 ;;^UTILITY(U,$J,358.3,13657,1,4,0)
 ;;=4^M85.80
 ;;^UTILITY(U,$J,358.3,13657,2)
 ;;=^5014473
 ;;^UTILITY(U,$J,358.3,13658,0)
 ;;=M54.50^^53^587^15
 ;;^UTILITY(U,$J,358.3,13658,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13658,1,3,0)
 ;;=3^Low Back Pain,Unspec
 ;;^UTILITY(U,$J,358.3,13658,1,4,0)
 ;;=4^M54.50
 ;;^UTILITY(U,$J,358.3,13658,2)
 ;;=^5161215
 ;;^UTILITY(U,$J,358.3,13659,0)
 ;;=M54.51^^53^587^16
 ;;^UTILITY(U,$J,358.3,13659,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13659,1,3,0)
 ;;=3^Low Back Pain,Vertebrogenic
 ;;^UTILITY(U,$J,358.3,13659,1,4,0)
 ;;=4^M54.51
 ;;^UTILITY(U,$J,358.3,13659,2)
 ;;=^5161216
 ;;^UTILITY(U,$J,358.3,13660,0)
 ;;=M54.59^^53^587^14
 ;;^UTILITY(U,$J,358.3,13660,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13660,1,3,0)
 ;;=3^Low Back Pain,Other
 ;;^UTILITY(U,$J,358.3,13660,1,4,0)
 ;;=4^M54.59
 ;;^UTILITY(U,$J,358.3,13660,2)
 ;;=^5161217
 ;;^UTILITY(U,$J,358.3,13661,0)
 ;;=G40.909^^53^588^5
 ;;^UTILITY(U,$J,358.3,13661,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13661,1,3,0)
 ;;=3^Epilepsy,Not Intractable w/o Status Epilepticus
 ;;^UTILITY(U,$J,358.3,13661,1,4,0)
 ;;=4^G40.909
 ;;^UTILITY(U,$J,358.3,13661,2)
 ;;=^5003865
 ;;^UTILITY(U,$J,358.3,13662,0)
 ;;=G40.919^^53^588^4
 ;;^UTILITY(U,$J,358.3,13662,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13662,1,3,0)
 ;;=3^Epilepsy,Intractable w/o Status Epilepticus
 ;;^UTILITY(U,$J,358.3,13662,1,4,0)
 ;;=4^G40.919
 ;;^UTILITY(U,$J,358.3,13662,2)
 ;;=^5003867
 ;;^UTILITY(U,$J,358.3,13663,0)
 ;;=G62.9^^53^588^8
 ;;^UTILITY(U,$J,358.3,13663,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13663,1,3,0)
 ;;=3^Polyneuropathy,Unspec
 ;;^UTILITY(U,$J,358.3,13663,1,4,0)
 ;;=4^G62.9
 ;;^UTILITY(U,$J,358.3,13663,2)
 ;;=^5004079
 ;;^UTILITY(U,$J,358.3,13664,0)
 ;;=G60.9^^53^588^6
 ;;^UTILITY(U,$J,358.3,13664,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13664,1,3,0)
 ;;=3^Hereditary/Idiopathic Neuropathy,Unspec
 ;;^UTILITY(U,$J,358.3,13664,1,4,0)
 ;;=4^G60.9
 ;;^UTILITY(U,$J,358.3,13664,2)
 ;;=^5004071
 ;;^UTILITY(U,$J,358.3,13665,0)
 ;;=I63.50^^53^588^1
 ;;^UTILITY(U,$J,358.3,13665,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13665,1,3,0)
 ;;=3^Cerebral Infarction d/t Occlusion/Stenosis of Cerebral Artery
 ;;^UTILITY(U,$J,358.3,13665,1,4,0)
 ;;=4^I63.50
 ;;^UTILITY(U,$J,358.3,13665,2)
 ;;=^5007343
 ;;^UTILITY(U,$J,358.3,13666,0)
 ;;=G45.9^^53^588^12
 ;;^UTILITY(U,$J,358.3,13666,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13666,1,3,0)
 ;;=3^Transient Cerebral Ischemic Attack,Unspec
 ;;^UTILITY(U,$J,358.3,13666,1,4,0)
 ;;=4^G45.9
 ;;^UTILITY(U,$J,358.3,13666,2)
 ;;=^5003959
 ;;^UTILITY(U,$J,358.3,13667,0)
 ;;=R55.^^53^588^11
 ;;^UTILITY(U,$J,358.3,13667,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13667,1,3,0)
 ;;=3^Syncope and Collapse
 ;;^UTILITY(U,$J,358.3,13667,1,4,0)
 ;;=4^R55.
 ;;^UTILITY(U,$J,358.3,13667,2)
 ;;=^116707
 ;;^UTILITY(U,$J,358.3,13668,0)
 ;;=R56.00^^53^588^10
 ;;^UTILITY(U,$J,358.3,13668,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13668,1,3,0)
 ;;=3^Simple Febrile Convulsions
 ;;^UTILITY(U,$J,358.3,13668,1,4,0)
 ;;=4^R56.00
 ;;^UTILITY(U,$J,358.3,13668,2)
 ;;=^5019522
 ;;^UTILITY(U,$J,358.3,13669,0)
 ;;=R56.1^^53^588^9
 ;;^UTILITY(U,$J,358.3,13669,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13669,1,3,0)
 ;;=3^Post Traumatic Seizures
 ;;^UTILITY(U,$J,358.3,13669,1,4,0)
 ;;=4^R56.1
 ;;^UTILITY(U,$J,358.3,13669,2)
 ;;=^5019523
 ;;^UTILITY(U,$J,358.3,13670,0)
 ;;=R56.9^^53^588^2
 ;;^UTILITY(U,$J,358.3,13670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13670,1,3,0)
 ;;=3^Convulsions,Unspec
 ;;^UTILITY(U,$J,358.3,13670,1,4,0)
 ;;=4^R56.9
 ;;^UTILITY(U,$J,358.3,13670,2)
 ;;=^5019524
 ;;^UTILITY(U,$J,358.3,13671,0)
 ;;=R42.^^53^588^3
 ;;^UTILITY(U,$J,358.3,13671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13671,1,3,0)
 ;;=3^Dizziness and Giddiness
 ;;^UTILITY(U,$J,358.3,13671,1,4,0)
 ;;=4^R42.
 ;;^UTILITY(U,$J,358.3,13671,2)
 ;;=^5019450
 ;;^UTILITY(U,$J,358.3,13672,0)
 ;;=R25.1^^53^588^13
 ;;^UTILITY(U,$J,358.3,13672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13672,1,3,0)
 ;;=3^Tremor,Unspec
 ;;^UTILITY(U,$J,358.3,13672,1,4,0)
 ;;=4^R25.1
 ;;^UTILITY(U,$J,358.3,13672,2)
 ;;=^5019300
 ;;^UTILITY(U,$J,358.3,13673,0)
 ;;=R20.2^^53^588^7
 ;;^UTILITY(U,$J,358.3,13673,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13673,1,3,0)
 ;;=3^Paresthesia of Skin
 ;;^UTILITY(U,$J,358.3,13673,1,4,0)
 ;;=4^R20.2
 ;;^UTILITY(U,$J,358.3,13673,2)
 ;;=^5019280
 ;;^UTILITY(U,$J,358.3,13674,0)
 ;;=C02.9^^53^589^63
 ;;^UTILITY(U,$J,358.3,13674,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13674,1,3,0)
 ;;=3^Malig Neop of Tongue,Unspec
 ;;^UTILITY(U,$J,358.3,13674,1,4,0)
 ;;=4^C02.9
 ;;^UTILITY(U,$J,358.3,13674,2)
 ;;=^5000891
 ;;^UTILITY(U,$J,358.3,13675,0)
 ;;=C06.9^^53^589^52
 ;;^UTILITY(U,$J,358.3,13675,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13675,1,3,0)
 ;;=3^Malig Neop of Mouth,Unspec
 ;;^UTILITY(U,$J,358.3,13675,1,4,0)
 ;;=4^C06.9
 ;;^UTILITY(U,$J,358.3,13675,2)
 ;;=^5000901
 ;;^UTILITY(U,$J,358.3,13676,0)
 ;;=C10.9^^53^589^54
 ;;^UTILITY(U,$J,358.3,13676,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13676,1,3,0)
 ;;=3^Malig Neop of Oropharynx,Unspec
 ;;^UTILITY(U,$J,358.3,13676,1,4,0)
 ;;=4^C10.9
 ;;^UTILITY(U,$J,358.3,13676,2)
 ;;=^5000909
 ;;^UTILITY(U,$J,358.3,13677,0)
 ;;=C11.9^^53^589^53
 ;;^UTILITY(U,$J,358.3,13677,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13677,1,3,0)
 ;;=3^Malig Neop of Nasopharynx,Unspec
 ;;^UTILITY(U,$J,358.3,13677,1,4,0)
 ;;=4^C11.9
 ;;^UTILITY(U,$J,358.3,13677,2)
 ;;=^5000911
 ;;^UTILITY(U,$J,358.3,13678,0)
 ;;=C15.9^^53^589^42
 ;;^UTILITY(U,$J,358.3,13678,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13678,1,3,0)
 ;;=3^Malig Neop of Esophagus,Unspec
 ;;^UTILITY(U,$J,358.3,13678,1,4,0)
 ;;=4^C15.9
 ;;^UTILITY(U,$J,358.3,13678,2)
 ;;=^5000919
 ;;^UTILITY(U,$J,358.3,13679,0)
 ;;=C16.9^^53^589^61
 ;;^UTILITY(U,$J,358.3,13679,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13679,1,3,0)
 ;;=3^Malig Neop of Stomach,Unspec
 ;;^UTILITY(U,$J,358.3,13679,1,4,0)
 ;;=4^C16.9
 ;;^UTILITY(U,$J,358.3,13679,2)
 ;;=^5000923
 ;;^UTILITY(U,$J,358.3,13680,0)
 ;;=C17.9^^53^589^60
 ;;^UTILITY(U,$J,358.3,13680,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13680,1,3,0)
 ;;=3^Malig Neop of Small Intestine,Unspec
 ;;^UTILITY(U,$J,358.3,13680,1,4,0)
 ;;=4^C17.9
 ;;^UTILITY(U,$J,358.3,13680,2)
 ;;=^5000926
 ;;^UTILITY(U,$J,358.3,13681,0)
 ;;=C18.9^^53^589^39
 ;;^UTILITY(U,$J,358.3,13681,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13681,1,3,0)
 ;;=3^Malig Neop of Colon,Unspec
 ;;^UTILITY(U,$J,358.3,13681,1,4,0)
 ;;=4^C18.9
 ;;^UTILITY(U,$J,358.3,13681,2)
 ;;=^5000929
 ;;^UTILITY(U,$J,358.3,13682,0)
 ;;=C20.^^53^589^58
 ;;^UTILITY(U,$J,358.3,13682,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13682,1,3,0)
 ;;=3^Malig Neop of Rectum
 ;;^UTILITY(U,$J,358.3,13682,1,4,0)
 ;;=4^C20.
 ;;^UTILITY(U,$J,358.3,13682,2)
 ;;=^267090
 ;;^UTILITY(U,$J,358.3,13683,0)
 ;;=C21.0^^53^589^35
 ;;^UTILITY(U,$J,358.3,13683,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13683,1,3,0)
 ;;=3^Malig Neop of Anus,Unspec
 ;;^UTILITY(U,$J,358.3,13683,1,4,0)
 ;;=4^C21.0
 ;;^UTILITY(U,$J,358.3,13683,2)
 ;;=^5000930
 ;;^UTILITY(U,$J,358.3,13684,0)
 ;;=C22.8^^53^589^49
 ;;^UTILITY(U,$J,358.3,13684,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13684,1,3,0)
 ;;=3^Malig Neop of Liver,Primary
 ;;^UTILITY(U,$J,358.3,13684,1,4,0)
 ;;=4^C22.8
 ;;^UTILITY(U,$J,358.3,13684,2)
 ;;=^5000939
 ;;^UTILITY(U,$J,358.3,13685,0)
 ;;=C22.0^^53^589^27
 ;;^UTILITY(U,$J,358.3,13685,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13685,1,3,0)
 ;;=3^Liver Cell Carcinoma
 ;;^UTILITY(U,$J,358.3,13685,1,4,0)
 ;;=4^C22.0
 ;;^UTILITY(U,$J,358.3,13685,2)
 ;;=^5000933
 ;;^UTILITY(U,$J,358.3,13686,0)
 ;;=C22.2^^53^589^20
 ;;^UTILITY(U,$J,358.3,13686,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13686,1,3,0)
 ;;=3^Hepatoblastoma
 ;;^UTILITY(U,$J,358.3,13686,1,4,0)
 ;;=4^C22.2
 ;;^UTILITY(U,$J,358.3,13686,2)
 ;;=^5000935
 ;;^UTILITY(U,$J,358.3,13687,0)
 ;;=C22.7^^53^589^26
 ;;^UTILITY(U,$J,358.3,13687,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13687,1,3,0)
 ;;=3^Liver Carcinomas NEC
 ;;^UTILITY(U,$J,358.3,13687,1,4,0)
 ;;=4^C22.7
 ;;^UTILITY(U,$J,358.3,13687,2)
 ;;=^5000938
 ;;^UTILITY(U,$J,358.3,13688,0)
 ;;=C23.^^53^589^46
 ;;^UTILITY(U,$J,358.3,13688,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13688,1,3,0)
 ;;=3^Malig Neop of Gallbladder
 ;;^UTILITY(U,$J,358.3,13688,1,4,0)
 ;;=4^C23.
 ;;^UTILITY(U,$J,358.3,13688,2)
 ;;=^267098
 ;;^UTILITY(U,$J,358.3,13689,0)
 ;;=C24.0^^53^589^43
 ;;^UTILITY(U,$J,358.3,13689,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13689,1,3,0)
 ;;=3^Malig Neop of Extrahepatic Bile Duct
 ;;^UTILITY(U,$J,358.3,13689,1,4,0)
 ;;=4^C24.0
 ;;^UTILITY(U,$J,358.3,13689,2)
 ;;=^5000940
 ;;^UTILITY(U,$J,358.3,13690,0)
 ;;=C24.1^^53^589^34
 ;;^UTILITY(U,$J,358.3,13690,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13690,1,3,0)
 ;;=3^Malig Neop of Ampulla of Vater
 ;;^UTILITY(U,$J,358.3,13690,1,4,0)
 ;;=4^C24.1
 ;;^UTILITY(U,$J,358.3,13690,2)
 ;;=^267100
 ;;^UTILITY(U,$J,358.3,13691,0)
 ;;=C25.9^^53^589^55
 ;;^UTILITY(U,$J,358.3,13691,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13691,1,3,0)
 ;;=3^Malig Neop of Pancreas,Unspec
 ;;^UTILITY(U,$J,358.3,13691,1,4,0)
 ;;=4^C25.9
 ;;^UTILITY(U,$J,358.3,13691,2)
 ;;=^5000946
 ;;^UTILITY(U,$J,358.3,13692,0)
 ;;=C31.9^^53^589^33
 ;;^UTILITY(U,$J,358.3,13692,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13692,1,3,0)
 ;;=3^Malig Neop of Accessory Sinus,Unspec
 ;;^UTILITY(U,$J,358.3,13692,1,4,0)
 ;;=4^C31.9
 ;;^UTILITY(U,$J,358.3,13692,2)
 ;;=^5000953
 ;;^UTILITY(U,$J,358.3,13693,0)
 ;;=C32.9^^53^589^48
 ;;^UTILITY(U,$J,358.3,13693,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13693,1,3,0)
 ;;=3^Malig Neop of Larynx,Unspec
 ;;^UTILITY(U,$J,358.3,13693,1,4,0)
 ;;=4^C32.9
 ;;^UTILITY(U,$J,358.3,13693,2)
 ;;=^5000956
 ;;^UTILITY(U,$J,358.3,13694,0)
 ;;=C34.90^^53^589^38
 ;;^UTILITY(U,$J,358.3,13694,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13694,1,3,0)
 ;;=3^Malig Neop of Bronchus/Lung,Unspec
 ;;^UTILITY(U,$J,358.3,13694,1,4,0)
 ;;=4^C34.90
 ;;^UTILITY(U,$J,358.3,13694,2)
 ;;=^5000966
 ;;^UTILITY(U,$J,358.3,13695,0)
 ;;=C38.4^^53^589^56
 ;;^UTILITY(U,$J,358.3,13695,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13695,1,3,0)
 ;;=3^Malig Neop of Pleura
 ;;^UTILITY(U,$J,358.3,13695,1,4,0)
 ;;=4^C38.4
 ;;^UTILITY(U,$J,358.3,13695,2)
 ;;=^267140
 ;;^UTILITY(U,$J,358.3,13696,0)
 ;;=C49.9^^53^589^40
 ;;^UTILITY(U,$J,358.3,13696,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13696,1,3,0)
 ;;=3^Malig Neop of Connective/Soft Tissue,Unspec
 ;;^UTILITY(U,$J,358.3,13696,1,4,0)
 ;;=4^C49.9
 ;;^UTILITY(U,$J,358.3,13696,2)
 ;;=^5001136
 ;;^UTILITY(U,$J,358.3,13697,0)
 ;;=C43.9^^53^589^59
 ;;^UTILITY(U,$J,358.3,13697,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13697,1,3,0)
 ;;=3^Malig Neop of Skin,Unspec
 ;;^UTILITY(U,$J,358.3,13697,1,4,0)
 ;;=4^C43.9
 ;;^UTILITY(U,$J,358.3,13697,2)
 ;;=^5001015
 ;;^UTILITY(U,$J,358.3,13698,0)
 ;;=C50.911^^53^589^45
 ;;^UTILITY(U,$J,358.3,13698,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13698,1,3,0)
 ;;=3^Malig Neop of Female Breast,Right
 ;;^UTILITY(U,$J,358.3,13698,1,4,0)
 ;;=4^C50.911
 ;;^UTILITY(U,$J,358.3,13698,2)
 ;;=^5001195
 ;;^UTILITY(U,$J,358.3,13699,0)
 ;;=C50.912^^53^589^44
 ;;^UTILITY(U,$J,358.3,13699,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13699,1,3,0)
 ;;=3^Malig Neop of Female Breast,Left
 ;;^UTILITY(U,$J,358.3,13699,1,4,0)
 ;;=4^C50.912
 ;;^UTILITY(U,$J,358.3,13699,2)
 ;;=^5001196
 ;;^UTILITY(U,$J,358.3,13700,0)
 ;;=C50.921^^53^589^51
 ;;^UTILITY(U,$J,358.3,13700,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13700,1,3,0)
 ;;=3^Malig Neop of Male Breast,Right
 ;;^UTILITY(U,$J,358.3,13700,1,4,0)
 ;;=4^C50.921
 ;;^UTILITY(U,$J,358.3,13700,2)
 ;;=^5001198
 ;;^UTILITY(U,$J,358.3,13701,0)
 ;;=C50.922^^53^589^50
 ;;^UTILITY(U,$J,358.3,13701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13701,1,3,0)
 ;;=3^Malig Neop of Male Breast,Left
 ;;^UTILITY(U,$J,358.3,13701,1,4,0)
 ;;=4^C50.922
 ;;^UTILITY(U,$J,358.3,13701,2)
 ;;=^5133340
 ;;^UTILITY(U,$J,358.3,13702,0)
 ;;=C46.9^^53^589^25
 ;;^UTILITY(U,$J,358.3,13702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13702,1,3,0)
 ;;=3^Kaposi's Sarcoma,Unspec
 ;;^UTILITY(U,$J,358.3,13702,1,4,0)
 ;;=4^C46.9
 ;;^UTILITY(U,$J,358.3,13702,2)
 ;;=^5001108
 ;;^UTILITY(U,$J,358.3,13703,0)
 ;;=C61.^^53^589^57
 ;;^UTILITY(U,$J,358.3,13703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13703,1,3,0)
 ;;=3^Malig Neop of Prostate
 ;;^UTILITY(U,$J,358.3,13703,1,4,0)
 ;;=4^C61.
 ;;^UTILITY(U,$J,358.3,13703,2)
 ;;=^267239
 ;;^UTILITY(U,$J,358.3,13704,0)
 ;;=C62.10^^53^589^41
 ;;^UTILITY(U,$J,358.3,13704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13704,1,3,0)
 ;;=3^Malig Neop of Descended Testis,Unspec
 ;;^UTILITY(U,$J,358.3,13704,1,4,0)
 ;;=4^C62.10
 ;;^UTILITY(U,$J,358.3,13704,2)
 ;;=^5001233
 ;;^UTILITY(U,$J,358.3,13705,0)
 ;;=C62.90^^53^589^62
 ;;^UTILITY(U,$J,358.3,13705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13705,1,3,0)
 ;;=3^Malig Neop of Testis,Unspec
 ;;^UTILITY(U,$J,358.3,13705,1,4,0)
 ;;=4^C62.90
 ;;^UTILITY(U,$J,358.3,13705,2)
 ;;=^5001236
 ;;^UTILITY(U,$J,358.3,13706,0)
 ;;=C67.9^^53^589^36
 ;;^UTILITY(U,$J,358.3,13706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13706,1,3,0)
 ;;=3^Malig Neop of Bladder,Unspec
 ;;^UTILITY(U,$J,358.3,13706,1,4,0)
 ;;=4^C67.9
 ;;^UTILITY(U,$J,358.3,13706,2)
 ;;=^5001263
 ;;^UTILITY(U,$J,358.3,13707,0)
 ;;=C64.9^^53^589^47
 ;;^UTILITY(U,$J,358.3,13707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13707,1,3,0)
 ;;=3^Malig Neop of Kidney,Except Renal Pelvis,Unspec