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

IBDEI0AL.m

Go to the documentation of this file.
IBDEI0AL ; ; 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,25604,1,4,0)
 ;;=4^G35.
 ;;^UTILITY(U,$J,358.3,25604,2)
 ;;=^79761
 ;;^UTILITY(U,$J,358.3,25605,0)
 ;;=E46.^^114^1340^2
 ;;^UTILITY(U,$J,358.3,25605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25605,1,3,0)
 ;;=3^Malnutrition,Protein-Calorie,Unspec
 ;;^UTILITY(U,$J,358.3,25605,1,4,0)
 ;;=4^E46.
 ;;^UTILITY(U,$J,358.3,25605,2)
 ;;=^5002790
 ;;^UTILITY(U,$J,358.3,25606,0)
 ;;=R53.81^^114^1340^1
 ;;^UTILITY(U,$J,358.3,25606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25606,1,3,0)
 ;;=3^Malaise
 ;;^UTILITY(U,$J,358.3,25606,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,25606,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,25607,0)
 ;;=G43.909^^114^1340^5
 ;;^UTILITY(U,$J,358.3,25607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25607,1,3,0)
 ;;=3^Migraine,Not Intrctbl w/o Status Migrainosus
 ;;^UTILITY(U,$J,358.3,25607,1,4,0)
 ;;=4^G43.909
 ;;^UTILITY(U,$J,358.3,25607,2)
 ;;=^5003909
 ;;^UTILITY(U,$J,358.3,25608,0)
 ;;=G58.9^^114^1340^6
 ;;^UTILITY(U,$J,358.3,25608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25608,1,3,0)
 ;;=3^Mononeuropathy,Unspec
 ;;^UTILITY(U,$J,358.3,25608,1,4,0)
 ;;=4^G58.9
 ;;^UTILITY(U,$J,358.3,25608,2)
 ;;=^5004065
 ;;^UTILITY(U,$J,358.3,25609,0)
 ;;=R35.0^^114^1340^3
 ;;^UTILITY(U,$J,358.3,25609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25609,1,3,0)
 ;;=3^Micturition Frequency
 ;;^UTILITY(U,$J,358.3,25609,1,4,0)
 ;;=4^R35.0
 ;;^UTILITY(U,$J,358.3,25609,2)
 ;;=^5019334
 ;;^UTILITY(U,$J,358.3,25610,0)
 ;;=R39.198^^114^1340^4
 ;;^UTILITY(U,$J,358.3,25610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25610,1,3,0)
 ;;=3^Micturition,Oth Difficulties
 ;;^UTILITY(U,$J,358.3,25610,1,4,0)
 ;;=4^R39.198
 ;;^UTILITY(U,$J,358.3,25610,2)
 ;;=^5019347
 ;;^UTILITY(U,$J,358.3,25611,0)
 ;;=H60.313^^114^1341^18
 ;;^UTILITY(U,$J,358.3,25611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25611,1,3,0)
 ;;=3^Otitis Externa Diffuse,Bilateral
 ;;^UTILITY(U,$J,358.3,25611,1,4,0)
 ;;=4^H60.313
 ;;^UTILITY(U,$J,358.3,25611,2)
 ;;=^5006449
 ;;^UTILITY(U,$J,358.3,25612,0)
 ;;=H60.311^^114^1341^20
 ;;^UTILITY(U,$J,358.3,25612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25612,1,3,0)
 ;;=3^Otitis Externa Diffuse,Right
 ;;^UTILITY(U,$J,358.3,25612,1,4,0)
 ;;=4^H60.311
 ;;^UTILITY(U,$J,358.3,25612,2)
 ;;=^5006447
 ;;^UTILITY(U,$J,358.3,25613,0)
 ;;=H60.312^^114^1341^19
 ;;^UTILITY(U,$J,358.3,25613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25613,1,3,0)
 ;;=3^Otitis Externa Diffuse,Left
 ;;^UTILITY(U,$J,358.3,25613,1,4,0)
 ;;=4^H60.312
 ;;^UTILITY(U,$J,358.3,25613,2)
 ;;=^5006448
 ;;^UTILITY(U,$J,358.3,25614,0)
 ;;=H60.391^^114^1341^26
 ;;^UTILITY(U,$J,358.3,25614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25614,1,3,0)
 ;;=3^Otitis Externa Infective,Right
 ;;^UTILITY(U,$J,358.3,25614,1,4,0)
 ;;=4^H60.391
 ;;^UTILITY(U,$J,358.3,25614,2)
 ;;=^5006459
 ;;^UTILITY(U,$J,358.3,25615,0)
 ;;=H60.392^^114^1341^25
 ;;^UTILITY(U,$J,358.3,25615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25615,1,3,0)
 ;;=3^Otitis Externa Infective,Left
 ;;^UTILITY(U,$J,358.3,25615,1,4,0)
 ;;=4^H60.392
 ;;^UTILITY(U,$J,358.3,25615,2)
 ;;=^5006460
 ;;^UTILITY(U,$J,358.3,25616,0)
 ;;=H60.393^^114^1341^24
 ;;^UTILITY(U,$J,358.3,25616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25616,1,3,0)
 ;;=3^Otitis Externa Infective,Bilateral
 ;;^UTILITY(U,$J,358.3,25616,1,4,0)
 ;;=4^H60.393
 ;;^UTILITY(U,$J,358.3,25616,2)
 ;;=^5006461
 ;;^UTILITY(U,$J,358.3,25617,0)
 ;;=M81.0^^114^1341^17
 ;;^UTILITY(U,$J,358.3,25617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25617,1,3,0)
 ;;=3^Osteopor,Age-Rltd w/o Curnt Path Fractr
 ;;^UTILITY(U,$J,358.3,25617,1,4,0)
 ;;=4^M81.0
 ;;^UTILITY(U,$J,358.3,25617,2)
 ;;=^5013555
 ;;^UTILITY(U,$J,358.3,25618,0)
 ;;=R11.2^^114^1341^2
 ;;^UTILITY(U,$J,358.3,25618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25618,1,3,0)
 ;;=3^Nausea w/ Vomiting,Unspec
 ;;^UTILITY(U,$J,358.3,25618,1,4,0)
 ;;=4^R11.2
 ;;^UTILITY(U,$J,358.3,25618,2)
 ;;=^5019237
 ;;^UTILITY(U,$J,358.3,25619,0)
 ;;=H60.321^^114^1341^23
 ;;^UTILITY(U,$J,358.3,25619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25619,1,3,0)
 ;;=3^Otitis Externa Hemorrhagic,Right
 ;;^UTILITY(U,$J,358.3,25619,1,4,0)
 ;;=4^H60.321
 ;;^UTILITY(U,$J,358.3,25619,2)
 ;;=^5006451
 ;;^UTILITY(U,$J,358.3,25620,0)
 ;;=H60.322^^114^1341^22
 ;;^UTILITY(U,$J,358.3,25620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25620,1,3,0)
 ;;=3^Otitis Externa Hemorrhagic,Left
 ;;^UTILITY(U,$J,358.3,25620,1,4,0)
 ;;=4^H60.322
 ;;^UTILITY(U,$J,358.3,25620,2)
 ;;=^5006452
 ;;^UTILITY(U,$J,358.3,25621,0)
 ;;=H60.323^^114^1341^21
 ;;^UTILITY(U,$J,358.3,25621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25621,1,3,0)
 ;;=3^Otitis Externa Hemorrhagic,Bilateral
 ;;^UTILITY(U,$J,358.3,25621,1,4,0)
 ;;=4^H60.323
 ;;^UTILITY(U,$J,358.3,25621,2)
 ;;=^5006453
 ;;^UTILITY(U,$J,358.3,25622,0)
 ;;=H66.91^^114^1341^29
 ;;^UTILITY(U,$J,358.3,25622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25622,1,3,0)
 ;;=3^Otitis Media,Rt Ear,Unspec
 ;;^UTILITY(U,$J,358.3,25622,1,4,0)
 ;;=4^H66.91
 ;;^UTILITY(U,$J,358.3,25622,2)
 ;;=^5006640
 ;;^UTILITY(U,$J,358.3,25623,0)
 ;;=H66.92^^114^1341^28
 ;;^UTILITY(U,$J,358.3,25623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25623,1,3,0)
 ;;=3^Otitis Media,Lt Ear,Unspec
 ;;^UTILITY(U,$J,358.3,25623,1,4,0)
 ;;=4^H66.92
 ;;^UTILITY(U,$J,358.3,25623,2)
 ;;=^5006641
 ;;^UTILITY(U,$J,358.3,25624,0)
 ;;=H66.93^^114^1341^27
 ;;^UTILITY(U,$J,358.3,25624,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25624,1,3,0)
 ;;=3^Otitis Media,Bilat,Unspec
 ;;^UTILITY(U,$J,358.3,25624,1,4,0)
 ;;=4^H66.93
 ;;^UTILITY(U,$J,358.3,25624,2)
 ;;=^5006642
 ;;^UTILITY(U,$J,358.3,25625,0)
 ;;=E66.01^^114^1341^13
 ;;^UTILITY(U,$J,358.3,25625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25625,1,3,0)
 ;;=3^Obesity,Morbid d/t Excess Calories
 ;;^UTILITY(U,$J,358.3,25625,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,25625,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,25626,0)
 ;;=E66.9^^114^1341^14
 ;;^UTILITY(U,$J,358.3,25626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25626,1,3,0)
 ;;=3^Obesity,Unspec
 ;;^UTILITY(U,$J,358.3,25626,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,25626,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,25627,0)
 ;;=M19.91^^114^1341^15
 ;;^UTILITY(U,$J,358.3,25627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25627,1,3,0)
 ;;=3^Osteoarth,Prim,Unspec Site
 ;;^UTILITY(U,$J,358.3,25627,1,4,0)
 ;;=4^M19.91
 ;;^UTILITY(U,$J,358.3,25627,2)
 ;;=^5010854
 ;;^UTILITY(U,$J,358.3,25628,0)
 ;;=J00.^^114^1341^1
 ;;^UTILITY(U,$J,358.3,25628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25628,1,3,0)
 ;;=3^Nasopharyngitis,Acute
 ;;^UTILITY(U,$J,358.3,25628,1,4,0)
 ;;=4^J00.
 ;;^UTILITY(U,$J,358.3,25628,2)
 ;;=^5008115
 ;;^UTILITY(U,$J,358.3,25629,0)
 ;;=M79.2^^114^1341^5
 ;;^UTILITY(U,$J,358.3,25629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25629,1,3,0)
 ;;=3^Neuralgia & Neuritis,Unspec
 ;;^UTILITY(U,$J,358.3,25629,1,4,0)
 ;;=4^M79.2
 ;;^UTILITY(U,$J,358.3,25629,2)
 ;;=^5013322
 ;;^UTILITY(U,$J,358.3,25630,0)
 ;;=L97.829^^114^1341^8
 ;;^UTILITY(U,$J,358.3,25630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25630,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer LLL,Severity Unspec
 ;;^UTILITY(U,$J,358.3,25630,1,4,0)
 ;;=4^L97.829
 ;;^UTILITY(U,$J,358.3,25630,2)
 ;;=^5009569
 ;;^UTILITY(U,$J,358.3,25631,0)
 ;;=L97.819^^114^1341^11
 ;;^UTILITY(U,$J,358.3,25631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25631,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer RLL,Severity Unspec
 ;;^UTILITY(U,$J,358.3,25631,1,4,0)
 ;;=4^L97.819
 ;;^UTILITY(U,$J,358.3,25631,2)
 ;;=^5009564
 ;;^UTILITY(U,$J,358.3,25632,0)
 ;;=L98.499^^114^1341^12
 ;;^UTILITY(U,$J,358.3,25632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25632,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Skin,Severity Unspec
 ;;^UTILITY(U,$J,358.3,25632,1,4,0)
 ;;=4^L98.499
 ;;^UTILITY(U,$J,358.3,25632,2)
 ;;=^5009591
 ;;^UTILITY(U,$J,358.3,25633,0)
 ;;=R11.0^^114^1341^3
 ;;^UTILITY(U,$J,358.3,25633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25633,1,3,0)
 ;;=3^Nausea w/o Vomiting
 ;;^UTILITY(U,$J,358.3,25633,1,4,0)
 ;;=4^R11.0
 ;;^UTILITY(U,$J,358.3,25633,2)
 ;;=^5019231
 ;;^UTILITY(U,$J,358.3,25634,0)
 ;;=M19.90^^114^1341^16
 ;;^UTILITY(U,$J,358.3,25634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25634,1,3,0)
 ;;=3^Osteoarthritis,Unspec
 ;;^UTILITY(U,$J,358.3,25634,1,4,0)
 ;;=4^M19.90
 ;;^UTILITY(U,$J,358.3,25634,2)
 ;;=^5010853
 ;;^UTILITY(U,$J,358.3,25635,0)
 ;;=E66.3^^114^1341^30
 ;;^UTILITY(U,$J,358.3,25635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25635,1,3,0)
 ;;=3^Overweight
 ;;^UTILITY(U,$J,358.3,25635,1,4,0)
 ;;=4^E66.3
 ;;^UTILITY(U,$J,358.3,25635,2)
 ;;=^5002830
 ;;^UTILITY(U,$J,358.3,25636,0)
 ;;=R39.191^^114^1341^4
 ;;^UTILITY(U,$J,358.3,25636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25636,1,3,0)
 ;;=3^Need to Immediately Re-Void
 ;;^UTILITY(U,$J,358.3,25636,1,4,0)
 ;;=4^R39.191
 ;;^UTILITY(U,$J,358.3,25636,2)
 ;;=^5139199
 ;;^UTILITY(U,$J,358.3,25637,0)
 ;;=L97.825^^114^1341^7
 ;;^UTILITY(U,$J,358.3,25637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25637,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer LLL w/ Msl Invlv w/o Necrosis
 ;;^UTILITY(U,$J,358.3,25637,1,4,0)
 ;;=4^L97.825
 ;;^UTILITY(U,$J,358.3,25637,2)
 ;;=^5151481
 ;;^UTILITY(U,$J,358.3,25638,0)
 ;;=L97.826^^114^1341^6
 ;;^UTILITY(U,$J,358.3,25638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25638,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer LLL w/ Bone Invlv w/o Necrosis
 ;;^UTILITY(U,$J,358.3,25638,1,4,0)
 ;;=4^L97.826
 ;;^UTILITY(U,$J,358.3,25638,2)
 ;;=^5151482
 ;;^UTILITY(U,$J,358.3,25639,0)
 ;;=L97.915^^114^1341^10
 ;;^UTILITY(U,$J,358.3,25639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25639,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer RLL w/ Msl Invlv w/o Necrosis
 ;;^UTILITY(U,$J,358.3,25639,1,4,0)
 ;;=4^L97.915
 ;;^UTILITY(U,$J,358.3,25639,2)
 ;;=^5151487
 ;;^UTILITY(U,$J,358.3,25640,0)
 ;;=L97.916^^114^1341^9
 ;;^UTILITY(U,$J,358.3,25640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25640,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer RLL w/ Bone Invlv w/o Necrosis
 ;;^UTILITY(U,$J,358.3,25640,1,4,0)
 ;;=4^L97.916
 ;;^UTILITY(U,$J,358.3,25640,2)
 ;;=^5151488
 ;;^UTILITY(U,$J,358.3,25641,0)
 ;;=G20.^^114^1342^2
 ;;^UTILITY(U,$J,358.3,25641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25641,1,3,0)
 ;;=3^Parkinson's Disease
 ;;^UTILITY(U,$J,358.3,25641,1,4,0)
 ;;=4^G20.
 ;;^UTILITY(U,$J,358.3,25641,2)
 ;;=^5003770
 ;;^UTILITY(U,$J,358.3,25642,0)
 ;;=I73.9^^114^1342^3
 ;;^UTILITY(U,$J,358.3,25642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25642,1,3,0)
 ;;=3^Peripheral Vascular Disease,Unspec
 ;;^UTILITY(U,$J,358.3,25642,1,4,0)
 ;;=4^I73.9
 ;;^UTILITY(U,$J,358.3,25642,2)
 ;;=^184182
 ;;^UTILITY(U,$J,358.3,25643,0)
 ;;=F60.89^^114^1342^4
 ;;^UTILITY(U,$J,358.3,25643,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25643,1,3,0)
 ;;=3^Personality Disorders,Oth
 ;;^UTILITY(U,$J,358.3,25643,1,4,0)
 ;;=4^F60.89
 ;;^UTILITY(U,$J,358.3,25643,2)
 ;;=^5003638
 ;;^UTILITY(U,$J,358.3,25644,0)
 ;;=I80.3^^114^1342^6
 ;;^UTILITY(U,$J,358.3,25644,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25644,1,3,0)
 ;;=3^Phlebitis & Thrombophlbts,Low Extrmties,Unspec
 ;;^UTILITY(U,$J,358.3,25644,1,4,0)
 ;;=4^I80.3
 ;;^UTILITY(U,$J,358.3,25644,2)
 ;;=^5007845
 ;;^UTILITY(U,$J,358.3,25645,0)
 ;;=R09.1^^114^1342^8
 ;;^UTILITY(U,$J,358.3,25645,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25645,1,3,0)
 ;;=3^Pleurisy
 ;;^UTILITY(U,$J,358.3,25645,1,4,0)
 ;;=4^R09.1
 ;;^UTILITY(U,$J,358.3,25645,2)
 ;;=^95428
 ;;^UTILITY(U,$J,358.3,25646,0)
 ;;=J91.8^^114^1342^7
 ;;^UTILITY(U,$J,358.3,25646,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25646,1,3,0)
 ;;=3^Pleural Effus in Oth Cond Clsfd Elsewhere
 ;;^UTILITY(U,$J,358.3,25646,1,4,0)
 ;;=4^J91.8
 ;;^UTILITY(U,$J,358.3,25646,2)
 ;;=^5008311
 ;;^UTILITY(U,$J,358.3,25647,0)
 ;;=J18.9^^114^1342^9
 ;;^UTILITY(U,$J,358.3,25647,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25647,1,3,0)
 ;;=3^Pneumonia,Unspec Organism
 ;;^UTILITY(U,$J,358.3,25647,1,4,0)
 ;;=4^J18.9
 ;;^UTILITY(U,$J,358.3,25647,2)
 ;;=^95632
 ;;^UTILITY(U,$J,358.3,25648,0)
 ;;=I49.3^^114^1342^12
 ;;^UTILITY(U,$J,358.3,25648,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25648,1,3,0)
 ;;=3^Premature Ventricular Depolarization
 ;;^UTILITY(U,$J,358.3,25648,1,4,0)
 ;;=4^I49.3
 ;;^UTILITY(U,$J,358.3,25648,2)
 ;;=^5007233
 ;;^UTILITY(U,$J,358.3,25649,0)
 ;;=L40.4^^114^1342^14
 ;;^UTILITY(U,$J,358.3,25649,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25649,1,3,0)
 ;;=3^Psoriasis Guttate
 ;;^UTILITY(U,$J,358.3,25649,1,4,0)
 ;;=4^L40.4
 ;;^UTILITY(U,$J,358.3,25649,2)
 ;;=^5009164
 ;;^UTILITY(U,$J,358.3,25650,0)
 ;;=L40.1^^114^1342^16
 ;;^UTILITY(U,$J,358.3,25650,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25650,1,3,0)
 ;;=3^Psoriasis,Generalized Pustular
 ;;^UTILITY(U,$J,358.3,25650,1,4,0)
 ;;=4^L40.1
 ;;^UTILITY(U,$J,358.3,25650,2)
 ;;=^5009161
 ;;^UTILITY(U,$J,358.3,25651,0)
 ;;=L40.0^^114^1342^15
 ;;^UTILITY(U,$J,358.3,25651,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25651,1,3,0)
 ;;=3^Psoriasis Vulgaris
 ;;^UTILITY(U,$J,358.3,25651,1,4,0)
 ;;=4^L40.0
 ;;^UTILITY(U,$J,358.3,25651,2)
 ;;=^5009160
 ;;^UTILITY(U,$J,358.3,25652,0)
 ;;=L40.8^^114^1342^17
 ;;^UTILITY(U,$J,358.3,25652,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25652,1,3,0)
 ;;=3^Psoriasis,Other
 ;;^UTILITY(U,$J,358.3,25652,1,4,0)
 ;;=4^L40.8
 ;;^UTILITY(U,$J,358.3,25652,2)
 ;;=^271917
 ;;^UTILITY(U,$J,358.3,25653,0)
 ;;=L29.9^^114^1342^13
 ;;^UTILITY(U,$J,358.3,25653,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25653,1,3,0)
 ;;=3^Pruritus,Unspec
 ;;^UTILITY(U,$J,358.3,25653,1,4,0)
 ;;=4^L29.9
 ;;^UTILITY(U,$J,358.3,25653,2)
 ;;=^5009153
 ;;^UTILITY(U,$J,358.3,25654,0)
 ;;=L40.3^^114^1342^21
 ;;^UTILITY(U,$J,358.3,25654,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25654,1,3,0)
 ;;=3^Pustulosis Palmaris et Plantaris
 ;;^UTILITY(U,$J,358.3,25654,1,4,0)
 ;;=4^L40.3
 ;;^UTILITY(U,$J,358.3,25654,2)
 ;;=^5009163
 ;;^UTILITY(U,$J,358.3,25655,0)
 ;;=J02.9^^114^1342^5
 ;;^UTILITY(U,$J,358.3,25655,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25655,1,3,0)
 ;;=3^Pharyngitis,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,25655,1,4,0)
 ;;=4^J02.9
 ;;^UTILITY(U,$J,358.3,25655,2)
 ;;=^5008130
 ;;^UTILITY(U,$J,358.3,25656,0)
 ;;=K85.90^^114^1342^1
 ;;^UTILITY(U,$J,358.3,25656,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25656,1,3,0)
 ;;=3^Pancreatitis,Acute w/o Necrosis/Infection,Unspec
 ;;^UTILITY(U,$J,358.3,25656,1,4,0)
 ;;=4^K85.90
 ;;^UTILITY(U,$J,358.3,25656,2)
 ;;=^5138761
 ;;^UTILITY(U,$J,358.3,25657,0)
 ;;=Z98.890^^114^1342^10
 ;;^UTILITY(U,$J,358.3,25657,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25657,1,3,0)
 ;;=3^Postprocedural States,Oth Spec
 ;;^UTILITY(U,$J,358.3,25657,1,4,0)
 ;;=4^Z98.890
 ;;^UTILITY(U,$J,358.3,25657,2)
 ;;=^5063754
 ;;^UTILITY(U,$J,358.3,25658,0)
 ;;=R73.03^^114^1342^11
 ;;^UTILITY(U,$J,358.3,25658,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25658,1,3,0)
 ;;=3^Pre-Diabetes
 ;;^UTILITY(U,$J,358.3,25658,1,4,0)
 ;;=4^R73.03
 ;;^UTILITY(U,$J,358.3,25658,2)
 ;;=^8295662
 ;;^UTILITY(U,$J,358.3,25659,0)
 ;;=I27.21^^114^1342^18
 ;;^UTILITY(U,$J,358.3,25659,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25659,1,3,0)
 ;;=3^Pulmonary Arterial Hypertension,Secondary
 ;;^UTILITY(U,$J,358.3,25659,1,4,0)
 ;;=4^I27.21
 ;;^UTILITY(U,$J,358.3,25659,2)
 ;;=^5151377
 ;;^UTILITY(U,$J,358.3,25660,0)
 ;;=I27.22^^114^1342^19
 ;;^UTILITY(U,$J,358.3,25660,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25660,1,3,0)
 ;;=3^Pulmonary Hypertension d/t Left Heart Disease
 ;;^UTILITY(U,$J,358.3,25660,1,4,0)
 ;;=4^I27.22
 ;;^UTILITY(U,$J,358.3,25660,2)
 ;;=^5151378
 ;;^UTILITY(U,$J,358.3,25661,0)
 ;;=I27.20^^114^1342^20
 ;;^UTILITY(U,$J,358.3,25661,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25661,1,3,0)
 ;;=3^Pulmonary Hypertension,Unspec
 ;;^UTILITY(U,$J,358.3,25661,1,4,0)
 ;;=4^I27.20
 ;;^UTILITY(U,$J,358.3,25661,2)
 ;;=^5151376
 ;;^UTILITY(U,$J,358.3,25662,0)
 ;;=R82.81^^114^1342^22
 ;;^UTILITY(U,$J,358.3,25662,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25662,1,3,0)
 ;;=3^Pyuria
 ;;^UTILITY(U,$J,358.3,25662,1,4,0)
 ;;=4^R82.81
 ;;^UTILITY(U,$J,358.3,25662,2)
 ;;=^101879
 ;;^UTILITY(U,$J,358.3,25663,0)
 ;;=R07.9^^114^1343^2
 ;;^UTILITY(U,$J,358.3,25663,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25663,1,3,0)
 ;;=3^Chest Pain,Unspec
 ;;^UTILITY(U,$J,358.3,25663,1,4,0)
 ;;=4^R07.9
 ;;^UTILITY(U,$J,358.3,25663,2)
 ;;=^5019201
 ;;^UTILITY(U,$J,358.3,25664,0)
 ;;=H57.13^^114^1343^19
 ;;^UTILITY(U,$J,358.3,25664,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25664,1,3,0)
 ;;=3^Pain,Ocular,Bilateral
 ;;^UTILITY(U,$J,358.3,25664,1,4,0)
 ;;=4^H57.13
 ;;^UTILITY(U,$J,358.3,25664,2)
 ;;=^5006384
 ;;^UTILITY(U,$J,358.3,25665,0)
 ;;=H57.11^^114^1343^21
 ;;^UTILITY(U,$J,358.3,25665,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25665,1,3,0)
 ;;=3^Pain,Ocular,Right Eye
 ;;^UTILITY(U,$J,358.3,25665,1,4,0)
 ;;=4^H57.11
 ;;^UTILITY(U,$J,358.3,25665,2)
 ;;=^5006382
 ;;^UTILITY(U,$J,358.3,25666,0)
 ;;=H57.12^^114^1343^20
 ;;^UTILITY(U,$J,358.3,25666,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25666,1,3,0)
 ;;=3^Pain,Ocular,Left Eye
 ;;^UTILITY(U,$J,358.3,25666,1,4,0)
 ;;=4^H57.12
 ;;^UTILITY(U,$J,358.3,25666,2)
 ;;=^5006383
 ;;^UTILITY(U,$J,358.3,25667,0)
 ;;=H92.03^^114^1343^5
 ;;^UTILITY(U,$J,358.3,25667,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25667,1,3,0)
 ;;=3^Otalgia,Bilateral
 ;;^UTILITY(U,$J,358.3,25667,1,4,0)
 ;;=4^H92.03
 ;;^UTILITY(U,$J,358.3,25667,2)
 ;;=^5006947
 ;;^UTILITY(U,$J,358.3,25668,0)
 ;;=H92.01^^114^1343^7
 ;;^UTILITY(U,$J,358.3,25668,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25668,1,3,0)
 ;;=3^Otalgia,Right Ear
 ;;^UTILITY(U,$J,358.3,25668,1,4,0)
 ;;=4^H92.01
 ;;^UTILITY(U,$J,358.3,25668,2)
 ;;=^5006945
 ;;^UTILITY(U,$J,358.3,25669,0)
 ;;=H92.02^^114^1343^6
 ;;^UTILITY(U,$J,358.3,25669,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25669,1,3,0)
 ;;=3^Otalgia,Left Ear
 ;;^UTILITY(U,$J,358.3,25669,1,4,0)
 ;;=4^H92.02
 ;;^UTILITY(U,$J,358.3,25669,2)
 ;;=^5006946
 ;;^UTILITY(U,$J,358.3,25670,0)
 ;;=M25.511^^114^1343^31
 ;;^UTILITY(U,$J,358.3,25670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25670,1,3,0)
 ;;=3^Pain,Right Shoulder
 ;;^UTILITY(U,$J,358.3,25670,1,4,0)
 ;;=4^M25.511
 ;;^UTILITY(U,$J,358.3,25670,2)
 ;;=^5011602
 ;;^UTILITY(U,$J,358.3,25671,0)
 ;;=M25.512^^114^1343^17
 ;;^UTILITY(U,$J,358.3,25671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25671,1,3,0)
 ;;=3^Pain,Left Shoulder
 ;;^UTILITY(U,$J,358.3,25671,1,4,0)
 ;;=4^M25.512
 ;;^UTILITY(U,$J,358.3,25671,2)
 ;;=^5011603
 ;;^UTILITY(U,$J,358.3,25672,0)
 ;;=M25.521^^114^1343^25
 ;;^UTILITY(U,$J,358.3,25672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25672,1,3,0)
 ;;=3^Pain,Right Elbow
 ;;^UTILITY(U,$J,358.3,25672,1,4,0)
 ;;=4^M25.521
 ;;^UTILITY(U,$J,358.3,25672,2)
 ;;=^5011605
 ;;^UTILITY(U,$J,358.3,25673,0)
 ;;=M25.522^^114^1343^11
 ;;^UTILITY(U,$J,358.3,25673,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25673,1,3,0)
 ;;=3^Pain,Left Elbow
 ;;^UTILITY(U,$J,358.3,25673,1,4,0)
 ;;=4^M25.522