IBDEI0CC ; ; 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,30936,1,3,0)
;;=3^Weakness
;;^UTILITY(U,$J,358.3,30936,1,4,0)
;;=4^R53.1
;;^UTILITY(U,$J,358.3,30936,2)
;;=^5019516
;;^UTILITY(U,$J,358.3,30937,0)
;;=B02.9^^86^1235^79
;;^UTILITY(U,$J,358.3,30937,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30937,1,3,0)
;;=3^Zoster w/o Complications
;;^UTILITY(U,$J,358.3,30937,1,4,0)
;;=4^B02.9
;;^UTILITY(U,$J,358.3,30937,2)
;;=^5000501
;;^UTILITY(U,$J,358.3,30938,0)
;;=K52.21^^86^1235^36
;;^UTILITY(U,$J,358.3,30938,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30938,1,3,0)
;;=3^Food Protein Induced Enterocolitis Syndrome
;;^UTILITY(U,$J,358.3,30938,1,4,0)
;;=4^K52.21
;;^UTILITY(U,$J,358.3,30938,2)
;;=^5138713
;;^UTILITY(U,$J,358.3,30939,0)
;;=K52.22^^86^1235^37
;;^UTILITY(U,$J,358.3,30939,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30939,1,3,0)
;;=3^Food Protein Induced Enteropathy
;;^UTILITY(U,$J,358.3,30939,1,4,0)
;;=4^K52.22
;;^UTILITY(U,$J,358.3,30939,2)
;;=^5138714
;;^UTILITY(U,$J,358.3,30940,0)
;;=K52.29^^86^1235^5
;;^UTILITY(U,$J,358.3,30940,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30940,1,3,0)
;;=3^Allergic/Dietetic Gastroenteritis/Colitis,Other
;;^UTILITY(U,$J,358.3,30940,1,4,0)
;;=4^K52.29
;;^UTILITY(U,$J,358.3,30940,2)
;;=^5138715
;;^UTILITY(U,$J,358.3,30941,0)
;;=R51.0^^86^1235^39
;;^UTILITY(U,$J,358.3,30941,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30941,1,3,0)
;;=3^Headache w/ Orthostatic Component,NEC
;;^UTILITY(U,$J,358.3,30941,1,4,0)
;;=4^R51.0
;;^UTILITY(U,$J,358.3,30941,2)
;;=^5159305
;;^UTILITY(U,$J,358.3,30942,0)
;;=R51.9^^86^1235^40
;;^UTILITY(U,$J,358.3,30942,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30942,1,3,0)
;;=3^Headache,Unspecified
;;^UTILITY(U,$J,358.3,30942,1,4,0)
;;=4^R51.9
;;^UTILITY(U,$J,358.3,30942,2)
;;=^5159306
;;^UTILITY(U,$J,358.3,30943,0)
;;=R05.9^^86^1235^23
;;^UTILITY(U,$J,358.3,30943,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30943,1,3,0)
;;=3^Cough,Unspec
;;^UTILITY(U,$J,358.3,30943,1,4,0)
;;=4^R05.9
;;^UTILITY(U,$J,358.3,30943,2)
;;=^5161232
;;^UTILITY(U,$J,358.3,30944,0)
;;=R45.851^^86^1236^3
;;^UTILITY(U,$J,358.3,30944,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30944,1,3,0)
;;=3^Suicidal Ideations
;;^UTILITY(U,$J,358.3,30944,1,4,0)
;;=4^R45.851
;;^UTILITY(U,$J,358.3,30944,2)
;;=^5019474
;;^UTILITY(U,$J,358.3,30945,0)
;;=T14.91XA^^86^1236^4
;;^UTILITY(U,$J,358.3,30945,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30945,1,3,0)
;;=3^Suicide Attempt,Initial Encntr
;;^UTILITY(U,$J,358.3,30945,1,4,0)
;;=4^T14.91XA
;;^UTILITY(U,$J,358.3,30945,2)
;;=^5151779
;;^UTILITY(U,$J,358.3,30946,0)
;;=T14.91XD^^86^1236^6
;;^UTILITY(U,$J,358.3,30946,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30946,1,3,0)
;;=3^Suicide Attempt,Subsequent Encntr
;;^UTILITY(U,$J,358.3,30946,1,4,0)
;;=4^T14.91XD
;;^UTILITY(U,$J,358.3,30946,2)
;;=^5151780
;;^UTILITY(U,$J,358.3,30947,0)
;;=T14.91XS^^86^1236^5
;;^UTILITY(U,$J,358.3,30947,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30947,1,3,0)
;;=3^Suicide Attempt,Sequela
;;^UTILITY(U,$J,358.3,30947,1,4,0)
;;=4^T14.91XS
;;^UTILITY(U,$J,358.3,30947,2)
;;=^5151781
;;^UTILITY(U,$J,358.3,30948,0)
;;=Z91.52^^86^1236^1
;;^UTILITY(U,$J,358.3,30948,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30948,1,3,0)
;;=3^Personal Hx of Non-Suicidal Self-Harm
;;^UTILITY(U,$J,358.3,30948,1,4,0)
;;=4^Z91.52
;;^UTILITY(U,$J,358.3,30948,2)
;;=^5161318
;;^UTILITY(U,$J,358.3,30949,0)
;;=Z91.51^^86^1236^2
;;^UTILITY(U,$J,358.3,30949,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30949,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
;;^UTILITY(U,$J,358.3,30949,1,4,0)
;;=4^Z91.51
;;^UTILITY(U,$J,358.3,30949,2)
;;=^5161317
;;^UTILITY(U,$J,358.3,30950,0)
;;=90471^^87^1237^1^^^^1
;;^UTILITY(U,$J,358.3,30950,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30950,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,30950,1,3,0)
;;=3^Immunization Admin (use w/ Vaccs)
;;^UTILITY(U,$J,358.3,30951,0)
;;=90472^^87^1237^2^^^^1
;;^UTILITY(U,$J,358.3,30951,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30951,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,30951,1,3,0)
;;=3^Immunization Admin, ea add
;;^UTILITY(U,$J,358.3,30952,0)
;;=90632^^87^1237^7^^^^1
;;^UTILITY(U,$J,358.3,30952,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30952,1,2,0)
;;=2^90632
;;^UTILITY(U,$J,358.3,30952,1,3,0)
;;=3^Hepatitis A Vaccine
;;^UTILITY(U,$J,358.3,30953,0)
;;=90746^^87^1237^9^^^^1
;;^UTILITY(U,$J,358.3,30953,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30953,1,2,0)
;;=2^90746
;;^UTILITY(U,$J,358.3,30953,1,3,0)
;;=3^Hepatitis B Vaccine (3 Doses)
;;^UTILITY(U,$J,358.3,30954,0)
;;=90636^^87^1237^8^^^^1
;;^UTILITY(U,$J,358.3,30954,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30954,1,2,0)
;;=2^90636
;;^UTILITY(U,$J,358.3,30954,1,3,0)
;;=3^Hepatitis A&B Vaccine
;;^UTILITY(U,$J,358.3,30955,0)
;;=90707^^87^1237^10^^^^1
;;^UTILITY(U,$J,358.3,30955,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30955,1,2,0)
;;=2^90707
;;^UTILITY(U,$J,358.3,30955,1,3,0)
;;=3^MMR Virus
;;^UTILITY(U,$J,358.3,30956,0)
;;=90658^^87^1237^4^^^^1
;;^UTILITY(U,$J,358.3,30956,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30956,1,2,0)
;;=2^90658
;;^UTILITY(U,$J,358.3,30956,1,3,0)
;;=3^Flu Vaccine IM (Flulaval)
;;^UTILITY(U,$J,358.3,30957,0)
;;=90732^^87^1237^11^^^^1
;;^UTILITY(U,$J,358.3,30957,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30957,1,2,0)
;;=2^90732
;;^UTILITY(U,$J,358.3,30957,1,3,0)
;;=3^Pneumovax 23 (Pneumococcal Vaccine)
;;^UTILITY(U,$J,358.3,30958,0)
;;=90715^^87^1237^14^^^^1
;;^UTILITY(U,$J,358.3,30958,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30958,1,2,0)
;;=2^90715
;;^UTILITY(U,$J,358.3,30958,1,3,0)
;;=3^TDaP Vaccine
;;^UTILITY(U,$J,358.3,30959,0)
;;=90736^^87^1237^15^^^^1
;;^UTILITY(U,$J,358.3,30959,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30959,1,2,0)
;;=2^90736
;;^UTILITY(U,$J,358.3,30959,1,3,0)
;;=3^Zoster (Shingles) Vaccine
;;^UTILITY(U,$J,358.3,30960,0)
;;=90714^^87^1237^13^^^^1
;;^UTILITY(U,$J,358.3,30960,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30960,1,2,0)
;;=2^90714
;;^UTILITY(U,$J,358.3,30960,1,3,0)
;;=3^TD Vaccine
;;^UTILITY(U,$J,358.3,30961,0)
;;=90656^^87^1237^5^^^^1
;;^UTILITY(U,$J,358.3,30961,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30961,1,2,0)
;;=2^90656
;;^UTILITY(U,$J,358.3,30961,1,3,0)
;;=3^Flu Vaccine Single Dose Syringe (Afluria)
;;^UTILITY(U,$J,358.3,30962,0)
;;=90662^^87^1237^3^^^^1
;;^UTILITY(U,$J,358.3,30962,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30962,1,2,0)
;;=2^90662
;;^UTILITY(U,$J,358.3,30962,1,3,0)
;;=3^Flu Vaccine High Dose Syringe (Fluzone)
;;^UTILITY(U,$J,358.3,30963,0)
;;=90670^^87^1237^12^^^^1
;;^UTILITY(U,$J,358.3,30963,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30963,1,2,0)
;;=2^90670
;;^UTILITY(U,$J,358.3,30963,1,3,0)
;;=3^Prevnar 13 (Pneumococcal Vaccine)
;;^UTILITY(U,$J,358.3,30964,0)
;;=90686^^87^1237^6^^^^1
;;^UTILITY(U,$J,358.3,30964,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30964,1,2,0)
;;=2^90686
;;^UTILITY(U,$J,358.3,30964,1,3,0)
;;=3^Flu Vaccine Single Dose Syringe (Fluarix)
;;^UTILITY(U,$J,358.3,30965,0)
;;=96372^^87^1238^1^^^^1
;;^UTILITY(U,$J,358.3,30965,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30965,1,2,0)
;;=2^96372
;;^UTILITY(U,$J,358.3,30965,1,3,0)
;;=3^Ther/Proph/Dx Inj SQ/IM
;;^UTILITY(U,$J,358.3,30966,0)
;;=20600^^87^1238^2^^^^1
;;^UTILITY(U,$J,358.3,30966,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30966,1,2,0)
;;=2^20600
;;^UTILITY(U,$J,358.3,30966,1,3,0)
;;=3^Drain/Inject Small Joint/Bursa w/o US
;;^UTILITY(U,$J,358.3,30967,0)
;;=20605^^87^1238^4^^^^1
;;^UTILITY(U,$J,358.3,30967,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30967,1,2,0)
;;=2^20605
;;^UTILITY(U,$J,358.3,30967,1,3,0)
;;=3^Drain/Inject Interm Joint/Bursa w/o US
;;^UTILITY(U,$J,358.3,30968,0)
;;=20610^^87^1238^6^^^^1
;;^UTILITY(U,$J,358.3,30968,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30968,1,2,0)
;;=2^20610
;;^UTILITY(U,$J,358.3,30968,1,3,0)
;;=3^Drain/Inject Major Joint/Bursa w/o US
;;^UTILITY(U,$J,358.3,30969,0)
;;=20604^^87^1238^3^^^^1
;;^UTILITY(U,$J,358.3,30969,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30969,1,2,0)
;;=2^20604
;;^UTILITY(U,$J,358.3,30969,1,3,0)
;;=3^Drain/Inject Small Joint/Bursa w/ US
;;^UTILITY(U,$J,358.3,30970,0)
;;=20606^^87^1238^5^^^^1
;;^UTILITY(U,$J,358.3,30970,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30970,1,2,0)
;;=2^20606
;;^UTILITY(U,$J,358.3,30970,1,3,0)
;;=3^Drain/Inject Interm Joint/Bursa w/ US
;;^UTILITY(U,$J,358.3,30971,0)
;;=20611^^87^1238^7^^^^1
;;^UTILITY(U,$J,358.3,30971,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30971,1,2,0)
;;=2^20611
;;^UTILITY(U,$J,358.3,30971,1,3,0)
;;=3^Drain/Inject Major Joint/Bursa w/ US
;;^UTILITY(U,$J,358.3,30972,0)
;;=99078^^87^1239^2^^^^1
;;^UTILITY(U,$J,358.3,30972,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30972,1,2,0)
;;=2^99078
;;^UTILITY(U,$J,358.3,30972,1,3,0)
;;=3^Group Health Education
;;^UTILITY(U,$J,358.3,30973,0)
;;=98960^^87^1239^3^^^^1
;;^UTILITY(U,$J,358.3,30973,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30973,1,2,0)
;;=2^98960
;;^UTILITY(U,$J,358.3,30973,1,3,0)
;;=3^Self-Mgmt Educ/Train 1 Pt
;;^UTILITY(U,$J,358.3,30974,0)
;;=98961^^87^1239^4^^^^1
;;^UTILITY(U,$J,358.3,30974,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30974,1,2,0)
;;=2^98961
;;^UTILITY(U,$J,358.3,30974,1,3,0)
;;=3^Self-Mgmt Educ/Train 2-4 Pt
;;^UTILITY(U,$J,358.3,30975,0)
;;=98962^^87^1239^5^^^^1
;;^UTILITY(U,$J,358.3,30975,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30975,1,2,0)
;;=2^98962
;;^UTILITY(U,$J,358.3,30975,1,3,0)
;;=3^Self-Mgmt Educ/Train 5-8 Pt
;;^UTILITY(U,$J,358.3,30976,0)
;;=90887^^87^1240^1^^^^1
;;^UTILITY(U,$J,358.3,30976,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30976,1,2,0)
;;=2^90887
;;^UTILITY(U,$J,358.3,30976,1,3,0)
;;=3^CONSULTATION WITH FAMILY
;;^UTILITY(U,$J,358.3,30977,0)
;;=90846^^87^1240^2^^^^1
;;^UTILITY(U,$J,358.3,30977,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30977,1,2,0)
;;=2^90846
;;^UTILITY(U,$J,358.3,30977,1,3,0)
;;=3^FAMILY PSYTX W/O PATIENT
;;^UTILITY(U,$J,358.3,30978,0)
;;=99401^^87^1240^3^^^^1
;;^UTILITY(U,$J,358.3,30978,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30978,1,2,0)
;;=2^99401
;;^UTILITY(U,$J,358.3,30978,1,3,0)
;;=3^Preventive Counseling, IND (15 Mins)
;;^UTILITY(U,$J,358.3,30979,0)
;;=99402^^87^1240^4^^^^1
;;^UTILITY(U,$J,358.3,30979,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30979,1,2,0)
;;=2^99402
;;^UTILITY(U,$J,358.3,30979,1,3,0)
;;=3^Preventive Counseling, IND (30 Mins)
;;^UTILITY(U,$J,358.3,30980,0)
;;=99403^^87^1240^5^^^^1
;;^UTILITY(U,$J,358.3,30980,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30980,1,2,0)
;;=2^99403
;;^UTILITY(U,$J,358.3,30980,1,3,0)
;;=3^Preventive Counseling, IND (45 Mins)
;;^UTILITY(U,$J,358.3,30981,0)
;;=99404^^87^1240^6^^^^1
;;^UTILITY(U,$J,358.3,30981,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30981,1,2,0)
;;=2^99404
;;^UTILITY(U,$J,358.3,30981,1,3,0)
;;=3^Preventive Counseling, IND (60 Mins)
;;^UTILITY(U,$J,358.3,30982,0)
;;=99411^^87^1240^7^^^^1
;;^UTILITY(U,$J,358.3,30982,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30982,1,2,0)
;;=2^99411
;;^UTILITY(U,$J,358.3,30982,1,3,0)
;;=3^Preventive Counseling, Group (30 Mins)
;;^UTILITY(U,$J,358.3,30983,0)
;;=99412^^87^1240^8^^^^1
;;^UTILITY(U,$J,358.3,30983,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30983,1,2,0)
;;=2^99412
;;^UTILITY(U,$J,358.3,30983,1,3,0)
;;=3^Preventive Counseling, Group (60 Mins)
;;^UTILITY(U,$J,358.3,30984,0)
;;=99366^^87^1240^9^^^^1
;;^UTILITY(U,$J,358.3,30984,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30984,1,2,0)
;;=2^99366
;;^UTILITY(U,$J,358.3,30984,1,3,0)
;;=3^Team Conf w/ Pat by HC Pro (30 Mins)
;;^UTILITY(U,$J,358.3,30985,0)
;;=99367^^87^1240^10^^^^1
;;^UTILITY(U,$J,358.3,30985,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30985,1,2,0)
;;=2^99367
;;^UTILITY(U,$J,358.3,30985,1,3,0)
;;=3^Team Conf w/o Pat by Phys (30 Mins)
;;^UTILITY(U,$J,358.3,30986,0)
;;=99368^^87^1240^11^^^^1
;;^UTILITY(U,$J,358.3,30986,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30986,1,2,0)
;;=2^99368
;;^UTILITY(U,$J,358.3,30986,1,3,0)
;;=3^Team Conf w/o Pat by HC Prof (30 Mins)
;;^UTILITY(U,$J,358.3,30987,0)
;;=97535^^87^1241^1^^^^1
;;^UTILITY(U,$J,358.3,30987,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30987,1,2,0)
;;=2^97535
;;^UTILITY(U,$J,358.3,30987,1,3,0)
;;=3^ADLS Training,Ea 15min
;;^UTILITY(U,$J,358.3,30988,0)
;;=96105^^87^1241^2^^^^1
;;^UTILITY(U,$J,358.3,30988,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30988,1,2,0)
;;=2^96105
;;^UTILITY(U,$J,358.3,30988,1,3,0)
;;=3^Aphasia Assessment,Per Hr
;;^UTILITY(U,$J,358.3,30989,0)
;;=90901^^87^1241^3^^^^1
;;^UTILITY(U,$J,358.3,30989,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30989,1,2,0)
;;=2^90901
;;^UTILITY(U,$J,358.3,30989,1,3,0)
;;=3^Biofeedback training any method
;;^UTILITY(U,$J,358.3,30990,0)
;;=97750^^87^1241^6^^^^1
;;^UTILITY(U,$J,358.3,30990,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30990,1,2,0)
;;=2^97750
;;^UTILITY(U,$J,358.3,30990,1,3,0)
;;=3^Extrem Perf Testing,Ea 15min
;;^UTILITY(U,$J,358.3,30991,0)
;;=97161^^87^1241^12^^^^1
;;^UTILITY(U,$J,358.3,30991,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30991,1,2,0)
;;=2^97161
;;^UTILITY(U,$J,358.3,30991,1,3,0)
;;=3^PT Evaluation,Low Complexity
;;^UTILITY(U,$J,358.3,30992,0)
;;=97162^^87^1241^13^^^^1
;;^UTILITY(U,$J,358.3,30992,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30992,1,2,0)
;;=2^97162
;;^UTILITY(U,$J,358.3,30992,1,3,0)
;;=3^PT Evaluation,Moderate Complexity
;;^UTILITY(U,$J,358.3,30993,0)
;;=97163^^87^1241^11^^^^1
;;^UTILITY(U,$J,358.3,30993,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30993,1,2,0)
;;=2^97163
;;^UTILITY(U,$J,358.3,30993,1,3,0)
;;=3^PT Evaluation,High Complexity
;;^UTILITY(U,$J,358.3,30994,0)
;;=97164^^87^1241^14^^^^1
;;^UTILITY(U,$J,358.3,30994,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30994,1,2,0)
;;=2^97164
;;^UTILITY(U,$J,358.3,30994,1,3,0)
;;=3^PT Re-Evaluation
;;^UTILITY(U,$J,358.3,30995,0)
;;=97165^^87^1241^8^^^^1
;;^UTILITY(U,$J,358.3,30995,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30995,1,2,0)
;;=2^97165
;;^UTILITY(U,$J,358.3,30995,1,3,0)
;;=3^OT Evaluation,Low Complexity
;;^UTILITY(U,$J,358.3,30996,0)
;;=97166^^87^1241^9^^^^1
;;^UTILITY(U,$J,358.3,30996,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30996,1,2,0)
;;=2^97166
;;^UTILITY(U,$J,358.3,30996,1,3,0)
;;=3^OT Evaluation,Moderate Complexity
;;^UTILITY(U,$J,358.3,30997,0)
;;=97167^^87^1241^7^^^^1
;;^UTILITY(U,$J,358.3,30997,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30997,1,2,0)
;;=2^97167
;;^UTILITY(U,$J,358.3,30997,1,3,0)
;;=3^OT Evaluation,High Complexity
;;^UTILITY(U,$J,358.3,30998,0)
;;=97168^^87^1241^10^^^^1
;;^UTILITY(U,$J,358.3,30998,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30998,1,2,0)
;;=2^97168
;;^UTILITY(U,$J,358.3,30998,1,3,0)
;;=3^OT Re-Evaluation
;;^UTILITY(U,$J,358.3,30999,0)
;;=96112^^87^1241^4^^^^1
;;^UTILITY(U,$J,358.3,30999,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,30999,1,2,0)
;;=2^96112
;;^UTILITY(U,$J,358.3,30999,1,3,0)
;;=3^Developmental Test Admin,1st Hr
;;^UTILITY(U,$J,358.3,31000,0)
;;=96113^^87^1241^5^^^^1
;;^UTILITY(U,$J,358.3,31000,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31000,1,2,0)
;;=2^96113
;;^UTILITY(U,$J,358.3,31000,1,3,0)
;;=3^Developmental Test Admin,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,31001,0)
;;=64479^^87^1242^6^^^^1
;;^UTILITY(U,$J,358.3,31001,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31001,1,2,0)
;;=2^64479
;;^UTILITY(U,$J,358.3,31001,1,3,0)
;;=3^INJ Epidural, foramen, C/T
;;^UTILITY(U,$J,358.3,31002,0)
;;=64480^^87^1242^8^^^^1
;;^UTILITY(U,$J,358.3,31002,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31002,1,2,0)
;;=2^64480
;;^UTILITY(U,$J,358.3,31002,1,3,0)
;;=3^INJ Epidural,C/T Ea Addl Level
;;^UTILITY(U,$J,358.3,31003,0)
;;=64483^^87^1242^7^^^^1
;;^UTILITY(U,$J,358.3,31003,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31003,1,2,0)
;;=2^64483
;;^UTILITY(U,$J,358.3,31003,1,3,0)
;;=3^INJ Epidural, foramen, L/S
;;^UTILITY(U,$J,358.3,31004,0)
;;=64484^^87^1242^5^^^^1
;;^UTILITY(U,$J,358.3,31004,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31004,1,2,0)
;;=2^64484
;;^UTILITY(U,$J,358.3,31004,1,3,0)
;;=3^INJ Epidural, L/S Ea Addl Level
;;^UTILITY(U,$J,358.3,31005,0)
;;=64633^^87^1242^1^^^^1
;;^UTILITY(U,$J,358.3,31005,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31005,1,2,0)
;;=2^64633
;;^UTILITY(U,$J,358.3,31005,1,3,0)
;;=3^DESTR PARAVERT Nerve C/T, single
;;^UTILITY(U,$J,358.3,31006,0)
;;=64634^^87^1242^4^^^^1
;;^UTILITY(U,$J,358.3,31006,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31006,1,2,0)
;;=2^64634
;;^UTILITY(U,$J,358.3,31006,1,3,0)
;;=3^Destr PN C/T,Ea Addl Level
;;^UTILITY(U,$J,358.3,31007,0)
;;=64635^^87^1242^2^^^^1
;;^UTILITY(U,$J,358.3,31007,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31007,1,2,0)
;;=2^64635
;;^UTILITY(U,$J,358.3,31007,1,3,0)
;;=3^DESTR PARAVERT Nerve L/S, single
;;^UTILITY(U,$J,358.3,31008,0)
;;=64636^^87^1242^3^^^^1
;;^UTILITY(U,$J,358.3,31008,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31008,1,2,0)
;;=2^64636
;;^UTILITY(U,$J,358.3,31008,1,3,0)
;;=3^DESTR PN L/S, Ea Addl Level
;;^UTILITY(U,$J,358.3,31009,0)
;;=64490^^87^1242^11^^^^1
;;^UTILITY(U,$J,358.3,31009,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31009,1,2,0)
;;=2^64490
;;^UTILITY(U,$J,358.3,31009,1,3,0)
;;=3^INJ PARAVERT Joint C/T, Single
;;^UTILITY(U,$J,358.3,31010,0)
;;=64491^^87^1242^13^^^^1
;;^UTILITY(U,$J,358.3,31010,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31010,1,2,0)
;;=2^64491
;;^UTILITY(U,$J,358.3,31010,1,3,0)
;;=3^INJ PV Joint C/T, second level
;;^UTILITY(U,$J,358.3,31011,0)
;;=64492^^87^1242^14^^^^1
;;^UTILITY(U,$J,358.3,31011,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31011,1,2,0)
;;=2^64492
;;^UTILITY(U,$J,358.3,31011,1,3,0)
;;=3^INJ PV Joint C/T, third or more
;;^UTILITY(U,$J,358.3,31012,0)
;;=64493^^87^1242^12^^^^1
;;^UTILITY(U,$J,358.3,31012,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31012,1,2,0)
;;=2^64493
;;^UTILITY(U,$J,358.3,31012,1,3,0)
;;=3^INJ PARAVERT Joint L/S, Single
;;^UTILITY(U,$J,358.3,31013,0)
;;=64494^^87^1242^15^^^^1
;;^UTILITY(U,$J,358.3,31013,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31013,1,2,0)
;;=2^64494
;;^UTILITY(U,$J,358.3,31013,1,3,0)
;;=3^INJ PV Joint L/S, second level
;;^UTILITY(U,$J,358.3,31014,0)
;;=64495^^87^1242^16^^^^1
;;^UTILITY(U,$J,358.3,31014,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31014,1,2,0)
;;=2^64495
;;^UTILITY(U,$J,358.3,31014,1,3,0)
;;=3^INJ PV Joint L/S, third or more
;;^UTILITY(U,$J,358.3,31015,0)
;;=62320^^87^1242^9^^^^1
;;^UTILITY(U,$J,358.3,31015,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,31015,1,2,0)
;;=2^62320
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0CC 19788 printed Sep 23, 2025@19:21:52 Page 2
IBDEI0CC ; ; 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,30936,1,3,0)
+2 ;;=3^Weakness
+3 ;;^UTILITY(U,$J,358.3,30936,1,4,0)
+4 ;;=4^R53.1
+5 ;;^UTILITY(U,$J,358.3,30936,2)
+6 ;;=^5019516
+7 ;;^UTILITY(U,$J,358.3,30937,0)
+8 ;;=B02.9^^86^1235^79
+9 ;;^UTILITY(U,$J,358.3,30937,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,30937,1,3,0)
+12 ;;=3^Zoster w/o Complications
+13 ;;^UTILITY(U,$J,358.3,30937,1,4,0)
+14 ;;=4^B02.9
+15 ;;^UTILITY(U,$J,358.3,30937,2)
+16 ;;=^5000501
+17 ;;^UTILITY(U,$J,358.3,30938,0)
+18 ;;=K52.21^^86^1235^36
+19 ;;^UTILITY(U,$J,358.3,30938,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,30938,1,3,0)
+22 ;;=3^Food Protein Induced Enterocolitis Syndrome
+23 ;;^UTILITY(U,$J,358.3,30938,1,4,0)
+24 ;;=4^K52.21
+25 ;;^UTILITY(U,$J,358.3,30938,2)
+26 ;;=^5138713
+27 ;;^UTILITY(U,$J,358.3,30939,0)
+28 ;;=K52.22^^86^1235^37
+29 ;;^UTILITY(U,$J,358.3,30939,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,30939,1,3,0)
+32 ;;=3^Food Protein Induced Enteropathy
+33 ;;^UTILITY(U,$J,358.3,30939,1,4,0)
+34 ;;=4^K52.22
+35 ;;^UTILITY(U,$J,358.3,30939,2)
+36 ;;=^5138714
+37 ;;^UTILITY(U,$J,358.3,30940,0)
+38 ;;=K52.29^^86^1235^5
+39 ;;^UTILITY(U,$J,358.3,30940,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,30940,1,3,0)
+42 ;;=3^Allergic/Dietetic Gastroenteritis/Colitis,Other
+43 ;;^UTILITY(U,$J,358.3,30940,1,4,0)
+44 ;;=4^K52.29
+45 ;;^UTILITY(U,$J,358.3,30940,2)
+46 ;;=^5138715
+47 ;;^UTILITY(U,$J,358.3,30941,0)
+48 ;;=R51.0^^86^1235^39
+49 ;;^UTILITY(U,$J,358.3,30941,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,30941,1,3,0)
+52 ;;=3^Headache w/ Orthostatic Component,NEC
+53 ;;^UTILITY(U,$J,358.3,30941,1,4,0)
+54 ;;=4^R51.0
+55 ;;^UTILITY(U,$J,358.3,30941,2)
+56 ;;=^5159305
+57 ;;^UTILITY(U,$J,358.3,30942,0)
+58 ;;=R51.9^^86^1235^40
+59 ;;^UTILITY(U,$J,358.3,30942,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,30942,1,3,0)
+62 ;;=3^Headache,Unspecified
+63 ;;^UTILITY(U,$J,358.3,30942,1,4,0)
+64 ;;=4^R51.9
+65 ;;^UTILITY(U,$J,358.3,30942,2)
+66 ;;=^5159306
+67 ;;^UTILITY(U,$J,358.3,30943,0)
+68 ;;=R05.9^^86^1235^23
+69 ;;^UTILITY(U,$J,358.3,30943,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,30943,1,3,0)
+72 ;;=3^Cough,Unspec
+73 ;;^UTILITY(U,$J,358.3,30943,1,4,0)
+74 ;;=4^R05.9
+75 ;;^UTILITY(U,$J,358.3,30943,2)
+76 ;;=^5161232
+77 ;;^UTILITY(U,$J,358.3,30944,0)
+78 ;;=R45.851^^86^1236^3
+79 ;;^UTILITY(U,$J,358.3,30944,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,30944,1,3,0)
+82 ;;=3^Suicidal Ideations
+83 ;;^UTILITY(U,$J,358.3,30944,1,4,0)
+84 ;;=4^R45.851
+85 ;;^UTILITY(U,$J,358.3,30944,2)
+86 ;;=^5019474
+87 ;;^UTILITY(U,$J,358.3,30945,0)
+88 ;;=T14.91XA^^86^1236^4
+89 ;;^UTILITY(U,$J,358.3,30945,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,30945,1,3,0)
+92 ;;=3^Suicide Attempt,Initial Encntr
+93 ;;^UTILITY(U,$J,358.3,30945,1,4,0)
+94 ;;=4^T14.91XA
+95 ;;^UTILITY(U,$J,358.3,30945,2)
+96 ;;=^5151779
+97 ;;^UTILITY(U,$J,358.3,30946,0)
+98 ;;=T14.91XD^^86^1236^6
+99 ;;^UTILITY(U,$J,358.3,30946,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,30946,1,3,0)
+102 ;;=3^Suicide Attempt,Subsequent Encntr
+103 ;;^UTILITY(U,$J,358.3,30946,1,4,0)
+104 ;;=4^T14.91XD
+105 ;;^UTILITY(U,$J,358.3,30946,2)
+106 ;;=^5151780
+107 ;;^UTILITY(U,$J,358.3,30947,0)
+108 ;;=T14.91XS^^86^1236^5
+109 ;;^UTILITY(U,$J,358.3,30947,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,30947,1,3,0)
+112 ;;=3^Suicide Attempt,Sequela
+113 ;;^UTILITY(U,$J,358.3,30947,1,4,0)
+114 ;;=4^T14.91XS
+115 ;;^UTILITY(U,$J,358.3,30947,2)
+116 ;;=^5151781
+117 ;;^UTILITY(U,$J,358.3,30948,0)
+118 ;;=Z91.52^^86^1236^1
+119 ;;^UTILITY(U,$J,358.3,30948,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,30948,1,3,0)
+122 ;;=3^Personal Hx of Non-Suicidal Self-Harm
+123 ;;^UTILITY(U,$J,358.3,30948,1,4,0)
+124 ;;=4^Z91.52
+125 ;;^UTILITY(U,$J,358.3,30948,2)
+126 ;;=^5161318
+127 ;;^UTILITY(U,$J,358.3,30949,0)
+128 ;;=Z91.51^^86^1236^2
+129 ;;^UTILITY(U,$J,358.3,30949,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,30949,1,3,0)
+132 ;;=3^Personal Hx of Suicidal Behavior
+133 ;;^UTILITY(U,$J,358.3,30949,1,4,0)
+134 ;;=4^Z91.51
+135 ;;^UTILITY(U,$J,358.3,30949,2)
+136 ;;=^5161317
+137 ;;^UTILITY(U,$J,358.3,30950,0)
+138 ;;=90471^^87^1237^1^^^^1
+139 ;;^UTILITY(U,$J,358.3,30950,1,0)
+140 ;;=^358.31IA^3^2
+141 ;;^UTILITY(U,$J,358.3,30950,1,2,0)
+142 ;;=2^90471
+143 ;;^UTILITY(U,$J,358.3,30950,1,3,0)
+144 ;;=3^Immunization Admin (use w/ Vaccs)
+145 ;;^UTILITY(U,$J,358.3,30951,0)
+146 ;;=90472^^87^1237^2^^^^1
+147 ;;^UTILITY(U,$J,358.3,30951,1,0)
+148 ;;=^358.31IA^3^2
+149 ;;^UTILITY(U,$J,358.3,30951,1,2,0)
+150 ;;=2^90472
+151 ;;^UTILITY(U,$J,358.3,30951,1,3,0)
+152 ;;=3^Immunization Admin, ea add
+153 ;;^UTILITY(U,$J,358.3,30952,0)
+154 ;;=90632^^87^1237^7^^^^1
+155 ;;^UTILITY(U,$J,358.3,30952,1,0)
+156 ;;=^358.31IA^3^2
+157 ;;^UTILITY(U,$J,358.3,30952,1,2,0)
+158 ;;=2^90632
+159 ;;^UTILITY(U,$J,358.3,30952,1,3,0)
+160 ;;=3^Hepatitis A Vaccine
+161 ;;^UTILITY(U,$J,358.3,30953,0)
+162 ;;=90746^^87^1237^9^^^^1
+163 ;;^UTILITY(U,$J,358.3,30953,1,0)
+164 ;;=^358.31IA^3^2
+165 ;;^UTILITY(U,$J,358.3,30953,1,2,0)
+166 ;;=2^90746
+167 ;;^UTILITY(U,$J,358.3,30953,1,3,0)
+168 ;;=3^Hepatitis B Vaccine (3 Doses)
+169 ;;^UTILITY(U,$J,358.3,30954,0)
+170 ;;=90636^^87^1237^8^^^^1
+171 ;;^UTILITY(U,$J,358.3,30954,1,0)
+172 ;;=^358.31IA^3^2
+173 ;;^UTILITY(U,$J,358.3,30954,1,2,0)
+174 ;;=2^90636
+175 ;;^UTILITY(U,$J,358.3,30954,1,3,0)
+176 ;;=3^Hepatitis A&B Vaccine
+177 ;;^UTILITY(U,$J,358.3,30955,0)
+178 ;;=90707^^87^1237^10^^^^1
+179 ;;^UTILITY(U,$J,358.3,30955,1,0)
+180 ;;=^358.31IA^3^2
+181 ;;^UTILITY(U,$J,358.3,30955,1,2,0)
+182 ;;=2^90707
+183 ;;^UTILITY(U,$J,358.3,30955,1,3,0)
+184 ;;=3^MMR Virus
+185 ;;^UTILITY(U,$J,358.3,30956,0)
+186 ;;=90658^^87^1237^4^^^^1
+187 ;;^UTILITY(U,$J,358.3,30956,1,0)
+188 ;;=^358.31IA^3^2
+189 ;;^UTILITY(U,$J,358.3,30956,1,2,0)
+190 ;;=2^90658
+191 ;;^UTILITY(U,$J,358.3,30956,1,3,0)
+192 ;;=3^Flu Vaccine IM (Flulaval)
+193 ;;^UTILITY(U,$J,358.3,30957,0)
+194 ;;=90732^^87^1237^11^^^^1
+195 ;;^UTILITY(U,$J,358.3,30957,1,0)
+196 ;;=^358.31IA^3^2
+197 ;;^UTILITY(U,$J,358.3,30957,1,2,0)
+198 ;;=2^90732
+199 ;;^UTILITY(U,$J,358.3,30957,1,3,0)
+200 ;;=3^Pneumovax 23 (Pneumococcal Vaccine)
+201 ;;^UTILITY(U,$J,358.3,30958,0)
+202 ;;=90715^^87^1237^14^^^^1
+203 ;;^UTILITY(U,$J,358.3,30958,1,0)
+204 ;;=^358.31IA^3^2
+205 ;;^UTILITY(U,$J,358.3,30958,1,2,0)
+206 ;;=2^90715
+207 ;;^UTILITY(U,$J,358.3,30958,1,3,0)
+208 ;;=3^TDaP Vaccine
+209 ;;^UTILITY(U,$J,358.3,30959,0)
+210 ;;=90736^^87^1237^15^^^^1
+211 ;;^UTILITY(U,$J,358.3,30959,1,0)
+212 ;;=^358.31IA^3^2
+213 ;;^UTILITY(U,$J,358.3,30959,1,2,0)
+214 ;;=2^90736
+215 ;;^UTILITY(U,$J,358.3,30959,1,3,0)
+216 ;;=3^Zoster (Shingles) Vaccine
+217 ;;^UTILITY(U,$J,358.3,30960,0)
+218 ;;=90714^^87^1237^13^^^^1
+219 ;;^UTILITY(U,$J,358.3,30960,1,0)
+220 ;;=^358.31IA^3^2
+221 ;;^UTILITY(U,$J,358.3,30960,1,2,0)
+222 ;;=2^90714
+223 ;;^UTILITY(U,$J,358.3,30960,1,3,0)
+224 ;;=3^TD Vaccine
+225 ;;^UTILITY(U,$J,358.3,30961,0)
+226 ;;=90656^^87^1237^5^^^^1
+227 ;;^UTILITY(U,$J,358.3,30961,1,0)
+228 ;;=^358.31IA^3^2
+229 ;;^UTILITY(U,$J,358.3,30961,1,2,0)
+230 ;;=2^90656
+231 ;;^UTILITY(U,$J,358.3,30961,1,3,0)
+232 ;;=3^Flu Vaccine Single Dose Syringe (Afluria)
+233 ;;^UTILITY(U,$J,358.3,30962,0)
+234 ;;=90662^^87^1237^3^^^^1
+235 ;;^UTILITY(U,$J,358.3,30962,1,0)
+236 ;;=^358.31IA^3^2
+237 ;;^UTILITY(U,$J,358.3,30962,1,2,0)
+238 ;;=2^90662
+239 ;;^UTILITY(U,$J,358.3,30962,1,3,0)
+240 ;;=3^Flu Vaccine High Dose Syringe (Fluzone)
+241 ;;^UTILITY(U,$J,358.3,30963,0)
+242 ;;=90670^^87^1237^12^^^^1
+243 ;;^UTILITY(U,$J,358.3,30963,1,0)
+244 ;;=^358.31IA^3^2
+245 ;;^UTILITY(U,$J,358.3,30963,1,2,0)
+246 ;;=2^90670
+247 ;;^UTILITY(U,$J,358.3,30963,1,3,0)
+248 ;;=3^Prevnar 13 (Pneumococcal Vaccine)
+249 ;;^UTILITY(U,$J,358.3,30964,0)
+250 ;;=90686^^87^1237^6^^^^1
+251 ;;^UTILITY(U,$J,358.3,30964,1,0)
+252 ;;=^358.31IA^3^2
+253 ;;^UTILITY(U,$J,358.3,30964,1,2,0)
+254 ;;=2^90686
+255 ;;^UTILITY(U,$J,358.3,30964,1,3,0)
+256 ;;=3^Flu Vaccine Single Dose Syringe (Fluarix)
+257 ;;^UTILITY(U,$J,358.3,30965,0)
+258 ;;=96372^^87^1238^1^^^^1
+259 ;;^UTILITY(U,$J,358.3,30965,1,0)
+260 ;;=^358.31IA^3^2
+261 ;;^UTILITY(U,$J,358.3,30965,1,2,0)
+262 ;;=2^96372
+263 ;;^UTILITY(U,$J,358.3,30965,1,3,0)
+264 ;;=3^Ther/Proph/Dx Inj SQ/IM
+265 ;;^UTILITY(U,$J,358.3,30966,0)
+266 ;;=20600^^87^1238^2^^^^1
+267 ;;^UTILITY(U,$J,358.3,30966,1,0)
+268 ;;=^358.31IA^3^2
+269 ;;^UTILITY(U,$J,358.3,30966,1,2,0)
+270 ;;=2^20600
+271 ;;^UTILITY(U,$J,358.3,30966,1,3,0)
+272 ;;=3^Drain/Inject Small Joint/Bursa w/o US
+273 ;;^UTILITY(U,$J,358.3,30967,0)
+274 ;;=20605^^87^1238^4^^^^1
+275 ;;^UTILITY(U,$J,358.3,30967,1,0)
+276 ;;=^358.31IA^3^2
+277 ;;^UTILITY(U,$J,358.3,30967,1,2,0)
+278 ;;=2^20605
+279 ;;^UTILITY(U,$J,358.3,30967,1,3,0)
+280 ;;=3^Drain/Inject Interm Joint/Bursa w/o US
+281 ;;^UTILITY(U,$J,358.3,30968,0)
+282 ;;=20610^^87^1238^6^^^^1
+283 ;;^UTILITY(U,$J,358.3,30968,1,0)
+284 ;;=^358.31IA^3^2
+285 ;;^UTILITY(U,$J,358.3,30968,1,2,0)
+286 ;;=2^20610
+287 ;;^UTILITY(U,$J,358.3,30968,1,3,0)
+288 ;;=3^Drain/Inject Major Joint/Bursa w/o US
+289 ;;^UTILITY(U,$J,358.3,30969,0)
+290 ;;=20604^^87^1238^3^^^^1
+291 ;;^UTILITY(U,$J,358.3,30969,1,0)
+292 ;;=^358.31IA^3^2
+293 ;;^UTILITY(U,$J,358.3,30969,1,2,0)
+294 ;;=2^20604
+295 ;;^UTILITY(U,$J,358.3,30969,1,3,0)
+296 ;;=3^Drain/Inject Small Joint/Bursa w/ US
+297 ;;^UTILITY(U,$J,358.3,30970,0)
+298 ;;=20606^^87^1238^5^^^^1
+299 ;;^UTILITY(U,$J,358.3,30970,1,0)
+300 ;;=^358.31IA^3^2
+301 ;;^UTILITY(U,$J,358.3,30970,1,2,0)
+302 ;;=2^20606
+303 ;;^UTILITY(U,$J,358.3,30970,1,3,0)
+304 ;;=3^Drain/Inject Interm Joint/Bursa w/ US
+305 ;;^UTILITY(U,$J,358.3,30971,0)
+306 ;;=20611^^87^1238^7^^^^1
+307 ;;^UTILITY(U,$J,358.3,30971,1,0)
+308 ;;=^358.31IA^3^2
+309 ;;^UTILITY(U,$J,358.3,30971,1,2,0)
+310 ;;=2^20611
+311 ;;^UTILITY(U,$J,358.3,30971,1,3,0)
+312 ;;=3^Drain/Inject Major Joint/Bursa w/ US
+313 ;;^UTILITY(U,$J,358.3,30972,0)
+314 ;;=99078^^87^1239^2^^^^1
+315 ;;^UTILITY(U,$J,358.3,30972,1,0)
+316 ;;=^358.31IA^3^2
+317 ;;^UTILITY(U,$J,358.3,30972,1,2,0)
+318 ;;=2^99078
+319 ;;^UTILITY(U,$J,358.3,30972,1,3,0)
+320 ;;=3^Group Health Education
+321 ;;^UTILITY(U,$J,358.3,30973,0)
+322 ;;=98960^^87^1239^3^^^^1
+323 ;;^UTILITY(U,$J,358.3,30973,1,0)
+324 ;;=^358.31IA^3^2
+325 ;;^UTILITY(U,$J,358.3,30973,1,2,0)
+326 ;;=2^98960
+327 ;;^UTILITY(U,$J,358.3,30973,1,3,0)
+328 ;;=3^Self-Mgmt Educ/Train 1 Pt
+329 ;;^UTILITY(U,$J,358.3,30974,0)
+330 ;;=98961^^87^1239^4^^^^1
+331 ;;^UTILITY(U,$J,358.3,30974,1,0)
+332 ;;=^358.31IA^3^2
+333 ;;^UTILITY(U,$J,358.3,30974,1,2,0)
+334 ;;=2^98961
+335 ;;^UTILITY(U,$J,358.3,30974,1,3,0)
+336 ;;=3^Self-Mgmt Educ/Train 2-4 Pt
+337 ;;^UTILITY(U,$J,358.3,30975,0)
+338 ;;=98962^^87^1239^5^^^^1
+339 ;;^UTILITY(U,$J,358.3,30975,1,0)
+340 ;;=^358.31IA^3^2
+341 ;;^UTILITY(U,$J,358.3,30975,1,2,0)
+342 ;;=2^98962
+343 ;;^UTILITY(U,$J,358.3,30975,1,3,0)
+344 ;;=3^Self-Mgmt Educ/Train 5-8 Pt
+345 ;;^UTILITY(U,$J,358.3,30976,0)
+346 ;;=90887^^87^1240^1^^^^1
+347 ;;^UTILITY(U,$J,358.3,30976,1,0)
+348 ;;=^358.31IA^3^2
+349 ;;^UTILITY(U,$J,358.3,30976,1,2,0)
+350 ;;=2^90887
+351 ;;^UTILITY(U,$J,358.3,30976,1,3,0)
+352 ;;=3^CONSULTATION WITH FAMILY
+353 ;;^UTILITY(U,$J,358.3,30977,0)
+354 ;;=90846^^87^1240^2^^^^1
+355 ;;^UTILITY(U,$J,358.3,30977,1,0)
+356 ;;=^358.31IA^3^2
+357 ;;^UTILITY(U,$J,358.3,30977,1,2,0)
+358 ;;=2^90846
+359 ;;^UTILITY(U,$J,358.3,30977,1,3,0)
+360 ;;=3^FAMILY PSYTX W/O PATIENT
+361 ;;^UTILITY(U,$J,358.3,30978,0)
+362 ;;=99401^^87^1240^3^^^^1
+363 ;;^UTILITY(U,$J,358.3,30978,1,0)
+364 ;;=^358.31IA^3^2
+365 ;;^UTILITY(U,$J,358.3,30978,1,2,0)
+366 ;;=2^99401
+367 ;;^UTILITY(U,$J,358.3,30978,1,3,0)
+368 ;;=3^Preventive Counseling, IND (15 Mins)
+369 ;;^UTILITY(U,$J,358.3,30979,0)
+370 ;;=99402^^87^1240^4^^^^1
+371 ;;^UTILITY(U,$J,358.3,30979,1,0)
+372 ;;=^358.31IA^3^2
+373 ;;^UTILITY(U,$J,358.3,30979,1,2,0)
+374 ;;=2^99402
+375 ;;^UTILITY(U,$J,358.3,30979,1,3,0)
+376 ;;=3^Preventive Counseling, IND (30 Mins)
+377 ;;^UTILITY(U,$J,358.3,30980,0)
+378 ;;=99403^^87^1240^5^^^^1
+379 ;;^UTILITY(U,$J,358.3,30980,1,0)
+380 ;;=^358.31IA^3^2
+381 ;;^UTILITY(U,$J,358.3,30980,1,2,0)
+382 ;;=2^99403
+383 ;;^UTILITY(U,$J,358.3,30980,1,3,0)
+384 ;;=3^Preventive Counseling, IND (45 Mins)
+385 ;;^UTILITY(U,$J,358.3,30981,0)
+386 ;;=99404^^87^1240^6^^^^1
+387 ;;^UTILITY(U,$J,358.3,30981,1,0)
+388 ;;=^358.31IA^3^2
+389 ;;^UTILITY(U,$J,358.3,30981,1,2,0)
+390 ;;=2^99404
+391 ;;^UTILITY(U,$J,358.3,30981,1,3,0)
+392 ;;=3^Preventive Counseling, IND (60 Mins)
+393 ;;^UTILITY(U,$J,358.3,30982,0)
+394 ;;=99411^^87^1240^7^^^^1
+395 ;;^UTILITY(U,$J,358.3,30982,1,0)
+396 ;;=^358.31IA^3^2
+397 ;;^UTILITY(U,$J,358.3,30982,1,2,0)
+398 ;;=2^99411
+399 ;;^UTILITY(U,$J,358.3,30982,1,3,0)
+400 ;;=3^Preventive Counseling, Group (30 Mins)
+401 ;;^UTILITY(U,$J,358.3,30983,0)
+402 ;;=99412^^87^1240^8^^^^1
+403 ;;^UTILITY(U,$J,358.3,30983,1,0)
+404 ;;=^358.31IA^3^2
+405 ;;^UTILITY(U,$J,358.3,30983,1,2,0)
+406 ;;=2^99412
+407 ;;^UTILITY(U,$J,358.3,30983,1,3,0)
+408 ;;=3^Preventive Counseling, Group (60 Mins)
+409 ;;^UTILITY(U,$J,358.3,30984,0)
+410 ;;=99366^^87^1240^9^^^^1
+411 ;;^UTILITY(U,$J,358.3,30984,1,0)
+412 ;;=^358.31IA^3^2
+413 ;;^UTILITY(U,$J,358.3,30984,1,2,0)
+414 ;;=2^99366
+415 ;;^UTILITY(U,$J,358.3,30984,1,3,0)
+416 ;;=3^Team Conf w/ Pat by HC Pro (30 Mins)
+417 ;;^UTILITY(U,$J,358.3,30985,0)
+418 ;;=99367^^87^1240^10^^^^1
+419 ;;^UTILITY(U,$J,358.3,30985,1,0)
+420 ;;=^358.31IA^3^2
+421 ;;^UTILITY(U,$J,358.3,30985,1,2,0)
+422 ;;=2^99367
+423 ;;^UTILITY(U,$J,358.3,30985,1,3,0)
+424 ;;=3^Team Conf w/o Pat by Phys (30 Mins)
+425 ;;^UTILITY(U,$J,358.3,30986,0)
+426 ;;=99368^^87^1240^11^^^^1
+427 ;;^UTILITY(U,$J,358.3,30986,1,0)
+428 ;;=^358.31IA^3^2
+429 ;;^UTILITY(U,$J,358.3,30986,1,2,0)
+430 ;;=2^99368
+431 ;;^UTILITY(U,$J,358.3,30986,1,3,0)
+432 ;;=3^Team Conf w/o Pat by HC Prof (30 Mins)
+433 ;;^UTILITY(U,$J,358.3,30987,0)
+434 ;;=97535^^87^1241^1^^^^1
+435 ;;^UTILITY(U,$J,358.3,30987,1,0)
+436 ;;=^358.31IA^3^2
+437 ;;^UTILITY(U,$J,358.3,30987,1,2,0)
+438 ;;=2^97535
+439 ;;^UTILITY(U,$J,358.3,30987,1,3,0)
+440 ;;=3^ADLS Training,Ea 15min
+441 ;;^UTILITY(U,$J,358.3,30988,0)
+442 ;;=96105^^87^1241^2^^^^1
+443 ;;^UTILITY(U,$J,358.3,30988,1,0)
+444 ;;=^358.31IA^3^2
+445 ;;^UTILITY(U,$J,358.3,30988,1,2,0)
+446 ;;=2^96105
+447 ;;^UTILITY(U,$J,358.3,30988,1,3,0)
+448 ;;=3^Aphasia Assessment,Per Hr
+449 ;;^UTILITY(U,$J,358.3,30989,0)
+450 ;;=90901^^87^1241^3^^^^1
+451 ;;^UTILITY(U,$J,358.3,30989,1,0)
+452 ;;=^358.31IA^3^2
+453 ;;^UTILITY(U,$J,358.3,30989,1,2,0)
+454 ;;=2^90901
+455 ;;^UTILITY(U,$J,358.3,30989,1,3,0)
+456 ;;=3^Biofeedback training any method
+457 ;;^UTILITY(U,$J,358.3,30990,0)
+458 ;;=97750^^87^1241^6^^^^1
+459 ;;^UTILITY(U,$J,358.3,30990,1,0)
+460 ;;=^358.31IA^3^2
+461 ;;^UTILITY(U,$J,358.3,30990,1,2,0)
+462 ;;=2^97750
+463 ;;^UTILITY(U,$J,358.3,30990,1,3,0)
+464 ;;=3^Extrem Perf Testing,Ea 15min
+465 ;;^UTILITY(U,$J,358.3,30991,0)
+466 ;;=97161^^87^1241^12^^^^1
+467 ;;^UTILITY(U,$J,358.3,30991,1,0)
+468 ;;=^358.31IA^3^2
+469 ;;^UTILITY(U,$J,358.3,30991,1,2,0)
+470 ;;=2^97161
+471 ;;^UTILITY(U,$J,358.3,30991,1,3,0)
+472 ;;=3^PT Evaluation,Low Complexity
+473 ;;^UTILITY(U,$J,358.3,30992,0)
+474 ;;=97162^^87^1241^13^^^^1
+475 ;;^UTILITY(U,$J,358.3,30992,1,0)
+476 ;;=^358.31IA^3^2
+477 ;;^UTILITY(U,$J,358.3,30992,1,2,0)
+478 ;;=2^97162
+479 ;;^UTILITY(U,$J,358.3,30992,1,3,0)
+480 ;;=3^PT Evaluation,Moderate Complexity
+481 ;;^UTILITY(U,$J,358.3,30993,0)
+482 ;;=97163^^87^1241^11^^^^1
+483 ;;^UTILITY(U,$J,358.3,30993,1,0)
+484 ;;=^358.31IA^3^2
+485 ;;^UTILITY(U,$J,358.3,30993,1,2,0)
+486 ;;=2^97163
+487 ;;^UTILITY(U,$J,358.3,30993,1,3,0)
+488 ;;=3^PT Evaluation,High Complexity
+489 ;;^UTILITY(U,$J,358.3,30994,0)
+490 ;;=97164^^87^1241^14^^^^1
+491 ;;^UTILITY(U,$J,358.3,30994,1,0)
+492 ;;=^358.31IA^3^2
+493 ;;^UTILITY(U,$J,358.3,30994,1,2,0)
+494 ;;=2^97164
+495 ;;^UTILITY(U,$J,358.3,30994,1,3,0)
+496 ;;=3^PT Re-Evaluation
+497 ;;^UTILITY(U,$J,358.3,30995,0)
+498 ;;=97165^^87^1241^8^^^^1
+499 ;;^UTILITY(U,$J,358.3,30995,1,0)
+500 ;;=^358.31IA^3^2
+501 ;;^UTILITY(U,$J,358.3,30995,1,2,0)
+502 ;;=2^97165
+503 ;;^UTILITY(U,$J,358.3,30995,1,3,0)
+504 ;;=3^OT Evaluation,Low Complexity
+505 ;;^UTILITY(U,$J,358.3,30996,0)
+506 ;;=97166^^87^1241^9^^^^1
+507 ;;^UTILITY(U,$J,358.3,30996,1,0)
+508 ;;=^358.31IA^3^2
+509 ;;^UTILITY(U,$J,358.3,30996,1,2,0)
+510 ;;=2^97166
+511 ;;^UTILITY(U,$J,358.3,30996,1,3,0)
+512 ;;=3^OT Evaluation,Moderate Complexity
+513 ;;^UTILITY(U,$J,358.3,30997,0)
+514 ;;=97167^^87^1241^7^^^^1
+515 ;;^UTILITY(U,$J,358.3,30997,1,0)
+516 ;;=^358.31IA^3^2
+517 ;;^UTILITY(U,$J,358.3,30997,1,2,0)
+518 ;;=2^97167
+519 ;;^UTILITY(U,$J,358.3,30997,1,3,0)
+520 ;;=3^OT Evaluation,High Complexity
+521 ;;^UTILITY(U,$J,358.3,30998,0)
+522 ;;=97168^^87^1241^10^^^^1
+523 ;;^UTILITY(U,$J,358.3,30998,1,0)
+524 ;;=^358.31IA^3^2
+525 ;;^UTILITY(U,$J,358.3,30998,1,2,0)
+526 ;;=2^97168
+527 ;;^UTILITY(U,$J,358.3,30998,1,3,0)
+528 ;;=3^OT Re-Evaluation
+529 ;;^UTILITY(U,$J,358.3,30999,0)
+530 ;;=96112^^87^1241^4^^^^1
+531 ;;^UTILITY(U,$J,358.3,30999,1,0)
+532 ;;=^358.31IA^3^2
+533 ;;^UTILITY(U,$J,358.3,30999,1,2,0)
+534 ;;=2^96112
+535 ;;^UTILITY(U,$J,358.3,30999,1,3,0)
+536 ;;=3^Developmental Test Admin,1st Hr
+537 ;;^UTILITY(U,$J,358.3,31000,0)
+538 ;;=96113^^87^1241^5^^^^1
+539 ;;^UTILITY(U,$J,358.3,31000,1,0)
+540 ;;=^358.31IA^3^2
+541 ;;^UTILITY(U,$J,358.3,31000,1,2,0)
+542 ;;=2^96113
+543 ;;^UTILITY(U,$J,358.3,31000,1,3,0)
+544 ;;=3^Developmental Test Admin,Ea Addl 30 min
+545 ;;^UTILITY(U,$J,358.3,31001,0)
+546 ;;=64479^^87^1242^6^^^^1
+547 ;;^UTILITY(U,$J,358.3,31001,1,0)
+548 ;;=^358.31IA^3^2
+549 ;;^UTILITY(U,$J,358.3,31001,1,2,0)
+550 ;;=2^64479
+551 ;;^UTILITY(U,$J,358.3,31001,1,3,0)
+552 ;;=3^INJ Epidural, foramen, C/T
+553 ;;^UTILITY(U,$J,358.3,31002,0)
+554 ;;=64480^^87^1242^8^^^^1
+555 ;;^UTILITY(U,$J,358.3,31002,1,0)
+556 ;;=^358.31IA^3^2
+557 ;;^UTILITY(U,$J,358.3,31002,1,2,0)
+558 ;;=2^64480
+559 ;;^UTILITY(U,$J,358.3,31002,1,3,0)
+560 ;;=3^INJ Epidural,C/T Ea Addl Level
+561 ;;^UTILITY(U,$J,358.3,31003,0)
+562 ;;=64483^^87^1242^7^^^^1
+563 ;;^UTILITY(U,$J,358.3,31003,1,0)
+564 ;;=^358.31IA^3^2
+565 ;;^UTILITY(U,$J,358.3,31003,1,2,0)
+566 ;;=2^64483
+567 ;;^UTILITY(U,$J,358.3,31003,1,3,0)
+568 ;;=3^INJ Epidural, foramen, L/S
+569 ;;^UTILITY(U,$J,358.3,31004,0)
+570 ;;=64484^^87^1242^5^^^^1
+571 ;;^UTILITY(U,$J,358.3,31004,1,0)
+572 ;;=^358.31IA^3^2
+573 ;;^UTILITY(U,$J,358.3,31004,1,2,0)
+574 ;;=2^64484
+575 ;;^UTILITY(U,$J,358.3,31004,1,3,0)
+576 ;;=3^INJ Epidural, L/S Ea Addl Level
+577 ;;^UTILITY(U,$J,358.3,31005,0)
+578 ;;=64633^^87^1242^1^^^^1
+579 ;;^UTILITY(U,$J,358.3,31005,1,0)
+580 ;;=^358.31IA^3^2
+581 ;;^UTILITY(U,$J,358.3,31005,1,2,0)
+582 ;;=2^64633
+583 ;;^UTILITY(U,$J,358.3,31005,1,3,0)
+584 ;;=3^DESTR PARAVERT Nerve C/T, single
+585 ;;^UTILITY(U,$J,358.3,31006,0)
+586 ;;=64634^^87^1242^4^^^^1
+587 ;;^UTILITY(U,$J,358.3,31006,1,0)
+588 ;;=^358.31IA^3^2
+589 ;;^UTILITY(U,$J,358.3,31006,1,2,0)
+590 ;;=2^64634
+591 ;;^UTILITY(U,$J,358.3,31006,1,3,0)
+592 ;;=3^Destr PN C/T,Ea Addl Level
+593 ;;^UTILITY(U,$J,358.3,31007,0)
+594 ;;=64635^^87^1242^2^^^^1
+595 ;;^UTILITY(U,$J,358.3,31007,1,0)
+596 ;;=^358.31IA^3^2
+597 ;;^UTILITY(U,$J,358.3,31007,1,2,0)
+598 ;;=2^64635
+599 ;;^UTILITY(U,$J,358.3,31007,1,3,0)
+600 ;;=3^DESTR PARAVERT Nerve L/S, single
+601 ;;^UTILITY(U,$J,358.3,31008,0)
+602 ;;=64636^^87^1242^3^^^^1
+603 ;;^UTILITY(U,$J,358.3,31008,1,0)
+604 ;;=^358.31IA^3^2
+605 ;;^UTILITY(U,$J,358.3,31008,1,2,0)
+606 ;;=2^64636
+607 ;;^UTILITY(U,$J,358.3,31008,1,3,0)
+608 ;;=3^DESTR PN L/S, Ea Addl Level
+609 ;;^UTILITY(U,$J,358.3,31009,0)
+610 ;;=64490^^87^1242^11^^^^1
+611 ;;^UTILITY(U,$J,358.3,31009,1,0)
+612 ;;=^358.31IA^3^2
+613 ;;^UTILITY(U,$J,358.3,31009,1,2,0)
+614 ;;=2^64490
+615 ;;^UTILITY(U,$J,358.3,31009,1,3,0)
+616 ;;=3^INJ PARAVERT Joint C/T, Single
+617 ;;^UTILITY(U,$J,358.3,31010,0)
+618 ;;=64491^^87^1242^13^^^^1
+619 ;;^UTILITY(U,$J,358.3,31010,1,0)
+620 ;;=^358.31IA^3^2
+621 ;;^UTILITY(U,$J,358.3,31010,1,2,0)
+622 ;;=2^64491
+623 ;;^UTILITY(U,$J,358.3,31010,1,3,0)
+624 ;;=3^INJ PV Joint C/T, second level
+625 ;;^UTILITY(U,$J,358.3,31011,0)
+626 ;;=64492^^87^1242^14^^^^1
+627 ;;^UTILITY(U,$J,358.3,31011,1,0)
+628 ;;=^358.31IA^3^2
+629 ;;^UTILITY(U,$J,358.3,31011,1,2,0)
+630 ;;=2^64492
+631 ;;^UTILITY(U,$J,358.3,31011,1,3,0)
+632 ;;=3^INJ PV Joint C/T, third or more
+633 ;;^UTILITY(U,$J,358.3,31012,0)
+634 ;;=64493^^87^1242^12^^^^1
+635 ;;^UTILITY(U,$J,358.3,31012,1,0)
+636 ;;=^358.31IA^3^2
+637 ;;^UTILITY(U,$J,358.3,31012,1,2,0)
+638 ;;=2^64493
+639 ;;^UTILITY(U,$J,358.3,31012,1,3,0)
+640 ;;=3^INJ PARAVERT Joint L/S, Single
+641 ;;^UTILITY(U,$J,358.3,31013,0)
+642 ;;=64494^^87^1242^15^^^^1
+643 ;;^UTILITY(U,$J,358.3,31013,1,0)
+644 ;;=^358.31IA^3^2
+645 ;;^UTILITY(U,$J,358.3,31013,1,2,0)
+646 ;;=2^64494
+647 ;;^UTILITY(U,$J,358.3,31013,1,3,0)
+648 ;;=3^INJ PV Joint L/S, second level
+649 ;;^UTILITY(U,$J,358.3,31014,0)
+650 ;;=64495^^87^1242^16^^^^1
+651 ;;^UTILITY(U,$J,358.3,31014,1,0)
+652 ;;=^358.31IA^3^2
+653 ;;^UTILITY(U,$J,358.3,31014,1,2,0)
+654 ;;=2^64495
+655 ;;^UTILITY(U,$J,358.3,31014,1,3,0)
+656 ;;=3^INJ PV Joint L/S, third or more
+657 ;;^UTILITY(U,$J,358.3,31015,0)
+658 ;;=62320^^87^1242^9^^^^1
+659 ;;^UTILITY(U,$J,358.3,31015,1,0)
+660 ;;=^358.31IA^3^2
+661 ;;^UTILITY(U,$J,358.3,31015,1,2,0)
+662 ;;=2^62320
