IBDEI00D ; ; 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,217,1,4,0)
;;=4^Z84.1
;;^UTILITY(U,$J,358.3,217,2)
;;=^5063389
;;^UTILITY(U,$J,358.3,218,0)
;;=Z84.2^^3^17^16
;;^UTILITY(U,$J,358.3,218,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,218,1,3,0)
;;=3^Family Hx of Genitourinary System Diseases
;;^UTILITY(U,$J,358.3,218,1,4,0)
;;=4^Z84.2
;;^UTILITY(U,$J,358.3,218,2)
;;=^5063390
;;^UTILITY(U,$J,358.3,219,0)
;;=Z83.1^^3^17^18
;;^UTILITY(U,$J,358.3,219,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,219,1,3,0)
;;=3^Family Hx of Infectious & Parasitic Diseases
;;^UTILITY(U,$J,358.3,219,1,4,0)
;;=4^Z83.1
;;^UTILITY(U,$J,358.3,219,2)
;;=^5063377
;;^UTILITY(U,$J,358.3,220,0)
;;=Z84.81^^3^17^15
;;^UTILITY(U,$J,358.3,220,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,220,1,3,0)
;;=3^Family Hx of Genetic Disease Carrier
;;^UTILITY(U,$J,358.3,220,1,4,0)
;;=4^Z84.81
;;^UTILITY(U,$J,358.3,220,2)
;;=^5063392
;;^UTILITY(U,$J,358.3,221,0)
;;=Z83.511^^3^17^17
;;^UTILITY(U,$J,358.3,221,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,221,1,3,0)
;;=3^Family Hx of Glaucoma
;;^UTILITY(U,$J,358.3,221,1,4,0)
;;=4^Z83.511
;;^UTILITY(U,$J,358.3,221,2)
;;=^5063382
;;^UTILITY(U,$J,358.3,222,0)
;;=Z83.518^^3^17^14
;;^UTILITY(U,$J,358.3,222,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,222,1,3,0)
;;=3^Family Hx of Eye Disorder
;;^UTILITY(U,$J,358.3,222,1,4,0)
;;=4^Z83.518
;;^UTILITY(U,$J,358.3,222,2)
;;=^5063383
;;^UTILITY(U,$J,358.3,223,0)
;;=Z83.52^^3^17^10
;;^UTILITY(U,$J,358.3,223,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,223,1,3,0)
;;=3^Family Hx of Ear Disorder
;;^UTILITY(U,$J,358.3,223,1,4,0)
;;=4^Z83.52
;;^UTILITY(U,$J,358.3,223,2)
;;=^5063384
;;^UTILITY(U,$J,358.3,224,0)
;;=Z83.71^^3^17^5
;;^UTILITY(U,$J,358.3,224,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,224,1,3,0)
;;=3^Family Hx of Colonic Polyps
;;^UTILITY(U,$J,358.3,224,1,4,0)
;;=4^Z83.71
;;^UTILITY(U,$J,358.3,224,2)
;;=^5063386
;;^UTILITY(U,$J,358.3,225,0)
;;=Z83.79^^3^17^9
;;^UTILITY(U,$J,358.3,225,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,225,1,3,0)
;;=3^Family Hx of Digestive System Diseases
;;^UTILITY(U,$J,358.3,225,1,4,0)
;;=4^Z83.79
;;^UTILITY(U,$J,358.3,225,2)
;;=^5063387
;;^UTILITY(U,$J,358.3,226,0)
;;=Z83.430^^3^17^11
;;^UTILITY(U,$J,358.3,226,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,226,1,3,0)
;;=3^Family Hx of Elevated Lipoprotein(a)
;;^UTILITY(U,$J,358.3,226,1,4,0)
;;=4^Z83.430
;;^UTILITY(U,$J,358.3,226,2)
;;=^5157631
;;^UTILITY(U,$J,358.3,227,0)
;;=Z83.438^^3^17^1
;;^UTILITY(U,$J,358.3,227,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,227,1,3,0)
;;=3^Family Hx Oth D/O of Lipoprotein Metabolism/Oth Lipidemia
;;^UTILITY(U,$J,358.3,227,1,4,0)
;;=4^Z83.438
;;^UTILITY(U,$J,358.3,227,2)
;;=^5157632
;;^UTILITY(U,$J,358.3,228,0)
;;=Z86.002^^3^17^53
;;^UTILITY(U,$J,358.3,228,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,228,1,3,0)
;;=3^Personal Hx of In-Situ Neop of Oth/Unspec Genital Organs
;;^UTILITY(U,$J,358.3,228,1,4,0)
;;=4^Z86.002
;;^UTILITY(U,$J,358.3,228,2)
;;=^5158325
;;^UTILITY(U,$J,358.3,229,0)
;;=Z86.003^^3^17^52
;;^UTILITY(U,$J,358.3,229,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,229,1,3,0)
;;=3^Personal Hx of In-Situ Neop of Oral Cavity/Esophagus/Stomach
;;^UTILITY(U,$J,358.3,229,1,4,0)
;;=4^Z86.003
;;^UTILITY(U,$J,358.3,229,2)
;;=^5158326
;;^UTILITY(U,$J,358.3,230,0)
;;=Z86.004^^3^17^54
;;^UTILITY(U,$J,358.3,230,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,230,1,3,0)
;;=3^Personal Hx of In-Situ Neop of Oth/Unspec Digestive Organs
;;^UTILITY(U,$J,358.3,230,1,4,0)
;;=4^Z86.004
;;^UTILITY(U,$J,358.3,230,2)
;;=^5158327
;;^UTILITY(U,$J,358.3,231,0)
;;=Z86.005^^3^17^51
;;^UTILITY(U,$J,358.3,231,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,231,1,3,0)
;;=3^Personal Hx of In-Situ Neop of Middle Ear/Resp System
;;^UTILITY(U,$J,358.3,231,1,4,0)
;;=4^Z86.005
;;^UTILITY(U,$J,358.3,231,2)
;;=^5158328
;;^UTILITY(U,$J,358.3,232,0)
;;=Z86.006^^3^17^63
;;^UTILITY(U,$J,358.3,232,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,232,1,3,0)
;;=3^Personal Hx of Melanoma In-Situ
;;^UTILITY(U,$J,358.3,232,1,4,0)
;;=4^Z86.006
;;^UTILITY(U,$J,358.3,232,2)
;;=^5158329
;;^UTILITY(U,$J,358.3,233,0)
;;=Z86.007^^3^17^55
;;^UTILITY(U,$J,358.3,233,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,233,1,3,0)
;;=3^Personal Hx of In-Situ Neop of Skin
;;^UTILITY(U,$J,358.3,233,1,4,0)
;;=4^Z86.007
;;^UTILITY(U,$J,358.3,233,2)
;;=^5158330
;;^UTILITY(U,$J,358.3,234,0)
;;=Z86.15^^3^17^57
;;^UTILITY(U,$J,358.3,234,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,234,1,3,0)
;;=3^Personal Hx of Latent Tuberculosis Infection
;;^UTILITY(U,$J,358.3,234,1,4,0)
;;=4^Z86.15
;;^UTILITY(U,$J,358.3,234,2)
;;=^5158331
;;^UTILITY(U,$J,358.3,235,0)
;;=Z86.16^^3^17^45
;;^UTILITY(U,$J,358.3,235,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,235,1,3,0)
;;=3^Personal Hx of COVID-19
;;^UTILITY(U,$J,358.3,235,1,4,0)
;;=4^Z86.16
;;^UTILITY(U,$J,358.3,235,2)
;;=^5160188
;;^UTILITY(U,$J,358.3,236,0)
;;=Z79.1^^3^18^4
;;^UTILITY(U,$J,358.3,236,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,236,1,3,0)
;;=3^Long Term Current Use of NSAID
;;^UTILITY(U,$J,358.3,236,1,4,0)
;;=4^Z79.1
;;^UTILITY(U,$J,358.3,236,2)
;;=^5063332
;;^UTILITY(U,$J,358.3,237,0)
;;=Z79.52^^3^18^7
;;^UTILITY(U,$J,358.3,237,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,237,1,3,0)
;;=3^Long Term Current Use of Systemic Steroids
;;^UTILITY(U,$J,358.3,237,1,4,0)
;;=4^Z79.52
;;^UTILITY(U,$J,358.3,237,2)
;;=^5063336
;;^UTILITY(U,$J,358.3,238,0)
;;=Z79.82^^3^18^2
;;^UTILITY(U,$J,358.3,238,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,238,1,3,0)
;;=3^Long Term Current Use of Aspirin
;;^UTILITY(U,$J,358.3,238,1,4,0)
;;=4^Z79.82
;;^UTILITY(U,$J,358.3,238,2)
;;=^5063340
;;^UTILITY(U,$J,358.3,239,0)
;;=Z79.810^^3^18^6
;;^UTILITY(U,$J,358.3,239,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,239,1,3,0)
;;=3^Long Term Current Use of SERMs
;;^UTILITY(U,$J,358.3,239,1,4,0)
;;=4^Z79.810
;;^UTILITY(U,$J,358.3,239,2)
;;=^5063337
;;^UTILITY(U,$J,358.3,240,0)
;;=Z79.811^^3^18^1
;;^UTILITY(U,$J,358.3,240,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,240,1,3,0)
;;=3^Long Term Current Use of Aromatase Inhibitors
;;^UTILITY(U,$J,358.3,240,1,4,0)
;;=4^Z79.811
;;^UTILITY(U,$J,358.3,240,2)
;;=^5063338
;;^UTILITY(U,$J,358.3,241,0)
;;=Z79.4^^3^18^3
;;^UTILITY(U,$J,358.3,241,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,241,1,3,0)
;;=3^Long Term Current Use of Insulin
;;^UTILITY(U,$J,358.3,241,1,4,0)
;;=4^Z79.4
;;^UTILITY(U,$J,358.3,241,2)
;;=^5063334
;;^UTILITY(U,$J,358.3,242,0)
;;=Z79.84^^3^18^5
;;^UTILITY(U,$J,358.3,242,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,242,1,3,0)
;;=3^Long Term Current Use of Oral Hypoglycemic
;;^UTILITY(U,$J,358.3,242,1,4,0)
;;=4^Z79.84
;;^UTILITY(U,$J,358.3,242,2)
;;=^5140432
;;^UTILITY(U,$J,358.3,243,0)
;;=E78.5^^3^19^7
;;^UTILITY(U,$J,358.3,243,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,243,1,3,0)
;;=3^Hyperlipidemia,Unspec
;;^UTILITY(U,$J,358.3,243,1,4,0)
;;=4^E78.5
;;^UTILITY(U,$J,358.3,243,2)
;;=^5002969
;;^UTILITY(U,$J,358.3,244,0)
;;=E66.9^^3^19^11
;;^UTILITY(U,$J,358.3,244,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,244,1,3,0)
;;=3^Obesity,Unspec
;;^UTILITY(U,$J,358.3,244,1,4,0)
;;=4^E66.9
;;^UTILITY(U,$J,358.3,244,2)
;;=^5002832
;;^UTILITY(U,$J,358.3,245,0)
;;=E66.01^^3^19^10
;;^UTILITY(U,$J,358.3,245,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,245,1,3,0)
;;=3^Morbid Obesity
;;^UTILITY(U,$J,358.3,245,1,4,0)
;;=4^E66.01
;;^UTILITY(U,$J,358.3,245,2)
;;=^5002826
;;^UTILITY(U,$J,358.3,246,0)
;;=E66.3^^3^19^13
;;^UTILITY(U,$J,358.3,246,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,246,1,3,0)
;;=3^Overweight
;;^UTILITY(U,$J,358.3,246,1,4,0)
;;=4^E66.3
;;^UTILITY(U,$J,358.3,246,2)
;;=^5002830
;;^UTILITY(U,$J,358.3,247,0)
;;=I10.^^3^19^8
;;^UTILITY(U,$J,358.3,247,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,247,1,3,0)
;;=3^Hypertension,Essential Primary
;;^UTILITY(U,$J,358.3,247,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,247,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,248,0)
;;=I25.2^^3^19^12
;;^UTILITY(U,$J,358.3,248,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,248,1,3,0)
;;=3^Old Myocardial Infarction
;;^UTILITY(U,$J,358.3,248,1,4,0)
;;=4^I25.2
;;^UTILITY(U,$J,358.3,248,2)
;;=^259884
;;^UTILITY(U,$J,358.3,249,0)
;;=I25.10^^3^19^2
;;^UTILITY(U,$J,358.3,249,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,249,1,3,0)
;;=3^Athscl Hrt Disease,Native Coronary Artery,w/o Angina Pectoris
;;^UTILITY(U,$J,358.3,249,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,249,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,250,0)
;;=I51.9^^3^19^6
;;^UTILITY(U,$J,358.3,250,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,250,1,3,0)
;;=3^Heart Disease,Unspec
;;^UTILITY(U,$J,358.3,250,1,4,0)
;;=4^I51.9
;;^UTILITY(U,$J,358.3,250,2)
;;=^5007258
;;^UTILITY(U,$J,358.3,251,0)
;;=K70.9^^3^19^1
;;^UTILITY(U,$J,358.3,251,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,251,1,3,0)
;;=3^Alcoholic Liver Disease,Unspec
;;^UTILITY(U,$J,358.3,251,1,4,0)
;;=4^K70.9
;;^UTILITY(U,$J,358.3,251,2)
;;=^5008792
;;^UTILITY(U,$J,358.3,252,0)
;;=R03.0^^3^19^3
;;^UTILITY(U,$J,358.3,252,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,252,1,3,0)
;;=3^Elevated B/P Reading w/o Diagnosis of HTN
;;^UTILITY(U,$J,358.3,252,1,4,0)
;;=4^R03.0
;;^UTILITY(U,$J,358.3,252,2)
;;=^5019171
;;^UTILITY(U,$J,358.3,253,0)
;;=Z83.430^^3^19^5
;;^UTILITY(U,$J,358.3,253,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,253,1,3,0)
;;=3^Family Hx of Elevated Lipoprotein(a)
;;^UTILITY(U,$J,358.3,253,1,4,0)
;;=4^Z83.430
;;^UTILITY(U,$J,358.3,253,2)
;;=^5157631
;;^UTILITY(U,$J,358.3,254,0)
;;=Z83.438^^3^19^4
;;^UTILITY(U,$J,358.3,254,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,254,1,3,0)
;;=3^Family Hx of D/O of Lipoprotein Metabolism/Oth Lipidemia
;;^UTILITY(U,$J,358.3,254,1,4,0)
;;=4^Z83.438
;;^UTILITY(U,$J,358.3,254,2)
;;=^5157632
;;^UTILITY(U,$J,358.3,255,0)
;;=Z22.7^^3^19^9
;;^UTILITY(U,$J,358.3,255,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,255,1,3,0)
;;=3^Latent Tuberculosis
;;^UTILITY(U,$J,358.3,255,1,4,0)
;;=4^Z22.7
;;^UTILITY(U,$J,358.3,255,2)
;;=^5158321
;;^UTILITY(U,$J,358.3,256,0)
;;=Z12.31^^3^20^9
;;^UTILITY(U,$J,358.3,256,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,256,1,3,0)
;;=3^Screening for Malig Neop Breast,Mammogram
;;^UTILITY(U,$J,358.3,256,1,4,0)
;;=4^Z12.31
;;^UTILITY(U,$J,358.3,256,2)
;;=^5062685
;;^UTILITY(U,$J,358.3,257,0)
;;=Z12.39^^3^20^8
;;^UTILITY(U,$J,358.3,257,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,257,1,3,0)
;;=3^Screening for Malig Neop Breast
;;^UTILITY(U,$J,358.3,257,1,4,0)
;;=4^Z12.39
;;^UTILITY(U,$J,358.3,257,2)
;;=^5062686
;;^UTILITY(U,$J,358.3,258,0)
;;=Z11.51^^3^20^5
;;^UTILITY(U,$J,358.3,258,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,258,1,3,0)
;;=3^Screening for HPV
;;^UTILITY(U,$J,358.3,258,1,4,0)
;;=4^Z11.51
;;^UTILITY(U,$J,358.3,258,2)
;;=^5062674
;;^UTILITY(U,$J,358.3,259,0)
;;=Z11.59^^3^20^17
;;^UTILITY(U,$J,358.3,259,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,259,1,3,0)
;;=3^Screening for Viral Diseases
;;^UTILITY(U,$J,358.3,259,1,4,0)
;;=4^Z11.59
;;^UTILITY(U,$J,358.3,259,2)
;;=^5062675
;;^UTILITY(U,$J,358.3,260,0)
;;=Z11.3^^3^20^6
;;^UTILITY(U,$J,358.3,260,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,260,1,3,0)
;;=3^Screening for Infections w/ Sexual Mode of Transmission
;;^UTILITY(U,$J,358.3,260,1,4,0)
;;=4^Z11.3
;;^UTILITY(U,$J,358.3,260,2)
;;=^5062672
;;^UTILITY(U,$J,358.3,261,0)
;;=Z11.9^^3^20^7
;;^UTILITY(U,$J,358.3,261,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,261,1,3,0)
;;=3^Screening for Infectious/Parasitic Diseases
;;^UTILITY(U,$J,358.3,261,1,4,0)
;;=4^Z11.9
;;^UTILITY(U,$J,358.3,261,2)
;;=^5062678
;;^UTILITY(U,$J,358.3,262,0)
;;=Z12.2^^3^20^14
;;^UTILITY(U,$J,358.3,262,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,262,1,3,0)
;;=3^Screening for Malig Neop Respiratory Organs
;;^UTILITY(U,$J,358.3,262,1,4,0)
;;=4^Z12.2
;;^UTILITY(U,$J,358.3,262,2)
;;=^5062684
;;^UTILITY(U,$J,358.3,263,0)
;;=Z12.4^^3^20^10
;;^UTILITY(U,$J,358.3,263,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,263,1,3,0)
;;=3^Screening for Malig Neop Cervix
;;^UTILITY(U,$J,358.3,263,1,4,0)
;;=4^Z12.4
;;^UTILITY(U,$J,358.3,263,2)
;;=^5062687
;;^UTILITY(U,$J,358.3,264,0)
;;=Z12.12^^3^20^13
;;^UTILITY(U,$J,358.3,264,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,264,1,3,0)
;;=3^Screening for Malig Neop Rectum
;;^UTILITY(U,$J,358.3,264,1,4,0)
;;=4^Z12.12
;;^UTILITY(U,$J,358.3,264,2)
;;=^5062682
;;^UTILITY(U,$J,358.3,265,0)
;;=Z12.5^^3^20^12
;;^UTILITY(U,$J,358.3,265,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,265,1,3,0)
;;=3^Screening for Malig Neop Prostate
;;^UTILITY(U,$J,358.3,265,1,4,0)
;;=4^Z12.5
;;^UTILITY(U,$J,358.3,265,2)
;;=^5062688
;;^UTILITY(U,$J,358.3,266,0)
;;=Z12.11^^3^20^11
;;^UTILITY(U,$J,358.3,266,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,266,1,3,0)
;;=3^Screening for Malig Neop Colon
;;^UTILITY(U,$J,358.3,266,1,4,0)
;;=4^Z12.11
;;^UTILITY(U,$J,358.3,266,2)
;;=^5062681
;;^UTILITY(U,$J,358.3,267,0)
;;=Z13.1^^3^20^4
;;^UTILITY(U,$J,358.3,267,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,267,1,3,0)
;;=3^Screening for Diabetes Mellitus
;;^UTILITY(U,$J,358.3,267,1,4,0)
;;=4^Z13.1
;;^UTILITY(U,$J,358.3,267,2)
;;=^5062700
;;^UTILITY(U,$J,358.3,268,0)
;;=Z13.0^^3^20^1
;;^UTILITY(U,$J,358.3,268,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,268,1,3,0)
;;=3^Screening for Blood/Blood-Forming Organs Diseases
;;^UTILITY(U,$J,358.3,268,1,4,0)
;;=4^Z13.0
;;^UTILITY(U,$J,358.3,268,2)
;;=^5062699
;;^UTILITY(U,$J,358.3,269,0)
;;=Z13.850^^3^20^16
;;^UTILITY(U,$J,358.3,269,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,269,1,3,0)
;;=3^Screening for TBI
;;^UTILITY(U,$J,358.3,269,1,4,0)
;;=4^Z13.850
;;^UTILITY(U,$J,358.3,269,2)
;;=^5062717
;;^UTILITY(U,$J,358.3,270,0)
;;=Z13.6^^3^20^3
;;^UTILITY(U,$J,358.3,270,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,270,1,3,0)
;;=3^Screening for Cardiovascular Disorders
;;^UTILITY(U,$J,358.3,270,1,4,0)
;;=4^Z13.6
;;^UTILITY(U,$J,358.3,270,2)
;;=^5062707
;;^UTILITY(U,$J,358.3,271,0)
;;=Z13.820^^3^20^15
;;^UTILITY(U,$J,358.3,271,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,271,1,3,0)
;;=3^Screening for Osteoporosis
;;^UTILITY(U,$J,358.3,271,1,4,0)
;;=4^Z13.820
;;^UTILITY(U,$J,358.3,271,2)
;;=^5062713
;;^UTILITY(U,$J,358.3,272,0)
;;=Z11.7^^3^20^18
;;^UTILITY(U,$J,358.3,272,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,272,1,3,0)
;;=3^Testing for Latent Tuberculosis Infection
;;^UTILITY(U,$J,358.3,272,1,4,0)
;;=4^Z11.7
;;^UTILITY(U,$J,358.3,272,2)
;;=^5158320
;;^UTILITY(U,$J,358.3,273,0)
;;=Z11.52^^3^20^2
;;^UTILITY(U,$J,358.3,273,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,273,1,3,0)
;;=3^Screening for COVID-19
;;^UTILITY(U,$J,358.3,273,1,4,0)
;;=4^Z11.52
;;^UTILITY(U,$J,358.3,273,2)
;;=^5160186
;;^UTILITY(U,$J,358.3,274,0)
;;=Z94.0^^3^21^6
;;^UTILITY(U,$J,358.3,274,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,274,1,3,0)
;;=3^Kidney Transplant Status
;;^UTILITY(U,$J,358.3,274,1,4,0)
;;=4^Z94.0
;;^UTILITY(U,$J,358.3,274,2)
;;=^5063654
;;^UTILITY(U,$J,358.3,275,0)
;;=Z94.1^^3^21^4
;;^UTILITY(U,$J,358.3,275,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,275,1,3,0)
;;=3^Heart Transplant Status
;;^UTILITY(U,$J,358.3,275,1,4,0)
;;=4^Z94.1
;;^UTILITY(U,$J,358.3,275,2)
;;=^5063655
;;^UTILITY(U,$J,358.3,276,0)
;;=Z95.3^^3^21^13
;;^UTILITY(U,$J,358.3,276,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,276,1,3,0)
;;=3^Xenogenic Heart Valve Status
;;^UTILITY(U,$J,358.3,276,1,4,0)
;;=4^Z95.3
;;^UTILITY(U,$J,358.3,276,2)
;;=^5063671
;;^UTILITY(U,$J,358.3,277,0)
;;=Z94.5^^3^21^10
;;^UTILITY(U,$J,358.3,277,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,277,1,3,0)
;;=3^Skin Transplant Status
;;^UTILITY(U,$J,358.3,277,1,4,0)
;;=4^Z94.5
;;^UTILITY(U,$J,358.3,277,2)
;;=^5063659
;;^UTILITY(U,$J,358.3,278,0)
;;=Z94.6^^3^21^2
;;^UTILITY(U,$J,358.3,278,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,278,1,3,0)
;;=3^Bone Transplant Status
;;^UTILITY(U,$J,358.3,278,1,4,0)
;;=4^Z94.6
;;^UTILITY(U,$J,358.3,278,2)
;;=^5063660
;;^UTILITY(U,$J,358.3,279,0)
;;=Z94.7^^3^21^3
;;^UTILITY(U,$J,358.3,279,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,279,1,3,0)
;;=3^Corneal Transplant Status
;;^UTILITY(U,$J,358.3,279,1,4,0)
;;=4^Z94.7
;;^UTILITY(U,$J,358.3,279,2)
;;=^5063661
;;^UTILITY(U,$J,358.3,280,0)
;;=Z94.2^^3^21^8
;;^UTILITY(U,$J,358.3,280,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,280,1,3,0)
;;=3^Lung Transplant Status
;;^UTILITY(U,$J,358.3,280,1,4,0)
;;=4^Z94.2
;;^UTILITY(U,$J,358.3,280,2)
;;=^5063656
;;^UTILITY(U,$J,358.3,281,0)
;;=Z94.4^^3^21^7
;;^UTILITY(U,$J,358.3,281,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,281,1,3,0)
;;=3^Liver Transplant Status
;;^UTILITY(U,$J,358.3,281,1,4,0)
;;=4^Z94.4
;;^UTILITY(U,$J,358.3,281,2)
;;=^5063658
;;^UTILITY(U,$J,358.3,282,0)
;;=Z94.81^^3^21^1
;;^UTILITY(U,$J,358.3,282,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,282,1,3,0)
;;=3^Bone Marrow Transplant Status
;;^UTILITY(U,$J,358.3,282,1,4,0)
;;=4^Z94.81
;;^UTILITY(U,$J,358.3,282,2)
;;=^5063662
;;^UTILITY(U,$J,358.3,283,0)
;;=Z94.84^^3^21^11
;;^UTILITY(U,$J,358.3,283,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,283,1,3,0)
;;=3^Stem Cell Transplant Status
;;^UTILITY(U,$J,358.3,283,1,4,0)
;;=4^Z94.84
;;^UTILITY(U,$J,358.3,283,2)
;;=^5063665
;;^UTILITY(U,$J,358.3,284,0)
;;=Z94.83^^3^21^9
;;^UTILITY(U,$J,358.3,284,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,284,1,3,0)
;;=3^Pancreas Transplant Status
;;^UTILITY(U,$J,358.3,284,1,4,0)
;;=4^Z94.83
;;^UTILITY(U,$J,358.3,284,2)
;;=^5063664
;;^UTILITY(U,$J,358.3,285,0)
;;=Z94.82^^3^21^5
;;^UTILITY(U,$J,358.3,285,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,285,1,3,0)
;;=3^Intestine Transplant Status
;;^UTILITY(U,$J,358.3,285,1,4,0)
;;=4^Z94.82
;;^UTILITY(U,$J,358.3,285,2)
;;=^5063663
;;^UTILITY(U,$J,358.3,286,0)
;;=Z94.9^^3^21^12
;;^UTILITY(U,$J,358.3,286,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,286,1,3,0)
;;=3^Transplanted Organ & Tissue Status,Unspec
;;^UTILITY(U,$J,358.3,286,1,4,0)
;;=4^Z94.9
;;^UTILITY(U,$J,358.3,286,2)
;;=^5063667
;;^UTILITY(U,$J,358.3,287,0)
;;=Z23.^^3^22^1
;;^UTILITY(U,$J,358.3,287,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,287,1,3,0)
;;=3^Immunization Encounter
;;^UTILITY(U,$J,358.3,287,1,4,0)
;;=4^Z23.
;;^UTILITY(U,$J,358.3,287,2)
;;=^5062795
;;^UTILITY(U,$J,358.3,288,0)
;;=Z28.310^^3^22^4
;;^UTILITY(U,$J,358.3,288,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,288,1,3,0)
;;=3^Unvaccinated for COVID-19
;;^UTILITY(U,$J,358.3,288,1,4,0)
;;=4^Z28.310
;;^UTILITY(U,$J,358.3,288,2)
;;=^5161576
;;^UTILITY(U,$J,358.3,289,0)
;;=Z28.311^^3^22^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI00D 19772 printed Sep 23, 2025@19:15:06 Page 2
IBDEI00D ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,217,1,4,0)
+2 ;;=4^Z84.1
+3 ;;^UTILITY(U,$J,358.3,217,2)
+4 ;;=^5063389
+5 ;;^UTILITY(U,$J,358.3,218,0)
+6 ;;=Z84.2^^3^17^16
+7 ;;^UTILITY(U,$J,358.3,218,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,218,1,3,0)
+10 ;;=3^Family Hx of Genitourinary System Diseases
+11 ;;^UTILITY(U,$J,358.3,218,1,4,0)
+12 ;;=4^Z84.2
+13 ;;^UTILITY(U,$J,358.3,218,2)
+14 ;;=^5063390
+15 ;;^UTILITY(U,$J,358.3,219,0)
+16 ;;=Z83.1^^3^17^18
+17 ;;^UTILITY(U,$J,358.3,219,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,219,1,3,0)
+20 ;;=3^Family Hx of Infectious & Parasitic Diseases
+21 ;;^UTILITY(U,$J,358.3,219,1,4,0)
+22 ;;=4^Z83.1
+23 ;;^UTILITY(U,$J,358.3,219,2)
+24 ;;=^5063377
+25 ;;^UTILITY(U,$J,358.3,220,0)
+26 ;;=Z84.81^^3^17^15
+27 ;;^UTILITY(U,$J,358.3,220,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,220,1,3,0)
+30 ;;=3^Family Hx of Genetic Disease Carrier
+31 ;;^UTILITY(U,$J,358.3,220,1,4,0)
+32 ;;=4^Z84.81
+33 ;;^UTILITY(U,$J,358.3,220,2)
+34 ;;=^5063392
+35 ;;^UTILITY(U,$J,358.3,221,0)
+36 ;;=Z83.511^^3^17^17
+37 ;;^UTILITY(U,$J,358.3,221,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,221,1,3,0)
+40 ;;=3^Family Hx of Glaucoma
+41 ;;^UTILITY(U,$J,358.3,221,1,4,0)
+42 ;;=4^Z83.511
+43 ;;^UTILITY(U,$J,358.3,221,2)
+44 ;;=^5063382
+45 ;;^UTILITY(U,$J,358.3,222,0)
+46 ;;=Z83.518^^3^17^14
+47 ;;^UTILITY(U,$J,358.3,222,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,222,1,3,0)
+50 ;;=3^Family Hx of Eye Disorder
+51 ;;^UTILITY(U,$J,358.3,222,1,4,0)
+52 ;;=4^Z83.518
+53 ;;^UTILITY(U,$J,358.3,222,2)
+54 ;;=^5063383
+55 ;;^UTILITY(U,$J,358.3,223,0)
+56 ;;=Z83.52^^3^17^10
+57 ;;^UTILITY(U,$J,358.3,223,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,223,1,3,0)
+60 ;;=3^Family Hx of Ear Disorder
+61 ;;^UTILITY(U,$J,358.3,223,1,4,0)
+62 ;;=4^Z83.52
+63 ;;^UTILITY(U,$J,358.3,223,2)
+64 ;;=^5063384
+65 ;;^UTILITY(U,$J,358.3,224,0)
+66 ;;=Z83.71^^3^17^5
+67 ;;^UTILITY(U,$J,358.3,224,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,224,1,3,0)
+70 ;;=3^Family Hx of Colonic Polyps
+71 ;;^UTILITY(U,$J,358.3,224,1,4,0)
+72 ;;=4^Z83.71
+73 ;;^UTILITY(U,$J,358.3,224,2)
+74 ;;=^5063386
+75 ;;^UTILITY(U,$J,358.3,225,0)
+76 ;;=Z83.79^^3^17^9
+77 ;;^UTILITY(U,$J,358.3,225,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,225,1,3,0)
+80 ;;=3^Family Hx of Digestive System Diseases
+81 ;;^UTILITY(U,$J,358.3,225,1,4,0)
+82 ;;=4^Z83.79
+83 ;;^UTILITY(U,$J,358.3,225,2)
+84 ;;=^5063387
+85 ;;^UTILITY(U,$J,358.3,226,0)
+86 ;;=Z83.430^^3^17^11
+87 ;;^UTILITY(U,$J,358.3,226,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,226,1,3,0)
+90 ;;=3^Family Hx of Elevated Lipoprotein(a)
+91 ;;^UTILITY(U,$J,358.3,226,1,4,0)
+92 ;;=4^Z83.430
+93 ;;^UTILITY(U,$J,358.3,226,2)
+94 ;;=^5157631
+95 ;;^UTILITY(U,$J,358.3,227,0)
+96 ;;=Z83.438^^3^17^1
+97 ;;^UTILITY(U,$J,358.3,227,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,227,1,3,0)
+100 ;;=3^Family Hx Oth D/O of Lipoprotein Metabolism/Oth Lipidemia
+101 ;;^UTILITY(U,$J,358.3,227,1,4,0)
+102 ;;=4^Z83.438
+103 ;;^UTILITY(U,$J,358.3,227,2)
+104 ;;=^5157632
+105 ;;^UTILITY(U,$J,358.3,228,0)
+106 ;;=Z86.002^^3^17^53
+107 ;;^UTILITY(U,$J,358.3,228,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,228,1,3,0)
+110 ;;=3^Personal Hx of In-Situ Neop of Oth/Unspec Genital Organs
+111 ;;^UTILITY(U,$J,358.3,228,1,4,0)
+112 ;;=4^Z86.002
+113 ;;^UTILITY(U,$J,358.3,228,2)
+114 ;;=^5158325
+115 ;;^UTILITY(U,$J,358.3,229,0)
+116 ;;=Z86.003^^3^17^52
+117 ;;^UTILITY(U,$J,358.3,229,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,229,1,3,0)
+120 ;;=3^Personal Hx of In-Situ Neop of Oral Cavity/Esophagus/Stomach
+121 ;;^UTILITY(U,$J,358.3,229,1,4,0)
+122 ;;=4^Z86.003
+123 ;;^UTILITY(U,$J,358.3,229,2)
+124 ;;=^5158326
+125 ;;^UTILITY(U,$J,358.3,230,0)
+126 ;;=Z86.004^^3^17^54
+127 ;;^UTILITY(U,$J,358.3,230,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,230,1,3,0)
+130 ;;=3^Personal Hx of In-Situ Neop of Oth/Unspec Digestive Organs
+131 ;;^UTILITY(U,$J,358.3,230,1,4,0)
+132 ;;=4^Z86.004
+133 ;;^UTILITY(U,$J,358.3,230,2)
+134 ;;=^5158327
+135 ;;^UTILITY(U,$J,358.3,231,0)
+136 ;;=Z86.005^^3^17^51
+137 ;;^UTILITY(U,$J,358.3,231,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,231,1,3,0)
+140 ;;=3^Personal Hx of In-Situ Neop of Middle Ear/Resp System
+141 ;;^UTILITY(U,$J,358.3,231,1,4,0)
+142 ;;=4^Z86.005
+143 ;;^UTILITY(U,$J,358.3,231,2)
+144 ;;=^5158328
+145 ;;^UTILITY(U,$J,358.3,232,0)
+146 ;;=Z86.006^^3^17^63
+147 ;;^UTILITY(U,$J,358.3,232,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,232,1,3,0)
+150 ;;=3^Personal Hx of Melanoma In-Situ
+151 ;;^UTILITY(U,$J,358.3,232,1,4,0)
+152 ;;=4^Z86.006
+153 ;;^UTILITY(U,$J,358.3,232,2)
+154 ;;=^5158329
+155 ;;^UTILITY(U,$J,358.3,233,0)
+156 ;;=Z86.007^^3^17^55
+157 ;;^UTILITY(U,$J,358.3,233,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,233,1,3,0)
+160 ;;=3^Personal Hx of In-Situ Neop of Skin
+161 ;;^UTILITY(U,$J,358.3,233,1,4,0)
+162 ;;=4^Z86.007
+163 ;;^UTILITY(U,$J,358.3,233,2)
+164 ;;=^5158330
+165 ;;^UTILITY(U,$J,358.3,234,0)
+166 ;;=Z86.15^^3^17^57
+167 ;;^UTILITY(U,$J,358.3,234,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,234,1,3,0)
+170 ;;=3^Personal Hx of Latent Tuberculosis Infection
+171 ;;^UTILITY(U,$J,358.3,234,1,4,0)
+172 ;;=4^Z86.15
+173 ;;^UTILITY(U,$J,358.3,234,2)
+174 ;;=^5158331
+175 ;;^UTILITY(U,$J,358.3,235,0)
+176 ;;=Z86.16^^3^17^45
+177 ;;^UTILITY(U,$J,358.3,235,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,235,1,3,0)
+180 ;;=3^Personal Hx of COVID-19
+181 ;;^UTILITY(U,$J,358.3,235,1,4,0)
+182 ;;=4^Z86.16
+183 ;;^UTILITY(U,$J,358.3,235,2)
+184 ;;=^5160188
+185 ;;^UTILITY(U,$J,358.3,236,0)
+186 ;;=Z79.1^^3^18^4
+187 ;;^UTILITY(U,$J,358.3,236,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,236,1,3,0)
+190 ;;=3^Long Term Current Use of NSAID
+191 ;;^UTILITY(U,$J,358.3,236,1,4,0)
+192 ;;=4^Z79.1
+193 ;;^UTILITY(U,$J,358.3,236,2)
+194 ;;=^5063332
+195 ;;^UTILITY(U,$J,358.3,237,0)
+196 ;;=Z79.52^^3^18^7
+197 ;;^UTILITY(U,$J,358.3,237,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,237,1,3,0)
+200 ;;=3^Long Term Current Use of Systemic Steroids
+201 ;;^UTILITY(U,$J,358.3,237,1,4,0)
+202 ;;=4^Z79.52
+203 ;;^UTILITY(U,$J,358.3,237,2)
+204 ;;=^5063336
+205 ;;^UTILITY(U,$J,358.3,238,0)
+206 ;;=Z79.82^^3^18^2
+207 ;;^UTILITY(U,$J,358.3,238,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,238,1,3,0)
+210 ;;=3^Long Term Current Use of Aspirin
+211 ;;^UTILITY(U,$J,358.3,238,1,4,0)
+212 ;;=4^Z79.82
+213 ;;^UTILITY(U,$J,358.3,238,2)
+214 ;;=^5063340
+215 ;;^UTILITY(U,$J,358.3,239,0)
+216 ;;=Z79.810^^3^18^6
+217 ;;^UTILITY(U,$J,358.3,239,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,239,1,3,0)
+220 ;;=3^Long Term Current Use of SERMs
+221 ;;^UTILITY(U,$J,358.3,239,1,4,0)
+222 ;;=4^Z79.810
+223 ;;^UTILITY(U,$J,358.3,239,2)
+224 ;;=^5063337
+225 ;;^UTILITY(U,$J,358.3,240,0)
+226 ;;=Z79.811^^3^18^1
+227 ;;^UTILITY(U,$J,358.3,240,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,240,1,3,0)
+230 ;;=3^Long Term Current Use of Aromatase Inhibitors
+231 ;;^UTILITY(U,$J,358.3,240,1,4,0)
+232 ;;=4^Z79.811
+233 ;;^UTILITY(U,$J,358.3,240,2)
+234 ;;=^5063338
+235 ;;^UTILITY(U,$J,358.3,241,0)
+236 ;;=Z79.4^^3^18^3
+237 ;;^UTILITY(U,$J,358.3,241,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,241,1,3,0)
+240 ;;=3^Long Term Current Use of Insulin
+241 ;;^UTILITY(U,$J,358.3,241,1,4,0)
+242 ;;=4^Z79.4
+243 ;;^UTILITY(U,$J,358.3,241,2)
+244 ;;=^5063334
+245 ;;^UTILITY(U,$J,358.3,242,0)
+246 ;;=Z79.84^^3^18^5
+247 ;;^UTILITY(U,$J,358.3,242,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,242,1,3,0)
+250 ;;=3^Long Term Current Use of Oral Hypoglycemic
+251 ;;^UTILITY(U,$J,358.3,242,1,4,0)
+252 ;;=4^Z79.84
+253 ;;^UTILITY(U,$J,358.3,242,2)
+254 ;;=^5140432
+255 ;;^UTILITY(U,$J,358.3,243,0)
+256 ;;=E78.5^^3^19^7
+257 ;;^UTILITY(U,$J,358.3,243,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,243,1,3,0)
+260 ;;=3^Hyperlipidemia,Unspec
+261 ;;^UTILITY(U,$J,358.3,243,1,4,0)
+262 ;;=4^E78.5
+263 ;;^UTILITY(U,$J,358.3,243,2)
+264 ;;=^5002969
+265 ;;^UTILITY(U,$J,358.3,244,0)
+266 ;;=E66.9^^3^19^11
+267 ;;^UTILITY(U,$J,358.3,244,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,244,1,3,0)
+270 ;;=3^Obesity,Unspec
+271 ;;^UTILITY(U,$J,358.3,244,1,4,0)
+272 ;;=4^E66.9
+273 ;;^UTILITY(U,$J,358.3,244,2)
+274 ;;=^5002832
+275 ;;^UTILITY(U,$J,358.3,245,0)
+276 ;;=E66.01^^3^19^10
+277 ;;^UTILITY(U,$J,358.3,245,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,245,1,3,0)
+280 ;;=3^Morbid Obesity
+281 ;;^UTILITY(U,$J,358.3,245,1,4,0)
+282 ;;=4^E66.01
+283 ;;^UTILITY(U,$J,358.3,245,2)
+284 ;;=^5002826
+285 ;;^UTILITY(U,$J,358.3,246,0)
+286 ;;=E66.3^^3^19^13
+287 ;;^UTILITY(U,$J,358.3,246,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,246,1,3,0)
+290 ;;=3^Overweight
+291 ;;^UTILITY(U,$J,358.3,246,1,4,0)
+292 ;;=4^E66.3
+293 ;;^UTILITY(U,$J,358.3,246,2)
+294 ;;=^5002830
+295 ;;^UTILITY(U,$J,358.3,247,0)
+296 ;;=I10.^^3^19^8
+297 ;;^UTILITY(U,$J,358.3,247,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,247,1,3,0)
+300 ;;=3^Hypertension,Essential Primary
+301 ;;^UTILITY(U,$J,358.3,247,1,4,0)
+302 ;;=4^I10.
+303 ;;^UTILITY(U,$J,358.3,247,2)
+304 ;;=^5007062
+305 ;;^UTILITY(U,$J,358.3,248,0)
+306 ;;=I25.2^^3^19^12
+307 ;;^UTILITY(U,$J,358.3,248,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,248,1,3,0)
+310 ;;=3^Old Myocardial Infarction
+311 ;;^UTILITY(U,$J,358.3,248,1,4,0)
+312 ;;=4^I25.2
+313 ;;^UTILITY(U,$J,358.3,248,2)
+314 ;;=^259884
+315 ;;^UTILITY(U,$J,358.3,249,0)
+316 ;;=I25.10^^3^19^2
+317 ;;^UTILITY(U,$J,358.3,249,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,249,1,3,0)
+320 ;;=3^Athscl Hrt Disease,Native Coronary Artery,w/o Angina Pectoris
+321 ;;^UTILITY(U,$J,358.3,249,1,4,0)
+322 ;;=4^I25.10
+323 ;;^UTILITY(U,$J,358.3,249,2)
+324 ;;=^5007107
+325 ;;^UTILITY(U,$J,358.3,250,0)
+326 ;;=I51.9^^3^19^6
+327 ;;^UTILITY(U,$J,358.3,250,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,250,1,3,0)
+330 ;;=3^Heart Disease,Unspec
+331 ;;^UTILITY(U,$J,358.3,250,1,4,0)
+332 ;;=4^I51.9
+333 ;;^UTILITY(U,$J,358.3,250,2)
+334 ;;=^5007258
+335 ;;^UTILITY(U,$J,358.3,251,0)
+336 ;;=K70.9^^3^19^1
+337 ;;^UTILITY(U,$J,358.3,251,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,251,1,3,0)
+340 ;;=3^Alcoholic Liver Disease,Unspec
+341 ;;^UTILITY(U,$J,358.3,251,1,4,0)
+342 ;;=4^K70.9
+343 ;;^UTILITY(U,$J,358.3,251,2)
+344 ;;=^5008792
+345 ;;^UTILITY(U,$J,358.3,252,0)
+346 ;;=R03.0^^3^19^3
+347 ;;^UTILITY(U,$J,358.3,252,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,252,1,3,0)
+350 ;;=3^Elevated B/P Reading w/o Diagnosis of HTN
+351 ;;^UTILITY(U,$J,358.3,252,1,4,0)
+352 ;;=4^R03.0
+353 ;;^UTILITY(U,$J,358.3,252,2)
+354 ;;=^5019171
+355 ;;^UTILITY(U,$J,358.3,253,0)
+356 ;;=Z83.430^^3^19^5
+357 ;;^UTILITY(U,$J,358.3,253,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,253,1,3,0)
+360 ;;=3^Family Hx of Elevated Lipoprotein(a)
+361 ;;^UTILITY(U,$J,358.3,253,1,4,0)
+362 ;;=4^Z83.430
+363 ;;^UTILITY(U,$J,358.3,253,2)
+364 ;;=^5157631
+365 ;;^UTILITY(U,$J,358.3,254,0)
+366 ;;=Z83.438^^3^19^4
+367 ;;^UTILITY(U,$J,358.3,254,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,254,1,3,0)
+370 ;;=3^Family Hx of D/O of Lipoprotein Metabolism/Oth Lipidemia
+371 ;;^UTILITY(U,$J,358.3,254,1,4,0)
+372 ;;=4^Z83.438
+373 ;;^UTILITY(U,$J,358.3,254,2)
+374 ;;=^5157632
+375 ;;^UTILITY(U,$J,358.3,255,0)
+376 ;;=Z22.7^^3^19^9
+377 ;;^UTILITY(U,$J,358.3,255,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,255,1,3,0)
+380 ;;=3^Latent Tuberculosis
+381 ;;^UTILITY(U,$J,358.3,255,1,4,0)
+382 ;;=4^Z22.7
+383 ;;^UTILITY(U,$J,358.3,255,2)
+384 ;;=^5158321
+385 ;;^UTILITY(U,$J,358.3,256,0)
+386 ;;=Z12.31^^3^20^9
+387 ;;^UTILITY(U,$J,358.3,256,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,256,1,3,0)
+390 ;;=3^Screening for Malig Neop Breast,Mammogram
+391 ;;^UTILITY(U,$J,358.3,256,1,4,0)
+392 ;;=4^Z12.31
+393 ;;^UTILITY(U,$J,358.3,256,2)
+394 ;;=^5062685
+395 ;;^UTILITY(U,$J,358.3,257,0)
+396 ;;=Z12.39^^3^20^8
+397 ;;^UTILITY(U,$J,358.3,257,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,257,1,3,0)
+400 ;;=3^Screening for Malig Neop Breast
+401 ;;^UTILITY(U,$J,358.3,257,1,4,0)
+402 ;;=4^Z12.39
+403 ;;^UTILITY(U,$J,358.3,257,2)
+404 ;;=^5062686
+405 ;;^UTILITY(U,$J,358.3,258,0)
+406 ;;=Z11.51^^3^20^5
+407 ;;^UTILITY(U,$J,358.3,258,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,258,1,3,0)
+410 ;;=3^Screening for HPV
+411 ;;^UTILITY(U,$J,358.3,258,1,4,0)
+412 ;;=4^Z11.51
+413 ;;^UTILITY(U,$J,358.3,258,2)
+414 ;;=^5062674
+415 ;;^UTILITY(U,$J,358.3,259,0)
+416 ;;=Z11.59^^3^20^17
+417 ;;^UTILITY(U,$J,358.3,259,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,259,1,3,0)
+420 ;;=3^Screening for Viral Diseases
+421 ;;^UTILITY(U,$J,358.3,259,1,4,0)
+422 ;;=4^Z11.59
+423 ;;^UTILITY(U,$J,358.3,259,2)
+424 ;;=^5062675
+425 ;;^UTILITY(U,$J,358.3,260,0)
+426 ;;=Z11.3^^3^20^6
+427 ;;^UTILITY(U,$J,358.3,260,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,260,1,3,0)
+430 ;;=3^Screening for Infections w/ Sexual Mode of Transmission
+431 ;;^UTILITY(U,$J,358.3,260,1,4,0)
+432 ;;=4^Z11.3
+433 ;;^UTILITY(U,$J,358.3,260,2)
+434 ;;=^5062672
+435 ;;^UTILITY(U,$J,358.3,261,0)
+436 ;;=Z11.9^^3^20^7
+437 ;;^UTILITY(U,$J,358.3,261,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,261,1,3,0)
+440 ;;=3^Screening for Infectious/Parasitic Diseases
+441 ;;^UTILITY(U,$J,358.3,261,1,4,0)
+442 ;;=4^Z11.9
+443 ;;^UTILITY(U,$J,358.3,261,2)
+444 ;;=^5062678
+445 ;;^UTILITY(U,$J,358.3,262,0)
+446 ;;=Z12.2^^3^20^14
+447 ;;^UTILITY(U,$J,358.3,262,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,262,1,3,0)
+450 ;;=3^Screening for Malig Neop Respiratory Organs
+451 ;;^UTILITY(U,$J,358.3,262,1,4,0)
+452 ;;=4^Z12.2
+453 ;;^UTILITY(U,$J,358.3,262,2)
+454 ;;=^5062684
+455 ;;^UTILITY(U,$J,358.3,263,0)
+456 ;;=Z12.4^^3^20^10
+457 ;;^UTILITY(U,$J,358.3,263,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,263,1,3,0)
+460 ;;=3^Screening for Malig Neop Cervix
+461 ;;^UTILITY(U,$J,358.3,263,1,4,0)
+462 ;;=4^Z12.4
+463 ;;^UTILITY(U,$J,358.3,263,2)
+464 ;;=^5062687
+465 ;;^UTILITY(U,$J,358.3,264,0)
+466 ;;=Z12.12^^3^20^13
+467 ;;^UTILITY(U,$J,358.3,264,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,264,1,3,0)
+470 ;;=3^Screening for Malig Neop Rectum
+471 ;;^UTILITY(U,$J,358.3,264,1,4,0)
+472 ;;=4^Z12.12
+473 ;;^UTILITY(U,$J,358.3,264,2)
+474 ;;=^5062682
+475 ;;^UTILITY(U,$J,358.3,265,0)
+476 ;;=Z12.5^^3^20^12
+477 ;;^UTILITY(U,$J,358.3,265,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,265,1,3,0)
+480 ;;=3^Screening for Malig Neop Prostate
+481 ;;^UTILITY(U,$J,358.3,265,1,4,0)
+482 ;;=4^Z12.5
+483 ;;^UTILITY(U,$J,358.3,265,2)
+484 ;;=^5062688
+485 ;;^UTILITY(U,$J,358.3,266,0)
+486 ;;=Z12.11^^3^20^11
+487 ;;^UTILITY(U,$J,358.3,266,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,266,1,3,0)
+490 ;;=3^Screening for Malig Neop Colon
+491 ;;^UTILITY(U,$J,358.3,266,1,4,0)
+492 ;;=4^Z12.11
+493 ;;^UTILITY(U,$J,358.3,266,2)
+494 ;;=^5062681
+495 ;;^UTILITY(U,$J,358.3,267,0)
+496 ;;=Z13.1^^3^20^4
+497 ;;^UTILITY(U,$J,358.3,267,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,267,1,3,0)
+500 ;;=3^Screening for Diabetes Mellitus
+501 ;;^UTILITY(U,$J,358.3,267,1,4,0)
+502 ;;=4^Z13.1
+503 ;;^UTILITY(U,$J,358.3,267,2)
+504 ;;=^5062700
+505 ;;^UTILITY(U,$J,358.3,268,0)
+506 ;;=Z13.0^^3^20^1
+507 ;;^UTILITY(U,$J,358.3,268,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,268,1,3,0)
+510 ;;=3^Screening for Blood/Blood-Forming Organs Diseases
+511 ;;^UTILITY(U,$J,358.3,268,1,4,0)
+512 ;;=4^Z13.0
+513 ;;^UTILITY(U,$J,358.3,268,2)
+514 ;;=^5062699
+515 ;;^UTILITY(U,$J,358.3,269,0)
+516 ;;=Z13.850^^3^20^16
+517 ;;^UTILITY(U,$J,358.3,269,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,269,1,3,0)
+520 ;;=3^Screening for TBI
+521 ;;^UTILITY(U,$J,358.3,269,1,4,0)
+522 ;;=4^Z13.850
+523 ;;^UTILITY(U,$J,358.3,269,2)
+524 ;;=^5062717
+525 ;;^UTILITY(U,$J,358.3,270,0)
+526 ;;=Z13.6^^3^20^3
+527 ;;^UTILITY(U,$J,358.3,270,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,270,1,3,0)
+530 ;;=3^Screening for Cardiovascular Disorders
+531 ;;^UTILITY(U,$J,358.3,270,1,4,0)
+532 ;;=4^Z13.6
+533 ;;^UTILITY(U,$J,358.3,270,2)
+534 ;;=^5062707
+535 ;;^UTILITY(U,$J,358.3,271,0)
+536 ;;=Z13.820^^3^20^15
+537 ;;^UTILITY(U,$J,358.3,271,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,271,1,3,0)
+540 ;;=3^Screening for Osteoporosis
+541 ;;^UTILITY(U,$J,358.3,271,1,4,0)
+542 ;;=4^Z13.820
+543 ;;^UTILITY(U,$J,358.3,271,2)
+544 ;;=^5062713
+545 ;;^UTILITY(U,$J,358.3,272,0)
+546 ;;=Z11.7^^3^20^18
+547 ;;^UTILITY(U,$J,358.3,272,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,272,1,3,0)
+550 ;;=3^Testing for Latent Tuberculosis Infection
+551 ;;^UTILITY(U,$J,358.3,272,1,4,0)
+552 ;;=4^Z11.7
+553 ;;^UTILITY(U,$J,358.3,272,2)
+554 ;;=^5158320
+555 ;;^UTILITY(U,$J,358.3,273,0)
+556 ;;=Z11.52^^3^20^2
+557 ;;^UTILITY(U,$J,358.3,273,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,273,1,3,0)
+560 ;;=3^Screening for COVID-19
+561 ;;^UTILITY(U,$J,358.3,273,1,4,0)
+562 ;;=4^Z11.52
+563 ;;^UTILITY(U,$J,358.3,273,2)
+564 ;;=^5160186
+565 ;;^UTILITY(U,$J,358.3,274,0)
+566 ;;=Z94.0^^3^21^6
+567 ;;^UTILITY(U,$J,358.3,274,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,274,1,3,0)
+570 ;;=3^Kidney Transplant Status
+571 ;;^UTILITY(U,$J,358.3,274,1,4,0)
+572 ;;=4^Z94.0
+573 ;;^UTILITY(U,$J,358.3,274,2)
+574 ;;=^5063654
+575 ;;^UTILITY(U,$J,358.3,275,0)
+576 ;;=Z94.1^^3^21^4
+577 ;;^UTILITY(U,$J,358.3,275,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,275,1,3,0)
+580 ;;=3^Heart Transplant Status
+581 ;;^UTILITY(U,$J,358.3,275,1,4,0)
+582 ;;=4^Z94.1
+583 ;;^UTILITY(U,$J,358.3,275,2)
+584 ;;=^5063655
+585 ;;^UTILITY(U,$J,358.3,276,0)
+586 ;;=Z95.3^^3^21^13
+587 ;;^UTILITY(U,$J,358.3,276,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,276,1,3,0)
+590 ;;=3^Xenogenic Heart Valve Status
+591 ;;^UTILITY(U,$J,358.3,276,1,4,0)
+592 ;;=4^Z95.3
+593 ;;^UTILITY(U,$J,358.3,276,2)
+594 ;;=^5063671
+595 ;;^UTILITY(U,$J,358.3,277,0)
+596 ;;=Z94.5^^3^21^10
+597 ;;^UTILITY(U,$J,358.3,277,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,277,1,3,0)
+600 ;;=3^Skin Transplant Status
+601 ;;^UTILITY(U,$J,358.3,277,1,4,0)
+602 ;;=4^Z94.5
+603 ;;^UTILITY(U,$J,358.3,277,2)
+604 ;;=^5063659
+605 ;;^UTILITY(U,$J,358.3,278,0)
+606 ;;=Z94.6^^3^21^2
+607 ;;^UTILITY(U,$J,358.3,278,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,278,1,3,0)
+610 ;;=3^Bone Transplant Status
+611 ;;^UTILITY(U,$J,358.3,278,1,4,0)
+612 ;;=4^Z94.6
+613 ;;^UTILITY(U,$J,358.3,278,2)
+614 ;;=^5063660
+615 ;;^UTILITY(U,$J,358.3,279,0)
+616 ;;=Z94.7^^3^21^3
+617 ;;^UTILITY(U,$J,358.3,279,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,279,1,3,0)
+620 ;;=3^Corneal Transplant Status
+621 ;;^UTILITY(U,$J,358.3,279,1,4,0)
+622 ;;=4^Z94.7
+623 ;;^UTILITY(U,$J,358.3,279,2)
+624 ;;=^5063661
+625 ;;^UTILITY(U,$J,358.3,280,0)
+626 ;;=Z94.2^^3^21^8
+627 ;;^UTILITY(U,$J,358.3,280,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,280,1,3,0)
+630 ;;=3^Lung Transplant Status
+631 ;;^UTILITY(U,$J,358.3,280,1,4,0)
+632 ;;=4^Z94.2
+633 ;;^UTILITY(U,$J,358.3,280,2)
+634 ;;=^5063656
+635 ;;^UTILITY(U,$J,358.3,281,0)
+636 ;;=Z94.4^^3^21^7
+637 ;;^UTILITY(U,$J,358.3,281,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,281,1,3,0)
+640 ;;=3^Liver Transplant Status
+641 ;;^UTILITY(U,$J,358.3,281,1,4,0)
+642 ;;=4^Z94.4
+643 ;;^UTILITY(U,$J,358.3,281,2)
+644 ;;=^5063658
+645 ;;^UTILITY(U,$J,358.3,282,0)
+646 ;;=Z94.81^^3^21^1
+647 ;;^UTILITY(U,$J,358.3,282,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,282,1,3,0)
+650 ;;=3^Bone Marrow Transplant Status
+651 ;;^UTILITY(U,$J,358.3,282,1,4,0)
+652 ;;=4^Z94.81
+653 ;;^UTILITY(U,$J,358.3,282,2)
+654 ;;=^5063662
+655 ;;^UTILITY(U,$J,358.3,283,0)
+656 ;;=Z94.84^^3^21^11
+657 ;;^UTILITY(U,$J,358.3,283,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,283,1,3,0)
+660 ;;=3^Stem Cell Transplant Status
+661 ;;^UTILITY(U,$J,358.3,283,1,4,0)
+662 ;;=4^Z94.84
+663 ;;^UTILITY(U,$J,358.3,283,2)
+664 ;;=^5063665
+665 ;;^UTILITY(U,$J,358.3,284,0)
+666 ;;=Z94.83^^3^21^9
+667 ;;^UTILITY(U,$J,358.3,284,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,284,1,3,0)
+670 ;;=3^Pancreas Transplant Status
+671 ;;^UTILITY(U,$J,358.3,284,1,4,0)
+672 ;;=4^Z94.83
+673 ;;^UTILITY(U,$J,358.3,284,2)
+674 ;;=^5063664
+675 ;;^UTILITY(U,$J,358.3,285,0)
+676 ;;=Z94.82^^3^21^5
+677 ;;^UTILITY(U,$J,358.3,285,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,285,1,3,0)
+680 ;;=3^Intestine Transplant Status
+681 ;;^UTILITY(U,$J,358.3,285,1,4,0)
+682 ;;=4^Z94.82
+683 ;;^UTILITY(U,$J,358.3,285,2)
+684 ;;=^5063663
+685 ;;^UTILITY(U,$J,358.3,286,0)
+686 ;;=Z94.9^^3^21^12
+687 ;;^UTILITY(U,$J,358.3,286,1,0)
+688 ;;=^358.31IA^4^2
+689 ;;^UTILITY(U,$J,358.3,286,1,3,0)
+690 ;;=3^Transplanted Organ & Tissue Status,Unspec
+691 ;;^UTILITY(U,$J,358.3,286,1,4,0)
+692 ;;=4^Z94.9
+693 ;;^UTILITY(U,$J,358.3,286,2)
+694 ;;=^5063667
+695 ;;^UTILITY(U,$J,358.3,287,0)
+696 ;;=Z23.^^3^22^1
+697 ;;^UTILITY(U,$J,358.3,287,1,0)
+698 ;;=^358.31IA^4^2
+699 ;;^UTILITY(U,$J,358.3,287,1,3,0)
+700 ;;=3^Immunization Encounter
+701 ;;^UTILITY(U,$J,358.3,287,1,4,0)
+702 ;;=4^Z23.
+703 ;;^UTILITY(U,$J,358.3,287,2)
+704 ;;=^5062795
+705 ;;^UTILITY(U,$J,358.3,288,0)
+706 ;;=Z28.310^^3^22^4
+707 ;;^UTILITY(U,$J,358.3,288,1,0)
+708 ;;=^358.31IA^4^2
+709 ;;^UTILITY(U,$J,358.3,288,1,3,0)
+710 ;;=3^Unvaccinated for COVID-19
+711 ;;^UTILITY(U,$J,358.3,288,1,4,0)
+712 ;;=4^Z28.310
+713 ;;^UTILITY(U,$J,358.3,288,2)
+714 ;;=^5161576
+715 ;;^UTILITY(U,$J,358.3,289,0)
+716 ;;=Z28.311^^3^22^2
