IBDEI04G ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,10725,1,4,0)
;;=4^N28.84
;;^UTILITY(U,$J,358.3,10725,2)
;;=^5015628
;;^UTILITY(U,$J,358.3,10726,0)
;;=N28.85^^45^465^8
;;^UTILITY(U,$J,358.3,10726,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10726,1,3,0)
;;=3^Pyeloureteritis Cystica
;;^UTILITY(U,$J,358.3,10726,1,4,0)
;;=4^N28.85
;;^UTILITY(U,$J,358.3,10726,2)
;;=^270372
;;^UTILITY(U,$J,358.3,10727,0)
;;=N15.1^^45^465^9
;;^UTILITY(U,$J,358.3,10727,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10727,1,3,0)
;;=3^Renal & Perinephric Abscess
;;^UTILITY(U,$J,358.3,10727,1,4,0)
;;=4^N15.1
;;^UTILITY(U,$J,358.3,10727,2)
;;=^270371
;;^UTILITY(U,$J,358.3,10728,0)
;;=N16.^^45^465^10
;;^UTILITY(U,$J,358.3,10728,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10728,1,3,0)
;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
;;^UTILITY(U,$J,358.3,10728,1,4,0)
;;=4^N16.
;;^UTILITY(U,$J,358.3,10728,2)
;;=^5015597
;;^UTILITY(U,$J,358.3,10729,0)
;;=N15.9^^45^465^11
;;^UTILITY(U,$J,358.3,10729,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10729,1,3,0)
;;=3^Tubulo-Interstitial Disease,Unspec
;;^UTILITY(U,$J,358.3,10729,1,4,0)
;;=4^N15.9
;;^UTILITY(U,$J,358.3,10729,2)
;;=^5015596
;;^UTILITY(U,$J,358.3,10730,0)
;;=N12.^^45^465^12
;;^UTILITY(U,$J,358.3,10730,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10730,1,3,0)
;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
;;^UTILITY(U,$J,358.3,10730,1,4,0)
;;=4^N12.
;;^UTILITY(U,$J,358.3,10730,2)
;;=^5015575
;;^UTILITY(U,$J,358.3,10731,0)
;;=N28.86^^45^465^14
;;^UTILITY(U,$J,358.3,10731,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10731,1,3,0)
;;=3^Ureteritis Cystica
;;^UTILITY(U,$J,358.3,10731,1,4,0)
;;=4^N28.86
;;^UTILITY(U,$J,358.3,10731,2)
;;=^5015629
;;^UTILITY(U,$J,358.3,10732,0)
;;=A08.0^^45^466^6
;;^UTILITY(U,$J,358.3,10732,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10732,1,3,0)
;;=3^Enteritis,Rotaviral
;;^UTILITY(U,$J,358.3,10732,1,4,0)
;;=4^A08.0
;;^UTILITY(U,$J,358.3,10732,2)
;;=^5000052
;;^UTILITY(U,$J,358.3,10733,0)
;;=A08.11^^45^466^1
;;^UTILITY(U,$J,358.3,10733,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10733,1,3,0)
;;=3^Acute Gastroenteropathy d/t Norwalk Agent
;;^UTILITY(U,$J,358.3,10733,1,4,0)
;;=4^A08.11
;;^UTILITY(U,$J,358.3,10733,2)
;;=^5000053
;;^UTILITY(U,$J,358.3,10734,0)
;;=A08.19^^45^466^2
;;^UTILITY(U,$J,358.3,10734,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10734,1,3,0)
;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
;;^UTILITY(U,$J,358.3,10734,1,4,0)
;;=4^A08.19
;;^UTILITY(U,$J,358.3,10734,2)
;;=^5000054
;;^UTILITY(U,$J,358.3,10735,0)
;;=A08.2^^45^466^3
;;^UTILITY(U,$J,358.3,10735,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10735,1,3,0)
;;=3^Enteritis,Adenoviral
;;^UTILITY(U,$J,358.3,10735,1,4,0)
;;=4^A08.2
;;^UTILITY(U,$J,358.3,10735,2)
;;=^5000055
;;^UTILITY(U,$J,358.3,10736,0)
;;=A08.31^^45^466^5
;;^UTILITY(U,$J,358.3,10736,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10736,1,3,0)
;;=3^Enteritis,Calicivirus
;;^UTILITY(U,$J,358.3,10736,1,4,0)
;;=4^A08.31
;;^UTILITY(U,$J,358.3,10736,2)
;;=^5000056
;;^UTILITY(U,$J,358.3,10737,0)
;;=A08.32^^45^466^4
;;^UTILITY(U,$J,358.3,10737,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10737,1,3,0)
;;=3^Enteritis,Astrovirus
;;^UTILITY(U,$J,358.3,10737,1,4,0)
;;=4^A08.32
;;^UTILITY(U,$J,358.3,10737,2)
;;=^5000058
;;^UTILITY(U,$J,358.3,10738,0)
;;=A08.4^^45^466^8
;;^UTILITY(U,$J,358.3,10738,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10738,1,3,0)
;;=3^Viral Intestinal Infection,Unspec
;;^UTILITY(U,$J,358.3,10738,1,4,0)
;;=4^A08.4
;;^UTILITY(U,$J,358.3,10738,2)
;;=^5000059
;;^UTILITY(U,$J,358.3,10739,0)
;;=A08.8^^45^466^7
;;^UTILITY(U,$J,358.3,10739,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10739,1,3,0)
;;=3^Intestinal Infections,Oth Spec
;;^UTILITY(U,$J,358.3,10739,1,4,0)
;;=4^A08.8
;;^UTILITY(U,$J,358.3,10739,2)
;;=^5000060
;;^UTILITY(U,$J,358.3,10740,0)
;;=J68.0^^45^467^2
;;^UTILITY(U,$J,358.3,10740,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10740,1,3,0)
;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
;;^UTILITY(U,$J,358.3,10740,1,4,0)
;;=4^J68.0
;;^UTILITY(U,$J,358.3,10740,2)
;;=^5008281
;;^UTILITY(U,$J,358.3,10741,0)
;;=J69.1^^45^467^7
;;^UTILITY(U,$J,358.3,10741,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10741,1,3,0)
;;=3^Pneumonitis d/t Inhalation of Oils/Essences
;;^UTILITY(U,$J,358.3,10741,1,4,0)
;;=4^J69.1
;;^UTILITY(U,$J,358.3,10741,2)
;;=^95664
;;^UTILITY(U,$J,358.3,10742,0)
;;=J68.9^^45^467^9
;;^UTILITY(U,$J,358.3,10742,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10742,1,3,0)
;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
;;^UTILITY(U,$J,358.3,10742,1,4,0)
;;=4^J68.9
;;^UTILITY(U,$J,358.3,10742,2)
;;=^5008287
;;^UTILITY(U,$J,358.3,10743,0)
;;=J84.114^^45^467^1
;;^UTILITY(U,$J,358.3,10743,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10743,1,3,0)
;;=3^Acute Interstitial Pneumonitis
;;^UTILITY(U,$J,358.3,10743,1,4,0)
;;=4^J84.114
;;^UTILITY(U,$J,358.3,10743,2)
;;=^340536
;;^UTILITY(U,$J,358.3,10744,0)
;;=J84.89^^45^467^6
;;^UTILITY(U,$J,358.3,10744,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10744,1,3,0)
;;=3^Interstitial Pulmonary Diseases,Oth Spec
;;^UTILITY(U,$J,358.3,10744,1,4,0)
;;=4^J84.89
;;^UTILITY(U,$J,358.3,10744,2)
;;=^5008303
;;^UTILITY(U,$J,358.3,10745,0)
;;=J82.81^^45^467^5
;;^UTILITY(U,$J,358.3,10745,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10745,1,3,0)
;;=3^Eosinophilic Pneumonia,Chronic
;;^UTILITY(U,$J,358.3,10745,1,4,0)
;;=4^J82.81
;;^UTILITY(U,$J,358.3,10745,2)
;;=^24374
;;^UTILITY(U,$J,358.3,10746,0)
;;=J82.82^^45^467^4
;;^UTILITY(U,$J,358.3,10746,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10746,1,3,0)
;;=3^Eosinophilic Pneumonia,Acute
;;^UTILITY(U,$J,358.3,10746,1,4,0)
;;=4^J82.82
;;^UTILITY(U,$J,358.3,10746,2)
;;=^5159205
;;^UTILITY(U,$J,358.3,10747,0)
;;=J82.83^^45^467^3
;;^UTILITY(U,$J,358.3,10747,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10747,1,3,0)
;;=3^Eosinophilic Asthma
;;^UTILITY(U,$J,358.3,10747,1,4,0)
;;=4^J82.83
;;^UTILITY(U,$J,358.3,10747,2)
;;=^5159206
;;^UTILITY(U,$J,358.3,10748,0)
;;=J82.89^^45^467^8
;;^UTILITY(U,$J,358.3,10748,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10748,1,3,0)
;;=3^Pulmonary Eosinophilia,Other,NEC
;;^UTILITY(U,$J,358.3,10748,1,4,0)
;;=4^J82.89
;;^UTILITY(U,$J,358.3,10748,2)
;;=^5159207
;;^UTILITY(U,$J,358.3,10749,0)
;;=99367^^46^468^1^^^^1
;;^UTILITY(U,$J,358.3,10749,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10749,1,2,0)
;;=2^TEAM CONF W/O PT BY PHYS
;;^UTILITY(U,$J,358.3,10749,1,3,0)
;;=3^99367
;;^UTILITY(U,$J,358.3,10750,0)
;;=99368^^46^468^2^^^^1
;;^UTILITY(U,$J,358.3,10750,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10750,1,2,0)
;;=2^TEAM CONF W/O PT BY NONPHYS QHP,30 MIN
;;^UTILITY(U,$J,358.3,10750,1,3,0)
;;=3^99368
;;^UTILITY(U,$J,358.3,10751,0)
;;=99507^^46^469^22^^^^1
;;^UTILITY(U,$J,358.3,10751,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10751,1,2,0)
;;=2^HOME VISIT CATH MAINTAIN
;;^UTILITY(U,$J,358.3,10751,1,3,0)
;;=3^99507
;;^UTILITY(U,$J,358.3,10752,0)
;;=99509^^46^469^21^^^^1
;;^UTILITY(U,$J,358.3,10752,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10752,1,2,0)
;;=2^HOME VISIT ADL TRAINING
;;^UTILITY(U,$J,358.3,10752,1,3,0)
;;=3^99509
;;^UTILITY(U,$J,358.3,10753,0)
;;=99510^^46^469^24^^^^1
;;^UTILITY(U,$J,358.3,10753,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10753,1,2,0)
;;=2^HOME VISIT SING/M/FAM COUNS
;;^UTILITY(U,$J,358.3,10753,1,3,0)
;;=3^99510
;;^UTILITY(U,$J,358.3,10754,0)
;;=99511^^46^469^23^^^^1
;;^UTILITY(U,$J,358.3,10754,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10754,1,2,0)
;;=2^HOME VISIT FECAL/ENEMA MGMT
;;^UTILITY(U,$J,358.3,10754,1,3,0)
;;=3^99511
;;^UTILITY(U,$J,358.3,10755,0)
;;=99601^^46^469^20^^^^1
;;^UTILITY(U,$J,358.3,10755,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10755,1,2,0)
;;=2^HOME INFUSION/VISIT 2 HRS
;;^UTILITY(U,$J,358.3,10755,1,3,0)
;;=3^99601
;;^UTILITY(U,$J,358.3,10756,0)
;;=99602^^46^469^19^^^^1
;;^UTILITY(U,$J,358.3,10756,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10756,1,2,0)
;;=2^HOME INFUSION,EA ADDL HR
;;^UTILITY(U,$J,358.3,10756,1,3,0)
;;=3^99602
;;^UTILITY(U,$J,358.3,10757,0)
;;=10061^^46^469^25^^^^1
;;^UTILITY(U,$J,358.3,10757,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10757,1,2,0)
;;=2^I&D ABSCESS,COMPLICATED
;;^UTILITY(U,$J,358.3,10757,1,3,0)
;;=3^10061
;;^UTILITY(U,$J,358.3,10758,0)
;;=10060^^46^469^26^^^^1
;;^UTILITY(U,$J,358.3,10758,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10758,1,2,0)
;;=2^I&D ABSCESS,SIMPLE
;;^UTILITY(U,$J,358.3,10758,1,3,0)
;;=3^10060
;;^UTILITY(U,$J,358.3,10759,0)
;;=11000^^46^469^8^^^^1
;;^UTILITY(U,$J,358.3,10759,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10759,1,2,0)
;;=2^DEBRIDE ECZEMA/INFECTED SKIN UP TO 10%
;;^UTILITY(U,$J,358.3,10759,1,3,0)
;;=3^11000
;;^UTILITY(U,$J,358.3,10760,0)
;;=11042^^46^469^14^^^^1
;;^UTILITY(U,$J,358.3,10760,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10760,1,2,0)
;;=2^DEBRIDE TISSUE,FIRST 20 SQ CM
;;^UTILITY(U,$J,358.3,10760,1,3,0)
;;=3^11042
;;^UTILITY(U,$J,358.3,10761,0)
;;=11200^^46^469^34^^^^1
;;^UTILITY(U,$J,358.3,10761,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10761,1,2,0)
;;=2^REMOVAL OF SKIN TAGS UP TO 15
;;^UTILITY(U,$J,358.3,10761,1,3,0)
;;=3^11200
;;^UTILITY(U,$J,358.3,10762,0)
;;=11400^^46^469^16^^^^1
;;^UTILITY(U,$J,358.3,10762,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10762,1,2,0)
;;=2^EXCISION LESION TRUNK/ARM/LEG
;;^UTILITY(U,$J,358.3,10762,1,3,0)
;;=3^11400
;;^UTILITY(U,$J,358.3,10763,0)
;;=11420^^46^469^15^^^^1
;;^UTILITY(U,$J,358.3,10763,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10763,1,2,0)
;;=2^EXCISION LESION NECK/HAND/FOOT
;;^UTILITY(U,$J,358.3,10763,1,3,0)
;;=3^11420
;;^UTILITY(U,$J,358.3,10764,0)
;;=11055^^46^469^43^^^^1
;;^UTILITY(U,$J,358.3,10764,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10764,1,2,0)
;;=2^TRIM CORN/CALLOUS,SINGLE
;;^UTILITY(U,$J,358.3,10764,1,3,0)
;;=3^11055
;;^UTILITY(U,$J,358.3,10765,0)
;;=11056^^46^469^41^^^^1
;;^UTILITY(U,$J,358.3,10765,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10765,1,2,0)
;;=2^TRIM CORN/CALLOUS,2-4
;;^UTILITY(U,$J,358.3,10765,1,3,0)
;;=3^11056
;;^UTILITY(U,$J,358.3,10766,0)
;;=11057^^46^469^42^^^^1
;;^UTILITY(U,$J,358.3,10766,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10766,1,2,0)
;;=2^TRIM CORN/CALLOUS,5 OR MORE
;;^UTILITY(U,$J,358.3,10766,1,3,0)
;;=3^11057
;;^UTILITY(U,$J,358.3,10767,0)
;;=12001^^46^469^40^^^^1
;;^UTILITY(U,$J,358.3,10767,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10767,1,2,0)
;;=2^SIMPLE REPAIR WND < 2.5cm,TRUNK/EXT
;;^UTILITY(U,$J,358.3,10767,1,3,0)
;;=3^12001
;;^UTILITY(U,$J,358.3,10768,0)
;;=12002^^46^469^38^^^^1
;;^UTILITY(U,$J,358.3,10768,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10768,1,2,0)
;;=2^SIMPLE REPAIR WND 2.6-7.5cm,TRUNK/EXT
;;^UTILITY(U,$J,358.3,10768,1,3,0)
;;=3^12002
;;^UTILITY(U,$J,358.3,10769,0)
;;=12011^^46^469^39^^^^1
;;^UTILITY(U,$J,358.3,10769,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10769,1,2,0)
;;=2^SIMPLE REPAIR WND < 2.5cm,FACE
;;^UTILITY(U,$J,358.3,10769,1,3,0)
;;=3^12011
;;^UTILITY(U,$J,358.3,10770,0)
;;=12021^^46^469^7^^^^1
;;^UTILITY(U,$J,358.3,10770,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10770,1,2,0)
;;=2^CLOSURE OF SPLIT WND W/ PACKING
;;^UTILITY(U,$J,358.3,10770,1,3,0)
;;=3^12021
;;^UTILITY(U,$J,358.3,10771,0)
;;=16000^^46^469^1^^^^1
;;^UTILITY(U,$J,358.3,10771,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10771,1,2,0)
;;=2^BURNS,1st DEGREE,INIT TX
;;^UTILITY(U,$J,358.3,10771,1,3,0)
;;=3^16000
;;^UTILITY(U,$J,358.3,10772,0)
;;=16020^^46^469^4^^^^1
;;^UTILITY(U,$J,358.3,10772,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10772,1,2,0)
;;=2^BURNS,SMALL < 5%
;;^UTILITY(U,$J,358.3,10772,1,3,0)
;;=3^16020
;;^UTILITY(U,$J,358.3,10773,0)
;;=16030^^46^469^2^^^^1
;;^UTILITY(U,$J,358.3,10773,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10773,1,2,0)
;;=2^BURNS,LARGE,1 EXT />10%
;;^UTILITY(U,$J,358.3,10773,1,3,0)
;;=3^16030
;;^UTILITY(U,$J,358.3,10774,0)
;;=16025^^46^469^3^^^^1
;;^UTILITY(U,$J,358.3,10774,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10774,1,2,0)
;;=2^BURNS,MEDIUM,5-10%
;;^UTILITY(U,$J,358.3,10774,1,3,0)
;;=3^16025
;;^UTILITY(U,$J,358.3,10775,0)
;;=17250^^46^469^5^^^^1
;;^UTILITY(U,$J,358.3,10775,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10775,1,2,0)
;;=2^CHEMICAL CAUTERY
;;^UTILITY(U,$J,358.3,10775,1,3,0)
;;=3^17250
;;^UTILITY(U,$J,358.3,10776,0)
;;=20550^^46^469^28^^^^1
;;^UTILITY(U,$J,358.3,10776,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10776,1,2,0)
;;=2^INJ TENDON/LIGAMENT/CYST
;;^UTILITY(U,$J,358.3,10776,1,3,0)
;;=3^20550
;;^UTILITY(U,$J,358.3,10777,0)
;;=20551^^46^469^27^^^^1
;;^UTILITY(U,$J,358.3,10777,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10777,1,2,0)
;;=2^INJ TENDON ORIGIN/INSERTION
;;^UTILITY(U,$J,358.3,10777,1,3,0)
;;=3^20551
;;^UTILITY(U,$J,358.3,10778,0)
;;=20552^^46^469^29^^^^1
;;^UTILITY(U,$J,358.3,10778,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10778,1,2,0)
;;=2^INJ TRIGGER POINT 1-2 MUSCLE
;;^UTILITY(U,$J,358.3,10778,1,3,0)
;;=3^20552
;;^UTILITY(U,$J,358.3,10779,0)
;;=36410^^46^469^32^^^^1
;;^UTILITY(U,$J,358.3,10779,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10779,1,2,0)
;;=2^NON ROUTINE BLOOD DRAW
;;^UTILITY(U,$J,358.3,10779,1,3,0)
;;=3^36410
;;^UTILITY(U,$J,358.3,10780,0)
;;=81002^^46^469^45^^^^1
;;^UTILITY(U,$J,358.3,10780,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10780,1,2,0)
;;=2^URINALYSIS NONAUTO W/O SCOPE
;;^UTILITY(U,$J,358.3,10780,1,3,0)
;;=3^81002
;;^UTILITY(U,$J,358.3,10781,0)
;;=82948^^46^469^33^^^^1
;;^UTILITY(U,$J,358.3,10781,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10781,1,2,0)
;;=2^REAGENT STRIP/BLOOD GLUCOSE
;;^UTILITY(U,$J,358.3,10781,1,3,0)
;;=3^82948
;;^UTILITY(U,$J,358.3,10782,0)
;;=97597^^46^469^12^^^^1
;;^UTILITY(U,$J,358.3,10782,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10782,1,2,0)
;;=2^DEBRIDE OPEN WND 20cm/<
;;^UTILITY(U,$J,358.3,10782,1,3,0)
;;=3^97597
;;^UTILITY(U,$J,358.3,10783,0)
;;=97598^^46^469^13^^^^1
;;^UTILITY(U,$J,358.3,10783,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10783,1,2,0)
;;=2^DEBRIDE OPEN WND EA ADDL 20cm
;;^UTILITY(U,$J,358.3,10783,1,3,0)
;;=3^97598
;;^UTILITY(U,$J,358.3,10784,0)
;;=12020^^46^469^6^^^^1
;;^UTILITY(U,$J,358.3,10784,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10784,1,2,0)
;;=2^CLOSURE OF SPLIT WND
;;^UTILITY(U,$J,358.3,10784,1,3,0)
;;=3^12020
;;^UTILITY(U,$J,358.3,10785,0)
;;=97602^^46^469^11^^^^1
;;^UTILITY(U,$J,358.3,10785,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10785,1,2,0)
;;=2^DEBRIDE NON-SELECTIVE WND
;;^UTILITY(U,$J,358.3,10785,1,3,0)
;;=3^97602
;;^UTILITY(U,$J,358.3,10786,0)
;;=97605^^46^469^30^^^^1
;;^UTILITY(U,$J,358.3,10786,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10786,1,2,0)
;;=2^NEG WND THERAPY < 50 sq cm (VACUUM)
;;^UTILITY(U,$J,358.3,10786,1,3,0)
;;=3^97605
;;^UTILITY(U,$J,358.3,10787,0)
;;=97606^^46^469^31^^^^1
;;^UTILITY(U,$J,358.3,10787,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10787,1,2,0)
;;=2^NEG WND THERAPY > 50 sq cm (VACUUM)
;;^UTILITY(U,$J,358.3,10787,1,3,0)
;;=3^97606
;;^UTILITY(U,$J,358.3,10788,0)
;;=12013^^46^469^37^^^^1
;;^UTILITY(U,$J,358.3,10788,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10788,1,2,0)
;;=2^SIMPLE REPAIR WND 2.6-5.0cm,FACE
;;^UTILITY(U,$J,358.3,10788,1,3,0)
;;=3^12013
;;^UTILITY(U,$J,358.3,10789,0)
;;=11720^^46^469^9^^^^1
;;^UTILITY(U,$J,358.3,10789,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10789,1,2,0)
;;=2^DEBRIDE NAILS ANY METHOD;1-5 NAILS
;;^UTILITY(U,$J,358.3,10789,1,3,0)
;;=3^11720
;;^UTILITY(U,$J,358.3,10790,0)
;;=11721^^46^469^10^^^^1
;;^UTILITY(U,$J,358.3,10790,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10790,1,2,0)
;;=2^DEBRIDE NAILS ANY METHOD;6 OR MORE NAILS
;;^UTILITY(U,$J,358.3,10790,1,3,0)
;;=3^11721
;;^UTILITY(U,$J,358.3,10791,0)
;;=69209^^46^469^36^^^^1
;;^UTILITY(U,$J,358.3,10791,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10791,1,2,0)
;;=2^REMOVE IMPACTED CERUMEN,IRRIGATION,UNI
;;^UTILITY(U,$J,358.3,10791,1,3,0)
;;=3^69209
;;^UTILITY(U,$J,358.3,10792,0)
;;=69210^^46^469^35^^^^1
;;^UTILITY(U,$J,358.3,10792,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10792,1,2,0)
;;=2^REMOVE IMPACTED CERUMEN,INSTRUMENT,UNI
;;^UTILITY(U,$J,358.3,10792,1,3,0)
;;=3^69210
;;^UTILITY(U,$J,358.3,10793,0)
;;=11719^^46^469^44^^^^1
;;^UTILITY(U,$J,358.3,10793,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10793,1,2,0)
;;=2^TRIM NONDYSTROPHIC NAILS
;;^UTILITY(U,$J,358.3,10793,1,3,0)
;;=3^11719
;;^UTILITY(U,$J,358.3,10794,0)
;;=10021^^46^469^17^^^^1
;;^UTILITY(U,$J,358.3,10794,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10794,1,2,0)
;;=2^FNA w/o Imaging Guidance,1st Lesion
;;^UTILITY(U,$J,358.3,10794,1,3,0)
;;=3^10021
;;^UTILITY(U,$J,358.3,10795,0)
;;=10004^^46^469^18^^^^1
;;^UTILITY(U,$J,358.3,10795,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10795,1,2,0)
;;=2^FNA w/o Imaging Guidance,Ea Addl Lesion
;;^UTILITY(U,$J,358.3,10795,1,3,0)
;;=3^10004
;;^UTILITY(U,$J,358.3,10796,0)
;;=G0109^^46^470^1^^^^1
;;^UTILITY(U,$J,358.3,10796,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10796,1,2,0)
;;=2^DIAB MGMT TRN,GRP PER 30MIN
;;^UTILITY(U,$J,358.3,10796,1,3,0)
;;=3^G0109
;;^UTILITY(U,$J,358.3,10797,0)
;;=98960^^46^470^3^^^^1
;;^UTILITY(U,$J,358.3,10797,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10797,1,2,0)
;;=2^SELF-MGMT EDUC & TRAIN 1 PT
;;^UTILITY(U,$J,358.3,10797,1,3,0)
;;=3^98960
;;^UTILITY(U,$J,358.3,10798,0)
;;=G0108^^46^470^2^^^^1
;;^UTILITY(U,$J,358.3,10798,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10798,1,2,0)
;;=2^DIAB MGMT TRN,IND PER 30MIN
;;^UTILITY(U,$J,358.3,10798,1,3,0)
;;=3^G0108
;;^UTILITY(U,$J,358.3,10799,0)
;;=98961^^46^470^4^^^^1
;;^UTILITY(U,$J,358.3,10799,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10799,1,2,0)
;;=2^SELF-MGMT EDUC & TRAIN 2-4 PTS
;;^UTILITY(U,$J,358.3,10799,1,3,0)
;;=3^98961
;;^UTILITY(U,$J,358.3,10800,0)
;;=98962^^46^470^5^^^^1
;;^UTILITY(U,$J,358.3,10800,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10800,1,2,0)
;;=2^SELF-MGMT EDUC & TRAIN 5-8 PTS
;;^UTILITY(U,$J,358.3,10800,1,3,0)
;;=3^98962
;;^UTILITY(U,$J,358.3,10801,0)
;;=90707^^46^471^20^^^^1
;;^UTILITY(U,$J,358.3,10801,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10801,1,2,0)
;;=2^MMR VACCINE
;;^UTILITY(U,$J,358.3,10801,1,3,0)
;;=3^90707
;;^UTILITY(U,$J,358.3,10802,0)
;;=90714^^46^471^26^^^^1
;;^UTILITY(U,$J,358.3,10802,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,10802,1,2,0)
;;=2^TD VACCINE
;;^UTILITY(U,$J,358.3,10802,1,3,0)
;;=3^90714
;;^UTILITY(U,$J,358.3,10803,0)
;;=90732^^46^471^23^^^^1
;;^UTILITY(U,$J,358.3,10803,1,0)
;;=^358.31IA^3^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI04G 19755 printed Apr 09, 2024@21:18:35 Page 2
IBDEI04G ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,10725,1,4,0)
+2 ;;=4^N28.84
+3 ;;^UTILITY(U,$J,358.3,10725,2)
+4 ;;=^5015628
+5 ;;^UTILITY(U,$J,358.3,10726,0)
+6 ;;=N28.85^^45^465^8
+7 ;;^UTILITY(U,$J,358.3,10726,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,10726,1,3,0)
+10 ;;=3^Pyeloureteritis Cystica
+11 ;;^UTILITY(U,$J,358.3,10726,1,4,0)
+12 ;;=4^N28.85
+13 ;;^UTILITY(U,$J,358.3,10726,2)
+14 ;;=^270372
+15 ;;^UTILITY(U,$J,358.3,10727,0)
+16 ;;=N15.1^^45^465^9
+17 ;;^UTILITY(U,$J,358.3,10727,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,10727,1,3,0)
+20 ;;=3^Renal & Perinephric Abscess
+21 ;;^UTILITY(U,$J,358.3,10727,1,4,0)
+22 ;;=4^N15.1
+23 ;;^UTILITY(U,$J,358.3,10727,2)
+24 ;;=^270371
+25 ;;^UTILITY(U,$J,358.3,10728,0)
+26 ;;=N16.^^45^465^10
+27 ;;^UTILITY(U,$J,358.3,10728,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,10728,1,3,0)
+30 ;;=3^Tubulo-Interstitial D/O in Diseases Classigied Elsewhere
+31 ;;^UTILITY(U,$J,358.3,10728,1,4,0)
+32 ;;=4^N16.
+33 ;;^UTILITY(U,$J,358.3,10728,2)
+34 ;;=^5015597
+35 ;;^UTILITY(U,$J,358.3,10729,0)
+36 ;;=N15.9^^45^465^11
+37 ;;^UTILITY(U,$J,358.3,10729,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,10729,1,3,0)
+40 ;;=3^Tubulo-Interstitial Disease,Unspec
+41 ;;^UTILITY(U,$J,358.3,10729,1,4,0)
+42 ;;=4^N15.9
+43 ;;^UTILITY(U,$J,358.3,10729,2)
+44 ;;=^5015596
+45 ;;^UTILITY(U,$J,358.3,10730,0)
+46 ;;=N12.^^45^465^12
+47 ;;^UTILITY(U,$J,358.3,10730,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,10730,1,3,0)
+50 ;;=3^Tubulo-Interstitial Nephritis,Not Spec as Acute or Chronic
+51 ;;^UTILITY(U,$J,358.3,10730,1,4,0)
+52 ;;=4^N12.
+53 ;;^UTILITY(U,$J,358.3,10730,2)
+54 ;;=^5015575
+55 ;;^UTILITY(U,$J,358.3,10731,0)
+56 ;;=N28.86^^45^465^14
+57 ;;^UTILITY(U,$J,358.3,10731,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,10731,1,3,0)
+60 ;;=3^Ureteritis Cystica
+61 ;;^UTILITY(U,$J,358.3,10731,1,4,0)
+62 ;;=4^N28.86
+63 ;;^UTILITY(U,$J,358.3,10731,2)
+64 ;;=^5015629
+65 ;;^UTILITY(U,$J,358.3,10732,0)
+66 ;;=A08.0^^45^466^6
+67 ;;^UTILITY(U,$J,358.3,10732,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,10732,1,3,0)
+70 ;;=3^Enteritis,Rotaviral
+71 ;;^UTILITY(U,$J,358.3,10732,1,4,0)
+72 ;;=4^A08.0
+73 ;;^UTILITY(U,$J,358.3,10732,2)
+74 ;;=^5000052
+75 ;;^UTILITY(U,$J,358.3,10733,0)
+76 ;;=A08.11^^45^466^1
+77 ;;^UTILITY(U,$J,358.3,10733,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,10733,1,3,0)
+80 ;;=3^Acute Gastroenteropathy d/t Norwalk Agent
+81 ;;^UTILITY(U,$J,358.3,10733,1,4,0)
+82 ;;=4^A08.11
+83 ;;^UTILITY(U,$J,358.3,10733,2)
+84 ;;=^5000053
+85 ;;^UTILITY(U,$J,358.3,10734,0)
+86 ;;=A08.19^^45^466^2
+87 ;;^UTILITY(U,$J,358.3,10734,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,10734,1,3,0)
+90 ;;=3^Acute Gastroenteropathy d/t Oth Small Round Viruses
+91 ;;^UTILITY(U,$J,358.3,10734,1,4,0)
+92 ;;=4^A08.19
+93 ;;^UTILITY(U,$J,358.3,10734,2)
+94 ;;=^5000054
+95 ;;^UTILITY(U,$J,358.3,10735,0)
+96 ;;=A08.2^^45^466^3
+97 ;;^UTILITY(U,$J,358.3,10735,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,10735,1,3,0)
+100 ;;=3^Enteritis,Adenoviral
+101 ;;^UTILITY(U,$J,358.3,10735,1,4,0)
+102 ;;=4^A08.2
+103 ;;^UTILITY(U,$J,358.3,10735,2)
+104 ;;=^5000055
+105 ;;^UTILITY(U,$J,358.3,10736,0)
+106 ;;=A08.31^^45^466^5
+107 ;;^UTILITY(U,$J,358.3,10736,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,10736,1,3,0)
+110 ;;=3^Enteritis,Calicivirus
+111 ;;^UTILITY(U,$J,358.3,10736,1,4,0)
+112 ;;=4^A08.31
+113 ;;^UTILITY(U,$J,358.3,10736,2)
+114 ;;=^5000056
+115 ;;^UTILITY(U,$J,358.3,10737,0)
+116 ;;=A08.32^^45^466^4
+117 ;;^UTILITY(U,$J,358.3,10737,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,10737,1,3,0)
+120 ;;=3^Enteritis,Astrovirus
+121 ;;^UTILITY(U,$J,358.3,10737,1,4,0)
+122 ;;=4^A08.32
+123 ;;^UTILITY(U,$J,358.3,10737,2)
+124 ;;=^5000058
+125 ;;^UTILITY(U,$J,358.3,10738,0)
+126 ;;=A08.4^^45^466^8
+127 ;;^UTILITY(U,$J,358.3,10738,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,10738,1,3,0)
+130 ;;=3^Viral Intestinal Infection,Unspec
+131 ;;^UTILITY(U,$J,358.3,10738,1,4,0)
+132 ;;=4^A08.4
+133 ;;^UTILITY(U,$J,358.3,10738,2)
+134 ;;=^5000059
+135 ;;^UTILITY(U,$J,358.3,10739,0)
+136 ;;=A08.8^^45^466^7
+137 ;;^UTILITY(U,$J,358.3,10739,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,10739,1,3,0)
+140 ;;=3^Intestinal Infections,Oth Spec
+141 ;;^UTILITY(U,$J,358.3,10739,1,4,0)
+142 ;;=4^A08.8
+143 ;;^UTILITY(U,$J,358.3,10739,2)
+144 ;;=^5000060
+145 ;;^UTILITY(U,$J,358.3,10740,0)
+146 ;;=J68.0^^45^467^2
+147 ;;^UTILITY(U,$J,358.3,10740,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,10740,1,3,0)
+150 ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
+151 ;;^UTILITY(U,$J,358.3,10740,1,4,0)
+152 ;;=4^J68.0
+153 ;;^UTILITY(U,$J,358.3,10740,2)
+154 ;;=^5008281
+155 ;;^UTILITY(U,$J,358.3,10741,0)
+156 ;;=J69.1^^45^467^7
+157 ;;^UTILITY(U,$J,358.3,10741,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,10741,1,3,0)
+160 ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
+161 ;;^UTILITY(U,$J,358.3,10741,1,4,0)
+162 ;;=4^J69.1
+163 ;;^UTILITY(U,$J,358.3,10741,2)
+164 ;;=^95664
+165 ;;^UTILITY(U,$J,358.3,10742,0)
+166 ;;=J68.9^^45^467^9
+167 ;;^UTILITY(U,$J,358.3,10742,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,10742,1,3,0)
+170 ;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
+171 ;;^UTILITY(U,$J,358.3,10742,1,4,0)
+172 ;;=4^J68.9
+173 ;;^UTILITY(U,$J,358.3,10742,2)
+174 ;;=^5008287
+175 ;;^UTILITY(U,$J,358.3,10743,0)
+176 ;;=J84.114^^45^467^1
+177 ;;^UTILITY(U,$J,358.3,10743,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,10743,1,3,0)
+180 ;;=3^Acute Interstitial Pneumonitis
+181 ;;^UTILITY(U,$J,358.3,10743,1,4,0)
+182 ;;=4^J84.114
+183 ;;^UTILITY(U,$J,358.3,10743,2)
+184 ;;=^340536
+185 ;;^UTILITY(U,$J,358.3,10744,0)
+186 ;;=J84.89^^45^467^6
+187 ;;^UTILITY(U,$J,358.3,10744,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,10744,1,3,0)
+190 ;;=3^Interstitial Pulmonary Diseases,Oth Spec
+191 ;;^UTILITY(U,$J,358.3,10744,1,4,0)
+192 ;;=4^J84.89
+193 ;;^UTILITY(U,$J,358.3,10744,2)
+194 ;;=^5008303
+195 ;;^UTILITY(U,$J,358.3,10745,0)
+196 ;;=J82.81^^45^467^5
+197 ;;^UTILITY(U,$J,358.3,10745,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,10745,1,3,0)
+200 ;;=3^Eosinophilic Pneumonia,Chronic
+201 ;;^UTILITY(U,$J,358.3,10745,1,4,0)
+202 ;;=4^J82.81
+203 ;;^UTILITY(U,$J,358.3,10745,2)
+204 ;;=^24374
+205 ;;^UTILITY(U,$J,358.3,10746,0)
+206 ;;=J82.82^^45^467^4
+207 ;;^UTILITY(U,$J,358.3,10746,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,10746,1,3,0)
+210 ;;=3^Eosinophilic Pneumonia,Acute
+211 ;;^UTILITY(U,$J,358.3,10746,1,4,0)
+212 ;;=4^J82.82
+213 ;;^UTILITY(U,$J,358.3,10746,2)
+214 ;;=^5159205
+215 ;;^UTILITY(U,$J,358.3,10747,0)
+216 ;;=J82.83^^45^467^3
+217 ;;^UTILITY(U,$J,358.3,10747,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,10747,1,3,0)
+220 ;;=3^Eosinophilic Asthma
+221 ;;^UTILITY(U,$J,358.3,10747,1,4,0)
+222 ;;=4^J82.83
+223 ;;^UTILITY(U,$J,358.3,10747,2)
+224 ;;=^5159206
+225 ;;^UTILITY(U,$J,358.3,10748,0)
+226 ;;=J82.89^^45^467^8
+227 ;;^UTILITY(U,$J,358.3,10748,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,10748,1,3,0)
+230 ;;=3^Pulmonary Eosinophilia,Other,NEC
+231 ;;^UTILITY(U,$J,358.3,10748,1,4,0)
+232 ;;=4^J82.89
+233 ;;^UTILITY(U,$J,358.3,10748,2)
+234 ;;=^5159207
+235 ;;^UTILITY(U,$J,358.3,10749,0)
+236 ;;=99367^^46^468^1^^^^1
+237 ;;^UTILITY(U,$J,358.3,10749,1,0)
+238 ;;=^358.31IA^3^2
+239 ;;^UTILITY(U,$J,358.3,10749,1,2,0)
+240 ;;=2^TEAM CONF W/O PT BY PHYS
+241 ;;^UTILITY(U,$J,358.3,10749,1,3,0)
+242 ;;=3^99367
+243 ;;^UTILITY(U,$J,358.3,10750,0)
+244 ;;=99368^^46^468^2^^^^1
+245 ;;^UTILITY(U,$J,358.3,10750,1,0)
+246 ;;=^358.31IA^3^2
+247 ;;^UTILITY(U,$J,358.3,10750,1,2,0)
+248 ;;=2^TEAM CONF W/O PT BY NONPHYS QHP,30 MIN
+249 ;;^UTILITY(U,$J,358.3,10750,1,3,0)
+250 ;;=3^99368
+251 ;;^UTILITY(U,$J,358.3,10751,0)
+252 ;;=99507^^46^469^22^^^^1
+253 ;;^UTILITY(U,$J,358.3,10751,1,0)
+254 ;;=^358.31IA^3^2
+255 ;;^UTILITY(U,$J,358.3,10751,1,2,0)
+256 ;;=2^HOME VISIT CATH MAINTAIN
+257 ;;^UTILITY(U,$J,358.3,10751,1,3,0)
+258 ;;=3^99507
+259 ;;^UTILITY(U,$J,358.3,10752,0)
+260 ;;=99509^^46^469^21^^^^1
+261 ;;^UTILITY(U,$J,358.3,10752,1,0)
+262 ;;=^358.31IA^3^2
+263 ;;^UTILITY(U,$J,358.3,10752,1,2,0)
+264 ;;=2^HOME VISIT ADL TRAINING
+265 ;;^UTILITY(U,$J,358.3,10752,1,3,0)
+266 ;;=3^99509
+267 ;;^UTILITY(U,$J,358.3,10753,0)
+268 ;;=99510^^46^469^24^^^^1
+269 ;;^UTILITY(U,$J,358.3,10753,1,0)
+270 ;;=^358.31IA^3^2
+271 ;;^UTILITY(U,$J,358.3,10753,1,2,0)
+272 ;;=2^HOME VISIT SING/M/FAM COUNS
+273 ;;^UTILITY(U,$J,358.3,10753,1,3,0)
+274 ;;=3^99510
+275 ;;^UTILITY(U,$J,358.3,10754,0)
+276 ;;=99511^^46^469^23^^^^1
+277 ;;^UTILITY(U,$J,358.3,10754,1,0)
+278 ;;=^358.31IA^3^2
+279 ;;^UTILITY(U,$J,358.3,10754,1,2,0)
+280 ;;=2^HOME VISIT FECAL/ENEMA MGMT
+281 ;;^UTILITY(U,$J,358.3,10754,1,3,0)
+282 ;;=3^99511
+283 ;;^UTILITY(U,$J,358.3,10755,0)
+284 ;;=99601^^46^469^20^^^^1
+285 ;;^UTILITY(U,$J,358.3,10755,1,0)
+286 ;;=^358.31IA^3^2
+287 ;;^UTILITY(U,$J,358.3,10755,1,2,0)
+288 ;;=2^HOME INFUSION/VISIT 2 HRS
+289 ;;^UTILITY(U,$J,358.3,10755,1,3,0)
+290 ;;=3^99601
+291 ;;^UTILITY(U,$J,358.3,10756,0)
+292 ;;=99602^^46^469^19^^^^1
+293 ;;^UTILITY(U,$J,358.3,10756,1,0)
+294 ;;=^358.31IA^3^2
+295 ;;^UTILITY(U,$J,358.3,10756,1,2,0)
+296 ;;=2^HOME INFUSION,EA ADDL HR
+297 ;;^UTILITY(U,$J,358.3,10756,1,3,0)
+298 ;;=3^99602
+299 ;;^UTILITY(U,$J,358.3,10757,0)
+300 ;;=10061^^46^469^25^^^^1
+301 ;;^UTILITY(U,$J,358.3,10757,1,0)
+302 ;;=^358.31IA^3^2
+303 ;;^UTILITY(U,$J,358.3,10757,1,2,0)
+304 ;;=2^I&D ABSCESS,COMPLICATED
+305 ;;^UTILITY(U,$J,358.3,10757,1,3,0)
+306 ;;=3^10061
+307 ;;^UTILITY(U,$J,358.3,10758,0)
+308 ;;=10060^^46^469^26^^^^1
+309 ;;^UTILITY(U,$J,358.3,10758,1,0)
+310 ;;=^358.31IA^3^2
+311 ;;^UTILITY(U,$J,358.3,10758,1,2,0)
+312 ;;=2^I&D ABSCESS,SIMPLE
+313 ;;^UTILITY(U,$J,358.3,10758,1,3,0)
+314 ;;=3^10060
+315 ;;^UTILITY(U,$J,358.3,10759,0)
+316 ;;=11000^^46^469^8^^^^1
+317 ;;^UTILITY(U,$J,358.3,10759,1,0)
+318 ;;=^358.31IA^3^2
+319 ;;^UTILITY(U,$J,358.3,10759,1,2,0)
+320 ;;=2^DEBRIDE ECZEMA/INFECTED SKIN UP TO 10%
+321 ;;^UTILITY(U,$J,358.3,10759,1,3,0)
+322 ;;=3^11000
+323 ;;^UTILITY(U,$J,358.3,10760,0)
+324 ;;=11042^^46^469^14^^^^1
+325 ;;^UTILITY(U,$J,358.3,10760,1,0)
+326 ;;=^358.31IA^3^2
+327 ;;^UTILITY(U,$J,358.3,10760,1,2,0)
+328 ;;=2^DEBRIDE TISSUE,FIRST 20 SQ CM
+329 ;;^UTILITY(U,$J,358.3,10760,1,3,0)
+330 ;;=3^11042
+331 ;;^UTILITY(U,$J,358.3,10761,0)
+332 ;;=11200^^46^469^34^^^^1
+333 ;;^UTILITY(U,$J,358.3,10761,1,0)
+334 ;;=^358.31IA^3^2
+335 ;;^UTILITY(U,$J,358.3,10761,1,2,0)
+336 ;;=2^REMOVAL OF SKIN TAGS UP TO 15
+337 ;;^UTILITY(U,$J,358.3,10761,1,3,0)
+338 ;;=3^11200
+339 ;;^UTILITY(U,$J,358.3,10762,0)
+340 ;;=11400^^46^469^16^^^^1
+341 ;;^UTILITY(U,$J,358.3,10762,1,0)
+342 ;;=^358.31IA^3^2
+343 ;;^UTILITY(U,$J,358.3,10762,1,2,0)
+344 ;;=2^EXCISION LESION TRUNK/ARM/LEG
+345 ;;^UTILITY(U,$J,358.3,10762,1,3,0)
+346 ;;=3^11400
+347 ;;^UTILITY(U,$J,358.3,10763,0)
+348 ;;=11420^^46^469^15^^^^1
+349 ;;^UTILITY(U,$J,358.3,10763,1,0)
+350 ;;=^358.31IA^3^2
+351 ;;^UTILITY(U,$J,358.3,10763,1,2,0)
+352 ;;=2^EXCISION LESION NECK/HAND/FOOT
+353 ;;^UTILITY(U,$J,358.3,10763,1,3,0)
+354 ;;=3^11420
+355 ;;^UTILITY(U,$J,358.3,10764,0)
+356 ;;=11055^^46^469^43^^^^1
+357 ;;^UTILITY(U,$J,358.3,10764,1,0)
+358 ;;=^358.31IA^3^2
+359 ;;^UTILITY(U,$J,358.3,10764,1,2,0)
+360 ;;=2^TRIM CORN/CALLOUS,SINGLE
+361 ;;^UTILITY(U,$J,358.3,10764,1,3,0)
+362 ;;=3^11055
+363 ;;^UTILITY(U,$J,358.3,10765,0)
+364 ;;=11056^^46^469^41^^^^1
+365 ;;^UTILITY(U,$J,358.3,10765,1,0)
+366 ;;=^358.31IA^3^2
+367 ;;^UTILITY(U,$J,358.3,10765,1,2,0)
+368 ;;=2^TRIM CORN/CALLOUS,2-4
+369 ;;^UTILITY(U,$J,358.3,10765,1,3,0)
+370 ;;=3^11056
+371 ;;^UTILITY(U,$J,358.3,10766,0)
+372 ;;=11057^^46^469^42^^^^1
+373 ;;^UTILITY(U,$J,358.3,10766,1,0)
+374 ;;=^358.31IA^3^2
+375 ;;^UTILITY(U,$J,358.3,10766,1,2,0)
+376 ;;=2^TRIM CORN/CALLOUS,5 OR MORE
+377 ;;^UTILITY(U,$J,358.3,10766,1,3,0)
+378 ;;=3^11057
+379 ;;^UTILITY(U,$J,358.3,10767,0)
+380 ;;=12001^^46^469^40^^^^1
+381 ;;^UTILITY(U,$J,358.3,10767,1,0)
+382 ;;=^358.31IA^3^2
+383 ;;^UTILITY(U,$J,358.3,10767,1,2,0)
+384 ;;=2^SIMPLE REPAIR WND < 2.5cm,TRUNK/EXT
+385 ;;^UTILITY(U,$J,358.3,10767,1,3,0)
+386 ;;=3^12001
+387 ;;^UTILITY(U,$J,358.3,10768,0)
+388 ;;=12002^^46^469^38^^^^1
+389 ;;^UTILITY(U,$J,358.3,10768,1,0)
+390 ;;=^358.31IA^3^2
+391 ;;^UTILITY(U,$J,358.3,10768,1,2,0)
+392 ;;=2^SIMPLE REPAIR WND 2.6-7.5cm,TRUNK/EXT
+393 ;;^UTILITY(U,$J,358.3,10768,1,3,0)
+394 ;;=3^12002
+395 ;;^UTILITY(U,$J,358.3,10769,0)
+396 ;;=12011^^46^469^39^^^^1
+397 ;;^UTILITY(U,$J,358.3,10769,1,0)
+398 ;;=^358.31IA^3^2
+399 ;;^UTILITY(U,$J,358.3,10769,1,2,0)
+400 ;;=2^SIMPLE REPAIR WND < 2.5cm,FACE
+401 ;;^UTILITY(U,$J,358.3,10769,1,3,0)
+402 ;;=3^12011
+403 ;;^UTILITY(U,$J,358.3,10770,0)
+404 ;;=12021^^46^469^7^^^^1
+405 ;;^UTILITY(U,$J,358.3,10770,1,0)
+406 ;;=^358.31IA^3^2
+407 ;;^UTILITY(U,$J,358.3,10770,1,2,0)
+408 ;;=2^CLOSURE OF SPLIT WND W/ PACKING
+409 ;;^UTILITY(U,$J,358.3,10770,1,3,0)
+410 ;;=3^12021
+411 ;;^UTILITY(U,$J,358.3,10771,0)
+412 ;;=16000^^46^469^1^^^^1
+413 ;;^UTILITY(U,$J,358.3,10771,1,0)
+414 ;;=^358.31IA^3^2
+415 ;;^UTILITY(U,$J,358.3,10771,1,2,0)
+416 ;;=2^BURNS,1st DEGREE,INIT TX
+417 ;;^UTILITY(U,$J,358.3,10771,1,3,0)
+418 ;;=3^16000
+419 ;;^UTILITY(U,$J,358.3,10772,0)
+420 ;;=16020^^46^469^4^^^^1
+421 ;;^UTILITY(U,$J,358.3,10772,1,0)
+422 ;;=^358.31IA^3^2
+423 ;;^UTILITY(U,$J,358.3,10772,1,2,0)
+424 ;;=2^BURNS,SMALL < 5%
+425 ;;^UTILITY(U,$J,358.3,10772,1,3,0)
+426 ;;=3^16020
+427 ;;^UTILITY(U,$J,358.3,10773,0)
+428 ;;=16030^^46^469^2^^^^1
+429 ;;^UTILITY(U,$J,358.3,10773,1,0)
+430 ;;=^358.31IA^3^2
+431 ;;^UTILITY(U,$J,358.3,10773,1,2,0)
+432 ;;=2^BURNS,LARGE,1 EXT />10%
+433 ;;^UTILITY(U,$J,358.3,10773,1,3,0)
+434 ;;=3^16030
+435 ;;^UTILITY(U,$J,358.3,10774,0)
+436 ;;=16025^^46^469^3^^^^1
+437 ;;^UTILITY(U,$J,358.3,10774,1,0)
+438 ;;=^358.31IA^3^2
+439 ;;^UTILITY(U,$J,358.3,10774,1,2,0)
+440 ;;=2^BURNS,MEDIUM,5-10%
+441 ;;^UTILITY(U,$J,358.3,10774,1,3,0)
+442 ;;=3^16025
+443 ;;^UTILITY(U,$J,358.3,10775,0)
+444 ;;=17250^^46^469^5^^^^1
+445 ;;^UTILITY(U,$J,358.3,10775,1,0)
+446 ;;=^358.31IA^3^2
+447 ;;^UTILITY(U,$J,358.3,10775,1,2,0)
+448 ;;=2^CHEMICAL CAUTERY
+449 ;;^UTILITY(U,$J,358.3,10775,1,3,0)
+450 ;;=3^17250
+451 ;;^UTILITY(U,$J,358.3,10776,0)
+452 ;;=20550^^46^469^28^^^^1
+453 ;;^UTILITY(U,$J,358.3,10776,1,0)
+454 ;;=^358.31IA^3^2
+455 ;;^UTILITY(U,$J,358.3,10776,1,2,0)
+456 ;;=2^INJ TENDON/LIGAMENT/CYST
+457 ;;^UTILITY(U,$J,358.3,10776,1,3,0)
+458 ;;=3^20550
+459 ;;^UTILITY(U,$J,358.3,10777,0)
+460 ;;=20551^^46^469^27^^^^1
+461 ;;^UTILITY(U,$J,358.3,10777,1,0)
+462 ;;=^358.31IA^3^2
+463 ;;^UTILITY(U,$J,358.3,10777,1,2,0)
+464 ;;=2^INJ TENDON ORIGIN/INSERTION
+465 ;;^UTILITY(U,$J,358.3,10777,1,3,0)
+466 ;;=3^20551
+467 ;;^UTILITY(U,$J,358.3,10778,0)
+468 ;;=20552^^46^469^29^^^^1
+469 ;;^UTILITY(U,$J,358.3,10778,1,0)
+470 ;;=^358.31IA^3^2
+471 ;;^UTILITY(U,$J,358.3,10778,1,2,0)
+472 ;;=2^INJ TRIGGER POINT 1-2 MUSCLE
+473 ;;^UTILITY(U,$J,358.3,10778,1,3,0)
+474 ;;=3^20552
+475 ;;^UTILITY(U,$J,358.3,10779,0)
+476 ;;=36410^^46^469^32^^^^1
+477 ;;^UTILITY(U,$J,358.3,10779,1,0)
+478 ;;=^358.31IA^3^2
+479 ;;^UTILITY(U,$J,358.3,10779,1,2,0)
+480 ;;=2^NON ROUTINE BLOOD DRAW
+481 ;;^UTILITY(U,$J,358.3,10779,1,3,0)
+482 ;;=3^36410
+483 ;;^UTILITY(U,$J,358.3,10780,0)
+484 ;;=81002^^46^469^45^^^^1
+485 ;;^UTILITY(U,$J,358.3,10780,1,0)
+486 ;;=^358.31IA^3^2
+487 ;;^UTILITY(U,$J,358.3,10780,1,2,0)
+488 ;;=2^URINALYSIS NONAUTO W/O SCOPE
+489 ;;^UTILITY(U,$J,358.3,10780,1,3,0)
+490 ;;=3^81002
+491 ;;^UTILITY(U,$J,358.3,10781,0)
+492 ;;=82948^^46^469^33^^^^1
+493 ;;^UTILITY(U,$J,358.3,10781,1,0)
+494 ;;=^358.31IA^3^2
+495 ;;^UTILITY(U,$J,358.3,10781,1,2,0)
+496 ;;=2^REAGENT STRIP/BLOOD GLUCOSE
+497 ;;^UTILITY(U,$J,358.3,10781,1,3,0)
+498 ;;=3^82948
+499 ;;^UTILITY(U,$J,358.3,10782,0)
+500 ;;=97597^^46^469^12^^^^1
+501 ;;^UTILITY(U,$J,358.3,10782,1,0)
+502 ;;=^358.31IA^3^2
+503 ;;^UTILITY(U,$J,358.3,10782,1,2,0)
+504 ;;=2^DEBRIDE OPEN WND 20cm/<
+505 ;;^UTILITY(U,$J,358.3,10782,1,3,0)
+506 ;;=3^97597
+507 ;;^UTILITY(U,$J,358.3,10783,0)
+508 ;;=97598^^46^469^13^^^^1
+509 ;;^UTILITY(U,$J,358.3,10783,1,0)
+510 ;;=^358.31IA^3^2
+511 ;;^UTILITY(U,$J,358.3,10783,1,2,0)
+512 ;;=2^DEBRIDE OPEN WND EA ADDL 20cm
+513 ;;^UTILITY(U,$J,358.3,10783,1,3,0)
+514 ;;=3^97598
+515 ;;^UTILITY(U,$J,358.3,10784,0)
+516 ;;=12020^^46^469^6^^^^1
+517 ;;^UTILITY(U,$J,358.3,10784,1,0)
+518 ;;=^358.31IA^3^2
+519 ;;^UTILITY(U,$J,358.3,10784,1,2,0)
+520 ;;=2^CLOSURE OF SPLIT WND
+521 ;;^UTILITY(U,$J,358.3,10784,1,3,0)
+522 ;;=3^12020
+523 ;;^UTILITY(U,$J,358.3,10785,0)
+524 ;;=97602^^46^469^11^^^^1
+525 ;;^UTILITY(U,$J,358.3,10785,1,0)
+526 ;;=^358.31IA^3^2
+527 ;;^UTILITY(U,$J,358.3,10785,1,2,0)
+528 ;;=2^DEBRIDE NON-SELECTIVE WND
+529 ;;^UTILITY(U,$J,358.3,10785,1,3,0)
+530 ;;=3^97602
+531 ;;^UTILITY(U,$J,358.3,10786,0)
+532 ;;=97605^^46^469^30^^^^1
+533 ;;^UTILITY(U,$J,358.3,10786,1,0)
+534 ;;=^358.31IA^3^2
+535 ;;^UTILITY(U,$J,358.3,10786,1,2,0)
+536 ;;=2^NEG WND THERAPY < 50 sq cm (VACUUM)
+537 ;;^UTILITY(U,$J,358.3,10786,1,3,0)
+538 ;;=3^97605
+539 ;;^UTILITY(U,$J,358.3,10787,0)
+540 ;;=97606^^46^469^31^^^^1
+541 ;;^UTILITY(U,$J,358.3,10787,1,0)
+542 ;;=^358.31IA^3^2
+543 ;;^UTILITY(U,$J,358.3,10787,1,2,0)
+544 ;;=2^NEG WND THERAPY > 50 sq cm (VACUUM)
+545 ;;^UTILITY(U,$J,358.3,10787,1,3,0)
+546 ;;=3^97606
+547 ;;^UTILITY(U,$J,358.3,10788,0)
+548 ;;=12013^^46^469^37^^^^1
+549 ;;^UTILITY(U,$J,358.3,10788,1,0)
+550 ;;=^358.31IA^3^2
+551 ;;^UTILITY(U,$J,358.3,10788,1,2,0)
+552 ;;=2^SIMPLE REPAIR WND 2.6-5.0cm,FACE
+553 ;;^UTILITY(U,$J,358.3,10788,1,3,0)
+554 ;;=3^12013
+555 ;;^UTILITY(U,$J,358.3,10789,0)
+556 ;;=11720^^46^469^9^^^^1
+557 ;;^UTILITY(U,$J,358.3,10789,1,0)
+558 ;;=^358.31IA^3^2
+559 ;;^UTILITY(U,$J,358.3,10789,1,2,0)
+560 ;;=2^DEBRIDE NAILS ANY METHOD;1-5 NAILS
+561 ;;^UTILITY(U,$J,358.3,10789,1,3,0)
+562 ;;=3^11720
+563 ;;^UTILITY(U,$J,358.3,10790,0)
+564 ;;=11721^^46^469^10^^^^1
+565 ;;^UTILITY(U,$J,358.3,10790,1,0)
+566 ;;=^358.31IA^3^2
+567 ;;^UTILITY(U,$J,358.3,10790,1,2,0)
+568 ;;=2^DEBRIDE NAILS ANY METHOD;6 OR MORE NAILS
+569 ;;^UTILITY(U,$J,358.3,10790,1,3,0)
+570 ;;=3^11721
+571 ;;^UTILITY(U,$J,358.3,10791,0)
+572 ;;=69209^^46^469^36^^^^1
+573 ;;^UTILITY(U,$J,358.3,10791,1,0)
+574 ;;=^358.31IA^3^2
+575 ;;^UTILITY(U,$J,358.3,10791,1,2,0)
+576 ;;=2^REMOVE IMPACTED CERUMEN,IRRIGATION,UNI
+577 ;;^UTILITY(U,$J,358.3,10791,1,3,0)
+578 ;;=3^69209
+579 ;;^UTILITY(U,$J,358.3,10792,0)
+580 ;;=69210^^46^469^35^^^^1
+581 ;;^UTILITY(U,$J,358.3,10792,1,0)
+582 ;;=^358.31IA^3^2
+583 ;;^UTILITY(U,$J,358.3,10792,1,2,0)
+584 ;;=2^REMOVE IMPACTED CERUMEN,INSTRUMENT,UNI
+585 ;;^UTILITY(U,$J,358.3,10792,1,3,0)
+586 ;;=3^69210
+587 ;;^UTILITY(U,$J,358.3,10793,0)
+588 ;;=11719^^46^469^44^^^^1
+589 ;;^UTILITY(U,$J,358.3,10793,1,0)
+590 ;;=^358.31IA^3^2
+591 ;;^UTILITY(U,$J,358.3,10793,1,2,0)
+592 ;;=2^TRIM NONDYSTROPHIC NAILS
+593 ;;^UTILITY(U,$J,358.3,10793,1,3,0)
+594 ;;=3^11719
+595 ;;^UTILITY(U,$J,358.3,10794,0)
+596 ;;=10021^^46^469^17^^^^1
+597 ;;^UTILITY(U,$J,358.3,10794,1,0)
+598 ;;=^358.31IA^3^2
+599 ;;^UTILITY(U,$J,358.3,10794,1,2,0)
+600 ;;=2^FNA w/o Imaging Guidance,1st Lesion
+601 ;;^UTILITY(U,$J,358.3,10794,1,3,0)
+602 ;;=3^10021
+603 ;;^UTILITY(U,$J,358.3,10795,0)
+604 ;;=10004^^46^469^18^^^^1
+605 ;;^UTILITY(U,$J,358.3,10795,1,0)
+606 ;;=^358.31IA^3^2
+607 ;;^UTILITY(U,$J,358.3,10795,1,2,0)
+608 ;;=2^FNA w/o Imaging Guidance,Ea Addl Lesion
+609 ;;^UTILITY(U,$J,358.3,10795,1,3,0)
+610 ;;=3^10004
+611 ;;^UTILITY(U,$J,358.3,10796,0)
+612 ;;=G0109^^46^470^1^^^^1
+613 ;;^UTILITY(U,$J,358.3,10796,1,0)
+614 ;;=^358.31IA^3^2
+615 ;;^UTILITY(U,$J,358.3,10796,1,2,0)
+616 ;;=2^DIAB MGMT TRN,GRP PER 30MIN
+617 ;;^UTILITY(U,$J,358.3,10796,1,3,0)
+618 ;;=3^G0109
+619 ;;^UTILITY(U,$J,358.3,10797,0)
+620 ;;=98960^^46^470^3^^^^1
+621 ;;^UTILITY(U,$J,358.3,10797,1,0)
+622 ;;=^358.31IA^3^2
+623 ;;^UTILITY(U,$J,358.3,10797,1,2,0)
+624 ;;=2^SELF-MGMT EDUC & TRAIN 1 PT
+625 ;;^UTILITY(U,$J,358.3,10797,1,3,0)
+626 ;;=3^98960
+627 ;;^UTILITY(U,$J,358.3,10798,0)
+628 ;;=G0108^^46^470^2^^^^1
+629 ;;^UTILITY(U,$J,358.3,10798,1,0)
+630 ;;=^358.31IA^3^2
+631 ;;^UTILITY(U,$J,358.3,10798,1,2,0)
+632 ;;=2^DIAB MGMT TRN,IND PER 30MIN
+633 ;;^UTILITY(U,$J,358.3,10798,1,3,0)
+634 ;;=3^G0108
+635 ;;^UTILITY(U,$J,358.3,10799,0)
+636 ;;=98961^^46^470^4^^^^1
+637 ;;^UTILITY(U,$J,358.3,10799,1,0)
+638 ;;=^358.31IA^3^2
+639 ;;^UTILITY(U,$J,358.3,10799,1,2,0)
+640 ;;=2^SELF-MGMT EDUC & TRAIN 2-4 PTS
+641 ;;^UTILITY(U,$J,358.3,10799,1,3,0)
+642 ;;=3^98961
+643 ;;^UTILITY(U,$J,358.3,10800,0)
+644 ;;=98962^^46^470^5^^^^1
+645 ;;^UTILITY(U,$J,358.3,10800,1,0)
+646 ;;=^358.31IA^3^2
+647 ;;^UTILITY(U,$J,358.3,10800,1,2,0)
+648 ;;=2^SELF-MGMT EDUC & TRAIN 5-8 PTS
+649 ;;^UTILITY(U,$J,358.3,10800,1,3,0)
+650 ;;=3^98962
+651 ;;^UTILITY(U,$J,358.3,10801,0)
+652 ;;=90707^^46^471^20^^^^1
+653 ;;^UTILITY(U,$J,358.3,10801,1,0)
+654 ;;=^358.31IA^3^2
+655 ;;^UTILITY(U,$J,358.3,10801,1,2,0)
+656 ;;=2^MMR VACCINE
+657 ;;^UTILITY(U,$J,358.3,10801,1,3,0)
+658 ;;=3^90707
+659 ;;^UTILITY(U,$J,358.3,10802,0)
+660 ;;=90714^^46^471^26^^^^1
+661 ;;^UTILITY(U,$J,358.3,10802,1,0)
+662 ;;=^358.31IA^3^2
+663 ;;^UTILITY(U,$J,358.3,10802,1,2,0)
+664 ;;=2^TD VACCINE
+665 ;;^UTILITY(U,$J,358.3,10802,1,3,0)
+666 ;;=3^90714
+667 ;;^UTILITY(U,$J,358.3,10803,0)
+668 ;;=90732^^46^471^23^^^^1
+669 ;;^UTILITY(U,$J,358.3,10803,1,0)
+670 ;;=^358.31IA^3^2
