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

IBDEI0EO.m

Go to the documentation of this file. 
  1. IBDEI0EO ; ; 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,36725,1,3,0)
  1.  ;;=3^Allergic Rhinitis d/t Pollen
  1.  ;;^UTILITY(U,$J,358.3,36725,1,4,0)
  1.  ;;=4^J30.1
  1.  ;;^UTILITY(U,$J,358.3,36725,2)
  1.  ;;=^269906
  1.  ;;^UTILITY(U,$J,358.3,36726,0)
  1.  ;;=R09.81^^107^1479^18
  1.  ;;^UTILITY(U,$J,358.3,36726,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36726,1,3,0)
  1.  ;;=3^Nasal Congestion
  1.  ;;^UTILITY(U,$J,358.3,36726,1,4,0)
  1.  ;;=4^R09.81
  1.  ;;^UTILITY(U,$J,358.3,36726,2)
  1.  ;;=^5019203
  1.  ;;^UTILITY(U,$J,358.3,36727,0)
  1.  ;;=I69.928^^107^1479^22
  1.  ;;^UTILITY(U,$J,358.3,36727,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36727,1,3,0)
  1.  ;;=3^Speech/Lang Deficit Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,36727,1,4,0)
  1.  ;;=4^I69.928
  1.  ;;^UTILITY(U,$J,358.3,36727,2)
  1.  ;;=^5007557
  1.  ;;^UTILITY(U,$J,358.3,36728,0)
  1.  ;;=I69.328^^107^1479^23
  1.  ;;^UTILITY(U,$J,358.3,36728,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36728,1,3,0)
  1.  ;;=3^Speech/Lang Deficit Following Cerebvasc Infarc
  1.  ;;^UTILITY(U,$J,358.3,36728,1,4,0)
  1.  ;;=4^I69.328
  1.  ;;^UTILITY(U,$J,358.3,36728,2)
  1.  ;;=^5007495
  1.  ;;^UTILITY(U,$J,358.3,36729,0)
  1.  ;;=H81.4^^107^1479^25
  1.  ;;^UTILITY(U,$J,358.3,36729,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36729,1,3,0)
  1.  ;;=3^Vertigo of Central Origin
  1.  ;;^UTILITY(U,$J,358.3,36729,1,4,0)
  1.  ;;=4^H81.4
  1.  ;;^UTILITY(U,$J,358.3,36729,2)
  1.  ;;=^269484
  1.  ;;^UTILITY(U,$J,358.3,36730,0)
  1.  ;;=E04.0^^107^1480^21
  1.  ;;^UTILITY(U,$J,358.3,36730,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36730,1,3,0)
  1.  ;;=3^Nontoxic Diffuse Goiter
  1.  ;;^UTILITY(U,$J,358.3,36730,1,4,0)
  1.  ;;=4^E04.0
  1.  ;;^UTILITY(U,$J,358.3,36730,2)
  1.  ;;=^5002477
  1.  ;;^UTILITY(U,$J,358.3,36731,0)
  1.  ;;=E04.1^^107^1480^23
  1.  ;;^UTILITY(U,$J,358.3,36731,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36731,1,3,0)
  1.  ;;=3^Nontoxic Single Thyroid Nodule
  1.  ;;^UTILITY(U,$J,358.3,36731,1,4,0)
  1.  ;;=4^E04.1
  1.  ;;^UTILITY(U,$J,358.3,36731,2)
  1.  ;;=^5002478
  1.  ;;^UTILITY(U,$J,358.3,36732,0)
  1.  ;;=E04.2^^107^1480^22
  1.  ;;^UTILITY(U,$J,358.3,36732,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36732,1,3,0)
  1.  ;;=3^Nontoxic Multinodular Goiter
  1.  ;;^UTILITY(U,$J,358.3,36732,1,4,0)
  1.  ;;=4^E04.2
  1.  ;;^UTILITY(U,$J,358.3,36732,2)
  1.  ;;=^267790
  1.  ;;^UTILITY(U,$J,358.3,36733,0)
  1.  ;;=E01.1^^107^1480^17
  1.  ;;^UTILITY(U,$J,358.3,36733,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36733,1,3,0)
  1.  ;;=3^Iodine-Deficiency Related Multinodular (Endemic) Goiter
  1.  ;;^UTILITY(U,$J,358.3,36733,1,4,0)
  1.  ;;=4^E01.1
  1.  ;;^UTILITY(U,$J,358.3,36733,2)
  1.  ;;=^5002465
  1.  ;;^UTILITY(U,$J,358.3,36734,0)
  1.  ;;=E05.00^^107^1480^39
  1.  ;;^UTILITY(U,$J,358.3,36734,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36734,1,3,0)
  1.  ;;=3^Thyrotoxicosis w/ Diffuse Goiter w/o Thyrotoxic Crisis
  1.  ;;^UTILITY(U,$J,358.3,36734,1,4,0)
  1.  ;;=4^E05.00
  1.  ;;^UTILITY(U,$J,358.3,36734,2)
  1.  ;;=^5002481
  1.  ;;^UTILITY(U,$J,358.3,36735,0)
  1.  ;;=E05.01^^107^1480^38
  1.  ;;^UTILITY(U,$J,358.3,36735,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36735,1,3,0)
  1.  ;;=3^Thyrotoxicosis w/ Diffuse Goiter w/ Thyrotoxic Crisis/Storm
  1.  ;;^UTILITY(U,$J,358.3,36735,1,4,0)
  1.  ;;=4^E05.01
  1.  ;;^UTILITY(U,$J,358.3,36735,2)
  1.  ;;=^5002482
  1.  ;;^UTILITY(U,$J,358.3,36736,0)
  1.  ;;=E05.90^^107^1480^41
  1.  ;;^UTILITY(U,$J,358.3,36736,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36736,1,3,0)
  1.  ;;=3^Thyrotoxicosis,Unspec w/o Thyrotoxic Crisis/Storm
  1.  ;;^UTILITY(U,$J,358.3,36736,1,4,0)
  1.  ;;=4^E05.90
  1.  ;;^UTILITY(U,$J,358.3,36736,2)
  1.  ;;=^5002492
  1.  ;;^UTILITY(U,$J,358.3,36737,0)
  1.  ;;=E05.91^^107^1480^40
  1.  ;;^UTILITY(U,$J,358.3,36737,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36737,1,3,0)
  1.  ;;=3^Thyrotoxicosis,Unspec w/ Thyrotoxic Crisis/Storm
  1.  ;;^UTILITY(U,$J,358.3,36737,1,4,0)
  1.  ;;=4^E05.91
  1.  ;;^UTILITY(U,$J,358.3,36737,2)
  1.  ;;=^5002493
  1.  ;;^UTILITY(U,$J,358.3,36738,0)
  1.  ;;=E89.0^^107^1480^32
  1.  ;;^UTILITY(U,$J,358.3,36738,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36738,1,3,0)
  1.  ;;=3^Postprocedural Hypothyroidism
  1.  ;;^UTILITY(U,$J,358.3,36738,1,4,0)
  1.  ;;=4^E89.0
  1.  ;;^UTILITY(U,$J,358.3,36738,2)
  1.  ;;=^5003035
  1.  ;;^UTILITY(U,$J,358.3,36739,0)
  1.  ;;=E03.2^^107^1480^13
  1.  ;;^UTILITY(U,$J,358.3,36739,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36739,1,3,0)
  1.  ;;=3^Hypothyroidism d/t Meds/Oth Exogenous Substances
  1.  ;;^UTILITY(U,$J,358.3,36739,1,4,0)
  1.  ;;=4^E03.2
  1.  ;;^UTILITY(U,$J,358.3,36739,2)
  1.  ;;=^5002471
  1.  ;;^UTILITY(U,$J,358.3,36740,0)
  1.  ;;=E03.9^^107^1480^14
  1.  ;;^UTILITY(U,$J,358.3,36740,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36740,1,3,0)
  1.  ;;=3^Hypothyroidism,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36740,1,4,0)
  1.  ;;=4^E03.9
  1.  ;;^UTILITY(U,$J,358.3,36740,2)
  1.  ;;=^5002476
  1.  ;;^UTILITY(U,$J,358.3,36741,0)
  1.  ;;=E06.0^^107^1480^36
  1.  ;;^UTILITY(U,$J,358.3,36741,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36741,1,3,0)
  1.  ;;=3^Thyroiditis,Acute
  1.  ;;^UTILITY(U,$J,358.3,36741,1,4,0)
  1.  ;;=4^E06.0
  1.  ;;^UTILITY(U,$J,358.3,36741,2)
  1.  ;;=^2692
  1.  ;;^UTILITY(U,$J,358.3,36742,0)
  1.  ;;=E06.1^^107^1480^37
  1.  ;;^UTILITY(U,$J,358.3,36742,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36742,1,3,0)
  1.  ;;=3^Thyroiditis,Subacute
  1.  ;;^UTILITY(U,$J,358.3,36742,1,4,0)
  1.  ;;=4^E06.1
  1.  ;;^UTILITY(U,$J,358.3,36742,2)
  1.  ;;=^119376
  1.  ;;^UTILITY(U,$J,358.3,36743,0)
  1.  ;;=C73.^^107^1480^19
  1.  ;;^UTILITY(U,$J,358.3,36743,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36743,1,3,0)
  1.  ;;=3^Malig Neop of Thyroid Gland
  1.  ;;^UTILITY(U,$J,358.3,36743,1,4,0)
  1.  ;;=4^C73.
  1.  ;;^UTILITY(U,$J,358.3,36743,2)
  1.  ;;=^267296
  1.  ;;^UTILITY(U,$J,358.3,36744,0)
  1.  ;;=E16.2^^107^1480^10
  1.  ;;^UTILITY(U,$J,358.3,36744,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36744,1,3,0)
  1.  ;;=3^Hypoglycemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36744,1,4,0)
  1.  ;;=4^E16.2
  1.  ;;^UTILITY(U,$J,358.3,36744,2)
  1.  ;;=^5002708
  1.  ;;^UTILITY(U,$J,358.3,36745,0)
  1.  ;;=E20.0^^107^1480^15
  1.  ;;^UTILITY(U,$J,358.3,36745,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36745,1,3,0)
  1.  ;;=3^Idiopathic Hypoparathyroidism
  1.  ;;^UTILITY(U,$J,358.3,36745,1,4,0)
  1.  ;;=4^E20.0
  1.  ;;^UTILITY(U,$J,358.3,36745,2)
  1.  ;;=^5002712
  1.  ;;^UTILITY(U,$J,358.3,36746,0)
  1.  ;;=E20.9^^107^1480^11
  1.  ;;^UTILITY(U,$J,358.3,36746,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36746,1,3,0)
  1.  ;;=3^Hypoparathyroidism,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36746,1,4,0)
  1.  ;;=4^E20.9
  1.  ;;^UTILITY(U,$J,358.3,36746,2)
  1.  ;;=^5002714
  1.  ;;^UTILITY(U,$J,358.3,36747,0)
  1.  ;;=E23.0^^107^1480^12
  1.  ;;^UTILITY(U,$J,358.3,36747,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36747,1,3,0)
  1.  ;;=3^Hypopituitarism
  1.  ;;^UTILITY(U,$J,358.3,36747,1,4,0)
  1.  ;;=4^E23.0
  1.  ;;^UTILITY(U,$J,358.3,36747,2)
  1.  ;;=^60685
  1.  ;;^UTILITY(U,$J,358.3,36748,0)
  1.  ;;=E27.1^^107^1480^34
  1.  ;;^UTILITY(U,$J,358.3,36748,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36748,1,3,0)
  1.  ;;=3^Primary Adrenocortical Insufficiency
  1.  ;;^UTILITY(U,$J,358.3,36748,1,4,0)
  1.  ;;=4^E27.1
  1.  ;;^UTILITY(U,$J,358.3,36748,2)
  1.  ;;=^5002740
  1.  ;;^UTILITY(U,$J,358.3,36749,0)
  1.  ;;=E27.2^^107^1480^1
  1.  ;;^UTILITY(U,$J,358.3,36749,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36749,1,3,0)
  1.  ;;=3^Addisonian Crisis
  1.  ;;^UTILITY(U,$J,358.3,36749,1,4,0)
  1.  ;;=4^E27.2
  1.  ;;^UTILITY(U,$J,358.3,36749,2)
  1.  ;;=^263725
  1.  ;;^UTILITY(U,$J,358.3,36750,0)
  1.  ;;=E27.3^^107^1480^4
  1.  ;;^UTILITY(U,$J,358.3,36750,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36750,1,3,0)
  1.  ;;=3^Drug-induced Adrenocortical Insufficiency
  1.  ;;^UTILITY(U,$J,358.3,36750,1,4,0)
  1.  ;;=4^E27.3
  1.  ;;^UTILITY(U,$J,358.3,36750,2)
  1.  ;;=^5002741
  1.  ;;^UTILITY(U,$J,358.3,36751,0)
  1.  ;;=E29.1^^107^1480^35
  1.  ;;^UTILITY(U,$J,358.3,36751,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36751,1,3,0)
  1.  ;;=3^Testicular Hypofunction
  1.  ;;^UTILITY(U,$J,358.3,36751,1,4,0)
  1.  ;;=4^E29.1
  1.  ;;^UTILITY(U,$J,358.3,36751,2)
  1.  ;;=^5002754
  1.  ;;^UTILITY(U,$J,358.3,36752,0)
  1.  ;;=E55.9^^107^1480^42
  1.  ;;^UTILITY(U,$J,358.3,36752,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36752,1,3,0)
  1.  ;;=3^Vitamin D Deficiency,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36752,1,4,0)
  1.  ;;=4^E55.9
  1.  ;;^UTILITY(U,$J,358.3,36752,2)
  1.  ;;=^5002799
  1.  ;;^UTILITY(U,$J,358.3,36753,0)
  1.  ;;=E66.01^^107^1480^20
  1.  ;;^UTILITY(U,$J,358.3,36753,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36753,1,3,0)
  1.  ;;=3^Morbid Obesity
  1.  ;;^UTILITY(U,$J,358.3,36753,1,4,0)
  1.  ;;=4^E66.01
  1.  ;;^UTILITY(U,$J,358.3,36753,2)
  1.  ;;=^5002826
  1.  ;;^UTILITY(U,$J,358.3,36754,0)
  1.  ;;=E66.8^^107^1480^24
  1.  ;;^UTILITY(U,$J,358.3,36754,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36754,1,3,0)
  1.  ;;=3^Obesity NEC
  1.  ;;^UTILITY(U,$J,358.3,36754,1,4,0)
  1.  ;;=4^E66.8
  1.  ;;^UTILITY(U,$J,358.3,36754,2)
  1.  ;;=^5002831
  1.  ;;^UTILITY(U,$J,358.3,36755,0)
  1.  ;;=E66.9^^107^1480^25
  1.  ;;^UTILITY(U,$J,358.3,36755,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36755,1,3,0)
  1.  ;;=3^Obesity,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36755,1,4,0)
  1.  ;;=4^E66.9
  1.  ;;^UTILITY(U,$J,358.3,36755,2)
  1.  ;;=^5002832
  1.  ;;^UTILITY(U,$J,358.3,36756,0)
  1.  ;;=E74.39^^107^1480^16
  1.  ;;^UTILITY(U,$J,358.3,36756,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36756,1,3,0)
  1.  ;;=3^Intestinal Carbohydrate Absorption Disorder NEC
  1.  ;;^UTILITY(U,$J,358.3,36756,1,4,0)
  1.  ;;=4^E74.39
  1.  ;;^UTILITY(U,$J,358.3,36756,2)
  1.  ;;=^5002928
  1.  ;;^UTILITY(U,$J,358.3,36757,0)
  1.  ;;=E83.30^^107^1480^28
  1.  ;;^UTILITY(U,$J,358.3,36757,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36757,1,3,0)
  1.  ;;=3^Phosphorus Metabolism Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36757,1,4,0)
  1.  ;;=4^E83.30
  1.  ;;^UTILITY(U,$J,358.3,36757,2)
  1.  ;;=^5002997
  1.  ;;^UTILITY(U,$J,358.3,36758,0)
  1.  ;;=E83.51^^107^1480^9
  1.  ;;^UTILITY(U,$J,358.3,36758,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36758,1,3,0)
  1.  ;;=3^Hypocalcemia
  1.  ;;^UTILITY(U,$J,358.3,36758,1,4,0)
  1.  ;;=4^E83.51
  1.  ;;^UTILITY(U,$J,358.3,36758,2)
  1.  ;;=^60542
  1.  ;;^UTILITY(U,$J,358.3,36759,0)
  1.  ;;=E83.52^^107^1480^7
  1.  ;;^UTILITY(U,$J,358.3,36759,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36759,1,3,0)
  1.  ;;=3^Hypercalcemia
  1.  ;;^UTILITY(U,$J,358.3,36759,1,4,0)
  1.  ;;=4^E83.52
  1.  ;;^UTILITY(U,$J,358.3,36759,2)
  1.  ;;=^59932
  1.  ;;^UTILITY(U,$J,358.3,36760,0)
  1.  ;;=E87.5^^107^1480^8
  1.  ;;^UTILITY(U,$J,358.3,36760,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36760,1,3,0)
  1.  ;;=3^Hyperkalemia
  1.  ;;^UTILITY(U,$J,358.3,36760,1,4,0)
  1.  ;;=4^E87.5
  1.  ;;^UTILITY(U,$J,358.3,36760,2)
  1.  ;;=^60041
  1.  ;;^UTILITY(U,$J,358.3,36761,0)
  1.  ;;=E89.2^^107^1480^30
  1.  ;;^UTILITY(U,$J,358.3,36761,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36761,1,3,0)
  1.  ;;=3^PostProcedural Hypoparathyroidism
  1.  ;;^UTILITY(U,$J,358.3,36761,1,4,0)
  1.  ;;=4^E89.2
  1.  ;;^UTILITY(U,$J,358.3,36761,2)
  1.  ;;=^5003037
  1.  ;;^UTILITY(U,$J,358.3,36762,0)
  1.  ;;=E89.6^^107^1480^29
  1.  ;;^UTILITY(U,$J,358.3,36762,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36762,1,3,0)
  1.  ;;=3^PostProcedural Adrenocortical Hypofunction
  1.  ;;^UTILITY(U,$J,358.3,36762,1,4,0)
  1.  ;;=4^E89.6
  1.  ;;^UTILITY(U,$J,358.3,36762,2)
  1.  ;;=^5003042
  1.  ;;^UTILITY(U,$J,358.3,36763,0)
  1.  ;;=L68.0^^107^1480^6
  1.  ;;^UTILITY(U,$J,358.3,36763,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36763,1,3,0)
  1.  ;;=3^Hirsutism
  1.  ;;^UTILITY(U,$J,358.3,36763,1,4,0)
  1.  ;;=4^L68.0
  1.  ;;^UTILITY(U,$J,358.3,36763,2)
  1.  ;;=^5009262
  1.  ;;^UTILITY(U,$J,358.3,36764,0)
  1.  ;;=M80.00XA^^107^1480^2
  1.  ;;^UTILITY(U,$J,358.3,36764,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36764,1,3,0)
  1.  ;;=3^Age-Related Osteoporosis w/ Fx,Unspec Site,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,36764,1,4,0)
  1.  ;;=4^M80.00XA
  1.  ;;^UTILITY(U,$J,358.3,36764,2)
  1.  ;;=^5013363
  1.  ;;^UTILITY(U,$J,358.3,36765,0)
  1.  ;;=M81.0^^107^1480^3
  1.  ;;^UTILITY(U,$J,358.3,36765,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36765,1,3,0)
  1.  ;;=3^Age-Related Osteoporosis w/o Fx
  1.  ;;^UTILITY(U,$J,358.3,36765,1,4,0)
  1.  ;;=4^M81.0
  1.  ;;^UTILITY(U,$J,358.3,36765,2)
  1.  ;;=^5013555
  1.  ;;^UTILITY(U,$J,358.3,36766,0)
  1.  ;;=M85.80^^107^1480^26
  1.  ;;^UTILITY(U,$J,358.3,36766,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36766,1,3,0)
  1.  ;;=3^Osteopenia,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,36766,1,4,0)
  1.  ;;=4^M85.80
  1.  ;;^UTILITY(U,$J,358.3,36766,2)
  1.  ;;=^5014473
  1.  ;;^UTILITY(U,$J,358.3,36767,0)
  1.  ;;=N62.^^107^1480^5
  1.  ;;^UTILITY(U,$J,358.3,36767,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36767,1,3,0)
  1.  ;;=3^Gynecomastia
  1.  ;;^UTILITY(U,$J,358.3,36767,1,4,0)
  1.  ;;=4^N62.
  1.  ;;^UTILITY(U,$J,358.3,36767,2)
  1.  ;;=^5015790
  1.  ;;^UTILITY(U,$J,358.3,36768,0)
  1.  ;;=E66.3^^107^1480^27
  1.  ;;^UTILITY(U,$J,358.3,36768,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36768,1,3,0)
  1.  ;;=3^Overweight
  1.  ;;^UTILITY(U,$J,358.3,36768,1,4,0)
  1.  ;;=4^E66.3
  1.  ;;^UTILITY(U,$J,358.3,36768,2)
  1.  ;;=^5002830
  1.  ;;^UTILITY(U,$J,358.3,36769,0)
  1.  ;;=E89.1^^107^1480^31
  1.  ;;^UTILITY(U,$J,358.3,36769,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36769,1,3,0)
  1.  ;;=3^Postprocedural Hypoinsulinemia
  1.  ;;^UTILITY(U,$J,358.3,36769,1,4,0)
  1.  ;;=4^E89.1
  1.  ;;^UTILITY(U,$J,358.3,36769,2)
  1.  ;;=^5003036
  1.  ;;^UTILITY(U,$J,358.3,36770,0)
  1.  ;;=R73.03^^107^1480^33
  1.  ;;^UTILITY(U,$J,358.3,36770,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36770,1,3,0)
  1.  ;;=3^Pre-Diabetes
  1.  ;;^UTILITY(U,$J,358.3,36770,1,4,0)
  1.  ;;=4^R73.03
  1.  ;;^UTILITY(U,$J,358.3,36770,2)
  1.  ;;=^8295662
  1.  ;;^UTILITY(U,$J,358.3,36771,0)
  1.  ;;=E73.9^^107^1480^18
  1.  ;;^UTILITY(U,$J,358.3,36771,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36771,1,3,0)
  1.  ;;=3^Lactose Intolerance,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36771,1,4,0)
  1.  ;;=4^E73.9
  1.  ;;^UTILITY(U,$J,358.3,36771,2)
  1.  ;;=^5002914
  1.  ;;^UTILITY(U,$J,358.3,36772,0)
  1.  ;;=H40.9^^107^1481^11
  1.  ;;^UTILITY(U,$J,358.3,36772,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36772,1,3,0)
  1.  ;;=3^Glaucoma,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36772,1,4,0)
  1.  ;;=4^H40.9
  1.  ;;^UTILITY(U,$J,358.3,36772,2)
  1.  ;;=^5005931
  1.  ;;^UTILITY(U,$J,358.3,36773,0)
  1.  ;;=H26.9^^107^1481^7
  1.  ;;^UTILITY(U,$J,358.3,36773,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36773,1,3,0)
  1.  ;;=3^Cataract,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36773,1,4,0)
  1.  ;;=4^H26.9
  1.  ;;^UTILITY(U,$J,358.3,36773,2)
  1.  ;;=^5005363
  1.  ;;^UTILITY(U,$J,358.3,36774,0)
  1.  ;;=H10.9^^107^1481^10
  1.  ;;^UTILITY(U,$J,358.3,36774,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36774,1,3,0)
  1.  ;;=3^Conjunctivitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,36774,1,4,0)
  1.  ;;=4^H10.9
  1.  ;;^UTILITY(U,$J,358.3,36774,2)
  1.  ;;=^5004716
  1.  ;;^UTILITY(U,$J,358.3,36775,0)
  1.  ;;=H11.32^^107^1481^8
  1.  ;;^UTILITY(U,$J,358.3,36775,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36775,1,3,0)
  1.  ;;=3^Conjunctival Hemorrhage,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,36775,1,4,0)
  1.  ;;=4^H11.32
  1.  ;;^UTILITY(U,$J,358.3,36775,2)
  1.  ;;=^5004783
  1.  ;;^UTILITY(U,$J,358.3,36776,0)
  1.  ;;=H11.31^^107^1481^9
  1.  ;;^UTILITY(U,$J,358.3,36776,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36776,1,3,0)
  1.  ;;=3^Conjunctival Hemorrhage,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,36776,1,4,0)
  1.  ;;=4^H11.31
  1.  ;;^UTILITY(U,$J,358.3,36776,2)
  1.  ;;=^5004782
  1.  ;;^UTILITY(U,$J,358.3,36777,0)
  1.  ;;=H01.002^^107^1481^3
  1.  ;;^UTILITY(U,$J,358.3,36777,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36777,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Right Lower Eyelid
  1.  ;;^UTILITY(U,$J,358.3,36777,1,4,0)
  1.  ;;=4^H01.002
  1.  ;;^UTILITY(U,$J,358.3,36777,2)
  1.  ;;=^5004239
  1.  ;;^UTILITY(U,$J,358.3,36778,0)
  1.  ;;=H01.004^^107^1481^2
  1.  ;;^UTILITY(U,$J,358.3,36778,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36778,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Left Upper Eyelid
  1.  ;;^UTILITY(U,$J,358.3,36778,1,4,0)
  1.  ;;=4^H01.004
  1.  ;;^UTILITY(U,$J,358.3,36778,2)
  1.  ;;=^5004241
  1.  ;;^UTILITY(U,$J,358.3,36779,0)
  1.  ;;=H01.005^^107^1481^1
  1.  ;;^UTILITY(U,$J,358.3,36779,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36779,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Left Lower Eyelid
  1.  ;;^UTILITY(U,$J,358.3,36779,1,4,0)
  1.  ;;=4^H01.005
  1.  ;;^UTILITY(U,$J,358.3,36779,2)
  1.  ;;=^5133380
  1.  ;;^UTILITY(U,$J,358.3,36780,0)
  1.  ;;=H01.001^^107^1481^4
  1.  ;;^UTILITY(U,$J,358.3,36780,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36780,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Right Upper Eyelid
  1.  ;;^UTILITY(U,$J,358.3,36780,1,4,0)
  1.  ;;=4^H01.001
  1.  ;;^UTILITY(U,$J,358.3,36780,2)
  1.  ;;=^5004238
  1.  ;;^UTILITY(U,$J,358.3,36781,0)
  1.  ;;=H57.13^^107^1481^12
  1.  ;;^UTILITY(U,$J,358.3,36781,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36781,1,3,0)
  1.  ;;=3^Ocular Pain,Bilateral
  1.  ;;^UTILITY(U,$J,358.3,36781,1,4,0)
  1.  ;;=4^H57.13
  1.  ;;^UTILITY(U,$J,358.3,36781,2)
  1.  ;;=^5006384
  1.  ;;^UTILITY(U,$J,358.3,36782,0)
  1.  ;;=H57.12^^107^1481^13
  1.  ;;^UTILITY(U,$J,358.3,36782,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36782,1,3,0)
  1.  ;;=3^Ocular Pain,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,36782,1,4,0)
  1.  ;;=4^H57.12
  1.  ;;^UTILITY(U,$J,358.3,36782,2)
  1.  ;;=^5006383
  1.  ;;^UTILITY(U,$J,358.3,36783,0)
  1.  ;;=H57.11^^107^1481^14
  1.  ;;^UTILITY(U,$J,358.3,36783,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36783,1,3,0)
  1.  ;;=3^Ocular Pain,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,36783,1,4,0)
  1.  ;;=4^H57.11
  1.  ;;^UTILITY(U,$J,358.3,36783,2)
  1.  ;;=^5006382
  1.  ;;^UTILITY(U,$J,358.3,36784,0)
  1.  ;;=H01.00B^^107^1481^5
  1.  ;;^UTILITY(U,$J,358.3,36784,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36784,1,3,0)
  1.  ;;=3^Blepharitis,Unspec,Left Upper & Lower Eyelids
  1.  ;;^UTILITY(U,$J,358.3,36784,1,4,0)
  1.  ;;=4^H01.00B
  1.  ;;^UTILITY(U,$J,358.3,36784,2)
  1.  ;;=^5157319
  1.  ;;^UTILITY(U,$J,358.3,36785,0)
  1.  ;;=H01.00A^^107^1481^6
  1.  ;;^UTILITY(U,$J,358.3,36785,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36785,1,3,0)
  1.  ;;=3^Blepharitis,Unspec,Right Upper & Lower Eyelids
  1.  ;;^UTILITY(U,$J,358.3,36785,1,4,0)
  1.  ;;=4^H01.00A
  1.  ;;^UTILITY(U,$J,358.3,36785,2)
  1.  ;;=^5157318
  1.  ;;^UTILITY(U,$J,358.3,36786,0)
  1.  ;;=S05.02XA^^107^1482^3
  1.  ;;^UTILITY(U,$J,358.3,36786,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36786,1,3,0)
  1.  ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Left Eye,Init
  1.  ;;^UTILITY(U,$J,358.3,36786,1,4,0)
  1.  ;;=4^S05.02XA
  1.  ;;^UTILITY(U,$J,358.3,36786,2)
  1.  ;;=^5020582
  1.  ;;^UTILITY(U,$J,358.3,36787,0)
  1.  ;;=S05.01XA^^107^1482^4
  1.  ;;^UTILITY(U,$J,358.3,36787,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36787,1,3,0)
  1.  ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init
  1.  ;;^UTILITY(U,$J,358.3,36787,1,4,0)
  1.  ;;=4^S05.01XA
  1.  ;;^UTILITY(U,$J,358.3,36787,2)
  1.  ;;=^5020579
  1.  ;;^UTILITY(U,$J,358.3,36788,0)
  1.  ;;=T15.02XA^^107^1482^1
  1.  ;;^UTILITY(U,$J,358.3,36788,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36788,1,3,0)
  1.  ;;=3^Foreign Body in Cornea,Left Eye,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,36788,1,4,0)
  1.  ;;=4^T15.02XA
  1.  ;;^UTILITY(U,$J,358.3,36788,2)
  1.  ;;=^5046387
  1.  ;;^UTILITY(U,$J,358.3,36789,0)
  1.  ;;=T15.01XA^^107^1482^2
  1.  ;;^UTILITY(U,$J,358.3,36789,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36789,1,3,0)
  1.  ;;=3^Foreign Body in Cornea,Right Eye,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,36789,1,4,0)
  1.  ;;=4^T15.01XA
  1.  ;;^UTILITY(U,$J,358.3,36789,2)
  1.  ;;=^5046384
  1.  ;;^UTILITY(U,$J,358.3,36790,0)
  1.  ;;=S00.252A^^107^1482^5
  1.  ;;^UTILITY(U,$J,358.3,36790,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36790,1,3,0)
  1.  ;;=3^Superficial FB of Left Eyelid/Periocular Area,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,36790,1,4,0)
  1.  ;;=4^S00.252A
  1.  ;;^UTILITY(U,$J,358.3,36790,2)
  1.  ;;=^5019820
  1.  ;;^UTILITY(U,$J,358.3,36791,0)
  1.  ;;=S00.251A^^107^1482^6
  1.  ;;^UTILITY(U,$J,358.3,36791,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36791,1,3,0)
  1.  ;;=3^Superficial FB of Right Eyelid/Periocular Area,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,36791,1,4,0)
  1.  ;;=4^S00.251A
  1.  ;;^UTILITY(U,$J,358.3,36791,2)
  1.  ;;=^5019817
  1.  ;;^UTILITY(U,$J,358.3,36792,0)
  1.  ;;=B96.81^^107^1483^64
  1.  ;;^UTILITY(U,$J,358.3,36792,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36792,1,3,0)
  1.  ;;=3^H. Pylori as the Cause of Diseases Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,36792,1,4,0)
  1.  ;;=4^B96.81
  1.  ;;^UTILITY(U,$J,358.3,36792,2)
  1.  ;;=^5000857
  1.  ;;^UTILITY(U,$J,358.3,36793,0)
  1.  ;;=B15.9^^107^1483^66
  1.  ;;^UTILITY(U,$J,358.3,36793,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,36793,1,3,0)
  1.  ;;=3^Hepatitis A,Acute w/o Hepatic Coma
  1.  ;;^UTILITY(U,$J,358.3,36793,1,4,0)
  1.  ;;=4^B15.9