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