IBDEI00G ; ; 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,447,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,447,1,3,0)
;;=3^Congestive Heart Failure,Systolic,Chronic
;;^UTILITY(U,$J,358.3,447,1,4,0)
;;=4^I50.22
;;^UTILITY(U,$J,358.3,447,2)
;;=^5007241
;;^UTILITY(U,$J,358.3,448,0)
;;=I50.32^^7^48^3
;;^UTILITY(U,$J,358.3,448,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,448,1,3,0)
;;=3^Congestive Heart Failure,Diastolic,Chronic
;;^UTILITY(U,$J,358.3,448,1,4,0)
;;=4^I50.32
;;^UTILITY(U,$J,358.3,448,2)
;;=^5007245
;;^UTILITY(U,$J,358.3,449,0)
;;=I50.42^^7^48^4
;;^UTILITY(U,$J,358.3,449,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,449,1,3,0)
;;=3^Congestive Heart Failure,Systolic & Diastolic,Chronic
;;^UTILITY(U,$J,358.3,449,1,4,0)
;;=4^I50.42
;;^UTILITY(U,$J,358.3,449,2)
;;=^5007249
;;^UTILITY(U,$J,358.3,450,0)
;;=E11.22^^7^48^8
;;^UTILITY(U,$J,358.3,450,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,450,1,3,0)
;;=3^DM Type 2 w/ CKD
;;^UTILITY(U,$J,358.3,450,1,4,0)
;;=4^E11.22
;;^UTILITY(U,$J,358.3,450,2)
;;=^5002630
;;^UTILITY(U,$J,358.3,451,0)
;;=E11.42^^7^48^11
;;^UTILITY(U,$J,358.3,451,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,451,1,3,0)
;;=3^DM Type 2 w/ Polyneuropathy
;;^UTILITY(U,$J,358.3,451,1,4,0)
;;=4^E11.42
;;^UTILITY(U,$J,358.3,451,2)
;;=^5002646
;;^UTILITY(U,$J,358.3,452,0)
;;=E11.51^^7^48^10
;;^UTILITY(U,$J,358.3,452,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,452,1,3,0)
;;=3^DM Type 2 w/ PVD w/o Gangrene
;;^UTILITY(U,$J,358.3,452,1,4,0)
;;=4^E11.51
;;^UTILITY(U,$J,358.3,452,2)
;;=^5002650
;;^UTILITY(U,$J,358.3,453,0)
;;=E11.65^^7^48^9
;;^UTILITY(U,$J,358.3,453,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,453,1,3,0)
;;=3^DM Type 2 w/ Hyperglycemia
;;^UTILITY(U,$J,358.3,453,1,4,0)
;;=4^E11.65
;;^UTILITY(U,$J,358.3,453,2)
;;=^5002663
;;^UTILITY(U,$J,358.3,454,0)
;;=F43.11^^7^48^24
;;^UTILITY(U,$J,358.3,454,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,454,1,3,0)
;;=3^PTSD,Acute
;;^UTILITY(U,$J,358.3,454,1,4,0)
;;=4^F43.11
;;^UTILITY(U,$J,358.3,454,2)
;;=^5003571
;;^UTILITY(U,$J,358.3,455,0)
;;=F43.12^^7^48^25
;;^UTILITY(U,$J,358.3,455,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,455,1,3,0)
;;=3^PTSD,Chronic
;;^UTILITY(U,$J,358.3,455,1,4,0)
;;=4^F43.12
;;^UTILITY(U,$J,358.3,455,2)
;;=^5003572
;;^UTILITY(U,$J,358.3,456,0)
;;=R45.851^^7^49^3
;;^UTILITY(U,$J,358.3,456,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,456,1,3,0)
;;=3^Suicidal Ideations
;;^UTILITY(U,$J,358.3,456,1,4,0)
;;=4^R45.851
;;^UTILITY(U,$J,358.3,456,2)
;;=^5019474
;;^UTILITY(U,$J,358.3,457,0)
;;=T14.91XA^^7^49^4
;;^UTILITY(U,$J,358.3,457,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,457,1,3,0)
;;=3^Suicide Attempt,Initial Encntr
;;^UTILITY(U,$J,358.3,457,1,4,0)
;;=4^T14.91XA
;;^UTILITY(U,$J,358.3,457,2)
;;=^5151779
;;^UTILITY(U,$J,358.3,458,0)
;;=T14.91XD^^7^49^6
;;^UTILITY(U,$J,358.3,458,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,458,1,3,0)
;;=3^Suicide Attempt,Subsequent Encntr
;;^UTILITY(U,$J,358.3,458,1,4,0)
;;=4^T14.91XD
;;^UTILITY(U,$J,358.3,458,2)
;;=^5151780
;;^UTILITY(U,$J,358.3,459,0)
;;=T14.91XS^^7^49^5
;;^UTILITY(U,$J,358.3,459,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,459,1,3,0)
;;=3^Suicide Attempt,Sequela
;;^UTILITY(U,$J,358.3,459,1,4,0)
;;=4^T14.91XS
;;^UTILITY(U,$J,358.3,459,2)
;;=^5151781
;;^UTILITY(U,$J,358.3,460,0)
;;=Z91.52^^7^49^1
;;^UTILITY(U,$J,358.3,460,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,460,1,3,0)
;;=3^Personal Hx of Non-Suicidal Self-Harm
;;^UTILITY(U,$J,358.3,460,1,4,0)
;;=4^Z91.52
;;^UTILITY(U,$J,358.3,460,2)
;;=^5161318
;;^UTILITY(U,$J,358.3,461,0)
;;=Z91.51^^7^49^2
;;^UTILITY(U,$J,358.3,461,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,461,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
;;^UTILITY(U,$J,358.3,461,1,4,0)
;;=4^Z91.51
;;^UTILITY(U,$J,358.3,461,2)
;;=^5161317
;;^UTILITY(U,$J,358.3,462,0)
;;=E66.01^^7^50^28
;;^UTILITY(U,$J,358.3,462,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,462,1,3,0)
;;=3^Obesity,Morbid,d/t Excess Calories
;;^UTILITY(U,$J,358.3,462,1,4,0)
;;=4^E66.01
;;^UTILITY(U,$J,358.3,462,2)
;;=^5002826
;;^UTILITY(U,$J,358.3,463,0)
;;=E66.1^^7^50^26
;;^UTILITY(U,$J,358.3,463,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,463,1,3,0)
;;=3^Obesity,Drug-Induced
;;^UTILITY(U,$J,358.3,463,1,4,0)
;;=4^E66.1
;;^UTILITY(U,$J,358.3,463,2)
;;=^5002828
;;^UTILITY(U,$J,358.3,464,0)
;;=E66.2^^7^50^27
;;^UTILITY(U,$J,358.3,464,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,464,1,3,0)
;;=3^Obesity,Morbid w/ Alveolar Hypoventilation
;;^UTILITY(U,$J,358.3,464,1,4,0)
;;=4^E66.2
;;^UTILITY(U,$J,358.3,464,2)
;;=^5002829
;;^UTILITY(U,$J,358.3,465,0)
;;=E66.3^^7^50^31
;;^UTILITY(U,$J,358.3,465,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,465,1,3,0)
;;=3^Overweight
;;^UTILITY(U,$J,358.3,465,1,4,0)
;;=4^E66.3
;;^UTILITY(U,$J,358.3,465,2)
;;=^5002830
;;^UTILITY(U,$J,358.3,466,0)
;;=E66.8^^7^50^29
;;^UTILITY(U,$J,358.3,466,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,466,1,3,0)
;;=3^Obesity,Other
;;^UTILITY(U,$J,358.3,466,1,4,0)
;;=4^E66.8
;;^UTILITY(U,$J,358.3,466,2)
;;=^5002831
;;^UTILITY(U,$J,358.3,467,0)
;;=E66.9^^7^50^30
;;^UTILITY(U,$J,358.3,467,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,467,1,3,0)
;;=3^Obesity,Unspec
;;^UTILITY(U,$J,358.3,467,1,4,0)
;;=4^E66.9
;;^UTILITY(U,$J,358.3,467,2)
;;=^5002832
;;^UTILITY(U,$J,358.3,468,0)
;;=Z68.20^^7^50^1
;;^UTILITY(U,$J,358.3,468,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,468,1,3,0)
;;=3^BMI 20.0-20.9
;;^UTILITY(U,$J,358.3,468,1,4,0)
;;=4^Z68.20
;;^UTILITY(U,$J,358.3,468,2)
;;=^5063199
;;^UTILITY(U,$J,358.3,469,0)
;;=Z68.21^^7^50^2
;;^UTILITY(U,$J,358.3,469,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,469,1,3,0)
;;=3^BMI 21.0-21.9
;;^UTILITY(U,$J,358.3,469,1,4,0)
;;=4^Z68.21
;;^UTILITY(U,$J,358.3,469,2)
;;=^5063200
;;^UTILITY(U,$J,358.3,470,0)
;;=Z68.22^^7^50^3
;;^UTILITY(U,$J,358.3,470,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,470,1,3,0)
;;=3^BMI 22.0-22.9
;;^UTILITY(U,$J,358.3,470,1,4,0)
;;=4^Z68.22
;;^UTILITY(U,$J,358.3,470,2)
;;=^5063201
;;^UTILITY(U,$J,358.3,471,0)
;;=Z68.23^^7^50^4
;;^UTILITY(U,$J,358.3,471,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,471,1,3,0)
;;=3^BMI 23.0-23.9
;;^UTILITY(U,$J,358.3,471,1,4,0)
;;=4^Z68.23
;;^UTILITY(U,$J,358.3,471,2)
;;=^5063202
;;^UTILITY(U,$J,358.3,472,0)
;;=Z68.24^^7^50^5
;;^UTILITY(U,$J,358.3,472,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,472,1,3,0)
;;=3^BMI 24.0-24.9
;;^UTILITY(U,$J,358.3,472,1,4,0)
;;=4^Z68.24
;;^UTILITY(U,$J,358.3,472,2)
;;=^5063203
;;^UTILITY(U,$J,358.3,473,0)
;;=Z68.25^^7^50^6
;;^UTILITY(U,$J,358.3,473,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,473,1,3,0)
;;=3^BMI 25.0-25.9
;;^UTILITY(U,$J,358.3,473,1,4,0)
;;=4^Z68.25
;;^UTILITY(U,$J,358.3,473,2)
;;=^5063204
;;^UTILITY(U,$J,358.3,474,0)
;;=Z68.26^^7^50^7
;;^UTILITY(U,$J,358.3,474,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,474,1,3,0)
;;=3^BMI 26.0-26.9
;;^UTILITY(U,$J,358.3,474,1,4,0)
;;=4^Z68.26
;;^UTILITY(U,$J,358.3,474,2)
;;=^5063205
;;^UTILITY(U,$J,358.3,475,0)
;;=Z68.27^^7^50^8
;;^UTILITY(U,$J,358.3,475,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,475,1,3,0)
;;=3^BMI 27.0-27.9
;;^UTILITY(U,$J,358.3,475,1,4,0)
;;=4^Z68.27
;;^UTILITY(U,$J,358.3,475,2)
;;=^5063206
;;^UTILITY(U,$J,358.3,476,0)
;;=Z68.28^^7^50^9
;;^UTILITY(U,$J,358.3,476,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,476,1,3,0)
;;=3^BMI 28.0-28.9
;;^UTILITY(U,$J,358.3,476,1,4,0)
;;=4^Z68.28
;;^UTILITY(U,$J,358.3,476,2)
;;=^5063207
;;^UTILITY(U,$J,358.3,477,0)
;;=Z68.29^^7^50^10
;;^UTILITY(U,$J,358.3,477,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,477,1,3,0)
;;=3^BMI 29.0-29.9
;;^UTILITY(U,$J,358.3,477,1,4,0)
;;=4^Z68.29
;;^UTILITY(U,$J,358.3,477,2)
;;=^5063208
;;^UTILITY(U,$J,358.3,478,0)
;;=Z68.30^^7^50^11
;;^UTILITY(U,$J,358.3,478,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,478,1,3,0)
;;=3^BMI 30.0-30.9
;;^UTILITY(U,$J,358.3,478,1,4,0)
;;=4^Z68.30
;;^UTILITY(U,$J,358.3,478,2)
;;=^5063209
;;^UTILITY(U,$J,358.3,479,0)
;;=Z68.31^^7^50^12
;;^UTILITY(U,$J,358.3,479,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,479,1,3,0)
;;=3^BMI 31.0-31.9
;;^UTILITY(U,$J,358.3,479,1,4,0)
;;=4^Z68.31
;;^UTILITY(U,$J,358.3,479,2)
;;=^5063210
;;^UTILITY(U,$J,358.3,480,0)
;;=Z68.32^^7^50^13
;;^UTILITY(U,$J,358.3,480,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,480,1,3,0)
;;=3^BMI 32.0-32.9
;;^UTILITY(U,$J,358.3,480,1,4,0)
;;=4^Z68.32
;;^UTILITY(U,$J,358.3,480,2)
;;=^5063211
;;^UTILITY(U,$J,358.3,481,0)
;;=Z68.33^^7^50^14
;;^UTILITY(U,$J,358.3,481,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,481,1,3,0)
;;=3^BMI 33.0-33.9
;;^UTILITY(U,$J,358.3,481,1,4,0)
;;=4^Z68.33
;;^UTILITY(U,$J,358.3,481,2)
;;=^5063212
;;^UTILITY(U,$J,358.3,482,0)
;;=Z68.34^^7^50^15
;;^UTILITY(U,$J,358.3,482,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,482,1,3,0)
;;=3^BMI 34.0-34.9
;;^UTILITY(U,$J,358.3,482,1,4,0)
;;=4^Z68.34
;;^UTILITY(U,$J,358.3,482,2)
;;=^5063213
;;^UTILITY(U,$J,358.3,483,0)
;;=Z68.35^^7^50^16
;;^UTILITY(U,$J,358.3,483,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,483,1,3,0)
;;=3^BMI 35.0-35.9
;;^UTILITY(U,$J,358.3,483,1,4,0)
;;=4^Z68.35
;;^UTILITY(U,$J,358.3,483,2)
;;=^5063214
;;^UTILITY(U,$J,358.3,484,0)
;;=Z68.36^^7^50^17
;;^UTILITY(U,$J,358.3,484,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,484,1,3,0)
;;=3^BMI 36.0-36.9
;;^UTILITY(U,$J,358.3,484,1,4,0)
;;=4^Z68.36
;;^UTILITY(U,$J,358.3,484,2)
;;=^5063215
;;^UTILITY(U,$J,358.3,485,0)
;;=Z68.37^^7^50^18
;;^UTILITY(U,$J,358.3,485,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,485,1,3,0)
;;=3^BMI 37.0-37.9
;;^UTILITY(U,$J,358.3,485,1,4,0)
;;=4^Z68.37
;;^UTILITY(U,$J,358.3,485,2)
;;=^5063216
;;^UTILITY(U,$J,358.3,486,0)
;;=Z68.38^^7^50^19
;;^UTILITY(U,$J,358.3,486,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,486,1,3,0)
;;=3^BMI 38.0-38.9
;;^UTILITY(U,$J,358.3,486,1,4,0)
;;=4^Z68.38
;;^UTILITY(U,$J,358.3,486,2)
;;=^5063217
;;^UTILITY(U,$J,358.3,487,0)
;;=Z68.39^^7^50^20
;;^UTILITY(U,$J,358.3,487,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,487,1,3,0)
;;=3^BMI 39.0-39.9
;;^UTILITY(U,$J,358.3,487,1,4,0)
;;=4^Z68.39
;;^UTILITY(U,$J,358.3,487,2)
;;=^5063218
;;^UTILITY(U,$J,358.3,488,0)
;;=Z68.41^^7^50^21
;;^UTILITY(U,$J,358.3,488,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,488,1,3,0)
;;=3^BMI 40.0-44.9
;;^UTILITY(U,$J,358.3,488,1,4,0)
;;=4^Z68.41
;;^UTILITY(U,$J,358.3,488,2)
;;=^5063219
;;^UTILITY(U,$J,358.3,489,0)
;;=Z68.42^^7^50^22
;;^UTILITY(U,$J,358.3,489,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,489,1,3,0)
;;=3^BMI 45.0-49.9
;;^UTILITY(U,$J,358.3,489,1,4,0)
;;=4^Z68.42
;;^UTILITY(U,$J,358.3,489,2)
;;=^5063220
;;^UTILITY(U,$J,358.3,490,0)
;;=Z68.43^^7^50^23
;;^UTILITY(U,$J,358.3,490,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,490,1,3,0)
;;=3^BMI 50.0-59.9
;;^UTILITY(U,$J,358.3,490,1,4,0)
;;=4^Z68.43
;;^UTILITY(U,$J,358.3,490,2)
;;=^5063221
;;^UTILITY(U,$J,358.3,491,0)
;;=Z68.44^^7^50^24
;;^UTILITY(U,$J,358.3,491,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,491,1,3,0)
;;=3^BMI 60.0-69.9
;;^UTILITY(U,$J,358.3,491,1,4,0)
;;=4^Z68.44
;;^UTILITY(U,$J,358.3,491,2)
;;=^5063222
;;^UTILITY(U,$J,358.3,492,0)
;;=Z68.45^^7^50^25
;;^UTILITY(U,$J,358.3,492,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,492,1,3,0)
;;=3^BMI 70 or Greater
;;^UTILITY(U,$J,358.3,492,1,4,0)
;;=4^Z68.45
;;^UTILITY(U,$J,358.3,492,2)
;;=^5063223
;;^UTILITY(U,$J,358.3,493,0)
;;=A4220^^8^51^1^^^^1
;;^UTILITY(U,$J,358.3,493,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,493,1,1,0)
;;=1^A4220
;;^UTILITY(U,$J,358.3,493,1,3,0)
;;=3^Infusion Pump Refill Kit
;;^UTILITY(U,$J,358.3,494,0)
;;=99195^^8^52^49^^^^1
;;^UTILITY(U,$J,358.3,494,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,494,1,1,0)
;;=1^99195
;;^UTILITY(U,$J,358.3,494,1,3,0)
;;=3^Therapeutic Phlebotomy
;;^UTILITY(U,$J,358.3,495,0)
;;=96450^^8^52^21^^^^1
;;^UTILITY(U,$J,358.3,495,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,495,1,1,0)
;;=1^96450
;;^UTILITY(U,$J,358.3,495,1,3,0)
;;=3^Chemotherapy, Into CNS
;;^UTILITY(U,$J,358.3,496,0)
;;=96420^^8^52^13^^^^1
;;^UTILITY(U,$J,358.3,496,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,496,1,1,0)
;;=1^96420
;;^UTILITY(U,$J,358.3,496,1,3,0)
;;=3^Chemo,IA Push
;;^UTILITY(U,$J,358.3,497,0)
;;=96422^^8^52^10^^^^1
;;^UTILITY(U,$J,358.3,497,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,497,1,1,0)
;;=1^96422
;;^UTILITY(U,$J,358.3,497,1,3,0)
;;=3^Chemo,IA Infus,1st hr
;;^UTILITY(U,$J,358.3,498,0)
;;=96405^^8^52^5^^^^1
;;^UTILITY(U,$J,358.3,498,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,498,1,1,0)
;;=1^96405
;;^UTILITY(U,$J,358.3,498,1,3,0)
;;=3^Chemo Admin,Intralesional
;;^UTILITY(U,$J,358.3,499,0)
;;=96440^^8^52^8^^^^1
;;^UTILITY(U,$J,358.3,499,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,499,1,1,0)
;;=1^96440
;;^UTILITY(U,$J,358.3,499,1,3,0)
;;=3^Chemo Admin,Pleural Cavity
;;^UTILITY(U,$J,358.3,500,0)
;;=96542^^8^52^9^^^^1
;;^UTILITY(U,$J,358.3,500,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,500,1,1,0)
;;=1^96542
;;^UTILITY(U,$J,358.3,500,1,3,0)
;;=3^Chemo Inj Subarachnoid/Intravent via Reservoir
;;^UTILITY(U,$J,358.3,501,0)
;;=51720^^8^52^1^^^^1
;;^UTILITY(U,$J,358.3,501,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,501,1,1,0)
;;=1^51720
;;^UTILITY(U,$J,358.3,501,1,3,0)
;;=3^Bladder Instill,Anticarcinogenic
;;^UTILITY(U,$J,358.3,502,0)
;;=96402^^8^52^22^^^^1
;;^UTILITY(U,$J,358.3,502,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,502,1,1,0)
;;=1^96402
;;^UTILITY(U,$J,358.3,502,1,3,0)
;;=3^Chemotherapy,IM/SQ inj,Hormone
;;^UTILITY(U,$J,358.3,503,0)
;;=96401^^8^52^14^^^^1
;;^UTILITY(U,$J,358.3,503,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,503,1,1,0)
;;=1^96401
;;^UTILITY(U,$J,358.3,503,1,3,0)
;;=3^Chemo,IM/SQ inj,non-hormonal
;;^UTILITY(U,$J,358.3,504,0)
;;=96409^^8^52^17^^^^1
;;^UTILITY(U,$J,358.3,504,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,504,1,1,0)
;;=1^96409
;;^UTILITY(U,$J,358.3,504,1,3,0)
;;=3^Chemo,IV push,Init
;;^UTILITY(U,$J,358.3,505,0)
;;=96411^^8^52^18^^^^1
;;^UTILITY(U,$J,358.3,505,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,505,1,1,0)
;;=1^96411
;;^UTILITY(U,$J,358.3,505,1,3,0)
;;=3^Chemo,IV push,Addl Drug
;;^UTILITY(U,$J,358.3,506,0)
;;=96413^^8^52^15^^^^1
;;^UTILITY(U,$J,358.3,506,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,506,1,1,0)
;;=1^96413
;;^UTILITY(U,$J,358.3,506,1,3,0)
;;=3^Chemo,IV Infus,1st Hr
;;^UTILITY(U,$J,358.3,507,0)
;;=96417^^8^52^20^^^^1
;;^UTILITY(U,$J,358.3,507,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,507,1,1,0)
;;=1^96417
;;^UTILITY(U,$J,358.3,507,1,3,0)
;;=3^Chemo,Infusn,ea add seql drug
;;^UTILITY(U,$J,358.3,508,0)
;;=96415^^8^52^16^^^^1
;;^UTILITY(U,$J,358.3,508,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,508,1,1,0)
;;=1^96415
;;^UTILITY(U,$J,358.3,508,1,3,0)
;;=3^Chemo,IV Infus,Ea Addl Hr
;;^UTILITY(U,$J,358.3,509,0)
;;=96416^^8^52^19^^^^1
;;^UTILITY(U,$J,358.3,509,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,509,1,1,0)
;;=1^96416
;;^UTILITY(U,$J,358.3,509,1,3,0)
;;=3^Chemo,IV w/Pump,Init > 8hr
;;^UTILITY(U,$J,358.3,510,0)
;;=96423^^8^52^11^^^^1
;;^UTILITY(U,$J,358.3,510,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,510,1,1,0)
;;=1^96423
;;^UTILITY(U,$J,358.3,510,1,3,0)
;;=3^Chemo,IA Infus,Ea Addl hr
;;^UTILITY(U,$J,358.3,511,0)
;;=96425^^8^52^12^^^^1
;;^UTILITY(U,$J,358.3,511,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,511,1,1,0)
;;=1^96425
;;^UTILITY(U,$J,358.3,511,1,3,0)
;;=3^Chemo,IA Init Pump >8hr
;;^UTILITY(U,$J,358.3,512,0)
;;=96360^^8^52^26^^^^1
;;^UTILITY(U,$J,358.3,512,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,512,1,1,0)
;;=1^96360
;;^UTILITY(U,$J,358.3,512,1,3,0)
;;=3^Hydration IV Infusn,1st hr
;;^UTILITY(U,$J,358.3,513,0)
;;=96361^^8^52^27^^^^1
;;^UTILITY(U,$J,358.3,513,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,513,1,1,0)
;;=1^96361
;;^UTILITY(U,$J,358.3,513,1,3,0)
;;=3^Hydration IV Infusn,Ea Addl Hr
;;^UTILITY(U,$J,358.3,514,0)
;;=96365^^8^52^45^^^^1
;;^UTILITY(U,$J,358.3,514,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,514,1,1,0)
;;=1^96365
;;^UTILITY(U,$J,358.3,514,1,3,0)
;;=3^Ther/Diag/Proph,IV Infusn,1st hr
;;^UTILITY(U,$J,358.3,515,0)
;;=96366^^8^52^44^^^^1
;;^UTILITY(U,$J,358.3,515,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,515,1,1,0)
;;=1^96366
;;^UTILITY(U,$J,358.3,515,1,3,0)
;;=3^Ther/Diag/Proph,IV Infus,Ea Addl Hr
;;^UTILITY(U,$J,358.3,516,0)
;;=96372^^8^52^40^^^^1
;;^UTILITY(U,$J,358.3,516,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,516,1,1,0)
;;=1^96372
;;^UTILITY(U,$J,358.3,516,1,3,0)
;;=3^Ther/Diag/Proph IM/SQ injection
;;^UTILITY(U,$J,358.3,517,0)
;;=96374^^8^52^43^^^^1
;;^UTILITY(U,$J,358.3,517,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,517,1,1,0)
;;=1^96374
;;^UTILITY(U,$J,358.3,517,1,3,0)
;;=3^Ther/Diag/Proph IV push,1st hr
;;^UTILITY(U,$J,358.3,518,0)
;;=96375^^8^52^42^^^^1
;;^UTILITY(U,$J,358.3,518,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,518,1,1,0)
;;=1^96375
;;^UTILITY(U,$J,358.3,518,1,3,0)
;;=3^Ther/Diag/Proph IV push ea add seql,new drug
;;^UTILITY(U,$J,358.3,519,0)
;;=96367^^8^52^46^^^^1
;;^UTILITY(U,$J,358.3,519,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,519,1,1,0)
;;=1^96367
;;^UTILITY(U,$J,358.3,519,1,3,0)
;;=3^Ther/Diag/Proph,IV Infusn,Ea add hr seql
;;^UTILITY(U,$J,358.3,520,0)
;;=96368^^8^52^41^^^^1
;;^UTILITY(U,$J,358.3,520,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,520,1,1,0)
;;=1^96368
;;^UTILITY(U,$J,358.3,520,1,3,0)
;;=3^Ther/Diag/Proph IV Infus, Concurrent
;;^UTILITY(U,$J,358.3,521,0)
;;=96446^^8^52^7^^^^1
;;^UTILITY(U,$J,358.3,521,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,521,1,1,0)
;;=1^96446
;;^UTILITY(U,$J,358.3,521,1,3,0)
;;=3^Chemo Admin,Peritoneal Cavity
;;^UTILITY(U,$J,358.3,522,0)
;;=36415^^8^52^36^^^^1
;;^UTILITY(U,$J,358.3,522,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,522,1,1,0)
;;=1^36415
;;^UTILITY(U,$J,358.3,522,1,3,0)
;;=3^Routine Venipuncture
;;^UTILITY(U,$J,358.3,523,0)
;;=36430^^8^52^4^^^^1
;;^UTILITY(U,$J,358.3,523,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,523,1,1,0)
;;=1^36430
;;^UTILITY(U,$J,358.3,523,1,3,0)
;;=3^Blood Transfusion Service
;;^UTILITY(U,$J,358.3,524,0)
;;=96373^^8^52^48^^^^1
;;^UTILITY(U,$J,358.3,524,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,524,1,1,0)
;;=1^96373
;;^UTILITY(U,$J,358.3,524,1,3,0)
;;=3^Ther/Proph/Diag Inj,IA
;;^UTILITY(U,$J,358.3,525,0)
;;=96379^^8^52^47^^^^1
;;^UTILITY(U,$J,358.3,525,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,525,1,1,0)
;;=1^96379
;;^UTILITY(U,$J,358.3,525,1,3,0)
;;=3^Ther/Prop/Diag Inj/Inf Proc
;;^UTILITY(U,$J,358.3,526,0)
;;=36000^^8^52^31^^^^1
;;^UTILITY(U,$J,358.3,526,1,0)
;;=^358.31IA^3^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI00G 19745 printed Sep 23, 2025@19:15:09 Page 2
IBDEI00G ; ; 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,447,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,447,1,3,0)
+4 ;;=3^Congestive Heart Failure,Systolic,Chronic
+5 ;;^UTILITY(U,$J,358.3,447,1,4,0)
+6 ;;=4^I50.22
+7 ;;^UTILITY(U,$J,358.3,447,2)
+8 ;;=^5007241
+9 ;;^UTILITY(U,$J,358.3,448,0)
+10 ;;=I50.32^^7^48^3
+11 ;;^UTILITY(U,$J,358.3,448,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,448,1,3,0)
+14 ;;=3^Congestive Heart Failure,Diastolic,Chronic
+15 ;;^UTILITY(U,$J,358.3,448,1,4,0)
+16 ;;=4^I50.32
+17 ;;^UTILITY(U,$J,358.3,448,2)
+18 ;;=^5007245
+19 ;;^UTILITY(U,$J,358.3,449,0)
+20 ;;=I50.42^^7^48^4
+21 ;;^UTILITY(U,$J,358.3,449,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,449,1,3,0)
+24 ;;=3^Congestive Heart Failure,Systolic & Diastolic,Chronic
+25 ;;^UTILITY(U,$J,358.3,449,1,4,0)
+26 ;;=4^I50.42
+27 ;;^UTILITY(U,$J,358.3,449,2)
+28 ;;=^5007249
+29 ;;^UTILITY(U,$J,358.3,450,0)
+30 ;;=E11.22^^7^48^8
+31 ;;^UTILITY(U,$J,358.3,450,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,450,1,3,0)
+34 ;;=3^DM Type 2 w/ CKD
+35 ;;^UTILITY(U,$J,358.3,450,1,4,0)
+36 ;;=4^E11.22
+37 ;;^UTILITY(U,$J,358.3,450,2)
+38 ;;=^5002630
+39 ;;^UTILITY(U,$J,358.3,451,0)
+40 ;;=E11.42^^7^48^11
+41 ;;^UTILITY(U,$J,358.3,451,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,451,1,3,0)
+44 ;;=3^DM Type 2 w/ Polyneuropathy
+45 ;;^UTILITY(U,$J,358.3,451,1,4,0)
+46 ;;=4^E11.42
+47 ;;^UTILITY(U,$J,358.3,451,2)
+48 ;;=^5002646
+49 ;;^UTILITY(U,$J,358.3,452,0)
+50 ;;=E11.51^^7^48^10
+51 ;;^UTILITY(U,$J,358.3,452,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,452,1,3,0)
+54 ;;=3^DM Type 2 w/ PVD w/o Gangrene
+55 ;;^UTILITY(U,$J,358.3,452,1,4,0)
+56 ;;=4^E11.51
+57 ;;^UTILITY(U,$J,358.3,452,2)
+58 ;;=^5002650
+59 ;;^UTILITY(U,$J,358.3,453,0)
+60 ;;=E11.65^^7^48^9
+61 ;;^UTILITY(U,$J,358.3,453,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,453,1,3,0)
+64 ;;=3^DM Type 2 w/ Hyperglycemia
+65 ;;^UTILITY(U,$J,358.3,453,1,4,0)
+66 ;;=4^E11.65
+67 ;;^UTILITY(U,$J,358.3,453,2)
+68 ;;=^5002663
+69 ;;^UTILITY(U,$J,358.3,454,0)
+70 ;;=F43.11^^7^48^24
+71 ;;^UTILITY(U,$J,358.3,454,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,454,1,3,0)
+74 ;;=3^PTSD,Acute
+75 ;;^UTILITY(U,$J,358.3,454,1,4,0)
+76 ;;=4^F43.11
+77 ;;^UTILITY(U,$J,358.3,454,2)
+78 ;;=^5003571
+79 ;;^UTILITY(U,$J,358.3,455,0)
+80 ;;=F43.12^^7^48^25
+81 ;;^UTILITY(U,$J,358.3,455,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,455,1,3,0)
+84 ;;=3^PTSD,Chronic
+85 ;;^UTILITY(U,$J,358.3,455,1,4,0)
+86 ;;=4^F43.12
+87 ;;^UTILITY(U,$J,358.3,455,2)
+88 ;;=^5003572
+89 ;;^UTILITY(U,$J,358.3,456,0)
+90 ;;=R45.851^^7^49^3
+91 ;;^UTILITY(U,$J,358.3,456,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,456,1,3,0)
+94 ;;=3^Suicidal Ideations
+95 ;;^UTILITY(U,$J,358.3,456,1,4,0)
+96 ;;=4^R45.851
+97 ;;^UTILITY(U,$J,358.3,456,2)
+98 ;;=^5019474
+99 ;;^UTILITY(U,$J,358.3,457,0)
+100 ;;=T14.91XA^^7^49^4
+101 ;;^UTILITY(U,$J,358.3,457,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,457,1,3,0)
+104 ;;=3^Suicide Attempt,Initial Encntr
+105 ;;^UTILITY(U,$J,358.3,457,1,4,0)
+106 ;;=4^T14.91XA
+107 ;;^UTILITY(U,$J,358.3,457,2)
+108 ;;=^5151779
+109 ;;^UTILITY(U,$J,358.3,458,0)
+110 ;;=T14.91XD^^7^49^6
+111 ;;^UTILITY(U,$J,358.3,458,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,458,1,3,0)
+114 ;;=3^Suicide Attempt,Subsequent Encntr
+115 ;;^UTILITY(U,$J,358.3,458,1,4,0)
+116 ;;=4^T14.91XD
+117 ;;^UTILITY(U,$J,358.3,458,2)
+118 ;;=^5151780
+119 ;;^UTILITY(U,$J,358.3,459,0)
+120 ;;=T14.91XS^^7^49^5
+121 ;;^UTILITY(U,$J,358.3,459,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,459,1,3,0)
+124 ;;=3^Suicide Attempt,Sequela
+125 ;;^UTILITY(U,$J,358.3,459,1,4,0)
+126 ;;=4^T14.91XS
+127 ;;^UTILITY(U,$J,358.3,459,2)
+128 ;;=^5151781
+129 ;;^UTILITY(U,$J,358.3,460,0)
+130 ;;=Z91.52^^7^49^1
+131 ;;^UTILITY(U,$J,358.3,460,1,0)
+132 ;;=^358.31IA^4^2
+133 ;;^UTILITY(U,$J,358.3,460,1,3,0)
+134 ;;=3^Personal Hx of Non-Suicidal Self-Harm
+135 ;;^UTILITY(U,$J,358.3,460,1,4,0)
+136 ;;=4^Z91.52
+137 ;;^UTILITY(U,$J,358.3,460,2)
+138 ;;=^5161318
+139 ;;^UTILITY(U,$J,358.3,461,0)
+140 ;;=Z91.51^^7^49^2
+141 ;;^UTILITY(U,$J,358.3,461,1,0)
+142 ;;=^358.31IA^4^2
+143 ;;^UTILITY(U,$J,358.3,461,1,3,0)
+144 ;;=3^Personal Hx of Suicidal Behavior
+145 ;;^UTILITY(U,$J,358.3,461,1,4,0)
+146 ;;=4^Z91.51
+147 ;;^UTILITY(U,$J,358.3,461,2)
+148 ;;=^5161317
+149 ;;^UTILITY(U,$J,358.3,462,0)
+150 ;;=E66.01^^7^50^28
+151 ;;^UTILITY(U,$J,358.3,462,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,462,1,3,0)
+154 ;;=3^Obesity,Morbid,d/t Excess Calories
+155 ;;^UTILITY(U,$J,358.3,462,1,4,0)
+156 ;;=4^E66.01
+157 ;;^UTILITY(U,$J,358.3,462,2)
+158 ;;=^5002826
+159 ;;^UTILITY(U,$J,358.3,463,0)
+160 ;;=E66.1^^7^50^26
+161 ;;^UTILITY(U,$J,358.3,463,1,0)
+162 ;;=^358.31IA^4^2
+163 ;;^UTILITY(U,$J,358.3,463,1,3,0)
+164 ;;=3^Obesity,Drug-Induced
+165 ;;^UTILITY(U,$J,358.3,463,1,4,0)
+166 ;;=4^E66.1
+167 ;;^UTILITY(U,$J,358.3,463,2)
+168 ;;=^5002828
+169 ;;^UTILITY(U,$J,358.3,464,0)
+170 ;;=E66.2^^7^50^27
+171 ;;^UTILITY(U,$J,358.3,464,1,0)
+172 ;;=^358.31IA^4^2
+173 ;;^UTILITY(U,$J,358.3,464,1,3,0)
+174 ;;=3^Obesity,Morbid w/ Alveolar Hypoventilation
+175 ;;^UTILITY(U,$J,358.3,464,1,4,0)
+176 ;;=4^E66.2
+177 ;;^UTILITY(U,$J,358.3,464,2)
+178 ;;=^5002829
+179 ;;^UTILITY(U,$J,358.3,465,0)
+180 ;;=E66.3^^7^50^31
+181 ;;^UTILITY(U,$J,358.3,465,1,0)
+182 ;;=^358.31IA^4^2
+183 ;;^UTILITY(U,$J,358.3,465,1,3,0)
+184 ;;=3^Overweight
+185 ;;^UTILITY(U,$J,358.3,465,1,4,0)
+186 ;;=4^E66.3
+187 ;;^UTILITY(U,$J,358.3,465,2)
+188 ;;=^5002830
+189 ;;^UTILITY(U,$J,358.3,466,0)
+190 ;;=E66.8^^7^50^29
+191 ;;^UTILITY(U,$J,358.3,466,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,466,1,3,0)
+194 ;;=3^Obesity,Other
+195 ;;^UTILITY(U,$J,358.3,466,1,4,0)
+196 ;;=4^E66.8
+197 ;;^UTILITY(U,$J,358.3,466,2)
+198 ;;=^5002831
+199 ;;^UTILITY(U,$J,358.3,467,0)
+200 ;;=E66.9^^7^50^30
+201 ;;^UTILITY(U,$J,358.3,467,1,0)
+202 ;;=^358.31IA^4^2
+203 ;;^UTILITY(U,$J,358.3,467,1,3,0)
+204 ;;=3^Obesity,Unspec
+205 ;;^UTILITY(U,$J,358.3,467,1,4,0)
+206 ;;=4^E66.9
+207 ;;^UTILITY(U,$J,358.3,467,2)
+208 ;;=^5002832
+209 ;;^UTILITY(U,$J,358.3,468,0)
+210 ;;=Z68.20^^7^50^1
+211 ;;^UTILITY(U,$J,358.3,468,1,0)
+212 ;;=^358.31IA^4^2
+213 ;;^UTILITY(U,$J,358.3,468,1,3,0)
+214 ;;=3^BMI 20.0-20.9
+215 ;;^UTILITY(U,$J,358.3,468,1,4,0)
+216 ;;=4^Z68.20
+217 ;;^UTILITY(U,$J,358.3,468,2)
+218 ;;=^5063199
+219 ;;^UTILITY(U,$J,358.3,469,0)
+220 ;;=Z68.21^^7^50^2
+221 ;;^UTILITY(U,$J,358.3,469,1,0)
+222 ;;=^358.31IA^4^2
+223 ;;^UTILITY(U,$J,358.3,469,1,3,0)
+224 ;;=3^BMI 21.0-21.9
+225 ;;^UTILITY(U,$J,358.3,469,1,4,0)
+226 ;;=4^Z68.21
+227 ;;^UTILITY(U,$J,358.3,469,2)
+228 ;;=^5063200
+229 ;;^UTILITY(U,$J,358.3,470,0)
+230 ;;=Z68.22^^7^50^3
+231 ;;^UTILITY(U,$J,358.3,470,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,470,1,3,0)
+234 ;;=3^BMI 22.0-22.9
+235 ;;^UTILITY(U,$J,358.3,470,1,4,0)
+236 ;;=4^Z68.22
+237 ;;^UTILITY(U,$J,358.3,470,2)
+238 ;;=^5063201
+239 ;;^UTILITY(U,$J,358.3,471,0)
+240 ;;=Z68.23^^7^50^4
+241 ;;^UTILITY(U,$J,358.3,471,1,0)
+242 ;;=^358.31IA^4^2
+243 ;;^UTILITY(U,$J,358.3,471,1,3,0)
+244 ;;=3^BMI 23.0-23.9
+245 ;;^UTILITY(U,$J,358.3,471,1,4,0)
+246 ;;=4^Z68.23
+247 ;;^UTILITY(U,$J,358.3,471,2)
+248 ;;=^5063202
+249 ;;^UTILITY(U,$J,358.3,472,0)
+250 ;;=Z68.24^^7^50^5
+251 ;;^UTILITY(U,$J,358.3,472,1,0)
+252 ;;=^358.31IA^4^2
+253 ;;^UTILITY(U,$J,358.3,472,1,3,0)
+254 ;;=3^BMI 24.0-24.9
+255 ;;^UTILITY(U,$J,358.3,472,1,4,0)
+256 ;;=4^Z68.24
+257 ;;^UTILITY(U,$J,358.3,472,2)
+258 ;;=^5063203
+259 ;;^UTILITY(U,$J,358.3,473,0)
+260 ;;=Z68.25^^7^50^6
+261 ;;^UTILITY(U,$J,358.3,473,1,0)
+262 ;;=^358.31IA^4^2
+263 ;;^UTILITY(U,$J,358.3,473,1,3,0)
+264 ;;=3^BMI 25.0-25.9
+265 ;;^UTILITY(U,$J,358.3,473,1,4,0)
+266 ;;=4^Z68.25
+267 ;;^UTILITY(U,$J,358.3,473,2)
+268 ;;=^5063204
+269 ;;^UTILITY(U,$J,358.3,474,0)
+270 ;;=Z68.26^^7^50^7
+271 ;;^UTILITY(U,$J,358.3,474,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,474,1,3,0)
+274 ;;=3^BMI 26.0-26.9
+275 ;;^UTILITY(U,$J,358.3,474,1,4,0)
+276 ;;=4^Z68.26
+277 ;;^UTILITY(U,$J,358.3,474,2)
+278 ;;=^5063205
+279 ;;^UTILITY(U,$J,358.3,475,0)
+280 ;;=Z68.27^^7^50^8
+281 ;;^UTILITY(U,$J,358.3,475,1,0)
+282 ;;=^358.31IA^4^2
+283 ;;^UTILITY(U,$J,358.3,475,1,3,0)
+284 ;;=3^BMI 27.0-27.9
+285 ;;^UTILITY(U,$J,358.3,475,1,4,0)
+286 ;;=4^Z68.27
+287 ;;^UTILITY(U,$J,358.3,475,2)
+288 ;;=^5063206
+289 ;;^UTILITY(U,$J,358.3,476,0)
+290 ;;=Z68.28^^7^50^9
+291 ;;^UTILITY(U,$J,358.3,476,1,0)
+292 ;;=^358.31IA^4^2
+293 ;;^UTILITY(U,$J,358.3,476,1,3,0)
+294 ;;=3^BMI 28.0-28.9
+295 ;;^UTILITY(U,$J,358.3,476,1,4,0)
+296 ;;=4^Z68.28
+297 ;;^UTILITY(U,$J,358.3,476,2)
+298 ;;=^5063207
+299 ;;^UTILITY(U,$J,358.3,477,0)
+300 ;;=Z68.29^^7^50^10
+301 ;;^UTILITY(U,$J,358.3,477,1,0)
+302 ;;=^358.31IA^4^2
+303 ;;^UTILITY(U,$J,358.3,477,1,3,0)
+304 ;;=3^BMI 29.0-29.9
+305 ;;^UTILITY(U,$J,358.3,477,1,4,0)
+306 ;;=4^Z68.29
+307 ;;^UTILITY(U,$J,358.3,477,2)
+308 ;;=^5063208
+309 ;;^UTILITY(U,$J,358.3,478,0)
+310 ;;=Z68.30^^7^50^11
+311 ;;^UTILITY(U,$J,358.3,478,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,478,1,3,0)
+314 ;;=3^BMI 30.0-30.9
+315 ;;^UTILITY(U,$J,358.3,478,1,4,0)
+316 ;;=4^Z68.30
+317 ;;^UTILITY(U,$J,358.3,478,2)
+318 ;;=^5063209
+319 ;;^UTILITY(U,$J,358.3,479,0)
+320 ;;=Z68.31^^7^50^12
+321 ;;^UTILITY(U,$J,358.3,479,1,0)
+322 ;;=^358.31IA^4^2
+323 ;;^UTILITY(U,$J,358.3,479,1,3,0)
+324 ;;=3^BMI 31.0-31.9
+325 ;;^UTILITY(U,$J,358.3,479,1,4,0)
+326 ;;=4^Z68.31
+327 ;;^UTILITY(U,$J,358.3,479,2)
+328 ;;=^5063210
+329 ;;^UTILITY(U,$J,358.3,480,0)
+330 ;;=Z68.32^^7^50^13
+331 ;;^UTILITY(U,$J,358.3,480,1,0)
+332 ;;=^358.31IA^4^2
+333 ;;^UTILITY(U,$J,358.3,480,1,3,0)
+334 ;;=3^BMI 32.0-32.9
+335 ;;^UTILITY(U,$J,358.3,480,1,4,0)
+336 ;;=4^Z68.32
+337 ;;^UTILITY(U,$J,358.3,480,2)
+338 ;;=^5063211
+339 ;;^UTILITY(U,$J,358.3,481,0)
+340 ;;=Z68.33^^7^50^14
+341 ;;^UTILITY(U,$J,358.3,481,1,0)
+342 ;;=^358.31IA^4^2
+343 ;;^UTILITY(U,$J,358.3,481,1,3,0)
+344 ;;=3^BMI 33.0-33.9
+345 ;;^UTILITY(U,$J,358.3,481,1,4,0)
+346 ;;=4^Z68.33
+347 ;;^UTILITY(U,$J,358.3,481,2)
+348 ;;=^5063212
+349 ;;^UTILITY(U,$J,358.3,482,0)
+350 ;;=Z68.34^^7^50^15
+351 ;;^UTILITY(U,$J,358.3,482,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,482,1,3,0)
+354 ;;=3^BMI 34.0-34.9
+355 ;;^UTILITY(U,$J,358.3,482,1,4,0)
+356 ;;=4^Z68.34
+357 ;;^UTILITY(U,$J,358.3,482,2)
+358 ;;=^5063213
+359 ;;^UTILITY(U,$J,358.3,483,0)
+360 ;;=Z68.35^^7^50^16
+361 ;;^UTILITY(U,$J,358.3,483,1,0)
+362 ;;=^358.31IA^4^2
+363 ;;^UTILITY(U,$J,358.3,483,1,3,0)
+364 ;;=3^BMI 35.0-35.9
+365 ;;^UTILITY(U,$J,358.3,483,1,4,0)
+366 ;;=4^Z68.35
+367 ;;^UTILITY(U,$J,358.3,483,2)
+368 ;;=^5063214
+369 ;;^UTILITY(U,$J,358.3,484,0)
+370 ;;=Z68.36^^7^50^17
+371 ;;^UTILITY(U,$J,358.3,484,1,0)
+372 ;;=^358.31IA^4^2
+373 ;;^UTILITY(U,$J,358.3,484,1,3,0)
+374 ;;=3^BMI 36.0-36.9
+375 ;;^UTILITY(U,$J,358.3,484,1,4,0)
+376 ;;=4^Z68.36
+377 ;;^UTILITY(U,$J,358.3,484,2)
+378 ;;=^5063215
+379 ;;^UTILITY(U,$J,358.3,485,0)
+380 ;;=Z68.37^^7^50^18
+381 ;;^UTILITY(U,$J,358.3,485,1,0)
+382 ;;=^358.31IA^4^2
+383 ;;^UTILITY(U,$J,358.3,485,1,3,0)
+384 ;;=3^BMI 37.0-37.9
+385 ;;^UTILITY(U,$J,358.3,485,1,4,0)
+386 ;;=4^Z68.37
+387 ;;^UTILITY(U,$J,358.3,485,2)
+388 ;;=^5063216
+389 ;;^UTILITY(U,$J,358.3,486,0)
+390 ;;=Z68.38^^7^50^19
+391 ;;^UTILITY(U,$J,358.3,486,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,486,1,3,0)
+394 ;;=3^BMI 38.0-38.9
+395 ;;^UTILITY(U,$J,358.3,486,1,4,0)
+396 ;;=4^Z68.38
+397 ;;^UTILITY(U,$J,358.3,486,2)
+398 ;;=^5063217
+399 ;;^UTILITY(U,$J,358.3,487,0)
+400 ;;=Z68.39^^7^50^20
+401 ;;^UTILITY(U,$J,358.3,487,1,0)
+402 ;;=^358.31IA^4^2
+403 ;;^UTILITY(U,$J,358.3,487,1,3,0)
+404 ;;=3^BMI 39.0-39.9
+405 ;;^UTILITY(U,$J,358.3,487,1,4,0)
+406 ;;=4^Z68.39
+407 ;;^UTILITY(U,$J,358.3,487,2)
+408 ;;=^5063218
+409 ;;^UTILITY(U,$J,358.3,488,0)
+410 ;;=Z68.41^^7^50^21
+411 ;;^UTILITY(U,$J,358.3,488,1,0)
+412 ;;=^358.31IA^4^2
+413 ;;^UTILITY(U,$J,358.3,488,1,3,0)
+414 ;;=3^BMI 40.0-44.9
+415 ;;^UTILITY(U,$J,358.3,488,1,4,0)
+416 ;;=4^Z68.41
+417 ;;^UTILITY(U,$J,358.3,488,2)
+418 ;;=^5063219
+419 ;;^UTILITY(U,$J,358.3,489,0)
+420 ;;=Z68.42^^7^50^22
+421 ;;^UTILITY(U,$J,358.3,489,1,0)
+422 ;;=^358.31IA^4^2
+423 ;;^UTILITY(U,$J,358.3,489,1,3,0)
+424 ;;=3^BMI 45.0-49.9
+425 ;;^UTILITY(U,$J,358.3,489,1,4,0)
+426 ;;=4^Z68.42
+427 ;;^UTILITY(U,$J,358.3,489,2)
+428 ;;=^5063220
+429 ;;^UTILITY(U,$J,358.3,490,0)
+430 ;;=Z68.43^^7^50^23
+431 ;;^UTILITY(U,$J,358.3,490,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,490,1,3,0)
+434 ;;=3^BMI 50.0-59.9
+435 ;;^UTILITY(U,$J,358.3,490,1,4,0)
+436 ;;=4^Z68.43
+437 ;;^UTILITY(U,$J,358.3,490,2)
+438 ;;=^5063221
+439 ;;^UTILITY(U,$J,358.3,491,0)
+440 ;;=Z68.44^^7^50^24
+441 ;;^UTILITY(U,$J,358.3,491,1,0)
+442 ;;=^358.31IA^4^2
+443 ;;^UTILITY(U,$J,358.3,491,1,3,0)
+444 ;;=3^BMI 60.0-69.9
+445 ;;^UTILITY(U,$J,358.3,491,1,4,0)
+446 ;;=4^Z68.44
+447 ;;^UTILITY(U,$J,358.3,491,2)
+448 ;;=^5063222
+449 ;;^UTILITY(U,$J,358.3,492,0)
+450 ;;=Z68.45^^7^50^25
+451 ;;^UTILITY(U,$J,358.3,492,1,0)
+452 ;;=^358.31IA^4^2
+453 ;;^UTILITY(U,$J,358.3,492,1,3,0)
+454 ;;=3^BMI 70 or Greater
+455 ;;^UTILITY(U,$J,358.3,492,1,4,0)
+456 ;;=4^Z68.45
+457 ;;^UTILITY(U,$J,358.3,492,2)
+458 ;;=^5063223
+459 ;;^UTILITY(U,$J,358.3,493,0)
+460 ;;=A4220^^8^51^1^^^^1
+461 ;;^UTILITY(U,$J,358.3,493,1,0)
+462 ;;=^358.31IA^3^2
+463 ;;^UTILITY(U,$J,358.3,493,1,1,0)
+464 ;;=1^A4220
+465 ;;^UTILITY(U,$J,358.3,493,1,3,0)
+466 ;;=3^Infusion Pump Refill Kit
+467 ;;^UTILITY(U,$J,358.3,494,0)
+468 ;;=99195^^8^52^49^^^^1
+469 ;;^UTILITY(U,$J,358.3,494,1,0)
+470 ;;=^358.31IA^3^2
+471 ;;^UTILITY(U,$J,358.3,494,1,1,0)
+472 ;;=1^99195
+473 ;;^UTILITY(U,$J,358.3,494,1,3,0)
+474 ;;=3^Therapeutic Phlebotomy
+475 ;;^UTILITY(U,$J,358.3,495,0)
+476 ;;=96450^^8^52^21^^^^1
+477 ;;^UTILITY(U,$J,358.3,495,1,0)
+478 ;;=^358.31IA^3^2
+479 ;;^UTILITY(U,$J,358.3,495,1,1,0)
+480 ;;=1^96450
+481 ;;^UTILITY(U,$J,358.3,495,1,3,0)
+482 ;;=3^Chemotherapy, Into CNS
+483 ;;^UTILITY(U,$J,358.3,496,0)
+484 ;;=96420^^8^52^13^^^^1
+485 ;;^UTILITY(U,$J,358.3,496,1,0)
+486 ;;=^358.31IA^3^2
+487 ;;^UTILITY(U,$J,358.3,496,1,1,0)
+488 ;;=1^96420
+489 ;;^UTILITY(U,$J,358.3,496,1,3,0)
+490 ;;=3^Chemo,IA Push
+491 ;;^UTILITY(U,$J,358.3,497,0)
+492 ;;=96422^^8^52^10^^^^1
+493 ;;^UTILITY(U,$J,358.3,497,1,0)
+494 ;;=^358.31IA^3^2
+495 ;;^UTILITY(U,$J,358.3,497,1,1,0)
+496 ;;=1^96422
+497 ;;^UTILITY(U,$J,358.3,497,1,3,0)
+498 ;;=3^Chemo,IA Infus,1st hr
+499 ;;^UTILITY(U,$J,358.3,498,0)
+500 ;;=96405^^8^52^5^^^^1
+501 ;;^UTILITY(U,$J,358.3,498,1,0)
+502 ;;=^358.31IA^3^2
+503 ;;^UTILITY(U,$J,358.3,498,1,1,0)
+504 ;;=1^96405
+505 ;;^UTILITY(U,$J,358.3,498,1,3,0)
+506 ;;=3^Chemo Admin,Intralesional
+507 ;;^UTILITY(U,$J,358.3,499,0)
+508 ;;=96440^^8^52^8^^^^1
+509 ;;^UTILITY(U,$J,358.3,499,1,0)
+510 ;;=^358.31IA^3^2
+511 ;;^UTILITY(U,$J,358.3,499,1,1,0)
+512 ;;=1^96440
+513 ;;^UTILITY(U,$J,358.3,499,1,3,0)
+514 ;;=3^Chemo Admin,Pleural Cavity
+515 ;;^UTILITY(U,$J,358.3,500,0)
+516 ;;=96542^^8^52^9^^^^1
+517 ;;^UTILITY(U,$J,358.3,500,1,0)
+518 ;;=^358.31IA^3^2
+519 ;;^UTILITY(U,$J,358.3,500,1,1,0)
+520 ;;=1^96542
+521 ;;^UTILITY(U,$J,358.3,500,1,3,0)
+522 ;;=3^Chemo Inj Subarachnoid/Intravent via Reservoir
+523 ;;^UTILITY(U,$J,358.3,501,0)
+524 ;;=51720^^8^52^1^^^^1
+525 ;;^UTILITY(U,$J,358.3,501,1,0)
+526 ;;=^358.31IA^3^2
+527 ;;^UTILITY(U,$J,358.3,501,1,1,0)
+528 ;;=1^51720
+529 ;;^UTILITY(U,$J,358.3,501,1,3,0)
+530 ;;=3^Bladder Instill,Anticarcinogenic
+531 ;;^UTILITY(U,$J,358.3,502,0)
+532 ;;=96402^^8^52^22^^^^1
+533 ;;^UTILITY(U,$J,358.3,502,1,0)
+534 ;;=^358.31IA^3^2
+535 ;;^UTILITY(U,$J,358.3,502,1,1,0)
+536 ;;=1^96402
+537 ;;^UTILITY(U,$J,358.3,502,1,3,0)
+538 ;;=3^Chemotherapy,IM/SQ inj,Hormone
+539 ;;^UTILITY(U,$J,358.3,503,0)
+540 ;;=96401^^8^52^14^^^^1
+541 ;;^UTILITY(U,$J,358.3,503,1,0)
+542 ;;=^358.31IA^3^2
+543 ;;^UTILITY(U,$J,358.3,503,1,1,0)
+544 ;;=1^96401
+545 ;;^UTILITY(U,$J,358.3,503,1,3,0)
+546 ;;=3^Chemo,IM/SQ inj,non-hormonal
+547 ;;^UTILITY(U,$J,358.3,504,0)
+548 ;;=96409^^8^52^17^^^^1
+549 ;;^UTILITY(U,$J,358.3,504,1,0)
+550 ;;=^358.31IA^3^2
+551 ;;^UTILITY(U,$J,358.3,504,1,1,0)
+552 ;;=1^96409
+553 ;;^UTILITY(U,$J,358.3,504,1,3,0)
+554 ;;=3^Chemo,IV push,Init
+555 ;;^UTILITY(U,$J,358.3,505,0)
+556 ;;=96411^^8^52^18^^^^1
+557 ;;^UTILITY(U,$J,358.3,505,1,0)
+558 ;;=^358.31IA^3^2
+559 ;;^UTILITY(U,$J,358.3,505,1,1,0)
+560 ;;=1^96411
+561 ;;^UTILITY(U,$J,358.3,505,1,3,0)
+562 ;;=3^Chemo,IV push,Addl Drug
+563 ;;^UTILITY(U,$J,358.3,506,0)
+564 ;;=96413^^8^52^15^^^^1
+565 ;;^UTILITY(U,$J,358.3,506,1,0)
+566 ;;=^358.31IA^3^2
+567 ;;^UTILITY(U,$J,358.3,506,1,1,0)
+568 ;;=1^96413
+569 ;;^UTILITY(U,$J,358.3,506,1,3,0)
+570 ;;=3^Chemo,IV Infus,1st Hr
+571 ;;^UTILITY(U,$J,358.3,507,0)
+572 ;;=96417^^8^52^20^^^^1
+573 ;;^UTILITY(U,$J,358.3,507,1,0)
+574 ;;=^358.31IA^3^2
+575 ;;^UTILITY(U,$J,358.3,507,1,1,0)
+576 ;;=1^96417
+577 ;;^UTILITY(U,$J,358.3,507,1,3,0)
+578 ;;=3^Chemo,Infusn,ea add seql drug
+579 ;;^UTILITY(U,$J,358.3,508,0)
+580 ;;=96415^^8^52^16^^^^1
+581 ;;^UTILITY(U,$J,358.3,508,1,0)
+582 ;;=^358.31IA^3^2
+583 ;;^UTILITY(U,$J,358.3,508,1,1,0)
+584 ;;=1^96415
+585 ;;^UTILITY(U,$J,358.3,508,1,3,0)
+586 ;;=3^Chemo,IV Infus,Ea Addl Hr
+587 ;;^UTILITY(U,$J,358.3,509,0)
+588 ;;=96416^^8^52^19^^^^1
+589 ;;^UTILITY(U,$J,358.3,509,1,0)
+590 ;;=^358.31IA^3^2
+591 ;;^UTILITY(U,$J,358.3,509,1,1,0)
+592 ;;=1^96416
+593 ;;^UTILITY(U,$J,358.3,509,1,3,0)
+594 ;;=3^Chemo,IV w/Pump,Init > 8hr
+595 ;;^UTILITY(U,$J,358.3,510,0)
+596 ;;=96423^^8^52^11^^^^1
+597 ;;^UTILITY(U,$J,358.3,510,1,0)
+598 ;;=^358.31IA^3^2
+599 ;;^UTILITY(U,$J,358.3,510,1,1,0)
+600 ;;=1^96423
+601 ;;^UTILITY(U,$J,358.3,510,1,3,0)
+602 ;;=3^Chemo,IA Infus,Ea Addl hr
+603 ;;^UTILITY(U,$J,358.3,511,0)
+604 ;;=96425^^8^52^12^^^^1
+605 ;;^UTILITY(U,$J,358.3,511,1,0)
+606 ;;=^358.31IA^3^2
+607 ;;^UTILITY(U,$J,358.3,511,1,1,0)
+608 ;;=1^96425
+609 ;;^UTILITY(U,$J,358.3,511,1,3,0)
+610 ;;=3^Chemo,IA Init Pump >8hr
+611 ;;^UTILITY(U,$J,358.3,512,0)
+612 ;;=96360^^8^52^26^^^^1
+613 ;;^UTILITY(U,$J,358.3,512,1,0)
+614 ;;=^358.31IA^3^2
+615 ;;^UTILITY(U,$J,358.3,512,1,1,0)
+616 ;;=1^96360
+617 ;;^UTILITY(U,$J,358.3,512,1,3,0)
+618 ;;=3^Hydration IV Infusn,1st hr
+619 ;;^UTILITY(U,$J,358.3,513,0)
+620 ;;=96361^^8^52^27^^^^1
+621 ;;^UTILITY(U,$J,358.3,513,1,0)
+622 ;;=^358.31IA^3^2
+623 ;;^UTILITY(U,$J,358.3,513,1,1,0)
+624 ;;=1^96361
+625 ;;^UTILITY(U,$J,358.3,513,1,3,0)
+626 ;;=3^Hydration IV Infusn,Ea Addl Hr
+627 ;;^UTILITY(U,$J,358.3,514,0)
+628 ;;=96365^^8^52^45^^^^1
+629 ;;^UTILITY(U,$J,358.3,514,1,0)
+630 ;;=^358.31IA^3^2
+631 ;;^UTILITY(U,$J,358.3,514,1,1,0)
+632 ;;=1^96365
+633 ;;^UTILITY(U,$J,358.3,514,1,3,0)
+634 ;;=3^Ther/Diag/Proph,IV Infusn,1st hr
+635 ;;^UTILITY(U,$J,358.3,515,0)
+636 ;;=96366^^8^52^44^^^^1
+637 ;;^UTILITY(U,$J,358.3,515,1,0)
+638 ;;=^358.31IA^3^2
+639 ;;^UTILITY(U,$J,358.3,515,1,1,0)
+640 ;;=1^96366
+641 ;;^UTILITY(U,$J,358.3,515,1,3,0)
+642 ;;=3^Ther/Diag/Proph,IV Infus,Ea Addl Hr
+643 ;;^UTILITY(U,$J,358.3,516,0)
+644 ;;=96372^^8^52^40^^^^1
+645 ;;^UTILITY(U,$J,358.3,516,1,0)
+646 ;;=^358.31IA^3^2
+647 ;;^UTILITY(U,$J,358.3,516,1,1,0)
+648 ;;=1^96372
+649 ;;^UTILITY(U,$J,358.3,516,1,3,0)
+650 ;;=3^Ther/Diag/Proph IM/SQ injection
+651 ;;^UTILITY(U,$J,358.3,517,0)
+652 ;;=96374^^8^52^43^^^^1
+653 ;;^UTILITY(U,$J,358.3,517,1,0)
+654 ;;=^358.31IA^3^2
+655 ;;^UTILITY(U,$J,358.3,517,1,1,0)
+656 ;;=1^96374
+657 ;;^UTILITY(U,$J,358.3,517,1,3,0)
+658 ;;=3^Ther/Diag/Proph IV push,1st hr
+659 ;;^UTILITY(U,$J,358.3,518,0)
+660 ;;=96375^^8^52^42^^^^1
+661 ;;^UTILITY(U,$J,358.3,518,1,0)
+662 ;;=^358.31IA^3^2
+663 ;;^UTILITY(U,$J,358.3,518,1,1,0)
+664 ;;=1^96375
+665 ;;^UTILITY(U,$J,358.3,518,1,3,0)
+666 ;;=3^Ther/Diag/Proph IV push ea add seql,new drug
+667 ;;^UTILITY(U,$J,358.3,519,0)
+668 ;;=96367^^8^52^46^^^^1
+669 ;;^UTILITY(U,$J,358.3,519,1,0)
+670 ;;=^358.31IA^3^2
+671 ;;^UTILITY(U,$J,358.3,519,1,1,0)
+672 ;;=1^96367
+673 ;;^UTILITY(U,$J,358.3,519,1,3,0)
+674 ;;=3^Ther/Diag/Proph,IV Infusn,Ea add hr seql
+675 ;;^UTILITY(U,$J,358.3,520,0)
+676 ;;=96368^^8^52^41^^^^1
+677 ;;^UTILITY(U,$J,358.3,520,1,0)
+678 ;;=^358.31IA^3^2
+679 ;;^UTILITY(U,$J,358.3,520,1,1,0)
+680 ;;=1^96368
+681 ;;^UTILITY(U,$J,358.3,520,1,3,0)
+682 ;;=3^Ther/Diag/Proph IV Infus, Concurrent
+683 ;;^UTILITY(U,$J,358.3,521,0)
+684 ;;=96446^^8^52^7^^^^1
+685 ;;^UTILITY(U,$J,358.3,521,1,0)
+686 ;;=^358.31IA^3^2
+687 ;;^UTILITY(U,$J,358.3,521,1,1,0)
+688 ;;=1^96446
+689 ;;^UTILITY(U,$J,358.3,521,1,3,0)
+690 ;;=3^Chemo Admin,Peritoneal Cavity
+691 ;;^UTILITY(U,$J,358.3,522,0)
+692 ;;=36415^^8^52^36^^^^1
+693 ;;^UTILITY(U,$J,358.3,522,1,0)
+694 ;;=^358.31IA^3^2
+695 ;;^UTILITY(U,$J,358.3,522,1,1,0)
+696 ;;=1^36415
+697 ;;^UTILITY(U,$J,358.3,522,1,3,0)
+698 ;;=3^Routine Venipuncture
+699 ;;^UTILITY(U,$J,358.3,523,0)
+700 ;;=36430^^8^52^4^^^^1
+701 ;;^UTILITY(U,$J,358.3,523,1,0)
+702 ;;=^358.31IA^3^2
+703 ;;^UTILITY(U,$J,358.3,523,1,1,0)
+704 ;;=1^36430
+705 ;;^UTILITY(U,$J,358.3,523,1,3,0)
+706 ;;=3^Blood Transfusion Service
+707 ;;^UTILITY(U,$J,358.3,524,0)
+708 ;;=96373^^8^52^48^^^^1
+709 ;;^UTILITY(U,$J,358.3,524,1,0)
+710 ;;=^358.31IA^3^2
+711 ;;^UTILITY(U,$J,358.3,524,1,1,0)
+712 ;;=1^96373
+713 ;;^UTILITY(U,$J,358.3,524,1,3,0)
+714 ;;=3^Ther/Proph/Diag Inj,IA
+715 ;;^UTILITY(U,$J,358.3,525,0)
+716 ;;=96379^^8^52^47^^^^1
+717 ;;^UTILITY(U,$J,358.3,525,1,0)
+718 ;;=^358.31IA^3^2
+719 ;;^UTILITY(U,$J,358.3,525,1,1,0)
+720 ;;=1^96379
+721 ;;^UTILITY(U,$J,358.3,525,1,3,0)
+722 ;;=3^Ther/Prop/Diag Inj/Inf Proc
+723 ;;^UTILITY(U,$J,358.3,526,0)
+724 ;;=36000^^8^52^31^^^^1
+725 ;;^UTILITY(U,$J,358.3,526,1,0)
+726 ;;=^358.31IA^3^2
