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. 
  1. IBDEI0CC ; ; 03-MAY-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,30936,1,3,0)
  1.  ;;=3^Weakness
  1.  ;;^UTILITY(U,$J,358.3,30936,1,4,0)
  1.  ;;=4^R53.1
  1.  ;;^UTILITY(U,$J,358.3,30936,2)
  1.  ;;=^5019516
  1.  ;;^UTILITY(U,$J,358.3,30937,0)
  1.  ;;=B02.9^^86^1235^79
  1.  ;;^UTILITY(U,$J,358.3,30937,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30937,1,3,0)
  1.  ;;=3^Zoster w/o Complications
  1.  ;;^UTILITY(U,$J,358.3,30937,1,4,0)
  1.  ;;=4^B02.9
  1.  ;;^UTILITY(U,$J,358.3,30937,2)
  1.  ;;=^5000501
  1.  ;;^UTILITY(U,$J,358.3,30938,0)
  1.  ;;=K52.21^^86^1235^36
  1.  ;;^UTILITY(U,$J,358.3,30938,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30938,1,3,0)
  1.  ;;=3^Food Protein Induced Enterocolitis Syndrome
  1.  ;;^UTILITY(U,$J,358.3,30938,1,4,0)
  1.  ;;=4^K52.21
  1.  ;;^UTILITY(U,$J,358.3,30938,2)
  1.  ;;=^5138713
  1.  ;;^UTILITY(U,$J,358.3,30939,0)
  1.  ;;=K52.22^^86^1235^37
  1.  ;;^UTILITY(U,$J,358.3,30939,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30939,1,3,0)
  1.  ;;=3^Food Protein Induced Enteropathy
  1.  ;;^UTILITY(U,$J,358.3,30939,1,4,0)
  1.  ;;=4^K52.22
  1.  ;;^UTILITY(U,$J,358.3,30939,2)
  1.  ;;=^5138714
  1.  ;;^UTILITY(U,$J,358.3,30940,0)
  1.  ;;=K52.29^^86^1235^5
  1.  ;;^UTILITY(U,$J,358.3,30940,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30940,1,3,0)
  1.  ;;=3^Allergic/Dietetic Gastroenteritis/Colitis,Other
  1.  ;;^UTILITY(U,$J,358.3,30940,1,4,0)
  1.  ;;=4^K52.29
  1.  ;;^UTILITY(U,$J,358.3,30940,2)
  1.  ;;=^5138715
  1.  ;;^UTILITY(U,$J,358.3,30941,0)
  1.  ;;=R51.0^^86^1235^39
  1.  ;;^UTILITY(U,$J,358.3,30941,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30941,1,3,0)
  1.  ;;=3^Headache w/ Orthostatic Component,NEC
  1.  ;;^UTILITY(U,$J,358.3,30941,1,4,0)
  1.  ;;=4^R51.0
  1.  ;;^UTILITY(U,$J,358.3,30941,2)
  1.  ;;=^5159305
  1.  ;;^UTILITY(U,$J,358.3,30942,0)
  1.  ;;=R51.9^^86^1235^40
  1.  ;;^UTILITY(U,$J,358.3,30942,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30942,1,3,0)
  1.  ;;=3^Headache,Unspecified
  1.  ;;^UTILITY(U,$J,358.3,30942,1,4,0)
  1.  ;;=4^R51.9
  1.  ;;^UTILITY(U,$J,358.3,30942,2)
  1.  ;;=^5159306
  1.  ;;^UTILITY(U,$J,358.3,30943,0)
  1.  ;;=R05.9^^86^1235^23
  1.  ;;^UTILITY(U,$J,358.3,30943,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30943,1,3,0)
  1.  ;;=3^Cough,Unspec
  1.  ;;^UTILITY(U,$J,358.3,30943,1,4,0)
  1.  ;;=4^R05.9
  1.  ;;^UTILITY(U,$J,358.3,30943,2)
  1.  ;;=^5161232
  1.  ;;^UTILITY(U,$J,358.3,30944,0)
  1.  ;;=R45.851^^86^1236^3
  1.  ;;^UTILITY(U,$J,358.3,30944,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30944,1,3,0)
  1.  ;;=3^Suicidal Ideations
  1.  ;;^UTILITY(U,$J,358.3,30944,1,4,0)
  1.  ;;=4^R45.851
  1.  ;;^UTILITY(U,$J,358.3,30944,2)
  1.  ;;=^5019474
  1.  ;;^UTILITY(U,$J,358.3,30945,0)
  1.  ;;=T14.91XA^^86^1236^4
  1.  ;;^UTILITY(U,$J,358.3,30945,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30945,1,3,0)
  1.  ;;=3^Suicide Attempt,Initial Encntr
  1.  ;;^UTILITY(U,$J,358.3,30945,1,4,0)
  1.  ;;=4^T14.91XA
  1.  ;;^UTILITY(U,$J,358.3,30945,2)
  1.  ;;=^5151779
  1.  ;;^UTILITY(U,$J,358.3,30946,0)
  1.  ;;=T14.91XD^^86^1236^6
  1.  ;;^UTILITY(U,$J,358.3,30946,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30946,1,3,0)
  1.  ;;=3^Suicide Attempt,Subsequent Encntr
  1.  ;;^UTILITY(U,$J,358.3,30946,1,4,0)
  1.  ;;=4^T14.91XD
  1.  ;;^UTILITY(U,$J,358.3,30946,2)
  1.  ;;=^5151780
  1.  ;;^UTILITY(U,$J,358.3,30947,0)
  1.  ;;=T14.91XS^^86^1236^5
  1.  ;;^UTILITY(U,$J,358.3,30947,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30947,1,3,0)
  1.  ;;=3^Suicide Attempt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,30947,1,4,0)
  1.  ;;=4^T14.91XS
  1.  ;;^UTILITY(U,$J,358.3,30947,2)
  1.  ;;=^5151781
  1.  ;;^UTILITY(U,$J,358.3,30948,0)
  1.  ;;=Z91.52^^86^1236^1
  1.  ;;^UTILITY(U,$J,358.3,30948,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30948,1,3,0)
  1.  ;;=3^Personal Hx of Non-Suicidal Self-Harm
  1.  ;;^UTILITY(U,$J,358.3,30948,1,4,0)
  1.  ;;=4^Z91.52
  1.  ;;^UTILITY(U,$J,358.3,30948,2)
  1.  ;;=^5161318
  1.  ;;^UTILITY(U,$J,358.3,30949,0)
  1.  ;;=Z91.51^^86^1236^2
  1.  ;;^UTILITY(U,$J,358.3,30949,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,30949,1,3,0)
  1.  ;;=3^Personal Hx of Suicidal Behavior     
  1.  ;;^UTILITY(U,$J,358.3,30949,1,4,0)
  1.  ;;=4^Z91.51
  1.  ;;^UTILITY(U,$J,358.3,30949,2)
  1.  ;;=^5161317
  1.  ;;^UTILITY(U,$J,358.3,30950,0)
  1.  ;;=90471^^87^1237^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30950,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30950,1,2,0)
  1.  ;;=2^90471
  1.  ;;^UTILITY(U,$J,358.3,30950,1,3,0)
  1.  ;;=3^Immunization Admin (use w/ Vaccs)
  1.  ;;^UTILITY(U,$J,358.3,30951,0)
  1.  ;;=90472^^87^1237^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30951,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30951,1,2,0)
  1.  ;;=2^90472
  1.  ;;^UTILITY(U,$J,358.3,30951,1,3,0)
  1.  ;;=3^Immunization Admin, ea add
  1.  ;;^UTILITY(U,$J,358.3,30952,0)
  1.  ;;=90632^^87^1237^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30952,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30952,1,2,0)
  1.  ;;=2^90632
  1.  ;;^UTILITY(U,$J,358.3,30952,1,3,0)
  1.  ;;=3^Hepatitis A Vaccine
  1.  ;;^UTILITY(U,$J,358.3,30953,0)
  1.  ;;=90746^^87^1237^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30953,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30953,1,2,0)
  1.  ;;=2^90746
  1.  ;;^UTILITY(U,$J,358.3,30953,1,3,0)
  1.  ;;=3^Hepatitis B Vaccine (3 Doses)
  1.  ;;^UTILITY(U,$J,358.3,30954,0)
  1.  ;;=90636^^87^1237^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30954,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30954,1,2,0)
  1.  ;;=2^90636
  1.  ;;^UTILITY(U,$J,358.3,30954,1,3,0)
  1.  ;;=3^Hepatitis A&B Vaccine
  1.  ;;^UTILITY(U,$J,358.3,30955,0)
  1.  ;;=90707^^87^1237^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30955,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30955,1,2,0)
  1.  ;;=2^90707
  1.  ;;^UTILITY(U,$J,358.3,30955,1,3,0)
  1.  ;;=3^MMR Virus
  1.  ;;^UTILITY(U,$J,358.3,30956,0)
  1.  ;;=90658^^87^1237^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30956,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30956,1,2,0)
  1.  ;;=2^90658
  1.  ;;^UTILITY(U,$J,358.3,30956,1,3,0)
  1.  ;;=3^Flu Vaccine IM (Flulaval)
  1.  ;;^UTILITY(U,$J,358.3,30957,0)
  1.  ;;=90732^^87^1237^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30957,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30957,1,2,0)
  1.  ;;=2^90732
  1.  ;;^UTILITY(U,$J,358.3,30957,1,3,0)
  1.  ;;=3^Pneumovax 23 (Pneumococcal Vaccine)
  1.  ;;^UTILITY(U,$J,358.3,30958,0)
  1.  ;;=90715^^87^1237^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30958,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30958,1,2,0)
  1.  ;;=2^90715
  1.  ;;^UTILITY(U,$J,358.3,30958,1,3,0)
  1.  ;;=3^TDaP Vaccine
  1.  ;;^UTILITY(U,$J,358.3,30959,0)
  1.  ;;=90736^^87^1237^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30959,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30959,1,2,0)
  1.  ;;=2^90736
  1.  ;;^UTILITY(U,$J,358.3,30959,1,3,0)
  1.  ;;=3^Zoster (Shingles) Vaccine
  1.  ;;^UTILITY(U,$J,358.3,30960,0)
  1.  ;;=90714^^87^1237^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30960,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30960,1,2,0)
  1.  ;;=2^90714
  1.  ;;^UTILITY(U,$J,358.3,30960,1,3,0)
  1.  ;;=3^TD Vaccine
  1.  ;;^UTILITY(U,$J,358.3,30961,0)
  1.  ;;=90656^^87^1237^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30961,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30961,1,2,0)
  1.  ;;=2^90656
  1.  ;;^UTILITY(U,$J,358.3,30961,1,3,0)
  1.  ;;=3^Flu Vaccine Single Dose Syringe (Afluria)
  1.  ;;^UTILITY(U,$J,358.3,30962,0)
  1.  ;;=90662^^87^1237^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30962,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30962,1,2,0)
  1.  ;;=2^90662
  1.  ;;^UTILITY(U,$J,358.3,30962,1,3,0)
  1.  ;;=3^Flu Vaccine High Dose Syringe (Fluzone)
  1.  ;;^UTILITY(U,$J,358.3,30963,0)
  1.  ;;=90670^^87^1237^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30963,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30963,1,2,0)
  1.  ;;=2^90670
  1.  ;;^UTILITY(U,$J,358.3,30963,1,3,0)
  1.  ;;=3^Prevnar 13 (Pneumococcal Vaccine)
  1.  ;;^UTILITY(U,$J,358.3,30964,0)
  1.  ;;=90686^^87^1237^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30964,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30964,1,2,0)
  1.  ;;=2^90686
  1.  ;;^UTILITY(U,$J,358.3,30964,1,3,0)
  1.  ;;=3^Flu Vaccine Single Dose Syringe (Fluarix)
  1.  ;;^UTILITY(U,$J,358.3,30965,0)
  1.  ;;=96372^^87^1238^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30965,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30965,1,2,0)
  1.  ;;=2^96372
  1.  ;;^UTILITY(U,$J,358.3,30965,1,3,0)
  1.  ;;=3^Ther/Proph/Dx Inj SQ/IM
  1.  ;;^UTILITY(U,$J,358.3,30966,0)
  1.  ;;=20600^^87^1238^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30966,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30966,1,2,0)
  1.  ;;=2^20600
  1.  ;;^UTILITY(U,$J,358.3,30966,1,3,0)
  1.  ;;=3^Drain/Inject Small Joint/Bursa w/o US
  1.  ;;^UTILITY(U,$J,358.3,30967,0)
  1.  ;;=20605^^87^1238^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30967,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30967,1,2,0)
  1.  ;;=2^20605
  1.  ;;^UTILITY(U,$J,358.3,30967,1,3,0)
  1.  ;;=3^Drain/Inject Interm Joint/Bursa w/o US
  1.  ;;^UTILITY(U,$J,358.3,30968,0)
  1.  ;;=20610^^87^1238^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30968,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30968,1,2,0)
  1.  ;;=2^20610
  1.  ;;^UTILITY(U,$J,358.3,30968,1,3,0)
  1.  ;;=3^Drain/Inject Major Joint/Bursa w/o US
  1.  ;;^UTILITY(U,$J,358.3,30969,0)
  1.  ;;=20604^^87^1238^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30969,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30969,1,2,0)
  1.  ;;=2^20604
  1.  ;;^UTILITY(U,$J,358.3,30969,1,3,0)
  1.  ;;=3^Drain/Inject Small Joint/Bursa w/ US
  1.  ;;^UTILITY(U,$J,358.3,30970,0)
  1.  ;;=20606^^87^1238^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30970,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30970,1,2,0)
  1.  ;;=2^20606
  1.  ;;^UTILITY(U,$J,358.3,30970,1,3,0)
  1.  ;;=3^Drain/Inject Interm Joint/Bursa w/ US
  1.  ;;^UTILITY(U,$J,358.3,30971,0)
  1.  ;;=20611^^87^1238^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30971,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30971,1,2,0)
  1.  ;;=2^20611
  1.  ;;^UTILITY(U,$J,358.3,30971,1,3,0)
  1.  ;;=3^Drain/Inject Major Joint/Bursa w/ US
  1.  ;;^UTILITY(U,$J,358.3,30972,0)
  1.  ;;=99078^^87^1239^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30972,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30972,1,2,0)
  1.  ;;=2^99078
  1.  ;;^UTILITY(U,$J,358.3,30972,1,3,0)
  1.  ;;=3^Group Health Education
  1.  ;;^UTILITY(U,$J,358.3,30973,0)
  1.  ;;=98960^^87^1239^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30973,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30973,1,2,0)
  1.  ;;=2^98960
  1.  ;;^UTILITY(U,$J,358.3,30973,1,3,0)
  1.  ;;=3^Self-Mgmt Educ/Train 1 Pt
  1.  ;;^UTILITY(U,$J,358.3,30974,0)
  1.  ;;=98961^^87^1239^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30974,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30974,1,2,0)
  1.  ;;=2^98961
  1.  ;;^UTILITY(U,$J,358.3,30974,1,3,0)
  1.  ;;=3^Self-Mgmt Educ/Train 2-4 Pt
  1.  ;;^UTILITY(U,$J,358.3,30975,0)
  1.  ;;=98962^^87^1239^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30975,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30975,1,2,0)
  1.  ;;=2^98962
  1.  ;;^UTILITY(U,$J,358.3,30975,1,3,0)
  1.  ;;=3^Self-Mgmt Educ/Train 5-8 Pt
  1.  ;;^UTILITY(U,$J,358.3,30976,0)
  1.  ;;=90887^^87^1240^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30976,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30976,1,2,0)
  1.  ;;=2^90887
  1.  ;;^UTILITY(U,$J,358.3,30976,1,3,0)
  1.  ;;=3^CONSULTATION WITH FAMILY
  1.  ;;^UTILITY(U,$J,358.3,30977,0)
  1.  ;;=90846^^87^1240^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30977,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30977,1,2,0)
  1.  ;;=2^90846
  1.  ;;^UTILITY(U,$J,358.3,30977,1,3,0)
  1.  ;;=3^FAMILY PSYTX W/O PATIENT
  1.  ;;^UTILITY(U,$J,358.3,30978,0)
  1.  ;;=99401^^87^1240^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30978,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30978,1,2,0)
  1.  ;;=2^99401
  1.  ;;^UTILITY(U,$J,358.3,30978,1,3,0)
  1.  ;;=3^Preventive Counseling, IND (15 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30979,0)
  1.  ;;=99402^^87^1240^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30979,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30979,1,2,0)
  1.  ;;=2^99402
  1.  ;;^UTILITY(U,$J,358.3,30979,1,3,0)
  1.  ;;=3^Preventive Counseling, IND (30 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30980,0)
  1.  ;;=99403^^87^1240^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30980,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30980,1,2,0)
  1.  ;;=2^99403
  1.  ;;^UTILITY(U,$J,358.3,30980,1,3,0)
  1.  ;;=3^Preventive Counseling, IND (45 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30981,0)
  1.  ;;=99404^^87^1240^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30981,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30981,1,2,0)
  1.  ;;=2^99404
  1.  ;;^UTILITY(U,$J,358.3,30981,1,3,0)
  1.  ;;=3^Preventive Counseling, IND (60 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30982,0)
  1.  ;;=99411^^87^1240^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30982,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30982,1,2,0)
  1.  ;;=2^99411
  1.  ;;^UTILITY(U,$J,358.3,30982,1,3,0)
  1.  ;;=3^Preventive Counseling, Group (30 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30983,0)
  1.  ;;=99412^^87^1240^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30983,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30983,1,2,0)
  1.  ;;=2^99412
  1.  ;;^UTILITY(U,$J,358.3,30983,1,3,0)
  1.  ;;=3^Preventive Counseling, Group (60 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30984,0)
  1.  ;;=99366^^87^1240^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30984,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30984,1,2,0)
  1.  ;;=2^99366
  1.  ;;^UTILITY(U,$J,358.3,30984,1,3,0)
  1.  ;;=3^Team Conf w/ Pat by HC Pro (30 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30985,0)
  1.  ;;=99367^^87^1240^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30985,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30985,1,2,0)
  1.  ;;=2^99367
  1.  ;;^UTILITY(U,$J,358.3,30985,1,3,0)
  1.  ;;=3^Team Conf w/o Pat by Phys (30 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30986,0)
  1.  ;;=99368^^87^1240^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30986,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30986,1,2,0)
  1.  ;;=2^99368
  1.  ;;^UTILITY(U,$J,358.3,30986,1,3,0)
  1.  ;;=3^Team Conf w/o Pat by HC Prof (30 Mins)
  1.  ;;^UTILITY(U,$J,358.3,30987,0)
  1.  ;;=97535^^87^1241^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30987,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30987,1,2,0)
  1.  ;;=2^97535
  1.  ;;^UTILITY(U,$J,358.3,30987,1,3,0)
  1.  ;;=3^ADLS Training,Ea 15min
  1.  ;;^UTILITY(U,$J,358.3,30988,0)
  1.  ;;=96105^^87^1241^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30988,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30988,1,2,0)
  1.  ;;=2^96105
  1.  ;;^UTILITY(U,$J,358.3,30988,1,3,0)
  1.  ;;=3^Aphasia Assessment,Per Hr
  1.  ;;^UTILITY(U,$J,358.3,30989,0)
  1.  ;;=90901^^87^1241^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30989,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30989,1,2,0)
  1.  ;;=2^90901
  1.  ;;^UTILITY(U,$J,358.3,30989,1,3,0)
  1.  ;;=3^Biofeedback training any method
  1.  ;;^UTILITY(U,$J,358.3,30990,0)
  1.  ;;=97750^^87^1241^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30990,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30990,1,2,0)
  1.  ;;=2^97750
  1.  ;;^UTILITY(U,$J,358.3,30990,1,3,0)
  1.  ;;=3^Extrem Perf Testing,Ea 15min
  1.  ;;^UTILITY(U,$J,358.3,30991,0)
  1.  ;;=97161^^87^1241^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30991,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30991,1,2,0)
  1.  ;;=2^97161
  1.  ;;^UTILITY(U,$J,358.3,30991,1,3,0)
  1.  ;;=3^PT Evaluation,Low Complexity
  1.  ;;^UTILITY(U,$J,358.3,30992,0)
  1.  ;;=97162^^87^1241^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30992,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30992,1,2,0)
  1.  ;;=2^97162
  1.  ;;^UTILITY(U,$J,358.3,30992,1,3,0)
  1.  ;;=3^PT Evaluation,Moderate Complexity
  1.  ;;^UTILITY(U,$J,358.3,30993,0)
  1.  ;;=97163^^87^1241^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30993,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30993,1,2,0)
  1.  ;;=2^97163
  1.  ;;^UTILITY(U,$J,358.3,30993,1,3,0)
  1.  ;;=3^PT Evaluation,High Complexity
  1.  ;;^UTILITY(U,$J,358.3,30994,0)
  1.  ;;=97164^^87^1241^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30994,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30994,1,2,0)
  1.  ;;=2^97164
  1.  ;;^UTILITY(U,$J,358.3,30994,1,3,0)
  1.  ;;=3^PT Re-Evaluation
  1.  ;;^UTILITY(U,$J,358.3,30995,0)
  1.  ;;=97165^^87^1241^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30995,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30995,1,2,0)
  1.  ;;=2^97165
  1.  ;;^UTILITY(U,$J,358.3,30995,1,3,0)
  1.  ;;=3^OT Evaluation,Low Complexity
  1.  ;;^UTILITY(U,$J,358.3,30996,0)
  1.  ;;=97166^^87^1241^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30996,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30996,1,2,0)
  1.  ;;=2^97166
  1.  ;;^UTILITY(U,$J,358.3,30996,1,3,0)
  1.  ;;=3^OT Evaluation,Moderate Complexity
  1.  ;;^UTILITY(U,$J,358.3,30997,0)
  1.  ;;=97167^^87^1241^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30997,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30997,1,2,0)
  1.  ;;=2^97167
  1.  ;;^UTILITY(U,$J,358.3,30997,1,3,0)
  1.  ;;=3^OT Evaluation,High Complexity
  1.  ;;^UTILITY(U,$J,358.3,30998,0)
  1.  ;;=97168^^87^1241^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30998,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30998,1,2,0)
  1.  ;;=2^97168
  1.  ;;^UTILITY(U,$J,358.3,30998,1,3,0)
  1.  ;;=3^OT Re-Evaluation
  1.  ;;^UTILITY(U,$J,358.3,30999,0)
  1.  ;;=96112^^87^1241^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,30999,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,30999,1,2,0)
  1.  ;;=2^96112
  1.  ;;^UTILITY(U,$J,358.3,30999,1,3,0)
  1.  ;;=3^Developmental Test Admin,1st Hr
  1.  ;;^UTILITY(U,$J,358.3,31000,0)
  1.  ;;=96113^^87^1241^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31000,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31000,1,2,0)
  1.  ;;=2^96113
  1.  ;;^UTILITY(U,$J,358.3,31000,1,3,0)
  1.  ;;=3^Developmental Test Admin,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,31001,0)
  1.  ;;=64479^^87^1242^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31001,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31001,1,2,0)
  1.  ;;=2^64479
  1.  ;;^UTILITY(U,$J,358.3,31001,1,3,0)
  1.  ;;=3^INJ Epidural, foramen, C/T
  1.  ;;^UTILITY(U,$J,358.3,31002,0)
  1.  ;;=64480^^87^1242^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31002,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31002,1,2,0)
  1.  ;;=2^64480
  1.  ;;^UTILITY(U,$J,358.3,31002,1,3,0)
  1.  ;;=3^INJ Epidural,C/T Ea Addl Level
  1.  ;;^UTILITY(U,$J,358.3,31003,0)
  1.  ;;=64483^^87^1242^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31003,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31003,1,2,0)
  1.  ;;=2^64483
  1.  ;;^UTILITY(U,$J,358.3,31003,1,3,0)
  1.  ;;=3^INJ Epidural, foramen, L/S
  1.  ;;^UTILITY(U,$J,358.3,31004,0)
  1.  ;;=64484^^87^1242^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31004,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31004,1,2,0)
  1.  ;;=2^64484
  1.  ;;^UTILITY(U,$J,358.3,31004,1,3,0)
  1.  ;;=3^INJ Epidural, L/S Ea Addl Level
  1.  ;;^UTILITY(U,$J,358.3,31005,0)
  1.  ;;=64633^^87^1242^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31005,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31005,1,2,0)
  1.  ;;=2^64633
  1.  ;;^UTILITY(U,$J,358.3,31005,1,3,0)
  1.  ;;=3^DESTR PARAVERT Nerve C/T, single
  1.  ;;^UTILITY(U,$J,358.3,31006,0)
  1.  ;;=64634^^87^1242^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31006,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31006,1,2,0)
  1.  ;;=2^64634
  1.  ;;^UTILITY(U,$J,358.3,31006,1,3,0)
  1.  ;;=3^Destr PN C/T,Ea Addl Level
  1.  ;;^UTILITY(U,$J,358.3,31007,0)
  1.  ;;=64635^^87^1242^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31007,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31007,1,2,0)
  1.  ;;=2^64635
  1.  ;;^UTILITY(U,$J,358.3,31007,1,3,0)
  1.  ;;=3^DESTR PARAVERT Nerve L/S, single
  1.  ;;^UTILITY(U,$J,358.3,31008,0)
  1.  ;;=64636^^87^1242^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31008,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31008,1,2,0)
  1.  ;;=2^64636
  1.  ;;^UTILITY(U,$J,358.3,31008,1,3,0)
  1.  ;;=3^DESTR PN L/S, Ea Addl Level
  1.  ;;^UTILITY(U,$J,358.3,31009,0)
  1.  ;;=64490^^87^1242^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31009,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31009,1,2,0)
  1.  ;;=2^64490
  1.  ;;^UTILITY(U,$J,358.3,31009,1,3,0)
  1.  ;;=3^INJ PARAVERT Joint C/T, Single
  1.  ;;^UTILITY(U,$J,358.3,31010,0)
  1.  ;;=64491^^87^1242^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31010,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31010,1,2,0)
  1.  ;;=2^64491
  1.  ;;^UTILITY(U,$J,358.3,31010,1,3,0)
  1.  ;;=3^INJ PV Joint C/T, second level
  1.  ;;^UTILITY(U,$J,358.3,31011,0)
  1.  ;;=64492^^87^1242^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31011,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31011,1,2,0)
  1.  ;;=2^64492
  1.  ;;^UTILITY(U,$J,358.3,31011,1,3,0)
  1.  ;;=3^INJ PV Joint C/T, third or more
  1.  ;;^UTILITY(U,$J,358.3,31012,0)
  1.  ;;=64493^^87^1242^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31012,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31012,1,2,0)
  1.  ;;=2^64493
  1.  ;;^UTILITY(U,$J,358.3,31012,1,3,0)
  1.  ;;=3^INJ PARAVERT Joint L/S, Single
  1.  ;;^UTILITY(U,$J,358.3,31013,0)
  1.  ;;=64494^^87^1242^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31013,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31013,1,2,0)
  1.  ;;=2^64494
  1.  ;;^UTILITY(U,$J,358.3,31013,1,3,0)
  1.  ;;=3^INJ PV Joint L/S, second level
  1.  ;;^UTILITY(U,$J,358.3,31014,0)
  1.  ;;=64495^^87^1242^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31014,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31014,1,2,0)
  1.  ;;=2^64495
  1.  ;;^UTILITY(U,$J,358.3,31014,1,3,0)
  1.  ;;=3^INJ PV Joint L/S, third or more
  1.  ;;^UTILITY(U,$J,358.3,31015,0)
  1.  ;;=62320^^87^1242^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31015,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31015,1,2,0)
  1.  ;;=2^62320