IBDEI0FK ; ; 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,38885,1,3,0)
;;=3^Cough,Oth Specified
;;^UTILITY(U,$J,358.3,38885,1,4,0)
;;=4^R05.8
;;^UTILITY(U,$J,358.3,38885,2)
;;=^5161231
;;^UTILITY(U,$J,358.3,38886,0)
;;=R50.83^^108^1526^9
;;^UTILITY(U,$J,358.3,38886,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38886,1,3,0)
;;=3^Fever,Postvaccination
;;^UTILITY(U,$J,358.3,38886,1,4,0)
;;=4^R50.83
;;^UTILITY(U,$J,358.3,38886,2)
;;=^5019510
;;^UTILITY(U,$J,358.3,38887,0)
;;=Z11.52^^108^1527^1
;;^UTILITY(U,$J,358.3,38887,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38887,1,3,0)
;;=3^Screen for COVID-19
;;^UTILITY(U,$J,358.3,38887,1,4,0)
;;=4^Z11.52
;;^UTILITY(U,$J,358.3,38887,2)
;;=^5160186
;;^UTILITY(U,$J,358.3,38888,0)
;;=Z20.822^^108^1528^1
;;^UTILITY(U,$J,358.3,38888,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38888,1,3,0)
;;=3^PreProcedure COVID screen
;;^UTILITY(U,$J,358.3,38888,1,4,0)
;;=4^Z20.822
;;^UTILITY(U,$J,358.3,38888,2)
;;=^5160187
;;^UTILITY(U,$J,358.3,38889,0)
;;=Z01.812^^108^1528^2
;;^UTILITY(U,$J,358.3,38889,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38889,1,3,0)
;;=3^PreProcedure Lab Screen
;;^UTILITY(U,$J,358.3,38889,1,4,0)
;;=4^Z01.812
;;^UTILITY(U,$J,358.3,38889,2)
;;=^5062627
;;^UTILITY(U,$J,358.3,38890,0)
;;=Z28.310^^108^1529^3
;;^UTILITY(U,$J,358.3,38890,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38890,1,3,0)
;;=3^Unvaccinated for COVID-19
;;^UTILITY(U,$J,358.3,38890,1,4,0)
;;=4^Z28.310
;;^UTILITY(U,$J,358.3,38890,2)
;;=^5161576
;;^UTILITY(U,$J,358.3,38891,0)
;;=Z28.311^^108^1529^1
;;^UTILITY(U,$J,358.3,38891,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38891,1,3,0)
;;=3^Partially Vaccinated for COVID-19
;;^UTILITY(U,$J,358.3,38891,1,4,0)
;;=4^Z28.311
;;^UTILITY(U,$J,358.3,38891,2)
;;=^5161577
;;^UTILITY(U,$J,358.3,38892,0)
;;=Z28.39^^108^1529^2
;;^UTILITY(U,$J,358.3,38892,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38892,1,3,0)
;;=3^Underimmunization Status,Other
;;^UTILITY(U,$J,358.3,38892,1,4,0)
;;=4^Z28.39
;;^UTILITY(U,$J,358.3,38892,2)
;;=^5161578
;;^UTILITY(U,$J,358.3,38893,0)
;;=90785^^109^1530^68^^^^1
;;^UTILITY(U,$J,358.3,38893,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38893,1,2,0)
;;=2^Psytx Complex Interactive
;;^UTILITY(U,$J,358.3,38893,1,4,0)
;;=4^90785
;;^UTILITY(U,$J,358.3,38894,0)
;;=90791^^109^1530^60^^^^1
;;^UTILITY(U,$J,358.3,38894,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38894,1,2,0)
;;=2^Psych Diagnostic Evaluation
;;^UTILITY(U,$J,358.3,38894,1,4,0)
;;=4^90791
;;^UTILITY(U,$J,358.3,38895,0)
;;=90792^^109^1530^59^^^^1
;;^UTILITY(U,$J,358.3,38895,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38895,1,2,0)
;;=2^Psych Diag Eval w/ Med Svcs
;;^UTILITY(U,$J,358.3,38895,1,4,0)
;;=4^90792
;;^UTILITY(U,$J,358.3,38896,0)
;;=90832^^109^1530^74^^^^1
;;^UTILITY(U,$J,358.3,38896,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38896,1,2,0)
;;=2^Psytx w/ Pt,30 min
;;^UTILITY(U,$J,358.3,38896,1,4,0)
;;=4^90832
;;^UTILITY(U,$J,358.3,38897,0)
;;=90833^^109^1530^71^^^^1
;;^UTILITY(U,$J,358.3,38897,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38897,1,2,0)
;;=2^Psytx w/ Pt w/ E&M,30 min
;;^UTILITY(U,$J,358.3,38897,1,4,0)
;;=4^90833
;;^UTILITY(U,$J,358.3,38898,0)
;;=90834^^109^1530^75^^^^1
;;^UTILITY(U,$J,358.3,38898,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38898,1,2,0)
;;=2^Psytx w/ Pt,45 min
;;^UTILITY(U,$J,358.3,38898,1,4,0)
;;=4^90834
;;^UTILITY(U,$J,358.3,38899,0)
;;=90836^^109^1530^72^^^^1
;;^UTILITY(U,$J,358.3,38899,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38899,1,2,0)
;;=2^Psytx w/ Pt w/ E&M,45 min
;;^UTILITY(U,$J,358.3,38899,1,4,0)
;;=4^90836
;;^UTILITY(U,$J,358.3,38900,0)
;;=90837^^109^1530^76^^^^1
;;^UTILITY(U,$J,358.3,38900,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38900,1,2,0)
;;=2^Psytx w/ Pt,60 min
;;^UTILITY(U,$J,358.3,38900,1,4,0)
;;=4^90837
;;^UTILITY(U,$J,358.3,38901,0)
;;=90838^^109^1530^73^^^^1
;;^UTILITY(U,$J,358.3,38901,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38901,1,2,0)
;;=2^Psytx w/ Pt w/ E&M,60 min
;;^UTILITY(U,$J,358.3,38901,1,4,0)
;;=4^90838
;;^UTILITY(U,$J,358.3,38902,0)
;;=90839^^109^1530^69^^^^1
;;^UTILITY(U,$J,358.3,38902,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38902,1,2,0)
;;=2^Psytx Crisis,1st 60 min
;;^UTILITY(U,$J,358.3,38902,1,4,0)
;;=4^90839
;;^UTILITY(U,$J,358.3,38903,0)
;;=90840^^109^1530^70^^^^1
;;^UTILITY(U,$J,358.3,38903,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38903,1,2,0)
;;=2^Psytx Crisis,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38903,1,4,0)
;;=4^90840
;;^UTILITY(U,$J,358.3,38904,0)
;;=90845^^109^1530^67^^^^1
;;^UTILITY(U,$J,358.3,38904,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38904,1,2,0)
;;=2^Psychoanalysis
;;^UTILITY(U,$J,358.3,38904,1,4,0)
;;=4^90845
;;^UTILITY(U,$J,358.3,38905,0)
;;=90846^^109^1530^28^^^^1
;;^UTILITY(U,$J,358.3,38905,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38905,1,2,0)
;;=2^Family Psytx w/o Pt,50 min
;;^UTILITY(U,$J,358.3,38905,1,4,0)
;;=4^90846
;;^UTILITY(U,$J,358.3,38906,0)
;;=90847^^109^1530^27^^^^1
;;^UTILITY(U,$J,358.3,38906,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38906,1,2,0)
;;=2^Family Psytx w/ Pt,50 min
;;^UTILITY(U,$J,358.3,38906,1,4,0)
;;=4^90847
;;^UTILITY(U,$J,358.3,38907,0)
;;=90853^^109^1530^29^^^^1
;;^UTILITY(U,$J,358.3,38907,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38907,1,2,0)
;;=2^Group Psychotherapy
;;^UTILITY(U,$J,358.3,38907,1,4,0)
;;=4^90853
;;^UTILITY(U,$J,358.3,38908,0)
;;=92507^^109^1530^81^^^^1
;;^UTILITY(U,$J,358.3,38908,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38908,1,2,0)
;;=2^Speech/Hearing Therapy,Ind
;;^UTILITY(U,$J,358.3,38908,1,4,0)
;;=4^92507
;;^UTILITY(U,$J,358.3,38909,0)
;;=92508^^109^1530^80^^^^1
;;^UTILITY(U,$J,358.3,38909,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38909,1,2,0)
;;=2^Speech/Hearing Therapy,Grp
;;^UTILITY(U,$J,358.3,38909,1,4,0)
;;=4^92508
;;^UTILITY(U,$J,358.3,38910,0)
;;=92521^^109^1530^26^^^^1
;;^UTILITY(U,$J,358.3,38910,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38910,1,2,0)
;;=2^Eval of Speech Fluency
;;^UTILITY(U,$J,358.3,38910,1,4,0)
;;=4^92521
;;^UTILITY(U,$J,358.3,38911,0)
;;=92522^^109^1530^25^^^^1
;;^UTILITY(U,$J,358.3,38911,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38911,1,2,0)
;;=2^Eval Speech Production
;;^UTILITY(U,$J,358.3,38911,1,4,0)
;;=4^92522
;;^UTILITY(U,$J,358.3,38912,0)
;;=92523^^109^1530^79^^^^1
;;^UTILITY(U,$J,358.3,38912,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38912,1,2,0)
;;=2^Speech Sound Lang Comprehen
;;^UTILITY(U,$J,358.3,38912,1,4,0)
;;=4^92523
;;^UTILITY(U,$J,358.3,38913,0)
;;=92524^^109^1530^10^^^^1
;;^UTILITY(U,$J,358.3,38913,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38913,1,2,0)
;;=2^Behav Qual Analys Voice
;;^UTILITY(U,$J,358.3,38913,1,4,0)
;;=4^92524
;;^UTILITY(U,$J,358.3,38914,0)
;;=96116^^109^1530^48^^^^1
;;^UTILITY(U,$J,358.3,38914,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38914,1,2,0)
;;=2^Nubhvl XM Phys/QHP,1st Hr
;;^UTILITY(U,$J,358.3,38914,1,4,0)
;;=4^96116
;;^UTILITY(U,$J,358.3,38915,0)
;;=96121^^109^1530^49^^^^1
;;^UTILITY(U,$J,358.3,38915,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38915,1,2,0)
;;=2^Nubhvl XM Phys/QHP,Ea Addl Hr
;;^UTILITY(U,$J,358.3,38915,1,4,0)
;;=4^96121
;;^UTILITY(U,$J,358.3,38916,0)
;;=96127^^109^1530^15^^^^1
;;^UTILITY(U,$J,358.3,38916,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38916,1,2,0)
;;=2^Brief Emotional/Behav Assmt
;;^UTILITY(U,$J,358.3,38916,1,4,0)
;;=4^96127
;;^UTILITY(U,$J,358.3,38917,0)
;;=96130^^109^1530^61^^^^1
;;^UTILITY(U,$J,358.3,38917,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38917,1,2,0)
;;=2^Psych Tst Eval Phys/QHP,1st Hr
;;^UTILITY(U,$J,358.3,38917,1,4,0)
;;=4^96130
;;^UTILITY(U,$J,358.3,38918,0)
;;=96131^^109^1530^62^^^^1
;;^UTILITY(U,$J,358.3,38918,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38918,1,2,0)
;;=2^Psych Tst Eval Phys/QHP,Ea Addl Hr
;;^UTILITY(U,$J,358.3,38918,1,4,0)
;;=4^96131
;;^UTILITY(U,$J,358.3,38919,0)
;;=96132^^109^1530^46^^^^1
;;^UTILITY(U,$J,358.3,38919,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38919,1,2,0)
;;=2^Nrpsych Tst Eval Phys/QHP,1st Hr
;;^UTILITY(U,$J,358.3,38919,1,4,0)
;;=4^96132
;;^UTILITY(U,$J,358.3,38920,0)
;;=96133^^109^1530^47^^^^1
;;^UTILITY(U,$J,358.3,38920,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38920,1,2,0)
;;=2^Nrpsych Tst Eval Phys/QHP,Ea Addl Hr
;;^UTILITY(U,$J,358.3,38920,1,4,0)
;;=4^96133
;;^UTILITY(U,$J,358.3,38921,0)
;;=96136^^109^1530^63^^^^1
;;^UTILITY(U,$J,358.3,38921,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38921,1,2,0)
;;=2^Psych/Nrpsych Tst Eval Phys/QHP,1st Hr
;;^UTILITY(U,$J,358.3,38921,1,4,0)
;;=4^96136
;;^UTILITY(U,$J,358.3,38922,0)
;;=96137^^109^1530^64^^^^1
;;^UTILITY(U,$J,358.3,38922,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38922,1,2,0)
;;=2^Psych/Nrpsych Tst Eval Phys/QHP,Ea Addl Hr
;;^UTILITY(U,$J,358.3,38922,1,4,0)
;;=4^96137
;;^UTILITY(U,$J,358.3,38923,0)
;;=96138^^109^1530^65^^^^1
;;^UTILITY(U,$J,358.3,38923,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38923,1,2,0)
;;=2^Psych/Nrpsych Tst by Tech,1st 30 min
;;^UTILITY(U,$J,358.3,38923,1,4,0)
;;=4^96138
;;^UTILITY(U,$J,358.3,38924,0)
;;=96139^^109^1530^66^^^^1
;;^UTILITY(U,$J,358.3,38924,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38924,1,2,0)
;;=2^Psych/Nrpsych Tst by Tech,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38924,1,4,0)
;;=4^96139
;;^UTILITY(U,$J,358.3,38925,0)
;;=96156^^109^1530^31^^^^1
;;^UTILITY(U,$J,358.3,38925,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38925,1,2,0)
;;=2^Hlth Bhv Assmt/Re-Assmt
;;^UTILITY(U,$J,358.3,38925,1,4,0)
;;=4^96156
;;^UTILITY(U,$J,358.3,38926,0)
;;=96158^^109^1530^36^^^^1
;;^UTILITY(U,$J,358.3,38926,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38926,1,2,0)
;;=2^Hlth Bhv Intvn,Ind,1st 30 min
;;^UTILITY(U,$J,358.3,38926,1,4,0)
;;=4^96158
;;^UTILITY(U,$J,358.3,38927,0)
;;=96159^^109^1530^37^^^^1
;;^UTILITY(U,$J,358.3,38927,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38927,1,2,0)
;;=2^Hlth Bhv Intvn,Ind,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38927,1,4,0)
;;=4^96159
;;^UTILITY(U,$J,358.3,38928,0)
;;=96160^^109^1530^77^^^^1
;;^UTILITY(U,$J,358.3,38928,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38928,1,2,0)
;;=2^Pt Focused Hlth Risk Assmt
;;^UTILITY(U,$J,358.3,38928,1,4,0)
;;=4^96160
;;^UTILITY(U,$J,358.3,38929,0)
;;=96161^^109^1530^16^^^^1
;;^UTILITY(U,$J,358.3,38929,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38929,1,2,0)
;;=2^Caregiver Hlth Risk Assmt
;;^UTILITY(U,$J,358.3,38929,1,4,0)
;;=4^96161
;;^UTILITY(U,$J,358.3,38930,0)
;;=96164^^109^1530^34^^^^1
;;^UTILITY(U,$J,358.3,38930,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38930,1,2,0)
;;=2^Hlth Bhv Intvn,Grp,1st 30 min
;;^UTILITY(U,$J,358.3,38930,1,4,0)
;;=4^96164
;;^UTILITY(U,$J,358.3,38931,0)
;;=96165^^109^1530^35^^^^1
;;^UTILITY(U,$J,358.3,38931,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38931,1,2,0)
;;=2^Hlth Bhv Intvn,Grp,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38931,1,4,0)
;;=4^96165
;;^UTILITY(U,$J,358.3,38932,0)
;;=96167^^109^1530^32^^^^1
;;^UTILITY(U,$J,358.3,38932,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38932,1,2,0)
;;=2^Hlth Bhv Intvn,Fam,1st 30 min
;;^UTILITY(U,$J,358.3,38932,1,4,0)
;;=4^96167
;;^UTILITY(U,$J,358.3,38933,0)
;;=96168^^109^1530^33^^^^1
;;^UTILITY(U,$J,358.3,38933,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38933,1,2,0)
;;=2^Hlth Bhv Intvn,Fam,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38933,1,4,0)
;;=4^96168
;;^UTILITY(U,$J,358.3,38934,0)
;;=97535^^109^1530^78^^^^1
;;^UTILITY(U,$J,358.3,38934,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38934,1,2,0)
;;=2^Self Care Mgmt Training
;;^UTILITY(U,$J,358.3,38934,1,4,0)
;;=4^97535
;;^UTILITY(U,$J,358.3,38935,0)
;;=97802^^109^1530^42^^^^1
;;^UTILITY(U,$J,358.3,38935,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38935,1,2,0)
;;=2^Med Nutr,Ind,Init Intvn,Ea 15 min
;;^UTILITY(U,$J,358.3,38935,1,4,0)
;;=4^97802
;;^UTILITY(U,$J,358.3,38936,0)
;;=97803^^109^1530^43^^^^1
;;^UTILITY(U,$J,358.3,38936,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38936,1,2,0)
;;=2^Med Nutr,Ind,Re-Assmt/Intrvn,Ea 15 min
;;^UTILITY(U,$J,358.3,38936,1,4,0)
;;=4^97803
;;^UTILITY(U,$J,358.3,38937,0)
;;=97804^^109^1530^45^^^^1
;;^UTILITY(U,$J,358.3,38937,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38937,1,2,0)
;;=2^Medical Nutrition Grp,Ea 30 min
;;^UTILITY(U,$J,358.3,38937,1,4,0)
;;=4^97804
;;^UTILITY(U,$J,358.3,38938,0)
;;=99354^^109^1530^55^^^^1
;;^UTILITY(U,$J,358.3,38938,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38938,1,2,0)
;;=2^Prolong Outpt E&M Svc,1st hr
;;^UTILITY(U,$J,358.3,38938,1,4,0)
;;=4^99354
;;^UTILITY(U,$J,358.3,38939,0)
;;=99355^^109^1530^56^^^^1
;;^UTILITY(U,$J,358.3,38939,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38939,1,2,0)
;;=2^Prolong Outpt E&M Svc,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38939,1,4,0)
;;=4^99355
;;^UTILITY(U,$J,358.3,38940,0)
;;=99356^^109^1530^53^^^^1
;;^UTILITY(U,$J,358.3,38940,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38940,1,2,0)
;;=2^Prolong Inpt E&M Svc,1st hr
;;^UTILITY(U,$J,358.3,38940,1,4,0)
;;=4^99356
;;^UTILITY(U,$J,358.3,38941,0)
;;=99357^^109^1530^54^^^^1
;;^UTILITY(U,$J,358.3,38941,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38941,1,2,0)
;;=2^Prolong Inpt E&M Svc,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38941,1,4,0)
;;=4^99357
;;^UTILITY(U,$J,358.3,38942,0)
;;=99406^^109^1530^11^^^^1
;;^UTILITY(U,$J,358.3,38942,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38942,1,2,0)
;;=2^Behv Change,Smoking,3-10 min
;;^UTILITY(U,$J,358.3,38942,1,4,0)
;;=4^99406
;;^UTILITY(U,$J,358.3,38943,0)
;;=99407^^109^1530^12^^^^1
;;^UTILITY(U,$J,358.3,38943,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38943,1,2,0)
;;=2^Behv Change,Smoking,10+ min
;;^UTILITY(U,$J,358.3,38943,1,4,0)
;;=4^99407
;;^UTILITY(U,$J,358.3,38944,0)
;;=99497^^109^1530^1^^^^1
;;^UTILITY(U,$J,358.3,38944,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38944,1,2,0)
;;=2^Advncd Care Plan,1st 30 min
;;^UTILITY(U,$J,358.3,38944,1,4,0)
;;=4^99497
;;^UTILITY(U,$J,358.3,38945,0)
;;=99498^^109^1530^2^^^^1
;;^UTILITY(U,$J,358.3,38945,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38945,1,2,0)
;;=2^Advncd Care Plan,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,38945,1,4,0)
;;=4^99498
;;^UTILITY(U,$J,358.3,38946,0)
;;=G0108^^109^1530^19^^^^1
;;^UTILITY(U,$J,358.3,38946,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38946,1,2,0)
;;=2^Diab Mgmt Trning,Ind,Ea 30 min
;;^UTILITY(U,$J,358.3,38946,1,4,0)
;;=4^G0108
;;^UTILITY(U,$J,358.3,38947,0)
;;=G0109^^109^1530^18^^^^1
;;^UTILITY(U,$J,358.3,38947,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38947,1,2,0)
;;=2^Diab Mgmt Trning,Grp,Ea 30 min
;;^UTILITY(U,$J,358.3,38947,1,4,0)
;;=4^G0109
;;^UTILITY(U,$J,358.3,38948,0)
;;=G0270^^109^1530^44^^^^1
;;^UTILITY(U,$J,358.3,38948,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38948,1,2,0)
;;=2^Med Nutr,Re-Assmt New Dx,Ea 15 min
;;^UTILITY(U,$J,358.3,38948,1,4,0)
;;=4^G0270
;;^UTILITY(U,$J,358.3,38949,0)
;;=G0296^^109^1530^82^^^^1
;;^UTILITY(U,$J,358.3,38949,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38949,1,2,0)
;;=2^Visit to Determ LDCT Elig
;;^UTILITY(U,$J,358.3,38949,1,4,0)
;;=4^G0296
;;^UTILITY(U,$J,358.3,38950,0)
;;=G0396^^109^1530^3^^^^1
;;^UTILITY(U,$J,358.3,38950,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38950,1,2,0)
;;=2^Alcohol/Subs Intvn,15-30 min
;;^UTILITY(U,$J,358.3,38950,1,4,0)
;;=4^G0396
;;^UTILITY(U,$J,358.3,38951,0)
;;=G0397^^109^1530^4^^^^1
;;^UTILITY(U,$J,358.3,38951,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38951,1,2,0)
;;=2^Alcohol/Subs Intvn,30+ min
;;^UTILITY(U,$J,358.3,38951,1,4,0)
;;=4^G0397
;;^UTILITY(U,$J,358.3,38952,0)
;;=G0406^^109^1530^38^^^^1
;;^UTILITY(U,$J,358.3,38952,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38952,1,2,0)
;;=2^Inpt F/U up to 15 min
;;^UTILITY(U,$J,358.3,38952,1,4,0)
;;=4^G0406
;;^UTILITY(U,$J,358.3,38953,0)
;;=G0407^^109^1530^39^^^^1
;;^UTILITY(U,$J,358.3,38953,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38953,1,2,0)
;;=2^Inpt F/U up to 25 min
;;^UTILITY(U,$J,358.3,38953,1,4,0)
;;=4^G0407
;;^UTILITY(U,$J,358.3,38954,0)
;;=G0408^^109^1530^40^^^^1
;;^UTILITY(U,$J,358.3,38954,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38954,1,2,0)
;;=2^Inpt F/U up to 35 min
;;^UTILITY(U,$J,358.3,38954,1,4,0)
;;=4^G0408
;;^UTILITY(U,$J,358.3,38955,0)
;;=G0425^^109^1530^24^^^^1
;;^UTILITY(U,$J,358.3,38955,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38955,1,2,0)
;;=2^Educ Svc for CKD,Ind,per hr
;;^UTILITY(U,$J,358.3,38955,1,4,0)
;;=4^G0425
;;^UTILITY(U,$J,358.3,38956,0)
;;=G0426^^109^1530^23^^^^1
;;^UTILITY(U,$J,358.3,38956,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38956,1,2,0)
;;=2^Educ Svc for CKD,Grp,per hr
;;^UTILITY(U,$J,358.3,38956,1,4,0)
;;=4^G0426
;;^UTILITY(U,$J,358.3,38957,0)
;;=G0425^^109^1530^20^^^^1
;;^UTILITY(U,$J,358.3,38957,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38957,1,2,0)
;;=2^ED Tele-Consult,30 min
;;^UTILITY(U,$J,358.3,38957,1,4,0)
;;=4^G0425
;;^UTILITY(U,$J,358.3,38958,0)
;;=G0426^^109^1530^21^^^^1
;;^UTILITY(U,$J,358.3,38958,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38958,1,2,0)
;;=2^ED Tele-Consult,50 min
;;^UTILITY(U,$J,358.3,38958,1,4,0)
;;=4^G0426
;;^UTILITY(U,$J,358.3,38959,0)
;;=G0427^^109^1530^22^^^^1
;;^UTILITY(U,$J,358.3,38959,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38959,1,2,0)
;;=2^ED Tele-Consult,70 min
;;^UTILITY(U,$J,358.3,38959,1,4,0)
;;=4^G0427
;;^UTILITY(U,$J,358.3,38960,0)
;;=G0438^^109^1530^8^^^^1
;;^UTILITY(U,$J,358.3,38960,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38960,1,2,0)
;;=2^Annual Wellness Visit w/ PPPS,Init Visit
;;^UTILITY(U,$J,358.3,38960,1,4,0)
;;=4^G0438
;;^UTILITY(U,$J,358.3,38961,0)
;;=G0439^^109^1530^9^^^^1
;;^UTILITY(U,$J,358.3,38961,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38961,1,2,0)
;;=2^Annual Wellness Visit w/ PPPS,Subq Visit
;;^UTILITY(U,$J,358.3,38961,1,4,0)
;;=4^G0439
;;^UTILITY(U,$J,358.3,38962,0)
;;=G0442^^109^1530^5^^^^1
;;^UTILITY(U,$J,358.3,38962,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38962,1,2,0)
;;=2^Annual Alcohol Screen,15 min
;;^UTILITY(U,$J,358.3,38962,1,4,0)
;;=4^G0442
;;^UTILITY(U,$J,358.3,38963,0)
;;=G0443^^109^1530^14^^^^1
;;^UTILITY(U,$J,358.3,38963,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38963,1,2,0)
;;=2^Brief Alcohol Misuse Counsel,15 min
;;^UTILITY(U,$J,358.3,38963,1,4,0)
;;=4^G0443
;;^UTILITY(U,$J,358.3,38964,0)
;;=G0444^^109^1530^6^^^^1
;;^UTILITY(U,$J,358.3,38964,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38964,1,2,0)
;;=2^Annual Depression Screen,15 min
;;^UTILITY(U,$J,358.3,38964,1,4,0)
;;=4^G0444
;;^UTILITY(U,$J,358.3,38965,0)
;;=G0445^^109^1530^30^^^^1
;;^UTILITY(U,$J,358.3,38965,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38965,1,2,0)
;;=2^High Intensity Bhv Counsel for STD Prev,30 min
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FK 19782 printed Dec 13, 2024@01:47:42 Page 2
IBDEI0FK ; ; 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,38885,1,3,0)
+2 ;;=3^Cough,Oth Specified
+3 ;;^UTILITY(U,$J,358.3,38885,1,4,0)
+4 ;;=4^R05.8
+5 ;;^UTILITY(U,$J,358.3,38885,2)
+6 ;;=^5161231
+7 ;;^UTILITY(U,$J,358.3,38886,0)
+8 ;;=R50.83^^108^1526^9
+9 ;;^UTILITY(U,$J,358.3,38886,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,38886,1,3,0)
+12 ;;=3^Fever,Postvaccination
+13 ;;^UTILITY(U,$J,358.3,38886,1,4,0)
+14 ;;=4^R50.83
+15 ;;^UTILITY(U,$J,358.3,38886,2)
+16 ;;=^5019510
+17 ;;^UTILITY(U,$J,358.3,38887,0)
+18 ;;=Z11.52^^108^1527^1
+19 ;;^UTILITY(U,$J,358.3,38887,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,38887,1,3,0)
+22 ;;=3^Screen for COVID-19
+23 ;;^UTILITY(U,$J,358.3,38887,1,4,0)
+24 ;;=4^Z11.52
+25 ;;^UTILITY(U,$J,358.3,38887,2)
+26 ;;=^5160186
+27 ;;^UTILITY(U,$J,358.3,38888,0)
+28 ;;=Z20.822^^108^1528^1
+29 ;;^UTILITY(U,$J,358.3,38888,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,38888,1,3,0)
+32 ;;=3^PreProcedure COVID screen
+33 ;;^UTILITY(U,$J,358.3,38888,1,4,0)
+34 ;;=4^Z20.822
+35 ;;^UTILITY(U,$J,358.3,38888,2)
+36 ;;=^5160187
+37 ;;^UTILITY(U,$J,358.3,38889,0)
+38 ;;=Z01.812^^108^1528^2
+39 ;;^UTILITY(U,$J,358.3,38889,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,38889,1,3,0)
+42 ;;=3^PreProcedure Lab Screen
+43 ;;^UTILITY(U,$J,358.3,38889,1,4,0)
+44 ;;=4^Z01.812
+45 ;;^UTILITY(U,$J,358.3,38889,2)
+46 ;;=^5062627
+47 ;;^UTILITY(U,$J,358.3,38890,0)
+48 ;;=Z28.310^^108^1529^3
+49 ;;^UTILITY(U,$J,358.3,38890,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,38890,1,3,0)
+52 ;;=3^Unvaccinated for COVID-19
+53 ;;^UTILITY(U,$J,358.3,38890,1,4,0)
+54 ;;=4^Z28.310
+55 ;;^UTILITY(U,$J,358.3,38890,2)
+56 ;;=^5161576
+57 ;;^UTILITY(U,$J,358.3,38891,0)
+58 ;;=Z28.311^^108^1529^1
+59 ;;^UTILITY(U,$J,358.3,38891,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,38891,1,3,0)
+62 ;;=3^Partially Vaccinated for COVID-19
+63 ;;^UTILITY(U,$J,358.3,38891,1,4,0)
+64 ;;=4^Z28.311
+65 ;;^UTILITY(U,$J,358.3,38891,2)
+66 ;;=^5161577
+67 ;;^UTILITY(U,$J,358.3,38892,0)
+68 ;;=Z28.39^^108^1529^2
+69 ;;^UTILITY(U,$J,358.3,38892,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,38892,1,3,0)
+72 ;;=3^Underimmunization Status,Other
+73 ;;^UTILITY(U,$J,358.3,38892,1,4,0)
+74 ;;=4^Z28.39
+75 ;;^UTILITY(U,$J,358.3,38892,2)
+76 ;;=^5161578
+77 ;;^UTILITY(U,$J,358.3,38893,0)
+78 ;;=90785^^109^1530^68^^^^1
+79 ;;^UTILITY(U,$J,358.3,38893,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,38893,1,2,0)
+82 ;;=2^Psytx Complex Interactive
+83 ;;^UTILITY(U,$J,358.3,38893,1,4,0)
+84 ;;=4^90785
+85 ;;^UTILITY(U,$J,358.3,38894,0)
+86 ;;=90791^^109^1530^60^^^^1
+87 ;;^UTILITY(U,$J,358.3,38894,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,38894,1,2,0)
+90 ;;=2^Psych Diagnostic Evaluation
+91 ;;^UTILITY(U,$J,358.3,38894,1,4,0)
+92 ;;=4^90791
+93 ;;^UTILITY(U,$J,358.3,38895,0)
+94 ;;=90792^^109^1530^59^^^^1
+95 ;;^UTILITY(U,$J,358.3,38895,1,0)
+96 ;;=^358.31IA^4^2
+97 ;;^UTILITY(U,$J,358.3,38895,1,2,0)
+98 ;;=2^Psych Diag Eval w/ Med Svcs
+99 ;;^UTILITY(U,$J,358.3,38895,1,4,0)
+100 ;;=4^90792
+101 ;;^UTILITY(U,$J,358.3,38896,0)
+102 ;;=90832^^109^1530^74^^^^1
+103 ;;^UTILITY(U,$J,358.3,38896,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,38896,1,2,0)
+106 ;;=2^Psytx w/ Pt,30 min
+107 ;;^UTILITY(U,$J,358.3,38896,1,4,0)
+108 ;;=4^90832
+109 ;;^UTILITY(U,$J,358.3,38897,0)
+110 ;;=90833^^109^1530^71^^^^1
+111 ;;^UTILITY(U,$J,358.3,38897,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,38897,1,2,0)
+114 ;;=2^Psytx w/ Pt w/ E&M,30 min
+115 ;;^UTILITY(U,$J,358.3,38897,1,4,0)
+116 ;;=4^90833
+117 ;;^UTILITY(U,$J,358.3,38898,0)
+118 ;;=90834^^109^1530^75^^^^1
+119 ;;^UTILITY(U,$J,358.3,38898,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,38898,1,2,0)
+122 ;;=2^Psytx w/ Pt,45 min
+123 ;;^UTILITY(U,$J,358.3,38898,1,4,0)
+124 ;;=4^90834
+125 ;;^UTILITY(U,$J,358.3,38899,0)
+126 ;;=90836^^109^1530^72^^^^1
+127 ;;^UTILITY(U,$J,358.3,38899,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,38899,1,2,0)
+130 ;;=2^Psytx w/ Pt w/ E&M,45 min
+131 ;;^UTILITY(U,$J,358.3,38899,1,4,0)
+132 ;;=4^90836
+133 ;;^UTILITY(U,$J,358.3,38900,0)
+134 ;;=90837^^109^1530^76^^^^1
+135 ;;^UTILITY(U,$J,358.3,38900,1,0)
+136 ;;=^358.31IA^4^2
+137 ;;^UTILITY(U,$J,358.3,38900,1,2,0)
+138 ;;=2^Psytx w/ Pt,60 min
+139 ;;^UTILITY(U,$J,358.3,38900,1,4,0)
+140 ;;=4^90837
+141 ;;^UTILITY(U,$J,358.3,38901,0)
+142 ;;=90838^^109^1530^73^^^^1
+143 ;;^UTILITY(U,$J,358.3,38901,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,38901,1,2,0)
+146 ;;=2^Psytx w/ Pt w/ E&M,60 min
+147 ;;^UTILITY(U,$J,358.3,38901,1,4,0)
+148 ;;=4^90838
+149 ;;^UTILITY(U,$J,358.3,38902,0)
+150 ;;=90839^^109^1530^69^^^^1
+151 ;;^UTILITY(U,$J,358.3,38902,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,38902,1,2,0)
+154 ;;=2^Psytx Crisis,1st 60 min
+155 ;;^UTILITY(U,$J,358.3,38902,1,4,0)
+156 ;;=4^90839
+157 ;;^UTILITY(U,$J,358.3,38903,0)
+158 ;;=90840^^109^1530^70^^^^1
+159 ;;^UTILITY(U,$J,358.3,38903,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,38903,1,2,0)
+162 ;;=2^Psytx Crisis,Ea Addl 30 min
+163 ;;^UTILITY(U,$J,358.3,38903,1,4,0)
+164 ;;=4^90840
+165 ;;^UTILITY(U,$J,358.3,38904,0)
+166 ;;=90845^^109^1530^67^^^^1
+167 ;;^UTILITY(U,$J,358.3,38904,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,38904,1,2,0)
+170 ;;=2^Psychoanalysis
+171 ;;^UTILITY(U,$J,358.3,38904,1,4,0)
+172 ;;=4^90845
+173 ;;^UTILITY(U,$J,358.3,38905,0)
+174 ;;=90846^^109^1530^28^^^^1
+175 ;;^UTILITY(U,$J,358.3,38905,1,0)
+176 ;;=^358.31IA^4^2
+177 ;;^UTILITY(U,$J,358.3,38905,1,2,0)
+178 ;;=2^Family Psytx w/o Pt,50 min
+179 ;;^UTILITY(U,$J,358.3,38905,1,4,0)
+180 ;;=4^90846
+181 ;;^UTILITY(U,$J,358.3,38906,0)
+182 ;;=90847^^109^1530^27^^^^1
+183 ;;^UTILITY(U,$J,358.3,38906,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,38906,1,2,0)
+186 ;;=2^Family Psytx w/ Pt,50 min
+187 ;;^UTILITY(U,$J,358.3,38906,1,4,0)
+188 ;;=4^90847
+189 ;;^UTILITY(U,$J,358.3,38907,0)
+190 ;;=90853^^109^1530^29^^^^1
+191 ;;^UTILITY(U,$J,358.3,38907,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,38907,1,2,0)
+194 ;;=2^Group Psychotherapy
+195 ;;^UTILITY(U,$J,358.3,38907,1,4,0)
+196 ;;=4^90853
+197 ;;^UTILITY(U,$J,358.3,38908,0)
+198 ;;=92507^^109^1530^81^^^^1
+199 ;;^UTILITY(U,$J,358.3,38908,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,38908,1,2,0)
+202 ;;=2^Speech/Hearing Therapy,Ind
+203 ;;^UTILITY(U,$J,358.3,38908,1,4,0)
+204 ;;=4^92507
+205 ;;^UTILITY(U,$J,358.3,38909,0)
+206 ;;=92508^^109^1530^80^^^^1
+207 ;;^UTILITY(U,$J,358.3,38909,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,38909,1,2,0)
+210 ;;=2^Speech/Hearing Therapy,Grp
+211 ;;^UTILITY(U,$J,358.3,38909,1,4,0)
+212 ;;=4^92508
+213 ;;^UTILITY(U,$J,358.3,38910,0)
+214 ;;=92521^^109^1530^26^^^^1
+215 ;;^UTILITY(U,$J,358.3,38910,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,38910,1,2,0)
+218 ;;=2^Eval of Speech Fluency
+219 ;;^UTILITY(U,$J,358.3,38910,1,4,0)
+220 ;;=4^92521
+221 ;;^UTILITY(U,$J,358.3,38911,0)
+222 ;;=92522^^109^1530^25^^^^1
+223 ;;^UTILITY(U,$J,358.3,38911,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,38911,1,2,0)
+226 ;;=2^Eval Speech Production
+227 ;;^UTILITY(U,$J,358.3,38911,1,4,0)
+228 ;;=4^92522
+229 ;;^UTILITY(U,$J,358.3,38912,0)
+230 ;;=92523^^109^1530^79^^^^1
+231 ;;^UTILITY(U,$J,358.3,38912,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,38912,1,2,0)
+234 ;;=2^Speech Sound Lang Comprehen
+235 ;;^UTILITY(U,$J,358.3,38912,1,4,0)
+236 ;;=4^92523
+237 ;;^UTILITY(U,$J,358.3,38913,0)
+238 ;;=92524^^109^1530^10^^^^1
+239 ;;^UTILITY(U,$J,358.3,38913,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,38913,1,2,0)
+242 ;;=2^Behav Qual Analys Voice
+243 ;;^UTILITY(U,$J,358.3,38913,1,4,0)
+244 ;;=4^92524
+245 ;;^UTILITY(U,$J,358.3,38914,0)
+246 ;;=96116^^109^1530^48^^^^1
+247 ;;^UTILITY(U,$J,358.3,38914,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,38914,1,2,0)
+250 ;;=2^Nubhvl XM Phys/QHP,1st Hr
+251 ;;^UTILITY(U,$J,358.3,38914,1,4,0)
+252 ;;=4^96116
+253 ;;^UTILITY(U,$J,358.3,38915,0)
+254 ;;=96121^^109^1530^49^^^^1
+255 ;;^UTILITY(U,$J,358.3,38915,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,38915,1,2,0)
+258 ;;=2^Nubhvl XM Phys/QHP,Ea Addl Hr
+259 ;;^UTILITY(U,$J,358.3,38915,1,4,0)
+260 ;;=4^96121
+261 ;;^UTILITY(U,$J,358.3,38916,0)
+262 ;;=96127^^109^1530^15^^^^1
+263 ;;^UTILITY(U,$J,358.3,38916,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,38916,1,2,0)
+266 ;;=2^Brief Emotional/Behav Assmt
+267 ;;^UTILITY(U,$J,358.3,38916,1,4,0)
+268 ;;=4^96127
+269 ;;^UTILITY(U,$J,358.3,38917,0)
+270 ;;=96130^^109^1530^61^^^^1
+271 ;;^UTILITY(U,$J,358.3,38917,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,38917,1,2,0)
+274 ;;=2^Psych Tst Eval Phys/QHP,1st Hr
+275 ;;^UTILITY(U,$J,358.3,38917,1,4,0)
+276 ;;=4^96130
+277 ;;^UTILITY(U,$J,358.3,38918,0)
+278 ;;=96131^^109^1530^62^^^^1
+279 ;;^UTILITY(U,$J,358.3,38918,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,38918,1,2,0)
+282 ;;=2^Psych Tst Eval Phys/QHP,Ea Addl Hr
+283 ;;^UTILITY(U,$J,358.3,38918,1,4,0)
+284 ;;=4^96131
+285 ;;^UTILITY(U,$J,358.3,38919,0)
+286 ;;=96132^^109^1530^46^^^^1
+287 ;;^UTILITY(U,$J,358.3,38919,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,38919,1,2,0)
+290 ;;=2^Nrpsych Tst Eval Phys/QHP,1st Hr
+291 ;;^UTILITY(U,$J,358.3,38919,1,4,0)
+292 ;;=4^96132
+293 ;;^UTILITY(U,$J,358.3,38920,0)
+294 ;;=96133^^109^1530^47^^^^1
+295 ;;^UTILITY(U,$J,358.3,38920,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,38920,1,2,0)
+298 ;;=2^Nrpsych Tst Eval Phys/QHP,Ea Addl Hr
+299 ;;^UTILITY(U,$J,358.3,38920,1,4,0)
+300 ;;=4^96133
+301 ;;^UTILITY(U,$J,358.3,38921,0)
+302 ;;=96136^^109^1530^63^^^^1
+303 ;;^UTILITY(U,$J,358.3,38921,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,38921,1,2,0)
+306 ;;=2^Psych/Nrpsych Tst Eval Phys/QHP,1st Hr
+307 ;;^UTILITY(U,$J,358.3,38921,1,4,0)
+308 ;;=4^96136
+309 ;;^UTILITY(U,$J,358.3,38922,0)
+310 ;;=96137^^109^1530^64^^^^1
+311 ;;^UTILITY(U,$J,358.3,38922,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,38922,1,2,0)
+314 ;;=2^Psych/Nrpsych Tst Eval Phys/QHP,Ea Addl Hr
+315 ;;^UTILITY(U,$J,358.3,38922,1,4,0)
+316 ;;=4^96137
+317 ;;^UTILITY(U,$J,358.3,38923,0)
+318 ;;=96138^^109^1530^65^^^^1
+319 ;;^UTILITY(U,$J,358.3,38923,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,38923,1,2,0)
+322 ;;=2^Psych/Nrpsych Tst by Tech,1st 30 min
+323 ;;^UTILITY(U,$J,358.3,38923,1,4,0)
+324 ;;=4^96138
+325 ;;^UTILITY(U,$J,358.3,38924,0)
+326 ;;=96139^^109^1530^66^^^^1
+327 ;;^UTILITY(U,$J,358.3,38924,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,38924,1,2,0)
+330 ;;=2^Psych/Nrpsych Tst by Tech,Ea Addl 30 min
+331 ;;^UTILITY(U,$J,358.3,38924,1,4,0)
+332 ;;=4^96139
+333 ;;^UTILITY(U,$J,358.3,38925,0)
+334 ;;=96156^^109^1530^31^^^^1
+335 ;;^UTILITY(U,$J,358.3,38925,1,0)
+336 ;;=^358.31IA^4^2
+337 ;;^UTILITY(U,$J,358.3,38925,1,2,0)
+338 ;;=2^Hlth Bhv Assmt/Re-Assmt
+339 ;;^UTILITY(U,$J,358.3,38925,1,4,0)
+340 ;;=4^96156
+341 ;;^UTILITY(U,$J,358.3,38926,0)
+342 ;;=96158^^109^1530^36^^^^1
+343 ;;^UTILITY(U,$J,358.3,38926,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,38926,1,2,0)
+346 ;;=2^Hlth Bhv Intvn,Ind,1st 30 min
+347 ;;^UTILITY(U,$J,358.3,38926,1,4,0)
+348 ;;=4^96158
+349 ;;^UTILITY(U,$J,358.3,38927,0)
+350 ;;=96159^^109^1530^37^^^^1
+351 ;;^UTILITY(U,$J,358.3,38927,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,38927,1,2,0)
+354 ;;=2^Hlth Bhv Intvn,Ind,Ea Addl 30 min
+355 ;;^UTILITY(U,$J,358.3,38927,1,4,0)
+356 ;;=4^96159
+357 ;;^UTILITY(U,$J,358.3,38928,0)
+358 ;;=96160^^109^1530^77^^^^1
+359 ;;^UTILITY(U,$J,358.3,38928,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,38928,1,2,0)
+362 ;;=2^Pt Focused Hlth Risk Assmt
+363 ;;^UTILITY(U,$J,358.3,38928,1,4,0)
+364 ;;=4^96160
+365 ;;^UTILITY(U,$J,358.3,38929,0)
+366 ;;=96161^^109^1530^16^^^^1
+367 ;;^UTILITY(U,$J,358.3,38929,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,38929,1,2,0)
+370 ;;=2^Caregiver Hlth Risk Assmt
+371 ;;^UTILITY(U,$J,358.3,38929,1,4,0)
+372 ;;=4^96161
+373 ;;^UTILITY(U,$J,358.3,38930,0)
+374 ;;=96164^^109^1530^34^^^^1
+375 ;;^UTILITY(U,$J,358.3,38930,1,0)
+376 ;;=^358.31IA^4^2
+377 ;;^UTILITY(U,$J,358.3,38930,1,2,0)
+378 ;;=2^Hlth Bhv Intvn,Grp,1st 30 min
+379 ;;^UTILITY(U,$J,358.3,38930,1,4,0)
+380 ;;=4^96164
+381 ;;^UTILITY(U,$J,358.3,38931,0)
+382 ;;=96165^^109^1530^35^^^^1
+383 ;;^UTILITY(U,$J,358.3,38931,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,38931,1,2,0)
+386 ;;=2^Hlth Bhv Intvn,Grp,Ea Addl 30 min
+387 ;;^UTILITY(U,$J,358.3,38931,1,4,0)
+388 ;;=4^96165
+389 ;;^UTILITY(U,$J,358.3,38932,0)
+390 ;;=96167^^109^1530^32^^^^1
+391 ;;^UTILITY(U,$J,358.3,38932,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,38932,1,2,0)
+394 ;;=2^Hlth Bhv Intvn,Fam,1st 30 min
+395 ;;^UTILITY(U,$J,358.3,38932,1,4,0)
+396 ;;=4^96167
+397 ;;^UTILITY(U,$J,358.3,38933,0)
+398 ;;=96168^^109^1530^33^^^^1
+399 ;;^UTILITY(U,$J,358.3,38933,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,38933,1,2,0)
+402 ;;=2^Hlth Bhv Intvn,Fam,Ea Addl 30 min
+403 ;;^UTILITY(U,$J,358.3,38933,1,4,0)
+404 ;;=4^96168
+405 ;;^UTILITY(U,$J,358.3,38934,0)
+406 ;;=97535^^109^1530^78^^^^1
+407 ;;^UTILITY(U,$J,358.3,38934,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,38934,1,2,0)
+410 ;;=2^Self Care Mgmt Training
+411 ;;^UTILITY(U,$J,358.3,38934,1,4,0)
+412 ;;=4^97535
+413 ;;^UTILITY(U,$J,358.3,38935,0)
+414 ;;=97802^^109^1530^42^^^^1
+415 ;;^UTILITY(U,$J,358.3,38935,1,0)
+416 ;;=^358.31IA^4^2
+417 ;;^UTILITY(U,$J,358.3,38935,1,2,0)
+418 ;;=2^Med Nutr,Ind,Init Intvn,Ea 15 min
+419 ;;^UTILITY(U,$J,358.3,38935,1,4,0)
+420 ;;=4^97802
+421 ;;^UTILITY(U,$J,358.3,38936,0)
+422 ;;=97803^^109^1530^43^^^^1
+423 ;;^UTILITY(U,$J,358.3,38936,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,38936,1,2,0)
+426 ;;=2^Med Nutr,Ind,Re-Assmt/Intrvn,Ea 15 min
+427 ;;^UTILITY(U,$J,358.3,38936,1,4,0)
+428 ;;=4^97803
+429 ;;^UTILITY(U,$J,358.3,38937,0)
+430 ;;=97804^^109^1530^45^^^^1
+431 ;;^UTILITY(U,$J,358.3,38937,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,38937,1,2,0)
+434 ;;=2^Medical Nutrition Grp,Ea 30 min
+435 ;;^UTILITY(U,$J,358.3,38937,1,4,0)
+436 ;;=4^97804
+437 ;;^UTILITY(U,$J,358.3,38938,0)
+438 ;;=99354^^109^1530^55^^^^1
+439 ;;^UTILITY(U,$J,358.3,38938,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,38938,1,2,0)
+442 ;;=2^Prolong Outpt E&M Svc,1st hr
+443 ;;^UTILITY(U,$J,358.3,38938,1,4,0)
+444 ;;=4^99354
+445 ;;^UTILITY(U,$J,358.3,38939,0)
+446 ;;=99355^^109^1530^56^^^^1
+447 ;;^UTILITY(U,$J,358.3,38939,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,38939,1,2,0)
+450 ;;=2^Prolong Outpt E&M Svc,Ea Addl 30 min
+451 ;;^UTILITY(U,$J,358.3,38939,1,4,0)
+452 ;;=4^99355
+453 ;;^UTILITY(U,$J,358.3,38940,0)
+454 ;;=99356^^109^1530^53^^^^1
+455 ;;^UTILITY(U,$J,358.3,38940,1,0)
+456 ;;=^358.31IA^4^2
+457 ;;^UTILITY(U,$J,358.3,38940,1,2,0)
+458 ;;=2^Prolong Inpt E&M Svc,1st hr
+459 ;;^UTILITY(U,$J,358.3,38940,1,4,0)
+460 ;;=4^99356
+461 ;;^UTILITY(U,$J,358.3,38941,0)
+462 ;;=99357^^109^1530^54^^^^1
+463 ;;^UTILITY(U,$J,358.3,38941,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,38941,1,2,0)
+466 ;;=2^Prolong Inpt E&M Svc,Ea Addl 30 min
+467 ;;^UTILITY(U,$J,358.3,38941,1,4,0)
+468 ;;=4^99357
+469 ;;^UTILITY(U,$J,358.3,38942,0)
+470 ;;=99406^^109^1530^11^^^^1
+471 ;;^UTILITY(U,$J,358.3,38942,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,38942,1,2,0)
+474 ;;=2^Behv Change,Smoking,3-10 min
+475 ;;^UTILITY(U,$J,358.3,38942,1,4,0)
+476 ;;=4^99406
+477 ;;^UTILITY(U,$J,358.3,38943,0)
+478 ;;=99407^^109^1530^12^^^^1
+479 ;;^UTILITY(U,$J,358.3,38943,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,38943,1,2,0)
+482 ;;=2^Behv Change,Smoking,10+ min
+483 ;;^UTILITY(U,$J,358.3,38943,1,4,0)
+484 ;;=4^99407
+485 ;;^UTILITY(U,$J,358.3,38944,0)
+486 ;;=99497^^109^1530^1^^^^1
+487 ;;^UTILITY(U,$J,358.3,38944,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,38944,1,2,0)
+490 ;;=2^Advncd Care Plan,1st 30 min
+491 ;;^UTILITY(U,$J,358.3,38944,1,4,0)
+492 ;;=4^99497
+493 ;;^UTILITY(U,$J,358.3,38945,0)
+494 ;;=99498^^109^1530^2^^^^1
+495 ;;^UTILITY(U,$J,358.3,38945,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,38945,1,2,0)
+498 ;;=2^Advncd Care Plan,Ea Addl 30 min
+499 ;;^UTILITY(U,$J,358.3,38945,1,4,0)
+500 ;;=4^99498
+501 ;;^UTILITY(U,$J,358.3,38946,0)
+502 ;;=G0108^^109^1530^19^^^^1
+503 ;;^UTILITY(U,$J,358.3,38946,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,38946,1,2,0)
+506 ;;=2^Diab Mgmt Trning,Ind,Ea 30 min
+507 ;;^UTILITY(U,$J,358.3,38946,1,4,0)
+508 ;;=4^G0108
+509 ;;^UTILITY(U,$J,358.3,38947,0)
+510 ;;=G0109^^109^1530^18^^^^1
+511 ;;^UTILITY(U,$J,358.3,38947,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,38947,1,2,0)
+514 ;;=2^Diab Mgmt Trning,Grp,Ea 30 min
+515 ;;^UTILITY(U,$J,358.3,38947,1,4,0)
+516 ;;=4^G0109
+517 ;;^UTILITY(U,$J,358.3,38948,0)
+518 ;;=G0270^^109^1530^44^^^^1
+519 ;;^UTILITY(U,$J,358.3,38948,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,38948,1,2,0)
+522 ;;=2^Med Nutr,Re-Assmt New Dx,Ea 15 min
+523 ;;^UTILITY(U,$J,358.3,38948,1,4,0)
+524 ;;=4^G0270
+525 ;;^UTILITY(U,$J,358.3,38949,0)
+526 ;;=G0296^^109^1530^82^^^^1
+527 ;;^UTILITY(U,$J,358.3,38949,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,38949,1,2,0)
+530 ;;=2^Visit to Determ LDCT Elig
+531 ;;^UTILITY(U,$J,358.3,38949,1,4,0)
+532 ;;=4^G0296
+533 ;;^UTILITY(U,$J,358.3,38950,0)
+534 ;;=G0396^^109^1530^3^^^^1
+535 ;;^UTILITY(U,$J,358.3,38950,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,38950,1,2,0)
+538 ;;=2^Alcohol/Subs Intvn,15-30 min
+539 ;;^UTILITY(U,$J,358.3,38950,1,4,0)
+540 ;;=4^G0396
+541 ;;^UTILITY(U,$J,358.3,38951,0)
+542 ;;=G0397^^109^1530^4^^^^1
+543 ;;^UTILITY(U,$J,358.3,38951,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,38951,1,2,0)
+546 ;;=2^Alcohol/Subs Intvn,30+ min
+547 ;;^UTILITY(U,$J,358.3,38951,1,4,0)
+548 ;;=4^G0397
+549 ;;^UTILITY(U,$J,358.3,38952,0)
+550 ;;=G0406^^109^1530^38^^^^1
+551 ;;^UTILITY(U,$J,358.3,38952,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,38952,1,2,0)
+554 ;;=2^Inpt F/U up to 15 min
+555 ;;^UTILITY(U,$J,358.3,38952,1,4,0)
+556 ;;=4^G0406
+557 ;;^UTILITY(U,$J,358.3,38953,0)
+558 ;;=G0407^^109^1530^39^^^^1
+559 ;;^UTILITY(U,$J,358.3,38953,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,38953,1,2,0)
+562 ;;=2^Inpt F/U up to 25 min
+563 ;;^UTILITY(U,$J,358.3,38953,1,4,0)
+564 ;;=4^G0407
+565 ;;^UTILITY(U,$J,358.3,38954,0)
+566 ;;=G0408^^109^1530^40^^^^1
+567 ;;^UTILITY(U,$J,358.3,38954,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,38954,1,2,0)
+570 ;;=2^Inpt F/U up to 35 min
+571 ;;^UTILITY(U,$J,358.3,38954,1,4,0)
+572 ;;=4^G0408
+573 ;;^UTILITY(U,$J,358.3,38955,0)
+574 ;;=G0425^^109^1530^24^^^^1
+575 ;;^UTILITY(U,$J,358.3,38955,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,38955,1,2,0)
+578 ;;=2^Educ Svc for CKD,Ind,per hr
+579 ;;^UTILITY(U,$J,358.3,38955,1,4,0)
+580 ;;=4^G0425
+581 ;;^UTILITY(U,$J,358.3,38956,0)
+582 ;;=G0426^^109^1530^23^^^^1
+583 ;;^UTILITY(U,$J,358.3,38956,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,38956,1,2,0)
+586 ;;=2^Educ Svc for CKD,Grp,per hr
+587 ;;^UTILITY(U,$J,358.3,38956,1,4,0)
+588 ;;=4^G0426
+589 ;;^UTILITY(U,$J,358.3,38957,0)
+590 ;;=G0425^^109^1530^20^^^^1
+591 ;;^UTILITY(U,$J,358.3,38957,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,38957,1,2,0)
+594 ;;=2^ED Tele-Consult,30 min
+595 ;;^UTILITY(U,$J,358.3,38957,1,4,0)
+596 ;;=4^G0425
+597 ;;^UTILITY(U,$J,358.3,38958,0)
+598 ;;=G0426^^109^1530^21^^^^1
+599 ;;^UTILITY(U,$J,358.3,38958,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,38958,1,2,0)
+602 ;;=2^ED Tele-Consult,50 min
+603 ;;^UTILITY(U,$J,358.3,38958,1,4,0)
+604 ;;=4^G0426
+605 ;;^UTILITY(U,$J,358.3,38959,0)
+606 ;;=G0427^^109^1530^22^^^^1
+607 ;;^UTILITY(U,$J,358.3,38959,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,38959,1,2,0)
+610 ;;=2^ED Tele-Consult,70 min
+611 ;;^UTILITY(U,$J,358.3,38959,1,4,0)
+612 ;;=4^G0427
+613 ;;^UTILITY(U,$J,358.3,38960,0)
+614 ;;=G0438^^109^1530^8^^^^1
+615 ;;^UTILITY(U,$J,358.3,38960,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,38960,1,2,0)
+618 ;;=2^Annual Wellness Visit w/ PPPS,Init Visit
+619 ;;^UTILITY(U,$J,358.3,38960,1,4,0)
+620 ;;=4^G0438
+621 ;;^UTILITY(U,$J,358.3,38961,0)
+622 ;;=G0439^^109^1530^9^^^^1
+623 ;;^UTILITY(U,$J,358.3,38961,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,38961,1,2,0)
+626 ;;=2^Annual Wellness Visit w/ PPPS,Subq Visit
+627 ;;^UTILITY(U,$J,358.3,38961,1,4,0)
+628 ;;=4^G0439
+629 ;;^UTILITY(U,$J,358.3,38962,0)
+630 ;;=G0442^^109^1530^5^^^^1
+631 ;;^UTILITY(U,$J,358.3,38962,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,38962,1,2,0)
+634 ;;=2^Annual Alcohol Screen,15 min
+635 ;;^UTILITY(U,$J,358.3,38962,1,4,0)
+636 ;;=4^G0442
+637 ;;^UTILITY(U,$J,358.3,38963,0)
+638 ;;=G0443^^109^1530^14^^^^1
+639 ;;^UTILITY(U,$J,358.3,38963,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,38963,1,2,0)
+642 ;;=2^Brief Alcohol Misuse Counsel,15 min
+643 ;;^UTILITY(U,$J,358.3,38963,1,4,0)
+644 ;;=4^G0443
+645 ;;^UTILITY(U,$J,358.3,38964,0)
+646 ;;=G0444^^109^1530^6^^^^1
+647 ;;^UTILITY(U,$J,358.3,38964,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,38964,1,2,0)
+650 ;;=2^Annual Depression Screen,15 min
+651 ;;^UTILITY(U,$J,358.3,38964,1,4,0)
+652 ;;=4^G0444
+653 ;;^UTILITY(U,$J,358.3,38965,0)
+654 ;;=G0445^^109^1530^30^^^^1
+655 ;;^UTILITY(U,$J,358.3,38965,1,0)
+656 ;;=^358.31IA^4^2
+657 ;;^UTILITY(U,$J,358.3,38965,1,2,0)
+658 ;;=2^High Intensity Bhv Counsel for STD Prev,30 min
