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

IBDEI0FK.m

Go to the documentation of this file. 
  1. IBDEI0FK ; ; 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,38885,1,3,0)
  1.  ;;=3^Cough,Oth Specified
  1.  ;;^UTILITY(U,$J,358.3,38885,1,4,0)
  1.  ;;=4^R05.8
  1.  ;;^UTILITY(U,$J,358.3,38885,2)
  1.  ;;=^5161231
  1.  ;;^UTILITY(U,$J,358.3,38886,0)
  1.  ;;=R50.83^^108^1526^9
  1.  ;;^UTILITY(U,$J,358.3,38886,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38886,1,3,0)
  1.  ;;=3^Fever,Postvaccination
  1.  ;;^UTILITY(U,$J,358.3,38886,1,4,0)
  1.  ;;=4^R50.83
  1.  ;;^UTILITY(U,$J,358.3,38886,2)
  1.  ;;=^5019510
  1.  ;;^UTILITY(U,$J,358.3,38887,0)
  1.  ;;=Z11.52^^108^1527^1
  1.  ;;^UTILITY(U,$J,358.3,38887,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38887,1,3,0)
  1.  ;;=3^Screen for COVID-19
  1.  ;;^UTILITY(U,$J,358.3,38887,1,4,0)
  1.  ;;=4^Z11.52
  1.  ;;^UTILITY(U,$J,358.3,38887,2)
  1.  ;;=^5160186
  1.  ;;^UTILITY(U,$J,358.3,38888,0)
  1.  ;;=Z20.822^^108^1528^1
  1.  ;;^UTILITY(U,$J,358.3,38888,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38888,1,3,0)
  1.  ;;=3^PreProcedure COVID screen
  1.  ;;^UTILITY(U,$J,358.3,38888,1,4,0)
  1.  ;;=4^Z20.822
  1.  ;;^UTILITY(U,$J,358.3,38888,2)
  1.  ;;=^5160187
  1.  ;;^UTILITY(U,$J,358.3,38889,0)
  1.  ;;=Z01.812^^108^1528^2
  1.  ;;^UTILITY(U,$J,358.3,38889,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38889,1,3,0)
  1.  ;;=3^PreProcedure Lab Screen
  1.  ;;^UTILITY(U,$J,358.3,38889,1,4,0)
  1.  ;;=4^Z01.812
  1.  ;;^UTILITY(U,$J,358.3,38889,2)
  1.  ;;=^5062627
  1.  ;;^UTILITY(U,$J,358.3,38890,0)
  1.  ;;=Z28.310^^108^1529^3
  1.  ;;^UTILITY(U,$J,358.3,38890,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38890,1,3,0)
  1.  ;;=3^Unvaccinated for COVID-19
  1.  ;;^UTILITY(U,$J,358.3,38890,1,4,0)
  1.  ;;=4^Z28.310
  1.  ;;^UTILITY(U,$J,358.3,38890,2)
  1.  ;;=^5161576
  1.  ;;^UTILITY(U,$J,358.3,38891,0)
  1.  ;;=Z28.311^^108^1529^1
  1.  ;;^UTILITY(U,$J,358.3,38891,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38891,1,3,0)
  1.  ;;=3^Partially Vaccinated for COVID-19
  1.  ;;^UTILITY(U,$J,358.3,38891,1,4,0)
  1.  ;;=4^Z28.311
  1.  ;;^UTILITY(U,$J,358.3,38891,2)
  1.  ;;=^5161577
  1.  ;;^UTILITY(U,$J,358.3,38892,0)
  1.  ;;=Z28.39^^108^1529^2
  1.  ;;^UTILITY(U,$J,358.3,38892,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38892,1,3,0)
  1.  ;;=3^Underimmunization Status,Other
  1.  ;;^UTILITY(U,$J,358.3,38892,1,4,0)
  1.  ;;=4^Z28.39
  1.  ;;^UTILITY(U,$J,358.3,38892,2)
  1.  ;;=^5161578
  1.  ;;^UTILITY(U,$J,358.3,38893,0)
  1.  ;;=90785^^109^1530^68^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38893,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38893,1,2,0)
  1.  ;;=2^Psytx Complex Interactive
  1.  ;;^UTILITY(U,$J,358.3,38893,1,4,0)
  1.  ;;=4^90785
  1.  ;;^UTILITY(U,$J,358.3,38894,0)
  1.  ;;=90791^^109^1530^60^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38894,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38894,1,2,0)
  1.  ;;=2^Psych Diagnostic Evaluation
  1.  ;;^UTILITY(U,$J,358.3,38894,1,4,0)
  1.  ;;=4^90791
  1.  ;;^UTILITY(U,$J,358.3,38895,0)
  1.  ;;=90792^^109^1530^59^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38895,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38895,1,2,0)
  1.  ;;=2^Psych Diag Eval w/ Med Svcs
  1.  ;;^UTILITY(U,$J,358.3,38895,1,4,0)
  1.  ;;=4^90792
  1.  ;;^UTILITY(U,$J,358.3,38896,0)
  1.  ;;=90832^^109^1530^74^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38896,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38896,1,2,0)
  1.  ;;=2^Psytx w/ Pt,30 min
  1.  ;;^UTILITY(U,$J,358.3,38896,1,4,0)
  1.  ;;=4^90832
  1.  ;;^UTILITY(U,$J,358.3,38897,0)
  1.  ;;=90833^^109^1530^71^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38897,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38897,1,2,0)
  1.  ;;=2^Psytx w/ Pt w/ E&M,30 min
  1.  ;;^UTILITY(U,$J,358.3,38897,1,4,0)
  1.  ;;=4^90833
  1.  ;;^UTILITY(U,$J,358.3,38898,0)
  1.  ;;=90834^^109^1530^75^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38898,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38898,1,2,0)
  1.  ;;=2^Psytx w/ Pt,45 min
  1.  ;;^UTILITY(U,$J,358.3,38898,1,4,0)
  1.  ;;=4^90834
  1.  ;;^UTILITY(U,$J,358.3,38899,0)
  1.  ;;=90836^^109^1530^72^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38899,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38899,1,2,0)
  1.  ;;=2^Psytx w/ Pt w/ E&M,45 min
  1.  ;;^UTILITY(U,$J,358.3,38899,1,4,0)
  1.  ;;=4^90836
  1.  ;;^UTILITY(U,$J,358.3,38900,0)
  1.  ;;=90837^^109^1530^76^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38900,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38900,1,2,0)
  1.  ;;=2^Psytx w/ Pt,60 min
  1.  ;;^UTILITY(U,$J,358.3,38900,1,4,0)
  1.  ;;=4^90837
  1.  ;;^UTILITY(U,$J,358.3,38901,0)
  1.  ;;=90838^^109^1530^73^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38901,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38901,1,2,0)
  1.  ;;=2^Psytx w/ Pt w/ E&M,60 min
  1.  ;;^UTILITY(U,$J,358.3,38901,1,4,0)
  1.  ;;=4^90838
  1.  ;;^UTILITY(U,$J,358.3,38902,0)
  1.  ;;=90839^^109^1530^69^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38902,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38902,1,2,0)
  1.  ;;=2^Psytx Crisis,1st 60 min
  1.  ;;^UTILITY(U,$J,358.3,38902,1,4,0)
  1.  ;;=4^90839
  1.  ;;^UTILITY(U,$J,358.3,38903,0)
  1.  ;;=90840^^109^1530^70^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38903,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38903,1,2,0)
  1.  ;;=2^Psytx Crisis,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38903,1,4,0)
  1.  ;;=4^90840
  1.  ;;^UTILITY(U,$J,358.3,38904,0)
  1.  ;;=90845^^109^1530^67^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38904,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38904,1,2,0)
  1.  ;;=2^Psychoanalysis
  1.  ;;^UTILITY(U,$J,358.3,38904,1,4,0)
  1.  ;;=4^90845
  1.  ;;^UTILITY(U,$J,358.3,38905,0)
  1.  ;;=90846^^109^1530^28^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38905,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38905,1,2,0)
  1.  ;;=2^Family Psytx w/o Pt,50 min
  1.  ;;^UTILITY(U,$J,358.3,38905,1,4,0)
  1.  ;;=4^90846
  1.  ;;^UTILITY(U,$J,358.3,38906,0)
  1.  ;;=90847^^109^1530^27^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38906,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38906,1,2,0)
  1.  ;;=2^Family Psytx w/ Pt,50 min
  1.  ;;^UTILITY(U,$J,358.3,38906,1,4,0)
  1.  ;;=4^90847
  1.  ;;^UTILITY(U,$J,358.3,38907,0)
  1.  ;;=90853^^109^1530^29^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38907,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38907,1,2,0)
  1.  ;;=2^Group Psychotherapy
  1.  ;;^UTILITY(U,$J,358.3,38907,1,4,0)
  1.  ;;=4^90853
  1.  ;;^UTILITY(U,$J,358.3,38908,0)
  1.  ;;=92507^^109^1530^81^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38908,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38908,1,2,0)
  1.  ;;=2^Speech/Hearing Therapy,Ind
  1.  ;;^UTILITY(U,$J,358.3,38908,1,4,0)
  1.  ;;=4^92507
  1.  ;;^UTILITY(U,$J,358.3,38909,0)
  1.  ;;=92508^^109^1530^80^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38909,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38909,1,2,0)
  1.  ;;=2^Speech/Hearing Therapy,Grp
  1.  ;;^UTILITY(U,$J,358.3,38909,1,4,0)
  1.  ;;=4^92508
  1.  ;;^UTILITY(U,$J,358.3,38910,0)
  1.  ;;=92521^^109^1530^26^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38910,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38910,1,2,0)
  1.  ;;=2^Eval of Speech Fluency
  1.  ;;^UTILITY(U,$J,358.3,38910,1,4,0)
  1.  ;;=4^92521
  1.  ;;^UTILITY(U,$J,358.3,38911,0)
  1.  ;;=92522^^109^1530^25^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38911,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38911,1,2,0)
  1.  ;;=2^Eval Speech Production
  1.  ;;^UTILITY(U,$J,358.3,38911,1,4,0)
  1.  ;;=4^92522
  1.  ;;^UTILITY(U,$J,358.3,38912,0)
  1.  ;;=92523^^109^1530^79^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38912,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38912,1,2,0)
  1.  ;;=2^Speech Sound Lang Comprehen
  1.  ;;^UTILITY(U,$J,358.3,38912,1,4,0)
  1.  ;;=4^92523
  1.  ;;^UTILITY(U,$J,358.3,38913,0)
  1.  ;;=92524^^109^1530^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38913,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38913,1,2,0)
  1.  ;;=2^Behav Qual Analys Voice
  1.  ;;^UTILITY(U,$J,358.3,38913,1,4,0)
  1.  ;;=4^92524
  1.  ;;^UTILITY(U,$J,358.3,38914,0)
  1.  ;;=96116^^109^1530^48^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38914,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38914,1,2,0)
  1.  ;;=2^Nubhvl XM Phys/QHP,1st Hr
  1.  ;;^UTILITY(U,$J,358.3,38914,1,4,0)
  1.  ;;=4^96116
  1.  ;;^UTILITY(U,$J,358.3,38915,0)
  1.  ;;=96121^^109^1530^49^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38915,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38915,1,2,0)
  1.  ;;=2^Nubhvl XM Phys/QHP,Ea Addl Hr
  1.  ;;^UTILITY(U,$J,358.3,38915,1,4,0)
  1.  ;;=4^96121
  1.  ;;^UTILITY(U,$J,358.3,38916,0)
  1.  ;;=96127^^109^1530^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38916,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38916,1,2,0)
  1.  ;;=2^Brief Emotional/Behav Assmt
  1.  ;;^UTILITY(U,$J,358.3,38916,1,4,0)
  1.  ;;=4^96127
  1.  ;;^UTILITY(U,$J,358.3,38917,0)
  1.  ;;=96130^^109^1530^61^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38917,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38917,1,2,0)
  1.  ;;=2^Psych Tst Eval Phys/QHP,1st Hr
  1.  ;;^UTILITY(U,$J,358.3,38917,1,4,0)
  1.  ;;=4^96130
  1.  ;;^UTILITY(U,$J,358.3,38918,0)
  1.  ;;=96131^^109^1530^62^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38918,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38918,1,2,0)
  1.  ;;=2^Psych Tst Eval Phys/QHP,Ea Addl Hr
  1.  ;;^UTILITY(U,$J,358.3,38918,1,4,0)
  1.  ;;=4^96131
  1.  ;;^UTILITY(U,$J,358.3,38919,0)
  1.  ;;=96132^^109^1530^46^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38919,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38919,1,2,0)
  1.  ;;=2^Nrpsych Tst Eval Phys/QHP,1st Hr
  1.  ;;^UTILITY(U,$J,358.3,38919,1,4,0)
  1.  ;;=4^96132
  1.  ;;^UTILITY(U,$J,358.3,38920,0)
  1.  ;;=96133^^109^1530^47^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38920,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38920,1,2,0)
  1.  ;;=2^Nrpsych Tst Eval Phys/QHP,Ea Addl Hr
  1.  ;;^UTILITY(U,$J,358.3,38920,1,4,0)
  1.  ;;=4^96133
  1.  ;;^UTILITY(U,$J,358.3,38921,0)
  1.  ;;=96136^^109^1530^63^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38921,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38921,1,2,0)
  1.  ;;=2^Psych/Nrpsych Tst Eval Phys/QHP,1st Hr
  1.  ;;^UTILITY(U,$J,358.3,38921,1,4,0)
  1.  ;;=4^96136
  1.  ;;^UTILITY(U,$J,358.3,38922,0)
  1.  ;;=96137^^109^1530^64^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38922,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38922,1,2,0)
  1.  ;;=2^Psych/Nrpsych Tst Eval Phys/QHP,Ea Addl Hr
  1.  ;;^UTILITY(U,$J,358.3,38922,1,4,0)
  1.  ;;=4^96137
  1.  ;;^UTILITY(U,$J,358.3,38923,0)
  1.  ;;=96138^^109^1530^65^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38923,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38923,1,2,0)
  1.  ;;=2^Psych/Nrpsych Tst by Tech,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,38923,1,4,0)
  1.  ;;=4^96138
  1.  ;;^UTILITY(U,$J,358.3,38924,0)
  1.  ;;=96139^^109^1530^66^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38924,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38924,1,2,0)
  1.  ;;=2^Psych/Nrpsych Tst by Tech,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38924,1,4,0)
  1.  ;;=4^96139
  1.  ;;^UTILITY(U,$J,358.3,38925,0)
  1.  ;;=96156^^109^1530^31^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38925,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38925,1,2,0)
  1.  ;;=2^Hlth Bhv Assmt/Re-Assmt
  1.  ;;^UTILITY(U,$J,358.3,38925,1,4,0)
  1.  ;;=4^96156
  1.  ;;^UTILITY(U,$J,358.3,38926,0)
  1.  ;;=96158^^109^1530^36^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38926,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38926,1,2,0)
  1.  ;;=2^Hlth Bhv Intvn,Ind,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,38926,1,4,0)
  1.  ;;=4^96158
  1.  ;;^UTILITY(U,$J,358.3,38927,0)
  1.  ;;=96159^^109^1530^37^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38927,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38927,1,2,0)
  1.  ;;=2^Hlth Bhv Intvn,Ind,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38927,1,4,0)
  1.  ;;=4^96159
  1.  ;;^UTILITY(U,$J,358.3,38928,0)
  1.  ;;=96160^^109^1530^77^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38928,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38928,1,2,0)
  1.  ;;=2^Pt Focused Hlth Risk Assmt
  1.  ;;^UTILITY(U,$J,358.3,38928,1,4,0)
  1.  ;;=4^96160
  1.  ;;^UTILITY(U,$J,358.3,38929,0)
  1.  ;;=96161^^109^1530^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38929,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38929,1,2,0)
  1.  ;;=2^Caregiver Hlth Risk Assmt
  1.  ;;^UTILITY(U,$J,358.3,38929,1,4,0)
  1.  ;;=4^96161
  1.  ;;^UTILITY(U,$J,358.3,38930,0)
  1.  ;;=96164^^109^1530^34^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38930,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38930,1,2,0)
  1.  ;;=2^Hlth Bhv Intvn,Grp,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,38930,1,4,0)
  1.  ;;=4^96164
  1.  ;;^UTILITY(U,$J,358.3,38931,0)
  1.  ;;=96165^^109^1530^35^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38931,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38931,1,2,0)
  1.  ;;=2^Hlth Bhv Intvn,Grp,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38931,1,4,0)
  1.  ;;=4^96165
  1.  ;;^UTILITY(U,$J,358.3,38932,0)
  1.  ;;=96167^^109^1530^32^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38932,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38932,1,2,0)
  1.  ;;=2^Hlth Bhv Intvn,Fam,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,38932,1,4,0)
  1.  ;;=4^96167
  1.  ;;^UTILITY(U,$J,358.3,38933,0)
  1.  ;;=96168^^109^1530^33^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38933,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38933,1,2,0)
  1.  ;;=2^Hlth Bhv Intvn,Fam,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38933,1,4,0)
  1.  ;;=4^96168
  1.  ;;^UTILITY(U,$J,358.3,38934,0)
  1.  ;;=97535^^109^1530^78^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38934,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38934,1,2,0)
  1.  ;;=2^Self Care Mgmt Training
  1.  ;;^UTILITY(U,$J,358.3,38934,1,4,0)
  1.  ;;=4^97535
  1.  ;;^UTILITY(U,$J,358.3,38935,0)
  1.  ;;=97802^^109^1530^42^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38935,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38935,1,2,0)
  1.  ;;=2^Med Nutr,Ind,Init Intvn,Ea 15 min 
  1.  ;;^UTILITY(U,$J,358.3,38935,1,4,0)
  1.  ;;=4^97802
  1.  ;;^UTILITY(U,$J,358.3,38936,0)
  1.  ;;=97803^^109^1530^43^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38936,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38936,1,2,0)
  1.  ;;=2^Med Nutr,Ind,Re-Assmt/Intrvn,Ea 15 min
  1.  ;;^UTILITY(U,$J,358.3,38936,1,4,0)
  1.  ;;=4^97803
  1.  ;;^UTILITY(U,$J,358.3,38937,0)
  1.  ;;=97804^^109^1530^45^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38937,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38937,1,2,0)
  1.  ;;=2^Medical Nutrition Grp,Ea 30 min
  1.  ;;^UTILITY(U,$J,358.3,38937,1,4,0)
  1.  ;;=4^97804
  1.  ;;^UTILITY(U,$J,358.3,38938,0)
  1.  ;;=99354^^109^1530^55^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38938,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38938,1,2,0)
  1.  ;;=2^Prolong Outpt E&M Svc,1st hr
  1.  ;;^UTILITY(U,$J,358.3,38938,1,4,0)
  1.  ;;=4^99354
  1.  ;;^UTILITY(U,$J,358.3,38939,0)
  1.  ;;=99355^^109^1530^56^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38939,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38939,1,2,0)
  1.  ;;=2^Prolong Outpt E&M Svc,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38939,1,4,0)
  1.  ;;=4^99355
  1.  ;;^UTILITY(U,$J,358.3,38940,0)
  1.  ;;=99356^^109^1530^53^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38940,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38940,1,2,0)
  1.  ;;=2^Prolong Inpt E&M Svc,1st hr
  1.  ;;^UTILITY(U,$J,358.3,38940,1,4,0)
  1.  ;;=4^99356
  1.  ;;^UTILITY(U,$J,358.3,38941,0)
  1.  ;;=99357^^109^1530^54^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38941,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38941,1,2,0)
  1.  ;;=2^Prolong Inpt E&M Svc,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38941,1,4,0)
  1.  ;;=4^99357
  1.  ;;^UTILITY(U,$J,358.3,38942,0)
  1.  ;;=99406^^109^1530^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38942,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38942,1,2,0)
  1.  ;;=2^Behv Change,Smoking,3-10 min
  1.  ;;^UTILITY(U,$J,358.3,38942,1,4,0)
  1.  ;;=4^99406
  1.  ;;^UTILITY(U,$J,358.3,38943,0)
  1.  ;;=99407^^109^1530^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38943,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38943,1,2,0)
  1.  ;;=2^Behv Change,Smoking,10+ min
  1.  ;;^UTILITY(U,$J,358.3,38943,1,4,0)
  1.  ;;=4^99407
  1.  ;;^UTILITY(U,$J,358.3,38944,0)
  1.  ;;=99497^^109^1530^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38944,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38944,1,2,0)
  1.  ;;=2^Advncd Care Plan,1st 30 min
  1.  ;;^UTILITY(U,$J,358.3,38944,1,4,0)
  1.  ;;=4^99497
  1.  ;;^UTILITY(U,$J,358.3,38945,0)
  1.  ;;=99498^^109^1530^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38945,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38945,1,2,0)
  1.  ;;=2^Advncd Care Plan,Ea Addl 30 min
  1.  ;;^UTILITY(U,$J,358.3,38945,1,4,0)
  1.  ;;=4^99498
  1.  ;;^UTILITY(U,$J,358.3,38946,0)
  1.  ;;=G0108^^109^1530^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38946,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38946,1,2,0)
  1.  ;;=2^Diab Mgmt Trning,Ind,Ea 30 min
  1.  ;;^UTILITY(U,$J,358.3,38946,1,4,0)
  1.  ;;=4^G0108
  1.  ;;^UTILITY(U,$J,358.3,38947,0)
  1.  ;;=G0109^^109^1530^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38947,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38947,1,2,0)
  1.  ;;=2^Diab Mgmt Trning,Grp,Ea 30 min
  1.  ;;^UTILITY(U,$J,358.3,38947,1,4,0)
  1.  ;;=4^G0109
  1.  ;;^UTILITY(U,$J,358.3,38948,0)
  1.  ;;=G0270^^109^1530^44^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38948,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38948,1,2,0)
  1.  ;;=2^Med Nutr,Re-Assmt New Dx,Ea 15 min
  1.  ;;^UTILITY(U,$J,358.3,38948,1,4,0)
  1.  ;;=4^G0270
  1.  ;;^UTILITY(U,$J,358.3,38949,0)
  1.  ;;=G0296^^109^1530^82^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38949,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38949,1,2,0)
  1.  ;;=2^Visit to Determ LDCT Elig
  1.  ;;^UTILITY(U,$J,358.3,38949,1,4,0)
  1.  ;;=4^G0296
  1.  ;;^UTILITY(U,$J,358.3,38950,0)
  1.  ;;=G0396^^109^1530^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38950,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38950,1,2,0)
  1.  ;;=2^Alcohol/Subs Intvn,15-30 min
  1.  ;;^UTILITY(U,$J,358.3,38950,1,4,0)
  1.  ;;=4^G0396
  1.  ;;^UTILITY(U,$J,358.3,38951,0)
  1.  ;;=G0397^^109^1530^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38951,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38951,1,2,0)
  1.  ;;=2^Alcohol/Subs Intvn,30+ min
  1.  ;;^UTILITY(U,$J,358.3,38951,1,4,0)
  1.  ;;=4^G0397
  1.  ;;^UTILITY(U,$J,358.3,38952,0)
  1.  ;;=G0406^^109^1530^38^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38952,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38952,1,2,0)
  1.  ;;=2^Inpt F/U up to 15 min
  1.  ;;^UTILITY(U,$J,358.3,38952,1,4,0)
  1.  ;;=4^G0406
  1.  ;;^UTILITY(U,$J,358.3,38953,0)
  1.  ;;=G0407^^109^1530^39^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38953,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38953,1,2,0)
  1.  ;;=2^Inpt F/U up to 25 min
  1.  ;;^UTILITY(U,$J,358.3,38953,1,4,0)
  1.  ;;=4^G0407
  1.  ;;^UTILITY(U,$J,358.3,38954,0)
  1.  ;;=G0408^^109^1530^40^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38954,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38954,1,2,0)
  1.  ;;=2^Inpt F/U up to 35 min
  1.  ;;^UTILITY(U,$J,358.3,38954,1,4,0)
  1.  ;;=4^G0408
  1.  ;;^UTILITY(U,$J,358.3,38955,0)
  1.  ;;=G0425^^109^1530^24^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38955,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38955,1,2,0)
  1.  ;;=2^Educ Svc for CKD,Ind,per hr
  1.  ;;^UTILITY(U,$J,358.3,38955,1,4,0)
  1.  ;;=4^G0425
  1.  ;;^UTILITY(U,$J,358.3,38956,0)
  1.  ;;=G0426^^109^1530^23^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38956,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38956,1,2,0)
  1.  ;;=2^Educ Svc for CKD,Grp,per hr
  1.  ;;^UTILITY(U,$J,358.3,38956,1,4,0)
  1.  ;;=4^G0426
  1.  ;;^UTILITY(U,$J,358.3,38957,0)
  1.  ;;=G0425^^109^1530^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38957,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38957,1,2,0)
  1.  ;;=2^ED Tele-Consult,30 min
  1.  ;;^UTILITY(U,$J,358.3,38957,1,4,0)
  1.  ;;=4^G0425
  1.  ;;^UTILITY(U,$J,358.3,38958,0)
  1.  ;;=G0426^^109^1530^21^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38958,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38958,1,2,0)
  1.  ;;=2^ED Tele-Consult,50 min
  1.  ;;^UTILITY(U,$J,358.3,38958,1,4,0)
  1.  ;;=4^G0426
  1.  ;;^UTILITY(U,$J,358.3,38959,0)
  1.  ;;=G0427^^109^1530^22^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38959,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38959,1,2,0)
  1.  ;;=2^ED Tele-Consult,70 min
  1.  ;;^UTILITY(U,$J,358.3,38959,1,4,0)
  1.  ;;=4^G0427
  1.  ;;^UTILITY(U,$J,358.3,38960,0)
  1.  ;;=G0438^^109^1530^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38960,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38960,1,2,0)
  1.  ;;=2^Annual Wellness Visit w/ PPPS,Init Visit
  1.  ;;^UTILITY(U,$J,358.3,38960,1,4,0)
  1.  ;;=4^G0438
  1.  ;;^UTILITY(U,$J,358.3,38961,0)
  1.  ;;=G0439^^109^1530^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38961,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38961,1,2,0)
  1.  ;;=2^Annual Wellness Visit w/ PPPS,Subq Visit
  1.  ;;^UTILITY(U,$J,358.3,38961,1,4,0)
  1.  ;;=4^G0439
  1.  ;;^UTILITY(U,$J,358.3,38962,0)
  1.  ;;=G0442^^109^1530^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38962,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38962,1,2,0)
  1.  ;;=2^Annual Alcohol Screen,15 min
  1.  ;;^UTILITY(U,$J,358.3,38962,1,4,0)
  1.  ;;=4^G0442
  1.  ;;^UTILITY(U,$J,358.3,38963,0)
  1.  ;;=G0443^^109^1530^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38963,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38963,1,2,0)
  1.  ;;=2^Brief Alcohol Misuse Counsel,15 min
  1.  ;;^UTILITY(U,$J,358.3,38963,1,4,0)
  1.  ;;=4^G0443
  1.  ;;^UTILITY(U,$J,358.3,38964,0)
  1.  ;;=G0444^^109^1530^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38964,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38964,1,2,0)
  1.  ;;=2^Annual Depression Screen,15 min
  1.  ;;^UTILITY(U,$J,358.3,38964,1,4,0)
  1.  ;;=4^G0444
  1.  ;;^UTILITY(U,$J,358.3,38965,0)
  1.  ;;=G0445^^109^1530^30^^^^1
  1.  ;;^UTILITY(U,$J,358.3,38965,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,38965,1,2,0)
  1.  ;;=2^High Intensity Bhv Counsel for STD Prev,30 min