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