IBDEI04I ; ; 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,10886,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10886,1,1,0)
;;=1^96372
;;^UTILITY(U,$J,358.3,10886,1,2,0)
;;=2^Ther/Proph/Diag Inj,SC/IM
;;^UTILITY(U,$J,358.3,10887,0)
;;=99506^^47^492^1^^^^1
;;^UTILITY(U,$J,358.3,10887,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10887,1,1,0)
;;=1^99506
;;^UTILITY(U,$J,358.3,10887,1,2,0)
;;=2^Home Visit-IM Injection
;;^UTILITY(U,$J,358.3,10888,0)
;;=90658^^47^493^4^^^^1
;;^UTILITY(U,$J,358.3,10888,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10888,1,1,0)
;;=1^90658
;;^UTILITY(U,$J,358.3,10888,1,2,0)
;;=2^Flu Vacc Multi Dose Vials (AFLURIA)
;;^UTILITY(U,$J,358.3,10889,0)
;;=90732^^47^493^14^^^^1
;;^UTILITY(U,$J,358.3,10889,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10889,1,1,0)
;;=1^90732
;;^UTILITY(U,$J,358.3,10889,1,2,0)
;;=2^Pneumovax 23 (Pneumococcal Vaccine)
;;^UTILITY(U,$J,358.3,10890,0)
;;=90656^^47^493^6^^^^1
;;^UTILITY(U,$J,358.3,10890,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10890,1,1,0)
;;=1^90656
;;^UTILITY(U,$J,358.3,10890,1,2,0)
;;=2^Flu Vacc Sgle Dose Syr (Afluria)
;;^UTILITY(U,$J,358.3,10891,0)
;;=90662^^47^493^3^^^^1
;;^UTILITY(U,$J,358.3,10891,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10891,1,1,0)
;;=1^90662
;;^UTILITY(U,$J,358.3,10891,1,2,0)
;;=2^Flu Vacc High Dose Syr (Fluzone)
;;^UTILITY(U,$J,358.3,10892,0)
;;=90670^^47^493^15^^^^1
;;^UTILITY(U,$J,358.3,10892,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10892,1,1,0)
;;=1^90670
;;^UTILITY(U,$J,358.3,10892,1,2,0)
;;=2^Prevnar 13 (Pneumococcal Vaccine)
;;^UTILITY(U,$J,358.3,10893,0)
;;=90625^^47^493^1^^^^1
;;^UTILITY(U,$J,358.3,10893,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10893,1,1,0)
;;=1^90625
;;^UTILITY(U,$J,358.3,10893,1,2,0)
;;=2^Cholera Vacc,Oral
;;^UTILITY(U,$J,358.3,10894,0)
;;=90620^^47^493^11^^^^1
;;^UTILITY(U,$J,358.3,10894,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10894,1,1,0)
;;=1^90620
;;^UTILITY(U,$J,358.3,10894,1,2,0)
;;=2^Meningococcal Vacc,Protein/Out Mem IM
;;^UTILITY(U,$J,358.3,10895,0)
;;=90621^^47^493^10^^^^1
;;^UTILITY(U,$J,358.3,10895,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10895,1,1,0)
;;=1^90621
;;^UTILITY(U,$J,358.3,10895,1,2,0)
;;=2^Meningococcal Vacc,Lipoprotein IM
;;^UTILITY(U,$J,358.3,10896,0)
;;=90697^^47^493^2^^^^1
;;^UTILITY(U,$J,358.3,10896,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10896,1,1,0)
;;=1^90697
;;^UTILITY(U,$J,358.3,10896,1,2,0)
;;=2^DTAP-IPV-Hib-HebB Vacc IM
;;^UTILITY(U,$J,358.3,10897,0)
;;=90686^^47^493^7^^^^1
;;^UTILITY(U,$J,358.3,10897,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10897,1,1,0)
;;=1^90686
;;^UTILITY(U,$J,358.3,10897,1,2,0)
;;=2^Flu Vacc Sgle Dose Syr (FLUARIX)
;;^UTILITY(U,$J,358.3,10898,0)
;;=90674^^47^493^9^^^^1
;;^UTILITY(U,$J,358.3,10898,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10898,1,1,0)
;;=1^90674
;;^UTILITY(U,$J,358.3,10898,1,2,0)
;;=2^Flu Vaccine Lo Dose Syr (Flucelvax)
;;^UTILITY(U,$J,358.3,10899,0)
;;=90682^^47^493^5^^^^1
;;^UTILITY(U,$J,358.3,10899,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10899,1,1,0)
;;=1^90682
;;^UTILITY(U,$J,358.3,10899,1,2,0)
;;=2^Flu Vacc Sgle Dose (Flublok RIV4)
;;^UTILITY(U,$J,358.3,10900,0)
;;=90750^^47^493^16^^^^1
;;^UTILITY(U,$J,358.3,10900,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10900,1,1,0)
;;=1^90750
;;^UTILITY(U,$J,358.3,10900,1,2,0)
;;=2^Zoster (Shingles) Vaccine-IM
;;^UTILITY(U,$J,358.3,10901,0)
;;=90736^^47^493^17^^^^1
;;^UTILITY(U,$J,358.3,10901,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10901,1,1,0)
;;=1^90736
;;^UTILITY(U,$J,358.3,10901,1,2,0)
;;=2^Zoster (Shingles) Vaccine-SQ
;;^UTILITY(U,$J,358.3,10902,0)
;;=90653^^47^493^8^^^^1
;;^UTILITY(U,$J,358.3,10902,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10902,1,1,0)
;;=1^90653
;;^UTILITY(U,$J,358.3,10902,1,2,0)
;;=2^Flu Vacc Sgle Dose Syr (Fluad allV3)
;;^UTILITY(U,$J,358.3,10903,0)
;;=90671^^47^493^12^^^^1
;;^UTILITY(U,$J,358.3,10903,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10903,1,1,0)
;;=1^90671
;;^UTILITY(U,$J,358.3,10903,1,2,0)
;;=2^Pneumococcal Vaccine 15 Val,IM
;;^UTILITY(U,$J,358.3,10904,0)
;;=90677^^47^493^13^^^^1
;;^UTILITY(U,$J,358.3,10904,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10904,1,1,0)
;;=1^90677
;;^UTILITY(U,$J,358.3,10904,1,2,0)
;;=2^Pneumococcal Vaccine 20 Val,IM
;;^UTILITY(U,$J,358.3,10905,0)
;;=90471^^47^494^1^^^^1
;;^UTILITY(U,$J,358.3,10905,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10905,1,1,0)
;;=1^90471
;;^UTILITY(U,$J,358.3,10905,1,2,0)
;;=2^Admin of 1 Immunization
;;^UTILITY(U,$J,358.3,10906,0)
;;=90472^^47^494^2^^^^1
;;^UTILITY(U,$J,358.3,10906,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10906,1,1,0)
;;=1^90472
;;^UTILITY(U,$J,358.3,10906,1,2,0)
;;=2^Admin of Ea Addl Immunization
;;^UTILITY(U,$J,358.3,10907,0)
;;=94664^^47^495^1^^^^1
;;^UTILITY(U,$J,358.3,10907,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10907,1,1,0)
;;=1^94664
;;^UTILITY(U,$J,358.3,10907,1,2,0)
;;=2^Evaluate Pt Use of Inhaler
;;^UTILITY(U,$J,358.3,10908,0)
;;=36415^^47^496^2^^^^1
;;^UTILITY(U,$J,358.3,10908,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10908,1,1,0)
;;=1^36415
;;^UTILITY(U,$J,358.3,10908,1,2,0)
;;=2^Routine Venipuncture
;;^UTILITY(U,$J,358.3,10909,0)
;;=36416^^47^496^1^^^^1
;;^UTILITY(U,$J,358.3,10909,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10909,1,1,0)
;;=1^36416
;;^UTILITY(U,$J,358.3,10909,1,2,0)
;;=2^Finger/Heel/Ear Stick
;;^UTILITY(U,$J,358.3,10910,0)
;;=90887^^47^497^1^^^^1
;;^UTILITY(U,$J,358.3,10910,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10910,1,1,0)
;;=1^90887
;;^UTILITY(U,$J,358.3,10910,1,2,0)
;;=2^Consultation w/ Family
;;^UTILITY(U,$J,358.3,10911,0)
;;=99510^^47^497^2^^^^1
;;^UTILITY(U,$J,358.3,10911,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10911,1,1,0)
;;=1^99510
;;^UTILITY(U,$J,358.3,10911,1,2,0)
;;=2^Home Visit-Ind/Fam/Marriage Couns
;;^UTILITY(U,$J,358.3,10912,0)
;;=97602^^47^498^1^^^^1
;;^UTILITY(U,$J,358.3,10912,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10912,1,1,0)
;;=1^97602
;;^UTILITY(U,$J,358.3,10912,1,2,0)
;;=2^Wound(S) Care And Instruction
;;^UTILITY(U,$J,358.3,10913,0)
;;=51701^^47^499^1^^^^1
;;^UTILITY(U,$J,358.3,10913,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10913,1,1,0)
;;=1^51701
;;^UTILITY(U,$J,358.3,10913,1,2,0)
;;=2^Insert Bladder Catheter
;;^UTILITY(U,$J,358.3,10914,0)
;;=51702^^47^499^2^^^^1
;;^UTILITY(U,$J,358.3,10914,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10914,1,1,0)
;;=1^51702
;;^UTILITY(U,$J,358.3,10914,1,2,0)
;;=2^Insert Foley Catheter
;;^UTILITY(U,$J,358.3,10915,0)
;;=86580^^47^500^1^^^^1
;;^UTILITY(U,$J,358.3,10915,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10915,1,1,0)
;;=1^86580
;;^UTILITY(U,$J,358.3,10915,1,2,0)
;;=2^TB Intradermal Test
;;^UTILITY(U,$J,358.3,10916,0)
;;=99001^^47^501^1^^^^1
;;^UTILITY(U,$J,358.3,10916,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10916,1,1,0)
;;=1^99001
;;^UTILITY(U,$J,358.3,10916,1,2,0)
;;=2^Specimen Handling
;;^UTILITY(U,$J,358.3,10917,0)
;;=99366^^47^502^1^^^^1
;;^UTILITY(U,$J,358.3,10917,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10917,1,1,0)
;;=1^99366
;;^UTILITY(U,$J,358.3,10917,1,2,0)
;;=2^Team Conf w/ Pt By HC Pro,30+ Min
;;^UTILITY(U,$J,358.3,10918,0)
;;=99368^^47^502^2^^^^1
;;^UTILITY(U,$J,358.3,10918,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10918,1,1,0)
;;=1^99368
;;^UTILITY(U,$J,358.3,10918,1,2,0)
;;=2^Team Conf w/o Pt by Nonphys,30+ Min
;;^UTILITY(U,$J,358.3,10919,0)
;;=99503^^47^503^5^^^^1
;;^UTILITY(U,$J,358.3,10919,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10919,1,1,0)
;;=1^99503
;;^UTILITY(U,$J,358.3,10919,1,2,0)
;;=2^Home Visit-Respiratory Tx Care
;;^UTILITY(U,$J,358.3,10920,0)
;;=99504^^47^503^4^^^^1
;;^UTILITY(U,$J,358.3,10920,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10920,1,1,0)
;;=1^99504
;;^UTILITY(U,$J,358.3,10920,1,2,0)
;;=2^Home Visit-Mech Ventilator Care
;;^UTILITY(U,$J,358.3,10921,0)
;;=99507^^47^503^1^^^^1
;;^UTILITY(U,$J,358.3,10921,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10921,1,1,0)
;;=1^99507
;;^UTILITY(U,$J,358.3,10921,1,2,0)
;;=2^Home Visit-Cath Maintenance
;;^UTILITY(U,$J,358.3,10922,0)
;;=99511^^47^503^2^^^^1
;;^UTILITY(U,$J,358.3,10922,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10922,1,1,0)
;;=1^99511
;;^UTILITY(U,$J,358.3,10922,1,2,0)
;;=2^Home Visit-Fecal/Enema Mgmt
;;^UTILITY(U,$J,358.3,10923,0)
;;=99505^^47^503^6^^^^1
;;^UTILITY(U,$J,358.3,10923,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10923,1,1,0)
;;=1^99505
;;^UTILITY(U,$J,358.3,10923,1,2,0)
;;=2^Home Visit-Stoma Care
;;^UTILITY(U,$J,358.3,10924,0)
;;=99512^^47^503^3^^^^1
;;^UTILITY(U,$J,358.3,10924,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10924,1,1,0)
;;=1^99512
;;^UTILITY(U,$J,358.3,10924,1,2,0)
;;=2^Home Visit-Hemodialysis
;;^UTILITY(U,$J,358.3,10925,0)
;;=99601^^47^504^1^^^^1
;;^UTILITY(U,$J,358.3,10925,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10925,1,1,0)
;;=1^99601
;;^UTILITY(U,$J,358.3,10925,1,2,0)
;;=2^Home Infsn,Up to 2 hrs
;;^UTILITY(U,$J,358.3,10926,0)
;;=99602^^47^504^2^^^^1
;;^UTILITY(U,$J,358.3,10926,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10926,1,1,0)
;;=1^99602
;;^UTILITY(U,$J,358.3,10926,1,2,0)
;;=2^Home Infsn,Ea Addl Hr
;;^UTILITY(U,$J,358.3,10927,0)
;;=G0496^^47^505^1^^^^1
;;^UTILITY(U,$J,358.3,10927,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10927,1,1,0)
;;=1^G0496
;;^UTILITY(U,$J,358.3,10927,1,2,0)
;;=2^HHC ED/TRAIN BY LPN,EA 15 min
;;^UTILITY(U,$J,358.3,10928,0)
;;=G0495^^47^505^2^^^^1
;;^UTILITY(U,$J,358.3,10928,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10928,1,1,0)
;;=1^G0495
;;^UTILITY(U,$J,358.3,10928,1,2,0)
;;=2^HHC ED/TRAIN BY RN,EA 15 min
;;^UTILITY(U,$J,358.3,10929,0)
;;=G0494^^47^505^3^^^^1
;;^UTILITY(U,$J,358.3,10929,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10929,1,1,0)
;;=1^G0494
;;^UTILITY(U,$J,358.3,10929,1,2,0)
;;=2^HHC LPN OBS/ASSSESS EA 15 min
;;^UTILITY(U,$J,358.3,10930,0)
;;=G0162^^47^505^4^^^^1
;;^UTILITY(U,$J,358.3,10930,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10930,1,1,0)
;;=1^G0162
;;^UTILITY(U,$J,358.3,10930,1,2,0)
;;=2^HHC RN E&M PLAN SVS, 15 min
;;^UTILITY(U,$J,358.3,10931,0)
;;=G0493^^47^505^5^^^^1
;;^UTILITY(U,$J,358.3,10931,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10931,1,1,0)
;;=1^G0493
;;^UTILITY(U,$J,358.3,10931,1,2,0)
;;=2^HHC RN OBS/ASSESS EA 15 min
;;^UTILITY(U,$J,358.3,10932,0)
;;=G0300^^47^505^6^^^^1
;;^UTILITY(U,$J,358.3,10932,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10932,1,1,0)
;;=1^G0300
;;^UTILITY(U,$J,358.3,10932,1,2,0)
;;=2^HHC Svc LPN,Direct Skilled Svc,Ea 15 min
;;^UTILITY(U,$J,358.3,10933,0)
;;=G0299^^47^505^7^^^^1
;;^UTILITY(U,$J,358.3,10933,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,10933,1,1,0)
;;=1^G0299
;;^UTILITY(U,$J,358.3,10933,1,2,0)
;;=2^HHC Svc RN,Direct Skilled Svc,Ea 15 min
;;^UTILITY(U,$J,358.3,10934,0)
;;=L89.010^^48^506^78
;;^UTILITY(U,$J,358.3,10934,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10934,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Unstageable
;;^UTILITY(U,$J,358.3,10934,1,4,0)
;;=4^L89.010
;;^UTILITY(U,$J,358.3,10934,2)
;;=^5009337
;;^UTILITY(U,$J,358.3,10935,0)
;;=L89.011^^48^506^73
;;^UTILITY(U,$J,358.3,10935,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10935,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 1
;;^UTILITY(U,$J,358.3,10935,1,4,0)
;;=4^L89.011
;;^UTILITY(U,$J,358.3,10935,2)
;;=^5009338
;;^UTILITY(U,$J,358.3,10936,0)
;;=L89.012^^48^506^74
;;^UTILITY(U,$J,358.3,10936,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10936,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 2
;;^UTILITY(U,$J,358.3,10936,1,4,0)
;;=4^L89.012
;;^UTILITY(U,$J,358.3,10936,2)
;;=^5009339
;;^UTILITY(U,$J,358.3,10937,0)
;;=L89.013^^48^506^75
;;^UTILITY(U,$J,358.3,10937,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10937,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 3
;;^UTILITY(U,$J,358.3,10937,1,4,0)
;;=4^L89.013
;;^UTILITY(U,$J,358.3,10937,2)
;;=^5009340
;;^UTILITY(U,$J,358.3,10938,0)
;;=L89.014^^48^506^76
;;^UTILITY(U,$J,358.3,10938,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10938,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 4
;;^UTILITY(U,$J,358.3,10938,1,4,0)
;;=4^L89.014
;;^UTILITY(U,$J,358.3,10938,2)
;;=^5009341
;;^UTILITY(U,$J,358.3,10939,0)
;;=L89.019^^48^506^77
;;^UTILITY(U,$J,358.3,10939,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10939,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Unspec Stage
;;^UTILITY(U,$J,358.3,10939,1,4,0)
;;=4^L89.019
;;^UTILITY(U,$J,358.3,10939,2)
;;=^5133648
;;^UTILITY(U,$J,358.3,10940,0)
;;=L89.029^^48^506^29
;;^UTILITY(U,$J,358.3,10940,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10940,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Unspec Stage
;;^UTILITY(U,$J,358.3,10940,1,4,0)
;;=4^L89.029
;;^UTILITY(U,$J,358.3,10940,2)
;;=^5133649
;;^UTILITY(U,$J,358.3,10941,0)
;;=L89.020^^48^506^30
;;^UTILITY(U,$J,358.3,10941,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10941,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Unstageable
;;^UTILITY(U,$J,358.3,10941,1,4,0)
;;=4^L89.020
;;^UTILITY(U,$J,358.3,10941,2)
;;=^5009342
;;^UTILITY(U,$J,358.3,10942,0)
;;=L89.021^^48^506^25
;;^UTILITY(U,$J,358.3,10942,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10942,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 1
;;^UTILITY(U,$J,358.3,10942,1,4,0)
;;=4^L89.021
;;^UTILITY(U,$J,358.3,10942,2)
;;=^5009343
;;^UTILITY(U,$J,358.3,10943,0)
;;=L89.022^^48^506^26
;;^UTILITY(U,$J,358.3,10943,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10943,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 2
;;^UTILITY(U,$J,358.3,10943,1,4,0)
;;=4^L89.022
;;^UTILITY(U,$J,358.3,10943,2)
;;=^5009344
;;^UTILITY(U,$J,358.3,10944,0)
;;=L89.023^^48^506^27
;;^UTILITY(U,$J,358.3,10944,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10944,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 3
;;^UTILITY(U,$J,358.3,10944,1,4,0)
;;=4^L89.023
;;^UTILITY(U,$J,358.3,10944,2)
;;=^5009345
;;^UTILITY(U,$J,358.3,10945,0)
;;=L89.024^^48^506^28
;;^UTILITY(U,$J,358.3,10945,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10945,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 4
;;^UTILITY(U,$J,358.3,10945,1,4,0)
;;=4^L89.024
;;^UTILITY(U,$J,358.3,10945,2)
;;=^5009346
;;^UTILITY(U,$J,358.3,10946,0)
;;=L89.110^^48^506^102
;;^UTILITY(U,$J,358.3,10946,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10946,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Unstageable
;;^UTILITY(U,$J,358.3,10946,1,4,0)
;;=4^L89.110
;;^UTILITY(U,$J,358.3,10946,2)
;;=^5009352
;;^UTILITY(U,$J,358.3,10947,0)
;;=L89.111^^48^506^97
;;^UTILITY(U,$J,358.3,10947,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10947,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 1
;;^UTILITY(U,$J,358.3,10947,1,4,0)
;;=4^L89.111
;;^UTILITY(U,$J,358.3,10947,2)
;;=^5009353
;;^UTILITY(U,$J,358.3,10948,0)
;;=L89.112^^48^506^98
;;^UTILITY(U,$J,358.3,10948,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10948,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 2
;;^UTILITY(U,$J,358.3,10948,1,4,0)
;;=4^L89.112
;;^UTILITY(U,$J,358.3,10948,2)
;;=^5009354
;;^UTILITY(U,$J,358.3,10949,0)
;;=L89.113^^48^506^99
;;^UTILITY(U,$J,358.3,10949,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10949,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 3
;;^UTILITY(U,$J,358.3,10949,1,4,0)
;;=4^L89.113
;;^UTILITY(U,$J,358.3,10949,2)
;;=^5009355
;;^UTILITY(U,$J,358.3,10950,0)
;;=L89.114^^48^506^100
;;^UTILITY(U,$J,358.3,10950,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10950,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 4
;;^UTILITY(U,$J,358.3,10950,1,4,0)
;;=4^L89.114
;;^UTILITY(U,$J,358.3,10950,2)
;;=^5009356
;;^UTILITY(U,$J,358.3,10951,0)
;;=L89.119^^48^506^101
;;^UTILITY(U,$J,358.3,10951,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10951,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage Unspec
;;^UTILITY(U,$J,358.3,10951,1,4,0)
;;=4^L89.119
;;^UTILITY(U,$J,358.3,10951,2)
;;=^5009357
;;^UTILITY(U,$J,358.3,10952,0)
;;=L89.120^^48^506^54
;;^UTILITY(U,$J,358.3,10952,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10952,1,3,0)
;;=3^Pressure Ulcer Left Upper Back,Unstageable
;;^UTILITY(U,$J,358.3,10952,1,4,0)
;;=4^L89.120
;;^UTILITY(U,$J,358.3,10952,2)
;;=^5009358
;;^UTILITY(U,$J,358.3,10953,0)
;;=L89.121^^48^506^49
;;^UTILITY(U,$J,358.3,10953,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10953,1,3,0)
;;=3^Pressure Ulcer Left Upper Back,Stage 1
;;^UTILITY(U,$J,358.3,10953,1,4,0)
;;=4^L89.121
;;^UTILITY(U,$J,358.3,10953,2)
;;=^5009359
;;^UTILITY(U,$J,358.3,10954,0)
;;=L89.122^^48^506^50
;;^UTILITY(U,$J,358.3,10954,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10954,1,3,0)
;;=3^Pressure Ulcer Left Upper Back,Stage 2
;;^UTILITY(U,$J,358.3,10954,1,4,0)
;;=4^L89.122
;;^UTILITY(U,$J,358.3,10954,2)
;;=^5009360
;;^UTILITY(U,$J,358.3,10955,0)
;;=L89.123^^48^506^51
;;^UTILITY(U,$J,358.3,10955,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10955,1,3,0)
;;=3^Pressure Ulcer Left Upper Back,Stage 3
;;^UTILITY(U,$J,358.3,10955,1,4,0)
;;=4^L89.123
;;^UTILITY(U,$J,358.3,10955,2)
;;=^5009361
;;^UTILITY(U,$J,358.3,10956,0)
;;=L89.124^^48^506^52
;;^UTILITY(U,$J,358.3,10956,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10956,1,3,0)
;;=3^Pressure Ulcer Left Upper Back,Stage 4
;;^UTILITY(U,$J,358.3,10956,1,4,0)
;;=4^L89.124
;;^UTILITY(U,$J,358.3,10956,2)
;;=^5009362
;;^UTILITY(U,$J,358.3,10957,0)
;;=L89.129^^48^506^53
;;^UTILITY(U,$J,358.3,10957,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10957,1,3,0)
;;=3^Pressure Ulcer Left Upper Back,Stage Unspec
;;^UTILITY(U,$J,358.3,10957,1,4,0)
;;=4^L89.129
;;^UTILITY(U,$J,358.3,10957,2)
;;=^5133652
;;^UTILITY(U,$J,358.3,10958,0)
;;=L89.130^^48^506^96
;;^UTILITY(U,$J,358.3,10958,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10958,1,3,0)
;;=3^Pressure Ulcer Right Lower Back,Unstageable
;;^UTILITY(U,$J,358.3,10958,1,4,0)
;;=4^L89.130
;;^UTILITY(U,$J,358.3,10958,2)
;;=^5009363
;;^UTILITY(U,$J,358.3,10959,0)
;;=L89.131^^48^506^91
;;^UTILITY(U,$J,358.3,10959,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10959,1,3,0)
;;=3^Pressure Ulcer Right Lower Back,Stage 1
;;^UTILITY(U,$J,358.3,10959,1,4,0)
;;=4^L89.131
;;^UTILITY(U,$J,358.3,10959,2)
;;=^5009364
;;^UTILITY(U,$J,358.3,10960,0)
;;=L89.132^^48^506^92
;;^UTILITY(U,$J,358.3,10960,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10960,1,3,0)
;;=3^Pressure Ulcer Right Lower Back,Stage 2
;;^UTILITY(U,$J,358.3,10960,1,4,0)
;;=4^L89.132
;;^UTILITY(U,$J,358.3,10960,2)
;;=^5009365
;;^UTILITY(U,$J,358.3,10961,0)
;;=L89.133^^48^506^93
;;^UTILITY(U,$J,358.3,10961,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10961,1,3,0)
;;=3^Pressure Ulcer Right Lower Back,Stage 3
;;^UTILITY(U,$J,358.3,10961,1,4,0)
;;=4^L89.133
;;^UTILITY(U,$J,358.3,10961,2)
;;=^5009366
;;^UTILITY(U,$J,358.3,10962,0)
;;=L89.134^^48^506^94
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI04I 19800 printed Sep 23, 2025@19:17:27 Page 2
IBDEI04I ; ; 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,10886,1,0)
+2 ;;=^358.31IA^2^2
+3 ;;^UTILITY(U,$J,358.3,10886,1,1,0)
+4 ;;=1^96372
+5 ;;^UTILITY(U,$J,358.3,10886,1,2,0)
+6 ;;=2^Ther/Proph/Diag Inj,SC/IM
+7 ;;^UTILITY(U,$J,358.3,10887,0)
+8 ;;=99506^^47^492^1^^^^1
+9 ;;^UTILITY(U,$J,358.3,10887,1,0)
+10 ;;=^358.31IA^2^2
+11 ;;^UTILITY(U,$J,358.3,10887,1,1,0)
+12 ;;=1^99506
+13 ;;^UTILITY(U,$J,358.3,10887,1,2,0)
+14 ;;=2^Home Visit-IM Injection
+15 ;;^UTILITY(U,$J,358.3,10888,0)
+16 ;;=90658^^47^493^4^^^^1
+17 ;;^UTILITY(U,$J,358.3,10888,1,0)
+18 ;;=^358.31IA^2^2
+19 ;;^UTILITY(U,$J,358.3,10888,1,1,0)
+20 ;;=1^90658
+21 ;;^UTILITY(U,$J,358.3,10888,1,2,0)
+22 ;;=2^Flu Vacc Multi Dose Vials (AFLURIA)
+23 ;;^UTILITY(U,$J,358.3,10889,0)
+24 ;;=90732^^47^493^14^^^^1
+25 ;;^UTILITY(U,$J,358.3,10889,1,0)
+26 ;;=^358.31IA^2^2
+27 ;;^UTILITY(U,$J,358.3,10889,1,1,0)
+28 ;;=1^90732
+29 ;;^UTILITY(U,$J,358.3,10889,1,2,0)
+30 ;;=2^Pneumovax 23 (Pneumococcal Vaccine)
+31 ;;^UTILITY(U,$J,358.3,10890,0)
+32 ;;=90656^^47^493^6^^^^1
+33 ;;^UTILITY(U,$J,358.3,10890,1,0)
+34 ;;=^358.31IA^2^2
+35 ;;^UTILITY(U,$J,358.3,10890,1,1,0)
+36 ;;=1^90656
+37 ;;^UTILITY(U,$J,358.3,10890,1,2,0)
+38 ;;=2^Flu Vacc Sgle Dose Syr (Afluria)
+39 ;;^UTILITY(U,$J,358.3,10891,0)
+40 ;;=90662^^47^493^3^^^^1
+41 ;;^UTILITY(U,$J,358.3,10891,1,0)
+42 ;;=^358.31IA^2^2
+43 ;;^UTILITY(U,$J,358.3,10891,1,1,0)
+44 ;;=1^90662
+45 ;;^UTILITY(U,$J,358.3,10891,1,2,0)
+46 ;;=2^Flu Vacc High Dose Syr (Fluzone)
+47 ;;^UTILITY(U,$J,358.3,10892,0)
+48 ;;=90670^^47^493^15^^^^1
+49 ;;^UTILITY(U,$J,358.3,10892,1,0)
+50 ;;=^358.31IA^2^2
+51 ;;^UTILITY(U,$J,358.3,10892,1,1,0)
+52 ;;=1^90670
+53 ;;^UTILITY(U,$J,358.3,10892,1,2,0)
+54 ;;=2^Prevnar 13 (Pneumococcal Vaccine)
+55 ;;^UTILITY(U,$J,358.3,10893,0)
+56 ;;=90625^^47^493^1^^^^1
+57 ;;^UTILITY(U,$J,358.3,10893,1,0)
+58 ;;=^358.31IA^2^2
+59 ;;^UTILITY(U,$J,358.3,10893,1,1,0)
+60 ;;=1^90625
+61 ;;^UTILITY(U,$J,358.3,10893,1,2,0)
+62 ;;=2^Cholera Vacc,Oral
+63 ;;^UTILITY(U,$J,358.3,10894,0)
+64 ;;=90620^^47^493^11^^^^1
+65 ;;^UTILITY(U,$J,358.3,10894,1,0)
+66 ;;=^358.31IA^2^2
+67 ;;^UTILITY(U,$J,358.3,10894,1,1,0)
+68 ;;=1^90620
+69 ;;^UTILITY(U,$J,358.3,10894,1,2,0)
+70 ;;=2^Meningococcal Vacc,Protein/Out Mem IM
+71 ;;^UTILITY(U,$J,358.3,10895,0)
+72 ;;=90621^^47^493^10^^^^1
+73 ;;^UTILITY(U,$J,358.3,10895,1,0)
+74 ;;=^358.31IA^2^2
+75 ;;^UTILITY(U,$J,358.3,10895,1,1,0)
+76 ;;=1^90621
+77 ;;^UTILITY(U,$J,358.3,10895,1,2,0)
+78 ;;=2^Meningococcal Vacc,Lipoprotein IM
+79 ;;^UTILITY(U,$J,358.3,10896,0)
+80 ;;=90697^^47^493^2^^^^1
+81 ;;^UTILITY(U,$J,358.3,10896,1,0)
+82 ;;=^358.31IA^2^2
+83 ;;^UTILITY(U,$J,358.3,10896,1,1,0)
+84 ;;=1^90697
+85 ;;^UTILITY(U,$J,358.3,10896,1,2,0)
+86 ;;=2^DTAP-IPV-Hib-HebB Vacc IM
+87 ;;^UTILITY(U,$J,358.3,10897,0)
+88 ;;=90686^^47^493^7^^^^1
+89 ;;^UTILITY(U,$J,358.3,10897,1,0)
+90 ;;=^358.31IA^2^2
+91 ;;^UTILITY(U,$J,358.3,10897,1,1,0)
+92 ;;=1^90686
+93 ;;^UTILITY(U,$J,358.3,10897,1,2,0)
+94 ;;=2^Flu Vacc Sgle Dose Syr (FLUARIX)
+95 ;;^UTILITY(U,$J,358.3,10898,0)
+96 ;;=90674^^47^493^9^^^^1
+97 ;;^UTILITY(U,$J,358.3,10898,1,0)
+98 ;;=^358.31IA^2^2
+99 ;;^UTILITY(U,$J,358.3,10898,1,1,0)
+100 ;;=1^90674
+101 ;;^UTILITY(U,$J,358.3,10898,1,2,0)
+102 ;;=2^Flu Vaccine Lo Dose Syr (Flucelvax)
+103 ;;^UTILITY(U,$J,358.3,10899,0)
+104 ;;=90682^^47^493^5^^^^1
+105 ;;^UTILITY(U,$J,358.3,10899,1,0)
+106 ;;=^358.31IA^2^2
+107 ;;^UTILITY(U,$J,358.3,10899,1,1,0)
+108 ;;=1^90682
+109 ;;^UTILITY(U,$J,358.3,10899,1,2,0)
+110 ;;=2^Flu Vacc Sgle Dose (Flublok RIV4)
+111 ;;^UTILITY(U,$J,358.3,10900,0)
+112 ;;=90750^^47^493^16^^^^1
+113 ;;^UTILITY(U,$J,358.3,10900,1,0)
+114 ;;=^358.31IA^2^2
+115 ;;^UTILITY(U,$J,358.3,10900,1,1,0)
+116 ;;=1^90750
+117 ;;^UTILITY(U,$J,358.3,10900,1,2,0)
+118 ;;=2^Zoster (Shingles) Vaccine-IM
+119 ;;^UTILITY(U,$J,358.3,10901,0)
+120 ;;=90736^^47^493^17^^^^1
+121 ;;^UTILITY(U,$J,358.3,10901,1,0)
+122 ;;=^358.31IA^2^2
+123 ;;^UTILITY(U,$J,358.3,10901,1,1,0)
+124 ;;=1^90736
+125 ;;^UTILITY(U,$J,358.3,10901,1,2,0)
+126 ;;=2^Zoster (Shingles) Vaccine-SQ
+127 ;;^UTILITY(U,$J,358.3,10902,0)
+128 ;;=90653^^47^493^8^^^^1
+129 ;;^UTILITY(U,$J,358.3,10902,1,0)
+130 ;;=^358.31IA^2^2
+131 ;;^UTILITY(U,$J,358.3,10902,1,1,0)
+132 ;;=1^90653
+133 ;;^UTILITY(U,$J,358.3,10902,1,2,0)
+134 ;;=2^Flu Vacc Sgle Dose Syr (Fluad allV3)
+135 ;;^UTILITY(U,$J,358.3,10903,0)
+136 ;;=90671^^47^493^12^^^^1
+137 ;;^UTILITY(U,$J,358.3,10903,1,0)
+138 ;;=^358.31IA^2^2
+139 ;;^UTILITY(U,$J,358.3,10903,1,1,0)
+140 ;;=1^90671
+141 ;;^UTILITY(U,$J,358.3,10903,1,2,0)
+142 ;;=2^Pneumococcal Vaccine 15 Val,IM
+143 ;;^UTILITY(U,$J,358.3,10904,0)
+144 ;;=90677^^47^493^13^^^^1
+145 ;;^UTILITY(U,$J,358.3,10904,1,0)
+146 ;;=^358.31IA^2^2
+147 ;;^UTILITY(U,$J,358.3,10904,1,1,0)
+148 ;;=1^90677
+149 ;;^UTILITY(U,$J,358.3,10904,1,2,0)
+150 ;;=2^Pneumococcal Vaccine 20 Val,IM
+151 ;;^UTILITY(U,$J,358.3,10905,0)
+152 ;;=90471^^47^494^1^^^^1
+153 ;;^UTILITY(U,$J,358.3,10905,1,0)
+154 ;;=^358.31IA^2^2
+155 ;;^UTILITY(U,$J,358.3,10905,1,1,0)
+156 ;;=1^90471
+157 ;;^UTILITY(U,$J,358.3,10905,1,2,0)
+158 ;;=2^Admin of 1 Immunization
+159 ;;^UTILITY(U,$J,358.3,10906,0)
+160 ;;=90472^^47^494^2^^^^1
+161 ;;^UTILITY(U,$J,358.3,10906,1,0)
+162 ;;=^358.31IA^2^2
+163 ;;^UTILITY(U,$J,358.3,10906,1,1,0)
+164 ;;=1^90472
+165 ;;^UTILITY(U,$J,358.3,10906,1,2,0)
+166 ;;=2^Admin of Ea Addl Immunization
+167 ;;^UTILITY(U,$J,358.3,10907,0)
+168 ;;=94664^^47^495^1^^^^1
+169 ;;^UTILITY(U,$J,358.3,10907,1,0)
+170 ;;=^358.31IA^2^2
+171 ;;^UTILITY(U,$J,358.3,10907,1,1,0)
+172 ;;=1^94664
+173 ;;^UTILITY(U,$J,358.3,10907,1,2,0)
+174 ;;=2^Evaluate Pt Use of Inhaler
+175 ;;^UTILITY(U,$J,358.3,10908,0)
+176 ;;=36415^^47^496^2^^^^1
+177 ;;^UTILITY(U,$J,358.3,10908,1,0)
+178 ;;=^358.31IA^2^2
+179 ;;^UTILITY(U,$J,358.3,10908,1,1,0)
+180 ;;=1^36415
+181 ;;^UTILITY(U,$J,358.3,10908,1,2,0)
+182 ;;=2^Routine Venipuncture
+183 ;;^UTILITY(U,$J,358.3,10909,0)
+184 ;;=36416^^47^496^1^^^^1
+185 ;;^UTILITY(U,$J,358.3,10909,1,0)
+186 ;;=^358.31IA^2^2
+187 ;;^UTILITY(U,$J,358.3,10909,1,1,0)
+188 ;;=1^36416
+189 ;;^UTILITY(U,$J,358.3,10909,1,2,0)
+190 ;;=2^Finger/Heel/Ear Stick
+191 ;;^UTILITY(U,$J,358.3,10910,0)
+192 ;;=90887^^47^497^1^^^^1
+193 ;;^UTILITY(U,$J,358.3,10910,1,0)
+194 ;;=^358.31IA^2^2
+195 ;;^UTILITY(U,$J,358.3,10910,1,1,0)
+196 ;;=1^90887
+197 ;;^UTILITY(U,$J,358.3,10910,1,2,0)
+198 ;;=2^Consultation w/ Family
+199 ;;^UTILITY(U,$J,358.3,10911,0)
+200 ;;=99510^^47^497^2^^^^1
+201 ;;^UTILITY(U,$J,358.3,10911,1,0)
+202 ;;=^358.31IA^2^2
+203 ;;^UTILITY(U,$J,358.3,10911,1,1,0)
+204 ;;=1^99510
+205 ;;^UTILITY(U,$J,358.3,10911,1,2,0)
+206 ;;=2^Home Visit-Ind/Fam/Marriage Couns
+207 ;;^UTILITY(U,$J,358.3,10912,0)
+208 ;;=97602^^47^498^1^^^^1
+209 ;;^UTILITY(U,$J,358.3,10912,1,0)
+210 ;;=^358.31IA^2^2
+211 ;;^UTILITY(U,$J,358.3,10912,1,1,0)
+212 ;;=1^97602
+213 ;;^UTILITY(U,$J,358.3,10912,1,2,0)
+214 ;;=2^Wound(S) Care And Instruction
+215 ;;^UTILITY(U,$J,358.3,10913,0)
+216 ;;=51701^^47^499^1^^^^1
+217 ;;^UTILITY(U,$J,358.3,10913,1,0)
+218 ;;=^358.31IA^2^2
+219 ;;^UTILITY(U,$J,358.3,10913,1,1,0)
+220 ;;=1^51701
+221 ;;^UTILITY(U,$J,358.3,10913,1,2,0)
+222 ;;=2^Insert Bladder Catheter
+223 ;;^UTILITY(U,$J,358.3,10914,0)
+224 ;;=51702^^47^499^2^^^^1
+225 ;;^UTILITY(U,$J,358.3,10914,1,0)
+226 ;;=^358.31IA^2^2
+227 ;;^UTILITY(U,$J,358.3,10914,1,1,0)
+228 ;;=1^51702
+229 ;;^UTILITY(U,$J,358.3,10914,1,2,0)
+230 ;;=2^Insert Foley Catheter
+231 ;;^UTILITY(U,$J,358.3,10915,0)
+232 ;;=86580^^47^500^1^^^^1
+233 ;;^UTILITY(U,$J,358.3,10915,1,0)
+234 ;;=^358.31IA^2^2
+235 ;;^UTILITY(U,$J,358.3,10915,1,1,0)
+236 ;;=1^86580
+237 ;;^UTILITY(U,$J,358.3,10915,1,2,0)
+238 ;;=2^TB Intradermal Test
+239 ;;^UTILITY(U,$J,358.3,10916,0)
+240 ;;=99001^^47^501^1^^^^1
+241 ;;^UTILITY(U,$J,358.3,10916,1,0)
+242 ;;=^358.31IA^2^2
+243 ;;^UTILITY(U,$J,358.3,10916,1,1,0)
+244 ;;=1^99001
+245 ;;^UTILITY(U,$J,358.3,10916,1,2,0)
+246 ;;=2^Specimen Handling
+247 ;;^UTILITY(U,$J,358.3,10917,0)
+248 ;;=99366^^47^502^1^^^^1
+249 ;;^UTILITY(U,$J,358.3,10917,1,0)
+250 ;;=^358.31IA^2^2
+251 ;;^UTILITY(U,$J,358.3,10917,1,1,0)
+252 ;;=1^99366
+253 ;;^UTILITY(U,$J,358.3,10917,1,2,0)
+254 ;;=2^Team Conf w/ Pt By HC Pro,30+ Min
+255 ;;^UTILITY(U,$J,358.3,10918,0)
+256 ;;=99368^^47^502^2^^^^1
+257 ;;^UTILITY(U,$J,358.3,10918,1,0)
+258 ;;=^358.31IA^2^2
+259 ;;^UTILITY(U,$J,358.3,10918,1,1,0)
+260 ;;=1^99368
+261 ;;^UTILITY(U,$J,358.3,10918,1,2,0)
+262 ;;=2^Team Conf w/o Pt by Nonphys,30+ Min
+263 ;;^UTILITY(U,$J,358.3,10919,0)
+264 ;;=99503^^47^503^5^^^^1
+265 ;;^UTILITY(U,$J,358.3,10919,1,0)
+266 ;;=^358.31IA^2^2
+267 ;;^UTILITY(U,$J,358.3,10919,1,1,0)
+268 ;;=1^99503
+269 ;;^UTILITY(U,$J,358.3,10919,1,2,0)
+270 ;;=2^Home Visit-Respiratory Tx Care
+271 ;;^UTILITY(U,$J,358.3,10920,0)
+272 ;;=99504^^47^503^4^^^^1
+273 ;;^UTILITY(U,$J,358.3,10920,1,0)
+274 ;;=^358.31IA^2^2
+275 ;;^UTILITY(U,$J,358.3,10920,1,1,0)
+276 ;;=1^99504
+277 ;;^UTILITY(U,$J,358.3,10920,1,2,0)
+278 ;;=2^Home Visit-Mech Ventilator Care
+279 ;;^UTILITY(U,$J,358.3,10921,0)
+280 ;;=99507^^47^503^1^^^^1
+281 ;;^UTILITY(U,$J,358.3,10921,1,0)
+282 ;;=^358.31IA^2^2
+283 ;;^UTILITY(U,$J,358.3,10921,1,1,0)
+284 ;;=1^99507
+285 ;;^UTILITY(U,$J,358.3,10921,1,2,0)
+286 ;;=2^Home Visit-Cath Maintenance
+287 ;;^UTILITY(U,$J,358.3,10922,0)
+288 ;;=99511^^47^503^2^^^^1
+289 ;;^UTILITY(U,$J,358.3,10922,1,0)
+290 ;;=^358.31IA^2^2
+291 ;;^UTILITY(U,$J,358.3,10922,1,1,0)
+292 ;;=1^99511
+293 ;;^UTILITY(U,$J,358.3,10922,1,2,0)
+294 ;;=2^Home Visit-Fecal/Enema Mgmt
+295 ;;^UTILITY(U,$J,358.3,10923,0)
+296 ;;=99505^^47^503^6^^^^1
+297 ;;^UTILITY(U,$J,358.3,10923,1,0)
+298 ;;=^358.31IA^2^2
+299 ;;^UTILITY(U,$J,358.3,10923,1,1,0)
+300 ;;=1^99505
+301 ;;^UTILITY(U,$J,358.3,10923,1,2,0)
+302 ;;=2^Home Visit-Stoma Care
+303 ;;^UTILITY(U,$J,358.3,10924,0)
+304 ;;=99512^^47^503^3^^^^1
+305 ;;^UTILITY(U,$J,358.3,10924,1,0)
+306 ;;=^358.31IA^2^2
+307 ;;^UTILITY(U,$J,358.3,10924,1,1,0)
+308 ;;=1^99512
+309 ;;^UTILITY(U,$J,358.3,10924,1,2,0)
+310 ;;=2^Home Visit-Hemodialysis
+311 ;;^UTILITY(U,$J,358.3,10925,0)
+312 ;;=99601^^47^504^1^^^^1
+313 ;;^UTILITY(U,$J,358.3,10925,1,0)
+314 ;;=^358.31IA^2^2
+315 ;;^UTILITY(U,$J,358.3,10925,1,1,0)
+316 ;;=1^99601
+317 ;;^UTILITY(U,$J,358.3,10925,1,2,0)
+318 ;;=2^Home Infsn,Up to 2 hrs
+319 ;;^UTILITY(U,$J,358.3,10926,0)
+320 ;;=99602^^47^504^2^^^^1
+321 ;;^UTILITY(U,$J,358.3,10926,1,0)
+322 ;;=^358.31IA^2^2
+323 ;;^UTILITY(U,$J,358.3,10926,1,1,0)
+324 ;;=1^99602
+325 ;;^UTILITY(U,$J,358.3,10926,1,2,0)
+326 ;;=2^Home Infsn,Ea Addl Hr
+327 ;;^UTILITY(U,$J,358.3,10927,0)
+328 ;;=G0496^^47^505^1^^^^1
+329 ;;^UTILITY(U,$J,358.3,10927,1,0)
+330 ;;=^358.31IA^2^2
+331 ;;^UTILITY(U,$J,358.3,10927,1,1,0)
+332 ;;=1^G0496
+333 ;;^UTILITY(U,$J,358.3,10927,1,2,0)
+334 ;;=2^HHC ED/TRAIN BY LPN,EA 15 min
+335 ;;^UTILITY(U,$J,358.3,10928,0)
+336 ;;=G0495^^47^505^2^^^^1
+337 ;;^UTILITY(U,$J,358.3,10928,1,0)
+338 ;;=^358.31IA^2^2
+339 ;;^UTILITY(U,$J,358.3,10928,1,1,0)
+340 ;;=1^G0495
+341 ;;^UTILITY(U,$J,358.3,10928,1,2,0)
+342 ;;=2^HHC ED/TRAIN BY RN,EA 15 min
+343 ;;^UTILITY(U,$J,358.3,10929,0)
+344 ;;=G0494^^47^505^3^^^^1
+345 ;;^UTILITY(U,$J,358.3,10929,1,0)
+346 ;;=^358.31IA^2^2
+347 ;;^UTILITY(U,$J,358.3,10929,1,1,0)
+348 ;;=1^G0494
+349 ;;^UTILITY(U,$J,358.3,10929,1,2,0)
+350 ;;=2^HHC LPN OBS/ASSSESS EA 15 min
+351 ;;^UTILITY(U,$J,358.3,10930,0)
+352 ;;=G0162^^47^505^4^^^^1
+353 ;;^UTILITY(U,$J,358.3,10930,1,0)
+354 ;;=^358.31IA^2^2
+355 ;;^UTILITY(U,$J,358.3,10930,1,1,0)
+356 ;;=1^G0162
+357 ;;^UTILITY(U,$J,358.3,10930,1,2,0)
+358 ;;=2^HHC RN E&M PLAN SVS, 15 min
+359 ;;^UTILITY(U,$J,358.3,10931,0)
+360 ;;=G0493^^47^505^5^^^^1
+361 ;;^UTILITY(U,$J,358.3,10931,1,0)
+362 ;;=^358.31IA^2^2
+363 ;;^UTILITY(U,$J,358.3,10931,1,1,0)
+364 ;;=1^G0493
+365 ;;^UTILITY(U,$J,358.3,10931,1,2,0)
+366 ;;=2^HHC RN OBS/ASSESS EA 15 min
+367 ;;^UTILITY(U,$J,358.3,10932,0)
+368 ;;=G0300^^47^505^6^^^^1
+369 ;;^UTILITY(U,$J,358.3,10932,1,0)
+370 ;;=^358.31IA^2^2
+371 ;;^UTILITY(U,$J,358.3,10932,1,1,0)
+372 ;;=1^G0300
+373 ;;^UTILITY(U,$J,358.3,10932,1,2,0)
+374 ;;=2^HHC Svc LPN,Direct Skilled Svc,Ea 15 min
+375 ;;^UTILITY(U,$J,358.3,10933,0)
+376 ;;=G0299^^47^505^7^^^^1
+377 ;;^UTILITY(U,$J,358.3,10933,1,0)
+378 ;;=^358.31IA^2^2
+379 ;;^UTILITY(U,$J,358.3,10933,1,1,0)
+380 ;;=1^G0299
+381 ;;^UTILITY(U,$J,358.3,10933,1,2,0)
+382 ;;=2^HHC Svc RN,Direct Skilled Svc,Ea 15 min
+383 ;;^UTILITY(U,$J,358.3,10934,0)
+384 ;;=L89.010^^48^506^78
+385 ;;^UTILITY(U,$J,358.3,10934,1,0)
+386 ;;=^358.31IA^4^2
+387 ;;^UTILITY(U,$J,358.3,10934,1,3,0)
+388 ;;=3^Pressure Ulcer Right Elbow,Unstageable
+389 ;;^UTILITY(U,$J,358.3,10934,1,4,0)
+390 ;;=4^L89.010
+391 ;;^UTILITY(U,$J,358.3,10934,2)
+392 ;;=^5009337
+393 ;;^UTILITY(U,$J,358.3,10935,0)
+394 ;;=L89.011^^48^506^73
+395 ;;^UTILITY(U,$J,358.3,10935,1,0)
+396 ;;=^358.31IA^4^2
+397 ;;^UTILITY(U,$J,358.3,10935,1,3,0)
+398 ;;=3^Pressure Ulcer Right Elbow,Stage 1
+399 ;;^UTILITY(U,$J,358.3,10935,1,4,0)
+400 ;;=4^L89.011
+401 ;;^UTILITY(U,$J,358.3,10935,2)
+402 ;;=^5009338
+403 ;;^UTILITY(U,$J,358.3,10936,0)
+404 ;;=L89.012^^48^506^74
+405 ;;^UTILITY(U,$J,358.3,10936,1,0)
+406 ;;=^358.31IA^4^2
+407 ;;^UTILITY(U,$J,358.3,10936,1,3,0)
+408 ;;=3^Pressure Ulcer Right Elbow,Stage 2
+409 ;;^UTILITY(U,$J,358.3,10936,1,4,0)
+410 ;;=4^L89.012
+411 ;;^UTILITY(U,$J,358.3,10936,2)
+412 ;;=^5009339
+413 ;;^UTILITY(U,$J,358.3,10937,0)
+414 ;;=L89.013^^48^506^75
+415 ;;^UTILITY(U,$J,358.3,10937,1,0)
+416 ;;=^358.31IA^4^2
+417 ;;^UTILITY(U,$J,358.3,10937,1,3,0)
+418 ;;=3^Pressure Ulcer Right Elbow,Stage 3
+419 ;;^UTILITY(U,$J,358.3,10937,1,4,0)
+420 ;;=4^L89.013
+421 ;;^UTILITY(U,$J,358.3,10937,2)
+422 ;;=^5009340
+423 ;;^UTILITY(U,$J,358.3,10938,0)
+424 ;;=L89.014^^48^506^76
+425 ;;^UTILITY(U,$J,358.3,10938,1,0)
+426 ;;=^358.31IA^4^2
+427 ;;^UTILITY(U,$J,358.3,10938,1,3,0)
+428 ;;=3^Pressure Ulcer Right Elbow,Stage 4
+429 ;;^UTILITY(U,$J,358.3,10938,1,4,0)
+430 ;;=4^L89.014
+431 ;;^UTILITY(U,$J,358.3,10938,2)
+432 ;;=^5009341
+433 ;;^UTILITY(U,$J,358.3,10939,0)
+434 ;;=L89.019^^48^506^77
+435 ;;^UTILITY(U,$J,358.3,10939,1,0)
+436 ;;=^358.31IA^4^2
+437 ;;^UTILITY(U,$J,358.3,10939,1,3,0)
+438 ;;=3^Pressure Ulcer Right Elbow,Unspec Stage
+439 ;;^UTILITY(U,$J,358.3,10939,1,4,0)
+440 ;;=4^L89.019
+441 ;;^UTILITY(U,$J,358.3,10939,2)
+442 ;;=^5133648
+443 ;;^UTILITY(U,$J,358.3,10940,0)
+444 ;;=L89.029^^48^506^29
+445 ;;^UTILITY(U,$J,358.3,10940,1,0)
+446 ;;=^358.31IA^4^2
+447 ;;^UTILITY(U,$J,358.3,10940,1,3,0)
+448 ;;=3^Pressure Ulcer Left Elbow,Unspec Stage
+449 ;;^UTILITY(U,$J,358.3,10940,1,4,0)
+450 ;;=4^L89.029
+451 ;;^UTILITY(U,$J,358.3,10940,2)
+452 ;;=^5133649
+453 ;;^UTILITY(U,$J,358.3,10941,0)
+454 ;;=L89.020^^48^506^30
+455 ;;^UTILITY(U,$J,358.3,10941,1,0)
+456 ;;=^358.31IA^4^2
+457 ;;^UTILITY(U,$J,358.3,10941,1,3,0)
+458 ;;=3^Pressure Ulcer Left Elbow,Unstageable
+459 ;;^UTILITY(U,$J,358.3,10941,1,4,0)
+460 ;;=4^L89.020
+461 ;;^UTILITY(U,$J,358.3,10941,2)
+462 ;;=^5009342
+463 ;;^UTILITY(U,$J,358.3,10942,0)
+464 ;;=L89.021^^48^506^25
+465 ;;^UTILITY(U,$J,358.3,10942,1,0)
+466 ;;=^358.31IA^4^2
+467 ;;^UTILITY(U,$J,358.3,10942,1,3,0)
+468 ;;=3^Pressure Ulcer Left Elbow,Stage 1
+469 ;;^UTILITY(U,$J,358.3,10942,1,4,0)
+470 ;;=4^L89.021
+471 ;;^UTILITY(U,$J,358.3,10942,2)
+472 ;;=^5009343
+473 ;;^UTILITY(U,$J,358.3,10943,0)
+474 ;;=L89.022^^48^506^26
+475 ;;^UTILITY(U,$J,358.3,10943,1,0)
+476 ;;=^358.31IA^4^2
+477 ;;^UTILITY(U,$J,358.3,10943,1,3,0)
+478 ;;=3^Pressure Ulcer Left Elbow,Stage 2
+479 ;;^UTILITY(U,$J,358.3,10943,1,4,0)
+480 ;;=4^L89.022
+481 ;;^UTILITY(U,$J,358.3,10943,2)
+482 ;;=^5009344
+483 ;;^UTILITY(U,$J,358.3,10944,0)
+484 ;;=L89.023^^48^506^27
+485 ;;^UTILITY(U,$J,358.3,10944,1,0)
+486 ;;=^358.31IA^4^2
+487 ;;^UTILITY(U,$J,358.3,10944,1,3,0)
+488 ;;=3^Pressure Ulcer Left Elbow,Stage 3
+489 ;;^UTILITY(U,$J,358.3,10944,1,4,0)
+490 ;;=4^L89.023
+491 ;;^UTILITY(U,$J,358.3,10944,2)
+492 ;;=^5009345
+493 ;;^UTILITY(U,$J,358.3,10945,0)
+494 ;;=L89.024^^48^506^28
+495 ;;^UTILITY(U,$J,358.3,10945,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,10945,1,3,0)
+498 ;;=3^Pressure Ulcer Left Elbow,Stage 4
+499 ;;^UTILITY(U,$J,358.3,10945,1,4,0)
+500 ;;=4^L89.024
+501 ;;^UTILITY(U,$J,358.3,10945,2)
+502 ;;=^5009346
+503 ;;^UTILITY(U,$J,358.3,10946,0)
+504 ;;=L89.110^^48^506^102
+505 ;;^UTILITY(U,$J,358.3,10946,1,0)
+506 ;;=^358.31IA^4^2
+507 ;;^UTILITY(U,$J,358.3,10946,1,3,0)
+508 ;;=3^Pressure Ulcer Right Upper Back,Unstageable
+509 ;;^UTILITY(U,$J,358.3,10946,1,4,0)
+510 ;;=4^L89.110
+511 ;;^UTILITY(U,$J,358.3,10946,2)
+512 ;;=^5009352
+513 ;;^UTILITY(U,$J,358.3,10947,0)
+514 ;;=L89.111^^48^506^97
+515 ;;^UTILITY(U,$J,358.3,10947,1,0)
+516 ;;=^358.31IA^4^2
+517 ;;^UTILITY(U,$J,358.3,10947,1,3,0)
+518 ;;=3^Pressure Ulcer Right Upper Back,Stage 1
+519 ;;^UTILITY(U,$J,358.3,10947,1,4,0)
+520 ;;=4^L89.111
+521 ;;^UTILITY(U,$J,358.3,10947,2)
+522 ;;=^5009353
+523 ;;^UTILITY(U,$J,358.3,10948,0)
+524 ;;=L89.112^^48^506^98
+525 ;;^UTILITY(U,$J,358.3,10948,1,0)
+526 ;;=^358.31IA^4^2
+527 ;;^UTILITY(U,$J,358.3,10948,1,3,0)
+528 ;;=3^Pressure Ulcer Right Upper Back,Stage 2
+529 ;;^UTILITY(U,$J,358.3,10948,1,4,0)
+530 ;;=4^L89.112
+531 ;;^UTILITY(U,$J,358.3,10948,2)
+532 ;;=^5009354
+533 ;;^UTILITY(U,$J,358.3,10949,0)
+534 ;;=L89.113^^48^506^99
+535 ;;^UTILITY(U,$J,358.3,10949,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,10949,1,3,0)
+538 ;;=3^Pressure Ulcer Right Upper Back,Stage 3
+539 ;;^UTILITY(U,$J,358.3,10949,1,4,0)
+540 ;;=4^L89.113
+541 ;;^UTILITY(U,$J,358.3,10949,2)
+542 ;;=^5009355
+543 ;;^UTILITY(U,$J,358.3,10950,0)
+544 ;;=L89.114^^48^506^100
+545 ;;^UTILITY(U,$J,358.3,10950,1,0)
+546 ;;=^358.31IA^4^2
+547 ;;^UTILITY(U,$J,358.3,10950,1,3,0)
+548 ;;=3^Pressure Ulcer Right Upper Back,Stage 4
+549 ;;^UTILITY(U,$J,358.3,10950,1,4,0)
+550 ;;=4^L89.114
+551 ;;^UTILITY(U,$J,358.3,10950,2)
+552 ;;=^5009356
+553 ;;^UTILITY(U,$J,358.3,10951,0)
+554 ;;=L89.119^^48^506^101
+555 ;;^UTILITY(U,$J,358.3,10951,1,0)
+556 ;;=^358.31IA^4^2
+557 ;;^UTILITY(U,$J,358.3,10951,1,3,0)
+558 ;;=3^Pressure Ulcer Right Upper Back,Stage Unspec
+559 ;;^UTILITY(U,$J,358.3,10951,1,4,0)
+560 ;;=4^L89.119
+561 ;;^UTILITY(U,$J,358.3,10951,2)
+562 ;;=^5009357
+563 ;;^UTILITY(U,$J,358.3,10952,0)
+564 ;;=L89.120^^48^506^54
+565 ;;^UTILITY(U,$J,358.3,10952,1,0)
+566 ;;=^358.31IA^4^2
+567 ;;^UTILITY(U,$J,358.3,10952,1,3,0)
+568 ;;=3^Pressure Ulcer Left Upper Back,Unstageable
+569 ;;^UTILITY(U,$J,358.3,10952,1,4,0)
+570 ;;=4^L89.120
+571 ;;^UTILITY(U,$J,358.3,10952,2)
+572 ;;=^5009358
+573 ;;^UTILITY(U,$J,358.3,10953,0)
+574 ;;=L89.121^^48^506^49
+575 ;;^UTILITY(U,$J,358.3,10953,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,10953,1,3,0)
+578 ;;=3^Pressure Ulcer Left Upper Back,Stage 1
+579 ;;^UTILITY(U,$J,358.3,10953,1,4,0)
+580 ;;=4^L89.121
+581 ;;^UTILITY(U,$J,358.3,10953,2)
+582 ;;=^5009359
+583 ;;^UTILITY(U,$J,358.3,10954,0)
+584 ;;=L89.122^^48^506^50
+585 ;;^UTILITY(U,$J,358.3,10954,1,0)
+586 ;;=^358.31IA^4^2
+587 ;;^UTILITY(U,$J,358.3,10954,1,3,0)
+588 ;;=3^Pressure Ulcer Left Upper Back,Stage 2
+589 ;;^UTILITY(U,$J,358.3,10954,1,4,0)
+590 ;;=4^L89.122
+591 ;;^UTILITY(U,$J,358.3,10954,2)
+592 ;;=^5009360
+593 ;;^UTILITY(U,$J,358.3,10955,0)
+594 ;;=L89.123^^48^506^51
+595 ;;^UTILITY(U,$J,358.3,10955,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,10955,1,3,0)
+598 ;;=3^Pressure Ulcer Left Upper Back,Stage 3
+599 ;;^UTILITY(U,$J,358.3,10955,1,4,0)
+600 ;;=4^L89.123
+601 ;;^UTILITY(U,$J,358.3,10955,2)
+602 ;;=^5009361
+603 ;;^UTILITY(U,$J,358.3,10956,0)
+604 ;;=L89.124^^48^506^52
+605 ;;^UTILITY(U,$J,358.3,10956,1,0)
+606 ;;=^358.31IA^4^2
+607 ;;^UTILITY(U,$J,358.3,10956,1,3,0)
+608 ;;=3^Pressure Ulcer Left Upper Back,Stage 4
+609 ;;^UTILITY(U,$J,358.3,10956,1,4,0)
+610 ;;=4^L89.124
+611 ;;^UTILITY(U,$J,358.3,10956,2)
+612 ;;=^5009362
+613 ;;^UTILITY(U,$J,358.3,10957,0)
+614 ;;=L89.129^^48^506^53
+615 ;;^UTILITY(U,$J,358.3,10957,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,10957,1,3,0)
+618 ;;=3^Pressure Ulcer Left Upper Back,Stage Unspec
+619 ;;^UTILITY(U,$J,358.3,10957,1,4,0)
+620 ;;=4^L89.129
+621 ;;^UTILITY(U,$J,358.3,10957,2)
+622 ;;=^5133652
+623 ;;^UTILITY(U,$J,358.3,10958,0)
+624 ;;=L89.130^^48^506^96
+625 ;;^UTILITY(U,$J,358.3,10958,1,0)
+626 ;;=^358.31IA^4^2
+627 ;;^UTILITY(U,$J,358.3,10958,1,3,0)
+628 ;;=3^Pressure Ulcer Right Lower Back,Unstageable
+629 ;;^UTILITY(U,$J,358.3,10958,1,4,0)
+630 ;;=4^L89.130
+631 ;;^UTILITY(U,$J,358.3,10958,2)
+632 ;;=^5009363
+633 ;;^UTILITY(U,$J,358.3,10959,0)
+634 ;;=L89.131^^48^506^91
+635 ;;^UTILITY(U,$J,358.3,10959,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,10959,1,3,0)
+638 ;;=3^Pressure Ulcer Right Lower Back,Stage 1
+639 ;;^UTILITY(U,$J,358.3,10959,1,4,0)
+640 ;;=4^L89.131
+641 ;;^UTILITY(U,$J,358.3,10959,2)
+642 ;;=^5009364
+643 ;;^UTILITY(U,$J,358.3,10960,0)
+644 ;;=L89.132^^48^506^92
+645 ;;^UTILITY(U,$J,358.3,10960,1,0)
+646 ;;=^358.31IA^4^2
+647 ;;^UTILITY(U,$J,358.3,10960,1,3,0)
+648 ;;=3^Pressure Ulcer Right Lower Back,Stage 2
+649 ;;^UTILITY(U,$J,358.3,10960,1,4,0)
+650 ;;=4^L89.132
+651 ;;^UTILITY(U,$J,358.3,10960,2)
+652 ;;=^5009365
+653 ;;^UTILITY(U,$J,358.3,10961,0)
+654 ;;=L89.133^^48^506^93
+655 ;;^UTILITY(U,$J,358.3,10961,1,0)
+656 ;;=^358.31IA^4^2
+657 ;;^UTILITY(U,$J,358.3,10961,1,3,0)
+658 ;;=3^Pressure Ulcer Right Lower Back,Stage 3
+659 ;;^UTILITY(U,$J,358.3,10961,1,4,0)
+660 ;;=4^L89.133
+661 ;;^UTILITY(U,$J,358.3,10961,2)
+662 ;;=^5009366
+663 ;;^UTILITY(U,$J,358.3,10962,0)
+664 ;;=L89.134^^48^506^94
