IBDEI0CO ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
Q:'DIFQR(358.3) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.3,31805,2)
;;=^5019312
;;^UTILITY(U,$J,358.3,31806,0)
;;=M62.838^^94^1305^18
;;^UTILITY(U,$J,358.3,31806,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31806,1,3,0)
;;=3^Muscle Spasm NEC
;;^UTILITY(U,$J,358.3,31806,1,4,0)
;;=4^M62.838
;;^UTILITY(U,$J,358.3,31806,2)
;;=^5012682
;;^UTILITY(U,$J,358.3,31807,0)
;;=R63.5^^94^1305^1
;;^UTILITY(U,$J,358.3,31807,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31807,1,3,0)
;;=3^Abnormal weight gain
;;^UTILITY(U,$J,358.3,31807,1,4,0)
;;=4^R63.5
;;^UTILITY(U,$J,358.3,31807,2)
;;=^5019543
;;^UTILITY(U,$J,358.3,31808,0)
;;=R63.4^^94^1305^2
;;^UTILITY(U,$J,358.3,31808,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31808,1,3,0)
;;=3^Abnormal weight loss
;;^UTILITY(U,$J,358.3,31808,1,4,0)
;;=4^R63.4
;;^UTILITY(U,$J,358.3,31808,2)
;;=^5019542
;;^UTILITY(U,$J,358.3,31809,0)
;;=R20.9^^94^1305^21
;;^UTILITY(U,$J,358.3,31809,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31809,1,3,0)
;;=3^Skin Sensation Disturbances,Unspec
;;^UTILITY(U,$J,358.3,31809,1,4,0)
;;=4^R20.9
;;^UTILITY(U,$J,358.3,31809,2)
;;=^5019282
;;^UTILITY(U,$J,358.3,31810,0)
;;=R45.0^^94^1305^19
;;^UTILITY(U,$J,358.3,31810,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31810,1,3,0)
;;=3^Nervousness
;;^UTILITY(U,$J,358.3,31810,1,4,0)
;;=4^R45.0
;;^UTILITY(U,$J,358.3,31810,2)
;;=^5019461
;;^UTILITY(U,$J,358.3,31811,0)
;;=R45.3^^94^1305^7
;;^UTILITY(U,$J,358.3,31811,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31811,1,3,0)
;;=3^Demoralization and apathy
;;^UTILITY(U,$J,358.3,31811,1,4,0)
;;=4^R45.3
;;^UTILITY(U,$J,358.3,31811,2)
;;=^5019464
;;^UTILITY(U,$J,358.3,31812,0)
;;=G47.00^^94^1305^13
;;^UTILITY(U,$J,358.3,31812,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31812,1,3,0)
;;=3^Insomnia, unspecified
;;^UTILITY(U,$J,358.3,31812,1,4,0)
;;=4^G47.00
;;^UTILITY(U,$J,358.3,31812,2)
;;=^332924
;;^UTILITY(U,$J,358.3,31813,0)
;;=Y36.010S^^94^1306^3
;;^UTILITY(U,$J,358.3,31813,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31813,1,3,0)
;;=3^War op involving explosion of depth-chg, milt, sequela
;;^UTILITY(U,$J,358.3,31813,1,4,0)
;;=4^Y36.010S
;;^UTILITY(U,$J,358.3,31813,2)
;;=^5061537
;;^UTILITY(U,$J,358.3,31814,0)
;;=Y36.030S^^94^1306^17
;;^UTILITY(U,$J,358.3,31814,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31814,1,3,0)
;;=3^War op w explosn of sea-based artlry shell, milt, sequela
;;^UTILITY(U,$J,358.3,31814,1,4,0)
;;=4^Y36.030S
;;^UTILITY(U,$J,358.3,31814,2)
;;=^5061549
;;^UTILITY(U,$J,358.3,31815,0)
;;=Y36.191S^^94^1306^9
;;^UTILITY(U,$J,358.3,31815,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31815,1,3,0)
;;=3^War op involving oth dest arcrft, civilian, sequela
;;^UTILITY(U,$J,358.3,31815,1,4,0)
;;=4^Y36.191S
;;^UTILITY(U,$J,358.3,31815,2)
;;=^5061606
;;^UTILITY(U,$J,358.3,31816,0)
;;=Y36.200S^^94^1306^12
;;^UTILITY(U,$J,358.3,31816,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31816,1,3,0)
;;=3^War op involving unsp explosion and fragments, milt, sequela
;;^UTILITY(U,$J,358.3,31816,1,4,0)
;;=4^Y36.200S
;;^UTILITY(U,$J,358.3,31816,2)
;;=^5061609
;;^UTILITY(U,$J,358.3,31817,0)
;;=Y36.210S^^94^1306^2
;;^UTILITY(U,$J,358.3,31817,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31817,1,3,0)
;;=3^War op involving explosion of aerial bomb, milt, sequela
;;^UTILITY(U,$J,358.3,31817,1,4,0)
;;=4^Y36.210S
;;^UTILITY(U,$J,358.3,31817,2)
;;=^5061615
;;^UTILITY(U,$J,358.3,31818,0)
;;=Y36.220S^^94^1306^4
;;^UTILITY(U,$J,358.3,31818,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31818,1,3,0)
;;=3^War op involving explosion of guided missile, milt, sequela
;;^UTILITY(U,$J,358.3,31818,1,4,0)
;;=4^Y36.220S
;;^UTILITY(U,$J,358.3,31818,2)
;;=^5061621
;;^UTILITY(U,$J,358.3,31819,0)
;;=Y36.230S^^94^1306^16
;;^UTILITY(U,$J,358.3,31819,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31819,1,3,0)
;;=3^War op w explosn of improv explosv device, milt, sequela
;;^UTILITY(U,$J,358.3,31819,1,4,0)
;;=4^Y36.230S
;;^UTILITY(U,$J,358.3,31819,2)
;;=^5061627
;;^UTILITY(U,$J,358.3,31820,0)
;;=Y36.240S^^94^1306^15
;;^UTILITY(U,$J,358.3,31820,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31820,1,3,0)
;;=3^War op w explosn due to acc disch of own munit, milt, sqla
;;^UTILITY(U,$J,358.3,31820,1,4,0)
;;=4^Y36.240S
;;^UTILITY(U,$J,358.3,31820,2)
;;=^5061633
;;^UTILITY(U,$J,358.3,31821,0)
;;=Y36.250S^^94^1306^5
;;^UTILITY(U,$J,358.3,31821,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31821,1,3,0)
;;=3^War op involving fragments from munitions, milt, sequela
;;^UTILITY(U,$J,358.3,31821,1,4,0)
;;=4^Y36.250S
;;^UTILITY(U,$J,358.3,31821,2)
;;=^5061639
;;^UTILITY(U,$J,358.3,31822,0)
;;=Y36.260S^^94^1306^18
;;^UTILITY(U,$J,358.3,31822,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31822,1,3,0)
;;=3^War op w fragmt of improv explosv device, milt, sequela
;;^UTILITY(U,$J,358.3,31822,1,4,0)
;;=4^Y36.260S
;;^UTILITY(U,$J,358.3,31822,2)
;;=^5061645
;;^UTILITY(U,$J,358.3,31823,0)
;;=Y36.270S^^94^1306^6
;;^UTILITY(U,$J,358.3,31823,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31823,1,3,0)
;;=3^War op involving fragments from weapons, milt, sequela
;;^UTILITY(U,$J,358.3,31823,1,4,0)
;;=4^Y36.270S
;;^UTILITY(U,$J,358.3,31823,2)
;;=^5061651
;;^UTILITY(U,$J,358.3,31824,0)
;;=Y36.290S^^94^1306^10
;;^UTILITY(U,$J,358.3,31824,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31824,1,3,0)
;;=3^War op involving oth explosn and fragments, milt, sequela
;;^UTILITY(U,$J,358.3,31824,1,4,0)
;;=4^Y36.290S
;;^UTILITY(U,$J,358.3,31824,2)
;;=^5061657
;;^UTILITY(U,$J,358.3,31825,0)
;;=Y36.321S^^94^1306^7
;;^UTILITY(U,$J,358.3,31825,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31825,1,3,0)
;;=3^War op involving incendiary bullet, civilian, sequela
;;^UTILITY(U,$J,358.3,31825,1,4,0)
;;=4^Y36.321S
;;^UTILITY(U,$J,358.3,31825,2)
;;=^5061678
;;^UTILITY(U,$J,358.3,31826,0)
;;=Y36.411S^^94^1306^11
;;^UTILITY(U,$J,358.3,31826,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31826,1,3,0)
;;=3^War op involving rubber bullets, civilian, sequela
;;^UTILITY(U,$J,358.3,31826,1,4,0)
;;=4^Y36.411S
;;^UTILITY(U,$J,358.3,31826,2)
;;=^5061696
;;^UTILITY(U,$J,358.3,31827,0)
;;=Y36.491S^^94^1306^8
;;^UTILITY(U,$J,358.3,31827,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31827,1,3,0)
;;=3^War op involving oth conventl warfare, civilian, sequela
;;^UTILITY(U,$J,358.3,31827,1,4,0)
;;=4^Y36.491S
;;^UTILITY(U,$J,358.3,31827,2)
;;=^5061738
;;^UTILITY(U,$J,358.3,31828,0)
;;=Y36.511S^^94^1306^14
;;^UTILITY(U,$J,358.3,31828,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31828,1,3,0)
;;=3^War op w direct blast effect of nuclear weapon, civ, sequela
;;^UTILITY(U,$J,358.3,31828,1,4,0)
;;=4^Y36.511S
;;^UTILITY(U,$J,358.3,31828,2)
;;=^5061750
;;^UTILITY(U,$J,358.3,31829,0)
;;=Y36.6X1S^^94^1306^1
;;^UTILITY(U,$J,358.3,31829,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31829,1,3,0)
;;=3^War op involving biolg weapons, civilian, sequela
;;^UTILITY(U,$J,358.3,31829,1,4,0)
;;=4^Y36.6X1S
;;^UTILITY(U,$J,358.3,31829,2)
;;=^5061780
;;^UTILITY(U,$J,358.3,31830,0)
;;=Y36.7X0S^^94^1306^13
;;^UTILITY(U,$J,358.3,31830,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31830,1,3,0)
;;=3^War op w chem weapons and oth unconvtl warfare, milt, sqla
;;^UTILITY(U,$J,358.3,31830,1,4,0)
;;=4^Y36.7X0S
;;^UTILITY(U,$J,358.3,31830,2)
;;=^5061783
;;^UTILITY(U,$J,358.3,31831,0)
;;=R45.851^^94^1307^3
;;^UTILITY(U,$J,358.3,31831,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31831,1,3,0)
;;=3^Suicidal Ideations
;;^UTILITY(U,$J,358.3,31831,1,4,0)
;;=4^R45.851
;;^UTILITY(U,$J,358.3,31831,2)
;;=^5019474
;;^UTILITY(U,$J,358.3,31832,0)
;;=T14.91XA^^94^1307^4
;;^UTILITY(U,$J,358.3,31832,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31832,1,3,0)
;;=3^Suicide Attempt,Initial Encntr
;;^UTILITY(U,$J,358.3,31832,1,4,0)
;;=4^T14.91XA
;;^UTILITY(U,$J,358.3,31832,2)
;;=^5151779
;;^UTILITY(U,$J,358.3,31833,0)
;;=T14.91XD^^94^1307^6
;;^UTILITY(U,$J,358.3,31833,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31833,1,3,0)
;;=3^Suicide Attempt,Subsequent Encntr
;;^UTILITY(U,$J,358.3,31833,1,4,0)
;;=4^T14.91XD
;;^UTILITY(U,$J,358.3,31833,2)
;;=^5151780
;;^UTILITY(U,$J,358.3,31834,0)
;;=T14.91XS^^94^1307^5
;;^UTILITY(U,$J,358.3,31834,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31834,1,3,0)
;;=3^Suicide Attempt,Sequela
;;^UTILITY(U,$J,358.3,31834,1,4,0)
;;=4^T14.91XS
;;^UTILITY(U,$J,358.3,31834,2)
;;=^5151781
;;^UTILITY(U,$J,358.3,31835,0)
;;=Z91.51^^94^1307^2
;;^UTILITY(U,$J,358.3,31835,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31835,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
;;^UTILITY(U,$J,358.3,31835,1,4,0)
;;=4^Z91.51
;;^UTILITY(U,$J,358.3,31835,2)
;;=^5161317
;;^UTILITY(U,$J,358.3,31836,0)
;;=Z91.52^^94^1307^1
;;^UTILITY(U,$J,358.3,31836,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31836,1,3,0)
;;=3^Personal Hx of Non-Suicidal Self-Harm
;;^UTILITY(U,$J,358.3,31836,1,4,0)
;;=4^Z91.52
;;^UTILITY(U,$J,358.3,31836,2)
;;=^5161318
;;^UTILITY(U,$J,358.3,31837,0)
;;=99212^^95^1308^2
;;^UTILITY(U,$J,358.3,31837,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31837,1,1,0)
;;=1^SF MDM or 10-19 mins
;;^UTILITY(U,$J,358.3,31837,1,2,0)
;;=2^99212
;;^UTILITY(U,$J,358.3,31838,0)
;;=99213^^95^1308^3
;;^UTILITY(U,$J,358.3,31838,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31838,1,1,0)
;;=1^Low MDM or 20-29 mins
;;^UTILITY(U,$J,358.3,31838,1,2,0)
;;=2^99213
;;^UTILITY(U,$J,358.3,31839,0)
;;=99214^^95^1308^4
;;^UTILITY(U,$J,358.3,31839,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31839,1,1,0)
;;=1^Moderate MDM or 30-39 mins
;;^UTILITY(U,$J,358.3,31839,1,2,0)
;;=2^99214
;;^UTILITY(U,$J,358.3,31840,0)
;;=99241^^95^1309^1
;;^UTILITY(U,$J,358.3,31840,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31840,1,1,0)
;;=1^Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,31840,1,2,0)
;;=2^99241
;;^UTILITY(U,$J,358.3,31841,0)
;;=99242^^95^1309^2
;;^UTILITY(U,$J,358.3,31841,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31841,1,1,0)
;;=1^Exp Problem Focused Hx/PE & SF MDM
;;^UTILITY(U,$J,358.3,31841,1,2,0)
;;=2^99242
;;^UTILITY(U,$J,358.3,31842,0)
;;=99243^^95^1309^3
;;^UTILITY(U,$J,358.3,31842,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,31842,1,1,0)
;;=1^Detailed Hx/PE & Low Complex MDM
;;^UTILITY(U,$J,358.3,31842,1,2,0)
;;=2^99243
;;^UTILITY(U,$J,358.3,31843,0)
;;=Q3014^^96^1310^4^^^^1
;;^UTILITY(U,$J,358.3,31843,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31843,1,2,0)
;;=2^Q3014
;;^UTILITY(U,$J,358.3,31843,1,3,0)
;;=3^Telehealth Facility Fee
;;^UTILITY(U,$J,358.3,31844,0)
;;=T1014^^96^1310^5^^^^1
;;^UTILITY(U,$J,358.3,31844,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31844,1,2,0)
;;=2^T1014
;;^UTILITY(U,$J,358.3,31844,1,3,0)
;;=3^Telehealth Transmit,per min
;;^UTILITY(U,$J,358.3,31845,0)
;;=96999^^96^1310^3^^^^1
;;^UTILITY(U,$J,358.3,31845,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31845,1,2,0)
;;=2^96999
;;^UTILITY(U,$J,358.3,31845,1,3,0)
;;=3^Teledermatology-Photo
;;^UTILITY(U,$J,358.3,31846,0)
;;=99451^^96^1310^1^^^^1
;;^UTILITY(U,$J,358.3,31846,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31846,1,2,0)
;;=2^99451
;;^UTILITY(U,$J,358.3,31846,1,3,0)
;;=3^EHR Assmt & Mgmt > 5 min
;;^UTILITY(U,$J,358.3,31847,0)
;;=G2010^^96^1310^2^^^^1
;;^UTILITY(U,$J,358.3,31847,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31847,1,2,0)
;;=2^G2010
;;^UTILITY(U,$J,358.3,31847,1,3,0)
;;=3^Eval/Interp Image(s) Only,No E&M Svc
;;^UTILITY(U,$J,358.3,31848,0)
;;=K12.0^^97^1311^15
;;^UTILITY(U,$J,358.3,31848,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31848,1,3,0)
;;=3^Aphthous Stomatitis
;;^UTILITY(U,$J,358.3,31848,1,4,0)
;;=4^K12.0
;;^UTILITY(U,$J,358.3,31848,2)
;;=^5008483
;;^UTILITY(U,$J,358.3,31849,0)
;;=L83.^^97^1311^1
;;^UTILITY(U,$J,358.3,31849,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31849,1,3,0)
;;=3^Acanthosis Nigricans
;;^UTILITY(U,$J,358.3,31849,1,4,0)
;;=4^L83.
;;^UTILITY(U,$J,358.3,31849,2)
;;=^1451
;;^UTILITY(U,$J,358.3,31850,0)
;;=E85.9^^97^1311^13
;;^UTILITY(U,$J,358.3,31850,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31850,1,3,0)
;;=3^Amyloidosis,Unspec
;;^UTILITY(U,$J,358.3,31850,1,4,0)
;;=4^E85.9
;;^UTILITY(U,$J,358.3,31850,2)
;;=^334185
;;^UTILITY(U,$J,358.3,31851,0)
;;=L63.8^^97^1311^7
;;^UTILITY(U,$J,358.3,31851,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31851,1,3,0)
;;=3^Alopecia Areata,Other
;;^UTILITY(U,$J,358.3,31851,1,4,0)
;;=4^L63.8
;;^UTILITY(U,$J,358.3,31851,2)
;;=^5009245
;;^UTILITY(U,$J,358.3,31852,0)
;;=L63.9^^97^1311^8
;;^UTILITY(U,$J,358.3,31852,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31852,1,3,0)
;;=3^Alopecia Areata,Unspec
;;^UTILITY(U,$J,358.3,31852,1,4,0)
;;=4^L63.9
;;^UTILITY(U,$J,358.3,31852,2)
;;=^5009246
;;^UTILITY(U,$J,358.3,31853,0)
;;=L70.0^^97^1311^3
;;^UTILITY(U,$J,358.3,31853,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31853,1,3,0)
;;=3^Acne Vulgaris
;;^UTILITY(U,$J,358.3,31853,1,4,0)
;;=4^L70.0
;;^UTILITY(U,$J,358.3,31853,2)
;;=^5009268
;;^UTILITY(U,$J,358.3,31854,0)
;;=L73.0^^97^1311^2
;;^UTILITY(U,$J,358.3,31854,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31854,1,3,0)
;;=3^Acne Keloid
;;^UTILITY(U,$J,358.3,31854,1,4,0)
;;=4^L73.0
;;^UTILITY(U,$J,358.3,31854,2)
;;=^2149
;;^UTILITY(U,$J,358.3,31855,0)
;;=L63.0^^97^1311^11
;;^UTILITY(U,$J,358.3,31855,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31855,1,3,0)
;;=3^Alopecia Totalis
;;^UTILITY(U,$J,358.3,31855,1,4,0)
;;=4^L63.0
;;^UTILITY(U,$J,358.3,31855,2)
;;=^5009242
;;^UTILITY(U,$J,358.3,31856,0)
;;=L63.1^^97^1311^12
;;^UTILITY(U,$J,358.3,31856,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31856,1,3,0)
;;=3^Alopecia Universalis
;;^UTILITY(U,$J,358.3,31856,1,4,0)
;;=4^L63.1
;;^UTILITY(U,$J,358.3,31856,2)
;;=^5009243
;;^UTILITY(U,$J,358.3,31857,0)
;;=L65.2^^97^1311^10
;;^UTILITY(U,$J,358.3,31857,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31857,1,3,0)
;;=3^Alopecia Mucinosa
;;^UTILITY(U,$J,358.3,31857,1,4,0)
;;=4^L65.2
;;^UTILITY(U,$J,358.3,31857,2)
;;=^5103
;;^UTILITY(U,$J,358.3,31858,0)
;;=L66.9^^97^1311^9
;;^UTILITY(U,$J,358.3,31858,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31858,1,3,0)
;;=3^Alopecia Cicatricial,Unspec
;;^UTILITY(U,$J,358.3,31858,1,4,0)
;;=4^L66.9
;;^UTILITY(U,$J,358.3,31858,2)
;;=^5009258
;;^UTILITY(U,$J,358.3,31859,0)
;;=A60.9^^97^1311^14
;;^UTILITY(U,$J,358.3,31859,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31859,1,3,0)
;;=3^Anogenital Herpesviral Infection,Unspec
;;^UTILITY(U,$J,358.3,31859,1,4,0)
;;=4^A60.9
;;^UTILITY(U,$J,358.3,31859,2)
;;=^5000359
;;^UTILITY(U,$J,358.3,31860,0)
;;=L91.9^^97^1311^4
;;^UTILITY(U,$J,358.3,31860,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31860,1,3,0)
;;=3^Acrochordon
;;^UTILITY(U,$J,358.3,31860,1,4,0)
;;=4^L91.9
;;^UTILITY(U,$J,358.3,31860,2)
;;=^5009461
;;^UTILITY(U,$J,358.3,31861,0)
;;=L64.8^^97^1311^5
;;^UTILITY(U,$J,358.3,31861,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31861,1,3,0)
;;=3^Alopecia Androgenic,Other
;;^UTILITY(U,$J,358.3,31861,1,4,0)
;;=4^L64.8
;;^UTILITY(U,$J,358.3,31861,2)
;;=^5009248
;;^UTILITY(U,$J,358.3,31862,0)
;;=L64.9^^97^1311^6
;;^UTILITY(U,$J,358.3,31862,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31862,1,3,0)
;;=3^Alopecia Androgenic,Unspec
;;^UTILITY(U,$J,358.3,31862,1,4,0)
;;=4^L64.9
;;^UTILITY(U,$J,358.3,31862,2)
;;=^5009249
;;^UTILITY(U,$J,358.3,31863,0)
;;=L56.1^^97^1312^38
;;^UTILITY(U,$J,358.3,31863,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31863,1,3,0)
;;=3^Drug Photoallergic Response
;;^UTILITY(U,$J,358.3,31863,1,4,0)
;;=4^L56.1
;;^UTILITY(U,$J,358.3,31863,2)
;;=^5009215
;;^UTILITY(U,$J,358.3,31864,0)
;;=L56.0^^97^1312^39
;;^UTILITY(U,$J,358.3,31864,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31864,1,3,0)
;;=3^Drug Phototoxic Response
;;^UTILITY(U,$J,358.3,31864,1,4,0)
;;=4^L56.0
;;^UTILITY(U,$J,358.3,31864,2)
;;=^5009214
;;^UTILITY(U,$J,358.3,31865,0)
;;=L23.9^^97^1312^6
;;^UTILITY(U,$J,358.3,31865,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31865,1,3,0)
;;=3^Dermatitis,Allergic Contact,Cause Unspec
;;^UTILITY(U,$J,358.3,31865,1,4,0)
;;=4^L23.9
;;^UTILITY(U,$J,358.3,31865,2)
;;=^5009125
;;^UTILITY(U,$J,358.3,31866,0)
;;=L30.9^^97^1312^29
;;^UTILITY(U,$J,358.3,31866,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31866,1,3,0)
;;=3^Dermatitis,Unspec
;;^UTILITY(U,$J,358.3,31866,1,4,0)
;;=4^L30.9
;;^UTILITY(U,$J,358.3,31866,2)
;;=^5009159
;;^UTILITY(U,$J,358.3,31867,0)
;;=L24.9^^97^1312^16
;;^UTILITY(U,$J,358.3,31867,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31867,1,3,0)
;;=3^Dermatitis,Irritant Contact,Cause Unspec
;;^UTILITY(U,$J,358.3,31867,1,4,0)
;;=4^L24.9
;;^UTILITY(U,$J,358.3,31867,2)
;;=^5009136
;;^UTILITY(U,$J,358.3,31868,0)
;;=L30.0^^97^1312^25
;;^UTILITY(U,$J,358.3,31868,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31868,1,3,0)
;;=3^Dermatitis,Nummular
;;^UTILITY(U,$J,358.3,31868,1,4,0)
;;=4^L30.0
;;^UTILITY(U,$J,358.3,31868,2)
;;=^186823
;;^UTILITY(U,$J,358.3,31869,0)
;;=L23.2^^97^1312^4
;;^UTILITY(U,$J,358.3,31869,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31869,1,3,0)
;;=3^Dermatitis,Allergic Contact d/t Cosmetics
;;^UTILITY(U,$J,358.3,31869,1,4,0)
;;=4^L23.2
;;^UTILITY(U,$J,358.3,31869,2)
;;=^5009117
;;^UTILITY(U,$J,358.3,31870,0)
;;=L24.3^^97^1312^12
;;^UTILITY(U,$J,358.3,31870,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31870,1,3,0)
;;=3^Dermatitis,Irritant Contact d/t Cosmetics
;;^UTILITY(U,$J,358.3,31870,1,4,0)
;;=4^L24.3
;;^UTILITY(U,$J,358.3,31870,2)
;;=^5009129
;;^UTILITY(U,$J,358.3,31871,0)
;;=L27.2^^97^1312^1
;;^UTILITY(U,$J,358.3,31871,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31871,1,3,0)
;;=3^Dermatitis d/t Ingested Food
;;^UTILITY(U,$J,358.3,31871,1,4,0)
;;=4^L27.2
;;^UTILITY(U,$J,358.3,31871,2)
;;=^5009146
;;^UTILITY(U,$J,358.3,31872,0)
;;=L21.8^^97^1312^28
;;^UTILITY(U,$J,358.3,31872,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31872,1,3,0)
;;=3^Dermatitis,Seborrheic
;;^UTILITY(U,$J,358.3,31872,1,4,0)
;;=4^L21.8
;;^UTILITY(U,$J,358.3,31872,2)
;;=^303310
;;^UTILITY(U,$J,358.3,31873,0)
;;=L20.89^^97^1312^7
;;^UTILITY(U,$J,358.3,31873,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31873,1,3,0)
;;=3^Dermatitis,Atopic
;;^UTILITY(U,$J,358.3,31873,1,4,0)
;;=4^L20.89
;;^UTILITY(U,$J,358.3,31873,2)
;;=^5009112
;;^UTILITY(U,$J,358.3,31874,0)
;;=E08.622^^97^1312^31
;;^UTILITY(U,$J,358.3,31874,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31874,1,3,0)
;;=3^Diabetes d/t Underlying Condition w/ Skin Ulcer
;;^UTILITY(U,$J,358.3,31874,1,4,0)
;;=4^E08.622
;;^UTILITY(U,$J,358.3,31874,2)
;;=^5002535
;;^UTILITY(U,$J,358.3,31875,0)
;;=T81.31XA^^97^1312^34
;;^UTILITY(U,$J,358.3,31875,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,31875,1,3,0)
;;=3^Disruption External Surgical Wound NEC,Init Encntr
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0CO 19776 printed Dec 13, 2024@01:46:04 Page 2
IBDEI0CO ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,31805,2)
+2 ;;=^5019312
+3 ;;^UTILITY(U,$J,358.3,31806,0)
+4 ;;=M62.838^^94^1305^18
+5 ;;^UTILITY(U,$J,358.3,31806,1,0)
+6 ;;=^358.31IA^4^2
+7 ;;^UTILITY(U,$J,358.3,31806,1,3,0)
+8 ;;=3^Muscle Spasm NEC
+9 ;;^UTILITY(U,$J,358.3,31806,1,4,0)
+10 ;;=4^M62.838
+11 ;;^UTILITY(U,$J,358.3,31806,2)
+12 ;;=^5012682
+13 ;;^UTILITY(U,$J,358.3,31807,0)
+14 ;;=R63.5^^94^1305^1
+15 ;;^UTILITY(U,$J,358.3,31807,1,0)
+16 ;;=^358.31IA^4^2
+17 ;;^UTILITY(U,$J,358.3,31807,1,3,0)
+18 ;;=3^Abnormal weight gain
+19 ;;^UTILITY(U,$J,358.3,31807,1,4,0)
+20 ;;=4^R63.5
+21 ;;^UTILITY(U,$J,358.3,31807,2)
+22 ;;=^5019543
+23 ;;^UTILITY(U,$J,358.3,31808,0)
+24 ;;=R63.4^^94^1305^2
+25 ;;^UTILITY(U,$J,358.3,31808,1,0)
+26 ;;=^358.31IA^4^2
+27 ;;^UTILITY(U,$J,358.3,31808,1,3,0)
+28 ;;=3^Abnormal weight loss
+29 ;;^UTILITY(U,$J,358.3,31808,1,4,0)
+30 ;;=4^R63.4
+31 ;;^UTILITY(U,$J,358.3,31808,2)
+32 ;;=^5019542
+33 ;;^UTILITY(U,$J,358.3,31809,0)
+34 ;;=R20.9^^94^1305^21
+35 ;;^UTILITY(U,$J,358.3,31809,1,0)
+36 ;;=^358.31IA^4^2
+37 ;;^UTILITY(U,$J,358.3,31809,1,3,0)
+38 ;;=3^Skin Sensation Disturbances,Unspec
+39 ;;^UTILITY(U,$J,358.3,31809,1,4,0)
+40 ;;=4^R20.9
+41 ;;^UTILITY(U,$J,358.3,31809,2)
+42 ;;=^5019282
+43 ;;^UTILITY(U,$J,358.3,31810,0)
+44 ;;=R45.0^^94^1305^19
+45 ;;^UTILITY(U,$J,358.3,31810,1,0)
+46 ;;=^358.31IA^4^2
+47 ;;^UTILITY(U,$J,358.3,31810,1,3,0)
+48 ;;=3^Nervousness
+49 ;;^UTILITY(U,$J,358.3,31810,1,4,0)
+50 ;;=4^R45.0
+51 ;;^UTILITY(U,$J,358.3,31810,2)
+52 ;;=^5019461
+53 ;;^UTILITY(U,$J,358.3,31811,0)
+54 ;;=R45.3^^94^1305^7
+55 ;;^UTILITY(U,$J,358.3,31811,1,0)
+56 ;;=^358.31IA^4^2
+57 ;;^UTILITY(U,$J,358.3,31811,1,3,0)
+58 ;;=3^Demoralization and apathy
+59 ;;^UTILITY(U,$J,358.3,31811,1,4,0)
+60 ;;=4^R45.3
+61 ;;^UTILITY(U,$J,358.3,31811,2)
+62 ;;=^5019464
+63 ;;^UTILITY(U,$J,358.3,31812,0)
+64 ;;=G47.00^^94^1305^13
+65 ;;^UTILITY(U,$J,358.3,31812,1,0)
+66 ;;=^358.31IA^4^2
+67 ;;^UTILITY(U,$J,358.3,31812,1,3,0)
+68 ;;=3^Insomnia, unspecified
+69 ;;^UTILITY(U,$J,358.3,31812,1,4,0)
+70 ;;=4^G47.00
+71 ;;^UTILITY(U,$J,358.3,31812,2)
+72 ;;=^332924
+73 ;;^UTILITY(U,$J,358.3,31813,0)
+74 ;;=Y36.010S^^94^1306^3
+75 ;;^UTILITY(U,$J,358.3,31813,1,0)
+76 ;;=^358.31IA^4^2
+77 ;;^UTILITY(U,$J,358.3,31813,1,3,0)
+78 ;;=3^War op involving explosion of depth-chg, milt, sequela
+79 ;;^UTILITY(U,$J,358.3,31813,1,4,0)
+80 ;;=4^Y36.010S
+81 ;;^UTILITY(U,$J,358.3,31813,2)
+82 ;;=^5061537
+83 ;;^UTILITY(U,$J,358.3,31814,0)
+84 ;;=Y36.030S^^94^1306^17
+85 ;;^UTILITY(U,$J,358.3,31814,1,0)
+86 ;;=^358.31IA^4^2
+87 ;;^UTILITY(U,$J,358.3,31814,1,3,0)
+88 ;;=3^War op w explosn of sea-based artlry shell, milt, sequela
+89 ;;^UTILITY(U,$J,358.3,31814,1,4,0)
+90 ;;=4^Y36.030S
+91 ;;^UTILITY(U,$J,358.3,31814,2)
+92 ;;=^5061549
+93 ;;^UTILITY(U,$J,358.3,31815,0)
+94 ;;=Y36.191S^^94^1306^9
+95 ;;^UTILITY(U,$J,358.3,31815,1,0)
+96 ;;=^358.31IA^4^2
+97 ;;^UTILITY(U,$J,358.3,31815,1,3,0)
+98 ;;=3^War op involving oth dest arcrft, civilian, sequela
+99 ;;^UTILITY(U,$J,358.3,31815,1,4,0)
+100 ;;=4^Y36.191S
+101 ;;^UTILITY(U,$J,358.3,31815,2)
+102 ;;=^5061606
+103 ;;^UTILITY(U,$J,358.3,31816,0)
+104 ;;=Y36.200S^^94^1306^12
+105 ;;^UTILITY(U,$J,358.3,31816,1,0)
+106 ;;=^358.31IA^4^2
+107 ;;^UTILITY(U,$J,358.3,31816,1,3,0)
+108 ;;=3^War op involving unsp explosion and fragments, milt, sequela
+109 ;;^UTILITY(U,$J,358.3,31816,1,4,0)
+110 ;;=4^Y36.200S
+111 ;;^UTILITY(U,$J,358.3,31816,2)
+112 ;;=^5061609
+113 ;;^UTILITY(U,$J,358.3,31817,0)
+114 ;;=Y36.210S^^94^1306^2
+115 ;;^UTILITY(U,$J,358.3,31817,1,0)
+116 ;;=^358.31IA^4^2
+117 ;;^UTILITY(U,$J,358.3,31817,1,3,0)
+118 ;;=3^War op involving explosion of aerial bomb, milt, sequela
+119 ;;^UTILITY(U,$J,358.3,31817,1,4,0)
+120 ;;=4^Y36.210S
+121 ;;^UTILITY(U,$J,358.3,31817,2)
+122 ;;=^5061615
+123 ;;^UTILITY(U,$J,358.3,31818,0)
+124 ;;=Y36.220S^^94^1306^4
+125 ;;^UTILITY(U,$J,358.3,31818,1,0)
+126 ;;=^358.31IA^4^2
+127 ;;^UTILITY(U,$J,358.3,31818,1,3,0)
+128 ;;=3^War op involving explosion of guided missile, milt, sequela
+129 ;;^UTILITY(U,$J,358.3,31818,1,4,0)
+130 ;;=4^Y36.220S
+131 ;;^UTILITY(U,$J,358.3,31818,2)
+132 ;;=^5061621
+133 ;;^UTILITY(U,$J,358.3,31819,0)
+134 ;;=Y36.230S^^94^1306^16
+135 ;;^UTILITY(U,$J,358.3,31819,1,0)
+136 ;;=^358.31IA^4^2
+137 ;;^UTILITY(U,$J,358.3,31819,1,3,0)
+138 ;;=3^War op w explosn of improv explosv device, milt, sequela
+139 ;;^UTILITY(U,$J,358.3,31819,1,4,0)
+140 ;;=4^Y36.230S
+141 ;;^UTILITY(U,$J,358.3,31819,2)
+142 ;;=^5061627
+143 ;;^UTILITY(U,$J,358.3,31820,0)
+144 ;;=Y36.240S^^94^1306^15
+145 ;;^UTILITY(U,$J,358.3,31820,1,0)
+146 ;;=^358.31IA^4^2
+147 ;;^UTILITY(U,$J,358.3,31820,1,3,0)
+148 ;;=3^War op w explosn due to acc disch of own munit, milt, sqla
+149 ;;^UTILITY(U,$J,358.3,31820,1,4,0)
+150 ;;=4^Y36.240S
+151 ;;^UTILITY(U,$J,358.3,31820,2)
+152 ;;=^5061633
+153 ;;^UTILITY(U,$J,358.3,31821,0)
+154 ;;=Y36.250S^^94^1306^5
+155 ;;^UTILITY(U,$J,358.3,31821,1,0)
+156 ;;=^358.31IA^4^2
+157 ;;^UTILITY(U,$J,358.3,31821,1,3,0)
+158 ;;=3^War op involving fragments from munitions, milt, sequela
+159 ;;^UTILITY(U,$J,358.3,31821,1,4,0)
+160 ;;=4^Y36.250S
+161 ;;^UTILITY(U,$J,358.3,31821,2)
+162 ;;=^5061639
+163 ;;^UTILITY(U,$J,358.3,31822,0)
+164 ;;=Y36.260S^^94^1306^18
+165 ;;^UTILITY(U,$J,358.3,31822,1,0)
+166 ;;=^358.31IA^4^2
+167 ;;^UTILITY(U,$J,358.3,31822,1,3,0)
+168 ;;=3^War op w fragmt of improv explosv device, milt, sequela
+169 ;;^UTILITY(U,$J,358.3,31822,1,4,0)
+170 ;;=4^Y36.260S
+171 ;;^UTILITY(U,$J,358.3,31822,2)
+172 ;;=^5061645
+173 ;;^UTILITY(U,$J,358.3,31823,0)
+174 ;;=Y36.270S^^94^1306^6
+175 ;;^UTILITY(U,$J,358.3,31823,1,0)
+176 ;;=^358.31IA^4^2
+177 ;;^UTILITY(U,$J,358.3,31823,1,3,0)
+178 ;;=3^War op involving fragments from weapons, milt, sequela
+179 ;;^UTILITY(U,$J,358.3,31823,1,4,0)
+180 ;;=4^Y36.270S
+181 ;;^UTILITY(U,$J,358.3,31823,2)
+182 ;;=^5061651
+183 ;;^UTILITY(U,$J,358.3,31824,0)
+184 ;;=Y36.290S^^94^1306^10
+185 ;;^UTILITY(U,$J,358.3,31824,1,0)
+186 ;;=^358.31IA^4^2
+187 ;;^UTILITY(U,$J,358.3,31824,1,3,0)
+188 ;;=3^War op involving oth explosn and fragments, milt, sequela
+189 ;;^UTILITY(U,$J,358.3,31824,1,4,0)
+190 ;;=4^Y36.290S
+191 ;;^UTILITY(U,$J,358.3,31824,2)
+192 ;;=^5061657
+193 ;;^UTILITY(U,$J,358.3,31825,0)
+194 ;;=Y36.321S^^94^1306^7
+195 ;;^UTILITY(U,$J,358.3,31825,1,0)
+196 ;;=^358.31IA^4^2
+197 ;;^UTILITY(U,$J,358.3,31825,1,3,0)
+198 ;;=3^War op involving incendiary bullet, civilian, sequela
+199 ;;^UTILITY(U,$J,358.3,31825,1,4,0)
+200 ;;=4^Y36.321S
+201 ;;^UTILITY(U,$J,358.3,31825,2)
+202 ;;=^5061678
+203 ;;^UTILITY(U,$J,358.3,31826,0)
+204 ;;=Y36.411S^^94^1306^11
+205 ;;^UTILITY(U,$J,358.3,31826,1,0)
+206 ;;=^358.31IA^4^2
+207 ;;^UTILITY(U,$J,358.3,31826,1,3,0)
+208 ;;=3^War op involving rubber bullets, civilian, sequela
+209 ;;^UTILITY(U,$J,358.3,31826,1,4,0)
+210 ;;=4^Y36.411S
+211 ;;^UTILITY(U,$J,358.3,31826,2)
+212 ;;=^5061696
+213 ;;^UTILITY(U,$J,358.3,31827,0)
+214 ;;=Y36.491S^^94^1306^8
+215 ;;^UTILITY(U,$J,358.3,31827,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,31827,1,3,0)
+218 ;;=3^War op involving oth conventl warfare, civilian, sequela
+219 ;;^UTILITY(U,$J,358.3,31827,1,4,0)
+220 ;;=4^Y36.491S
+221 ;;^UTILITY(U,$J,358.3,31827,2)
+222 ;;=^5061738
+223 ;;^UTILITY(U,$J,358.3,31828,0)
+224 ;;=Y36.511S^^94^1306^14
+225 ;;^UTILITY(U,$J,358.3,31828,1,0)
+226 ;;=^358.31IA^4^2
+227 ;;^UTILITY(U,$J,358.3,31828,1,3,0)
+228 ;;=3^War op w direct blast effect of nuclear weapon, civ, sequela
+229 ;;^UTILITY(U,$J,358.3,31828,1,4,0)
+230 ;;=4^Y36.511S
+231 ;;^UTILITY(U,$J,358.3,31828,2)
+232 ;;=^5061750
+233 ;;^UTILITY(U,$J,358.3,31829,0)
+234 ;;=Y36.6X1S^^94^1306^1
+235 ;;^UTILITY(U,$J,358.3,31829,1,0)
+236 ;;=^358.31IA^4^2
+237 ;;^UTILITY(U,$J,358.3,31829,1,3,0)
+238 ;;=3^War op involving biolg weapons, civilian, sequela
+239 ;;^UTILITY(U,$J,358.3,31829,1,4,0)
+240 ;;=4^Y36.6X1S
+241 ;;^UTILITY(U,$J,358.3,31829,2)
+242 ;;=^5061780
+243 ;;^UTILITY(U,$J,358.3,31830,0)
+244 ;;=Y36.7X0S^^94^1306^13
+245 ;;^UTILITY(U,$J,358.3,31830,1,0)
+246 ;;=^358.31IA^4^2
+247 ;;^UTILITY(U,$J,358.3,31830,1,3,0)
+248 ;;=3^War op w chem weapons and oth unconvtl warfare, milt, sqla
+249 ;;^UTILITY(U,$J,358.3,31830,1,4,0)
+250 ;;=4^Y36.7X0S
+251 ;;^UTILITY(U,$J,358.3,31830,2)
+252 ;;=^5061783
+253 ;;^UTILITY(U,$J,358.3,31831,0)
+254 ;;=R45.851^^94^1307^3
+255 ;;^UTILITY(U,$J,358.3,31831,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,31831,1,3,0)
+258 ;;=3^Suicidal Ideations
+259 ;;^UTILITY(U,$J,358.3,31831,1,4,0)
+260 ;;=4^R45.851
+261 ;;^UTILITY(U,$J,358.3,31831,2)
+262 ;;=^5019474
+263 ;;^UTILITY(U,$J,358.3,31832,0)
+264 ;;=T14.91XA^^94^1307^4
+265 ;;^UTILITY(U,$J,358.3,31832,1,0)
+266 ;;=^358.31IA^4^2
+267 ;;^UTILITY(U,$J,358.3,31832,1,3,0)
+268 ;;=3^Suicide Attempt,Initial Encntr
+269 ;;^UTILITY(U,$J,358.3,31832,1,4,0)
+270 ;;=4^T14.91XA
+271 ;;^UTILITY(U,$J,358.3,31832,2)
+272 ;;=^5151779
+273 ;;^UTILITY(U,$J,358.3,31833,0)
+274 ;;=T14.91XD^^94^1307^6
+275 ;;^UTILITY(U,$J,358.3,31833,1,0)
+276 ;;=^358.31IA^4^2
+277 ;;^UTILITY(U,$J,358.3,31833,1,3,0)
+278 ;;=3^Suicide Attempt,Subsequent Encntr
+279 ;;^UTILITY(U,$J,358.3,31833,1,4,0)
+280 ;;=4^T14.91XD
+281 ;;^UTILITY(U,$J,358.3,31833,2)
+282 ;;=^5151780
+283 ;;^UTILITY(U,$J,358.3,31834,0)
+284 ;;=T14.91XS^^94^1307^5
+285 ;;^UTILITY(U,$J,358.3,31834,1,0)
+286 ;;=^358.31IA^4^2
+287 ;;^UTILITY(U,$J,358.3,31834,1,3,0)
+288 ;;=3^Suicide Attempt,Sequela
+289 ;;^UTILITY(U,$J,358.3,31834,1,4,0)
+290 ;;=4^T14.91XS
+291 ;;^UTILITY(U,$J,358.3,31834,2)
+292 ;;=^5151781
+293 ;;^UTILITY(U,$J,358.3,31835,0)
+294 ;;=Z91.51^^94^1307^2
+295 ;;^UTILITY(U,$J,358.3,31835,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,31835,1,3,0)
+298 ;;=3^Personal Hx of Suicidal Behavior
+299 ;;^UTILITY(U,$J,358.3,31835,1,4,0)
+300 ;;=4^Z91.51
+301 ;;^UTILITY(U,$J,358.3,31835,2)
+302 ;;=^5161317
+303 ;;^UTILITY(U,$J,358.3,31836,0)
+304 ;;=Z91.52^^94^1307^1
+305 ;;^UTILITY(U,$J,358.3,31836,1,0)
+306 ;;=^358.31IA^4^2
+307 ;;^UTILITY(U,$J,358.3,31836,1,3,0)
+308 ;;=3^Personal Hx of Non-Suicidal Self-Harm
+309 ;;^UTILITY(U,$J,358.3,31836,1,4,0)
+310 ;;=4^Z91.52
+311 ;;^UTILITY(U,$J,358.3,31836,2)
+312 ;;=^5161318
+313 ;;^UTILITY(U,$J,358.3,31837,0)
+314 ;;=99212^^95^1308^2
+315 ;;^UTILITY(U,$J,358.3,31837,1,0)
+316 ;;=^358.31IA^2^2
+317 ;;^UTILITY(U,$J,358.3,31837,1,1,0)
+318 ;;=1^SF MDM or 10-19 mins
+319 ;;^UTILITY(U,$J,358.3,31837,1,2,0)
+320 ;;=2^99212
+321 ;;^UTILITY(U,$J,358.3,31838,0)
+322 ;;=99213^^95^1308^3
+323 ;;^UTILITY(U,$J,358.3,31838,1,0)
+324 ;;=^358.31IA^2^2
+325 ;;^UTILITY(U,$J,358.3,31838,1,1,0)
+326 ;;=1^Low MDM or 20-29 mins
+327 ;;^UTILITY(U,$J,358.3,31838,1,2,0)
+328 ;;=2^99213
+329 ;;^UTILITY(U,$J,358.3,31839,0)
+330 ;;=99214^^95^1308^4
+331 ;;^UTILITY(U,$J,358.3,31839,1,0)
+332 ;;=^358.31IA^2^2
+333 ;;^UTILITY(U,$J,358.3,31839,1,1,0)
+334 ;;=1^Moderate MDM or 30-39 mins
+335 ;;^UTILITY(U,$J,358.3,31839,1,2,0)
+336 ;;=2^99214
+337 ;;^UTILITY(U,$J,358.3,31840,0)
+338 ;;=99241^^95^1309^1
+339 ;;^UTILITY(U,$J,358.3,31840,1,0)
+340 ;;=^358.31IA^2^2
+341 ;;^UTILITY(U,$J,358.3,31840,1,1,0)
+342 ;;=1^Problem Focused Hx/PE & SF MDM
+343 ;;^UTILITY(U,$J,358.3,31840,1,2,0)
+344 ;;=2^99241
+345 ;;^UTILITY(U,$J,358.3,31841,0)
+346 ;;=99242^^95^1309^2
+347 ;;^UTILITY(U,$J,358.3,31841,1,0)
+348 ;;=^358.31IA^2^2
+349 ;;^UTILITY(U,$J,358.3,31841,1,1,0)
+350 ;;=1^Exp Problem Focused Hx/PE & SF MDM
+351 ;;^UTILITY(U,$J,358.3,31841,1,2,0)
+352 ;;=2^99242
+353 ;;^UTILITY(U,$J,358.3,31842,0)
+354 ;;=99243^^95^1309^3
+355 ;;^UTILITY(U,$J,358.3,31842,1,0)
+356 ;;=^358.31IA^2^2
+357 ;;^UTILITY(U,$J,358.3,31842,1,1,0)
+358 ;;=1^Detailed Hx/PE & Low Complex MDM
+359 ;;^UTILITY(U,$J,358.3,31842,1,2,0)
+360 ;;=2^99243
+361 ;;^UTILITY(U,$J,358.3,31843,0)
+362 ;;=Q3014^^96^1310^4^^^^1
+363 ;;^UTILITY(U,$J,358.3,31843,1,0)
+364 ;;=^358.31IA^3^2
+365 ;;^UTILITY(U,$J,358.3,31843,1,2,0)
+366 ;;=2^Q3014
+367 ;;^UTILITY(U,$J,358.3,31843,1,3,0)
+368 ;;=3^Telehealth Facility Fee
+369 ;;^UTILITY(U,$J,358.3,31844,0)
+370 ;;=T1014^^96^1310^5^^^^1
+371 ;;^UTILITY(U,$J,358.3,31844,1,0)
+372 ;;=^358.31IA^3^2
+373 ;;^UTILITY(U,$J,358.3,31844,1,2,0)
+374 ;;=2^T1014
+375 ;;^UTILITY(U,$J,358.3,31844,1,3,0)
+376 ;;=3^Telehealth Transmit,per min
+377 ;;^UTILITY(U,$J,358.3,31845,0)
+378 ;;=96999^^96^1310^3^^^^1
+379 ;;^UTILITY(U,$J,358.3,31845,1,0)
+380 ;;=^358.31IA^3^2
+381 ;;^UTILITY(U,$J,358.3,31845,1,2,0)
+382 ;;=2^96999
+383 ;;^UTILITY(U,$J,358.3,31845,1,3,0)
+384 ;;=3^Teledermatology-Photo
+385 ;;^UTILITY(U,$J,358.3,31846,0)
+386 ;;=99451^^96^1310^1^^^^1
+387 ;;^UTILITY(U,$J,358.3,31846,1,0)
+388 ;;=^358.31IA^3^2
+389 ;;^UTILITY(U,$J,358.3,31846,1,2,0)
+390 ;;=2^99451
+391 ;;^UTILITY(U,$J,358.3,31846,1,3,0)
+392 ;;=3^EHR Assmt & Mgmt > 5 min
+393 ;;^UTILITY(U,$J,358.3,31847,0)
+394 ;;=G2010^^96^1310^2^^^^1
+395 ;;^UTILITY(U,$J,358.3,31847,1,0)
+396 ;;=^358.31IA^3^2
+397 ;;^UTILITY(U,$J,358.3,31847,1,2,0)
+398 ;;=2^G2010
+399 ;;^UTILITY(U,$J,358.3,31847,1,3,0)
+400 ;;=3^Eval/Interp Image(s) Only,No E&M Svc
+401 ;;^UTILITY(U,$J,358.3,31848,0)
+402 ;;=K12.0^^97^1311^15
+403 ;;^UTILITY(U,$J,358.3,31848,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,31848,1,3,0)
+406 ;;=3^Aphthous Stomatitis
+407 ;;^UTILITY(U,$J,358.3,31848,1,4,0)
+408 ;;=4^K12.0
+409 ;;^UTILITY(U,$J,358.3,31848,2)
+410 ;;=^5008483
+411 ;;^UTILITY(U,$J,358.3,31849,0)
+412 ;;=L83.^^97^1311^1
+413 ;;^UTILITY(U,$J,358.3,31849,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,31849,1,3,0)
+416 ;;=3^Acanthosis Nigricans
+417 ;;^UTILITY(U,$J,358.3,31849,1,4,0)
+418 ;;=4^L83.
+419 ;;^UTILITY(U,$J,358.3,31849,2)
+420 ;;=^1451
+421 ;;^UTILITY(U,$J,358.3,31850,0)
+422 ;;=E85.9^^97^1311^13
+423 ;;^UTILITY(U,$J,358.3,31850,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,31850,1,3,0)
+426 ;;=3^Amyloidosis,Unspec
+427 ;;^UTILITY(U,$J,358.3,31850,1,4,0)
+428 ;;=4^E85.9
+429 ;;^UTILITY(U,$J,358.3,31850,2)
+430 ;;=^334185
+431 ;;^UTILITY(U,$J,358.3,31851,0)
+432 ;;=L63.8^^97^1311^7
+433 ;;^UTILITY(U,$J,358.3,31851,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,31851,1,3,0)
+436 ;;=3^Alopecia Areata,Other
+437 ;;^UTILITY(U,$J,358.3,31851,1,4,0)
+438 ;;=4^L63.8
+439 ;;^UTILITY(U,$J,358.3,31851,2)
+440 ;;=^5009245
+441 ;;^UTILITY(U,$J,358.3,31852,0)
+442 ;;=L63.9^^97^1311^8
+443 ;;^UTILITY(U,$J,358.3,31852,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,31852,1,3,0)
+446 ;;=3^Alopecia Areata,Unspec
+447 ;;^UTILITY(U,$J,358.3,31852,1,4,0)
+448 ;;=4^L63.9
+449 ;;^UTILITY(U,$J,358.3,31852,2)
+450 ;;=^5009246
+451 ;;^UTILITY(U,$J,358.3,31853,0)
+452 ;;=L70.0^^97^1311^3
+453 ;;^UTILITY(U,$J,358.3,31853,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,31853,1,3,0)
+456 ;;=3^Acne Vulgaris
+457 ;;^UTILITY(U,$J,358.3,31853,1,4,0)
+458 ;;=4^L70.0
+459 ;;^UTILITY(U,$J,358.3,31853,2)
+460 ;;=^5009268
+461 ;;^UTILITY(U,$J,358.3,31854,0)
+462 ;;=L73.0^^97^1311^2
+463 ;;^UTILITY(U,$J,358.3,31854,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,31854,1,3,0)
+466 ;;=3^Acne Keloid
+467 ;;^UTILITY(U,$J,358.3,31854,1,4,0)
+468 ;;=4^L73.0
+469 ;;^UTILITY(U,$J,358.3,31854,2)
+470 ;;=^2149
+471 ;;^UTILITY(U,$J,358.3,31855,0)
+472 ;;=L63.0^^97^1311^11
+473 ;;^UTILITY(U,$J,358.3,31855,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,31855,1,3,0)
+476 ;;=3^Alopecia Totalis
+477 ;;^UTILITY(U,$J,358.3,31855,1,4,0)
+478 ;;=4^L63.0
+479 ;;^UTILITY(U,$J,358.3,31855,2)
+480 ;;=^5009242
+481 ;;^UTILITY(U,$J,358.3,31856,0)
+482 ;;=L63.1^^97^1311^12
+483 ;;^UTILITY(U,$J,358.3,31856,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,31856,1,3,0)
+486 ;;=3^Alopecia Universalis
+487 ;;^UTILITY(U,$J,358.3,31856,1,4,0)
+488 ;;=4^L63.1
+489 ;;^UTILITY(U,$J,358.3,31856,2)
+490 ;;=^5009243
+491 ;;^UTILITY(U,$J,358.3,31857,0)
+492 ;;=L65.2^^97^1311^10
+493 ;;^UTILITY(U,$J,358.3,31857,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,31857,1,3,0)
+496 ;;=3^Alopecia Mucinosa
+497 ;;^UTILITY(U,$J,358.3,31857,1,4,0)
+498 ;;=4^L65.2
+499 ;;^UTILITY(U,$J,358.3,31857,2)
+500 ;;=^5103
+501 ;;^UTILITY(U,$J,358.3,31858,0)
+502 ;;=L66.9^^97^1311^9
+503 ;;^UTILITY(U,$J,358.3,31858,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,31858,1,3,0)
+506 ;;=3^Alopecia Cicatricial,Unspec
+507 ;;^UTILITY(U,$J,358.3,31858,1,4,0)
+508 ;;=4^L66.9
+509 ;;^UTILITY(U,$J,358.3,31858,2)
+510 ;;=^5009258
+511 ;;^UTILITY(U,$J,358.3,31859,0)
+512 ;;=A60.9^^97^1311^14
+513 ;;^UTILITY(U,$J,358.3,31859,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,31859,1,3,0)
+516 ;;=3^Anogenital Herpesviral Infection,Unspec
+517 ;;^UTILITY(U,$J,358.3,31859,1,4,0)
+518 ;;=4^A60.9
+519 ;;^UTILITY(U,$J,358.3,31859,2)
+520 ;;=^5000359
+521 ;;^UTILITY(U,$J,358.3,31860,0)
+522 ;;=L91.9^^97^1311^4
+523 ;;^UTILITY(U,$J,358.3,31860,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,31860,1,3,0)
+526 ;;=3^Acrochordon
+527 ;;^UTILITY(U,$J,358.3,31860,1,4,0)
+528 ;;=4^L91.9
+529 ;;^UTILITY(U,$J,358.3,31860,2)
+530 ;;=^5009461
+531 ;;^UTILITY(U,$J,358.3,31861,0)
+532 ;;=L64.8^^97^1311^5
+533 ;;^UTILITY(U,$J,358.3,31861,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,31861,1,3,0)
+536 ;;=3^Alopecia Androgenic,Other
+537 ;;^UTILITY(U,$J,358.3,31861,1,4,0)
+538 ;;=4^L64.8
+539 ;;^UTILITY(U,$J,358.3,31861,2)
+540 ;;=^5009248
+541 ;;^UTILITY(U,$J,358.3,31862,0)
+542 ;;=L64.9^^97^1311^6
+543 ;;^UTILITY(U,$J,358.3,31862,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,31862,1,3,0)
+546 ;;=3^Alopecia Androgenic,Unspec
+547 ;;^UTILITY(U,$J,358.3,31862,1,4,0)
+548 ;;=4^L64.9
+549 ;;^UTILITY(U,$J,358.3,31862,2)
+550 ;;=^5009249
+551 ;;^UTILITY(U,$J,358.3,31863,0)
+552 ;;=L56.1^^97^1312^38
+553 ;;^UTILITY(U,$J,358.3,31863,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,31863,1,3,0)
+556 ;;=3^Drug Photoallergic Response
+557 ;;^UTILITY(U,$J,358.3,31863,1,4,0)
+558 ;;=4^L56.1
+559 ;;^UTILITY(U,$J,358.3,31863,2)
+560 ;;=^5009215
+561 ;;^UTILITY(U,$J,358.3,31864,0)
+562 ;;=L56.0^^97^1312^39
+563 ;;^UTILITY(U,$J,358.3,31864,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,31864,1,3,0)
+566 ;;=3^Drug Phototoxic Response
+567 ;;^UTILITY(U,$J,358.3,31864,1,4,0)
+568 ;;=4^L56.0
+569 ;;^UTILITY(U,$J,358.3,31864,2)
+570 ;;=^5009214
+571 ;;^UTILITY(U,$J,358.3,31865,0)
+572 ;;=L23.9^^97^1312^6
+573 ;;^UTILITY(U,$J,358.3,31865,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,31865,1,3,0)
+576 ;;=3^Dermatitis,Allergic Contact,Cause Unspec
+577 ;;^UTILITY(U,$J,358.3,31865,1,4,0)
+578 ;;=4^L23.9
+579 ;;^UTILITY(U,$J,358.3,31865,2)
+580 ;;=^5009125
+581 ;;^UTILITY(U,$J,358.3,31866,0)
+582 ;;=L30.9^^97^1312^29
+583 ;;^UTILITY(U,$J,358.3,31866,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,31866,1,3,0)
+586 ;;=3^Dermatitis,Unspec
+587 ;;^UTILITY(U,$J,358.3,31866,1,4,0)
+588 ;;=4^L30.9
+589 ;;^UTILITY(U,$J,358.3,31866,2)
+590 ;;=^5009159
+591 ;;^UTILITY(U,$J,358.3,31867,0)
+592 ;;=L24.9^^97^1312^16
+593 ;;^UTILITY(U,$J,358.3,31867,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,31867,1,3,0)
+596 ;;=3^Dermatitis,Irritant Contact,Cause Unspec
+597 ;;^UTILITY(U,$J,358.3,31867,1,4,0)
+598 ;;=4^L24.9
+599 ;;^UTILITY(U,$J,358.3,31867,2)
+600 ;;=^5009136
+601 ;;^UTILITY(U,$J,358.3,31868,0)
+602 ;;=L30.0^^97^1312^25
+603 ;;^UTILITY(U,$J,358.3,31868,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,31868,1,3,0)
+606 ;;=3^Dermatitis,Nummular
+607 ;;^UTILITY(U,$J,358.3,31868,1,4,0)
+608 ;;=4^L30.0
+609 ;;^UTILITY(U,$J,358.3,31868,2)
+610 ;;=^186823
+611 ;;^UTILITY(U,$J,358.3,31869,0)
+612 ;;=L23.2^^97^1312^4
+613 ;;^UTILITY(U,$J,358.3,31869,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,31869,1,3,0)
+616 ;;=3^Dermatitis,Allergic Contact d/t Cosmetics
+617 ;;^UTILITY(U,$J,358.3,31869,1,4,0)
+618 ;;=4^L23.2
+619 ;;^UTILITY(U,$J,358.3,31869,2)
+620 ;;=^5009117
+621 ;;^UTILITY(U,$J,358.3,31870,0)
+622 ;;=L24.3^^97^1312^12
+623 ;;^UTILITY(U,$J,358.3,31870,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,31870,1,3,0)
+626 ;;=3^Dermatitis,Irritant Contact d/t Cosmetics
+627 ;;^UTILITY(U,$J,358.3,31870,1,4,0)
+628 ;;=4^L24.3
+629 ;;^UTILITY(U,$J,358.3,31870,2)
+630 ;;=^5009129
+631 ;;^UTILITY(U,$J,358.3,31871,0)
+632 ;;=L27.2^^97^1312^1
+633 ;;^UTILITY(U,$J,358.3,31871,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,31871,1,3,0)
+636 ;;=3^Dermatitis d/t Ingested Food
+637 ;;^UTILITY(U,$J,358.3,31871,1,4,0)
+638 ;;=4^L27.2
+639 ;;^UTILITY(U,$J,358.3,31871,2)
+640 ;;=^5009146
+641 ;;^UTILITY(U,$J,358.3,31872,0)
+642 ;;=L21.8^^97^1312^28
+643 ;;^UTILITY(U,$J,358.3,31872,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,31872,1,3,0)
+646 ;;=3^Dermatitis,Seborrheic
+647 ;;^UTILITY(U,$J,358.3,31872,1,4,0)
+648 ;;=4^L21.8
+649 ;;^UTILITY(U,$J,358.3,31872,2)
+650 ;;=^303310
+651 ;;^UTILITY(U,$J,358.3,31873,0)
+652 ;;=L20.89^^97^1312^7
+653 ;;^UTILITY(U,$J,358.3,31873,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,31873,1,3,0)
+656 ;;=3^Dermatitis,Atopic
+657 ;;^UTILITY(U,$J,358.3,31873,1,4,0)
+658 ;;=4^L20.89
+659 ;;^UTILITY(U,$J,358.3,31873,2)
+660 ;;=^5009112
+661 ;;^UTILITY(U,$J,358.3,31874,0)
+662 ;;=E08.622^^97^1312^31
+663 ;;^UTILITY(U,$J,358.3,31874,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,31874,1,3,0)
+666 ;;=3^Diabetes d/t Underlying Condition w/ Skin Ulcer
+667 ;;^UTILITY(U,$J,358.3,31874,1,4,0)
+668 ;;=4^E08.622
+669 ;;^UTILITY(U,$J,358.3,31874,2)
+670 ;;=^5002535
+671 ;;^UTILITY(U,$J,358.3,31875,0)
+672 ;;=T81.31XA^^97^1312^34
+673 ;;^UTILITY(U,$J,358.3,31875,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,31875,1,3,0)
+676 ;;=3^Disruption External Surgical Wound NEC,Init Encntr