IBDEI03C ; ; 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,7961,1,3,0)
;;=3^ERCP w/ Stent Placement
;;^UTILITY(U,$J,358.3,7962,0)
;;=43276^^43^403^11^^^^1
;;^UTILITY(U,$J,358.3,7962,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7962,1,2,0)
;;=2^43276
;;^UTILITY(U,$J,358.3,7962,1,3,0)
;;=3^ERCP w/ Stent Change or Removal
;;^UTILITY(U,$J,358.3,7963,0)
;;=43277^^43^403^6^^^^1
;;^UTILITY(U,$J,358.3,7963,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7963,1,2,0)
;;=2^43277
;;^UTILITY(U,$J,358.3,7963,1,3,0)
;;=3^ERCP w/ Dilation
;;^UTILITY(U,$J,358.3,7964,0)
;;=43278^^43^403^2^^^^1
;;^UTILITY(U,$J,358.3,7964,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7964,1,2,0)
;;=2^43278
;;^UTILITY(U,$J,358.3,7964,1,3,0)
;;=3^ERCP w/ Ablation
;;^UTILITY(U,$J,358.3,7965,0)
;;=43275^^43^403^8^^^^1
;;^UTILITY(U,$J,358.3,7965,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7965,1,2,0)
;;=2^43275
;;^UTILITY(U,$J,358.3,7965,1,3,0)
;;=3^ERCP w/ Foreign Body or Stent Removal
;;^UTILITY(U,$J,358.3,7966,0)
;;=48148^^43^403^1^^^^1
;;^UTILITY(U,$J,358.3,7966,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7966,1,2,0)
;;=2^48148
;;^UTILITY(U,$J,358.3,7966,1,3,0)
;;=3^Ampullectomy
;;^UTILITY(U,$J,358.3,7967,0)
;;=74328^^43^403^14^^^^1
;;^UTILITY(U,$J,358.3,7967,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7967,1,2,0)
;;=2^74328
;;^UTILITY(U,$J,358.3,7967,1,3,0)
;;=3^Fluoroscopy,Bile Duct
;;^UTILITY(U,$J,358.3,7968,0)
;;=74329^^43^403^16^^^^1
;;^UTILITY(U,$J,358.3,7968,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7968,1,2,0)
;;=2^74329
;;^UTILITY(U,$J,358.3,7968,1,3,0)
;;=3^Fluoroscopy,Pancreatic Duct
;;^UTILITY(U,$J,358.3,7969,0)
;;=74330^^43^403^15^^^^1
;;^UTILITY(U,$J,358.3,7969,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7969,1,2,0)
;;=2^74330
;;^UTILITY(U,$J,358.3,7969,1,3,0)
;;=3^Fluoroscopy,Bile and Pancreatic Ducts
;;^UTILITY(U,$J,358.3,7970,0)
;;=43246^^43^404^1^^^^1
;;^UTILITY(U,$J,358.3,7970,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7970,1,2,0)
;;=2^43246
;;^UTILITY(U,$J,358.3,7970,1,3,0)
;;=3^EGD w/ Percutaneous G-Tube Placement
;;^UTILITY(U,$J,358.3,7971,0)
;;=44373^^43^404^2^^^^1
;;^UTILITY(U,$J,358.3,7971,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7971,1,2,0)
;;=2^44373
;;^UTILITY(U,$J,358.3,7971,1,3,0)
;;=3^Enteroscopy w/ Conversion of G-Tube to J-Tube
;;^UTILITY(U,$J,358.3,7972,0)
;;=44372^^43^404^3^^^^1
;;^UTILITY(U,$J,358.3,7972,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7972,1,2,0)
;;=2^44372
;;^UTILITY(U,$J,358.3,7972,1,3,0)
;;=3^Enteroscopy w/ Percutaneous J-Tube Placement
;;^UTILITY(U,$J,358.3,7973,0)
;;=43762^^43^404^4^^^^1
;;^UTILITY(U,$J,358.3,7973,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7973,1,2,0)
;;=2^43762
;;^UTILITY(U,$J,358.3,7973,1,3,0)
;;=3^G-Tube Change
;;^UTILITY(U,$J,358.3,7974,0)
;;=43763^^43^404^5^^^^1
;;^UTILITY(U,$J,358.3,7974,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7974,1,2,0)
;;=2^43763
;;^UTILITY(U,$J,358.3,7974,1,3,0)
;;=3^G-Tube Change Rev of Gastrostomy
;;^UTILITY(U,$J,358.3,7975,0)
;;=91111^^43^405^4^^^^1
;;^UTILITY(U,$J,358.3,7975,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7975,1,2,0)
;;=2^91111
;;^UTILITY(U,$J,358.3,7975,1,3,0)
;;=3^GI Tract Imaging,Intraluminal,Esophagus,Int & Rpt
;;^UTILITY(U,$J,358.3,7976,0)
;;=91110^^43^405^5^^^^1
;;^UTILITY(U,$J,358.3,7976,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7976,1,2,0)
;;=2^91110
;;^UTILITY(U,$J,358.3,7976,1,3,0)
;;=3^GI Tract Imaging,Intraluminal,Esophagus-Ileum,Int & Rpt
;;^UTILITY(U,$J,358.3,7977,0)
;;=91120^^43^405^9^^^^1
;;^UTILITY(U,$J,358.3,7977,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7977,1,2,0)
;;=2^91120
;;^UTILITY(U,$J,358.3,7977,1,3,0)
;;=3^Rectal Sensation Test
;;^UTILITY(U,$J,358.3,7978,0)
;;=91065^^43^405^8^^^^1
;;^UTILITY(U,$J,358.3,7978,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7978,1,2,0)
;;=2^91065
;;^UTILITY(U,$J,358.3,7978,1,3,0)
;;=3^Hydrogen Breath Test
;;^UTILITY(U,$J,358.3,7979,0)
;;=46600^^43^405^2^^^^1
;;^UTILITY(U,$J,358.3,7979,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7979,1,2,0)
;;=2^46600
;;^UTILITY(U,$J,358.3,7979,1,3,0)
;;=3^Anoscopy,Diagnostic
;;^UTILITY(U,$J,358.3,7980,0)
;;=44705^^43^405^3^^^^1
;;^UTILITY(U,$J,358.3,7980,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7980,1,2,0)
;;=2^44705
;;^UTILITY(U,$J,358.3,7980,1,3,0)
;;=3^Fecal Microbiota Transplantation
;;^UTILITY(U,$J,358.3,7981,0)
;;=87077^^43^405^1^^^^1
;;^UTILITY(U,$J,358.3,7981,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7981,1,2,0)
;;=2^87077
;;^UTILITY(U,$J,358.3,7981,1,3,0)
;;=3^Aerobic Isolate,Ea Isolate Test
;;^UTILITY(U,$J,358.3,7982,0)
;;=46221^^43^405^7^^^^1
;;^UTILITY(U,$J,358.3,7982,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7982,1,2,0)
;;=2^46221
;;^UTILITY(U,$J,358.3,7982,1,3,0)
;;=3^Hemorrhoidectomy by Rubber Band Ligation
;;^UTILITY(U,$J,358.3,7983,0)
;;=83013^^43^405^6^^^^1
;;^UTILITY(U,$J,358.3,7983,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7983,1,2,0)
;;=2^83013
;;^UTILITY(U,$J,358.3,7983,1,3,0)
;;=3^H Pylori Urea Breath Test
;;^UTILITY(U,$J,358.3,7984,0)
;;=96372^^43^405^10^^^^1
;;^UTILITY(U,$J,358.3,7984,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7984,1,2,0)
;;=2^96372
;;^UTILITY(U,$J,358.3,7984,1,3,0)
;;=3^Subcutaneous or Intramuscular Injection
;;^UTILITY(U,$J,358.3,7985,0)
;;=90471^^43^406^1^^^^1
;;^UTILITY(U,$J,358.3,7985,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7985,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,7985,1,3,0)
;;=3^Immunization Admin,1 Vaccine
;;^UTILITY(U,$J,358.3,7986,0)
;;=90472^^43^406^2^^^^1
;;^UTILITY(U,$J,358.3,7986,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7986,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,7986,1,3,0)
;;=3^Immunization Admin,Ea Addl
;;^UTILITY(U,$J,358.3,7987,0)
;;=90632^^43^406^7^^^^1
;;^UTILITY(U,$J,358.3,7987,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7987,1,2,0)
;;=2^90632
;;^UTILITY(U,$J,358.3,7987,1,3,0)
;;=3^Hepatitis A Vaccine
;;^UTILITY(U,$J,358.3,7988,0)
;;=90746^^43^406^11^^^^1
;;^UTILITY(U,$J,358.3,7988,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7988,1,2,0)
;;=2^90746
;;^UTILITY(U,$J,358.3,7988,1,3,0)
;;=3^Hepatitis B Vaccine,3 Dose Schedule
;;^UTILITY(U,$J,358.3,7989,0)
;;=90747^^43^406^13^^^^1
;;^UTILITY(U,$J,358.3,7989,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7989,1,2,0)
;;=2^90747
;;^UTILITY(U,$J,358.3,7989,1,3,0)
;;=3^Hepatitis B Vaccine,Dialysis/Immunosupp,4 Dose
;;^UTILITY(U,$J,358.3,7990,0)
;;=90636^^43^406^6^^^^1
;;^UTILITY(U,$J,358.3,7990,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7990,1,2,0)
;;=2^90636
;;^UTILITY(U,$J,358.3,7990,1,3,0)
;;=3^Hepatitis A & B Combination Vaccine
;;^UTILITY(U,$J,358.3,7991,0)
;;=4155F^^43^406^8^^^^1
;;^UTILITY(U,$J,358.3,7991,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7991,1,2,0)
;;=2^4155F
;;^UTILITY(U,$J,358.3,7991,1,3,0)
;;=3^Hepatitis A Vaccine Previously Received
;;^UTILITY(U,$J,358.3,7992,0)
;;=G0010^^43^406^9^^^^1
;;^UTILITY(U,$J,358.3,7992,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7992,1,2,0)
;;=2^G0010
;;^UTILITY(U,$J,358.3,7992,1,3,0)
;;=3^Hepatitis B Vaccine,Admin
;;^UTILITY(U,$J,358.3,7993,0)
;;=90739^^43^406^10^^^^1
;;^UTILITY(U,$J,358.3,7993,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7993,1,2,0)
;;=2^90739
;;^UTILITY(U,$J,358.3,7993,1,3,0)
;;=3^Hepatitis B Vaccine,2 Dose Schedule
;;^UTILITY(U,$J,358.3,7994,0)
;;=90740^^43^406^12^^^^1
;;^UTILITY(U,$J,358.3,7994,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7994,1,2,0)
;;=2^90740
;;^UTILITY(U,$J,358.3,7994,1,3,0)
;;=3^Hepatitis B Vaccine,Dialysis/Immunosupp,3 Dose
;;^UTILITY(U,$J,358.3,7995,0)
;;=90688^^43^406^4^^^^1
;;^UTILITY(U,$J,358.3,7995,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7995,1,2,0)
;;=2^90688
;;^UTILITY(U,$J,358.3,7995,1,3,0)
;;=3^Fluzone Multi-Dose Quadrivalent
;;^UTILITY(U,$J,358.3,7996,0)
;;=90662^^43^406^5^^^^1
;;^UTILITY(U,$J,358.3,7996,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7996,1,2,0)
;;=2^90662
;;^UTILITY(U,$J,358.3,7996,1,3,0)
;;=3^Fluzone Single Dose Quadrivalent
;;^UTILITY(U,$J,358.3,7997,0)
;;=90686^^43^406^3^^^^1
;;^UTILITY(U,$J,358.3,7997,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7997,1,2,0)
;;=2^90686
;;^UTILITY(U,$J,358.3,7997,1,3,0)
;;=3^Fluarix Single Dose
;;^UTILITY(U,$J,358.3,7998,0)
;;=91037^^43^407^5^^^^1
;;^UTILITY(U,$J,358.3,7998,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7998,1,2,0)
;;=2^91037
;;^UTILITY(U,$J,358.3,7998,1,3,0)
;;=3^Esoph Imped Funct Test < 1hr
;;^UTILITY(U,$J,358.3,7999,0)
;;=91038^^43^407^6^^^^1
;;^UTILITY(U,$J,358.3,7999,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,7999,1,2,0)
;;=2^91038
;;^UTILITY(U,$J,358.3,7999,1,3,0)
;;=3^Esoph Imped Funct Test > 1hr
;;^UTILITY(U,$J,358.3,8000,0)
;;=91010^^43^407^7^^^^1
;;^UTILITY(U,$J,358.3,8000,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8000,1,2,0)
;;=2^91010
;;^UTILITY(U,$J,358.3,8000,1,3,0)
;;=3^Esophageal Manometry Study
;;^UTILITY(U,$J,358.3,8001,0)
;;=91034^^43^407^10^^^^1
;;^UTILITY(U,$J,358.3,8001,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8001,1,2,0)
;;=2^91034
;;^UTILITY(U,$J,358.3,8001,1,3,0)
;;=3^Nasal pH probe placement & pH Study
;;^UTILITY(U,$J,358.3,8002,0)
;;=91030^^43^407^1^^^^1
;;^UTILITY(U,$J,358.3,8002,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8002,1,2,0)
;;=2^91030
;;^UTILITY(U,$J,358.3,8002,1,3,0)
;;=3^Acid Perfusion of Esophagus
;;^UTILITY(U,$J,358.3,8003,0)
;;=91013^^43^407^8^^^^1
;;^UTILITY(U,$J,358.3,8003,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8003,1,2,0)
;;=2^91013
;;^UTILITY(U,$J,358.3,8003,1,3,0)
;;=3^Esophageal Motility w/ Stim/Perfusion
;;^UTILITY(U,$J,358.3,8004,0)
;;=91112^^43^407^9^^^^1
;;^UTILITY(U,$J,358.3,8004,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8004,1,2,0)
;;=2^91112
;;^UTILITY(U,$J,358.3,8004,1,3,0)
;;=3^GI Tract Pressure,pH,Temp & Transit Study
;;^UTILITY(U,$J,358.3,8005,0)
;;=91122^^43^407^2^^^^1
;;^UTILITY(U,$J,358.3,8005,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8005,1,2,0)
;;=2^91122
;;^UTILITY(U,$J,358.3,8005,1,3,0)
;;=3^Anorectal Manometry
;;^UTILITY(U,$J,358.3,8006,0)
;;=90912^^43^407^3^^^^1
;;^UTILITY(U,$J,358.3,8006,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8006,1,2,0)
;;=2^90912
;;^UTILITY(U,$J,358.3,8006,1,3,0)
;;=3^Biofeedback Trng,1st 15 min
;;^UTILITY(U,$J,358.3,8007,0)
;;=90913^^43^407^4^^^^1
;;^UTILITY(U,$J,358.3,8007,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8007,1,2,0)
;;=2^90913
;;^UTILITY(U,$J,358.3,8007,1,3,0)
;;=3^Biofeedback Trng,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,8008,0)
;;=45391^^43^408^2^^^^1
;;^UTILITY(U,$J,358.3,8008,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8008,1,2,0)
;;=2^45391
;;^UTILITY(U,$J,358.3,8008,1,3,0)
;;=3^Colonoscopy w/ EUS
;;^UTILITY(U,$J,358.3,8009,0)
;;=45392^^43^408^3^^^^1
;;^UTILITY(U,$J,358.3,8009,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8009,1,2,0)
;;=2^45392
;;^UTILITY(U,$J,358.3,8009,1,3,0)
;;=3^Colonoscopy w/ EUS & FNA
;;^UTILITY(U,$J,358.3,8010,0)
;;=43259^^43^408^4^^^^1
;;^UTILITY(U,$J,358.3,8010,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8010,1,2,0)
;;=2^43259
;;^UTILITY(U,$J,358.3,8010,1,3,0)
;;=3^EGD w/ EUS
;;^UTILITY(U,$J,358.3,8011,0)
;;=43238^^43^408^1^^^^1
;;^UTILITY(U,$J,358.3,8011,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8011,1,2,0)
;;=2^43238
;;^UTILITY(U,$J,358.3,8011,1,3,0)
;;=3
;;^UTILITY(U,$J,358.3,8012,0)
;;=43238^^43^408^5^^^^1
;;^UTILITY(U,$J,358.3,8012,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8012,1,2,0)
;;=2^43238
;;^UTILITY(U,$J,358.3,8012,1,3,0)
;;=3^EGD w/ EUS & FNA
;;^UTILITY(U,$J,358.3,8013,0)
;;=43253^^43^408^7^^^^1
;;^UTILITY(U,$J,358.3,8013,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8013,1,2,0)
;;=2^43253
;;^UTILITY(U,$J,358.3,8013,1,3,0)
;;=3^EGD w/ EUS & Therapeutic Injection
;;^UTILITY(U,$J,358.3,8014,0)
;;=43240^^43^408^6^^^^1
;;^UTILITY(U,$J,358.3,8014,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8014,1,2,0)
;;=2^43240
;;^UTILITY(U,$J,358.3,8014,1,3,0)
;;=3^EGD w/ EUS & Pseudocyst Drainage
;;^UTILITY(U,$J,358.3,8015,0)
;;=45341^^43^408^8^^^^1
;;^UTILITY(U,$J,358.3,8015,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8015,1,2,0)
;;=2^45341
;;^UTILITY(U,$J,358.3,8015,1,3,0)
;;=3^Flex Sig w/ EUS
;;^UTILITY(U,$J,358.3,8016,0)
;;=45342^^43^408^9^^^^1
;;^UTILITY(U,$J,358.3,8016,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8016,1,2,0)
;;=2^45342
;;^UTILITY(U,$J,358.3,8016,1,3,0)
;;=3^Flex Sig w/ EUS & FNA
;;^UTILITY(U,$J,358.3,8017,0)
;;=49083^^43^409^1^^^^1
;;^UTILITY(U,$J,358.3,8017,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8017,1,2,0)
;;=2^49083
;;^UTILITY(U,$J,358.3,8017,1,3,0)
;;=3^Abd Paracentesis w/ Imag Guide
;;^UTILITY(U,$J,358.3,8018,0)
;;=49082^^43^409^2^^^^1
;;^UTILITY(U,$J,358.3,8018,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8018,1,2,0)
;;=2^49082
;;^UTILITY(U,$J,358.3,8018,1,3,0)
;;=3^Abd Paracentesis w/o Imag Guide
;;^UTILITY(U,$J,358.3,8019,0)
;;=43460^^43^409^3^^^^1
;;^UTILITY(U,$J,358.3,8019,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8019,1,2,0)
;;=2^43460
;;^UTILITY(U,$J,358.3,8019,1,3,0)
;;=3^Esophagogastric Tamponade w/ Balloon
;;^UTILITY(U,$J,358.3,8020,0)
;;=47000^^43^409^4^^^^1
;;^UTILITY(U,$J,358.3,8020,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8020,1,2,0)
;;=2^47000
;;^UTILITY(U,$J,358.3,8020,1,3,0)
;;=3^Liver Biopsy,Percutaneous
;;^UTILITY(U,$J,358.3,8021,0)
;;=91200^^43^409^5^^^^1
;;^UTILITY(U,$J,358.3,8021,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8021,1,2,0)
;;=2^91200
;;^UTILITY(U,$J,358.3,8021,1,3,0)
;;=3^Transient Shear Wave Elastography
;;^UTILITY(U,$J,358.3,8022,0)
;;=99078^^43^409^6^^^^1
;;^UTILITY(U,$J,358.3,8022,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8022,1,2,0)
;;=2^99078
;;^UTILITY(U,$J,358.3,8022,1,3,0)
;;=3^Education Session,Group
;;^UTILITY(U,$J,358.3,8023,0)
;;=99152^^43^410^1^^^^1
;;^UTILITY(U,$J,358.3,8023,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8023,1,2,0)
;;=2^99152
;;^UTILITY(U,$J,358.3,8023,1,3,0)
;;=3^Same Provider Performing Procedure,Init 15 min
;;^UTILITY(U,$J,358.3,8024,0)
;;=99153^^43^410^2^^^^1
;;^UTILITY(U,$J,358.3,8024,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8024,1,2,0)
;;=2^99153
;;^UTILITY(U,$J,358.3,8024,1,3,0)
;;=3^Same Provider Performing Procedure,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,8025,0)
;;=99156^^43^410^3^^^^1
;;^UTILITY(U,$J,358.3,8025,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8025,1,2,0)
;;=2^99156
;;^UTILITY(U,$J,358.3,8025,1,3,0)
;;=3^Different Provider Performing Proc,Init 15 min
;;^UTILITY(U,$J,358.3,8026,0)
;;=99157^^43^410^4^^^^1
;;^UTILITY(U,$J,358.3,8026,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8026,1,2,0)
;;=2^99157
;;^UTILITY(U,$J,358.3,8026,1,3,0)
;;=3^Different Provider Performing Proc,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,8027,0)
;;=D9223^^43^410^6^^^^1
;;^UTILITY(U,$J,358.3,8027,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8027,1,2,0)
;;=2^D9223
;;^UTILITY(U,$J,358.3,8027,1,3,0)
;;=3^Deep Sedation/General Anes,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,8028,0)
;;=D9222^^43^410^5^^^^1
;;^UTILITY(U,$J,358.3,8028,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8028,1,2,0)
;;=2^D9222
;;^UTILITY(U,$J,358.3,8028,1,3,0)
;;=3^Deep Sedation/General Anes,1st 15 min
;;^UTILITY(U,$J,358.3,8029,0)
;;=45380^^43^411^1^^^^1
;;^UTILITY(U,$J,358.3,8029,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8029,1,2,0)
;;=2^45380
;;^UTILITY(U,$J,358.3,8029,1,3,0)
;;=3^Colonoscopy w/ Biopsy
;;^UTILITY(U,$J,358.3,8030,0)
;;=99152^^43^411^8^^^^1
;;^UTILITY(U,$J,358.3,8030,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8030,1,2,0)
;;=2^99152
;;^UTILITY(U,$J,358.3,8030,1,3,0)
;;=3^Same Provider Performing Procedure,1st 15 min
;;^UTILITY(U,$J,358.3,8031,0)
;;=99153^^43^411^9^^^^1
;;^UTILITY(U,$J,358.3,8031,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8031,1,2,0)
;;=2^99153
;;^UTILITY(U,$J,358.3,8031,1,3,0)
;;=3^Same Provider Performing Procedure,Ea Addl 15 min
;;^UTILITY(U,$J,358.3,8032,0)
;;=J2250^^43^411^7^^^^1
;;^UTILITY(U,$J,358.3,8032,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8032,1,2,0)
;;=2^J2250
;;^UTILITY(U,$J,358.3,8032,1,3,0)
;;=3^Midazolam HCL,per 1mg
;;^UTILITY(U,$J,358.3,8032,3,0)
;;=^357.33^1^1
;;^UTILITY(U,$J,358.3,8032,3,1,0)
;;=JA
;;^UTILITY(U,$J,358.3,8033,0)
;;=J2175^^43^411^6^^^^1
;;^UTILITY(U,$J,358.3,8033,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8033,1,2,0)
;;=2^J2175
;;^UTILITY(U,$J,358.3,8033,1,3,0)
;;=3^Meperidine HCL,per 100mg
;;^UTILITY(U,$J,358.3,8033,3,0)
;;=^357.33^1^1
;;^UTILITY(U,$J,358.3,8033,3,1,0)
;;=JA
;;^UTILITY(U,$J,358.3,8034,0)
;;=43239^^43^411^4^^^^1
;;^UTILITY(U,$J,358.3,8034,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8034,1,2,0)
;;=2^43239
;;^UTILITY(U,$J,358.3,8034,1,3,0)
;;=3^EGD w/ Biopsy
;;^UTILITY(U,$J,358.3,8035,0)
;;=45378^^43^411^3^^^^1
;;^UTILITY(U,$J,358.3,8035,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8035,1,2,0)
;;=2^45378
;;^UTILITY(U,$J,358.3,8035,1,3,0)
;;=3^Colonoscopy,Diagnostic
;;^UTILITY(U,$J,358.3,8036,0)
;;=45385^^43^411^2^^^^1
;;^UTILITY(U,$J,358.3,8036,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8036,1,2,0)
;;=2^45385
;;^UTILITY(U,$J,358.3,8036,1,3,0)
;;=3^Colonoscopy w/ Snare
;;^UTILITY(U,$J,358.3,8037,0)
;;=J3010^^43^411^5^^^^1
;;^UTILITY(U,$J,358.3,8037,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8037,1,2,0)
;;=2^J3010
;;^UTILITY(U,$J,358.3,8037,1,3,0)
;;=3^Fentanyl Citrate,per 0.1mg
;;^UTILITY(U,$J,358.3,8038,0)
;;=99417^^43^412^1^^^^1
;;^UTILITY(U,$J,358.3,8038,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8038,1,2,0)
;;=2^99417
;;^UTILITY(U,$J,358.3,8038,1,3,0)
;;=3^Prolonged Svc,Ea 15min;Only w/ 99205 or 99215
;;^UTILITY(U,$J,358.3,8039,0)
;;=44380^^43^413^2^^^^1
;;^UTILITY(U,$J,358.3,8039,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8039,1,2,0)
;;=2^44380
;;^UTILITY(U,$J,358.3,8039,1,3,0)
;;=3^Ileoscopy via Stoma,Diagnostic
;;^UTILITY(U,$J,358.3,8040,0)
;;=44382^^43^413^1^^^^1
;;^UTILITY(U,$J,358.3,8040,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,8040,1,2,0)
;;=2^44382
;;^UTILITY(U,$J,358.3,8040,1,3,0)
;;=3^Ileoscopy via Stoma w/ Transendo Balloon Dilation
;;^UTILITY(U,$J,358.3,8041,0)
;;=99341^^44^414^1
;;^UTILITY(U,$J,358.3,8041,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,8041,1,1,0)
;;=1^PROBLEM FOCUSED VISIT
;;^UTILITY(U,$J,358.3,8041,1,2,0)
;;=2^99341
;;^UTILITY(U,$J,358.3,8042,0)
;;=99342^^44^414^2
;;^UTILITY(U,$J,358.3,8042,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,8042,1,1,0)
;;=1^EXP PROBLEM FOCUSED VISIT
;;^UTILITY(U,$J,358.3,8042,1,2,0)
;;=2^99342
;;^UTILITY(U,$J,358.3,8043,0)
;;=99343^^44^414^3
;;^UTILITY(U,$J,358.3,8043,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,8043,1,1,0)
;;=1^DETAILED VISIT
;;^UTILITY(U,$J,358.3,8043,1,2,0)
;;=2^99343
;;^UTILITY(U,$J,358.3,8044,0)
;;=99344^^44^414^4
;;^UTILITY(U,$J,358.3,8044,1,0)
;;=^358.31IA^2^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI03C 19796 printed Sep 23, 2025@19:16:47 Page 2
IBDEI03C ; ; 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,7961,1,3,0)
+2 ;;=3^ERCP w/ Stent Placement
+3 ;;^UTILITY(U,$J,358.3,7962,0)
+4 ;;=43276^^43^403^11^^^^1
+5 ;;^UTILITY(U,$J,358.3,7962,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,7962,1,2,0)
+8 ;;=2^43276
+9 ;;^UTILITY(U,$J,358.3,7962,1,3,0)
+10 ;;=3^ERCP w/ Stent Change or Removal
+11 ;;^UTILITY(U,$J,358.3,7963,0)
+12 ;;=43277^^43^403^6^^^^1
+13 ;;^UTILITY(U,$J,358.3,7963,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,7963,1,2,0)
+16 ;;=2^43277
+17 ;;^UTILITY(U,$J,358.3,7963,1,3,0)
+18 ;;=3^ERCP w/ Dilation
+19 ;;^UTILITY(U,$J,358.3,7964,0)
+20 ;;=43278^^43^403^2^^^^1
+21 ;;^UTILITY(U,$J,358.3,7964,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,7964,1,2,0)
+24 ;;=2^43278
+25 ;;^UTILITY(U,$J,358.3,7964,1,3,0)
+26 ;;=3^ERCP w/ Ablation
+27 ;;^UTILITY(U,$J,358.3,7965,0)
+28 ;;=43275^^43^403^8^^^^1
+29 ;;^UTILITY(U,$J,358.3,7965,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,7965,1,2,0)
+32 ;;=2^43275
+33 ;;^UTILITY(U,$J,358.3,7965,1,3,0)
+34 ;;=3^ERCP w/ Foreign Body or Stent Removal
+35 ;;^UTILITY(U,$J,358.3,7966,0)
+36 ;;=48148^^43^403^1^^^^1
+37 ;;^UTILITY(U,$J,358.3,7966,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,7966,1,2,0)
+40 ;;=2^48148
+41 ;;^UTILITY(U,$J,358.3,7966,1,3,0)
+42 ;;=3^Ampullectomy
+43 ;;^UTILITY(U,$J,358.3,7967,0)
+44 ;;=74328^^43^403^14^^^^1
+45 ;;^UTILITY(U,$J,358.3,7967,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,7967,1,2,0)
+48 ;;=2^74328
+49 ;;^UTILITY(U,$J,358.3,7967,1,3,0)
+50 ;;=3^Fluoroscopy,Bile Duct
+51 ;;^UTILITY(U,$J,358.3,7968,0)
+52 ;;=74329^^43^403^16^^^^1
+53 ;;^UTILITY(U,$J,358.3,7968,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,7968,1,2,0)
+56 ;;=2^74329
+57 ;;^UTILITY(U,$J,358.3,7968,1,3,0)
+58 ;;=3^Fluoroscopy,Pancreatic Duct
+59 ;;^UTILITY(U,$J,358.3,7969,0)
+60 ;;=74330^^43^403^15^^^^1
+61 ;;^UTILITY(U,$J,358.3,7969,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,7969,1,2,0)
+64 ;;=2^74330
+65 ;;^UTILITY(U,$J,358.3,7969,1,3,0)
+66 ;;=3^Fluoroscopy,Bile and Pancreatic Ducts
+67 ;;^UTILITY(U,$J,358.3,7970,0)
+68 ;;=43246^^43^404^1^^^^1
+69 ;;^UTILITY(U,$J,358.3,7970,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,7970,1,2,0)
+72 ;;=2^43246
+73 ;;^UTILITY(U,$J,358.3,7970,1,3,0)
+74 ;;=3^EGD w/ Percutaneous G-Tube Placement
+75 ;;^UTILITY(U,$J,358.3,7971,0)
+76 ;;=44373^^43^404^2^^^^1
+77 ;;^UTILITY(U,$J,358.3,7971,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,7971,1,2,0)
+80 ;;=2^44373
+81 ;;^UTILITY(U,$J,358.3,7971,1,3,0)
+82 ;;=3^Enteroscopy w/ Conversion of G-Tube to J-Tube
+83 ;;^UTILITY(U,$J,358.3,7972,0)
+84 ;;=44372^^43^404^3^^^^1
+85 ;;^UTILITY(U,$J,358.3,7972,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,7972,1,2,0)
+88 ;;=2^44372
+89 ;;^UTILITY(U,$J,358.3,7972,1,3,0)
+90 ;;=3^Enteroscopy w/ Percutaneous J-Tube Placement
+91 ;;^UTILITY(U,$J,358.3,7973,0)
+92 ;;=43762^^43^404^4^^^^1
+93 ;;^UTILITY(U,$J,358.3,7973,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,7973,1,2,0)
+96 ;;=2^43762
+97 ;;^UTILITY(U,$J,358.3,7973,1,3,0)
+98 ;;=3^G-Tube Change
+99 ;;^UTILITY(U,$J,358.3,7974,0)
+100 ;;=43763^^43^404^5^^^^1
+101 ;;^UTILITY(U,$J,358.3,7974,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,7974,1,2,0)
+104 ;;=2^43763
+105 ;;^UTILITY(U,$J,358.3,7974,1,3,0)
+106 ;;=3^G-Tube Change Rev of Gastrostomy
+107 ;;^UTILITY(U,$J,358.3,7975,0)
+108 ;;=91111^^43^405^4^^^^1
+109 ;;^UTILITY(U,$J,358.3,7975,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,7975,1,2,0)
+112 ;;=2^91111
+113 ;;^UTILITY(U,$J,358.3,7975,1,3,0)
+114 ;;=3^GI Tract Imaging,Intraluminal,Esophagus,Int & Rpt
+115 ;;^UTILITY(U,$J,358.3,7976,0)
+116 ;;=91110^^43^405^5^^^^1
+117 ;;^UTILITY(U,$J,358.3,7976,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,7976,1,2,0)
+120 ;;=2^91110
+121 ;;^UTILITY(U,$J,358.3,7976,1,3,0)
+122 ;;=3^GI Tract Imaging,Intraluminal,Esophagus-Ileum,Int & Rpt
+123 ;;^UTILITY(U,$J,358.3,7977,0)
+124 ;;=91120^^43^405^9^^^^1
+125 ;;^UTILITY(U,$J,358.3,7977,1,0)
+126 ;;=^358.31IA^3^2
+127 ;;^UTILITY(U,$J,358.3,7977,1,2,0)
+128 ;;=2^91120
+129 ;;^UTILITY(U,$J,358.3,7977,1,3,0)
+130 ;;=3^Rectal Sensation Test
+131 ;;^UTILITY(U,$J,358.3,7978,0)
+132 ;;=91065^^43^405^8^^^^1
+133 ;;^UTILITY(U,$J,358.3,7978,1,0)
+134 ;;=^358.31IA^3^2
+135 ;;^UTILITY(U,$J,358.3,7978,1,2,0)
+136 ;;=2^91065
+137 ;;^UTILITY(U,$J,358.3,7978,1,3,0)
+138 ;;=3^Hydrogen Breath Test
+139 ;;^UTILITY(U,$J,358.3,7979,0)
+140 ;;=46600^^43^405^2^^^^1
+141 ;;^UTILITY(U,$J,358.3,7979,1,0)
+142 ;;=^358.31IA^3^2
+143 ;;^UTILITY(U,$J,358.3,7979,1,2,0)
+144 ;;=2^46600
+145 ;;^UTILITY(U,$J,358.3,7979,1,3,0)
+146 ;;=3^Anoscopy,Diagnostic
+147 ;;^UTILITY(U,$J,358.3,7980,0)
+148 ;;=44705^^43^405^3^^^^1
+149 ;;^UTILITY(U,$J,358.3,7980,1,0)
+150 ;;=^358.31IA^3^2
+151 ;;^UTILITY(U,$J,358.3,7980,1,2,0)
+152 ;;=2^44705
+153 ;;^UTILITY(U,$J,358.3,7980,1,3,0)
+154 ;;=3^Fecal Microbiota Transplantation
+155 ;;^UTILITY(U,$J,358.3,7981,0)
+156 ;;=87077^^43^405^1^^^^1
+157 ;;^UTILITY(U,$J,358.3,7981,1,0)
+158 ;;=^358.31IA^3^2
+159 ;;^UTILITY(U,$J,358.3,7981,1,2,0)
+160 ;;=2^87077
+161 ;;^UTILITY(U,$J,358.3,7981,1,3,0)
+162 ;;=3^Aerobic Isolate,Ea Isolate Test
+163 ;;^UTILITY(U,$J,358.3,7982,0)
+164 ;;=46221^^43^405^7^^^^1
+165 ;;^UTILITY(U,$J,358.3,7982,1,0)
+166 ;;=^358.31IA^3^2
+167 ;;^UTILITY(U,$J,358.3,7982,1,2,0)
+168 ;;=2^46221
+169 ;;^UTILITY(U,$J,358.3,7982,1,3,0)
+170 ;;=3^Hemorrhoidectomy by Rubber Band Ligation
+171 ;;^UTILITY(U,$J,358.3,7983,0)
+172 ;;=83013^^43^405^6^^^^1
+173 ;;^UTILITY(U,$J,358.3,7983,1,0)
+174 ;;=^358.31IA^3^2
+175 ;;^UTILITY(U,$J,358.3,7983,1,2,0)
+176 ;;=2^83013
+177 ;;^UTILITY(U,$J,358.3,7983,1,3,0)
+178 ;;=3^H Pylori Urea Breath Test
+179 ;;^UTILITY(U,$J,358.3,7984,0)
+180 ;;=96372^^43^405^10^^^^1
+181 ;;^UTILITY(U,$J,358.3,7984,1,0)
+182 ;;=^358.31IA^3^2
+183 ;;^UTILITY(U,$J,358.3,7984,1,2,0)
+184 ;;=2^96372
+185 ;;^UTILITY(U,$J,358.3,7984,1,3,0)
+186 ;;=3^Subcutaneous or Intramuscular Injection
+187 ;;^UTILITY(U,$J,358.3,7985,0)
+188 ;;=90471^^43^406^1^^^^1
+189 ;;^UTILITY(U,$J,358.3,7985,1,0)
+190 ;;=^358.31IA^3^2
+191 ;;^UTILITY(U,$J,358.3,7985,1,2,0)
+192 ;;=2^90471
+193 ;;^UTILITY(U,$J,358.3,7985,1,3,0)
+194 ;;=3^Immunization Admin,1 Vaccine
+195 ;;^UTILITY(U,$J,358.3,7986,0)
+196 ;;=90472^^43^406^2^^^^1
+197 ;;^UTILITY(U,$J,358.3,7986,1,0)
+198 ;;=^358.31IA^3^2
+199 ;;^UTILITY(U,$J,358.3,7986,1,2,0)
+200 ;;=2^90472
+201 ;;^UTILITY(U,$J,358.3,7986,1,3,0)
+202 ;;=3^Immunization Admin,Ea Addl
+203 ;;^UTILITY(U,$J,358.3,7987,0)
+204 ;;=90632^^43^406^7^^^^1
+205 ;;^UTILITY(U,$J,358.3,7987,1,0)
+206 ;;=^358.31IA^3^2
+207 ;;^UTILITY(U,$J,358.3,7987,1,2,0)
+208 ;;=2^90632
+209 ;;^UTILITY(U,$J,358.3,7987,1,3,0)
+210 ;;=3^Hepatitis A Vaccine
+211 ;;^UTILITY(U,$J,358.3,7988,0)
+212 ;;=90746^^43^406^11^^^^1
+213 ;;^UTILITY(U,$J,358.3,7988,1,0)
+214 ;;=^358.31IA^3^2
+215 ;;^UTILITY(U,$J,358.3,7988,1,2,0)
+216 ;;=2^90746
+217 ;;^UTILITY(U,$J,358.3,7988,1,3,0)
+218 ;;=3^Hepatitis B Vaccine,3 Dose Schedule
+219 ;;^UTILITY(U,$J,358.3,7989,0)
+220 ;;=90747^^43^406^13^^^^1
+221 ;;^UTILITY(U,$J,358.3,7989,1,0)
+222 ;;=^358.31IA^3^2
+223 ;;^UTILITY(U,$J,358.3,7989,1,2,0)
+224 ;;=2^90747
+225 ;;^UTILITY(U,$J,358.3,7989,1,3,0)
+226 ;;=3^Hepatitis B Vaccine,Dialysis/Immunosupp,4 Dose
+227 ;;^UTILITY(U,$J,358.3,7990,0)
+228 ;;=90636^^43^406^6^^^^1
+229 ;;^UTILITY(U,$J,358.3,7990,1,0)
+230 ;;=^358.31IA^3^2
+231 ;;^UTILITY(U,$J,358.3,7990,1,2,0)
+232 ;;=2^90636
+233 ;;^UTILITY(U,$J,358.3,7990,1,3,0)
+234 ;;=3^Hepatitis A & B Combination Vaccine
+235 ;;^UTILITY(U,$J,358.3,7991,0)
+236 ;;=4155F^^43^406^8^^^^1
+237 ;;^UTILITY(U,$J,358.3,7991,1,0)
+238 ;;=^358.31IA^3^2
+239 ;;^UTILITY(U,$J,358.3,7991,1,2,0)
+240 ;;=2^4155F
+241 ;;^UTILITY(U,$J,358.3,7991,1,3,0)
+242 ;;=3^Hepatitis A Vaccine Previously Received
+243 ;;^UTILITY(U,$J,358.3,7992,0)
+244 ;;=G0010^^43^406^9^^^^1
+245 ;;^UTILITY(U,$J,358.3,7992,1,0)
+246 ;;=^358.31IA^3^2
+247 ;;^UTILITY(U,$J,358.3,7992,1,2,0)
+248 ;;=2^G0010
+249 ;;^UTILITY(U,$J,358.3,7992,1,3,0)
+250 ;;=3^Hepatitis B Vaccine,Admin
+251 ;;^UTILITY(U,$J,358.3,7993,0)
+252 ;;=90739^^43^406^10^^^^1
+253 ;;^UTILITY(U,$J,358.3,7993,1,0)
+254 ;;=^358.31IA^3^2
+255 ;;^UTILITY(U,$J,358.3,7993,1,2,0)
+256 ;;=2^90739
+257 ;;^UTILITY(U,$J,358.3,7993,1,3,0)
+258 ;;=3^Hepatitis B Vaccine,2 Dose Schedule
+259 ;;^UTILITY(U,$J,358.3,7994,0)
+260 ;;=90740^^43^406^12^^^^1
+261 ;;^UTILITY(U,$J,358.3,7994,1,0)
+262 ;;=^358.31IA^3^2
+263 ;;^UTILITY(U,$J,358.3,7994,1,2,0)
+264 ;;=2^90740
+265 ;;^UTILITY(U,$J,358.3,7994,1,3,0)
+266 ;;=3^Hepatitis B Vaccine,Dialysis/Immunosupp,3 Dose
+267 ;;^UTILITY(U,$J,358.3,7995,0)
+268 ;;=90688^^43^406^4^^^^1
+269 ;;^UTILITY(U,$J,358.3,7995,1,0)
+270 ;;=^358.31IA^3^2
+271 ;;^UTILITY(U,$J,358.3,7995,1,2,0)
+272 ;;=2^90688
+273 ;;^UTILITY(U,$J,358.3,7995,1,3,0)
+274 ;;=3^Fluzone Multi-Dose Quadrivalent
+275 ;;^UTILITY(U,$J,358.3,7996,0)
+276 ;;=90662^^43^406^5^^^^1
+277 ;;^UTILITY(U,$J,358.3,7996,1,0)
+278 ;;=^358.31IA^3^2
+279 ;;^UTILITY(U,$J,358.3,7996,1,2,0)
+280 ;;=2^90662
+281 ;;^UTILITY(U,$J,358.3,7996,1,3,0)
+282 ;;=3^Fluzone Single Dose Quadrivalent
+283 ;;^UTILITY(U,$J,358.3,7997,0)
+284 ;;=90686^^43^406^3^^^^1
+285 ;;^UTILITY(U,$J,358.3,7997,1,0)
+286 ;;=^358.31IA^3^2
+287 ;;^UTILITY(U,$J,358.3,7997,1,2,0)
+288 ;;=2^90686
+289 ;;^UTILITY(U,$J,358.3,7997,1,3,0)
+290 ;;=3^Fluarix Single Dose
+291 ;;^UTILITY(U,$J,358.3,7998,0)
+292 ;;=91037^^43^407^5^^^^1
+293 ;;^UTILITY(U,$J,358.3,7998,1,0)
+294 ;;=^358.31IA^3^2
+295 ;;^UTILITY(U,$J,358.3,7998,1,2,0)
+296 ;;=2^91037
+297 ;;^UTILITY(U,$J,358.3,7998,1,3,0)
+298 ;;=3^Esoph Imped Funct Test < 1hr
+299 ;;^UTILITY(U,$J,358.3,7999,0)
+300 ;;=91038^^43^407^6^^^^1
+301 ;;^UTILITY(U,$J,358.3,7999,1,0)
+302 ;;=^358.31IA^3^2
+303 ;;^UTILITY(U,$J,358.3,7999,1,2,0)
+304 ;;=2^91038
+305 ;;^UTILITY(U,$J,358.3,7999,1,3,0)
+306 ;;=3^Esoph Imped Funct Test > 1hr
+307 ;;^UTILITY(U,$J,358.3,8000,0)
+308 ;;=91010^^43^407^7^^^^1
+309 ;;^UTILITY(U,$J,358.3,8000,1,0)
+310 ;;=^358.31IA^3^2
+311 ;;^UTILITY(U,$J,358.3,8000,1,2,0)
+312 ;;=2^91010
+313 ;;^UTILITY(U,$J,358.3,8000,1,3,0)
+314 ;;=3^Esophageal Manometry Study
+315 ;;^UTILITY(U,$J,358.3,8001,0)
+316 ;;=91034^^43^407^10^^^^1
+317 ;;^UTILITY(U,$J,358.3,8001,1,0)
+318 ;;=^358.31IA^3^2
+319 ;;^UTILITY(U,$J,358.3,8001,1,2,0)
+320 ;;=2^91034
+321 ;;^UTILITY(U,$J,358.3,8001,1,3,0)
+322 ;;=3^Nasal pH probe placement & pH Study
+323 ;;^UTILITY(U,$J,358.3,8002,0)
+324 ;;=91030^^43^407^1^^^^1
+325 ;;^UTILITY(U,$J,358.3,8002,1,0)
+326 ;;=^358.31IA^3^2
+327 ;;^UTILITY(U,$J,358.3,8002,1,2,0)
+328 ;;=2^91030
+329 ;;^UTILITY(U,$J,358.3,8002,1,3,0)
+330 ;;=3^Acid Perfusion of Esophagus
+331 ;;^UTILITY(U,$J,358.3,8003,0)
+332 ;;=91013^^43^407^8^^^^1
+333 ;;^UTILITY(U,$J,358.3,8003,1,0)
+334 ;;=^358.31IA^3^2
+335 ;;^UTILITY(U,$J,358.3,8003,1,2,0)
+336 ;;=2^91013
+337 ;;^UTILITY(U,$J,358.3,8003,1,3,0)
+338 ;;=3^Esophageal Motility w/ Stim/Perfusion
+339 ;;^UTILITY(U,$J,358.3,8004,0)
+340 ;;=91112^^43^407^9^^^^1
+341 ;;^UTILITY(U,$J,358.3,8004,1,0)
+342 ;;=^358.31IA^3^2
+343 ;;^UTILITY(U,$J,358.3,8004,1,2,0)
+344 ;;=2^91112
+345 ;;^UTILITY(U,$J,358.3,8004,1,3,0)
+346 ;;=3^GI Tract Pressure,pH,Temp & Transit Study
+347 ;;^UTILITY(U,$J,358.3,8005,0)
+348 ;;=91122^^43^407^2^^^^1
+349 ;;^UTILITY(U,$J,358.3,8005,1,0)
+350 ;;=^358.31IA^3^2
+351 ;;^UTILITY(U,$J,358.3,8005,1,2,0)
+352 ;;=2^91122
+353 ;;^UTILITY(U,$J,358.3,8005,1,3,0)
+354 ;;=3^Anorectal Manometry
+355 ;;^UTILITY(U,$J,358.3,8006,0)
+356 ;;=90912^^43^407^3^^^^1
+357 ;;^UTILITY(U,$J,358.3,8006,1,0)
+358 ;;=^358.31IA^3^2
+359 ;;^UTILITY(U,$J,358.3,8006,1,2,0)
+360 ;;=2^90912
+361 ;;^UTILITY(U,$J,358.3,8006,1,3,0)
+362 ;;=3^Biofeedback Trng,1st 15 min
+363 ;;^UTILITY(U,$J,358.3,8007,0)
+364 ;;=90913^^43^407^4^^^^1
+365 ;;^UTILITY(U,$J,358.3,8007,1,0)
+366 ;;=^358.31IA^3^2
+367 ;;^UTILITY(U,$J,358.3,8007,1,2,0)
+368 ;;=2^90913
+369 ;;^UTILITY(U,$J,358.3,8007,1,3,0)
+370 ;;=3^Biofeedback Trng,Ea Addl 15 min
+371 ;;^UTILITY(U,$J,358.3,8008,0)
+372 ;;=45391^^43^408^2^^^^1
+373 ;;^UTILITY(U,$J,358.3,8008,1,0)
+374 ;;=^358.31IA^3^2
+375 ;;^UTILITY(U,$J,358.3,8008,1,2,0)
+376 ;;=2^45391
+377 ;;^UTILITY(U,$J,358.3,8008,1,3,0)
+378 ;;=3^Colonoscopy w/ EUS
+379 ;;^UTILITY(U,$J,358.3,8009,0)
+380 ;;=45392^^43^408^3^^^^1
+381 ;;^UTILITY(U,$J,358.3,8009,1,0)
+382 ;;=^358.31IA^3^2
+383 ;;^UTILITY(U,$J,358.3,8009,1,2,0)
+384 ;;=2^45392
+385 ;;^UTILITY(U,$J,358.3,8009,1,3,0)
+386 ;;=3^Colonoscopy w/ EUS & FNA
+387 ;;^UTILITY(U,$J,358.3,8010,0)
+388 ;;=43259^^43^408^4^^^^1
+389 ;;^UTILITY(U,$J,358.3,8010,1,0)
+390 ;;=^358.31IA^3^2
+391 ;;^UTILITY(U,$J,358.3,8010,1,2,0)
+392 ;;=2^43259
+393 ;;^UTILITY(U,$J,358.3,8010,1,3,0)
+394 ;;=3^EGD w/ EUS
+395 ;;^UTILITY(U,$J,358.3,8011,0)
+396 ;;=43238^^43^408^1^^^^1
+397 ;;^UTILITY(U,$J,358.3,8011,1,0)
+398 ;;=^358.31IA^3^2
+399 ;;^UTILITY(U,$J,358.3,8011,1,2,0)
+400 ;;=2^43238
+401 ;;^UTILITY(U,$J,358.3,8011,1,3,0)
+402 ;;=3
+403 ;;^UTILITY(U,$J,358.3,8012,0)
+404 ;;=43238^^43^408^5^^^^1
+405 ;;^UTILITY(U,$J,358.3,8012,1,0)
+406 ;;=^358.31IA^3^2
+407 ;;^UTILITY(U,$J,358.3,8012,1,2,0)
+408 ;;=2^43238
+409 ;;^UTILITY(U,$J,358.3,8012,1,3,0)
+410 ;;=3^EGD w/ EUS & FNA
+411 ;;^UTILITY(U,$J,358.3,8013,0)
+412 ;;=43253^^43^408^7^^^^1
+413 ;;^UTILITY(U,$J,358.3,8013,1,0)
+414 ;;=^358.31IA^3^2
+415 ;;^UTILITY(U,$J,358.3,8013,1,2,0)
+416 ;;=2^43253
+417 ;;^UTILITY(U,$J,358.3,8013,1,3,0)
+418 ;;=3^EGD w/ EUS & Therapeutic Injection
+419 ;;^UTILITY(U,$J,358.3,8014,0)
+420 ;;=43240^^43^408^6^^^^1
+421 ;;^UTILITY(U,$J,358.3,8014,1,0)
+422 ;;=^358.31IA^3^2
+423 ;;^UTILITY(U,$J,358.3,8014,1,2,0)
+424 ;;=2^43240
+425 ;;^UTILITY(U,$J,358.3,8014,1,3,0)
+426 ;;=3^EGD w/ EUS & Pseudocyst Drainage
+427 ;;^UTILITY(U,$J,358.3,8015,0)
+428 ;;=45341^^43^408^8^^^^1
+429 ;;^UTILITY(U,$J,358.3,8015,1,0)
+430 ;;=^358.31IA^3^2
+431 ;;^UTILITY(U,$J,358.3,8015,1,2,0)
+432 ;;=2^45341
+433 ;;^UTILITY(U,$J,358.3,8015,1,3,0)
+434 ;;=3^Flex Sig w/ EUS
+435 ;;^UTILITY(U,$J,358.3,8016,0)
+436 ;;=45342^^43^408^9^^^^1
+437 ;;^UTILITY(U,$J,358.3,8016,1,0)
+438 ;;=^358.31IA^3^2
+439 ;;^UTILITY(U,$J,358.3,8016,1,2,0)
+440 ;;=2^45342
+441 ;;^UTILITY(U,$J,358.3,8016,1,3,0)
+442 ;;=3^Flex Sig w/ EUS & FNA
+443 ;;^UTILITY(U,$J,358.3,8017,0)
+444 ;;=49083^^43^409^1^^^^1
+445 ;;^UTILITY(U,$J,358.3,8017,1,0)
+446 ;;=^358.31IA^3^2
+447 ;;^UTILITY(U,$J,358.3,8017,1,2,0)
+448 ;;=2^49083
+449 ;;^UTILITY(U,$J,358.3,8017,1,3,0)
+450 ;;=3^Abd Paracentesis w/ Imag Guide
+451 ;;^UTILITY(U,$J,358.3,8018,0)
+452 ;;=49082^^43^409^2^^^^1
+453 ;;^UTILITY(U,$J,358.3,8018,1,0)
+454 ;;=^358.31IA^3^2
+455 ;;^UTILITY(U,$J,358.3,8018,1,2,0)
+456 ;;=2^49082
+457 ;;^UTILITY(U,$J,358.3,8018,1,3,0)
+458 ;;=3^Abd Paracentesis w/o Imag Guide
+459 ;;^UTILITY(U,$J,358.3,8019,0)
+460 ;;=43460^^43^409^3^^^^1
+461 ;;^UTILITY(U,$J,358.3,8019,1,0)
+462 ;;=^358.31IA^3^2
+463 ;;^UTILITY(U,$J,358.3,8019,1,2,0)
+464 ;;=2^43460
+465 ;;^UTILITY(U,$J,358.3,8019,1,3,0)
+466 ;;=3^Esophagogastric Tamponade w/ Balloon
+467 ;;^UTILITY(U,$J,358.3,8020,0)
+468 ;;=47000^^43^409^4^^^^1
+469 ;;^UTILITY(U,$J,358.3,8020,1,0)
+470 ;;=^358.31IA^3^2
+471 ;;^UTILITY(U,$J,358.3,8020,1,2,0)
+472 ;;=2^47000
+473 ;;^UTILITY(U,$J,358.3,8020,1,3,0)
+474 ;;=3^Liver Biopsy,Percutaneous
+475 ;;^UTILITY(U,$J,358.3,8021,0)
+476 ;;=91200^^43^409^5^^^^1
+477 ;;^UTILITY(U,$J,358.3,8021,1,0)
+478 ;;=^358.31IA^3^2
+479 ;;^UTILITY(U,$J,358.3,8021,1,2,0)
+480 ;;=2^91200
+481 ;;^UTILITY(U,$J,358.3,8021,1,3,0)
+482 ;;=3^Transient Shear Wave Elastography
+483 ;;^UTILITY(U,$J,358.3,8022,0)
+484 ;;=99078^^43^409^6^^^^1
+485 ;;^UTILITY(U,$J,358.3,8022,1,0)
+486 ;;=^358.31IA^3^2
+487 ;;^UTILITY(U,$J,358.3,8022,1,2,0)
+488 ;;=2^99078
+489 ;;^UTILITY(U,$J,358.3,8022,1,3,0)
+490 ;;=3^Education Session,Group
+491 ;;^UTILITY(U,$J,358.3,8023,0)
+492 ;;=99152^^43^410^1^^^^1
+493 ;;^UTILITY(U,$J,358.3,8023,1,0)
+494 ;;=^358.31IA^3^2
+495 ;;^UTILITY(U,$J,358.3,8023,1,2,0)
+496 ;;=2^99152
+497 ;;^UTILITY(U,$J,358.3,8023,1,3,0)
+498 ;;=3^Same Provider Performing Procedure,Init 15 min
+499 ;;^UTILITY(U,$J,358.3,8024,0)
+500 ;;=99153^^43^410^2^^^^1
+501 ;;^UTILITY(U,$J,358.3,8024,1,0)
+502 ;;=^358.31IA^3^2
+503 ;;^UTILITY(U,$J,358.3,8024,1,2,0)
+504 ;;=2^99153
+505 ;;^UTILITY(U,$J,358.3,8024,1,3,0)
+506 ;;=3^Same Provider Performing Procedure,Ea Addl 15 min
+507 ;;^UTILITY(U,$J,358.3,8025,0)
+508 ;;=99156^^43^410^3^^^^1
+509 ;;^UTILITY(U,$J,358.3,8025,1,0)
+510 ;;=^358.31IA^3^2
+511 ;;^UTILITY(U,$J,358.3,8025,1,2,0)
+512 ;;=2^99156
+513 ;;^UTILITY(U,$J,358.3,8025,1,3,0)
+514 ;;=3^Different Provider Performing Proc,Init 15 min
+515 ;;^UTILITY(U,$J,358.3,8026,0)
+516 ;;=99157^^43^410^4^^^^1
+517 ;;^UTILITY(U,$J,358.3,8026,1,0)
+518 ;;=^358.31IA^3^2
+519 ;;^UTILITY(U,$J,358.3,8026,1,2,0)
+520 ;;=2^99157
+521 ;;^UTILITY(U,$J,358.3,8026,1,3,0)
+522 ;;=3^Different Provider Performing Proc,Ea Addl 15 min
+523 ;;^UTILITY(U,$J,358.3,8027,0)
+524 ;;=D9223^^43^410^6^^^^1
+525 ;;^UTILITY(U,$J,358.3,8027,1,0)
+526 ;;=^358.31IA^3^2
+527 ;;^UTILITY(U,$J,358.3,8027,1,2,0)
+528 ;;=2^D9223
+529 ;;^UTILITY(U,$J,358.3,8027,1,3,0)
+530 ;;=3^Deep Sedation/General Anes,Ea Addl 15 min
+531 ;;^UTILITY(U,$J,358.3,8028,0)
+532 ;;=D9222^^43^410^5^^^^1
+533 ;;^UTILITY(U,$J,358.3,8028,1,0)
+534 ;;=^358.31IA^3^2
+535 ;;^UTILITY(U,$J,358.3,8028,1,2,0)
+536 ;;=2^D9222
+537 ;;^UTILITY(U,$J,358.3,8028,1,3,0)
+538 ;;=3^Deep Sedation/General Anes,1st 15 min
+539 ;;^UTILITY(U,$J,358.3,8029,0)
+540 ;;=45380^^43^411^1^^^^1
+541 ;;^UTILITY(U,$J,358.3,8029,1,0)
+542 ;;=^358.31IA^3^2
+543 ;;^UTILITY(U,$J,358.3,8029,1,2,0)
+544 ;;=2^45380
+545 ;;^UTILITY(U,$J,358.3,8029,1,3,0)
+546 ;;=3^Colonoscopy w/ Biopsy
+547 ;;^UTILITY(U,$J,358.3,8030,0)
+548 ;;=99152^^43^411^8^^^^1
+549 ;;^UTILITY(U,$J,358.3,8030,1,0)
+550 ;;=^358.31IA^3^2
+551 ;;^UTILITY(U,$J,358.3,8030,1,2,0)
+552 ;;=2^99152
+553 ;;^UTILITY(U,$J,358.3,8030,1,3,0)
+554 ;;=3^Same Provider Performing Procedure,1st 15 min
+555 ;;^UTILITY(U,$J,358.3,8031,0)
+556 ;;=99153^^43^411^9^^^^1
+557 ;;^UTILITY(U,$J,358.3,8031,1,0)
+558 ;;=^358.31IA^3^2
+559 ;;^UTILITY(U,$J,358.3,8031,1,2,0)
+560 ;;=2^99153
+561 ;;^UTILITY(U,$J,358.3,8031,1,3,0)
+562 ;;=3^Same Provider Performing Procedure,Ea Addl 15 min
+563 ;;^UTILITY(U,$J,358.3,8032,0)
+564 ;;=J2250^^43^411^7^^^^1
+565 ;;^UTILITY(U,$J,358.3,8032,1,0)
+566 ;;=^358.31IA^3^2
+567 ;;^UTILITY(U,$J,358.3,8032,1,2,0)
+568 ;;=2^J2250
+569 ;;^UTILITY(U,$J,358.3,8032,1,3,0)
+570 ;;=3^Midazolam HCL,per 1mg
+571 ;;^UTILITY(U,$J,358.3,8032,3,0)
+572 ;;=^357.33^1^1
+573 ;;^UTILITY(U,$J,358.3,8032,3,1,0)
+574 ;;=JA
+575 ;;^UTILITY(U,$J,358.3,8033,0)
+576 ;;=J2175^^43^411^6^^^^1
+577 ;;^UTILITY(U,$J,358.3,8033,1,0)
+578 ;;=^358.31IA^3^2
+579 ;;^UTILITY(U,$J,358.3,8033,1,2,0)
+580 ;;=2^J2175
+581 ;;^UTILITY(U,$J,358.3,8033,1,3,0)
+582 ;;=3^Meperidine HCL,per 100mg
+583 ;;^UTILITY(U,$J,358.3,8033,3,0)
+584 ;;=^357.33^1^1
+585 ;;^UTILITY(U,$J,358.3,8033,3,1,0)
+586 ;;=JA
+587 ;;^UTILITY(U,$J,358.3,8034,0)
+588 ;;=43239^^43^411^4^^^^1
+589 ;;^UTILITY(U,$J,358.3,8034,1,0)
+590 ;;=^358.31IA^3^2
+591 ;;^UTILITY(U,$J,358.3,8034,1,2,0)
+592 ;;=2^43239
+593 ;;^UTILITY(U,$J,358.3,8034,1,3,0)
+594 ;;=3^EGD w/ Biopsy
+595 ;;^UTILITY(U,$J,358.3,8035,0)
+596 ;;=45378^^43^411^3^^^^1
+597 ;;^UTILITY(U,$J,358.3,8035,1,0)
+598 ;;=^358.31IA^3^2
+599 ;;^UTILITY(U,$J,358.3,8035,1,2,0)
+600 ;;=2^45378
+601 ;;^UTILITY(U,$J,358.3,8035,1,3,0)
+602 ;;=3^Colonoscopy,Diagnostic
+603 ;;^UTILITY(U,$J,358.3,8036,0)
+604 ;;=45385^^43^411^2^^^^1
+605 ;;^UTILITY(U,$J,358.3,8036,1,0)
+606 ;;=^358.31IA^3^2
+607 ;;^UTILITY(U,$J,358.3,8036,1,2,0)
+608 ;;=2^45385
+609 ;;^UTILITY(U,$J,358.3,8036,1,3,0)
+610 ;;=3^Colonoscopy w/ Snare
+611 ;;^UTILITY(U,$J,358.3,8037,0)
+612 ;;=J3010^^43^411^5^^^^1
+613 ;;^UTILITY(U,$J,358.3,8037,1,0)
+614 ;;=^358.31IA^3^2
+615 ;;^UTILITY(U,$J,358.3,8037,1,2,0)
+616 ;;=2^J3010
+617 ;;^UTILITY(U,$J,358.3,8037,1,3,0)
+618 ;;=3^Fentanyl Citrate,per 0.1mg
+619 ;;^UTILITY(U,$J,358.3,8038,0)
+620 ;;=99417^^43^412^1^^^^1
+621 ;;^UTILITY(U,$J,358.3,8038,1,0)
+622 ;;=^358.31IA^3^2
+623 ;;^UTILITY(U,$J,358.3,8038,1,2,0)
+624 ;;=2^99417
+625 ;;^UTILITY(U,$J,358.3,8038,1,3,0)
+626 ;;=3^Prolonged Svc,Ea 15min;Only w/ 99205 or 99215
+627 ;;^UTILITY(U,$J,358.3,8039,0)
+628 ;;=44380^^43^413^2^^^^1
+629 ;;^UTILITY(U,$J,358.3,8039,1,0)
+630 ;;=^358.31IA^3^2
+631 ;;^UTILITY(U,$J,358.3,8039,1,2,0)
+632 ;;=2^44380
+633 ;;^UTILITY(U,$J,358.3,8039,1,3,0)
+634 ;;=3^Ileoscopy via Stoma,Diagnostic
+635 ;;^UTILITY(U,$J,358.3,8040,0)
+636 ;;=44382^^43^413^1^^^^1
+637 ;;^UTILITY(U,$J,358.3,8040,1,0)
+638 ;;=^358.31IA^3^2
+639 ;;^UTILITY(U,$J,358.3,8040,1,2,0)
+640 ;;=2^44382
+641 ;;^UTILITY(U,$J,358.3,8040,1,3,0)
+642 ;;=3^Ileoscopy via Stoma w/ Transendo Balloon Dilation
+643 ;;^UTILITY(U,$J,358.3,8041,0)
+644 ;;=99341^^44^414^1
+645 ;;^UTILITY(U,$J,358.3,8041,1,0)
+646 ;;=^358.31IA^2^2
+647 ;;^UTILITY(U,$J,358.3,8041,1,1,0)
+648 ;;=1^PROBLEM FOCUSED VISIT
+649 ;;^UTILITY(U,$J,358.3,8041,1,2,0)
+650 ;;=2^99341
+651 ;;^UTILITY(U,$J,358.3,8042,0)
+652 ;;=99342^^44^414^2
+653 ;;^UTILITY(U,$J,358.3,8042,1,0)
+654 ;;=^358.31IA^2^2
+655 ;;^UTILITY(U,$J,358.3,8042,1,1,0)
+656 ;;=1^EXP PROBLEM FOCUSED VISIT
+657 ;;^UTILITY(U,$J,358.3,8042,1,2,0)
+658 ;;=2^99342
+659 ;;^UTILITY(U,$J,358.3,8043,0)
+660 ;;=99343^^44^414^3
+661 ;;^UTILITY(U,$J,358.3,8043,1,0)
+662 ;;=^358.31IA^2^2
+663 ;;^UTILITY(U,$J,358.3,8043,1,1,0)
+664 ;;=1^DETAILED VISIT
+665 ;;^UTILITY(U,$J,358.3,8043,1,2,0)
+666 ;;=2^99343
+667 ;;^UTILITY(U,$J,358.3,8044,0)
+668 ;;=99344^^44^414^4
+669 ;;^UTILITY(U,$J,358.3,8044,1,0)
+670 ;;=^358.31IA^2^2
