IBDEI0EE ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,36052,0)
;;=E11.29^^105^1463^27
;;^UTILITY(U,$J,358.3,36052,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36052,1,3,0)
;;=3^DM Type 2 w/ Oth Diab Kidney Compl
;;^UTILITY(U,$J,358.3,36052,1,4,0)
;;=4^E11.29
;;^UTILITY(U,$J,358.3,36052,2)
;;=^5002631
;;^UTILITY(U,$J,358.3,36053,0)
;;=E11.311^^105^1463^14
;;^UTILITY(U,$J,358.3,36053,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36053,1,3,0)
;;=3^DM Type 2 w/ Diab Rtnop w/ Macular Edema
;;^UTILITY(U,$J,358.3,36053,1,4,0)
;;=4^E11.311
;;^UTILITY(U,$J,358.3,36053,2)
;;=E11.319^5002632
;;^UTILITY(U,$J,358.3,36054,0)
;;=E11.319^^105^1463^15
;;^UTILITY(U,$J,358.3,36054,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36054,1,3,0)
;;=3^DM Type 2 w/ Diab Rtnop w/o Macular Edema
;;^UTILITY(U,$J,358.3,36054,1,4,0)
;;=4^E11.319
;;^UTILITY(U,$J,358.3,36054,2)
;;=^5002633
;;^UTILITY(U,$J,358.3,36055,0)
;;=E11.3211^^105^1463^22
;;^UTILITY(U,$J,358.3,36055,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36055,1,3,0)
;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Rt Eye
;;^UTILITY(U,$J,358.3,36055,1,4,0)
;;=4^E11.3211
;;^UTILITY(U,$J,358.3,36055,2)
;;=^5138331
;;^UTILITY(U,$J,358.3,36056,0)
;;=E11.3212^^105^1463^23
;;^UTILITY(U,$J,358.3,36056,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36056,1,3,0)
;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Lt Eye
;;^UTILITY(U,$J,358.3,36056,1,4,0)
;;=4^E11.3212
;;^UTILITY(U,$J,358.3,36056,2)
;;=^5138332
;;^UTILITY(U,$J,358.3,36057,0)
;;=E11.3213^^105^1463^24
;;^UTILITY(U,$J,358.3,36057,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36057,1,3,0)
;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Bilat
;;^UTILITY(U,$J,358.3,36057,1,4,0)
;;=4^E11.3213
;;^UTILITY(U,$J,358.3,36057,2)
;;=^5138333
;;^UTILITY(U,$J,358.3,36058,0)
;;=E11.40^^105^1463^10
;;^UTILITY(U,$J,358.3,36058,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36058,1,3,0)
;;=3^DM Type 2 w/ Diab Neuropathy,Unspec
;;^UTILITY(U,$J,358.3,36058,1,4,0)
;;=4^E11.40
;;^UTILITY(U,$J,358.3,36058,2)
;;=^5002644
;;^UTILITY(U,$J,358.3,36059,0)
;;=E11.51^^105^1463^12
;;^UTILITY(U,$J,358.3,36059,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36059,1,3,0)
;;=3^DM Type 2 w/ Diab Periph Angiopathy w/o Gangrene
;;^UTILITY(U,$J,358.3,36059,1,4,0)
;;=4^E11.51
;;^UTILITY(U,$J,358.3,36059,2)
;;=^5002650
;;^UTILITY(U,$J,358.3,36060,0)
;;=E11.52^^105^1463^11
;;^UTILITY(U,$J,358.3,36060,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36060,1,3,0)
;;=3^DM Type 2 w/ Diab Periph Angiopathy w/ Gangrene
;;^UTILITY(U,$J,358.3,36060,1,4,0)
;;=4^E11.52
;;^UTILITY(U,$J,358.3,36060,2)
;;=^5002651
;;^UTILITY(U,$J,358.3,36061,0)
;;=E11.620^^105^1463^5
;;^UTILITY(U,$J,358.3,36061,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36061,1,3,0)
;;=3^DM Type 2 w/ Diab Dermatitis
;;^UTILITY(U,$J,358.3,36061,1,4,0)
;;=4^E11.620
;;^UTILITY(U,$J,358.3,36061,2)
;;=^5002655
;;^UTILITY(U,$J,358.3,36062,0)
;;=E11.36^^105^1463^4
;;^UTILITY(U,$J,358.3,36062,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36062,1,3,0)
;;=3^DM Type 2 w/ Diab Cataract
;;^UTILITY(U,$J,358.3,36062,1,4,0)
;;=4^E11.36
;;^UTILITY(U,$J,358.3,36062,2)
;;=^5002642
;;^UTILITY(U,$J,358.3,36063,0)
;;=I10.^^105^1464^1
;;^UTILITY(U,$J,358.3,36063,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36063,1,3,0)
;;=3^Essential/Primary Hypertension
;;^UTILITY(U,$J,358.3,36063,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,36063,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,36064,0)
;;=I11.0^^105^1464^12
;;^UTILITY(U,$J,358.3,36064,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36064,1,3,0)
;;=3^Hypertensive Heart Disease w/ Heart Failure
;;^UTILITY(U,$J,358.3,36064,1,4,0)
;;=4^I11.0
;;^UTILITY(U,$J,358.3,36064,2)
;;=^5007063
;;^UTILITY(U,$J,358.3,36065,0)
;;=I11.9^^105^1464^13
;;^UTILITY(U,$J,358.3,36065,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36065,1,3,0)
;;=3^Hypertensive Heart Disease w/o Heart Failure
;;^UTILITY(U,$J,358.3,36065,1,4,0)
;;=4^I11.9
;;^UTILITY(U,$J,358.3,36065,2)
;;=^5007064
;;^UTILITY(U,$J,358.3,36066,0)
;;=I12.0^^105^1464^5
;;^UTILITY(U,$J,358.3,36066,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36066,1,3,0)
;;=3^Hypertensive CKD w/ Stage 5 CKD or ESRD
;;^UTILITY(U,$J,358.3,36066,1,4,0)
;;=4^I12.0
;;^UTILITY(U,$J,358.3,36066,2)
;;=^5007065
;;^UTILITY(U,$J,358.3,36067,0)
;;=I12.9^^105^1464^4
;;^UTILITY(U,$J,358.3,36067,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36067,1,3,0)
;;=3^Hypertensive CKD w/ Stage 1-4 CKD
;;^UTILITY(U,$J,358.3,36067,1,4,0)
;;=4^I12.9
;;^UTILITY(U,$J,358.3,36067,2)
;;=^5007066
;;^UTILITY(U,$J,358.3,36068,0)
;;=I13.0^^105^1464^8
;;^UTILITY(U,$J,358.3,36068,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36068,1,3,0)
;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 1-4 CKD
;;^UTILITY(U,$J,358.3,36068,1,4,0)
;;=4^I13.0
;;^UTILITY(U,$J,358.3,36068,2)
;;=^5007067
;;^UTILITY(U,$J,358.3,36069,0)
;;=I13.10^^105^1464^10
;;^UTILITY(U,$J,358.3,36069,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36069,1,3,0)
;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 1-4 CKD
;;^UTILITY(U,$J,358.3,36069,1,4,0)
;;=4^I13.10
;;^UTILITY(U,$J,358.3,36069,2)
;;=^5007068
;;^UTILITY(U,$J,358.3,36070,0)
;;=I13.11^^105^1464^11
;;^UTILITY(U,$J,358.3,36070,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36070,1,3,0)
;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 5 CKD/ESRD
;;^UTILITY(U,$J,358.3,36070,1,4,0)
;;=4^I13.11
;;^UTILITY(U,$J,358.3,36070,2)
;;=^5007069
;;^UTILITY(U,$J,358.3,36071,0)
;;=I13.2^^105^1464^9
;;^UTILITY(U,$J,358.3,36071,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36071,1,3,0)
;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 5 CKD/ESRD
;;^UTILITY(U,$J,358.3,36071,1,4,0)
;;=4^I13.2
;;^UTILITY(U,$J,358.3,36071,2)
;;=^5007070
;;^UTILITY(U,$J,358.3,36072,0)
;;=I15.0^^105^1464^15
;;^UTILITY(U,$J,358.3,36072,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36072,1,3,0)
;;=3^Renovascular Hypertension
;;^UTILITY(U,$J,358.3,36072,1,4,0)
;;=4^I15.0
;;^UTILITY(U,$J,358.3,36072,2)
;;=^5007071
;;^UTILITY(U,$J,358.3,36073,0)
;;=I15.1^^105^1464^3
;;^UTILITY(U,$J,358.3,36073,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36073,1,3,0)
;;=3^Hypertension Secondary to Oth Renal Disorders
;;^UTILITY(U,$J,358.3,36073,1,4,0)
;;=4^I15.1
;;^UTILITY(U,$J,358.3,36073,2)
;;=^5007072
;;^UTILITY(U,$J,358.3,36074,0)
;;=I15.2^^105^1464^2
;;^UTILITY(U,$J,358.3,36074,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36074,1,3,0)
;;=3^Hypertension Secondary to Endocrine Disorders
;;^UTILITY(U,$J,358.3,36074,1,4,0)
;;=4^I15.2
;;^UTILITY(U,$J,358.3,36074,2)
;;=^5007073
;;^UTILITY(U,$J,358.3,36075,0)
;;=I15.8^^105^1464^16
;;^UTILITY(U,$J,358.3,36075,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36075,1,3,0)
;;=3^Secondary Hypertension,Oth
;;^UTILITY(U,$J,358.3,36075,1,4,0)
;;=4^I15.8
;;^UTILITY(U,$J,358.3,36075,2)
;;=^5007074
;;^UTILITY(U,$J,358.3,36076,0)
;;=I15.9^^105^1464^17
;;^UTILITY(U,$J,358.3,36076,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36076,1,3,0)
;;=3^Secondary Hypertension,Unspec
;;^UTILITY(U,$J,358.3,36076,1,4,0)
;;=4^I15.9
;;^UTILITY(U,$J,358.3,36076,2)
;;=^5007075
;;^UTILITY(U,$J,358.3,36077,0)
;;=I16.0^^105^1464^14
;;^UTILITY(U,$J,358.3,36077,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36077,1,3,0)
;;=3^Hypertensive Urgency
;;^UTILITY(U,$J,358.3,36077,1,4,0)
;;=4^I16.0
;;^UTILITY(U,$J,358.3,36077,2)
;;=^8133013
;;^UTILITY(U,$J,358.3,36078,0)
;;=I16.1^^105^1464^7
;;^UTILITY(U,$J,358.3,36078,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36078,1,3,0)
;;=3^Hypertensive Emergency
;;^UTILITY(U,$J,358.3,36078,1,4,0)
;;=4^I16.1
;;^UTILITY(U,$J,358.3,36078,2)
;;=^8204721
;;^UTILITY(U,$J,358.3,36079,0)
;;=I16.9^^105^1464^6
;;^UTILITY(U,$J,358.3,36079,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36079,1,3,0)
;;=3^Hypertensive Crisis,Unspec
;;^UTILITY(U,$J,358.3,36079,1,4,0)
;;=4^I16.9
;;^UTILITY(U,$J,358.3,36079,2)
;;=^5138600
;;^UTILITY(U,$J,358.3,36080,0)
;;=A07.0^^105^1465^5
;;^UTILITY(U,$J,358.3,36080,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36080,1,3,0)
;;=3^Balantidiasis
;;^UTILITY(U,$J,358.3,36080,1,4,0)
;;=4^A07.0
;;^UTILITY(U,$J,358.3,36080,2)
;;=^12533
;;^UTILITY(U,$J,358.3,36081,0)
;;=A07.1^^105^1465^9
;;^UTILITY(U,$J,358.3,36081,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36081,1,3,0)
;;=3^Giardiasis [lambliasis]
;;^UTILITY(U,$J,358.3,36081,1,4,0)
;;=4^A07.1
;;^UTILITY(U,$J,358.3,36081,2)
;;=^5000049
;;^UTILITY(U,$J,358.3,36082,0)
;;=A07.2^^105^1465^7
;;^UTILITY(U,$J,358.3,36082,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36082,1,3,0)
;;=3^Cryptosporidiosis
;;^UTILITY(U,$J,358.3,36082,1,4,0)
;;=4^A07.2
;;^UTILITY(U,$J,358.3,36082,2)
;;=^29629
;;^UTILITY(U,$J,358.3,36083,0)
;;=A07.3^^105^1465^12
;;^UTILITY(U,$J,358.3,36083,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36083,1,3,0)
;;=3^Isosporiasis
;;^UTILITY(U,$J,358.3,36083,1,4,0)
;;=4^A07.3
;;^UTILITY(U,$J,358.3,36083,2)
;;=^5000050
;;^UTILITY(U,$J,358.3,36084,0)
;;=A07.4^^105^1465^8
;;^UTILITY(U,$J,358.3,36084,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36084,1,3,0)
;;=3^Cyclosporiasis
;;^UTILITY(U,$J,358.3,36084,1,4,0)
;;=4^A07.4
;;^UTILITY(U,$J,358.3,36084,2)
;;=^321973
;;^UTILITY(U,$J,358.3,36085,0)
;;=A07.8^^105^1465^14
;;^UTILITY(U,$J,358.3,36085,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36085,1,3,0)
;;=3^Protozoal Intestinal Diseases,Oth Spec
;;^UTILITY(U,$J,358.3,36085,1,4,0)
;;=4^A07.8
;;^UTILITY(U,$J,358.3,36085,2)
;;=^265972
;;^UTILITY(U,$J,358.3,36086,0)
;;=A07.9^^105^1465^13
;;^UTILITY(U,$J,358.3,36086,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36086,1,3,0)
;;=3^Protozoal Intestinal Disease,Unspec
;;^UTILITY(U,$J,358.3,36086,1,4,0)
;;=4^A07.9
;;^UTILITY(U,$J,358.3,36086,2)
;;=^5000051
;;^UTILITY(U,$J,358.3,36087,0)
;;=A08.0^^105^1465^15
;;^UTILITY(U,$J,358.3,36087,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36087,1,3,0)
;;=3^Rotaviral Enteritis
;;^UTILITY(U,$J,358.3,36087,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,36087,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,36088,0)
;;=A08.11^^105^1465^1
;;^UTILITY(U,$J,358.3,36088,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36088,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,36088,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,36088,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,36089,0)
;;=A08.19^^105^1465^2
;;^UTILITY(U,$J,358.3,36089,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36089,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,36089,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,36089,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,36090,0)
;;=A08.2^^105^1465^3
;;^UTILITY(U,$J,358.3,36090,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36090,1,3,0)
;;=3^Adenoviral Enteritis
;;^UTILITY(U,$J,358.3,36090,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,36090,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,36091,0)
;;=A08.31^^105^1465^6
;;^UTILITY(U,$J,358.3,36091,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36091,1,3,0)
;;=3^Calicivirus enteritis
;;^UTILITY(U,$J,358.3,36091,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,36091,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,36092,0)
;;=A08.32^^105^1465^4
;;^UTILITY(U,$J,358.3,36092,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36092,1,3,0)
;;=3^Astrovirus enteritis
;;^UTILITY(U,$J,358.3,36092,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,36092,2)
;;=^5000057
;;^UTILITY(U,$J,358.3,36093,0)
;;=A08.39^^105^1465^16
;;^UTILITY(U,$J,358.3,36093,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36093,1,3,0)
;;=3^Viral Enteritis,Oth
;;^UTILITY(U,$J,358.3,36093,1,4,0)
;;=4^A08.39
;;^UTILITY(U,$J,358.3,36093,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,36094,0)
;;=A08.4^^105^1465^17
;;^UTILITY(U,$J,358.3,36094,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36094,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,36094,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,36094,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,36095,0)
;;=A08.8^^105^1465^11
;;^UTILITY(U,$J,358.3,36095,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36095,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,36095,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,36095,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,36096,0)
;;=A09.^^105^1465^10
;;^UTILITY(U,$J,358.3,36096,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36096,1,3,0)
;;=3^Infectious Gastroenteritis & Colitis,Unspec
;;^UTILITY(U,$J,358.3,36096,1,4,0)
;;=4^A09.
;;^UTILITY(U,$J,358.3,36096,2)
;;=^5000061
;;^UTILITY(U,$J,358.3,36097,0)
;;=J12.0^^105^1466^1
;;^UTILITY(U,$J,358.3,36097,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36097,1,3,0)
;;=3^Adenoviral Pneumonia
;;^UTILITY(U,$J,358.3,36097,1,4,0)
;;=4^J12.0
;;^UTILITY(U,$J,358.3,36097,2)
;;=^5008164
;;^UTILITY(U,$J,358.3,36098,0)
;;=J12.1^^105^1466^30
;;^UTILITY(U,$J,358.3,36098,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36098,1,3,0)
;;=3^Respiratory Syncytial Virus Pneumonia
;;^UTILITY(U,$J,358.3,36098,1,4,0)
;;=4^J12.1
;;^UTILITY(U,$J,358.3,36098,2)
;;=^5008165
;;^UTILITY(U,$J,358.3,36099,0)
;;=J12.2^^105^1466^4
;;^UTILITY(U,$J,358.3,36099,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36099,1,3,0)
;;=3^Parainfluenza Virus Pneumonia
;;^UTILITY(U,$J,358.3,36099,1,4,0)
;;=4^J12.2
;;^UTILITY(U,$J,358.3,36099,2)
;;=^5008166
;;^UTILITY(U,$J,358.3,36100,0)
;;=J12.3^^105^1466^3
;;^UTILITY(U,$J,358.3,36100,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36100,1,3,0)
;;=3^Human Metapneumovirus Pneumonia
;;^UTILITY(U,$J,358.3,36100,1,4,0)
;;=4^J12.3
;;^UTILITY(U,$J,358.3,36100,2)
;;=^5008167
;;^UTILITY(U,$J,358.3,36101,0)
;;=J12.81^^105^1466^17
;;^UTILITY(U,$J,358.3,36101,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36101,1,3,0)
;;=3^Pneumonia d/t SARS-Associated Coronavirus
;;^UTILITY(U,$J,358.3,36101,1,4,0)
;;=4^J12.81
;;^UTILITY(U,$J,358.3,36101,2)
;;=^329925
;;^UTILITY(U,$J,358.3,36102,0)
;;=J12.89^^105^1466^28
;;^UTILITY(U,$J,358.3,36102,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36102,1,3,0)
;;=3^Pneumonia,Viral,Other
;;^UTILITY(U,$J,358.3,36102,1,4,0)
;;=4^J12.89
;;^UTILITY(U,$J,358.3,36102,2)
;;=^5008168
;;^UTILITY(U,$J,358.3,36103,0)
;;=J12.9^^105^1466^29
;;^UTILITY(U,$J,358.3,36103,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36103,1,3,0)
;;=3^Pneumonia,Viral,Unspec
;;^UTILITY(U,$J,358.3,36103,1,4,0)
;;=4^J12.9
;;^UTILITY(U,$J,358.3,36103,2)
;;=^5008169
;;^UTILITY(U,$J,358.3,36104,0)
;;=J13.^^105^1466^19
;;^UTILITY(U,$J,358.3,36104,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36104,1,3,0)
;;=3^Pneumonia d/t Streptococcus Pneumoniae
;;^UTILITY(U,$J,358.3,36104,1,4,0)
;;=4^J13.
;;^UTILITY(U,$J,358.3,36104,2)
;;=^5008170
;;^UTILITY(U,$J,358.3,36105,0)
;;=J14.^^105^1466^6
;;^UTILITY(U,$J,358.3,36105,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36105,1,3,0)
;;=3^Pneumonia d/t Hemophilus Influenzae
;;^UTILITY(U,$J,358.3,36105,1,4,0)
;;=4^J14.
;;^UTILITY(U,$J,358.3,36105,2)
;;=^5008171
;;^UTILITY(U,$J,358.3,36106,0)
;;=J15.0^^105^1466^7
;;^UTILITY(U,$J,358.3,36106,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36106,1,3,0)
;;=3^Pneumonia d/t Klebsiella Pneumoniae
;;^UTILITY(U,$J,358.3,36106,1,4,0)
;;=4^J15.0
;;^UTILITY(U,$J,358.3,36106,2)
;;=^269931
;;^UTILITY(U,$J,358.3,36107,0)
;;=J15.1^^105^1466^16
;;^UTILITY(U,$J,358.3,36107,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36107,1,3,0)
;;=3^Pneumonia d/t Pseudomonas
;;^UTILITY(U,$J,358.3,36107,1,4,0)
;;=4^J15.1
;;^UTILITY(U,$J,358.3,36107,2)
;;=^269932
;;^UTILITY(U,$J,358.3,36108,0)
;;=J15.20^^105^1466^18
;;^UTILITY(U,$J,358.3,36108,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36108,1,3,0)
;;=3^Pneumonia d/t Staphylococcus,Unspec
;;^UTILITY(U,$J,358.3,36108,1,4,0)
;;=4^J15.20
;;^UTILITY(U,$J,358.3,36108,2)
;;=^321179
;;^UTILITY(U,$J,358.3,36109,0)
;;=J15.211^^105^1466^9
;;^UTILITY(U,$J,358.3,36109,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36109,1,3,0)
;;=3^Pneumonia d/t Methicillin Suscep Staph
;;^UTILITY(U,$J,358.3,36109,1,4,0)
;;=4^J15.211
;;^UTILITY(U,$J,358.3,36109,2)
;;=^336833
;;^UTILITY(U,$J,358.3,36110,0)
;;=J15.212^^105^1466^8
;;^UTILITY(U,$J,358.3,36110,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36110,1,3,0)
;;=3^Pneumonia d/t Methicillin Resistant Staph Aureus
;;^UTILITY(U,$J,358.3,36110,1,4,0)
;;=4^J15.212
;;^UTILITY(U,$J,358.3,36110,2)
;;=^336602
;;^UTILITY(U,$J,358.3,36111,0)
;;=J15.29^^105^1466^11
;;^UTILITY(U,$J,358.3,36111,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36111,1,3,0)
;;=3^Pneumonia d/t Oth Staph
;;^UTILITY(U,$J,358.3,36111,1,4,0)
;;=4^J15.29
;;^UTILITY(U,$J,358.3,36111,2)
;;=^5008172
;;^UTILITY(U,$J,358.3,36112,0)
;;=J15.3^^105^1466^20
;;^UTILITY(U,$J,358.3,36112,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36112,1,3,0)
;;=3^Pneumonia d/t Streptococcus,Group B
;;^UTILITY(U,$J,358.3,36112,1,4,0)
;;=4^J15.3
;;^UTILITY(U,$J,358.3,36112,2)
;;=^5008173
;;^UTILITY(U,$J,358.3,36113,0)
;;=J15.4^^105^1466^15
;;^UTILITY(U,$J,358.3,36113,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36113,1,3,0)
;;=3^Pneumonia d/t Other Streptococci
;;^UTILITY(U,$J,358.3,36113,1,4,0)
;;=4^J15.4
;;^UTILITY(U,$J,358.3,36113,2)
;;=^5008174
;;^UTILITY(U,$J,358.3,36114,0)
;;=J15.5^^105^1466^5
;;^UTILITY(U,$J,358.3,36114,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36114,1,3,0)
;;=3^Pneumonia d/t Escherichia Coli
;;^UTILITY(U,$J,358.3,36114,1,4,0)
;;=4^J15.5
;;^UTILITY(U,$J,358.3,36114,2)
;;=^5008175
;;^UTILITY(U,$J,358.3,36115,0)
;;=J15.6^^105^1466^12
;;^UTILITY(U,$J,358.3,36115,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36115,1,3,0)
;;=3^Pneumonia d/t Other Aerobic Gram-Neg Bacteria
;;^UTILITY(U,$J,358.3,36115,1,4,0)
;;=4^J15.6
;;^UTILITY(U,$J,358.3,36115,2)
;;=^5008176
;;^UTILITY(U,$J,358.3,36116,0)
;;=J15.7^^105^1466^10
;;^UTILITY(U,$J,358.3,36116,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36116,1,3,0)
;;=3^Pneumonia d/t Mycoplasma Pneumoniae
;;^UTILITY(U,$J,358.3,36116,1,4,0)
;;=4^J15.7
;;^UTILITY(U,$J,358.3,36116,2)
;;=^5008177
;;^UTILITY(U,$J,358.3,36117,0)
;;=J15.8^^105^1466^13
;;^UTILITY(U,$J,358.3,36117,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36117,1,3,0)
;;=3^Pneumonia d/t Other Spec Bacteria
;;^UTILITY(U,$J,358.3,36117,1,4,0)
;;=4^J15.8
;;^UTILITY(U,$J,358.3,36117,2)
;;=^95571
;;^UTILITY(U,$J,358.3,36118,0)
;;=J15.9^^105^1466^22
;;^UTILITY(U,$J,358.3,36118,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36118,1,3,0)
;;=3^Pneumonia,Bacterial,Unspec
;;^UTILITY(U,$J,358.3,36118,1,4,0)
;;=4^J15.9
;;^UTILITY(U,$J,358.3,36118,2)
;;=^5008178
;;^UTILITY(U,$J,358.3,36119,0)
;;=J16.0^^105^1466^23
;;^UTILITY(U,$J,358.3,36119,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,36119,1,3,0)
;;=3^Pneumonia,Chlamydial
;;^UTILITY(U,$J,358.3,36119,1,4,0)
;;=4^J16.0
;;^UTILITY(U,$J,358.3,36119,2)
;;=^5008179
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0EE 19751 printed Dec 13, 2024@01:47:02 Page 2
IBDEI0EE ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,36052,0)
+2 ;;=E11.29^^105^1463^27
+3 ;;^UTILITY(U,$J,358.3,36052,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,36052,1,3,0)
+6 ;;=3^DM Type 2 w/ Oth Diab Kidney Compl
+7 ;;^UTILITY(U,$J,358.3,36052,1,4,0)
+8 ;;=4^E11.29
+9 ;;^UTILITY(U,$J,358.3,36052,2)
+10 ;;=^5002631
+11 ;;^UTILITY(U,$J,358.3,36053,0)
+12 ;;=E11.311^^105^1463^14
+13 ;;^UTILITY(U,$J,358.3,36053,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,36053,1,3,0)
+16 ;;=3^DM Type 2 w/ Diab Rtnop w/ Macular Edema
+17 ;;^UTILITY(U,$J,358.3,36053,1,4,0)
+18 ;;=4^E11.311
+19 ;;^UTILITY(U,$J,358.3,36053,2)
+20 ;;=E11.319^5002632
+21 ;;^UTILITY(U,$J,358.3,36054,0)
+22 ;;=E11.319^^105^1463^15
+23 ;;^UTILITY(U,$J,358.3,36054,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,36054,1,3,0)
+26 ;;=3^DM Type 2 w/ Diab Rtnop w/o Macular Edema
+27 ;;^UTILITY(U,$J,358.3,36054,1,4,0)
+28 ;;=4^E11.319
+29 ;;^UTILITY(U,$J,358.3,36054,2)
+30 ;;=^5002633
+31 ;;^UTILITY(U,$J,358.3,36055,0)
+32 ;;=E11.3211^^105^1463^22
+33 ;;^UTILITY(U,$J,358.3,36055,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,36055,1,3,0)
+36 ;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Rt Eye
+37 ;;^UTILITY(U,$J,358.3,36055,1,4,0)
+38 ;;=4^E11.3211
+39 ;;^UTILITY(U,$J,358.3,36055,2)
+40 ;;=^5138331
+41 ;;^UTILITY(U,$J,358.3,36056,0)
+42 ;;=E11.3212^^105^1463^23
+43 ;;^UTILITY(U,$J,358.3,36056,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,36056,1,3,0)
+46 ;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Lt Eye
+47 ;;^UTILITY(U,$J,358.3,36056,1,4,0)
+48 ;;=4^E11.3212
+49 ;;^UTILITY(U,$J,358.3,36056,2)
+50 ;;=^5138332
+51 ;;^UTILITY(U,$J,358.3,36057,0)
+52 ;;=E11.3213^^105^1463^24
+53 ;;^UTILITY(U,$J,358.3,36057,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,36057,1,3,0)
+56 ;;=3^DM Type 2 w/ Mild Nonp Rtnop w/ Macular Edema,Bilat
+57 ;;^UTILITY(U,$J,358.3,36057,1,4,0)
+58 ;;=4^E11.3213
+59 ;;^UTILITY(U,$J,358.3,36057,2)
+60 ;;=^5138333
+61 ;;^UTILITY(U,$J,358.3,36058,0)
+62 ;;=E11.40^^105^1463^10
+63 ;;^UTILITY(U,$J,358.3,36058,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,36058,1,3,0)
+66 ;;=3^DM Type 2 w/ Diab Neuropathy,Unspec
+67 ;;^UTILITY(U,$J,358.3,36058,1,4,0)
+68 ;;=4^E11.40
+69 ;;^UTILITY(U,$J,358.3,36058,2)
+70 ;;=^5002644
+71 ;;^UTILITY(U,$J,358.3,36059,0)
+72 ;;=E11.51^^105^1463^12
+73 ;;^UTILITY(U,$J,358.3,36059,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,36059,1,3,0)
+76 ;;=3^DM Type 2 w/ Diab Periph Angiopathy w/o Gangrene
+77 ;;^UTILITY(U,$J,358.3,36059,1,4,0)
+78 ;;=4^E11.51
+79 ;;^UTILITY(U,$J,358.3,36059,2)
+80 ;;=^5002650
+81 ;;^UTILITY(U,$J,358.3,36060,0)
+82 ;;=E11.52^^105^1463^11
+83 ;;^UTILITY(U,$J,358.3,36060,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,36060,1,3,0)
+86 ;;=3^DM Type 2 w/ Diab Periph Angiopathy w/ Gangrene
+87 ;;^UTILITY(U,$J,358.3,36060,1,4,0)
+88 ;;=4^E11.52
+89 ;;^UTILITY(U,$J,358.3,36060,2)
+90 ;;=^5002651
+91 ;;^UTILITY(U,$J,358.3,36061,0)
+92 ;;=E11.620^^105^1463^5
+93 ;;^UTILITY(U,$J,358.3,36061,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,36061,1,3,0)
+96 ;;=3^DM Type 2 w/ Diab Dermatitis
+97 ;;^UTILITY(U,$J,358.3,36061,1,4,0)
+98 ;;=4^E11.620
+99 ;;^UTILITY(U,$J,358.3,36061,2)
+100 ;;=^5002655
+101 ;;^UTILITY(U,$J,358.3,36062,0)
+102 ;;=E11.36^^105^1463^4
+103 ;;^UTILITY(U,$J,358.3,36062,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,36062,1,3,0)
+106 ;;=3^DM Type 2 w/ Diab Cataract
+107 ;;^UTILITY(U,$J,358.3,36062,1,4,0)
+108 ;;=4^E11.36
+109 ;;^UTILITY(U,$J,358.3,36062,2)
+110 ;;=^5002642
+111 ;;^UTILITY(U,$J,358.3,36063,0)
+112 ;;=I10.^^105^1464^1
+113 ;;^UTILITY(U,$J,358.3,36063,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,36063,1,3,0)
+116 ;;=3^Essential/Primary Hypertension
+117 ;;^UTILITY(U,$J,358.3,36063,1,4,0)
+118 ;;=4^I10.
+119 ;;^UTILITY(U,$J,358.3,36063,2)
+120 ;;=^5007062
+121 ;;^UTILITY(U,$J,358.3,36064,0)
+122 ;;=I11.0^^105^1464^12
+123 ;;^UTILITY(U,$J,358.3,36064,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,36064,1,3,0)
+126 ;;=3^Hypertensive Heart Disease w/ Heart Failure
+127 ;;^UTILITY(U,$J,358.3,36064,1,4,0)
+128 ;;=4^I11.0
+129 ;;^UTILITY(U,$J,358.3,36064,2)
+130 ;;=^5007063
+131 ;;^UTILITY(U,$J,358.3,36065,0)
+132 ;;=I11.9^^105^1464^13
+133 ;;^UTILITY(U,$J,358.3,36065,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,36065,1,3,0)
+136 ;;=3^Hypertensive Heart Disease w/o Heart Failure
+137 ;;^UTILITY(U,$J,358.3,36065,1,4,0)
+138 ;;=4^I11.9
+139 ;;^UTILITY(U,$J,358.3,36065,2)
+140 ;;=^5007064
+141 ;;^UTILITY(U,$J,358.3,36066,0)
+142 ;;=I12.0^^105^1464^5
+143 ;;^UTILITY(U,$J,358.3,36066,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,36066,1,3,0)
+146 ;;=3^Hypertensive CKD w/ Stage 5 CKD or ESRD
+147 ;;^UTILITY(U,$J,358.3,36066,1,4,0)
+148 ;;=4^I12.0
+149 ;;^UTILITY(U,$J,358.3,36066,2)
+150 ;;=^5007065
+151 ;;^UTILITY(U,$J,358.3,36067,0)
+152 ;;=I12.9^^105^1464^4
+153 ;;^UTILITY(U,$J,358.3,36067,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,36067,1,3,0)
+156 ;;=3^Hypertensive CKD w/ Stage 1-4 CKD
+157 ;;^UTILITY(U,$J,358.3,36067,1,4,0)
+158 ;;=4^I12.9
+159 ;;^UTILITY(U,$J,358.3,36067,2)
+160 ;;=^5007066
+161 ;;^UTILITY(U,$J,358.3,36068,0)
+162 ;;=I13.0^^105^1464^8
+163 ;;^UTILITY(U,$J,358.3,36068,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,36068,1,3,0)
+166 ;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 1-4 CKD
+167 ;;^UTILITY(U,$J,358.3,36068,1,4,0)
+168 ;;=4^I13.0
+169 ;;^UTILITY(U,$J,358.3,36068,2)
+170 ;;=^5007067
+171 ;;^UTILITY(U,$J,358.3,36069,0)
+172 ;;=I13.10^^105^1464^10
+173 ;;^UTILITY(U,$J,358.3,36069,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,36069,1,3,0)
+176 ;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 1-4 CKD
+177 ;;^UTILITY(U,$J,358.3,36069,1,4,0)
+178 ;;=4^I13.10
+179 ;;^UTILITY(U,$J,358.3,36069,2)
+180 ;;=^5007068
+181 ;;^UTILITY(U,$J,358.3,36070,0)
+182 ;;=I13.11^^105^1464^11
+183 ;;^UTILITY(U,$J,358.3,36070,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,36070,1,3,0)
+186 ;;=3^Hypertensive HRT & CKD w/o Hrt Fail & Stg 5 CKD/ESRD
+187 ;;^UTILITY(U,$J,358.3,36070,1,4,0)
+188 ;;=4^I13.11
+189 ;;^UTILITY(U,$J,358.3,36070,2)
+190 ;;=^5007069
+191 ;;^UTILITY(U,$J,358.3,36071,0)
+192 ;;=I13.2^^105^1464^9
+193 ;;^UTILITY(U,$J,358.3,36071,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,36071,1,3,0)
+196 ;;=3^Hypertensive HRT & CKD w/ Hrt Fail & Stg 5 CKD/ESRD
+197 ;;^UTILITY(U,$J,358.3,36071,1,4,0)
+198 ;;=4^I13.2
+199 ;;^UTILITY(U,$J,358.3,36071,2)
+200 ;;=^5007070
+201 ;;^UTILITY(U,$J,358.3,36072,0)
+202 ;;=I15.0^^105^1464^15
+203 ;;^UTILITY(U,$J,358.3,36072,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,36072,1,3,0)
+206 ;;=3^Renovascular Hypertension
+207 ;;^UTILITY(U,$J,358.3,36072,1,4,0)
+208 ;;=4^I15.0
+209 ;;^UTILITY(U,$J,358.3,36072,2)
+210 ;;=^5007071
+211 ;;^UTILITY(U,$J,358.3,36073,0)
+212 ;;=I15.1^^105^1464^3
+213 ;;^UTILITY(U,$J,358.3,36073,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,36073,1,3,0)
+216 ;;=3^Hypertension Secondary to Oth Renal Disorders
+217 ;;^UTILITY(U,$J,358.3,36073,1,4,0)
+218 ;;=4^I15.1
+219 ;;^UTILITY(U,$J,358.3,36073,2)
+220 ;;=^5007072
+221 ;;^UTILITY(U,$J,358.3,36074,0)
+222 ;;=I15.2^^105^1464^2
+223 ;;^UTILITY(U,$J,358.3,36074,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,36074,1,3,0)
+226 ;;=3^Hypertension Secondary to Endocrine Disorders
+227 ;;^UTILITY(U,$J,358.3,36074,1,4,0)
+228 ;;=4^I15.2
+229 ;;^UTILITY(U,$J,358.3,36074,2)
+230 ;;=^5007073
+231 ;;^UTILITY(U,$J,358.3,36075,0)
+232 ;;=I15.8^^105^1464^16
+233 ;;^UTILITY(U,$J,358.3,36075,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,36075,1,3,0)
+236 ;;=3^Secondary Hypertension,Oth
+237 ;;^UTILITY(U,$J,358.3,36075,1,4,0)
+238 ;;=4^I15.8
+239 ;;^UTILITY(U,$J,358.3,36075,2)
+240 ;;=^5007074
+241 ;;^UTILITY(U,$J,358.3,36076,0)
+242 ;;=I15.9^^105^1464^17
+243 ;;^UTILITY(U,$J,358.3,36076,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,36076,1,3,0)
+246 ;;=3^Secondary Hypertension,Unspec
+247 ;;^UTILITY(U,$J,358.3,36076,1,4,0)
+248 ;;=4^I15.9
+249 ;;^UTILITY(U,$J,358.3,36076,2)
+250 ;;=^5007075
+251 ;;^UTILITY(U,$J,358.3,36077,0)
+252 ;;=I16.0^^105^1464^14
+253 ;;^UTILITY(U,$J,358.3,36077,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,36077,1,3,0)
+256 ;;=3^Hypertensive Urgency
+257 ;;^UTILITY(U,$J,358.3,36077,1,4,0)
+258 ;;=4^I16.0
+259 ;;^UTILITY(U,$J,358.3,36077,2)
+260 ;;=^8133013
+261 ;;^UTILITY(U,$J,358.3,36078,0)
+262 ;;=I16.1^^105^1464^7
+263 ;;^UTILITY(U,$J,358.3,36078,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,36078,1,3,0)
+266 ;;=3^Hypertensive Emergency
+267 ;;^UTILITY(U,$J,358.3,36078,1,4,0)
+268 ;;=4^I16.1
+269 ;;^UTILITY(U,$J,358.3,36078,2)
+270 ;;=^8204721
+271 ;;^UTILITY(U,$J,358.3,36079,0)
+272 ;;=I16.9^^105^1464^6
+273 ;;^UTILITY(U,$J,358.3,36079,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,36079,1,3,0)
+276 ;;=3^Hypertensive Crisis,Unspec
+277 ;;^UTILITY(U,$J,358.3,36079,1,4,0)
+278 ;;=4^I16.9
+279 ;;^UTILITY(U,$J,358.3,36079,2)
+280 ;;=^5138600
+281 ;;^UTILITY(U,$J,358.3,36080,0)
+282 ;;=A07.0^^105^1465^5
+283 ;;^UTILITY(U,$J,358.3,36080,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,36080,1,3,0)
+286 ;;=3^Balantidiasis
+287 ;;^UTILITY(U,$J,358.3,36080,1,4,0)
+288 ;;=4^A07.0
+289 ;;^UTILITY(U,$J,358.3,36080,2)
+290 ;;=^12533
+291 ;;^UTILITY(U,$J,358.3,36081,0)
+292 ;;=A07.1^^105^1465^9
+293 ;;^UTILITY(U,$J,358.3,36081,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,36081,1,3,0)
+296 ;;=3^Giardiasis [lambliasis]
+297 ;;^UTILITY(U,$J,358.3,36081,1,4,0)
+298 ;;=4^A07.1
+299 ;;^UTILITY(U,$J,358.3,36081,2)
+300 ;;=^5000049
+301 ;;^UTILITY(U,$J,358.3,36082,0)
+302 ;;=A07.2^^105^1465^7
+303 ;;^UTILITY(U,$J,358.3,36082,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,36082,1,3,0)
+306 ;;=3^Cryptosporidiosis
+307 ;;^UTILITY(U,$J,358.3,36082,1,4,0)
+308 ;;=4^A07.2
+309 ;;^UTILITY(U,$J,358.3,36082,2)
+310 ;;=^29629
+311 ;;^UTILITY(U,$J,358.3,36083,0)
+312 ;;=A07.3^^105^1465^12
+313 ;;^UTILITY(U,$J,358.3,36083,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,36083,1,3,0)
+316 ;;=3^Isosporiasis
+317 ;;^UTILITY(U,$J,358.3,36083,1,4,0)
+318 ;;=4^A07.3
+319 ;;^UTILITY(U,$J,358.3,36083,2)
+320 ;;=^5000050
+321 ;;^UTILITY(U,$J,358.3,36084,0)
+322 ;;=A07.4^^105^1465^8
+323 ;;^UTILITY(U,$J,358.3,36084,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,36084,1,3,0)
+326 ;;=3^Cyclosporiasis
+327 ;;^UTILITY(U,$J,358.3,36084,1,4,0)
+328 ;;=4^A07.4
+329 ;;^UTILITY(U,$J,358.3,36084,2)
+330 ;;=^321973
+331 ;;^UTILITY(U,$J,358.3,36085,0)
+332 ;;=A07.8^^105^1465^14
+333 ;;^UTILITY(U,$J,358.3,36085,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,36085,1,3,0)
+336 ;;=3^Protozoal Intestinal Diseases,Oth Spec
+337 ;;^UTILITY(U,$J,358.3,36085,1,4,0)
+338 ;;=4^A07.8
+339 ;;^UTILITY(U,$J,358.3,36085,2)
+340 ;;=^265972
+341 ;;^UTILITY(U,$J,358.3,36086,0)
+342 ;;=A07.9^^105^1465^13
+343 ;;^UTILITY(U,$J,358.3,36086,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,36086,1,3,0)
+346 ;;=3^Protozoal Intestinal Disease,Unspec
+347 ;;^UTILITY(U,$J,358.3,36086,1,4,0)
+348 ;;=4^A07.9
+349 ;;^UTILITY(U,$J,358.3,36086,2)
+350 ;;=^5000051
+351 ;;^UTILITY(U,$J,358.3,36087,0)
+352 ;;=A08.0^^105^1465^15
+353 ;;^UTILITY(U,$J,358.3,36087,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,36087,1,3,0)
+356 ;;=3^Rotaviral Enteritis
+357 ;;^UTILITY(U,$J,358.3,36087,1,4,0)
+358 ;;=4^A08.0
+359 ;;^UTILITY(U,$J,358.3,36087,2)
+360 ;;=^5000052
+361 ;;^UTILITY(U,$J,358.3,36088,0)
+362 ;;=A08.11^^105^1465^1
+363 ;;^UTILITY(U,$J,358.3,36088,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,36088,1,3,0)
+366 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+367 ;;^UTILITY(U,$J,358.3,36088,1,4,0)
+368 ;;=4^A08.11
+369 ;;^UTILITY(U,$J,358.3,36088,2)
+370 ;;=^5000053
+371 ;;^UTILITY(U,$J,358.3,36089,0)
+372 ;;=A08.19^^105^1465^2
+373 ;;^UTILITY(U,$J,358.3,36089,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,36089,1,3,0)
+376 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+377 ;;^UTILITY(U,$J,358.3,36089,1,4,0)
+378 ;;=4^A08.19
+379 ;;^UTILITY(U,$J,358.3,36089,2)
+380 ;;=^5000054
+381 ;;^UTILITY(U,$J,358.3,36090,0)
+382 ;;=A08.2^^105^1465^3
+383 ;;^UTILITY(U,$J,358.3,36090,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,36090,1,3,0)
+386 ;;=3^Adenoviral Enteritis
+387 ;;^UTILITY(U,$J,358.3,36090,1,4,0)
+388 ;;=4^A08.2
+389 ;;^UTILITY(U,$J,358.3,36090,2)
+390 ;;=^5000055
+391 ;;^UTILITY(U,$J,358.3,36091,0)
+392 ;;=A08.31^^105^1465^6
+393 ;;^UTILITY(U,$J,358.3,36091,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,36091,1,3,0)
+396 ;;=3^Calicivirus enteritis
+397 ;;^UTILITY(U,$J,358.3,36091,1,4,0)
+398 ;;=4^A08.31
+399 ;;^UTILITY(U,$J,358.3,36091,2)
+400 ;;=^5000056
+401 ;;^UTILITY(U,$J,358.3,36092,0)
+402 ;;=A08.32^^105^1465^4
+403 ;;^UTILITY(U,$J,358.3,36092,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,36092,1,3,0)
+406 ;;=3^Astrovirus enteritis
+407 ;;^UTILITY(U,$J,358.3,36092,1,4,0)
+408 ;;=4^A08.32
+409 ;;^UTILITY(U,$J,358.3,36092,2)
+410 ;;=^5000057
+411 ;;^UTILITY(U,$J,358.3,36093,0)
+412 ;;=A08.39^^105^1465^16
+413 ;;^UTILITY(U,$J,358.3,36093,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,36093,1,3,0)
+416 ;;=3^Viral Enteritis,Oth
+417 ;;^UTILITY(U,$J,358.3,36093,1,4,0)
+418 ;;=4^A08.39
+419 ;;^UTILITY(U,$J,358.3,36093,2)
+420 ;;=^5000058
+421 ;;^UTILITY(U,$J,358.3,36094,0)
+422 ;;=A08.4^^105^1465^17
+423 ;;^UTILITY(U,$J,358.3,36094,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,36094,1,3,0)
+426 ;;=3^Viral Intestinal Infection,Unspec
+427 ;;^UTILITY(U,$J,358.3,36094,1,4,0)
+428 ;;=4^A08.4
+429 ;;^UTILITY(U,$J,358.3,36094,2)
+430 ;;=^5000059
+431 ;;^UTILITY(U,$J,358.3,36095,0)
+432 ;;=A08.8^^105^1465^11
+433 ;;^UTILITY(U,$J,358.3,36095,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,36095,1,3,0)
+436 ;;=3^Intestinal Infections,Oth Spec
+437 ;;^UTILITY(U,$J,358.3,36095,1,4,0)
+438 ;;=4^A08.8
+439 ;;^UTILITY(U,$J,358.3,36095,2)
+440 ;;=^5000060
+441 ;;^UTILITY(U,$J,358.3,36096,0)
+442 ;;=A09.^^105^1465^10
+443 ;;^UTILITY(U,$J,358.3,36096,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,36096,1,3,0)
+446 ;;=3^Infectious Gastroenteritis & Colitis,Unspec
+447 ;;^UTILITY(U,$J,358.3,36096,1,4,0)
+448 ;;=4^A09.
+449 ;;^UTILITY(U,$J,358.3,36096,2)
+450 ;;=^5000061
+451 ;;^UTILITY(U,$J,358.3,36097,0)
+452 ;;=J12.0^^105^1466^1
+453 ;;^UTILITY(U,$J,358.3,36097,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,36097,1,3,0)
+456 ;;=3^Adenoviral Pneumonia
+457 ;;^UTILITY(U,$J,358.3,36097,1,4,0)
+458 ;;=4^J12.0
+459 ;;^UTILITY(U,$J,358.3,36097,2)
+460 ;;=^5008164
+461 ;;^UTILITY(U,$J,358.3,36098,0)
+462 ;;=J12.1^^105^1466^30
+463 ;;^UTILITY(U,$J,358.3,36098,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,36098,1,3,0)
+466 ;;=3^Respiratory Syncytial Virus Pneumonia
+467 ;;^UTILITY(U,$J,358.3,36098,1,4,0)
+468 ;;=4^J12.1
+469 ;;^UTILITY(U,$J,358.3,36098,2)
+470 ;;=^5008165
+471 ;;^UTILITY(U,$J,358.3,36099,0)
+472 ;;=J12.2^^105^1466^4
+473 ;;^UTILITY(U,$J,358.3,36099,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,36099,1,3,0)
+476 ;;=3^Parainfluenza Virus Pneumonia
+477 ;;^UTILITY(U,$J,358.3,36099,1,4,0)
+478 ;;=4^J12.2
+479 ;;^UTILITY(U,$J,358.3,36099,2)
+480 ;;=^5008166
+481 ;;^UTILITY(U,$J,358.3,36100,0)
+482 ;;=J12.3^^105^1466^3
+483 ;;^UTILITY(U,$J,358.3,36100,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,36100,1,3,0)
+486 ;;=3^Human Metapneumovirus Pneumonia
+487 ;;^UTILITY(U,$J,358.3,36100,1,4,0)
+488 ;;=4^J12.3
+489 ;;^UTILITY(U,$J,358.3,36100,2)
+490 ;;=^5008167
+491 ;;^UTILITY(U,$J,358.3,36101,0)
+492 ;;=J12.81^^105^1466^17
+493 ;;^UTILITY(U,$J,358.3,36101,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,36101,1,3,0)
+496 ;;=3^Pneumonia d/t SARS-Associated Coronavirus
+497 ;;^UTILITY(U,$J,358.3,36101,1,4,0)
+498 ;;=4^J12.81
+499 ;;^UTILITY(U,$J,358.3,36101,2)
+500 ;;=^329925
+501 ;;^UTILITY(U,$J,358.3,36102,0)
+502 ;;=J12.89^^105^1466^28
+503 ;;^UTILITY(U,$J,358.3,36102,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,36102,1,3,0)
+506 ;;=3^Pneumonia,Viral,Other
+507 ;;^UTILITY(U,$J,358.3,36102,1,4,0)
+508 ;;=4^J12.89
+509 ;;^UTILITY(U,$J,358.3,36102,2)
+510 ;;=^5008168
+511 ;;^UTILITY(U,$J,358.3,36103,0)
+512 ;;=J12.9^^105^1466^29
+513 ;;^UTILITY(U,$J,358.3,36103,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,36103,1,3,0)
+516 ;;=3^Pneumonia,Viral,Unspec
+517 ;;^UTILITY(U,$J,358.3,36103,1,4,0)
+518 ;;=4^J12.9
+519 ;;^UTILITY(U,$J,358.3,36103,2)
+520 ;;=^5008169
+521 ;;^UTILITY(U,$J,358.3,36104,0)
+522 ;;=J13.^^105^1466^19
+523 ;;^UTILITY(U,$J,358.3,36104,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,36104,1,3,0)
+526 ;;=3^Pneumonia d/t Streptococcus Pneumoniae
+527 ;;^UTILITY(U,$J,358.3,36104,1,4,0)
+528 ;;=4^J13.
+529 ;;^UTILITY(U,$J,358.3,36104,2)
+530 ;;=^5008170
+531 ;;^UTILITY(U,$J,358.3,36105,0)
+532 ;;=J14.^^105^1466^6
+533 ;;^UTILITY(U,$J,358.3,36105,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,36105,1,3,0)
+536 ;;=3^Pneumonia d/t Hemophilus Influenzae
+537 ;;^UTILITY(U,$J,358.3,36105,1,4,0)
+538 ;;=4^J14.
+539 ;;^UTILITY(U,$J,358.3,36105,2)
+540 ;;=^5008171
+541 ;;^UTILITY(U,$J,358.3,36106,0)
+542 ;;=J15.0^^105^1466^7
+543 ;;^UTILITY(U,$J,358.3,36106,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,36106,1,3,0)
+546 ;;=3^Pneumonia d/t Klebsiella Pneumoniae
+547 ;;^UTILITY(U,$J,358.3,36106,1,4,0)
+548 ;;=4^J15.0
+549 ;;^UTILITY(U,$J,358.3,36106,2)
+550 ;;=^269931
+551 ;;^UTILITY(U,$J,358.3,36107,0)
+552 ;;=J15.1^^105^1466^16
+553 ;;^UTILITY(U,$J,358.3,36107,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,36107,1,3,0)
+556 ;;=3^Pneumonia d/t Pseudomonas
+557 ;;^UTILITY(U,$J,358.3,36107,1,4,0)
+558 ;;=4^J15.1
+559 ;;^UTILITY(U,$J,358.3,36107,2)
+560 ;;=^269932
+561 ;;^UTILITY(U,$J,358.3,36108,0)
+562 ;;=J15.20^^105^1466^18
+563 ;;^UTILITY(U,$J,358.3,36108,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,36108,1,3,0)
+566 ;;=3^Pneumonia d/t Staphylococcus,Unspec
+567 ;;^UTILITY(U,$J,358.3,36108,1,4,0)
+568 ;;=4^J15.20
+569 ;;^UTILITY(U,$J,358.3,36108,2)
+570 ;;=^321179
+571 ;;^UTILITY(U,$J,358.3,36109,0)
+572 ;;=J15.211^^105^1466^9
+573 ;;^UTILITY(U,$J,358.3,36109,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,36109,1,3,0)
+576 ;;=3^Pneumonia d/t Methicillin Suscep Staph
+577 ;;^UTILITY(U,$J,358.3,36109,1,4,0)
+578 ;;=4^J15.211
+579 ;;^UTILITY(U,$J,358.3,36109,2)
+580 ;;=^336833
+581 ;;^UTILITY(U,$J,358.3,36110,0)
+582 ;;=J15.212^^105^1466^8
+583 ;;^UTILITY(U,$J,358.3,36110,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,36110,1,3,0)
+586 ;;=3^Pneumonia d/t Methicillin Resistant Staph Aureus
+587 ;;^UTILITY(U,$J,358.3,36110,1,4,0)
+588 ;;=4^J15.212
+589 ;;^UTILITY(U,$J,358.3,36110,2)
+590 ;;=^336602
+591 ;;^UTILITY(U,$J,358.3,36111,0)
+592 ;;=J15.29^^105^1466^11
+593 ;;^UTILITY(U,$J,358.3,36111,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,36111,1,3,0)
+596 ;;=3^Pneumonia d/t Oth Staph
+597 ;;^UTILITY(U,$J,358.3,36111,1,4,0)
+598 ;;=4^J15.29
+599 ;;^UTILITY(U,$J,358.3,36111,2)
+600 ;;=^5008172
+601 ;;^UTILITY(U,$J,358.3,36112,0)
+602 ;;=J15.3^^105^1466^20
+603 ;;^UTILITY(U,$J,358.3,36112,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,36112,1,3,0)
+606 ;;=3^Pneumonia d/t Streptococcus,Group B
+607 ;;^UTILITY(U,$J,358.3,36112,1,4,0)
+608 ;;=4^J15.3
+609 ;;^UTILITY(U,$J,358.3,36112,2)
+610 ;;=^5008173
+611 ;;^UTILITY(U,$J,358.3,36113,0)
+612 ;;=J15.4^^105^1466^15
+613 ;;^UTILITY(U,$J,358.3,36113,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,36113,1,3,0)
+616 ;;=3^Pneumonia d/t Other Streptococci
+617 ;;^UTILITY(U,$J,358.3,36113,1,4,0)
+618 ;;=4^J15.4
+619 ;;^UTILITY(U,$J,358.3,36113,2)
+620 ;;=^5008174
+621 ;;^UTILITY(U,$J,358.3,36114,0)
+622 ;;=J15.5^^105^1466^5
+623 ;;^UTILITY(U,$J,358.3,36114,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,36114,1,3,0)
+626 ;;=3^Pneumonia d/t Escherichia Coli
+627 ;;^UTILITY(U,$J,358.3,36114,1,4,0)
+628 ;;=4^J15.5
+629 ;;^UTILITY(U,$J,358.3,36114,2)
+630 ;;=^5008175
+631 ;;^UTILITY(U,$J,358.3,36115,0)
+632 ;;=J15.6^^105^1466^12
+633 ;;^UTILITY(U,$J,358.3,36115,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,36115,1,3,0)
+636 ;;=3^Pneumonia d/t Other Aerobic Gram-Neg Bacteria
+637 ;;^UTILITY(U,$J,358.3,36115,1,4,0)
+638 ;;=4^J15.6
+639 ;;^UTILITY(U,$J,358.3,36115,2)
+640 ;;=^5008176
+641 ;;^UTILITY(U,$J,358.3,36116,0)
+642 ;;=J15.7^^105^1466^10
+643 ;;^UTILITY(U,$J,358.3,36116,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,36116,1,3,0)
+646 ;;=3^Pneumonia d/t Mycoplasma Pneumoniae
+647 ;;^UTILITY(U,$J,358.3,36116,1,4,0)
+648 ;;=4^J15.7
+649 ;;^UTILITY(U,$J,358.3,36116,2)
+650 ;;=^5008177
+651 ;;^UTILITY(U,$J,358.3,36117,0)
+652 ;;=J15.8^^105^1466^13
+653 ;;^UTILITY(U,$J,358.3,36117,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,36117,1,3,0)
+656 ;;=3^Pneumonia d/t Other Spec Bacteria
+657 ;;^UTILITY(U,$J,358.3,36117,1,4,0)
+658 ;;=4^J15.8
+659 ;;^UTILITY(U,$J,358.3,36117,2)
+660 ;;=^95571
+661 ;;^UTILITY(U,$J,358.3,36118,0)
+662 ;;=J15.9^^105^1466^22
+663 ;;^UTILITY(U,$J,358.3,36118,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,36118,1,3,0)
+666 ;;=3^Pneumonia,Bacterial,Unspec
+667 ;;^UTILITY(U,$J,358.3,36118,1,4,0)
+668 ;;=4^J15.9
+669 ;;^UTILITY(U,$J,358.3,36118,2)
+670 ;;=^5008178
+671 ;;^UTILITY(U,$J,358.3,36119,0)
+672 ;;=J16.0^^105^1466^23
+673 ;;^UTILITY(U,$J,358.3,36119,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,36119,1,3,0)
+676 ;;=3^Pneumonia,Chlamydial
+677 ;;^UTILITY(U,$J,358.3,36119,1,4,0)
+678 ;;=4^J16.0
+679 ;;^UTILITY(U,$J,358.3,36119,2)
+680 ;;=^5008179