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

IBDEI0CM.m

Go to the documentation of this file.
  1. IBDEI0CM ; ; 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,31657,1,2,0)
  1. ;;=2^90746
  1. ;;^UTILITY(U,$J,358.3,31657,1,3,0)
  1. ;;=3^Hepatitis B Vaccine (3 dose)
  1. ;;^UTILITY(U,$J,358.3,31658,0)
  1. ;;=90636^^93^1288^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,31658,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31658,1,2,0)
  1. ;;=2^90636
  1. ;;^UTILITY(U,$J,358.3,31658,1,3,0)
  1. ;;=3^Hepatitis A&B Vaccine
  1. ;;^UTILITY(U,$J,358.3,31659,0)
  1. ;;=90707^^93^1288^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,31659,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31659,1,2,0)
  1. ;;=2^90707
  1. ;;^UTILITY(U,$J,358.3,31659,1,3,0)
  1. ;;=3^MMR Vaccine
  1. ;;^UTILITY(U,$J,358.3,31660,0)
  1. ;;=90658^^93^1288^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31660,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31660,1,2,0)
  1. ;;=2^90658
  1. ;;^UTILITY(U,$J,358.3,31660,1,3,0)
  1. ;;=3^Flu Vaccine,IM
  1. ;;^UTILITY(U,$J,358.3,31661,0)
  1. ;;=90732^^93^1288^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,31661,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31661,1,2,0)
  1. ;;=2^90732
  1. ;;^UTILITY(U,$J,358.3,31661,1,3,0)
  1. ;;=3^Pneumococcal Vaccine
  1. ;;^UTILITY(U,$J,358.3,31662,0)
  1. ;;=90715^^93^1288^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,31662,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31662,1,2,0)
  1. ;;=2^90715
  1. ;;^UTILITY(U,$J,358.3,31662,1,3,0)
  1. ;;=3^Tdap Vaccine
  1. ;;^UTILITY(U,$J,358.3,31663,0)
  1. ;;=90736^^93^1288^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,31663,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31663,1,2,0)
  1. ;;=2^90736
  1. ;;^UTILITY(U,$J,358.3,31663,1,3,0)
  1. ;;=3^Zoster (Shingles) Vaccine
  1. ;;^UTILITY(U,$J,358.3,31664,0)
  1. ;;=86580^^93^1288^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,31664,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31664,1,2,0)
  1. ;;=2^86580
  1. ;;^UTILITY(U,$J,358.3,31664,1,3,0)
  1. ;;=3^PPD Skin Test
  1. ;;^UTILITY(U,$J,358.3,31665,0)
  1. ;;=96372^^93^1288^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,31665,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31665,1,2,0)
  1. ;;=2^96372
  1. ;;^UTILITY(U,$J,358.3,31665,1,3,0)
  1. ;;=3^Ther/Proph/Diag Inj SC/IM
  1. ;;^UTILITY(U,$J,358.3,31666,0)
  1. ;;=90714^^93^1288^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,31666,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31666,1,2,0)
  1. ;;=2^90714
  1. ;;^UTILITY(U,$J,358.3,31666,1,3,0)
  1. ;;=3^TD Vaccine
  1. ;;^UTILITY(U,$J,358.3,31667,0)
  1. ;;=90656^^93^1288^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,31667,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31667,1,2,0)
  1. ;;=2^90656
  1. ;;^UTILITY(U,$J,358.3,31667,1,3,0)
  1. ;;=3^Flu Vaccine,Preservative Free,IM
  1. ;;^UTILITY(U,$J,358.3,31668,0)
  1. ;;=90662^^93^1288^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31668,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31668,1,2,0)
  1. ;;=2^90662
  1. ;;^UTILITY(U,$J,358.3,31668,1,3,0)
  1. ;;=3^Flu Vaccine,High Dose,Split Dose
  1. ;;^UTILITY(U,$J,358.3,31669,0)
  1. ;;=90887^^93^1289^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31669,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31669,1,2,0)
  1. ;;=2^90887
  1. ;;^UTILITY(U,$J,358.3,31669,1,3,0)
  1. ;;=3^Consultation w/Family
  1. ;;^UTILITY(U,$J,358.3,31670,0)
  1. ;;=90791^^93^1289^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,31670,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31670,1,2,0)
  1. ;;=2^90791
  1. ;;^UTILITY(U,$J,358.3,31670,1,3,0)
  1. ;;=3^Psych Diagnostic Interview
  1. ;;^UTILITY(U,$J,358.3,31671,0)
  1. ;;=90846^^93^1289^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,31671,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31671,1,2,0)
  1. ;;=2^90846
  1. ;;^UTILITY(U,$J,358.3,31671,1,3,0)
  1. ;;=3^Family Psytx w/o Patient,50 min
  1. ;;^UTILITY(U,$J,358.3,31672,0)
  1. ;;=99401^^93^1289^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,31672,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31672,1,2,0)
  1. ;;=2^99401
  1. ;;^UTILITY(U,$J,358.3,31672,1,3,0)
  1. ;;=3^Preventive Counseling, IND 15Min
  1. ;;^UTILITY(U,$J,358.3,31673,0)
  1. ;;=99402^^93^1289^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,31673,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31673,1,2,0)
  1. ;;=2^99402
  1. ;;^UTILITY(U,$J,358.3,31673,1,3,0)
  1. ;;=3^Preventive Counseling, IND 30Min
  1. ;;^UTILITY(U,$J,358.3,31674,0)
  1. ;;=99403^^93^1289^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,31674,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31674,1,2,0)
  1. ;;=2^99403
  1. ;;^UTILITY(U,$J,358.3,31674,1,3,0)
  1. ;;=3^Preventive Counseling, IND 45Min
  1. ;;^UTILITY(U,$J,358.3,31675,0)
  1. ;;=99404^^93^1289^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,31675,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31675,1,2,0)
  1. ;;=2^99404
  1. ;;^UTILITY(U,$J,358.3,31675,1,3,0)
  1. ;;=3^Preventive Counseling, IND 60Min
  1. ;;^UTILITY(U,$J,358.3,31676,0)
  1. ;;=99411^^93^1289^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,31676,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31676,1,2,0)
  1. ;;=2^99411
  1. ;;^UTILITY(U,$J,358.3,31676,1,3,0)
  1. ;;=3^Preventive Counseling, Group 30Min
  1. ;;^UTILITY(U,$J,358.3,31677,0)
  1. ;;=99412^^93^1289^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,31677,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31677,1,2,0)
  1. ;;=2^99412
  1. ;;^UTILITY(U,$J,358.3,31677,1,3,0)
  1. ;;=3^Preventive Counseling, Group 60Min
  1. ;;^UTILITY(U,$J,358.3,31678,0)
  1. ;;=99366^^93^1289^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,31678,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31678,1,2,0)
  1. ;;=2^99366
  1. ;;^UTILITY(U,$J,358.3,31678,1,3,0)
  1. ;;=3^Team Conf w/ Pat by HC Pro 30Min
  1. ;;^UTILITY(U,$J,358.3,31679,0)
  1. ;;=99367^^93^1289^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,31679,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31679,1,2,0)
  1. ;;=2^99367
  1. ;;^UTILITY(U,$J,358.3,31679,1,3,0)
  1. ;;=3^Team Conf w/o Pat by Phys 30Min
  1. ;;^UTILITY(U,$J,358.3,31680,0)
  1. ;;=99368^^93^1289^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,31680,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31680,1,2,0)
  1. ;;=2^99368
  1. ;;^UTILITY(U,$J,358.3,31680,1,3,0)
  1. ;;=3^Team Conf w/o Pat by HC Pro 30Min
  1. ;;^UTILITY(U,$J,358.3,31681,0)
  1. ;;=90847^^93^1289^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31681,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31681,1,2,0)
  1. ;;=2^90847
  1. ;;^UTILITY(U,$J,358.3,31681,1,3,0)
  1. ;;=3^Family Psytx w/ Patient,50 min
  1. ;;^UTILITY(U,$J,358.3,31682,0)
  1. ;;=99078^^93^1290^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31682,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31682,1,2,0)
  1. ;;=2^99078
  1. ;;^UTILITY(U,$J,358.3,31682,1,3,0)
  1. ;;=3^Group Health Education
  1. ;;^UTILITY(U,$J,358.3,31683,0)
  1. ;;=98960^^93^1290^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31683,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31683,1,2,0)
  1. ;;=2^98960
  1. ;;^UTILITY(U,$J,358.3,31683,1,3,0)
  1. ;;=3^Self-Mgmt Educ/Train,1 Pt,Ea 30Min
  1. ;;^UTILITY(U,$J,358.3,31684,0)
  1. ;;=98961^^93^1290^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,31684,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31684,1,2,0)
  1. ;;=2^98961
  1. ;;^UTILITY(U,$J,358.3,31684,1,3,0)
  1. ;;=3^Self-Mgmt Educ/Train,2-4 Pt,Ea 30Min
  1. ;;^UTILITY(U,$J,358.3,31685,0)
  1. ;;=98962^^93^1290^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,31685,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31685,1,2,0)
  1. ;;=2^98962
  1. ;;^UTILITY(U,$J,358.3,31685,1,3,0)
  1. ;;=3^Self-Mgmt Educ/Train,5-8 Pt,Ea 30Min
  1. ;;^UTILITY(U,$J,358.3,31686,0)
  1. ;;=97535^^93^1291^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31686,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31686,1,2,0)
  1. ;;=2^97535
  1. ;;^UTILITY(U,$J,358.3,31686,1,3,0)
  1. ;;=3^ADLS Training Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,31687,0)
  1. ;;=96105^^93^1291^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31687,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31687,1,2,0)
  1. ;;=2^96105
  1. ;;^UTILITY(U,$J,358.3,31687,1,3,0)
  1. ;;=3^Aphasia Assessment w/ Interp & Rpt,Per Hr
  1. ;;^UTILITY(U,$J,358.3,31688,0)
  1. ;;=90901^^93^1291^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,31688,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31688,1,2,0)
  1. ;;=2^90901
  1. ;;^UTILITY(U,$J,358.3,31688,1,3,0)
  1. ;;=3^Biofeedback Training Any Method
  1. ;;^UTILITY(U,$J,358.3,31689,0)
  1. ;;=97750^^93^1291^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,31689,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31689,1,2,0)
  1. ;;=2^97750
  1. ;;^UTILITY(U,$J,358.3,31689,1,3,0)
  1. ;;=3^Extremity Performance Testing Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,31690,0)
  1. ;;=97165^^93^1291^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,31690,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31690,1,2,0)
  1. ;;=2^97165
  1. ;;^UTILITY(U,$J,358.3,31690,1,3,0)
  1. ;;=3^OT Evaluation,Low Complexity
  1. ;;^UTILITY(U,$J,358.3,31691,0)
  1. ;;=97166^^93^1291^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,31691,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31691,1,2,0)
  1. ;;=2^97166
  1. ;;^UTILITY(U,$J,358.3,31691,1,3,0)
  1. ;;=3^OT Evaluation,Moderate Complexity
  1. ;;^UTILITY(U,$J,358.3,31692,0)
  1. ;;=97167^^93^1291^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,31692,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31692,1,2,0)
  1. ;;=2^97167
  1. ;;^UTILITY(U,$J,358.3,31692,1,3,0)
  1. ;;=3^OT Evaluation,High Complexity
  1. ;;^UTILITY(U,$J,358.3,31693,0)
  1. ;;=97168^^93^1291^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,31693,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31693,1,2,0)
  1. ;;=2^97168
  1. ;;^UTILITY(U,$J,358.3,31693,1,3,0)
  1. ;;=3^OT Re-Evaluation
  1. ;;^UTILITY(U,$J,358.3,31694,0)
  1. ;;=97161^^93^1291^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,31694,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31694,1,2,0)
  1. ;;=2^97161
  1. ;;^UTILITY(U,$J,358.3,31694,1,3,0)
  1. ;;=3^PT Evaluation,Low Complexity
  1. ;;^UTILITY(U,$J,358.3,31695,0)
  1. ;;=97162^^93^1291^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,31695,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31695,1,2,0)
  1. ;;=2^97162
  1. ;;^UTILITY(U,$J,358.3,31695,1,3,0)
  1. ;;=3^PT Evaluation,Moderate Complexity
  1. ;;^UTILITY(U,$J,358.3,31696,0)
  1. ;;=97163^^93^1291^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,31696,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31696,1,2,0)
  1. ;;=2^97163
  1. ;;^UTILITY(U,$J,358.3,31696,1,3,0)
  1. ;;=3^PT Evaluation,High Complexity
  1. ;;^UTILITY(U,$J,358.3,31697,0)
  1. ;;=97164^^93^1291^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,31697,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31697,1,2,0)
  1. ;;=2^97164
  1. ;;^UTILITY(U,$J,358.3,31697,1,3,0)
  1. ;;=3^PT Re-Evaluation
  1. ;;^UTILITY(U,$J,358.3,31698,0)
  1. ;;=96112^^93^1291^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,31698,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31698,1,2,0)
  1. ;;=2^96112
  1. ;;^UTILITY(U,$J,358.3,31698,1,3,0)
  1. ;;=3^Developmental Testing w/ Int & Rpt,1st Hr
  1. ;;^UTILITY(U,$J,358.3,31699,0)
  1. ;;=96113^^93^1291^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,31699,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31699,1,2,0)
  1. ;;=2^96113
  1. ;;^UTILITY(U,$J,358.3,31699,1,3,0)
  1. ;;=3^Developmental Testing w/ Int & Rpt,Ea Addl 30 min
  1. ;;^UTILITY(U,$J,358.3,31700,0)
  1. ;;=97172^^93^1291^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,31700,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31700,1,2,0)
  1. ;;=2^97172
  1. ;;^UTILITY(U,$J,358.3,31700,1,3,0)
  1. ;;=3^Athletic Trn Re-Eval Plan,Ea 20 min
  1. ;;^UTILITY(U,$J,358.3,31701,0)
  1. ;;=97171^^93^1291^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,31701,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31701,1,2,0)
  1. ;;=2^97171
  1. ;;^UTILITY(U,$J,358.3,31701,1,3,0)
  1. ;;=3^Athletic Trn Eval,High Cmplx,45 min
  1. ;;^UTILITY(U,$J,358.3,31702,0)
  1. ;;=97170^^93^1291^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,31702,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31702,1,2,0)
  1. ;;=2^97170
  1. ;;^UTILITY(U,$J,358.3,31702,1,3,0)
  1. ;;=3^Athletic Trn Eval,Mod Cmplx,30 min
  1. ;;^UTILITY(U,$J,358.3,31703,0)
  1. ;;=97169^^93^1291^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,31703,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31703,1,2,0)
  1. ;;=2^97169
  1. ;;^UTILITY(U,$J,358.3,31703,1,3,0)
  1. ;;=3^Athletic Trn Eval,Low Cmplx,15 min
  1. ;;^UTILITY(U,$J,358.3,31704,0)
  1. ;;=90471^^93^1292^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31704,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31704,1,2,0)
  1. ;;=2^90471
  1. ;;^UTILITY(U,$J,358.3,31704,1,3,0)
  1. ;;=3^Immunization Admin,Single
  1. ;;^UTILITY(U,$J,358.3,31705,0)
  1. ;;=90472^^93^1292^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31705,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31705,1,2,0)
  1. ;;=2^90472
  1. ;;^UTILITY(U,$J,358.3,31705,1,3,0)
  1. ;;=3^Immunization Admin,Ea Addl
  1. ;;^UTILITY(U,$J,358.3,31706,0)
  1. ;;=97034^^93^1293^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31706,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31706,1,2,0)
  1. ;;=2^97034
  1. ;;^UTILITY(U,$J,358.3,31706,1,3,0)
  1. ;;=3^Contrast Baths Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,31707,0)
  1. ;;=97014^^93^1293^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31707,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31707,1,2,0)
  1. ;;=2^97014
  1. ;;^UTILITY(U,$J,358.3,31707,1,3,0)
  1. ;;=3^Electrical Stimulation
  1. ;;^UTILITY(U,$J,358.3,31708,0)
  1. ;;=97116^^93^1293^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,31708,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31708,1,2,0)
  1. ;;=2^97116
  1. ;;^UTILITY(U,$J,358.3,31708,1,3,0)
  1. ;;=3^Gait Training
  1. ;;^UTILITY(U,$J,358.3,31709,0)
  1. ;;=97010^^93^1293^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,31709,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31709,1,2,0)
  1. ;;=2^97010
  1. ;;^UTILITY(U,$J,358.3,31709,1,3,0)
  1. ;;=3^Hot/Cold Therapies
  1. ;;^UTILITY(U,$J,358.3,31710,0)
  1. ;;=97033^^93^1293^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,31710,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31710,1,2,0)
  1. ;;=2^97033
  1. ;;^UTILITY(U,$J,358.3,31710,1,3,0)
  1. ;;=3^Iontophoresis Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,31711,0)
  1. ;;=97530^^93^1293^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,31711,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31711,1,2,0)
  1. ;;=2^97530
  1. ;;^UTILITY(U,$J,358.3,31711,1,3,0)
  1. ;;=3^Kinetic Therapy Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,31712,0)
  1. ;;=97140^^93^1293^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,31712,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31712,1,2,0)
  1. ;;=2^97140
  1. ;;^UTILITY(U,$J,358.3,31712,1,3,0)
  1. ;;=3^Manipulation/Mobilization Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,31713,0)
  1. ;;=97112^^93^1293^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,31713,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31713,1,2,0)
  1. ;;=2^97112
  1. ;;^UTILITY(U,$J,358.3,31713,1,3,0)
  1. ;;=3^Neuromuscular Re-Ed
  1. ;;^UTILITY(U,$J,358.3,31714,0)
  1. ;;=97039^^93^1293^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,31714,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31714,1,2,0)
  1. ;;=2^97039
  1. ;;^UTILITY(U,$J,358.3,31714,1,3,0)
  1. ;;=3^Unlisted PT Modality
  1. ;;^UTILITY(U,$J,358.3,31715,0)
  1. ;;=97124^^93^1293^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,31715,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31715,1,2,0)
  1. ;;=2^97124
  1. ;;^UTILITY(U,$J,358.3,31715,1,3,0)
  1. ;;=3^Therapeutic Massage
  1. ;;^UTILITY(U,$J,358.3,31716,0)
  1. ;;=97110^^93^1293^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,31716,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31716,1,2,0)
  1. ;;=2^97110
  1. ;;^UTILITY(U,$J,358.3,31716,1,3,0)
  1. ;;=3^Therapeutic Ex/Record/Flex,1 or More Areas
  1. ;;^UTILITY(U,$J,358.3,31717,0)
  1. ;;=97035^^93^1293^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,31717,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31717,1,2,0)
  1. ;;=2^97035
  1. ;;^UTILITY(U,$J,358.3,31717,1,3,0)
  1. ;;=3^Ultrasound Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,31718,0)
  1. ;;=20552^^93^1294^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,31718,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31718,1,2,0)
  1. ;;=2^20552
  1. ;;^UTILITY(U,$J,358.3,31718,1,3,0)
  1. ;;=3^Trigger Point Inj,1-2 Muscles
  1. ;;^UTILITY(U,$J,358.3,31719,0)
  1. ;;=20553^^93^1294^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,31719,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31719,1,2,0)
  1. ;;=2^20553
  1. ;;^UTILITY(U,$J,358.3,31719,1,3,0)
  1. ;;=3^Trigger Point Inj,3 or More Muscles
  1. ;;^UTILITY(U,$J,358.3,31720,0)
  1. ;;=64405^^93^1294^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,31720,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31720,1,2,0)
  1. ;;=2^64405
  1. ;;^UTILITY(U,$J,358.3,31720,1,3,0)
  1. ;;=3^Nerve Block,Occipital
  1. ;;^UTILITY(U,$J,358.3,31721,0)
  1. ;;=64615^^93^1294^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,31721,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31721,1,2,0)
  1. ;;=2^64615
  1. ;;^UTILITY(U,$J,358.3,31721,1,3,0)
  1. ;;=3^Chemodenervation Muscle for Migraine
  1. ;;^UTILITY(U,$J,358.3,31722,0)
  1. ;;=J0585^^93^1294^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31722,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31722,1,2,0)
  1. ;;=2^J0585
  1. ;;^UTILITY(U,$J,358.3,31722,1,3,0)
  1. ;;=3^Botulinum Toxin A,per unit
  1. ;;^UTILITY(U,$J,358.3,31723,0)
  1. ;;=J0587^^93^1294^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,31723,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31723,1,2,0)
  1. ;;=2^J0587
  1. ;;^UTILITY(U,$J,358.3,31723,1,3,0)
  1. ;;=3^Botulinum Toxin B,100 units
  1. ;;^UTILITY(U,$J,358.3,31724,0)
  1. ;;=J0586^^93^1294^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31724,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31724,1,2,0)
  1. ;;=2^J0586
  1. ;;^UTILITY(U,$J,358.3,31724,1,3,0)
  1. ;;=3^Botulinum Toxin A,5 units
  1. ;;^UTILITY(U,$J,358.3,31725,0)
  1. ;;=99415^^93^1295^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31725,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31725,1,2,0)
  1. ;;=2^99415
  1. ;;^UTILITY(U,$J,358.3,31725,1,3,0)
  1. ;;=3^Prolonged Clin Staff Svcs,1st hr
  1. ;;^UTILITY(U,$J,358.3,31726,0)
  1. ;;=99416^^93^1295^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31726,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31726,1,2,0)
  1. ;;=2^99416
  1. ;;^UTILITY(U,$J,358.3,31726,1,3,0)
  1. ;;=3^Prolonged Clin Staff Svcs,Ea Addl 30 min
  1. ;;^UTILITY(U,$J,358.3,31727,0)
  1. ;;=99484^^93^1296^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31727,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31727,1,2,0)
  1. ;;=2^99484
  1. ;;^UTILITY(U,$J,358.3,31727,1,3,0)
  1. ;;=3^Care Mgmt Svc Bhvl Hlth Cond,20+ min
  1. ;;^UTILITY(U,$J,358.3,31728,0)
  1. ;;=99483^^93^1297^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31728,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31728,1,2,0)
  1. ;;=2^99483
  1. ;;^UTILITY(U,$J,358.3,31728,1,3,0)
  1. ;;=3^Assess/Care Plan,Cog Imp Pt,Historian Present
  1. ;;^UTILITY(U,$J,358.3,31729,0)
  1. ;;=99492^^93^1298^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31729,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31729,1,2,0)
  1. ;;=2^99492
  1. ;;^UTILITY(U,$J,358.3,31729,1,3,0)
  1. ;;=3^Init Psych Collab Care Mgmt,1st 70 min
  1. ;;^UTILITY(U,$J,358.3,31730,0)
  1. ;;=99493^^93^1298^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31730,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31730,1,2,0)
  1. ;;=2^99493
  1. ;;^UTILITY(U,$J,358.3,31730,1,3,0)
  1. ;;=3^Subseq Psych Collab Care Mgmt,1st 60 min
  1. ;;^UTILITY(U,$J,358.3,31731,0)
  1. ;;=99494^^93^1298^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,31731,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31731,1,2,0)
  1. ;;=2^99494
  1. ;;^UTILITY(U,$J,358.3,31731,1,3,0)
  1. ;;=3^Init/Subseq Psych Collab Care Mgmt,Ea Addl 30 min
  1. ;;^UTILITY(U,$J,358.3,31732,0)
  1. ;;=97129^^93^1299^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31732,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31732,1,2,0)
  1. ;;=2^97129
  1. ;;^UTILITY(U,$J,358.3,31732,1,3,0)
  1. ;;=3^Therapeutic Intrvn,Cog Func,1st 15 min
  1. ;;^UTILITY(U,$J,358.3,31733,0)
  1. ;;=97130^^93^1299^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,31733,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31733,1,2,0)
  1. ;;=2^97130
  1. ;;^UTILITY(U,$J,358.3,31733,1,3,0)
  1. ;;=3^Therapeutic Intrvn,Cog Func,Ea Addl 15 min
  1. ;;^UTILITY(U,$J,358.3,31734,0)
  1. ;;=Z87.81^^94^1300^2
  1. ;;^UTILITY(U,$J,358.3,31734,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31734,1,3,0)
  1. ;;=3^Personal history of (healed) traumatic fracture
  1. ;;^UTILITY(U,$J,358.3,31734,1,4,0)
  1. ;;=4^Z87.81
  1. ;;^UTILITY(U,$J,358.3,31734,2)
  1. ;;=^5063513
  1. ;;^UTILITY(U,$J,358.3,31735,0)
  1. ;;=Z87.828^^94^1300^3
  1. ;;^UTILITY(U,$J,358.3,31735,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31735,1,3,0)
  1. ;;=3^Personal history of oth (healed) physical injury and trauma
  1. ;;^UTILITY(U,$J,358.3,31735,1,4,0)
  1. ;;=4^Z87.828
  1. ;;^UTILITY(U,$J,358.3,31735,2)
  1. ;;=^5063516
  1. ;;^UTILITY(U,$J,358.3,31736,0)
  1. ;;=S06.9X9S^^94^1300^1
  1. ;;^UTILITY(U,$J,358.3,31736,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31736,1,3,0)
  1. ;;=3^Intracranial injury w LOC of unsp duration unspec, sequela
  1. ;;^UTILITY(U,$J,358.3,31736,1,4,0)
  1. ;;=4^S06.9X9S
  1. ;;^UTILITY(U,$J,358.3,31736,2)
  1. ;;=^5021235
  1. ;;^UTILITY(U,$J,358.3,31737,0)
  1. ;;=Z13.850^^94^1300^4
  1. ;;^UTILITY(U,$J,358.3,31737,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,31737,1,3,0)
  1. ;;=3^TBI Screening,Rpt Once per Injury Event
  1. ;;^UTILITY(U,$J,358.3,31737,1,4,0)
  1. ;;=4^Z13.850
  1. ;;^UTILITY(U,$J,358.3,31737,2)
  1. ;;=^5062717
  1. ;;^UTILITY(U,$J,358.3,31738,0)
  1. ;;=F43.21^^94^1301^2