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

IBDEI0AI.m

Go to the documentation of this file.
IBDEI0AI ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,25398,1,3,0)
 ;;=3^Adjustment Disorder w/ Depressed Mood
 ;;^UTILITY(U,$J,358.3,25398,1,4,0)
 ;;=4^F43.21
 ;;^UTILITY(U,$J,358.3,25398,2)
 ;;=^331948
 ;;^UTILITY(U,$J,358.3,25399,0)
 ;;=F43.22^^114^1326^1
 ;;^UTILITY(U,$J,358.3,25399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25399,1,3,0)
 ;;=3^Adjustment Disorder w/ Anxiety
 ;;^UTILITY(U,$J,358.3,25399,1,4,0)
 ;;=4^F43.22
 ;;^UTILITY(U,$J,358.3,25399,2)
 ;;=^331949
 ;;^UTILITY(U,$J,358.3,25400,0)
 ;;=F43.23^^114^1326^3
 ;;^UTILITY(U,$J,358.3,25400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25400,1,3,0)
 ;;=3^Adjustment Disorder w/ Mixed Anxiety and Depressed Mood
 ;;^UTILITY(U,$J,358.3,25400,1,4,0)
 ;;=4^F43.23
 ;;^UTILITY(U,$J,358.3,25400,2)
 ;;=^331950
 ;;^UTILITY(U,$J,358.3,25401,0)
 ;;=F41.9^^114^1327^4
 ;;^UTILITY(U,$J,358.3,25401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25401,1,3,0)
 ;;=3^Anxiety Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,25401,1,4,0)
 ;;=4^F41.9
 ;;^UTILITY(U,$J,358.3,25401,2)
 ;;=^5003567
 ;;^UTILITY(U,$J,358.3,25402,0)
 ;;=F41.0^^114^1327^5
 ;;^UTILITY(U,$J,358.3,25402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25402,1,3,0)
 ;;=3^Anxiety,Episodic Paroxysmal
 ;;^UTILITY(U,$J,358.3,25402,1,4,0)
 ;;=4^F41.0
 ;;^UTILITY(U,$J,358.3,25402,2)
 ;;=^5003564
 ;;^UTILITY(U,$J,358.3,25403,0)
 ;;=F41.1^^114^1327^3
 ;;^UTILITY(U,$J,358.3,25403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25403,1,3,0)
 ;;=3^Anxiety Disorder,Generalized
 ;;^UTILITY(U,$J,358.3,25403,1,4,0)
 ;;=4^F41.1
 ;;^UTILITY(U,$J,358.3,25403,2)
 ;;=^50059
 ;;^UTILITY(U,$J,358.3,25404,0)
 ;;=F40.01^^114^1327^1
 ;;^UTILITY(U,$J,358.3,25404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25404,1,3,0)
 ;;=3^Agoraphobia w/ Panic Disorder
 ;;^UTILITY(U,$J,358.3,25404,1,4,0)
 ;;=4^F40.01
 ;;^UTILITY(U,$J,358.3,25404,2)
 ;;=^331911
 ;;^UTILITY(U,$J,358.3,25405,0)
 ;;=F40.02^^114^1327^2
 ;;^UTILITY(U,$J,358.3,25405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25405,1,3,0)
 ;;=3^Agoraphobia w/o Panic Disorder
 ;;^UTILITY(U,$J,358.3,25405,1,4,0)
 ;;=4^F40.02
 ;;^UTILITY(U,$J,358.3,25405,2)
 ;;=^5003543
 ;;^UTILITY(U,$J,358.3,25406,0)
 ;;=F43.10^^114^1327^9
 ;;^UTILITY(U,$J,358.3,25406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25406,1,3,0)
 ;;=3^PTSD,Unspec
 ;;^UTILITY(U,$J,358.3,25406,1,4,0)
 ;;=4^F43.10
 ;;^UTILITY(U,$J,358.3,25406,2)
 ;;=^5003570
 ;;^UTILITY(U,$J,358.3,25407,0)
 ;;=F43.12^^114^1327^8
 ;;^UTILITY(U,$J,358.3,25407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25407,1,3,0)
 ;;=3^PTSD,Chronic
 ;;^UTILITY(U,$J,358.3,25407,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,25407,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,25408,0)
 ;;=F42.8^^114^1327^6
 ;;^UTILITY(U,$J,358.3,25408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25408,1,3,0)
 ;;=3^Obsessive-Compulsive Disorder,Other
 ;;^UTILITY(U,$J,358.3,25408,1,4,0)
 ;;=4^F42.8
 ;;^UTILITY(U,$J,358.3,25408,2)
 ;;=^5138447
 ;;^UTILITY(U,$J,358.3,25409,0)
 ;;=F42.9^^114^1327^7
 ;;^UTILITY(U,$J,358.3,25409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25409,1,3,0)
 ;;=3^Obsessive-Compulsive Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,25409,1,4,0)
 ;;=4^F42.9
 ;;^UTILITY(U,$J,358.3,25409,2)
 ;;=^5138448
 ;;^UTILITY(U,$J,358.3,25410,0)
 ;;=E53.8^^114^1328^1
 ;;^UTILITY(U,$J,358.3,25410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25410,1,3,0)
 ;;=3^B Vitamin Deficiency
 ;;^UTILITY(U,$J,358.3,25410,1,4,0)
 ;;=4^E53.8
 ;;^UTILITY(U,$J,358.3,25410,2)
 ;;=^5002797
 ;;^UTILITY(U,$J,358.3,25411,0)
 ;;=R00.1^^114^1328^9
 ;;^UTILITY(U,$J,358.3,25411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25411,1,3,0)
 ;;=3^Bradycardia,Unspec
 ;;^UTILITY(U,$J,358.3,25411,1,4,0)
 ;;=4^R00.1
 ;;^UTILITY(U,$J,358.3,25411,2)
 ;;=^5019164
 ;;^UTILITY(U,$J,358.3,25412,0)
 ;;=J20.9^^114^1328^10
 ;;^UTILITY(U,$J,358.3,25412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25412,1,3,0)
 ;;=3^Bronchitis,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,25412,1,4,0)
 ;;=4^J20.9
 ;;^UTILITY(U,$J,358.3,25412,2)
 ;;=^5008195
 ;;^UTILITY(U,$J,358.3,25413,0)
 ;;=N32.0^^114^1328^8
 ;;^UTILITY(U,$J,358.3,25413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25413,1,3,0)
 ;;=3^Bladder-Neck Obstruction
 ;;^UTILITY(U,$J,358.3,25413,1,4,0)
 ;;=4^N32.0
 ;;^UTILITY(U,$J,358.3,25413,2)
 ;;=^5015649
 ;;^UTILITY(U,$J,358.3,25414,0)
 ;;=N40.0^^114^1328^3
 ;;^UTILITY(U,$J,358.3,25414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25414,1,3,0)
 ;;=3^BPH w/o Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,25414,1,4,0)
 ;;=4^N40.0
 ;;^UTILITY(U,$J,358.3,25414,2)
 ;;=^5015689
 ;;^UTILITY(U,$J,358.3,25415,0)
 ;;=N40.1^^114^1328^2
 ;;^UTILITY(U,$J,358.3,25415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25415,1,3,0)
 ;;=3^BPH w/ Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,25415,1,4,0)
 ;;=4^N40.1
 ;;^UTILITY(U,$J,358.3,25415,2)
 ;;=^5015690
 ;;^UTILITY(U,$J,358.3,25416,0)
 ;;=M71.50^^114^1328^11
 ;;^UTILITY(U,$J,358.3,25416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25416,1,3,0)
 ;;=3^Bursitis,Site Unspec NEC
 ;;^UTILITY(U,$J,358.3,25416,1,4,0)
 ;;=4^M71.50
 ;;^UTILITY(U,$J,358.3,25416,2)
 ;;=^5013190
 ;;^UTILITY(U,$J,358.3,25417,0)
 ;;=S39.012A^^114^1328^6
 ;;^UTILITY(U,$J,358.3,25417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25417,1,3,0)
 ;;=3^Back Strain,Lower,Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,25417,1,4,0)
 ;;=4^S39.012A
 ;;^UTILITY(U,$J,358.3,25417,2)
 ;;=^5026102
 ;;^UTILITY(U,$J,358.3,25418,0)
 ;;=M54.9^^114^1328^4
 ;;^UTILITY(U,$J,358.3,25418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25418,1,3,0)
 ;;=3^Back Pain,Generalized
 ;;^UTILITY(U,$J,358.3,25418,1,4,0)
 ;;=4^M54.9
 ;;^UTILITY(U,$J,358.3,25418,2)
 ;;=^5012314
 ;;^UTILITY(U,$J,358.3,25419,0)
 ;;=M54.5^^114^1328^5
 ;;^UTILITY(U,$J,358.3,25419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25419,1,3,0)
 ;;=3^Back Pain,Lower
 ;;^UTILITY(U,$J,358.3,25419,1,4,0)
 ;;=4^M54.5
 ;;^UTILITY(U,$J,358.3,25419,2)
 ;;=^5012311
 ;;^UTILITY(U,$J,358.3,25420,0)
 ;;=F50.81^^114^1328^7
 ;;^UTILITY(U,$J,358.3,25420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25420,1,3,0)
 ;;=3^Binge-Eating Disorder
 ;;^UTILITY(U,$J,358.3,25420,1,4,0)
 ;;=4^F50.81
 ;;^UTILITY(U,$J,358.3,25420,2)
 ;;=^8123226
 ;;^UTILITY(U,$J,358.3,25421,0)
 ;;=F31.10^^114^1329^2
 ;;^UTILITY(U,$J,358.3,25421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25421,1,3,0)
 ;;=3^Bipolar D/O,Crnt Epsd Manic w/o Psych Features,Unspec
 ;;^UTILITY(U,$J,358.3,25421,1,4,0)
 ;;=4^F31.10
 ;;^UTILITY(U,$J,358.3,25421,2)
 ;;=^5003495
 ;;^UTILITY(U,$J,358.3,25422,0)
 ;;=F31.30^^114^1329^1
 ;;^UTILITY(U,$J,358.3,25422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25422,1,3,0)
 ;;=3^Bipolar D/O,Crnt Epsd Depress,Mild/Mod,Unspec
 ;;^UTILITY(U,$J,358.3,25422,1,4,0)
 ;;=4^F31.30
 ;;^UTILITY(U,$J,358.3,25422,2)
 ;;=^5003500
 ;;^UTILITY(U,$J,358.3,25423,0)
 ;;=F31.60^^114^1329^3
 ;;^UTILITY(U,$J,358.3,25423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25423,1,3,0)
 ;;=3^Bipolar D/O,Crnt Epsd Mixed,Unspec
 ;;^UTILITY(U,$J,358.3,25423,1,4,0)
 ;;=4^F31.60
 ;;^UTILITY(U,$J,358.3,25423,2)
 ;;=^5003505
 ;;^UTILITY(U,$J,358.3,25424,0)
 ;;=F31.9^^114^1329^4
 ;;^UTILITY(U,$J,358.3,25424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25424,1,3,0)
 ;;=3^Bipolar D/O,Unspec
 ;;^UTILITY(U,$J,358.3,25424,1,4,0)
 ;;=4^F31.9
 ;;^UTILITY(U,$J,358.3,25424,2)
 ;;=^331892
 ;;^UTILITY(U,$J,358.3,25425,0)
 ;;=C15.9^^114^1330^6
 ;;^UTILITY(U,$J,358.3,25425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25425,1,3,0)
 ;;=3^Malig Neop,Esophagus,Unspec
 ;;^UTILITY(U,$J,358.3,25425,1,4,0)
 ;;=4^C15.9
 ;;^UTILITY(U,$J,358.3,25425,2)
 ;;=^5000919
 ;;^UTILITY(U,$J,358.3,25426,0)
 ;;=C18.9^^114^1330^5
 ;;^UTILITY(U,$J,358.3,25426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25426,1,3,0)
 ;;=3^Malig Neop,Colon,Unspec
 ;;^UTILITY(U,$J,358.3,25426,1,4,0)
 ;;=4^C18.9
 ;;^UTILITY(U,$J,358.3,25426,2)
 ;;=^5000929
 ;;^UTILITY(U,$J,358.3,25427,0)
 ;;=C32.9^^114^1330^7
 ;;^UTILITY(U,$J,358.3,25427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25427,1,3,0)
 ;;=3^Malig Neop,Larynx,Unspec
 ;;^UTILITY(U,$J,358.3,25427,1,4,0)
 ;;=4^C32.9
 ;;^UTILITY(U,$J,358.3,25427,2)
 ;;=^5000956
 ;;^UTILITY(U,$J,358.3,25428,0)
 ;;=C34.91^^114^1330^13
 ;;^UTILITY(U,$J,358.3,25428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25428,1,3,0)
 ;;=3^Malig Neop,Rt Bronchus/Lung,Unspec Part
 ;;^UTILITY(U,$J,358.3,25428,1,4,0)
 ;;=4^C34.91
 ;;^UTILITY(U,$J,358.3,25428,2)
 ;;=^5000967
 ;;^UTILITY(U,$J,358.3,25429,0)
 ;;=C34.92^^114^1330^9
 ;;^UTILITY(U,$J,358.3,25429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25429,1,3,0)
 ;;=3^Malig Neop,Lt Bronchus/Lung,Unspec Part
 ;;^UTILITY(U,$J,358.3,25429,1,4,0)
 ;;=4^C34.92
 ;;^UTILITY(U,$J,358.3,25429,2)
 ;;=^5000968
 ;;^UTILITY(U,$J,358.3,25430,0)
 ;;=C44.91^^114^1330^1
 ;;^UTILITY(U,$J,358.3,25430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25430,1,3,0)
 ;;=3^BCC of Skin,Unspec
 ;;^UTILITY(U,$J,358.3,25430,1,4,0)
 ;;=4^C44.91
 ;;^UTILITY(U,$J,358.3,25430,2)
 ;;=^5001092
 ;;^UTILITY(U,$J,358.3,25431,0)
 ;;=C44.99^^114^1330^15
 ;;^UTILITY(U,$J,358.3,25431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25431,1,3,0)
 ;;=3^Malig Neop,Skin,Oth Spec,Unspec
 ;;^UTILITY(U,$J,358.3,25431,1,4,0)
 ;;=4^C44.99
 ;;^UTILITY(U,$J,358.3,25431,2)
 ;;=^5001094
 ;;^UTILITY(U,$J,358.3,25432,0)
 ;;=C50.912^^114^1330^8
 ;;^UTILITY(U,$J,358.3,25432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25432,1,3,0)
 ;;=3^Malig Neop,Lt Breast,Female,Unspec Site
 ;;^UTILITY(U,$J,358.3,25432,1,4,0)
 ;;=4^C50.912
 ;;^UTILITY(U,$J,358.3,25432,2)
 ;;=^5001196
 ;;^UTILITY(U,$J,358.3,25433,0)
 ;;=C50.911^^114^1330^12
 ;;^UTILITY(U,$J,358.3,25433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25433,1,3,0)
 ;;=3^Malig Neop,Rt Breast,Female,Unspec Site
 ;;^UTILITY(U,$J,358.3,25433,1,4,0)
 ;;=4^C50.911
 ;;^UTILITY(U,$J,358.3,25433,2)
 ;;=^5001195
 ;;^UTILITY(U,$J,358.3,25434,0)
 ;;=C61.^^114^1330^11
 ;;^UTILITY(U,$J,358.3,25434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25434,1,3,0)
 ;;=3^Malig Neop,Prostate
 ;;^UTILITY(U,$J,358.3,25434,1,4,0)
 ;;=4^C61.
 ;;^UTILITY(U,$J,358.3,25434,2)
 ;;=^267239
 ;;^UTILITY(U,$J,358.3,25435,0)
 ;;=C67.9^^114^1330^2
 ;;^UTILITY(U,$J,358.3,25435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25435,1,3,0)
 ;;=3^Malig Neop,Bladder,Unspec
 ;;^UTILITY(U,$J,358.3,25435,1,4,0)
 ;;=4^C67.9
 ;;^UTILITY(U,$J,358.3,25435,2)
 ;;=^5001263
 ;;^UTILITY(U,$J,358.3,25436,0)
 ;;=C64.2^^114^1330^10
 ;;^UTILITY(U,$J,358.3,25436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25436,1,3,0)
 ;;=3^Malig Neop,Lt Kidney,Except Renal Pelvis
 ;;^UTILITY(U,$J,358.3,25436,1,4,0)
 ;;=4^C64.2
 ;;^UTILITY(U,$J,358.3,25436,2)
 ;;=^5001249
 ;;^UTILITY(U,$J,358.3,25437,0)
 ;;=C64.1^^114^1330^14
 ;;^UTILITY(U,$J,358.3,25437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25437,1,3,0)
 ;;=3^Malig Neop,Rt Kidney,Except Renal Pelvis
 ;;^UTILITY(U,$J,358.3,25437,1,4,0)
 ;;=4^C64.1
 ;;^UTILITY(U,$J,358.3,25437,2)
 ;;=^5001248
 ;;^UTILITY(U,$J,358.3,25438,0)
 ;;=C79.51^^114^1330^4
 ;;^UTILITY(U,$J,358.3,25438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25438,1,3,0)
 ;;=3^Malig Neop,Bone,Secondary
 ;;^UTILITY(U,$J,358.3,25438,1,4,0)
 ;;=4^C79.51
 ;;^UTILITY(U,$J,358.3,25438,2)
 ;;=^5001350
 ;;^UTILITY(U,$J,358.3,25439,0)
 ;;=C79.52^^114^1330^3
 ;;^UTILITY(U,$J,358.3,25439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25439,1,3,0)
 ;;=3^Malig Neop,Bone Marrow,Secondary
 ;;^UTILITY(U,$J,358.3,25439,1,4,0)
 ;;=4^C79.52
 ;;^UTILITY(U,$J,358.3,25439,2)
 ;;=^5001351
 ;;^UTILITY(U,$J,358.3,25440,0)
 ;;=C44.92^^114^1330^16
 ;;^UTILITY(U,$J,358.3,25440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25440,1,3,0)
 ;;=3^SCC of Skin,Unspec
 ;;^UTILITY(U,$J,358.3,25440,1,4,0)
 ;;=4^C44.92
 ;;^UTILITY(U,$J,358.3,25440,2)
 ;;=^5001093
 ;;^UTILITY(U,$J,358.3,25441,0)
 ;;=K63.5^^114^1331^15
 ;;^UTILITY(U,$J,358.3,25441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25441,1,3,0)
 ;;=3^Colon Polyp
 ;;^UTILITY(U,$J,358.3,25441,1,4,0)
 ;;=4^K63.5
 ;;^UTILITY(U,$J,358.3,25441,2)
 ;;=^5008765
 ;;^UTILITY(U,$J,358.3,25442,0)
 ;;=G56.01^^114^1331^5
 ;;^UTILITY(U,$J,358.3,25442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25442,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Rt Upper Limb
 ;;^UTILITY(U,$J,358.3,25442,1,4,0)
 ;;=4^G56.01
 ;;^UTILITY(U,$J,358.3,25442,2)
 ;;=^5004018
 ;;^UTILITY(U,$J,358.3,25443,0)
 ;;=G56.02^^114^1331^4
 ;;^UTILITY(U,$J,358.3,25443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25443,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Lt Upper Limb
 ;;^UTILITY(U,$J,358.3,25443,1,4,0)
 ;;=4^G56.02
 ;;^UTILITY(U,$J,358.3,25443,2)
 ;;=^5004019
 ;;^UTILITY(U,$J,358.3,25444,0)
 ;;=H26.9^^114^1331^6
 ;;^UTILITY(U,$J,358.3,25444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25444,1,3,0)
 ;;=3^Cataract,Unspec
 ;;^UTILITY(U,$J,358.3,25444,1,4,0)
 ;;=4^H26.9
 ;;^UTILITY(U,$J,358.3,25444,2)
 ;;=^5005363
 ;;^UTILITY(U,$J,358.3,25445,0)
 ;;=J44.9^^114^1331^1
 ;;^UTILITY(U,$J,358.3,25445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25445,1,3,0)
 ;;=3^COPD,Unspec
 ;;^UTILITY(U,$J,358.3,25445,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,25445,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,25446,0)
 ;;=K59.09^^114^1331^16
 ;;^UTILITY(U,$J,358.3,25446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25446,1,3,0)
 ;;=3^Constipation
 ;;^UTILITY(U,$J,358.3,25446,1,4,0)
 ;;=4^K59.09
 ;;^UTILITY(U,$J,358.3,25446,2)
 ;;=^323540
 ;;^UTILITY(U,$J,358.3,25447,0)
 ;;=K74.60^^114^1331^13
 ;;^UTILITY(U,$J,358.3,25447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25447,1,3,0)
 ;;=3^Cirrhosis of Liver,Unspec
 ;;^UTILITY(U,$J,358.3,25447,1,4,0)
 ;;=4^K74.60
 ;;^UTILITY(U,$J,358.3,25447,2)
 ;;=^5008822
 ;;^UTILITY(U,$J,358.3,25448,0)
 ;;=K80.20^^114^1331^3
 ;;^UTILITY(U,$J,358.3,25448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25448,1,3,0)
 ;;=3^Calculus of Gallbladder w/o Cholecystitis w/o Obst
 ;;^UTILITY(U,$J,358.3,25448,1,4,0)
 ;;=4^K80.20
 ;;^UTILITY(U,$J,358.3,25448,2)
 ;;=^5008846
 ;;^UTILITY(U,$J,358.3,25449,0)
 ;;=L03.90^^114^1331^11
 ;;^UTILITY(U,$J,358.3,25449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25449,1,3,0)
 ;;=3^Cellulitis,Unspec
 ;;^UTILITY(U,$J,358.3,25449,1,4,0)
 ;;=4^L03.90
 ;;^UTILITY(U,$J,358.3,25449,2)
 ;;=^5009067
 ;;^UTILITY(U,$J,358.3,25450,0)
 ;;=R05.^^114^1331^17
 ;;^UTILITY(U,$J,358.3,25450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25450,1,3,0)
 ;;=3^Cough
 ;;^UTILITY(U,$J,358.3,25450,1,4,0)
 ;;=4^R05.
 ;;^UTILITY(U,$J,358.3,25450,2)
 ;;=^5019179
 ;;^UTILITY(U,$J,358.3,25451,0)
 ;;=N18.9^^114^1331^12
 ;;^UTILITY(U,$J,358.3,25451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25451,1,3,0)
 ;;=3^Chronic Kidney Disease,Unspec
 ;;^UTILITY(U,$J,358.3,25451,1,4,0)
 ;;=4^N18.9
 ;;^UTILITY(U,$J,358.3,25451,2)
 ;;=^332812
 ;;^UTILITY(U,$J,358.3,25452,0)
 ;;=L03.011^^114^1331^9
 ;;^UTILITY(U,$J,358.3,25452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25452,1,3,0)
 ;;=3^Cellulitis,Rt Finger
 ;;^UTILITY(U,$J,358.3,25452,1,4,0)
 ;;=4^L03.011
 ;;^UTILITY(U,$J,358.3,25452,2)
 ;;=^5009019
 ;;^UTILITY(U,$J,358.3,25453,0)
 ;;=L03.012^^114^1331^7
 ;;^UTILITY(U,$J,358.3,25453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25453,1,3,0)
 ;;=3^Cellulitis,Lt Finger
 ;;^UTILITY(U,$J,358.3,25453,1,4,0)
 ;;=4^L03.012
 ;;^UTILITY(U,$J,358.3,25453,2)
 ;;=^5009020
 ;;^UTILITY(U,$J,358.3,25454,0)
 ;;=L03.031^^114^1331^10
 ;;^UTILITY(U,$J,358.3,25454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25454,1,3,0)
 ;;=3^Cellulitis,Rt Toe
 ;;^UTILITY(U,$J,358.3,25454,1,4,0)
 ;;=4^L03.031
 ;;^UTILITY(U,$J,358.3,25454,2)
 ;;=^5009025
 ;;^UTILITY(U,$J,358.3,25455,0)
 ;;=L03.032^^114^1331^8
 ;;^UTILITY(U,$J,358.3,25455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25455,1,3,0)
 ;;=3^Cellulitis,Lt Toe
 ;;^UTILITY(U,$J,358.3,25455,1,4,0)
 ;;=4^L03.032
 ;;^UTILITY(U,$J,358.3,25455,2)
 ;;=^5009026
 ;;^UTILITY(U,$J,358.3,25456,0)
 ;;=R25.2^^114^1331^18
 ;;^UTILITY(U,$J,358.3,25456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25456,1,3,0)
 ;;=3^Cramp & Spasm
 ;;^UTILITY(U,$J,358.3,25456,1,4,0)
 ;;=4^R25.2
 ;;^UTILITY(U,$J,358.3,25456,2)
 ;;=^5019301
 ;;^UTILITY(U,$J,358.3,25457,0)
 ;;=I69.919^^114^1331^14
 ;;^UTILITY(U,$J,358.3,25457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25457,1,3,0)
 ;;=3^Cognitive Deficits Following Unspec Cerebvasc Dz
 ;;^UTILITY(U,$J,358.3,25457,1,4,0)
 ;;=4^I69.919
 ;;^UTILITY(U,$J,358.3,25457,2)
 ;;=^5138667
 ;;^UTILITY(U,$J,358.3,25458,0)
 ;;=R11.15^^114^1331^19
 ;;^UTILITY(U,$J,358.3,25458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25458,1,3,0)
 ;;=3^Cyclical Vomiting Syndrome Unrelated to Migraine
 ;;^UTILITY(U,$J,358.3,25458,1,4,0)
 ;;=4^R11.15
 ;;^UTILITY(U,$J,358.3,25458,2)
 ;;=^5158141
 ;;^UTILITY(U,$J,358.3,25459,0)
 ;;=G43.A1^^114^1331^20
 ;;^UTILITY(U,$J,358.3,25459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25459,1,3,0)
 ;;=3^Cyclical Vomiting,in Migraine,Intractable
 ;;^UTILITY(U,$J,358.3,25459,1,4,0)
 ;;=4^G43.A1
 ;;^UTILITY(U,$J,358.3,25459,2)
 ;;=^5003913
 ;;^UTILITY(U,$J,358.3,25460,0)
 ;;=G43.A0^^114^1331^21
 ;;^UTILITY(U,$J,358.3,25460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25460,1,3,0)
 ;;=3^Cyclical Vomiting,in Migraine,Not Intractable
 ;;^UTILITY(U,$J,358.3,25460,1,4,0)
 ;;=4^G43.A0
 ;;^UTILITY(U,$J,358.3,25460,2)
 ;;=^5003912
 ;;^UTILITY(U,$J,358.3,25461,0)
 ;;=U07.1^^114^1331^2
 ;;^UTILITY(U,$J,358.3,25461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25461,1,3,0)
 ;;=3^COVID-19
 ;;^UTILITY(U,$J,358.3,25461,1,4,0)
 ;;=4^U07.1
 ;;^UTILITY(U,$J,358.3,25461,2)
 ;;=^5159070
 ;;^UTILITY(U,$J,358.3,25462,0)
 ;;=E86.0^^114^1332^1
 ;;^UTILITY(U,$J,358.3,25462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25462,1,3,0)
 ;;=3^Dehydration
 ;;^UTILITY(U,$J,358.3,25462,1,4,0)
 ;;=4^E86.0
 ;;^UTILITY(U,$J,358.3,25462,2)
 ;;=^332743
 ;;^UTILITY(U,$J,358.3,25463,0)
 ;;=K57.30^^114^1332^5
 ;;^UTILITY(U,$J,358.3,25463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25463,1,3,0)
 ;;=3^Dvrtclos of Lg Int w/o Perf/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,25463,1,4,0)
 ;;=4^K57.30
 ;;^UTILITY(U,$J,358.3,25463,2)
 ;;=^5008723
 ;;^UTILITY(U,$J,358.3,25464,0)
 ;;=L25.9^^114^1332^2
 ;;^UTILITY(U,$J,358.3,25464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25464,1,3,0)
 ;;=3^Dermatitis,Contact,Unspec Cause
 ;;^UTILITY(U,$J,358.3,25464,1,4,0)
 ;;=4^L25.9
 ;;^UTILITY(U,$J,358.3,25464,2)
 ;;=^5133647
 ;;^UTILITY(U,$J,358.3,25465,0)
 ;;=R42.^^114^1332^4
 ;;^UTILITY(U,$J,358.3,25465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25465,1,3,0)
 ;;=3^Dizziness & Giddiness
 ;;^UTILITY(U,$J,358.3,25465,1,4,0)
 ;;=4^R42.
 ;;^UTILITY(U,$J,358.3,25465,2)
 ;;=^5019450
 ;;^UTILITY(U,$J,358.3,25466,0)
 ;;=R06.00^^114^1332^11
 ;;^UTILITY(U,$J,358.3,25466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25466,1,3,0)
 ;;=3^Dyspnea,Unspec
 ;;^UTILITY(U,$J,358.3,25466,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,25466,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,25467,0)
 ;;=R13.10^^114^1332^10
 ;;^UTILITY(U,$J,358.3,25467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25467,1,3,0)
 ;;=3^Dysphagia,Unspec
 ;;^UTILITY(U,$J,358.3,25467,1,4,0)
 ;;=4^R13.10