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

IBDEI0CC.m

Go to the documentation of this file.
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