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

IBDEI0EF.m

Go to the documentation of this file. 
  1. IBDEI0EF ; ; 03-MAY-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,36120,0)
  1.  ;;=J16.8^^105^1466^14
  1.  ;;^UTILITY(U,$J,358.3,36120,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36120,1,3,0)
  1.  ;;=3^Pneumonia d/t Other Spec Infectious Organisms
  1.  ;;^UTILITY(U,$J,358.3,36120,1,4,0)
  1.  ;;=4^J16.8
  1.  ;;^UTILITY(U,$J,358.3,36120,2)
  1.  ;;=^5008180
  1.  ;;^UTILITY(U,$J,358.3,36121,0)
  1.  ;;=J17.^^105^1466^21
  1.  ;;^UTILITY(U,$J,358.3,36121,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36121,1,3,0)
  1.  ;;=3^Pneumonia in Diseases Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,36121,1,4,0)
  1.  ;;=4^J17.
  1.  ;;^UTILITY(U,$J,358.3,36121,2)
  1.  ;;=^5008181
  1.  ;;^UTILITY(U,$J,358.3,36122,0)
  1.  ;;=J18.0^^105^1466^2
  1.  ;;^UTILITY(U,$J,358.3,36122,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36122,1,3,0)
  1.  ;;=3^Bronchopneumonia,Unspec Organism
  1.  ;;^UTILITY(U,$J,358.3,36122,1,4,0)
  1.  ;;=4^J18.0
  1.  ;;^UTILITY(U,$J,358.3,36122,2)
  1.  ;;=^5008182
  1.  ;;^UTILITY(U,$J,358.3,36123,0)
  1.  ;;=J18.1^^105^1466^25
  1.  ;;^UTILITY(U,$J,358.3,36123,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36123,1,3,0)
  1.  ;;=3^Pneumonia,Lobar,Unspec Organism
  1.  ;;^UTILITY(U,$J,358.3,36123,1,4,0)
  1.  ;;=4^J18.1
  1.  ;;^UTILITY(U,$J,358.3,36123,2)
  1.  ;;=^5008183
  1.  ;;^UTILITY(U,$J,358.3,36124,0)
  1.  ;;=J18.2^^105^1466^24
  1.  ;;^UTILITY(U,$J,358.3,36124,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36124,1,3,0)
  1.  ;;=3^Pneumonia,Hypostatic,Unspec Organism
  1.  ;;^UTILITY(U,$J,358.3,36124,1,4,0)
  1.  ;;=4^J18.2
  1.  ;;^UTILITY(U,$J,358.3,36124,2)
  1.  ;;=^5008184
  1.  ;;^UTILITY(U,$J,358.3,36125,0)
  1.  ;;=J18.8^^105^1466^26
  1.  ;;^UTILITY(U,$J,358.3,36125,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36125,1,3,0)
  1.  ;;=3^Pneumonia,Oth,Unspec Organism
  1.  ;;^UTILITY(U,$J,358.3,36125,1,4,0)
  1.  ;;=4^J18.8
  1.  ;;^UTILITY(U,$J,358.3,36125,2)
  1.  ;;=^5008185
  1.  ;;^UTILITY(U,$J,358.3,36126,0)
  1.  ;;=J18.9^^105^1466^27
  1.  ;;^UTILITY(U,$J,358.3,36126,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36126,1,3,0)
  1.  ;;=3^Pneumonia,Unspec Organism
  1.  ;;^UTILITY(U,$J,358.3,36126,1,4,0)
  1.  ;;=4^J18.9
  1.  ;;^UTILITY(U,$J,358.3,36126,2)
  1.  ;;=^95632
  1.  ;;^UTILITY(U,$J,358.3,36127,0)
  1.  ;;=N39.0^^105^1467^13
  1.  ;;^UTILITY(U,$J,358.3,36127,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36127,1,3,0)
  1.  ;;=3^UTI,Site not Spec
  1.  ;;^UTILITY(U,$J,358.3,36127,1,4,0)
  1.  ;;=4^N39.0
  1.  ;;^UTILITY(U,$J,358.3,36127,2)
  1.  ;;=^124436
  1.  ;;^UTILITY(U,$J,358.3,36128,0)
  1.  ;;=N30.01^^105^1467^1
  1.  ;;^UTILITY(U,$J,358.3,36128,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36128,1,3,0)
  1.  ;;=3^Acute Cystitis w/ Hematuria
  1.  ;;^UTILITY(U,$J,358.3,36128,1,4,0)
  1.  ;;=4^N30.01
  1.  ;;^UTILITY(U,$J,358.3,36128,2)
  1.  ;;=^5015633
  1.  ;;^UTILITY(U,$J,358.3,36129,0)
  1.  ;;=N30.00^^105^1467^2
  1.  ;;^UTILITY(U,$J,358.3,36129,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36129,1,3,0)
  1.  ;;=3^Acute Cystitis w/o Hematuria
  1.  ;;^UTILITY(U,$J,358.3,36129,1,4,0)
  1.  ;;=4^N30.00
  1.  ;;^UTILITY(U,$J,358.3,36129,2)
  1.  ;;=^5015632
  1.  ;;^UTILITY(U,$J,358.3,36130,0)
  1.  ;;=N10.^^105^1467^3
  1.  ;;^UTILITY(U,$J,358.3,36130,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36130,1,3,0)
  1.  ;;=3^Acute Tubulo-Interstitial Nephritis
  1.  ;;^UTILITY(U,$J,358.3,36130,1,4,0)
  1.  ;;=4^N10.
  1.  ;;^UTILITY(U,$J,358.3,36130,2)
  1.  ;;=^5015570
  1.  ;;^UTILITY(U,$J,358.3,36131,0)
  1.  ;;=N11.9^^105^1467^4
  1.  ;;^UTILITY(U,$J,358.3,36131,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36131,1,3,0)
  1.  ;;=3^Chronic Tubulo-Interstitial Nephritis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36131,1,4,0)
  1.  ;;=4^N11.9
  1.  ;;^UTILITY(U,$J,358.3,36131,2)
  1.  ;;=^5015574
  1.  ;;^UTILITY(U,$J,358.3,36132,0)
  1.  ;;=N30.91^^105^1467^5
  1.  ;;^UTILITY(U,$J,358.3,36132,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36132,1,3,0)
  1.  ;;=3^Cystitis,Unspec w/ Hematuria
  1.  ;;^UTILITY(U,$J,358.3,36132,1,4,0)
  1.  ;;=4^N30.91
  1.  ;;^UTILITY(U,$J,358.3,36132,2)
  1.  ;;=^5015643
  1.  ;;^UTILITY(U,$J,358.3,36133,0)
  1.  ;;=N30.90^^105^1467^6
  1.  ;;^UTILITY(U,$J,358.3,36133,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36133,1,3,0)
  1.  ;;=3^Cystitis,Unspec w/o Hematuria
  1.  ;;^UTILITY(U,$J,358.3,36133,1,4,0)
  1.  ;;=4^N30.90
  1.  ;;^UTILITY(U,$J,358.3,36133,2)
  1.  ;;=^5015642
  1.  ;;^UTILITY(U,$J,358.3,36134,0)
  1.  ;;=N28.84^^105^1467^7
  1.  ;;^UTILITY(U,$J,358.3,36134,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36134,1,3,0)
  1.  ;;=3^Pyelitis Cystica
  1.  ;;^UTILITY(U,$J,358.3,36134,1,4,0)
  1.  ;;=4^N28.84
  1.  ;;^UTILITY(U,$J,358.3,36134,2)
  1.  ;;=^5015628
  1.  ;;^UTILITY(U,$J,358.3,36135,0)
  1.  ;;=N28.85^^105^1467^8
  1.  ;;^UTILITY(U,$J,358.3,36135,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36135,1,3,0)
  1.  ;;=3^Pyeloureteritis Cystica
  1.  ;;^UTILITY(U,$J,358.3,36135,1,4,0)
  1.  ;;=4^N28.85
  1.  ;;^UTILITY(U,$J,358.3,36135,2)
  1.  ;;=^270372
  1.  ;;^UTILITY(U,$J,358.3,36136,0)
  1.  ;;=N15.1^^105^1467^9
  1.  ;;^UTILITY(U,$J,358.3,36136,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36136,1,3,0)
  1.  ;;=3^Renal & Perinephric Abscess
  1.  ;;^UTILITY(U,$J,358.3,36136,1,4,0)
  1.  ;;=4^N15.1
  1.  ;;^UTILITY(U,$J,358.3,36136,2)
  1.  ;;=^270371
  1.  ;;^UTILITY(U,$J,358.3,36137,0)
  1.  ;;=N16.^^105^1467^10
  1.  ;;^UTILITY(U,$J,358.3,36137,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36137,1,3,0)
  1.  ;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,36137,1,4,0)
  1.  ;;=4^N16.
  1.  ;;^UTILITY(U,$J,358.3,36137,2)
  1.  ;;=^5015597
  1.  ;;^UTILITY(U,$J,358.3,36138,0)
  1.  ;;=N15.9^^105^1467^11
  1.  ;;^UTILITY(U,$J,358.3,36138,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36138,1,3,0)
  1.  ;;=3^Tubulo-Interstitial Disease,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36138,1,4,0)
  1.  ;;=4^N15.9
  1.  ;;^UTILITY(U,$J,358.3,36138,2)
  1.  ;;=^5015596
  1.  ;;^UTILITY(U,$J,358.3,36139,0)
  1.  ;;=N12.^^105^1467^12
  1.  ;;^UTILITY(U,$J,358.3,36139,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36139,1,3,0)
  1.  ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
  1.  ;;^UTILITY(U,$J,358.3,36139,1,4,0)
  1.  ;;=4^N12.
  1.  ;;^UTILITY(U,$J,358.3,36139,2)
  1.  ;;=^5015575
  1.  ;;^UTILITY(U,$J,358.3,36140,0)
  1.  ;;=N28.86^^105^1467^14
  1.  ;;^UTILITY(U,$J,358.3,36140,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36140,1,3,0)
  1.  ;;=3^Ureteritis Cystica
  1.  ;;^UTILITY(U,$J,358.3,36140,1,4,0)
  1.  ;;=4^N28.86
  1.  ;;^UTILITY(U,$J,358.3,36140,2)
  1.  ;;=^5015629
  1.  ;;^UTILITY(U,$J,358.3,36141,0)
  1.  ;;=A08.0^^105^1468^6
  1.  ;;^UTILITY(U,$J,358.3,36141,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36141,1,3,0)
  1.  ;;=3^Enteritis,Rotaviral
  1.  ;;^UTILITY(U,$J,358.3,36141,1,4,0)
  1.  ;;=4^A08.0
  1.  ;;^UTILITY(U,$J,358.3,36141,2)
  1.  ;;=^5000052
  1.  ;;^UTILITY(U,$J,358.3,36142,0)
  1.  ;;=A08.11^^105^1468^1
  1.  ;;^UTILITY(U,$J,358.3,36142,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36142,1,3,0)
  1.  ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
  1.  ;;^UTILITY(U,$J,358.3,36142,1,4,0)
  1.  ;;=4^A08.11
  1.  ;;^UTILITY(U,$J,358.3,36142,2)
  1.  ;;=^5000053
  1.  ;;^UTILITY(U,$J,358.3,36143,0)
  1.  ;;=A08.19^^105^1468^2
  1.  ;;^UTILITY(U,$J,358.3,36143,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36143,1,3,0)
  1.  ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
  1.  ;;^UTILITY(U,$J,358.3,36143,1,4,0)
  1.  ;;=4^A08.19
  1.  ;;^UTILITY(U,$J,358.3,36143,2)
  1.  ;;=^5000054
  1.  ;;^UTILITY(U,$J,358.3,36144,0)
  1.  ;;=A08.2^^105^1468^3
  1.  ;;^UTILITY(U,$J,358.3,36144,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36144,1,3,0)
  1.  ;;=3^Enteritis,Adenoviral
  1.  ;;^UTILITY(U,$J,358.3,36144,1,4,0)
  1.  ;;=4^A08.2
  1.  ;;^UTILITY(U,$J,358.3,36144,2)
  1.  ;;=^5000055
  1.  ;;^UTILITY(U,$J,358.3,36145,0)
  1.  ;;=A08.31^^105^1468^5
  1.  ;;^UTILITY(U,$J,358.3,36145,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36145,1,3,0)
  1.  ;;=3^Enteritis,Calicivirus
  1.  ;;^UTILITY(U,$J,358.3,36145,1,4,0)
  1.  ;;=4^A08.31
  1.  ;;^UTILITY(U,$J,358.3,36145,2)
  1.  ;;=^5000056
  1.  ;;^UTILITY(U,$J,358.3,36146,0)
  1.  ;;=A08.32^^105^1468^4
  1.  ;;^UTILITY(U,$J,358.3,36146,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36146,1,3,0)
  1.  ;;=3^Enteritis,Astrovirus
  1.  ;;^UTILITY(U,$J,358.3,36146,1,4,0)
  1.  ;;=4^A08.32
  1.  ;;^UTILITY(U,$J,358.3,36146,2)
  1.  ;;=^5000058
  1.  ;;^UTILITY(U,$J,358.3,36147,0)
  1.  ;;=A08.4^^105^1468^8
  1.  ;;^UTILITY(U,$J,358.3,36147,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36147,1,3,0)
  1.  ;;=3^Viral Intestinal Infection,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36147,1,4,0)
  1.  ;;=4^A08.4
  1.  ;;^UTILITY(U,$J,358.3,36147,2)
  1.  ;;=^5000059
  1.  ;;^UTILITY(U,$J,358.3,36148,0)
  1.  ;;=A08.8^^105^1468^7
  1.  ;;^UTILITY(U,$J,358.3,36148,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36148,1,3,0)
  1.  ;;=3^Intestinal Infections,Oth Spec
  1.  ;;^UTILITY(U,$J,358.3,36148,1,4,0)
  1.  ;;=4^A08.8
  1.  ;;^UTILITY(U,$J,358.3,36148,2)
  1.  ;;=^5000060
  1.  ;;^UTILITY(U,$J,358.3,36149,0)
  1.  ;;=J68.0^^105^1469^2
  1.  ;;^UTILITY(U,$J,358.3,36149,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36149,1,3,0)
  1.  ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
  1.  ;;^UTILITY(U,$J,358.3,36149,1,4,0)
  1.  ;;=4^J68.0
  1.  ;;^UTILITY(U,$J,358.3,36149,2)
  1.  ;;=^5008281
  1.  ;;^UTILITY(U,$J,358.3,36150,0)
  1.  ;;=J69.1^^105^1469^7
  1.  ;;^UTILITY(U,$J,358.3,36150,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36150,1,3,0)
  1.  ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
  1.  ;;^UTILITY(U,$J,358.3,36150,1,4,0)
  1.  ;;=4^J69.1
  1.  ;;^UTILITY(U,$J,358.3,36150,2)
  1.  ;;=^95664
  1.  ;;^UTILITY(U,$J,358.3,36151,0)
  1.  ;;=J68.9^^105^1469^9
  1.  ;;^UTILITY(U,$J,358.3,36151,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36151,1,3,0)
  1.  ;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
  1.  ;;^UTILITY(U,$J,358.3,36151,1,4,0)
  1.  ;;=4^J68.9
  1.  ;;^UTILITY(U,$J,358.3,36151,2)
  1.  ;;=^5008287
  1.  ;;^UTILITY(U,$J,358.3,36152,0)
  1.  ;;=J84.114^^105^1469^1
  1.  ;;^UTILITY(U,$J,358.3,36152,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36152,1,3,0)
  1.  ;;=3^Acute Interstitial Pneumonitis
  1.  ;;^UTILITY(U,$J,358.3,36152,1,4,0)
  1.  ;;=4^J84.114
  1.  ;;^UTILITY(U,$J,358.3,36152,2)
  1.  ;;=^340536
  1.  ;;^UTILITY(U,$J,358.3,36153,0)
  1.  ;;=J84.89^^105^1469^6
  1.  ;;^UTILITY(U,$J,358.3,36153,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36153,1,3,0)
  1.  ;;=3^Interstitial Pulmonary Diseases,Oth Spec
  1.  ;;^UTILITY(U,$J,358.3,36153,1,4,0)
  1.  ;;=4^J84.89
  1.  ;;^UTILITY(U,$J,358.3,36153,2)
  1.  ;;=^5008303
  1.  ;;^UTILITY(U,$J,358.3,36154,0)
  1.  ;;=J82.81^^105^1469^5
  1.  ;;^UTILITY(U,$J,358.3,36154,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36154,1,3,0)
  1.  ;;=3^Eosinophilic Pneumonia,Chronic
  1.  ;;^UTILITY(U,$J,358.3,36154,1,4,0)
  1.  ;;=4^J82.81
  1.  ;;^UTILITY(U,$J,358.3,36154,2)
  1.  ;;=^24374
  1.  ;;^UTILITY(U,$J,358.3,36155,0)
  1.  ;;=J82.82^^105^1469^4
  1.  ;;^UTILITY(U,$J,358.3,36155,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36155,1,3,0)
  1.  ;;=3^Eosinophilic Pneumonia,Acute
  1.  ;;^UTILITY(U,$J,358.3,36155,1,4,0)
  1.  ;;=4^J82.82
  1.  ;;^UTILITY(U,$J,358.3,36155,2)
  1.  ;;=^5159205
  1.  ;;^UTILITY(U,$J,358.3,36156,0)
  1.  ;;=J82.83^^105^1469^3
  1.  ;;^UTILITY(U,$J,358.3,36156,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36156,1,3,0)
  1.  ;;=3^Eosinophilic Asthma
  1.  ;;^UTILITY(U,$J,358.3,36156,1,4,0)
  1.  ;;=4^J82.83
  1.  ;;^UTILITY(U,$J,358.3,36156,2)
  1.  ;;=^5159206
  1.  ;;^UTILITY(U,$J,358.3,36157,0)
  1.  ;;=J82.89^^105^1469^8
  1.  ;;^UTILITY(U,$J,358.3,36157,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36157,1,3,0)
  1.  ;;=3^Pulmonary Eosinophilia,Other,NEC
  1.  ;;^UTILITY(U,$J,358.3,36157,1,4,0)
  1.  ;;=4^J82.89
  1.  ;;^UTILITY(U,$J,358.3,36157,2)
  1.  ;;=^5159207
  1.  ;;^UTILITY(U,$J,358.3,36158,0)
  1.  ;;=96160^^106^1470^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36158,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36158,1,2,0)
  1.  ;;=2^96160
  1.  ;;^UTILITY(U,$J,358.3,36158,1,3,0)
  1.  ;;=3^Admin Pt Focused Health Risk Assessmt w/ Scoring
  1.  ;;^UTILITY(U,$J,358.3,36159,0)
  1.  ;;=96161^^106^1470^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36159,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36159,1,2,0)
  1.  ;;=2^96161
  1.  ;;^UTILITY(U,$J,358.3,36159,1,3,0)
  1.  ;;=3^Admin Caregiver Focused Hlth Risk Assmt w/ Scoring
  1.  ;;^UTILITY(U,$J,358.3,36160,0)
  1.  ;;=96156^^106^1470^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36160,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36160,1,2,0)
  1.  ;;=2^96156
  1.  ;;^UTILITY(U,$J,358.3,36160,1,3,0)
  1.  ;;=3^Health Behavior Assessment/Reassessment
  1.  ;;^UTILITY(U,$J,358.3,36161,0)
  1.  ;;=96164^^106^1471^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36161,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36161,1,2,0)
  1.  ;;=2^96164
  1.  ;;^UTILITY(U,$J,358.3,36161,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Grp,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,36162,0)
  1.  ;;=96165^^106^1471^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36162,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36162,1,2,0)
  1.  ;;=2^96165
  1.  ;;^UTILITY(U,$J,358.3,36162,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Grp,Ea Addl 15 min
  1.  ;;^UTILITY(U,$J,358.3,36163,0)
  1.  ;;=96167^^106^1471^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36163,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36163,1,2,0)
  1.  ;;=2^96167
  1.  ;;^UTILITY(U,$J,358.3,36163,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Fam w/ Pt,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,36164,0)
  1.  ;;=96168^^106^1471^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36164,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36164,1,2,0)
  1.  ;;=2^96168
  1.  ;;^UTILITY(U,$J,358.3,36164,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Fam w/ Pt,Ea Addl 15 min
  1.  ;;^UTILITY(U,$J,358.3,36165,0)
  1.  ;;=96170^^106^1471^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36165,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36165,1,2,0)
  1.  ;;=2^96170
  1.  ;;^UTILITY(U,$J,358.3,36165,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Fam w/o Pt,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,36166,0)
  1.  ;;=96171^^106^1471^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36166,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36166,1,2,0)
  1.  ;;=2^96171
  1.  ;;^UTILITY(U,$J,358.3,36166,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Fam w/o Pt,Ea Addl 15 min
  1.  ;;^UTILITY(U,$J,358.3,36167,0)
  1.  ;;=96158^^106^1471^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36167,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36167,1,2,0)
  1.  ;;=2^96158
  1.  ;;^UTILITY(U,$J,358.3,36167,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Ind,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,36168,0)
  1.  ;;=96159^^106^1471^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,36168,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,36168,1,2,0)
  1.  ;;=2^96159
  1.  ;;^UTILITY(U,$J,358.3,36168,1,3,0)
  1.  ;;=3^Hlth Bhv Intv,Ind,Ea Addl 15 min
  1.  ;;^UTILITY(U,$J,358.3,36169,0)
  1.  ;;=B18.2^^107^1472^40
  1.  ;;^UTILITY(U,$J,358.3,36169,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36169,1,3,0)
  1.  ;;=3^Hepatitis C,Chr
  1.  ;;^UTILITY(U,$J,358.3,36169,1,4,0)
  1.  ;;=4^B18.2
  1.  ;;^UTILITY(U,$J,358.3,36169,2)
  1.  ;;=^5000548
  1.  ;;^UTILITY(U,$J,358.3,36170,0)
  1.  ;;=E11.9^^107^1472^25
  1.  ;;^UTILITY(U,$J,358.3,36170,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36170,1,3,0)
  1.  ;;=3^Diabetes Type 2
  1.  ;;^UTILITY(U,$J,358.3,36170,1,4,0)
  1.  ;;=4^E11.9
  1.  ;;^UTILITY(U,$J,358.3,36170,2)
  1.  ;;=^5002666
  1.  ;;^UTILITY(U,$J,358.3,36171,0)
  1.  ;;=E11.40^^107^1472^23
  1.  ;;^UTILITY(U,$J,358.3,36171,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36171,1,3,0)
  1.  ;;=3^DM Type 2 w/ Neuropathy
  1.  ;;^UTILITY(U,$J,358.3,36171,1,4,0)
  1.  ;;=4^E11.40
  1.  ;;^UTILITY(U,$J,358.3,36171,2)
  1.  ;;=^5002644
  1.  ;;^UTILITY(U,$J,358.3,36172,0)
  1.  ;;=E78.2^^107^1472^41
  1.  ;;^UTILITY(U,$J,358.3,36172,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36172,1,3,0)
  1.  ;;=3^Hyperlipidemia,Mixed
  1.  ;;^UTILITY(U,$J,358.3,36172,1,4,0)
  1.  ;;=4^E78.2
  1.  ;;^UTILITY(U,$J,358.3,36172,2)
  1.  ;;=^78424
  1.  ;;^UTILITY(U,$J,358.3,36173,0)
  1.  ;;=E78.5^^107^1472^42
  1.  ;;^UTILITY(U,$J,358.3,36173,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36173,1,3,0)
  1.  ;;=3^Hyperlipidemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36173,1,4,0)
  1.  ;;=4^E78.5
  1.  ;;^UTILITY(U,$J,358.3,36173,2)
  1.  ;;=^5002969
  1.  ;;^UTILITY(U,$J,358.3,36174,0)
  1.  ;;=E66.3^^107^1472^59
  1.  ;;^UTILITY(U,$J,358.3,36174,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36174,1,3,0)
  1.  ;;=3^Overweight
  1.  ;;^UTILITY(U,$J,358.3,36174,1,4,0)
  1.  ;;=4^E66.3
  1.  ;;^UTILITY(U,$J,358.3,36174,2)
  1.  ;;=^5002830
  1.  ;;^UTILITY(U,$J,358.3,36175,0)
  1.  ;;=F17.200^^107^1472^52
  1.  ;;^UTILITY(U,$J,358.3,36175,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36175,1,3,0)
  1.  ;;=3^Nicotine Dependence,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36175,1,4,0)
  1.  ;;=4^F17.200
  1.  ;;^UTILITY(U,$J,358.3,36175,2)
  1.  ;;=^5003360
  1.  ;;^UTILITY(U,$J,358.3,36176,0)
  1.  ;;=G43.909^^107^1472^50
  1.  ;;^UTILITY(U,$J,358.3,36176,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36176,1,3,0)
  1.  ;;=3^Migraine,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36176,1,4,0)
  1.  ;;=4^G43.909
  1.  ;;^UTILITY(U,$J,358.3,36176,2)
  1.  ;;=^5003909
  1.  ;;^UTILITY(U,$J,358.3,36177,0)
  1.  ;;=H91.93^^107^1472^36
  1.  ;;^UTILITY(U,$J,358.3,36177,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36177,1,3,0)
  1.  ;;=3^Hearing Loss,Bilateral
  1.  ;;^UTILITY(U,$J,358.3,36177,1,4,0)
  1.  ;;=4^H91.93
  1.  ;;^UTILITY(U,$J,358.3,36177,2)
  1.  ;;=^5006944
  1.  ;;^UTILITY(U,$J,358.3,36178,0)
  1.  ;;=I10.^^107^1472^43
  1.  ;;^UTILITY(U,$J,358.3,36178,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36178,1,3,0)
  1.  ;;=3^Hypertension
  1.  ;;^UTILITY(U,$J,358.3,36178,1,4,0)
  1.  ;;=4^I10.
  1.  ;;^UTILITY(U,$J,358.3,36178,2)
  1.  ;;=^5007062
  1.  ;;^UTILITY(U,$J,358.3,36179,0)
  1.  ;;=I50.9^^107^1472^19
  1.  ;;^UTILITY(U,$J,358.3,36179,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36179,1,3,0)
  1.  ;;=3^Congestive Heart Failure,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36179,1,4,0)
  1.  ;;=4^I50.9
  1.  ;;^UTILITY(U,$J,358.3,36179,2)
  1.  ;;=^5007251
  1.  ;;^UTILITY(U,$J,358.3,36180,0)
  1.  ;;=I67.89^^107^1472^18
  1.  ;;^UTILITY(U,$J,358.3,36180,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36180,1,3,0)
  1.  ;;=3^Cerebrovascular Disease,Oth
  1.  ;;^UTILITY(U,$J,358.3,36180,1,4,0)
  1.  ;;=4^I67.89
  1.  ;;^UTILITY(U,$J,358.3,36180,2)
  1.  ;;=^5007388
  1.  ;;^UTILITY(U,$J,358.3,36181,0)
  1.  ;;=J45.909^^107^1472^4
  1.  ;;^UTILITY(U,$J,358.3,36181,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36181,1,3,0)
  1.  ;;=3^Asthma,Unspec,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,36181,1,4,0)
  1.  ;;=4^J45.909
  1.  ;;^UTILITY(U,$J,358.3,36181,2)
  1.  ;;=^5008256
  1.  ;;^UTILITY(U,$J,358.3,36182,0)
  1.  ;;=J44.9^^107^1472^16
  1.  ;;^UTILITY(U,$J,358.3,36182,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36182,1,3,0)
  1.  ;;=3^COPD,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36182,1,4,0)
  1.  ;;=4^J44.9
  1.  ;;^UTILITY(U,$J,358.3,36182,2)
  1.  ;;=^5008241
  1.  ;;^UTILITY(U,$J,358.3,36183,0)
  1.  ;;=K21.9^^107^1472^31
  1.  ;;^UTILITY(U,$J,358.3,36183,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36183,1,3,0)
  1.  ;;=3^GERD w/o Esophagitis
  1.  ;;^UTILITY(U,$J,358.3,36183,1,4,0)
  1.  ;;=4^K21.9
  1.  ;;^UTILITY(U,$J,358.3,36183,2)
  1.  ;;=^5008505
  1.  ;;^UTILITY(U,$J,358.3,36184,0)
  1.  ;;=N40.1^^107^1472^29
  1.  ;;^UTILITY(U,$J,358.3,36184,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36184,1,3,0)
  1.  ;;=3^Enlarged Prostate w/ LUTS
  1.  ;;^UTILITY(U,$J,358.3,36184,1,4,0)
  1.  ;;=4^N40.1
  1.  ;;^UTILITY(U,$J,358.3,36184,2)
  1.  ;;=^5015690
  1.  ;;^UTILITY(U,$J,358.3,36185,0)
  1.  ;;=L03.818^^107^1472^17
  1.  ;;^UTILITY(U,$J,358.3,36185,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36185,1,3,0)
  1.  ;;=3^Cellulitis,Oth Sites
  1.  ;;^UTILITY(U,$J,358.3,36185,1,4,0)
  1.  ;;=4^L03.818
  1.  ;;^UTILITY(U,$J,358.3,36185,2)
  1.  ;;=^5009064
  1.  ;;^UTILITY(U,$J,358.3,36186,0)
  1.  ;;=G47.33^^107^1472^77
  1.  ;;^UTILITY(U,$J,358.3,36186,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36186,1,3,0)
  1.  ;;=3^Sleep Apnea,Obstructive
  1.  ;;^UTILITY(U,$J,358.3,36186,1,4,0)
  1.  ;;=4^G47.33
  1.  ;;^UTILITY(U,$J,358.3,36186,2)
  1.  ;;=^332763
  1.  ;;^UTILITY(U,$J,358.3,36187,0)
  1.  ;;=R73.01^^107^1472^46
  1.  ;;^UTILITY(U,$J,358.3,36187,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36187,1,3,0)
  1.  ;;=3^Impaired Fasting Glucose
  1.  ;;^UTILITY(U,$J,358.3,36187,1,4,0)
  1.  ;;=4^R73.01
  1.  ;;^UTILITY(U,$J,358.3,36187,2)
  1.  ;;=^5019561
  1.  ;;^UTILITY(U,$J,358.3,36188,0)
  1.  ;;=R74.8^^107^1472^1
  1.  ;;^UTILITY(U,$J,358.3,36188,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36188,1,3,0)
  1.  ;;=3^Abnormal Levels of Serum Enzymes
  1.  ;;^UTILITY(U,$J,358.3,36188,1,4,0)
  1.  ;;=4^R74.8
  1.  ;;^UTILITY(U,$J,358.3,36188,2)
  1.  ;;=^5019566
  1.  ;;^UTILITY(U,$J,358.3,36189,0)
  1.  ;;=R03.0^^107^1472^27
  1.  ;;^UTILITY(U,$J,358.3,36189,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36189,1,3,0)
  1.  ;;=3^Elevated BP Reading w/o Diagnosis of HTN
  1.  ;;^UTILITY(U,$J,358.3,36189,1,4,0)
  1.  ;;=4^R03.0
  1.  ;;^UTILITY(U,$J,358.3,36189,2)
  1.  ;;=^5019171
  1.  ;;^UTILITY(U,$J,358.3,36190,0)
  1.  ;;=Z91.19^^107^1472^53
  1.  ;;^UTILITY(U,$J,358.3,36190,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36190,1,3,0)
  1.  ;;=3^Noncompliance w/ Medical Treatment/Regimen