IBDEI069 ; ; 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,15164,0)
;;=N39.41^^56^641^117
;;^UTILITY(U,$J,358.3,15164,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15164,1,3,0)
;;=3^Urge Incontinence
;;^UTILITY(U,$J,358.3,15164,1,4,0)
;;=4^N39.41
;;^UTILITY(U,$J,358.3,15164,2)
;;=^5015680
;;^UTILITY(U,$J,358.3,15165,0)
;;=R35.0^^56^641^69
;;^UTILITY(U,$J,358.3,15165,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15165,1,3,0)
;;=3^Micturition Frequency
;;^UTILITY(U,$J,358.3,15165,1,4,0)
;;=4^R35.0
;;^UTILITY(U,$J,358.3,15165,2)
;;=^5019334
;;^UTILITY(U,$J,358.3,15166,0)
;;=R35.1^^56^641^82
;;^UTILITY(U,$J,358.3,15166,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15166,1,3,0)
;;=3^Nocturia
;;^UTILITY(U,$J,358.3,15166,1,4,0)
;;=4^R35.1
;;^UTILITY(U,$J,358.3,15166,2)
;;=^5019335
;;^UTILITY(U,$J,358.3,15167,0)
;;=R39.11^^56^641^70
;;^UTILITY(U,$J,358.3,15167,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15167,1,3,0)
;;=3^Micturition Hesitancy
;;^UTILITY(U,$J,358.3,15167,1,4,0)
;;=4^R39.11
;;^UTILITY(U,$J,358.3,15167,2)
;;=^5019341
;;^UTILITY(U,$J,358.3,15168,0)
;;=R39.16^^56^641^107
;;^UTILITY(U,$J,358.3,15168,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15168,1,3,0)
;;=3^Straining to Void
;;^UTILITY(U,$J,358.3,15168,1,4,0)
;;=4^R39.16
;;^UTILITY(U,$J,358.3,15168,2)
;;=^5019346
;;^UTILITY(U,$J,358.3,15169,0)
;;=R36.0^^56^641^111
;;^UTILITY(U,$J,358.3,15169,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15169,1,3,0)
;;=3^Urethral Discharge w/o Blood
;;^UTILITY(U,$J,358.3,15169,1,4,0)
;;=4^R36.0
;;^UTILITY(U,$J,358.3,15169,2)
;;=^5019337
;;^UTILITY(U,$J,358.3,15170,0)
;;=R36.9^^56^641^112
;;^UTILITY(U,$J,358.3,15170,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15170,1,3,0)
;;=3^Urethral Discharge,Unspec
;;^UTILITY(U,$J,358.3,15170,1,4,0)
;;=4^R36.9
;;^UTILITY(U,$J,358.3,15170,2)
;;=^5019338
;;^UTILITY(U,$J,358.3,15171,0)
;;=R80.1^^56^641^96
;;^UTILITY(U,$J,358.3,15171,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15171,1,3,0)
;;=3^Proteinuria Persistent,Unspec
;;^UTILITY(U,$J,358.3,15171,1,4,0)
;;=4^R80.1
;;^UTILITY(U,$J,358.3,15171,2)
;;=^5019596
;;^UTILITY(U,$J,358.3,15172,0)
;;=R80.0^^56^641^94
;;^UTILITY(U,$J,358.3,15172,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15172,1,3,0)
;;=3^Proteinuria Isolated
;;^UTILITY(U,$J,358.3,15172,1,4,0)
;;=4^R80.0
;;^UTILITY(U,$J,358.3,15172,2)
;;=^5019595
;;^UTILITY(U,$J,358.3,15173,0)
;;=R80.8^^56^641^97
;;^UTILITY(U,$J,358.3,15173,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15173,1,3,0)
;;=3^Proteinuria,Other
;;^UTILITY(U,$J,358.3,15173,1,4,0)
;;=4^R80.8
;;^UTILITY(U,$J,358.3,15173,2)
;;=^5019598
;;^UTILITY(U,$J,358.3,15174,0)
;;=R80.3^^56^641^93
;;^UTILITY(U,$J,358.3,15174,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15174,1,3,0)
;;=3^Proteinuria Bence Jones
;;^UTILITY(U,$J,358.3,15174,1,4,0)
;;=4^R80.3
;;^UTILITY(U,$J,358.3,15174,2)
;;=^13272
;;^UTILITY(U,$J,358.3,15175,0)
;;=R80.9^^56^641^98
;;^UTILITY(U,$J,358.3,15175,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15175,1,3,0)
;;=3^Proteinuria,Unspec
;;^UTILITY(U,$J,358.3,15175,1,4,0)
;;=4^R80.9
;;^UTILITY(U,$J,358.3,15175,2)
;;=^5019599
;;^UTILITY(U,$J,358.3,15176,0)
;;=Z87.442^^56^641^86
;;^UTILITY(U,$J,358.3,15176,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15176,1,3,0)
;;=3^Personal Hx of Urinary Calculi
;;^UTILITY(U,$J,358.3,15176,1,4,0)
;;=4^Z87.442
;;^UTILITY(U,$J,358.3,15176,2)
;;=^5063497
;;^UTILITY(U,$J,358.3,15177,0)
;;=N18.1^^56^641^15
;;^UTILITY(U,$J,358.3,15177,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15177,1,3,0)
;;=3^Chronic Kidney Disease,Stage 1
;;^UTILITY(U,$J,358.3,15177,1,4,0)
;;=4^N18.1
;;^UTILITY(U,$J,358.3,15177,2)
;;=^5015602
;;^UTILITY(U,$J,358.3,15178,0)
;;=N18.2^^56^641^16
;;^UTILITY(U,$J,358.3,15178,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15178,1,3,0)
;;=3^Chronic Kidney Disease,Stage 2
;;^UTILITY(U,$J,358.3,15178,1,4,0)
;;=4^N18.2
;;^UTILITY(U,$J,358.3,15178,2)
;;=^5015603
;;^UTILITY(U,$J,358.3,15179,0)
;;=N18.4^^56^641^20
;;^UTILITY(U,$J,358.3,15179,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15179,1,3,0)
;;=3^Chronic Kidney Disease,Stage 4
;;^UTILITY(U,$J,358.3,15179,1,4,0)
;;=4^N18.4
;;^UTILITY(U,$J,358.3,15179,2)
;;=^5015605
;;^UTILITY(U,$J,358.3,15180,0)
;;=N18.5^^56^641^21
;;^UTILITY(U,$J,358.3,15180,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15180,1,3,0)
;;=3^Chronic Kidney Disease,Stage 5
;;^UTILITY(U,$J,358.3,15180,1,4,0)
;;=4^N18.5
;;^UTILITY(U,$J,358.3,15180,2)
;;=^5015606
;;^UTILITY(U,$J,358.3,15181,0)
;;=Q61.3^^56^641^89
;;^UTILITY(U,$J,358.3,15181,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15181,1,3,0)
;;=3^Polycystic Kidney,Unspec
;;^UTILITY(U,$J,358.3,15181,1,4,0)
;;=4^Q61.3
;;^UTILITY(U,$J,358.3,15181,2)
;;=^5018797
;;^UTILITY(U,$J,358.3,15182,0)
;;=N20.1^^56^641^11
;;^UTILITY(U,$J,358.3,15182,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15182,1,3,0)
;;=3^Calculus Ureter
;;^UTILITY(U,$J,358.3,15182,1,4,0)
;;=4^N20.1
;;^UTILITY(U,$J,358.3,15182,2)
;;=^5015608
;;^UTILITY(U,$J,358.3,15183,0)
;;=N18.9^^56^641^22
;;^UTILITY(U,$J,358.3,15183,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15183,1,3,0)
;;=3^Chronic Kidney Failure,Unspec
;;^UTILITY(U,$J,358.3,15183,1,4,0)
;;=4^N18.9
;;^UTILITY(U,$J,358.3,15183,2)
;;=^332812
;;^UTILITY(U,$J,358.3,15184,0)
;;=N18.6^^56^641^32
;;^UTILITY(U,$J,358.3,15184,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15184,1,3,0)
;;=3^End Stage Renal Disease (ESRD)
;;^UTILITY(U,$J,358.3,15184,1,4,0)
;;=4^N18.6
;;^UTILITY(U,$J,358.3,15184,2)
;;=^303986
;;^UTILITY(U,$J,358.3,15185,0)
;;=N52.9^^56^641^49
;;^UTILITY(U,$J,358.3,15185,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15185,1,3,0)
;;=3^Erectile Dysfunction,Unspec
;;^UTILITY(U,$J,358.3,15185,1,4,0)
;;=4^N52.9
;;^UTILITY(U,$J,358.3,15185,2)
;;=^5015763
;;^UTILITY(U,$J,358.3,15186,0)
;;=N32.81^^56^641^84
;;^UTILITY(U,$J,358.3,15186,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15186,1,3,0)
;;=3^Overactive Bladder
;;^UTILITY(U,$J,358.3,15186,1,4,0)
;;=4^N32.81
;;^UTILITY(U,$J,358.3,15186,2)
;;=^5015652
;;^UTILITY(U,$J,358.3,15187,0)
;;=Q61.2^^56^641^88
;;^UTILITY(U,$J,358.3,15187,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15187,1,3,0)
;;=3^Polycystic Kidney,Adult Type
;;^UTILITY(U,$J,358.3,15187,1,4,0)
;;=4^Q61.2
;;^UTILITY(U,$J,358.3,15187,2)
;;=^5018796
;;^UTILITY(U,$J,358.3,15188,0)
;;=N41.1^^56^641^92
;;^UTILITY(U,$J,358.3,15188,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15188,1,3,0)
;;=3^Prostatitis,Chronic
;;^UTILITY(U,$J,358.3,15188,1,4,0)
;;=4^N41.1
;;^UTILITY(U,$J,358.3,15188,2)
;;=^186931
;;^UTILITY(U,$J,358.3,15189,0)
;;=N11.9^^56^641^100
;;^UTILITY(U,$J,358.3,15189,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15189,1,3,0)
;;=3^Pyelonephritis,Chronic,Unspec
;;^UTILITY(U,$J,358.3,15189,1,4,0)
;;=4^N11.9
;;^UTILITY(U,$J,358.3,15189,2)
;;=^5015574
;;^UTILITY(U,$J,358.3,15190,0)
;;=N20.9^^56^641^118
;;^UTILITY(U,$J,358.3,15190,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15190,1,3,0)
;;=3^Urinary Calculus,Unspec
;;^UTILITY(U,$J,358.3,15190,1,4,0)
;;=4^N20.9
;;^UTILITY(U,$J,358.3,15190,2)
;;=^5015610
;;^UTILITY(U,$J,358.3,15191,0)
;;=R97.20^^56^641^31
;;^UTILITY(U,$J,358.3,15191,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15191,1,3,0)
;;=3^Elevated PSA
;;^UTILITY(U,$J,358.3,15191,1,4,0)
;;=4^R97.20
;;^UTILITY(U,$J,358.3,15191,2)
;;=^334262
;;^UTILITY(U,$J,358.3,15192,0)
;;=N52.36^^56^641^36
;;^UTILITY(U,$J,358.3,15192,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15192,1,3,0)
;;=3^Erectile Dysfunction After Interstitial Seed Therapy
;;^UTILITY(U,$J,358.3,15192,1,4,0)
;;=4^N52.36
;;^UTILITY(U,$J,358.3,15192,2)
;;=^5138933
;;^UTILITY(U,$J,358.3,15193,0)
;;=N52.37^^56^641^37
;;^UTILITY(U,$J,358.3,15193,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15193,1,3,0)
;;=3^Erectile Dysfunction After Prostate Ablative Therapy
;;^UTILITY(U,$J,358.3,15193,1,4,0)
;;=4^N52.37
;;^UTILITY(U,$J,358.3,15193,2)
;;=^5138934
;;^UTILITY(U,$J,358.3,15194,0)
;;=N52.35^^56^641^38
;;^UTILITY(U,$J,358.3,15194,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15194,1,3,0)
;;=3^Erectile Dysfunction After Radiation Therapy
;;^UTILITY(U,$J,358.3,15194,1,4,0)
;;=4^N52.35
;;^UTILITY(U,$J,358.3,15194,2)
;;=^5138932
;;^UTILITY(U,$J,358.3,15195,0)
;;=R31.21^^56^641^58
;;^UTILITY(U,$J,358.3,15195,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15195,1,3,0)
;;=3^Hematuria,Microscopic,Asymptomatic
;;^UTILITY(U,$J,358.3,15195,1,4,0)
;;=4^R31.21
;;^UTILITY(U,$J,358.3,15195,2)
;;=^5139198
;;^UTILITY(U,$J,358.3,15196,0)
;;=R31.29^^56^641^59
;;^UTILITY(U,$J,358.3,15196,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15196,1,3,0)
;;=3^Hematuria,Microscopic,Other
;;^UTILITY(U,$J,358.3,15196,1,4,0)
;;=4^R31.29
;;^UTILITY(U,$J,358.3,15196,2)
;;=^5019327
;;^UTILITY(U,$J,358.3,15197,0)
;;=R39.198^^56^641^72
;;^UTILITY(U,$J,358.3,15197,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15197,1,3,0)
;;=3^Micturition,Oth Difficulties
;;^UTILITY(U,$J,358.3,15197,1,4,0)
;;=4^R39.198
;;^UTILITY(U,$J,358.3,15197,2)
;;=^5019347
;;^UTILITY(U,$J,358.3,15198,0)
;;=R39.191^^56^641^74
;;^UTILITY(U,$J,358.3,15198,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15198,1,3,0)
;;=3^Need to Immediately Re-Void
;;^UTILITY(U,$J,358.3,15198,1,4,0)
;;=4^R39.191
;;^UTILITY(U,$J,358.3,15198,2)
;;=^5139199
;;^UTILITY(U,$J,358.3,15199,0)
;;=R39.192^^56^641^73
;;^UTILITY(U,$J,358.3,15199,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15199,1,3,0)
;;=3^Micturition,Position Dependent
;;^UTILITY(U,$J,358.3,15199,1,4,0)
;;=4^R39.192
;;^UTILITY(U,$J,358.3,15199,2)
;;=^5139200
;;^UTILITY(U,$J,358.3,15200,0)
;;=R97.21^^56^641^103
;;^UTILITY(U,$J,358.3,15200,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15200,1,3,0)
;;=3^Rising PSA After Tx for Prostate CA
;;^UTILITY(U,$J,358.3,15200,1,4,0)
;;=4^R97.21
;;^UTILITY(U,$J,358.3,15200,2)
;;=^5139228
;;^UTILITY(U,$J,358.3,15201,0)
;;=N50.82^^56^641^104
;;^UTILITY(U,$J,358.3,15201,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15201,1,3,0)
;;=3^Scrotal Pain
;;^UTILITY(U,$J,358.3,15201,1,4,0)
;;=4^N50.82
;;^UTILITY(U,$J,358.3,15201,2)
;;=^5138930
;;^UTILITY(U,$J,358.3,15202,0)
;;=N50.812^^56^641^108
;;^UTILITY(U,$J,358.3,15202,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15202,1,3,0)
;;=3^Testicular Pain,Left Side
;;^UTILITY(U,$J,358.3,15202,1,4,0)
;;=4^N50.812
;;^UTILITY(U,$J,358.3,15202,2)
;;=^5138928
;;^UTILITY(U,$J,358.3,15203,0)
;;=N50.811^^56^641^109
;;^UTILITY(U,$J,358.3,15203,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15203,1,3,0)
;;=3^Testicular Pain,Right Side
;;^UTILITY(U,$J,358.3,15203,1,4,0)
;;=4^N50.811
;;^UTILITY(U,$J,358.3,15203,2)
;;=^5138927
;;^UTILITY(U,$J,358.3,15204,0)
;;=N35.919^^56^641^114
;;^UTILITY(U,$J,358.3,15204,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15204,1,3,0)
;;=3^Urethral Stricture,NOS,Male
;;^UTILITY(U,$J,358.3,15204,1,4,0)
;;=4^N35.919
;;^UTILITY(U,$J,358.3,15204,2)
;;=^5157412
;;^UTILITY(U,$J,358.3,15205,0)
;;=N35.92^^56^641^113
;;^UTILITY(U,$J,358.3,15205,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15205,1,3,0)
;;=3^Urethral Stricture,NOS,Female
;;^UTILITY(U,$J,358.3,15205,1,4,0)
;;=4^N35.92
;;^UTILITY(U,$J,358.3,15205,2)
;;=^5157413
;;^UTILITY(U,$J,358.3,15206,0)
;;=R82.81^^56^641^101
;;^UTILITY(U,$J,358.3,15206,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15206,1,3,0)
;;=3^Pyuria
;;^UTILITY(U,$J,358.3,15206,1,4,0)
;;=4^R82.81
;;^UTILITY(U,$J,358.3,15206,2)
;;=^101879
;;^UTILITY(U,$J,358.3,15207,0)
;;=N18.30^^56^641^17
;;^UTILITY(U,$J,358.3,15207,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15207,1,3,0)
;;=3^Chronic Kidney Disease,Stage 3 Unspec
;;^UTILITY(U,$J,358.3,15207,1,4,0)
;;=4^N18.30
;;^UTILITY(U,$J,358.3,15207,2)
;;=^5159286
;;^UTILITY(U,$J,358.3,15208,0)
;;=N18.31^^56^641^18
;;^UTILITY(U,$J,358.3,15208,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15208,1,3,0)
;;=3^Chronic Kidney Disease,Stage 3a
;;^UTILITY(U,$J,358.3,15208,1,4,0)
;;=4^N18.31
;;^UTILITY(U,$J,358.3,15208,2)
;;=^5159287
;;^UTILITY(U,$J,358.3,15209,0)
;;=N18.32^^56^641^19
;;^UTILITY(U,$J,358.3,15209,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15209,1,3,0)
;;=3^Chronic Kidney Disease,Stage 3b
;;^UTILITY(U,$J,358.3,15209,1,4,0)
;;=4^N18.32
;;^UTILITY(U,$J,358.3,15209,2)
;;=^5159288
;;^UTILITY(U,$J,358.3,15210,0)
;;=G44.1^^56^642^10
;;^UTILITY(U,$J,358.3,15210,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15210,1,3,0)
;;=3^Vascular Headache NEC
;;^UTILITY(U,$J,358.3,15210,1,4,0)
;;=4^G44.1
;;^UTILITY(U,$J,358.3,15210,2)
;;=^5003934
;;^UTILITY(U,$J,358.3,15211,0)
;;=G43.909^^56^642^6
;;^UTILITY(U,$J,358.3,15211,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15211,1,3,0)
;;=3^Migraine,Unspec,Not Intractable
;;^UTILITY(U,$J,358.3,15211,1,4,0)
;;=4^G43.909
;;^UTILITY(U,$J,358.3,15211,2)
;;=^5003909
;;^UTILITY(U,$J,358.3,15212,0)
;;=G44.009^^56^642^1
;;^UTILITY(U,$J,358.3,15212,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15212,1,3,0)
;;=3^Cluster Headache,Unspec,Not Intractable
;;^UTILITY(U,$J,358.3,15212,1,4,0)
;;=4^G44.009
;;^UTILITY(U,$J,358.3,15212,2)
;;=^5003921
;;^UTILITY(U,$J,358.3,15213,0)
;;=G44.40^^56^642^5
;;^UTILITY(U,$J,358.3,15213,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15213,1,3,0)
;;=3^Medication Overuse Headache,Not Intractable
;;^UTILITY(U,$J,358.3,15213,1,4,0)
;;=4^G44.40
;;^UTILITY(U,$J,358.3,15213,2)
;;=^5003947
;;^UTILITY(U,$J,358.3,15214,0)
;;=G44.89^^56^642^2
;;^UTILITY(U,$J,358.3,15214,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15214,1,3,0)
;;=3^Headache Syndrome NEC
;;^UTILITY(U,$J,358.3,15214,1,4,0)
;;=4^G44.89
;;^UTILITY(U,$J,358.3,15214,2)
;;=^5003954
;;^UTILITY(U,$J,358.3,15215,0)
;;=G44.84^^56^642^8
;;^UTILITY(U,$J,358.3,15215,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15215,1,3,0)
;;=3^Primary Exertional Headache
;;^UTILITY(U,$J,358.3,15215,1,4,0)
;;=4^G44.84
;;^UTILITY(U,$J,358.3,15215,2)
;;=^336563
;;^UTILITY(U,$J,358.3,15216,0)
;;=G44.301^^56^642^7
;;^UTILITY(U,$J,358.3,15216,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15216,1,3,0)
;;=3^Post-Traumatic Headache,Unspec,Intractable
;;^UTILITY(U,$J,358.3,15216,1,4,0)
;;=4^G44.301
;;^UTILITY(U,$J,358.3,15216,2)
;;=^5003941
;;^UTILITY(U,$J,358.3,15217,0)
;;=G44.209^^56^642^9
;;^UTILITY(U,$J,358.3,15217,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15217,1,3,0)
;;=3^Tension-Type Headache,Unspec,Not Intractable
;;^UTILITY(U,$J,358.3,15217,1,4,0)
;;=4^G44.209
;;^UTILITY(U,$J,358.3,15217,2)
;;=^5003936
;;^UTILITY(U,$J,358.3,15218,0)
;;=R51.0^^56^642^3
;;^UTILITY(U,$J,358.3,15218,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15218,1,3,0)
;;=3^Headache w/ Orthostatic Component,NEC
;;^UTILITY(U,$J,358.3,15218,1,4,0)
;;=4^R51.0
;;^UTILITY(U,$J,358.3,15218,2)
;;=^5159305
;;^UTILITY(U,$J,358.3,15219,0)
;;=R51.9^^56^642^4
;;^UTILITY(U,$J,358.3,15219,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15219,1,3,0)
;;=3^Headache,Unspec
;;^UTILITY(U,$J,358.3,15219,1,4,0)
;;=4^R51.9
;;^UTILITY(U,$J,358.3,15219,2)
;;=^5159306
;;^UTILITY(U,$J,358.3,15220,0)
;;=I30.0^^56^643^5
;;^UTILITY(U,$J,358.3,15220,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15220,1,3,0)
;;=3^Idiopathic Pericarditis,Acute Nonspec
;;^UTILITY(U,$J,358.3,15220,1,4,0)
;;=4^I30.0
;;^UTILITY(U,$J,358.3,15220,2)
;;=^5007157
;;^UTILITY(U,$J,358.3,15221,0)
;;=I34.8^^56^643^6
;;^UTILITY(U,$J,358.3,15221,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15221,1,3,0)
;;=3^Mitral Valve Disorders,Nonrheumatic Other
;;^UTILITY(U,$J,358.3,15221,1,4,0)
;;=4^I34.8
;;^UTILITY(U,$J,358.3,15221,2)
;;=^5007172
;;^UTILITY(U,$J,358.3,15222,0)
;;=I34.0^^56^643^13
;;^UTILITY(U,$J,358.3,15222,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15222,1,3,0)
;;=3^Nonrheumatic Mitral Valve Insufficiency
;;^UTILITY(U,$J,358.3,15222,1,4,0)
;;=4^I34.0
;;^UTILITY(U,$J,358.3,15222,2)
;;=^5007169
;;^UTILITY(U,$J,358.3,15223,0)
;;=I34.9^^56^643^12
;;^UTILITY(U,$J,358.3,15223,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15223,1,3,0)
;;=3^Nonrheumatic Mitral Valve Disorder,Unspec
;;^UTILITY(U,$J,358.3,15223,1,4,0)
;;=4^I34.9
;;^UTILITY(U,$J,358.3,15223,2)
;;=^5007173
;;^UTILITY(U,$J,358.3,15224,0)
;;=I34.2^^56^643^7
;;^UTILITY(U,$J,358.3,15224,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15224,1,3,0)
;;=3^Nonrhematic Mitral Valve Stenosis
;;^UTILITY(U,$J,358.3,15224,1,4,0)
;;=4^I34.2
;;^UTILITY(U,$J,358.3,15224,2)
;;=^5007171
;;^UTILITY(U,$J,358.3,15225,0)
;;=I35.0^^56^643^10
;;^UTILITY(U,$J,358.3,15225,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15225,1,3,0)
;;=3^Nonrheumatic Aortic Valve Stenosis
;;^UTILITY(U,$J,358.3,15225,1,4,0)
;;=4^I35.0
;;^UTILITY(U,$J,358.3,15225,2)
;;=^5007174
;;^UTILITY(U,$J,358.3,15226,0)
;;=I35.1^^56^643^9
;;^UTILITY(U,$J,358.3,15226,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15226,1,3,0)
;;=3^Nonrheumatic Aortic Valve Insufficiency
;;^UTILITY(U,$J,358.3,15226,1,4,0)
;;=4^I35.1
;;^UTILITY(U,$J,358.3,15226,2)
;;=^5007175
;;^UTILITY(U,$J,358.3,15227,0)
;;=I35.2^^56^643^11
;;^UTILITY(U,$J,358.3,15227,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15227,1,3,0)
;;=3^Nonrheumatic Aortic Valve Stenosis w/ Insufficiency
;;^UTILITY(U,$J,358.3,15227,1,4,0)
;;=4^I35.2
;;^UTILITY(U,$J,358.3,15227,2)
;;=^5007176
;;^UTILITY(U,$J,358.3,15228,0)
;;=I35.9^^56^643^8
;;^UTILITY(U,$J,358.3,15228,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15228,1,3,0)
;;=3^Nonrheumatic Aortic Valve Disorder,Unspec
;;^UTILITY(U,$J,358.3,15228,1,4,0)
;;=4^I35.9
;;^UTILITY(U,$J,358.3,15228,2)
;;=^5007178
;;^UTILITY(U,$J,358.3,15229,0)
;;=I38.^^56^643^4
;;^UTILITY(U,$J,358.3,15229,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15229,1,3,0)
;;=3^Endocarditis,Valve Unspec
;;^UTILITY(U,$J,358.3,15229,1,4,0)
;;=4^I38.
;;^UTILITY(U,$J,358.3,15229,2)
;;=^40327
;;^UTILITY(U,$J,358.3,15230,0)
;;=I05.0^^56^643^18
;;^UTILITY(U,$J,358.3,15230,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15230,1,3,0)
;;=3^Rheumatic Mitral Stenosis
;;^UTILITY(U,$J,358.3,15230,1,4,0)
;;=4^I05.0
;;^UTILITY(U,$J,358.3,15230,2)
;;=^5007041
;;^UTILITY(U,$J,358.3,15231,0)
;;=I05.8^^56^643^19
;;^UTILITY(U,$J,358.3,15231,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15231,1,3,0)
;;=3^Rheumatic Mitral Valve Disease NEC
;;^UTILITY(U,$J,358.3,15231,1,4,0)
;;=4^I05.8
;;^UTILITY(U,$J,358.3,15231,2)
;;=^5007043
;;^UTILITY(U,$J,358.3,15232,0)
;;=I05.9^^56^643^20
;;^UTILITY(U,$J,358.3,15232,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15232,1,3,0)
;;=3^Rheumatic Mitral Valve Disease,Unspec
;;^UTILITY(U,$J,358.3,15232,1,4,0)
;;=4^I05.9
;;^UTILITY(U,$J,358.3,15232,2)
;;=^5007044
;;^UTILITY(U,$J,358.3,15233,0)
;;=I07.1^^56^643^21
;;^UTILITY(U,$J,358.3,15233,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI069 19752 printed Sep 23, 2025@19:18:26 Page 2
IBDEI069 ; ; 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,15164,0)
+2 ;;=N39.41^^56^641^117
+3 ;;^UTILITY(U,$J,358.3,15164,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,15164,1,3,0)
+6 ;;=3^Urge Incontinence
+7 ;;^UTILITY(U,$J,358.3,15164,1,4,0)
+8 ;;=4^N39.41
+9 ;;^UTILITY(U,$J,358.3,15164,2)
+10 ;;=^5015680
+11 ;;^UTILITY(U,$J,358.3,15165,0)
+12 ;;=R35.0^^56^641^69
+13 ;;^UTILITY(U,$J,358.3,15165,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,15165,1,3,0)
+16 ;;=3^Micturition Frequency
+17 ;;^UTILITY(U,$J,358.3,15165,1,4,0)
+18 ;;=4^R35.0
+19 ;;^UTILITY(U,$J,358.3,15165,2)
+20 ;;=^5019334
+21 ;;^UTILITY(U,$J,358.3,15166,0)
+22 ;;=R35.1^^56^641^82
+23 ;;^UTILITY(U,$J,358.3,15166,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,15166,1,3,0)
+26 ;;=3^Nocturia
+27 ;;^UTILITY(U,$J,358.3,15166,1,4,0)
+28 ;;=4^R35.1
+29 ;;^UTILITY(U,$J,358.3,15166,2)
+30 ;;=^5019335
+31 ;;^UTILITY(U,$J,358.3,15167,0)
+32 ;;=R39.11^^56^641^70
+33 ;;^UTILITY(U,$J,358.3,15167,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,15167,1,3,0)
+36 ;;=3^Micturition Hesitancy
+37 ;;^UTILITY(U,$J,358.3,15167,1,4,0)
+38 ;;=4^R39.11
+39 ;;^UTILITY(U,$J,358.3,15167,2)
+40 ;;=^5019341
+41 ;;^UTILITY(U,$J,358.3,15168,0)
+42 ;;=R39.16^^56^641^107
+43 ;;^UTILITY(U,$J,358.3,15168,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,15168,1,3,0)
+46 ;;=3^Straining to Void
+47 ;;^UTILITY(U,$J,358.3,15168,1,4,0)
+48 ;;=4^R39.16
+49 ;;^UTILITY(U,$J,358.3,15168,2)
+50 ;;=^5019346
+51 ;;^UTILITY(U,$J,358.3,15169,0)
+52 ;;=R36.0^^56^641^111
+53 ;;^UTILITY(U,$J,358.3,15169,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,15169,1,3,0)
+56 ;;=3^Urethral Discharge w/o Blood
+57 ;;^UTILITY(U,$J,358.3,15169,1,4,0)
+58 ;;=4^R36.0
+59 ;;^UTILITY(U,$J,358.3,15169,2)
+60 ;;=^5019337
+61 ;;^UTILITY(U,$J,358.3,15170,0)
+62 ;;=R36.9^^56^641^112
+63 ;;^UTILITY(U,$J,358.3,15170,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,15170,1,3,0)
+66 ;;=3^Urethral Discharge,Unspec
+67 ;;^UTILITY(U,$J,358.3,15170,1,4,0)
+68 ;;=4^R36.9
+69 ;;^UTILITY(U,$J,358.3,15170,2)
+70 ;;=^5019338
+71 ;;^UTILITY(U,$J,358.3,15171,0)
+72 ;;=R80.1^^56^641^96
+73 ;;^UTILITY(U,$J,358.3,15171,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,15171,1,3,0)
+76 ;;=3^Proteinuria Persistent,Unspec
+77 ;;^UTILITY(U,$J,358.3,15171,1,4,0)
+78 ;;=4^R80.1
+79 ;;^UTILITY(U,$J,358.3,15171,2)
+80 ;;=^5019596
+81 ;;^UTILITY(U,$J,358.3,15172,0)
+82 ;;=R80.0^^56^641^94
+83 ;;^UTILITY(U,$J,358.3,15172,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,15172,1,3,0)
+86 ;;=3^Proteinuria Isolated
+87 ;;^UTILITY(U,$J,358.3,15172,1,4,0)
+88 ;;=4^R80.0
+89 ;;^UTILITY(U,$J,358.3,15172,2)
+90 ;;=^5019595
+91 ;;^UTILITY(U,$J,358.3,15173,0)
+92 ;;=R80.8^^56^641^97
+93 ;;^UTILITY(U,$J,358.3,15173,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,15173,1,3,0)
+96 ;;=3^Proteinuria,Other
+97 ;;^UTILITY(U,$J,358.3,15173,1,4,0)
+98 ;;=4^R80.8
+99 ;;^UTILITY(U,$J,358.3,15173,2)
+100 ;;=^5019598
+101 ;;^UTILITY(U,$J,358.3,15174,0)
+102 ;;=R80.3^^56^641^93
+103 ;;^UTILITY(U,$J,358.3,15174,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,15174,1,3,0)
+106 ;;=3^Proteinuria Bence Jones
+107 ;;^UTILITY(U,$J,358.3,15174,1,4,0)
+108 ;;=4^R80.3
+109 ;;^UTILITY(U,$J,358.3,15174,2)
+110 ;;=^13272
+111 ;;^UTILITY(U,$J,358.3,15175,0)
+112 ;;=R80.9^^56^641^98
+113 ;;^UTILITY(U,$J,358.3,15175,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,15175,1,3,0)
+116 ;;=3^Proteinuria,Unspec
+117 ;;^UTILITY(U,$J,358.3,15175,1,4,0)
+118 ;;=4^R80.9
+119 ;;^UTILITY(U,$J,358.3,15175,2)
+120 ;;=^5019599
+121 ;;^UTILITY(U,$J,358.3,15176,0)
+122 ;;=Z87.442^^56^641^86
+123 ;;^UTILITY(U,$J,358.3,15176,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,15176,1,3,0)
+126 ;;=3^Personal Hx of Urinary Calculi
+127 ;;^UTILITY(U,$J,358.3,15176,1,4,0)
+128 ;;=4^Z87.442
+129 ;;^UTILITY(U,$J,358.3,15176,2)
+130 ;;=^5063497
+131 ;;^UTILITY(U,$J,358.3,15177,0)
+132 ;;=N18.1^^56^641^15
+133 ;;^UTILITY(U,$J,358.3,15177,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,15177,1,3,0)
+136 ;;=3^Chronic Kidney Disease,Stage 1
+137 ;;^UTILITY(U,$J,358.3,15177,1,4,0)
+138 ;;=4^N18.1
+139 ;;^UTILITY(U,$J,358.3,15177,2)
+140 ;;=^5015602
+141 ;;^UTILITY(U,$J,358.3,15178,0)
+142 ;;=N18.2^^56^641^16
+143 ;;^UTILITY(U,$J,358.3,15178,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,15178,1,3,0)
+146 ;;=3^Chronic Kidney Disease,Stage 2
+147 ;;^UTILITY(U,$J,358.3,15178,1,4,0)
+148 ;;=4^N18.2
+149 ;;^UTILITY(U,$J,358.3,15178,2)
+150 ;;=^5015603
+151 ;;^UTILITY(U,$J,358.3,15179,0)
+152 ;;=N18.4^^56^641^20
+153 ;;^UTILITY(U,$J,358.3,15179,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,15179,1,3,0)
+156 ;;=3^Chronic Kidney Disease,Stage 4
+157 ;;^UTILITY(U,$J,358.3,15179,1,4,0)
+158 ;;=4^N18.4
+159 ;;^UTILITY(U,$J,358.3,15179,2)
+160 ;;=^5015605
+161 ;;^UTILITY(U,$J,358.3,15180,0)
+162 ;;=N18.5^^56^641^21
+163 ;;^UTILITY(U,$J,358.3,15180,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,15180,1,3,0)
+166 ;;=3^Chronic Kidney Disease,Stage 5
+167 ;;^UTILITY(U,$J,358.3,15180,1,4,0)
+168 ;;=4^N18.5
+169 ;;^UTILITY(U,$J,358.3,15180,2)
+170 ;;=^5015606
+171 ;;^UTILITY(U,$J,358.3,15181,0)
+172 ;;=Q61.3^^56^641^89
+173 ;;^UTILITY(U,$J,358.3,15181,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,15181,1,3,0)
+176 ;;=3^Polycystic Kidney,Unspec
+177 ;;^UTILITY(U,$J,358.3,15181,1,4,0)
+178 ;;=4^Q61.3
+179 ;;^UTILITY(U,$J,358.3,15181,2)
+180 ;;=^5018797
+181 ;;^UTILITY(U,$J,358.3,15182,0)
+182 ;;=N20.1^^56^641^11
+183 ;;^UTILITY(U,$J,358.3,15182,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,15182,1,3,0)
+186 ;;=3^Calculus Ureter
+187 ;;^UTILITY(U,$J,358.3,15182,1,4,0)
+188 ;;=4^N20.1
+189 ;;^UTILITY(U,$J,358.3,15182,2)
+190 ;;=^5015608
+191 ;;^UTILITY(U,$J,358.3,15183,0)
+192 ;;=N18.9^^56^641^22
+193 ;;^UTILITY(U,$J,358.3,15183,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,15183,1,3,0)
+196 ;;=3^Chronic Kidney Failure,Unspec
+197 ;;^UTILITY(U,$J,358.3,15183,1,4,0)
+198 ;;=4^N18.9
+199 ;;^UTILITY(U,$J,358.3,15183,2)
+200 ;;=^332812
+201 ;;^UTILITY(U,$J,358.3,15184,0)
+202 ;;=N18.6^^56^641^32
+203 ;;^UTILITY(U,$J,358.3,15184,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,15184,1,3,0)
+206 ;;=3^End Stage Renal Disease (ESRD)
+207 ;;^UTILITY(U,$J,358.3,15184,1,4,0)
+208 ;;=4^N18.6
+209 ;;^UTILITY(U,$J,358.3,15184,2)
+210 ;;=^303986
+211 ;;^UTILITY(U,$J,358.3,15185,0)
+212 ;;=N52.9^^56^641^49
+213 ;;^UTILITY(U,$J,358.3,15185,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,15185,1,3,0)
+216 ;;=3^Erectile Dysfunction,Unspec
+217 ;;^UTILITY(U,$J,358.3,15185,1,4,0)
+218 ;;=4^N52.9
+219 ;;^UTILITY(U,$J,358.3,15185,2)
+220 ;;=^5015763
+221 ;;^UTILITY(U,$J,358.3,15186,0)
+222 ;;=N32.81^^56^641^84
+223 ;;^UTILITY(U,$J,358.3,15186,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,15186,1,3,0)
+226 ;;=3^Overactive Bladder
+227 ;;^UTILITY(U,$J,358.3,15186,1,4,0)
+228 ;;=4^N32.81
+229 ;;^UTILITY(U,$J,358.3,15186,2)
+230 ;;=^5015652
+231 ;;^UTILITY(U,$J,358.3,15187,0)
+232 ;;=Q61.2^^56^641^88
+233 ;;^UTILITY(U,$J,358.3,15187,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,15187,1,3,0)
+236 ;;=3^Polycystic Kidney,Adult Type
+237 ;;^UTILITY(U,$J,358.3,15187,1,4,0)
+238 ;;=4^Q61.2
+239 ;;^UTILITY(U,$J,358.3,15187,2)
+240 ;;=^5018796
+241 ;;^UTILITY(U,$J,358.3,15188,0)
+242 ;;=N41.1^^56^641^92
+243 ;;^UTILITY(U,$J,358.3,15188,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,15188,1,3,0)
+246 ;;=3^Prostatitis,Chronic
+247 ;;^UTILITY(U,$J,358.3,15188,1,4,0)
+248 ;;=4^N41.1
+249 ;;^UTILITY(U,$J,358.3,15188,2)
+250 ;;=^186931
+251 ;;^UTILITY(U,$J,358.3,15189,0)
+252 ;;=N11.9^^56^641^100
+253 ;;^UTILITY(U,$J,358.3,15189,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,15189,1,3,0)
+256 ;;=3^Pyelonephritis,Chronic,Unspec
+257 ;;^UTILITY(U,$J,358.3,15189,1,4,0)
+258 ;;=4^N11.9
+259 ;;^UTILITY(U,$J,358.3,15189,2)
+260 ;;=^5015574
+261 ;;^UTILITY(U,$J,358.3,15190,0)
+262 ;;=N20.9^^56^641^118
+263 ;;^UTILITY(U,$J,358.3,15190,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,15190,1,3,0)
+266 ;;=3^Urinary Calculus,Unspec
+267 ;;^UTILITY(U,$J,358.3,15190,1,4,0)
+268 ;;=4^N20.9
+269 ;;^UTILITY(U,$J,358.3,15190,2)
+270 ;;=^5015610
+271 ;;^UTILITY(U,$J,358.3,15191,0)
+272 ;;=R97.20^^56^641^31
+273 ;;^UTILITY(U,$J,358.3,15191,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,15191,1,3,0)
+276 ;;=3^Elevated PSA
+277 ;;^UTILITY(U,$J,358.3,15191,1,4,0)
+278 ;;=4^R97.20
+279 ;;^UTILITY(U,$J,358.3,15191,2)
+280 ;;=^334262
+281 ;;^UTILITY(U,$J,358.3,15192,0)
+282 ;;=N52.36^^56^641^36
+283 ;;^UTILITY(U,$J,358.3,15192,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,15192,1,3,0)
+286 ;;=3^Erectile Dysfunction After Interstitial Seed Therapy
+287 ;;^UTILITY(U,$J,358.3,15192,1,4,0)
+288 ;;=4^N52.36
+289 ;;^UTILITY(U,$J,358.3,15192,2)
+290 ;;=^5138933
+291 ;;^UTILITY(U,$J,358.3,15193,0)
+292 ;;=N52.37^^56^641^37
+293 ;;^UTILITY(U,$J,358.3,15193,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,15193,1,3,0)
+296 ;;=3^Erectile Dysfunction After Prostate Ablative Therapy
+297 ;;^UTILITY(U,$J,358.3,15193,1,4,0)
+298 ;;=4^N52.37
+299 ;;^UTILITY(U,$J,358.3,15193,2)
+300 ;;=^5138934
+301 ;;^UTILITY(U,$J,358.3,15194,0)
+302 ;;=N52.35^^56^641^38
+303 ;;^UTILITY(U,$J,358.3,15194,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,15194,1,3,0)
+306 ;;=3^Erectile Dysfunction After Radiation Therapy
+307 ;;^UTILITY(U,$J,358.3,15194,1,4,0)
+308 ;;=4^N52.35
+309 ;;^UTILITY(U,$J,358.3,15194,2)
+310 ;;=^5138932
+311 ;;^UTILITY(U,$J,358.3,15195,0)
+312 ;;=R31.21^^56^641^58
+313 ;;^UTILITY(U,$J,358.3,15195,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,15195,1,3,0)
+316 ;;=3^Hematuria,Microscopic,Asymptomatic
+317 ;;^UTILITY(U,$J,358.3,15195,1,4,0)
+318 ;;=4^R31.21
+319 ;;^UTILITY(U,$J,358.3,15195,2)
+320 ;;=^5139198
+321 ;;^UTILITY(U,$J,358.3,15196,0)
+322 ;;=R31.29^^56^641^59
+323 ;;^UTILITY(U,$J,358.3,15196,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,15196,1,3,0)
+326 ;;=3^Hematuria,Microscopic,Other
+327 ;;^UTILITY(U,$J,358.3,15196,1,4,0)
+328 ;;=4^R31.29
+329 ;;^UTILITY(U,$J,358.3,15196,2)
+330 ;;=^5019327
+331 ;;^UTILITY(U,$J,358.3,15197,0)
+332 ;;=R39.198^^56^641^72
+333 ;;^UTILITY(U,$J,358.3,15197,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,15197,1,3,0)
+336 ;;=3^Micturition,Oth Difficulties
+337 ;;^UTILITY(U,$J,358.3,15197,1,4,0)
+338 ;;=4^R39.198
+339 ;;^UTILITY(U,$J,358.3,15197,2)
+340 ;;=^5019347
+341 ;;^UTILITY(U,$J,358.3,15198,0)
+342 ;;=R39.191^^56^641^74
+343 ;;^UTILITY(U,$J,358.3,15198,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,15198,1,3,0)
+346 ;;=3^Need to Immediately Re-Void
+347 ;;^UTILITY(U,$J,358.3,15198,1,4,0)
+348 ;;=4^R39.191
+349 ;;^UTILITY(U,$J,358.3,15198,2)
+350 ;;=^5139199
+351 ;;^UTILITY(U,$J,358.3,15199,0)
+352 ;;=R39.192^^56^641^73
+353 ;;^UTILITY(U,$J,358.3,15199,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,15199,1,3,0)
+356 ;;=3^Micturition,Position Dependent
+357 ;;^UTILITY(U,$J,358.3,15199,1,4,0)
+358 ;;=4^R39.192
+359 ;;^UTILITY(U,$J,358.3,15199,2)
+360 ;;=^5139200
+361 ;;^UTILITY(U,$J,358.3,15200,0)
+362 ;;=R97.21^^56^641^103
+363 ;;^UTILITY(U,$J,358.3,15200,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,15200,1,3,0)
+366 ;;=3^Rising PSA After Tx for Prostate CA
+367 ;;^UTILITY(U,$J,358.3,15200,1,4,0)
+368 ;;=4^R97.21
+369 ;;^UTILITY(U,$J,358.3,15200,2)
+370 ;;=^5139228
+371 ;;^UTILITY(U,$J,358.3,15201,0)
+372 ;;=N50.82^^56^641^104
+373 ;;^UTILITY(U,$J,358.3,15201,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,15201,1,3,0)
+376 ;;=3^Scrotal Pain
+377 ;;^UTILITY(U,$J,358.3,15201,1,4,0)
+378 ;;=4^N50.82
+379 ;;^UTILITY(U,$J,358.3,15201,2)
+380 ;;=^5138930
+381 ;;^UTILITY(U,$J,358.3,15202,0)
+382 ;;=N50.812^^56^641^108
+383 ;;^UTILITY(U,$J,358.3,15202,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,15202,1,3,0)
+386 ;;=3^Testicular Pain,Left Side
+387 ;;^UTILITY(U,$J,358.3,15202,1,4,0)
+388 ;;=4^N50.812
+389 ;;^UTILITY(U,$J,358.3,15202,2)
+390 ;;=^5138928
+391 ;;^UTILITY(U,$J,358.3,15203,0)
+392 ;;=N50.811^^56^641^109
+393 ;;^UTILITY(U,$J,358.3,15203,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,15203,1,3,0)
+396 ;;=3^Testicular Pain,Right Side
+397 ;;^UTILITY(U,$J,358.3,15203,1,4,0)
+398 ;;=4^N50.811
+399 ;;^UTILITY(U,$J,358.3,15203,2)
+400 ;;=^5138927
+401 ;;^UTILITY(U,$J,358.3,15204,0)
+402 ;;=N35.919^^56^641^114
+403 ;;^UTILITY(U,$J,358.3,15204,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,15204,1,3,0)
+406 ;;=3^Urethral Stricture,NOS,Male
+407 ;;^UTILITY(U,$J,358.3,15204,1,4,0)
+408 ;;=4^N35.919
+409 ;;^UTILITY(U,$J,358.3,15204,2)
+410 ;;=^5157412
+411 ;;^UTILITY(U,$J,358.3,15205,0)
+412 ;;=N35.92^^56^641^113
+413 ;;^UTILITY(U,$J,358.3,15205,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,15205,1,3,0)
+416 ;;=3^Urethral Stricture,NOS,Female
+417 ;;^UTILITY(U,$J,358.3,15205,1,4,0)
+418 ;;=4^N35.92
+419 ;;^UTILITY(U,$J,358.3,15205,2)
+420 ;;=^5157413
+421 ;;^UTILITY(U,$J,358.3,15206,0)
+422 ;;=R82.81^^56^641^101
+423 ;;^UTILITY(U,$J,358.3,15206,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,15206,1,3,0)
+426 ;;=3^Pyuria
+427 ;;^UTILITY(U,$J,358.3,15206,1,4,0)
+428 ;;=4^R82.81
+429 ;;^UTILITY(U,$J,358.3,15206,2)
+430 ;;=^101879
+431 ;;^UTILITY(U,$J,358.3,15207,0)
+432 ;;=N18.30^^56^641^17
+433 ;;^UTILITY(U,$J,358.3,15207,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,15207,1,3,0)
+436 ;;=3^Chronic Kidney Disease,Stage 3 Unspec
+437 ;;^UTILITY(U,$J,358.3,15207,1,4,0)
+438 ;;=4^N18.30
+439 ;;^UTILITY(U,$J,358.3,15207,2)
+440 ;;=^5159286
+441 ;;^UTILITY(U,$J,358.3,15208,0)
+442 ;;=N18.31^^56^641^18
+443 ;;^UTILITY(U,$J,358.3,15208,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,15208,1,3,0)
+446 ;;=3^Chronic Kidney Disease,Stage 3a
+447 ;;^UTILITY(U,$J,358.3,15208,1,4,0)
+448 ;;=4^N18.31
+449 ;;^UTILITY(U,$J,358.3,15208,2)
+450 ;;=^5159287
+451 ;;^UTILITY(U,$J,358.3,15209,0)
+452 ;;=N18.32^^56^641^19
+453 ;;^UTILITY(U,$J,358.3,15209,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,15209,1,3,0)
+456 ;;=3^Chronic Kidney Disease,Stage 3b
+457 ;;^UTILITY(U,$J,358.3,15209,1,4,0)
+458 ;;=4^N18.32
+459 ;;^UTILITY(U,$J,358.3,15209,2)
+460 ;;=^5159288
+461 ;;^UTILITY(U,$J,358.3,15210,0)
+462 ;;=G44.1^^56^642^10
+463 ;;^UTILITY(U,$J,358.3,15210,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,15210,1,3,0)
+466 ;;=3^Vascular Headache NEC
+467 ;;^UTILITY(U,$J,358.3,15210,1,4,0)
+468 ;;=4^G44.1
+469 ;;^UTILITY(U,$J,358.3,15210,2)
+470 ;;=^5003934
+471 ;;^UTILITY(U,$J,358.3,15211,0)
+472 ;;=G43.909^^56^642^6
+473 ;;^UTILITY(U,$J,358.3,15211,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,15211,1,3,0)
+476 ;;=3^Migraine,Unspec,Not Intractable
+477 ;;^UTILITY(U,$J,358.3,15211,1,4,0)
+478 ;;=4^G43.909
+479 ;;^UTILITY(U,$J,358.3,15211,2)
+480 ;;=^5003909
+481 ;;^UTILITY(U,$J,358.3,15212,0)
+482 ;;=G44.009^^56^642^1
+483 ;;^UTILITY(U,$J,358.3,15212,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,15212,1,3,0)
+486 ;;=3^Cluster Headache,Unspec,Not Intractable
+487 ;;^UTILITY(U,$J,358.3,15212,1,4,0)
+488 ;;=4^G44.009
+489 ;;^UTILITY(U,$J,358.3,15212,2)
+490 ;;=^5003921
+491 ;;^UTILITY(U,$J,358.3,15213,0)
+492 ;;=G44.40^^56^642^5
+493 ;;^UTILITY(U,$J,358.3,15213,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,15213,1,3,0)
+496 ;;=3^Medication Overuse Headache,Not Intractable
+497 ;;^UTILITY(U,$J,358.3,15213,1,4,0)
+498 ;;=4^G44.40
+499 ;;^UTILITY(U,$J,358.3,15213,2)
+500 ;;=^5003947
+501 ;;^UTILITY(U,$J,358.3,15214,0)
+502 ;;=G44.89^^56^642^2
+503 ;;^UTILITY(U,$J,358.3,15214,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,15214,1,3,0)
+506 ;;=3^Headache Syndrome NEC
+507 ;;^UTILITY(U,$J,358.3,15214,1,4,0)
+508 ;;=4^G44.89
+509 ;;^UTILITY(U,$J,358.3,15214,2)
+510 ;;=^5003954
+511 ;;^UTILITY(U,$J,358.3,15215,0)
+512 ;;=G44.84^^56^642^8
+513 ;;^UTILITY(U,$J,358.3,15215,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,15215,1,3,0)
+516 ;;=3^Primary Exertional Headache
+517 ;;^UTILITY(U,$J,358.3,15215,1,4,0)
+518 ;;=4^G44.84
+519 ;;^UTILITY(U,$J,358.3,15215,2)
+520 ;;=^336563
+521 ;;^UTILITY(U,$J,358.3,15216,0)
+522 ;;=G44.301^^56^642^7
+523 ;;^UTILITY(U,$J,358.3,15216,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,15216,1,3,0)
+526 ;;=3^Post-Traumatic Headache,Unspec,Intractable
+527 ;;^UTILITY(U,$J,358.3,15216,1,4,0)
+528 ;;=4^G44.301
+529 ;;^UTILITY(U,$J,358.3,15216,2)
+530 ;;=^5003941
+531 ;;^UTILITY(U,$J,358.3,15217,0)
+532 ;;=G44.209^^56^642^9
+533 ;;^UTILITY(U,$J,358.3,15217,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,15217,1,3,0)
+536 ;;=3^Tension-Type Headache,Unspec,Not Intractable
+537 ;;^UTILITY(U,$J,358.3,15217,1,4,0)
+538 ;;=4^G44.209
+539 ;;^UTILITY(U,$J,358.3,15217,2)
+540 ;;=^5003936
+541 ;;^UTILITY(U,$J,358.3,15218,0)
+542 ;;=R51.0^^56^642^3
+543 ;;^UTILITY(U,$J,358.3,15218,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,15218,1,3,0)
+546 ;;=3^Headache w/ Orthostatic Component,NEC
+547 ;;^UTILITY(U,$J,358.3,15218,1,4,0)
+548 ;;=4^R51.0
+549 ;;^UTILITY(U,$J,358.3,15218,2)
+550 ;;=^5159305
+551 ;;^UTILITY(U,$J,358.3,15219,0)
+552 ;;=R51.9^^56^642^4
+553 ;;^UTILITY(U,$J,358.3,15219,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,15219,1,3,0)
+556 ;;=3^Headache,Unspec
+557 ;;^UTILITY(U,$J,358.3,15219,1,4,0)
+558 ;;=4^R51.9
+559 ;;^UTILITY(U,$J,358.3,15219,2)
+560 ;;=^5159306
+561 ;;^UTILITY(U,$J,358.3,15220,0)
+562 ;;=I30.0^^56^643^5
+563 ;;^UTILITY(U,$J,358.3,15220,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,15220,1,3,0)
+566 ;;=3^Idiopathic Pericarditis,Acute Nonspec
+567 ;;^UTILITY(U,$J,358.3,15220,1,4,0)
+568 ;;=4^I30.0
+569 ;;^UTILITY(U,$J,358.3,15220,2)
+570 ;;=^5007157
+571 ;;^UTILITY(U,$J,358.3,15221,0)
+572 ;;=I34.8^^56^643^6
+573 ;;^UTILITY(U,$J,358.3,15221,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,15221,1,3,0)
+576 ;;=3^Mitral Valve Disorders,Nonrheumatic Other
+577 ;;^UTILITY(U,$J,358.3,15221,1,4,0)
+578 ;;=4^I34.8
+579 ;;^UTILITY(U,$J,358.3,15221,2)
+580 ;;=^5007172
+581 ;;^UTILITY(U,$J,358.3,15222,0)
+582 ;;=I34.0^^56^643^13
+583 ;;^UTILITY(U,$J,358.3,15222,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,15222,1,3,0)
+586 ;;=3^Nonrheumatic Mitral Valve Insufficiency
+587 ;;^UTILITY(U,$J,358.3,15222,1,4,0)
+588 ;;=4^I34.0
+589 ;;^UTILITY(U,$J,358.3,15222,2)
+590 ;;=^5007169
+591 ;;^UTILITY(U,$J,358.3,15223,0)
+592 ;;=I34.9^^56^643^12
+593 ;;^UTILITY(U,$J,358.3,15223,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,15223,1,3,0)
+596 ;;=3^Nonrheumatic Mitral Valve Disorder,Unspec
+597 ;;^UTILITY(U,$J,358.3,15223,1,4,0)
+598 ;;=4^I34.9
+599 ;;^UTILITY(U,$J,358.3,15223,2)
+600 ;;=^5007173
+601 ;;^UTILITY(U,$J,358.3,15224,0)
+602 ;;=I34.2^^56^643^7
+603 ;;^UTILITY(U,$J,358.3,15224,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,15224,1,3,0)
+606 ;;=3^Nonrhematic Mitral Valve Stenosis
+607 ;;^UTILITY(U,$J,358.3,15224,1,4,0)
+608 ;;=4^I34.2
+609 ;;^UTILITY(U,$J,358.3,15224,2)
+610 ;;=^5007171
+611 ;;^UTILITY(U,$J,358.3,15225,0)
+612 ;;=I35.0^^56^643^10
+613 ;;^UTILITY(U,$J,358.3,15225,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,15225,1,3,0)
+616 ;;=3^Nonrheumatic Aortic Valve Stenosis
+617 ;;^UTILITY(U,$J,358.3,15225,1,4,0)
+618 ;;=4^I35.0
+619 ;;^UTILITY(U,$J,358.3,15225,2)
+620 ;;=^5007174
+621 ;;^UTILITY(U,$J,358.3,15226,0)
+622 ;;=I35.1^^56^643^9
+623 ;;^UTILITY(U,$J,358.3,15226,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,15226,1,3,0)
+626 ;;=3^Nonrheumatic Aortic Valve Insufficiency
+627 ;;^UTILITY(U,$J,358.3,15226,1,4,0)
+628 ;;=4^I35.1
+629 ;;^UTILITY(U,$J,358.3,15226,2)
+630 ;;=^5007175
+631 ;;^UTILITY(U,$J,358.3,15227,0)
+632 ;;=I35.2^^56^643^11
+633 ;;^UTILITY(U,$J,358.3,15227,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,15227,1,3,0)
+636 ;;=3^Nonrheumatic Aortic Valve Stenosis w/ Insufficiency
+637 ;;^UTILITY(U,$J,358.3,15227,1,4,0)
+638 ;;=4^I35.2
+639 ;;^UTILITY(U,$J,358.3,15227,2)
+640 ;;=^5007176
+641 ;;^UTILITY(U,$J,358.3,15228,0)
+642 ;;=I35.9^^56^643^8
+643 ;;^UTILITY(U,$J,358.3,15228,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,15228,1,3,0)
+646 ;;=3^Nonrheumatic Aortic Valve Disorder,Unspec
+647 ;;^UTILITY(U,$J,358.3,15228,1,4,0)
+648 ;;=4^I35.9
+649 ;;^UTILITY(U,$J,358.3,15228,2)
+650 ;;=^5007178
+651 ;;^UTILITY(U,$J,358.3,15229,0)
+652 ;;=I38.^^56^643^4
+653 ;;^UTILITY(U,$J,358.3,15229,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,15229,1,3,0)
+656 ;;=3^Endocarditis,Valve Unspec
+657 ;;^UTILITY(U,$J,358.3,15229,1,4,0)
+658 ;;=4^I38.
+659 ;;^UTILITY(U,$J,358.3,15229,2)
+660 ;;=^40327
+661 ;;^UTILITY(U,$J,358.3,15230,0)
+662 ;;=I05.0^^56^643^18
+663 ;;^UTILITY(U,$J,358.3,15230,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,15230,1,3,0)
+666 ;;=3^Rheumatic Mitral Stenosis
+667 ;;^UTILITY(U,$J,358.3,15230,1,4,0)
+668 ;;=4^I05.0
+669 ;;^UTILITY(U,$J,358.3,15230,2)
+670 ;;=^5007041
+671 ;;^UTILITY(U,$J,358.3,15231,0)
+672 ;;=I05.8^^56^643^19
+673 ;;^UTILITY(U,$J,358.3,15231,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,15231,1,3,0)
+676 ;;=3^Rheumatic Mitral Valve Disease NEC
+677 ;;^UTILITY(U,$J,358.3,15231,1,4,0)
+678 ;;=4^I05.8
+679 ;;^UTILITY(U,$J,358.3,15231,2)
+680 ;;=^5007043
+681 ;;^UTILITY(U,$J,358.3,15232,0)
+682 ;;=I05.9^^56^643^20
+683 ;;^UTILITY(U,$J,358.3,15232,1,0)
+684 ;;=^358.31IA^4^2
+685 ;;^UTILITY(U,$J,358.3,15232,1,3,0)
+686 ;;=3^Rheumatic Mitral Valve Disease,Unspec
+687 ;;^UTILITY(U,$J,358.3,15232,1,4,0)
+688 ;;=4^I05.9
+689 ;;^UTILITY(U,$J,358.3,15232,2)
+690 ;;=^5007044
+691 ;;^UTILITY(U,$J,358.3,15233,0)
+692 ;;=I07.1^^56^643^21
+693 ;;^UTILITY(U,$J,358.3,15233,1,0)
+694 ;;=^358.31IA^4^2
