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

IBDEI00D.m

Go to the documentation of this file.
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