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

IBDEI0AS.m

Go to the documentation of this file.
IBDEI0AS ; ; 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,26406,1,4,0)
 ;;=4^E10.3592
 ;;^UTILITY(U,$J,358.3,26406,2)
 ;;=^5138324
 ;;^UTILITY(U,$J,358.3,26407,0)
 ;;=E11.3211^^81^1055^4
 ;;^UTILITY(U,$J,358.3,26407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26407,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26407,1,4,0)
 ;;=4^E11.3211
 ;;^UTILITY(U,$J,358.3,26407,2)
 ;;=^5138331
 ;;^UTILITY(U,$J,358.3,26408,0)
 ;;=E11.3212^^81^1055^12
 ;;^UTILITY(U,$J,358.3,26408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26408,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26408,1,4,0)
 ;;=4^E11.3212
 ;;^UTILITY(U,$J,358.3,26408,2)
 ;;=^5138332
 ;;^UTILITY(U,$J,358.3,26409,0)
 ;;=E11.3291^^81^1055^5
 ;;^UTILITY(U,$J,358.3,26409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26409,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26409,1,4,0)
 ;;=4^E11.3291
 ;;^UTILITY(U,$J,358.3,26409,2)
 ;;=^5138335
 ;;^UTILITY(U,$J,358.3,26410,0)
 ;;=E11.3292^^81^1055^13
 ;;^UTILITY(U,$J,358.3,26410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26410,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26410,1,4,0)
 ;;=4^E11.3292
 ;;^UTILITY(U,$J,358.3,26410,2)
 ;;=^5138336
 ;;^UTILITY(U,$J,358.3,26411,0)
 ;;=E11.3311^^81^1055^6
 ;;^UTILITY(U,$J,358.3,26411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26411,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26411,1,4,0)
 ;;=4^E11.3311
 ;;^UTILITY(U,$J,358.3,26411,2)
 ;;=^5138339
 ;;^UTILITY(U,$J,358.3,26412,0)
 ;;=E11.3312^^81^1055^14
 ;;^UTILITY(U,$J,358.3,26412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26412,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26412,1,4,0)
 ;;=4^E11.3312
 ;;^UTILITY(U,$J,358.3,26412,2)
 ;;=^5138340
 ;;^UTILITY(U,$J,358.3,26413,0)
 ;;=E11.3391^^81^1055^7
 ;;^UTILITY(U,$J,358.3,26413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26413,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26413,1,4,0)
 ;;=4^E11.3391
 ;;^UTILITY(U,$J,358.3,26413,2)
 ;;=^5138343
 ;;^UTILITY(U,$J,358.3,26414,0)
 ;;=E11.3392^^81^1055^15
 ;;^UTILITY(U,$J,358.3,26414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26414,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26414,1,4,0)
 ;;=4^E11.3392
 ;;^UTILITY(U,$J,358.3,26414,2)
 ;;=^5138344
 ;;^UTILITY(U,$J,358.3,26415,0)
 ;;=E11.3411^^81^1055^8
 ;;^UTILITY(U,$J,358.3,26415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26415,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26415,1,4,0)
 ;;=4^E11.3411
 ;;^UTILITY(U,$J,358.3,26415,2)
 ;;=^5138347
 ;;^UTILITY(U,$J,358.3,26416,0)
 ;;=E11.3412^^81^1055^16
 ;;^UTILITY(U,$J,358.3,26416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26416,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26416,1,4,0)
 ;;=4^E11.3412
 ;;^UTILITY(U,$J,358.3,26416,2)
 ;;=^5138348
 ;;^UTILITY(U,$J,358.3,26417,0)
 ;;=E11.3491^^81^1055^9
 ;;^UTILITY(U,$J,358.3,26417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26417,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26417,1,4,0)
 ;;=4^E11.3491
 ;;^UTILITY(U,$J,358.3,26417,2)
 ;;=^5138351
 ;;^UTILITY(U,$J,358.3,26418,0)
 ;;=E11.3492^^81^1055^17
 ;;^UTILITY(U,$J,358.3,26418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26418,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26418,1,4,0)
 ;;=4^E11.3492
 ;;^UTILITY(U,$J,358.3,26418,2)
 ;;=^5138352
 ;;^UTILITY(U,$J,358.3,26419,0)
 ;;=E11.3511^^81^1055^10
 ;;^UTILITY(U,$J,358.3,26419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26419,1,3,0)
 ;;=3^DM Type 2 w/ PDR w/ Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26419,1,4,0)
 ;;=4^E11.3511
 ;;^UTILITY(U,$J,358.3,26419,2)
 ;;=^5138355
 ;;^UTILITY(U,$J,358.3,26420,0)
 ;;=E11.3512^^81^1055^18
 ;;^UTILITY(U,$J,358.3,26420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26420,1,3,0)
 ;;=3^DM Type 2 w/ PDR w/ Macular Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26420,1,4,0)
 ;;=4^E11.3512
 ;;^UTILITY(U,$J,358.3,26420,2)
 ;;=^5138356
 ;;^UTILITY(U,$J,358.3,26421,0)
 ;;=E11.3591^^81^1055^11
 ;;^UTILITY(U,$J,358.3,26421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26421,1,3,0)
 ;;=3^DM Type 2 w/ PDR w/o Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26421,1,4,0)
 ;;=4^E11.3591
 ;;^UTILITY(U,$J,358.3,26421,2)
 ;;=^5138375
 ;;^UTILITY(U,$J,358.3,26422,0)
 ;;=E11.3592^^81^1055^19
 ;;^UTILITY(U,$J,358.3,26422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26422,1,3,0)
 ;;=3^DM Type 2 w/ PDR w/o Macular Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26422,1,4,0)
 ;;=4^E11.3592
 ;;^UTILITY(U,$J,358.3,26422,2)
 ;;=^5138376
 ;;^UTILITY(U,$J,358.3,26423,0)
 ;;=H35.81^^81^1055^3
 ;;^UTILITY(U,$J,358.3,26423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26423,1,3,0)
 ;;=3^Retinal Edema/CME Other Etiology
 ;;^UTILITY(U,$J,358.3,26423,1,4,0)
 ;;=4^H35.81
 ;;^UTILITY(U,$J,358.3,26423,2)
 ;;=^5005715
 ;;^UTILITY(U,$J,358.3,26424,0)
 ;;=U07.1^^81^1056^1
 ;;^UTILITY(U,$J,358.3,26424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26424,1,3,0)
 ;;=3^COVID-19
 ;;^UTILITY(U,$J,358.3,26424,1,4,0)
 ;;=4^U07.1
 ;;^UTILITY(U,$J,358.3,26424,2)
 ;;=^5159070
 ;;^UTILITY(U,$J,358.3,26425,0)
 ;;=Z20.828^^81^1056^2
 ;;^UTILITY(U,$J,358.3,26425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26425,1,3,0)
 ;;=3^Contact/Exposure to Oth Viral Communicable Diseases
 ;;^UTILITY(U,$J,358.3,26425,1,4,0)
 ;;=4^Z20.828
 ;;^UTILITY(U,$J,358.3,26425,2)
 ;;=^5062774
 ;;^UTILITY(U,$J,358.3,26426,0)
 ;;=R05.9^^81^1056^3
 ;;^UTILITY(U,$J,358.3,26426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26426,1,3,0)
 ;;=3^Cough
 ;;^UTILITY(U,$J,358.3,26426,1,4,0)
 ;;=4^R05.9
 ;;^UTILITY(U,$J,358.3,26426,2)
 ;;=^5161232
 ;;^UTILITY(U,$J,358.3,26427,0)
 ;;=R50.9^^81^1056^4
 ;;^UTILITY(U,$J,358.3,26427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26427,1,3,0)
 ;;=3^Fever,Unspec
 ;;^UTILITY(U,$J,358.3,26427,1,4,0)
 ;;=4^R50.9
 ;;^UTILITY(U,$J,358.3,26427,2)
 ;;=^5019512
 ;;^UTILITY(U,$J,358.3,26428,0)
 ;;=Z03.818^^81^1056^5
 ;;^UTILITY(U,$J,358.3,26428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26428,1,3,0)
 ;;=3^Observation of Suspected Expsr to Bio Agents Ruled Out
 ;;^UTILITY(U,$J,358.3,26428,1,4,0)
 ;;=4^Z03.818
 ;;^UTILITY(U,$J,358.3,26428,2)
 ;;=^5062655
 ;;^UTILITY(U,$J,358.3,26429,0)
 ;;=Z11.59^^81^1056^6
 ;;^UTILITY(U,$J,358.3,26429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26429,1,3,0)
 ;;=3^Screening for Oth Viral Diseases
 ;;^UTILITY(U,$J,358.3,26429,1,4,0)
 ;;=4^Z11.59
 ;;^UTILITY(U,$J,358.3,26429,2)
 ;;=^5062675
 ;;^UTILITY(U,$J,358.3,26430,0)
 ;;=R06.02^^81^1056^7
 ;;^UTILITY(U,$J,358.3,26430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26430,1,3,0)
 ;;=3^Shortness of Breath
 ;;^UTILITY(U,$J,358.3,26430,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,26430,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,26431,0)
 ;;=99212^^82^1057^2
 ;;^UTILITY(U,$J,358.3,26431,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26431,1,1,0)
 ;;=1^SF MDM or 10-19 min          
 ;;^UTILITY(U,$J,358.3,26431,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,26432,0)
 ;;=99213^^82^1057^3
 ;;^UTILITY(U,$J,358.3,26432,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26432,1,1,0)
 ;;=1^Low Complex MDM or 20-29 min 
 ;;^UTILITY(U,$J,358.3,26432,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,26433,0)
 ;;=99214^^82^1057^4
 ;;^UTILITY(U,$J,358.3,26433,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26433,1,1,0)
 ;;=1^Mod Complex MDM or 30-39 min     
 ;;^UTILITY(U,$J,358.3,26433,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,26434,0)
 ;;=99211^^82^1057^1
 ;;^UTILITY(U,$J,358.3,26434,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26434,1,1,0)
 ;;=1^Brief (No MD seen)
 ;;^UTILITY(U,$J,358.3,26434,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,26435,0)
 ;;=99215^^82^1057^5
 ;;^UTILITY(U,$J,358.3,26435,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26435,1,1,0)
 ;;=1^High Complex MDM or 40-54 min
 ;;^UTILITY(U,$J,358.3,26435,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,26436,0)
 ;;=99242^^82^1058^2
 ;;^UTILITY(U,$J,358.3,26436,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26436,1,1,0)
 ;;=1^Exp Problem Focused,SF MDM
 ;;^UTILITY(U,$J,358.3,26436,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,26437,0)
 ;;=99243^^82^1058^3
 ;;^UTILITY(U,$J,358.3,26437,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26437,1,1,0)
 ;;=1^Detailed Visit,Low Complex MDM
 ;;^UTILITY(U,$J,358.3,26437,1,2,0)
 ;;=2^99243
 ;;^UTILITY(U,$J,358.3,26438,0)
 ;;=99244^^82^1058^4
 ;;^UTILITY(U,$J,358.3,26438,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26438,1,1,0)
 ;;=1^Comprehensive,Mod Complex MDM
 ;;^UTILITY(U,$J,358.3,26438,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,26439,0)
 ;;=99245^^82^1058^5
 ;;^UTILITY(U,$J,358.3,26439,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26439,1,1,0)
 ;;=1^Comprehensive,High Complex MDM
 ;;^UTILITY(U,$J,358.3,26439,1,2,0)
 ;;=2^99245
 ;;^UTILITY(U,$J,358.3,26440,0)
 ;;=99241^^82^1058^1
 ;;^UTILITY(U,$J,358.3,26440,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26440,1,1,0)
 ;;=1^Problem Focused,SF MDM
 ;;^UTILITY(U,$J,358.3,26440,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,26441,0)
 ;;=99024^^82^1059^1
 ;;^UTILITY(U,$J,358.3,26441,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26441,1,1,0)
 ;;=1^Post Op Follow Up Visit
 ;;^UTILITY(U,$J,358.3,26441,1,2,0)
 ;;=2^99024
 ;;^UTILITY(U,$J,358.3,26442,0)
 ;;=99202^^82^1060^1
 ;;^UTILITY(U,$J,358.3,26442,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26442,1,1,0)
 ;;=1^SF MDM or 15-29 min
 ;;^UTILITY(U,$J,358.3,26442,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,26443,0)
 ;;=99203^^82^1060^2
 ;;^UTILITY(U,$J,358.3,26443,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26443,1,1,0)
 ;;=1^Low Complex MDM or 30-44 min
 ;;^UTILITY(U,$J,358.3,26443,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,26444,0)
 ;;=99204^^82^1060^3
 ;;^UTILITY(U,$J,358.3,26444,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26444,1,1,0)
 ;;=1^Mod Complex MDM or 45-59 min
 ;;^UTILITY(U,$J,358.3,26444,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,26445,0)
 ;;=99205^^82^1060^4
 ;;^UTILITY(U,$J,358.3,26445,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,26445,1,1,0)
 ;;=1^High Complex MDM or 60-74 min
 ;;^UTILITY(U,$J,358.3,26445,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,26446,0)
 ;;=D50.9^^83^1061^12
 ;;^UTILITY(U,$J,358.3,26446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26446,1,3,0)
 ;;=3^Anemia,Iron Deficiency
 ;;^UTILITY(U,$J,358.3,26446,1,4,0)
 ;;=4^D50.9
 ;;^UTILITY(U,$J,358.3,26446,2)
 ;;=^5002283
 ;;^UTILITY(U,$J,358.3,26447,0)
 ;;=D64.9^^83^1061^13
 ;;^UTILITY(U,$J,358.3,26447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26447,1,3,0)
 ;;=3^Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,26447,1,4,0)
 ;;=4^D64.9
 ;;^UTILITY(U,$J,358.3,26447,2)
 ;;=^5002351
 ;;^UTILITY(U,$J,358.3,26448,0)
 ;;=F41.9^^83^1061^16
 ;;^UTILITY(U,$J,358.3,26448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26448,1,3,0)
 ;;=3^Anxiety Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,26448,1,4,0)
 ;;=4^F41.9
 ;;^UTILITY(U,$J,358.3,26448,2)
 ;;=^5003567
 ;;^UTILITY(U,$J,358.3,26449,0)
 ;;=F10.20^^83^1061^8
 ;;^UTILITY(U,$J,358.3,26449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26449,1,3,0)
 ;;=3^Alcohol Dependence Uncomplicated
 ;;^UTILITY(U,$J,358.3,26449,1,4,0)
 ;;=4^F10.20
 ;;^UTILITY(U,$J,358.3,26449,2)
 ;;=^5003081
 ;;^UTILITY(U,$J,358.3,26450,0)
 ;;=G30.9^^83^1061^11
 ;;^UTILITY(U,$J,358.3,26450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26450,1,3,0)
 ;;=3^Alzheimer's Disease,Unspec
 ;;^UTILITY(U,$J,358.3,26450,1,4,0)
 ;;=4^G30.9
 ;;^UTILITY(U,$J,358.3,26450,2)
 ;;=^5003808
 ;;^UTILITY(U,$J,358.3,26451,0)
 ;;=I20.9^^83^1061^14
 ;;^UTILITY(U,$J,358.3,26451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26451,1,3,0)
 ;;=3^Angina Pectoris,Unspec
 ;;^UTILITY(U,$J,358.3,26451,1,4,0)
 ;;=4^I20.9
 ;;^UTILITY(U,$J,358.3,26451,2)
 ;;=^5007079
 ;;^UTILITY(U,$J,358.3,26452,0)
 ;;=I25.10^^83^1061^19
 ;;^UTILITY(U,$J,358.3,26452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26452,1,3,0)
 ;;=3^Athscl Hrt Disease w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,26452,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,26452,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,26453,0)
 ;;=K46.9^^83^1061^2
 ;;^UTILITY(U,$J,358.3,26453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26453,1,3,0)
 ;;=3^Abdominal Hernia w/o Obst/Gangr
 ;;^UTILITY(U,$J,358.3,26453,1,4,0)
 ;;=4^K46.9
 ;;^UTILITY(U,$J,358.3,26453,2)
 ;;=^5008623
 ;;^UTILITY(U,$J,358.3,26454,0)
 ;;=I48.91^^83^1061^20
 ;;^UTILITY(U,$J,358.3,26454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26454,1,3,0)
 ;;=3^Atrial Fibrillation,Unspec
 ;;^UTILITY(U,$J,358.3,26454,1,4,0)
 ;;=4^I48.91
 ;;^UTILITY(U,$J,358.3,26454,2)
 ;;=^5007229
 ;;^UTILITY(U,$J,358.3,26455,0)
 ;;=I48.92^^83^1061^21
 ;;^UTILITY(U,$J,358.3,26455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26455,1,3,0)
 ;;=3^Atrial Flutter,Unspec
 ;;^UTILITY(U,$J,358.3,26455,1,4,0)
 ;;=4^I48.92
 ;;^UTILITY(U,$J,358.3,26455,2)
 ;;=^5007230
 ;;^UTILITY(U,$J,358.3,26456,0)
 ;;=I71.4^^83^1061^1
 ;;^UTILITY(U,$J,358.3,26456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26456,1,3,0)
 ;;=3^AAA w/o Rupture
 ;;^UTILITY(U,$J,358.3,26456,1,4,0)
 ;;=4^I71.4
 ;;^UTILITY(U,$J,358.3,26456,2)
 ;;=^5007789
 ;;^UTILITY(U,$J,358.3,26457,0)
 ;;=J30.9^^83^1061^9
 ;;^UTILITY(U,$J,358.3,26457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26457,1,3,0)
 ;;=3^Allergic Rhinitis,Unspec
 ;;^UTILITY(U,$J,358.3,26457,1,4,0)
 ;;=4^J30.9
 ;;^UTILITY(U,$J,358.3,26457,2)
 ;;=^5008205
 ;;^UTILITY(U,$J,358.3,26458,0)
 ;;=J45.909^^83^1061^18
 ;;^UTILITY(U,$J,358.3,26458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26458,1,3,0)
 ;;=3^Asthma Uncomplicated,Unspec
 ;;^UTILITY(U,$J,358.3,26458,1,4,0)
 ;;=4^J45.909
 ;;^UTILITY(U,$J,358.3,26458,2)
 ;;=^5008256
 ;;^UTILITY(U,$J,358.3,26459,0)
 ;;=M12.9^^83^1061^17
 ;;^UTILITY(U,$J,358.3,26459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26459,1,3,0)
 ;;=3^Arthropathy,Unspec
 ;;^UTILITY(U,$J,358.3,26459,1,4,0)
 ;;=4^M12.9
 ;;^UTILITY(U,$J,358.3,26459,2)
 ;;=^5010666
 ;;^UTILITY(U,$J,358.3,26460,0)
 ;;=T78.40XA^^83^1061^10
 ;;^UTILITY(U,$J,358.3,26460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26460,1,3,0)
 ;;=3^Allergy,Unspec Initial Encounter
 ;;^UTILITY(U,$J,358.3,26460,1,4,0)
 ;;=4^T78.40XA
 ;;^UTILITY(U,$J,358.3,26460,2)
 ;;=^5054284
 ;;^UTILITY(U,$J,358.3,26461,0)
 ;;=L40.2^^83^1061^5
 ;;^UTILITY(U,$J,358.3,26461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26461,1,3,0)
 ;;=3^Acrodermatitis Continua
 ;;^UTILITY(U,$J,358.3,26461,1,4,0)
 ;;=4^L40.2
 ;;^UTILITY(U,$J,358.3,26461,2)
 ;;=^5009162
 ;;^UTILITY(U,$J,358.3,26462,0)
 ;;=F10.10^^83^1061^7
 ;;^UTILITY(U,$J,358.3,26462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26462,1,3,0)
 ;;=3^Alcohol Abuse Uncomplicated
 ;;^UTILITY(U,$J,358.3,26462,1,4,0)
 ;;=4^F10.10
 ;;^UTILITY(U,$J,358.3,26462,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,26463,0)
 ;;=F43.0^^83^1061^6
 ;;^UTILITY(U,$J,358.3,26463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26463,1,3,0)
 ;;=3^Acute Stress Reaction
 ;;^UTILITY(U,$J,358.3,26463,1,4,0)
 ;;=4^F43.0
 ;;^UTILITY(U,$J,358.3,26463,2)
 ;;=^5003569
 ;;^UTILITY(U,$J,358.3,26464,0)
 ;;=Z89.511^^83^1061^4
 ;;^UTILITY(U,$J,358.3,26464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26464,1,3,0)
 ;;=3^Acquired Absence Right Leg Below Knee
 ;;^UTILITY(U,$J,358.3,26464,1,4,0)
 ;;=4^Z89.511
 ;;^UTILITY(U,$J,358.3,26464,2)
 ;;=^5063566
 ;;^UTILITY(U,$J,358.3,26465,0)
 ;;=Z89.512^^83^1061^3
 ;;^UTILITY(U,$J,358.3,26465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26465,1,3,0)
 ;;=3^Acquired Absence Left Leg Below Knee
 ;;^UTILITY(U,$J,358.3,26465,1,4,0)
 ;;=4^Z89.512
 ;;^UTILITY(U,$J,358.3,26465,2)
 ;;=^5063567
 ;;^UTILITY(U,$J,358.3,26466,0)
 ;;=Z79.2^^83^1061^15
 ;;^UTILITY(U,$J,358.3,26466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26466,1,3,0)
 ;;=3^Antibiotics Long Term (Current) Use
 ;;^UTILITY(U,$J,358.3,26466,1,4,0)
 ;;=4^Z79.2
 ;;^UTILITY(U,$J,358.3,26466,2)
 ;;=^321546
 ;;^UTILITY(U,$J,358.3,26467,0)
 ;;=E53.8^^83^1062^1
 ;;^UTILITY(U,$J,358.3,26467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26467,1,3,0)
 ;;=3^B Vitamin Group Deficiency,Oth Specified
 ;;^UTILITY(U,$J,358.3,26467,1,4,0)
 ;;=4^E53.8
 ;;^UTILITY(U,$J,358.3,26467,2)
 ;;=^5002797
 ;;^UTILITY(U,$J,358.3,26468,0)
 ;;=F31.9^^83^1062^2
 ;;^UTILITY(U,$J,358.3,26468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26468,1,3,0)
 ;;=3^Bipolar Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,26468,1,4,0)
 ;;=4^F31.9
 ;;^UTILITY(U,$J,358.3,26468,2)
 ;;=^331892
 ;;^UTILITY(U,$J,358.3,26469,0)
 ;;=R00.1^^83^1062^5
 ;;^UTILITY(U,$J,358.3,26469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26469,1,3,0)
 ;;=3^Bradycardia,Unspec
 ;;^UTILITY(U,$J,358.3,26469,1,4,0)
 ;;=4^R00.1
 ;;^UTILITY(U,$J,358.3,26469,2)
 ;;=^5019164
 ;;^UTILITY(U,$J,358.3,26470,0)
 ;;=J20.9^^83^1062^6
 ;;^UTILITY(U,$J,358.3,26470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26470,1,3,0)
 ;;=3^Bronchitis,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,26470,1,4,0)
 ;;=4^J20.9
 ;;^UTILITY(U,$J,358.3,26470,2)
 ;;=^5008195
 ;;^UTILITY(U,$J,358.3,26471,0)
 ;;=N32.0^^83^1062^3
 ;;^UTILITY(U,$J,358.3,26471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26471,1,3,0)
 ;;=3^Bladder-Neck Obstruction
 ;;^UTILITY(U,$J,358.3,26471,1,4,0)
 ;;=4^N32.0
 ;;^UTILITY(U,$J,358.3,26471,2)
 ;;=^5015649
 ;;^UTILITY(U,$J,358.3,26472,0)
 ;;=M71.50^^83^1062^7
 ;;^UTILITY(U,$J,358.3,26472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26472,1,3,0)
 ;;=3^Bursitis NEC,Unspec Site
 ;;^UTILITY(U,$J,358.3,26472,1,4,0)
 ;;=4^M71.50
 ;;^UTILITY(U,$J,358.3,26472,2)
 ;;=^5013190
 ;;^UTILITY(U,$J,358.3,26473,0)
 ;;=D75.89^^83^1062^4
 ;;^UTILITY(U,$J,358.3,26473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26473,1,3,0)
 ;;=3^Blood & Blood-Forming Organ Diseases,Oth Spec
 ;;^UTILITY(U,$J,358.3,26473,1,4,0)
 ;;=4^D75.89
 ;;^UTILITY(U,$J,358.3,26473,2)
 ;;=^5002392
 ;;^UTILITY(U,$J,358.3,26474,0)
 ;;=K63.5^^83^1063^36
 ;;^UTILITY(U,$J,358.3,26474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26474,1,3,0)
 ;;=3^Colon Polyp,Hyperplastic Colon Polyp,Regardless of Site
 ;;^UTILITY(U,$J,358.3,26474,1,4,0)
 ;;=4^K63.5
 ;;^UTILITY(U,$J,358.3,26474,2)
 ;;=^5008765
 ;;^UTILITY(U,$J,358.3,26475,0)
 ;;=G56.01^^83^1063^20
 ;;^UTILITY(U,$J,358.3,26475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26475,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,26475,1,4,0)
 ;;=4^G56.01
 ;;^UTILITY(U,$J,358.3,26475,2)
 ;;=^5004018
 ;;^UTILITY(U,$J,358.3,26476,0)
 ;;=G56.02^^83^1063^19
 ;;^UTILITY(U,$J,358.3,26476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26476,1,3,0)
 ;;=3^Carpal Tunnel Syndrome,Left Upper Limb
 ;;^UTILITY(U,$J,358.3,26476,1,4,0)
 ;;=4^G56.02
 ;;^UTILITY(U,$J,358.3,26476,2)
 ;;=^5004019
 ;;^UTILITY(U,$J,358.3,26477,0)
 ;;=H26.9^^83^1063^21
 ;;^UTILITY(U,$J,358.3,26477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26477,1,3,0)
 ;;=3^Cataract,Unspec