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

IBDEI044.m

Go to the documentation of this file.
IBDEI044 ; ; 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,9918,1,3,0)
 ;;=3^Age-Related Physical Debility
 ;;^UTILITY(U,$J,358.3,9918,1,4,0)
 ;;=4^R54.
 ;;^UTILITY(U,$J,358.3,9918,2)
 ;;=^5019521
 ;;^UTILITY(U,$J,358.3,9919,0)
 ;;=R60.0^^45^443^68
 ;;^UTILITY(U,$J,358.3,9919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9919,1,3,0)
 ;;=3^Edema,Localized
 ;;^UTILITY(U,$J,358.3,9919,1,4,0)
 ;;=4^R60.0
 ;;^UTILITY(U,$J,358.3,9919,2)
 ;;=^5019532
 ;;^UTILITY(U,$J,358.3,9920,0)
 ;;=R60.1^^45^443^67
 ;;^UTILITY(U,$J,358.3,9920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9920,1,3,0)
 ;;=3^Edema,Generalized
 ;;^UTILITY(U,$J,358.3,9920,1,4,0)
 ;;=4^R60.1
 ;;^UTILITY(U,$J,358.3,9920,2)
 ;;=^5019533
 ;;^UTILITY(U,$J,358.3,9921,0)
 ;;=R60.9^^45^443^69
 ;;^UTILITY(U,$J,358.3,9921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9921,1,3,0)
 ;;=3^Edema,Unspec
 ;;^UTILITY(U,$J,358.3,9921,1,4,0)
 ;;=4^R60.9
 ;;^UTILITY(U,$J,358.3,9921,2)
 ;;=^5019534
 ;;^UTILITY(U,$J,358.3,9922,0)
 ;;=R61.^^45^443^89
 ;;^UTILITY(U,$J,358.3,9922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9922,1,3,0)
 ;;=3^Hyperhidrosis,Generalized
 ;;^UTILITY(U,$J,358.3,9922,1,4,0)
 ;;=4^R61.
 ;;^UTILITY(U,$J,358.3,9922,2)
 ;;=^331970
 ;;^UTILITY(U,$J,358.3,9923,0)
 ;;=R63.0^^45^443^39
 ;;^UTILITY(U,$J,358.3,9923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9923,1,3,0)
 ;;=3^Anorexia
 ;;^UTILITY(U,$J,358.3,9923,1,4,0)
 ;;=4^R63.0
 ;;^UTILITY(U,$J,358.3,9923,2)
 ;;=^7939
 ;;^UTILITY(U,$J,358.3,9924,0)
 ;;=R63.1^^45^443^142
 ;;^UTILITY(U,$J,358.3,9924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9924,1,3,0)
 ;;=3^Polydipsia
 ;;^UTILITY(U,$J,358.3,9924,1,4,0)
 ;;=4^R63.1
 ;;^UTILITY(U,$J,358.3,9924,2)
 ;;=^186699
 ;;^UTILITY(U,$J,358.3,9925,0)
 ;;=R63.2^^45^443^143
 ;;^UTILITY(U,$J,358.3,9925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9925,1,3,0)
 ;;=3^Polyphagia
 ;;^UTILITY(U,$J,358.3,9925,1,4,0)
 ;;=4^R63.2
 ;;^UTILITY(U,$J,358.3,9925,2)
 ;;=^5019540
 ;;^UTILITY(U,$J,358.3,9926,0)
 ;;=R63.4^^45^443^32
 ;;^UTILITY(U,$J,358.3,9926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9926,1,3,0)
 ;;=3^Abnormal Weight Loss
 ;;^UTILITY(U,$J,358.3,9926,1,4,0)
 ;;=4^R63.4
 ;;^UTILITY(U,$J,358.3,9926,2)
 ;;=^5019542
 ;;^UTILITY(U,$J,358.3,9927,0)
 ;;=R63.5^^45^443^31
 ;;^UTILITY(U,$J,358.3,9927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9927,1,3,0)
 ;;=3^Abnormal Weight Gain
 ;;^UTILITY(U,$J,358.3,9927,1,4,0)
 ;;=4^R63.5
 ;;^UTILITY(U,$J,358.3,9927,2)
 ;;=^5019543
 ;;^UTILITY(U,$J,358.3,9928,0)
 ;;=R64.^^45^443^49
 ;;^UTILITY(U,$J,358.3,9928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9928,1,3,0)
 ;;=3^Cachexia
 ;;^UTILITY(U,$J,358.3,9928,1,4,0)
 ;;=4^R64.
 ;;^UTILITY(U,$J,358.3,9928,2)
 ;;=^17920
 ;;^UTILITY(U,$J,358.3,9929,0)
 ;;=R68.3^^45^443^54
 ;;^UTILITY(U,$J,358.3,9929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9929,1,3,0)
 ;;=3^Clubbing of Fingers
 ;;^UTILITY(U,$J,358.3,9929,1,4,0)
 ;;=4^R68.3
 ;;^UTILITY(U,$J,358.3,9929,2)
 ;;=^5019553
 ;;^UTILITY(U,$J,358.3,9930,0)
 ;;=R73.01^^45^443^93
 ;;^UTILITY(U,$J,358.3,9930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9930,1,3,0)
 ;;=3^Impaired Fasting Glucose
 ;;^UTILITY(U,$J,358.3,9930,1,4,0)
 ;;=4^R73.01
 ;;^UTILITY(U,$J,358.3,9930,2)
 ;;=^5019561
 ;;^UTILITY(U,$J,358.3,9931,0)
 ;;=R73.02^^45^443^94
 ;;^UTILITY(U,$J,358.3,9931,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9931,1,3,0)
 ;;=3^Impaired Glucose Tolerance (oral)
 ;;^UTILITY(U,$J,358.3,9931,1,4,0)
 ;;=4^R73.02
 ;;^UTILITY(U,$J,358.3,9931,2)
 ;;=^5019562
 ;;^UTILITY(U,$J,358.3,9932,0)
 ;;=R73.09^^45^443^18
 ;;^UTILITY(U,$J,358.3,9932,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9932,1,3,0)
 ;;=3^Abnormal Glucose NEC
 ;;^UTILITY(U,$J,358.3,9932,1,4,0)
 ;;=4^R73.09
 ;;^UTILITY(U,$J,358.3,9932,2)
 ;;=^5019563
 ;;^UTILITY(U,$J,358.3,9933,0)
 ;;=R73.9^^45^443^88
 ;;^UTILITY(U,$J,358.3,9933,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9933,1,3,0)
 ;;=3^Hyperglycemia,Unspec
 ;;^UTILITY(U,$J,358.3,9933,1,4,0)
 ;;=4^R73.9
 ;;^UTILITY(U,$J,358.3,9933,2)
 ;;=^5019564
 ;;^UTILITY(U,$J,358.3,9934,0)
 ;;=R76.11^^45^443^146
 ;;^UTILITY(U,$J,358.3,9934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9934,1,3,0)
 ;;=3^Positive PPD
 ;;^UTILITY(U,$J,358.3,9934,1,4,0)
 ;;=4^R76.11
 ;;^UTILITY(U,$J,358.3,9934,2)
 ;;=^5019570
 ;;^UTILITY(U,$J,358.3,9935,0)
 ;;=R79.1^^45^443^3
 ;;^UTILITY(U,$J,358.3,9935,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9935,1,3,0)
 ;;=3^Abnormal Coagulation Profile
 ;;^UTILITY(U,$J,358.3,9935,1,4,0)
 ;;=4^R79.1
 ;;^UTILITY(U,$J,358.3,9935,2)
 ;;=^5019591
 ;;^UTILITY(U,$J,358.3,9936,0)
 ;;=R82.5^^45^443^73
 ;;^UTILITY(U,$J,358.3,9936,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9936,1,3,0)
 ;;=3^Elevated Urine Levels of Drug/Meds/Biol Subst
 ;;^UTILITY(U,$J,358.3,9936,1,4,0)
 ;;=4^R82.5
 ;;^UTILITY(U,$J,358.3,9936,2)
 ;;=^5019605
 ;;^UTILITY(U,$J,358.3,9937,0)
 ;;=R82.6^^45^443^29
 ;;^UTILITY(U,$J,358.3,9937,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9937,1,3,0)
 ;;=3^Abnormal Urine Levels of Subst of Nonmed Source
 ;;^UTILITY(U,$J,358.3,9937,1,4,0)
 ;;=4^R82.6
 ;;^UTILITY(U,$J,358.3,9937,2)
 ;;=^5019606
 ;;^UTILITY(U,$J,358.3,9938,0)
 ;;=R82.90^^45^443^28
 ;;^UTILITY(U,$J,358.3,9938,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9938,1,3,0)
 ;;=3^Abnormal Urine Findings,Unspec
 ;;^UTILITY(U,$J,358.3,9938,1,4,0)
 ;;=4^R82.90
 ;;^UTILITY(U,$J,358.3,9938,2)
 ;;=^5019609
 ;;^UTILITY(U,$J,358.3,9939,0)
 ;;=R82.91^^45^443^52
 ;;^UTILITY(U,$J,358.3,9939,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9939,1,3,0)
 ;;=3^Chromoabnormalities of Urine NEC
 ;;^UTILITY(U,$J,358.3,9939,1,4,0)
 ;;=4^R82.91
 ;;^UTILITY(U,$J,358.3,9939,2)
 ;;=^5019610
 ;;^UTILITY(U,$J,358.3,9940,0)
 ;;=R89.9^^45^443^22
 ;;^UTILITY(U,$J,358.3,9940,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9940,1,3,0)
 ;;=3^Abnormal Organ/Tissue Specimen Findings,Unspec
 ;;^UTILITY(U,$J,358.3,9940,1,4,0)
 ;;=4^R89.9
 ;;^UTILITY(U,$J,358.3,9940,2)
 ;;=^5019702
 ;;^UTILITY(U,$J,358.3,9941,0)
 ;;=R90.0^^45^443^102
 ;;^UTILITY(U,$J,358.3,9941,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9941,1,3,0)
 ;;=3^Intracranial Space-Occupying Lesion Dx Imaging of Central Nervous System
 ;;^UTILITY(U,$J,358.3,9941,1,4,0)
 ;;=4^R90.0
 ;;^UTILITY(U,$J,358.3,9941,2)
 ;;=^5019703
 ;;^UTILITY(U,$J,358.3,9942,0)
 ;;=R90.89^^45^443^16
 ;;^UTILITY(U,$J,358.3,9942,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9942,1,3,0)
 ;;=3^Abnormal Findings on Dx Imaging of Central Nervous System NEC
 ;;^UTILITY(U,$J,358.3,9942,1,4,0)
 ;;=4^R90.89
 ;;^UTILITY(U,$J,358.3,9942,2)
 ;;=^5019706
 ;;^UTILITY(U,$J,358.3,9943,0)
 ;;=R91.8^^45^443^21
 ;;^UTILITY(U,$J,358.3,9943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9943,1,3,0)
 ;;=3^Abnormal Nonspecific Lung Field Finding NEC
 ;;^UTILITY(U,$J,358.3,9943,1,4,0)
 ;;=4^R91.8
 ;;^UTILITY(U,$J,358.3,9943,2)
 ;;=^5019708
 ;;^UTILITY(U,$J,358.3,9944,0)
 ;;=R92.0^^45^443^121
 ;;^UTILITY(U,$J,358.3,9944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9944,1,3,0)
 ;;=3^Mammographic Microcalcification on Dx Image of Breast
 ;;^UTILITY(U,$J,358.3,9944,1,4,0)
 ;;=4^R92.0
 ;;^UTILITY(U,$J,358.3,9944,2)
 ;;=^5019709
 ;;^UTILITY(U,$J,358.3,9945,0)
 ;;=R92.1^^45^443^120
 ;;^UTILITY(U,$J,358.3,9945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9945,1,3,0)
 ;;=3^Mammographic Calcification on Dx Image of Breast
 ;;^UTILITY(U,$J,358.3,9945,1,4,0)
 ;;=4^R92.1
 ;;^UTILITY(U,$J,358.3,9945,2)
 ;;=^5019710
 ;;^UTILITY(U,$J,358.3,9946,0)
 ;;=R92.2^^45^443^95
 ;;^UTILITY(U,$J,358.3,9946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9946,1,3,0)
 ;;=3^Inconclusive Mammogram
 ;;^UTILITY(U,$J,358.3,9946,1,4,0)
 ;;=4^R92.2
 ;;^UTILITY(U,$J,358.3,9946,2)
 ;;=^5019711
 ;;^UTILITY(U,$J,358.3,9947,0)
 ;;=R93.0^^45^443^10
 ;;^UTILITY(U,$J,358.3,9947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9947,1,3,0)
 ;;=3^Abnormal Finding on Dx Image of Skull/Head NEC
 ;;^UTILITY(U,$J,358.3,9947,1,4,0)
 ;;=4^R93.0
 ;;^UTILITY(U,$J,358.3,9947,2)
 ;;=^5019713
 ;;^UTILITY(U,$J,358.3,9948,0)
 ;;=R93.2^^45^443^9
 ;;^UTILITY(U,$J,358.3,9948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9948,1,3,0)
 ;;=3^Abnormal Finding on Dx Image of Liver/Biliary Tract
 ;;^UTILITY(U,$J,358.3,9948,1,4,0)
 ;;=4^R93.2
 ;;^UTILITY(U,$J,358.3,9948,2)
 ;;=^5019715
 ;;^UTILITY(U,$J,358.3,9949,0)
 ;;=R93.3^^45^443^7
 ;;^UTILITY(U,$J,358.3,9949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9949,1,3,0)
 ;;=3^Abnormal Finding on Dx Image of Digestive Tract Part
 ;;^UTILITY(U,$J,358.3,9949,1,4,0)
 ;;=4^R93.3
 ;;^UTILITY(U,$J,358.3,9949,2)
 ;;=^5019716
 ;;^UTILITY(U,$J,358.3,9950,0)
 ;;=R93.5^^45^443^6
 ;;^UTILITY(U,$J,358.3,9950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9950,1,3,0)
 ;;=3^Abnormal Finding on Dx Image of Abdominal Regions
 ;;^UTILITY(U,$J,358.3,9950,1,4,0)
 ;;=4^R93.5
 ;;^UTILITY(U,$J,358.3,9950,2)
 ;;=^5019718
 ;;^UTILITY(U,$J,358.3,9951,0)
 ;;=R93.6^^45^443^8
 ;;^UTILITY(U,$J,358.3,9951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9951,1,3,0)
 ;;=3^Abnormal Finding on Dx Image of Limbs
 ;;^UTILITY(U,$J,358.3,9951,1,4,0)
 ;;=4^R93.6
 ;;^UTILITY(U,$J,358.3,9951,2)
 ;;=^5019719
 ;;^UTILITY(U,$J,358.3,9952,0)
 ;;=R94.4^^45^443^19
 ;;^UTILITY(U,$J,358.3,9952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9952,1,3,0)
 ;;=3^Abnormal Kidney Function Studies
 ;;^UTILITY(U,$J,358.3,9952,1,4,0)
 ;;=4^R94.4
 ;;^UTILITY(U,$J,358.3,9952,2)
 ;;=^5019741
 ;;^UTILITY(U,$J,358.3,9953,0)
 ;;=R94.5^^45^443^20
 ;;^UTILITY(U,$J,358.3,9953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9953,1,3,0)
 ;;=3^Abnormal Liver Function Studies
 ;;^UTILITY(U,$J,358.3,9953,1,4,0)
 ;;=4^R94.5
 ;;^UTILITY(U,$J,358.3,9953,2)
 ;;=^5019742
 ;;^UTILITY(U,$J,358.3,9954,0)
 ;;=R94.6^^45^443^24
 ;;^UTILITY(U,$J,358.3,9954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9954,1,3,0)
 ;;=3^Abnormal Thyroid Function Studies
 ;;^UTILITY(U,$J,358.3,9954,1,4,0)
 ;;=4^R94.6
 ;;^UTILITY(U,$J,358.3,9954,2)
 ;;=^5019743
 ;;^UTILITY(U,$J,358.3,9955,0)
 ;;=R94.7^^45^443^5
 ;;^UTILITY(U,$J,358.3,9955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9955,1,3,0)
 ;;=3^Abnormal Endocrine Function Studies NEC
 ;;^UTILITY(U,$J,358.3,9955,1,4,0)
 ;;=4^R94.7
 ;;^UTILITY(U,$J,358.3,9955,2)
 ;;=^5019744
 ;;^UTILITY(U,$J,358.3,9956,0)
 ;;=R94.31^^45^443^4
 ;;^UTILITY(U,$J,358.3,9956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9956,1,3,0)
 ;;=3^Abnormal EKG
 ;;^UTILITY(U,$J,358.3,9956,1,4,0)
 ;;=4^R94.31
 ;;^UTILITY(U,$J,358.3,9956,2)
 ;;=^5019739
 ;;^UTILITY(U,$J,358.3,9957,0)
 ;;=R97.0^^45^443^71
 ;;^UTILITY(U,$J,358.3,9957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9957,1,3,0)
 ;;=3^Elevated Carcinoembryonic Antigen 
 ;;^UTILITY(U,$J,358.3,9957,1,4,0)
 ;;=4^R97.0
 ;;^UTILITY(U,$J,358.3,9957,2)
 ;;=^5019746
 ;;^UTILITY(U,$J,358.3,9958,0)
 ;;=R97.1^^45^443^70
 ;;^UTILITY(U,$J,358.3,9958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9958,1,3,0)
 ;;=3^Elevated Cancer Antigen 125
 ;;^UTILITY(U,$J,358.3,9958,1,4,0)
 ;;=4^R97.1
 ;;^UTILITY(U,$J,358.3,9958,2)
 ;;=^5019747
 ;;^UTILITY(U,$J,358.3,9959,0)
 ;;=R97.8^^45^443^25
 ;;^UTILITY(U,$J,358.3,9959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9959,1,3,0)
 ;;=3^Abnormal Tumor Markers NEC
 ;;^UTILITY(U,$J,358.3,9959,1,4,0)
 ;;=4^R97.8
 ;;^UTILITY(U,$J,358.3,9959,2)
 ;;=^5019749
 ;;^UTILITY(U,$J,358.3,9960,0)
 ;;=R93.1^^45^443^17
 ;;^UTILITY(U,$J,358.3,9960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9960,1,3,0)
 ;;=3^Abnormal Findings on Dx Imaging of Heart/Cor Circ
 ;;^UTILITY(U,$J,358.3,9960,1,4,0)
 ;;=4^R93.1
 ;;^UTILITY(U,$J,358.3,9960,2)
 ;;=^5019714
 ;;^UTILITY(U,$J,358.3,9961,0)
 ;;=R68.83^^45^443^51
 ;;^UTILITY(U,$J,358.3,9961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9961,1,3,0)
 ;;=3^Chills w/o Fever
 ;;^UTILITY(U,$J,358.3,9961,1,4,0)
 ;;=4^R68.83
 ;;^UTILITY(U,$J,358.3,9961,2)
 ;;=^5019555
 ;;^UTILITY(U,$J,358.3,9962,0)
 ;;=R68.2^^45^443^66
 ;;^UTILITY(U,$J,358.3,9962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9962,1,3,0)
 ;;=3^Dry Mouth,Unspec
 ;;^UTILITY(U,$J,358.3,9962,1,4,0)
 ;;=4^R68.2
 ;;^UTILITY(U,$J,358.3,9962,2)
 ;;=^5019552
 ;;^UTILITY(U,$J,358.3,9963,0)
 ;;=R09.02^^45^443^92
 ;;^UTILITY(U,$J,358.3,9963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9963,1,3,0)
 ;;=3^Hypoxemia
 ;;^UTILITY(U,$J,358.3,9963,1,4,0)
 ;;=4^R09.02
 ;;^UTILITY(U,$J,358.3,9963,2)
 ;;=^332831
 ;;^UTILITY(U,$J,358.3,9964,0)
 ;;=R39.81^^45^443^96
 ;;^UTILITY(U,$J,358.3,9964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9964,1,3,0)
 ;;=3^Incontinence d/t Cognitive Imprmt/Svr Disability/Mobility
 ;;^UTILITY(U,$J,358.3,9964,1,4,0)
 ;;=4^R39.81
 ;;^UTILITY(U,$J,358.3,9964,2)
 ;;=^5019349
 ;;^UTILITY(U,$J,358.3,9965,0)
 ;;=R29.6^^45^443^151
 ;;^UTILITY(U,$J,358.3,9965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9965,1,3,0)
 ;;=3^Repeated Falls
 ;;^UTILITY(U,$J,358.3,9965,1,4,0)
 ;;=4^R29.6
 ;;^UTILITY(U,$J,358.3,9965,2)
 ;;=^5019317
 ;;^UTILITY(U,$J,358.3,9966,0)
 ;;=R44.1^^45^443^166
 ;;^UTILITY(U,$J,358.3,9966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9966,1,3,0)
 ;;=3^Visual Hallucinations
 ;;^UTILITY(U,$J,358.3,9966,1,4,0)
 ;;=4^R44.1
 ;;^UTILITY(U,$J,358.3,9966,2)
 ;;=^5019456
 ;;^UTILITY(U,$J,358.3,9967,0)
 ;;=R93.422^^45^443^11
 ;;^UTILITY(U,$J,358.3,9967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9967,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Left Kidney
 ;;^UTILITY(U,$J,358.3,9967,1,4,0)
 ;;=4^R93.422
 ;;^UTILITY(U,$J,358.3,9967,2)
 ;;=^5139225
 ;;^UTILITY(U,$J,358.3,9968,0)
 ;;=R93.421^^45^443^14
 ;;^UTILITY(U,$J,358.3,9968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9968,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Right Kidney
 ;;^UTILITY(U,$J,358.3,9968,1,4,0)
 ;;=4^R93.421
 ;;^UTILITY(U,$J,358.3,9968,2)
 ;;=^5139224
 ;;^UTILITY(U,$J,358.3,9969,0)
 ;;=R93.49^^45^443^12
 ;;^UTILITY(U,$J,358.3,9969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9969,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Oth Urinary Organs
 ;;^UTILITY(U,$J,358.3,9969,1,4,0)
 ;;=4^R93.49
 ;;^UTILITY(U,$J,358.3,9969,2)
 ;;=^5139227
 ;;^UTILITY(U,$J,358.3,9970,0)
 ;;=R93.41^^45^443^13
 ;;^UTILITY(U,$J,358.3,9970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9970,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Renal Pelvis/Ureter/Bladder
 ;;^UTILITY(U,$J,358.3,9970,1,4,0)
 ;;=4^R93.41
 ;;^UTILITY(U,$J,358.3,9970,2)
 ;;=^5139223
 ;;^UTILITY(U,$J,358.3,9971,0)
 ;;=R97.20^^45^443^72
 ;;^UTILITY(U,$J,358.3,9971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9971,1,3,0)
 ;;=3^Elevated PSA
 ;;^UTILITY(U,$J,358.3,9971,1,4,0)
 ;;=4^R97.20
 ;;^UTILITY(U,$J,358.3,9971,2)
 ;;=^334262
 ;;^UTILITY(U,$J,358.3,9972,0)
 ;;=R97.21^^45^443^152
 ;;^UTILITY(U,$J,358.3,9972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9972,1,3,0)
 ;;=3^Rising PSA After Tx of Prostate CA
 ;;^UTILITY(U,$J,358.3,9972,1,4,0)
 ;;=4^R97.21
 ;;^UTILITY(U,$J,358.3,9972,2)
 ;;=^5139228
 ;;^UTILITY(U,$J,358.3,9973,0)
 ;;=K08.89^^45^443^63
 ;;^UTILITY(U,$J,358.3,9973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9973,1,3,0)
 ;;=3^Disorder of Teeth/Supporting Structures,Oth Specified
 ;;^UTILITY(U,$J,358.3,9973,1,4,0)
 ;;=4^K08.89
 ;;^UTILITY(U,$J,358.3,9973,2)
 ;;=^5008467
 ;;^UTILITY(U,$J,358.3,9974,0)
 ;;=R82.79^^45^443^30
 ;;^UTILITY(U,$J,358.3,9974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9974,1,3,0)
 ;;=3^Abnormal Urine Microbiological Findings
 ;;^UTILITY(U,$J,358.3,9974,1,4,0)
 ;;=4^R82.79
 ;;^UTILITY(U,$J,358.3,9974,2)
 ;;=^5139222
 ;;^UTILITY(U,$J,358.3,9975,0)
 ;;=K08.9^^45^443^64
 ;;^UTILITY(U,$J,358.3,9975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9975,1,3,0)
 ;;=3^Disorder of Teeth/Supporting Structures,Unspec
 ;;^UTILITY(U,$J,358.3,9975,1,4,0)
 ;;=4^K08.9
 ;;^UTILITY(U,$J,358.3,9975,2)
 ;;=^5008468
 ;;^UTILITY(U,$J,358.3,9976,0)
 ;;=R93.89^^45^443^15
 ;;^UTILITY(U,$J,358.3,9976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9976,1,3,0)
 ;;=3^Abnormal Finding on Dx Imaging of Oth Body Structures
 ;;^UTILITY(U,$J,358.3,9976,1,4,0)
 ;;=4^R93.89
 ;;^UTILITY(U,$J,358.3,9976,2)
 ;;=^5157477
 ;;^UTILITY(U,$J,358.3,9977,0)
 ;;=R82.998^^45^443^27
 ;;^UTILITY(U,$J,358.3,9977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9977,1,3,0)
 ;;=3^Abnormal Urine Findings,Other
 ;;^UTILITY(U,$J,358.3,9977,1,4,0)
 ;;=4^R82.998
 ;;^UTILITY(U,$J,358.3,9977,2)
 ;;=^5157472
 ;;^UTILITY(U,$J,358.3,9978,0)
 ;;=R82.89^^45^443^26
 ;;^UTILITY(U,$J,358.3,9978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9978,1,3,0)
 ;;=3^Abnormal Urine Cytology/Histology Findings,Other
 ;;^UTILITY(U,$J,358.3,9978,1,4,0)
 ;;=4^R82.89
 ;;^UTILITY(U,$J,358.3,9978,2)
 ;;=^5158142
 ;;^UTILITY(U,$J,358.3,9979,0)
 ;;=R82.81^^45^443^149
 ;;^UTILITY(U,$J,358.3,9979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9979,1,3,0)
 ;;=3^Pyuria
 ;;^UTILITY(U,$J,358.3,9979,1,4,0)
 ;;=4^R82.81
 ;;^UTILITY(U,$J,358.3,9979,2)
 ;;=^101879
 ;;^UTILITY(U,$J,358.3,9980,0)
 ;;=R35.89^^45^443^144
 ;;^UTILITY(U,$J,358.3,9980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9980,1,3,0)
 ;;=3^Polyuria,Other
 ;;^UTILITY(U,$J,358.3,9980,1,4,0)
 ;;=4^R35.89
 ;;^UTILITY(U,$J,358.3,9980,2)
 ;;=^5161234
 ;;^UTILITY(U,$J,358.3,9981,0)
 ;;=R63.30^^45^443^76
 ;;^UTILITY(U,$J,358.3,9981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9981,1,3,0)
 ;;=3^Feeding Difficulties,Unspec
 ;;^UTILITY(U,$J,358.3,9981,1,4,0)
 ;;=4^R63.30
 ;;^UTILITY(U,$J,358.3,9981,2)
 ;;=^5161236
 ;;^UTILITY(U,$J,358.3,9982,0)
 ;;=S43.51XA^^45^444^14
 ;;^UTILITY(U,$J,358.3,9982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9982,1,3,0)
 ;;=3^Sprain of Right Acromioclavicular Joint
 ;;^UTILITY(U,$J,358.3,9982,1,4,0)
 ;;=4^S43.51XA
 ;;^UTILITY(U,$J,358.3,9982,2)
 ;;=^5027903
 ;;^UTILITY(U,$J,358.3,9983,0)
 ;;=S43.52XA^^45^444^5
 ;;^UTILITY(U,$J,358.3,9983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9983,1,3,0)
 ;;=3^Sprain of Left Acromioclavicular Joint
 ;;^UTILITY(U,$J,358.3,9983,1,4,0)
 ;;=4^S43.52XA
 ;;^UTILITY(U,$J,358.3,9983,2)
 ;;=^5027906
 ;;^UTILITY(U,$J,358.3,9984,0)
 ;;=S43.421A^^45^444^19
 ;;^UTILITY(U,$J,358.3,9984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9984,1,3,0)
 ;;=3^Sprain of Right Rotator Cuff Capsule
 ;;^UTILITY(U,$J,358.3,9984,1,4,0)
 ;;=4^S43.421A
 ;;^UTILITY(U,$J,358.3,9984,2)
 ;;=^5027879
 ;;^UTILITY(U,$J,358.3,9985,0)
 ;;=S43.422A^^45^444^10
 ;;^UTILITY(U,$J,358.3,9985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9985,1,3,0)
 ;;=3^Sprain of Left Rotator Cuff Capsule
 ;;^UTILITY(U,$J,358.3,9985,1,4,0)
 ;;=4^S43.422A
 ;;^UTILITY(U,$J,358.3,9985,2)
 ;;=^5027882
 ;;^UTILITY(U,$J,358.3,9986,0)
 ;;=S53.401A^^45^444^16
 ;;^UTILITY(U,$J,358.3,9986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9986,1,3,0)
 ;;=3^Sprain of Right Elbow
 ;;^UTILITY(U,$J,358.3,9986,1,4,0)
 ;;=4^S53.401A
 ;;^UTILITY(U,$J,358.3,9986,2)
 ;;=^5031361
 ;;^UTILITY(U,$J,358.3,9987,0)
 ;;=S53.402A^^45^444^7
 ;;^UTILITY(U,$J,358.3,9987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9987,1,3,0)
 ;;=3^Sprain of Left Elbow
 ;;^UTILITY(U,$J,358.3,9987,1,4,0)
 ;;=4^S53.402A
 ;;^UTILITY(U,$J,358.3,9987,2)
 ;;=^5031364
 ;;^UTILITY(U,$J,358.3,9988,0)
 ;;=S56.011A^^45^444^56
 ;;^UTILITY(U,$J,358.3,9988,1,0)
 ;;=^358.31IA^4^2