IBDEI07E ; ; 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,18006,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18006,1,2,0)
;;=2^59430
;;^UTILITY(U,$J,358.3,18006,1,3,0)
;;=3^POST PARTUM CARE ONLY
;;^UTILITY(U,$J,358.3,18007,0)
;;=99401^^60^725^1^^^^1
;;^UTILITY(U,$J,358.3,18007,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18007,1,2,0)
;;=2^99401
;;^UTILITY(U,$J,358.3,18007,1,3,0)
;;=3^PREVENTIVE COUNSELING INDIV,15MIN
;;^UTILITY(U,$J,358.3,18008,0)
;;=99402^^60^725^2^^^^1
;;^UTILITY(U,$J,358.3,18008,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18008,1,2,0)
;;=2^99402
;;^UTILITY(U,$J,358.3,18008,1,3,0)
;;=3^PREVENTIVE COUNSELING INDIV,30MIN
;;^UTILITY(U,$J,358.3,18009,0)
;;=99403^^60^725^3^^^^1
;;^UTILITY(U,$J,358.3,18009,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18009,1,2,0)
;;=2^99403
;;^UTILITY(U,$J,358.3,18009,1,3,0)
;;=3^PREVENTIVE COUNSELING INDIV,45MIN
;;^UTILITY(U,$J,358.3,18010,0)
;;=99395^^60^726^1^^^^1
;;^UTILITY(U,$J,358.3,18010,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18010,1,2,0)
;;=2^99395
;;^UTILITY(U,$J,358.3,18010,1,3,0)
;;=3^PREV VISIT EST AGE 18-39
;;^UTILITY(U,$J,358.3,18011,0)
;;=99396^^60^726^2^^^^1
;;^UTILITY(U,$J,358.3,18011,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18011,1,2,0)
;;=2^99396
;;^UTILITY(U,$J,358.3,18011,1,3,0)
;;=3^PREV VISIT EST AGE 40-64
;;^UTILITY(U,$J,358.3,18012,0)
;;=99397^^60^726^3^^^^1
;;^UTILITY(U,$J,358.3,18012,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18012,1,2,0)
;;=2^99397
;;^UTILITY(U,$J,358.3,18012,1,3,0)
;;=3^PREV VISIT EST 65 & OVER
;;^UTILITY(U,$J,358.3,18013,0)
;;=99385^^60^727^1^^^^1
;;^UTILITY(U,$J,358.3,18013,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18013,1,2,0)
;;=2^99385
;;^UTILITY(U,$J,358.3,18013,1,3,0)
;;=3^PREV VISIT NEW AGE 18-39
;;^UTILITY(U,$J,358.3,18014,0)
;;=99386^^60^727^2^^^^1
;;^UTILITY(U,$J,358.3,18014,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18014,1,2,0)
;;=2^99386
;;^UTILITY(U,$J,358.3,18014,1,3,0)
;;=3^PREV VISIT NEW AGE 40-64
;;^UTILITY(U,$J,358.3,18015,0)
;;=99387^^60^727^3^^^^1
;;^UTILITY(U,$J,358.3,18015,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18015,1,2,0)
;;=2^99387
;;^UTILITY(U,$J,358.3,18015,1,3,0)
;;=3^PREV VISIT NEW 65 & OVER
;;^UTILITY(U,$J,358.3,18016,0)
;;=A4247^^60^728^2^^^^1
;;^UTILITY(U,$J,358.3,18016,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18016,1,2,0)
;;=2^A4247
;;^UTILITY(U,$J,358.3,18016,1,3,0)
;;=3^BETADINE/IODINE SWABS/WIPES,BOX
;;^UTILITY(U,$J,358.3,18017,0)
;;=A4332^^60^728^3^^^^1
;;^UTILITY(U,$J,358.3,18017,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18017,1,2,0)
;;=2^A4332
;;^UTILITY(U,$J,358.3,18017,1,3,0)
;;=3^LUBE STERILE PACKET
;;^UTILITY(U,$J,358.3,18018,0)
;;=A4208^^60^728^1^^^^1
;;^UTILITY(U,$J,358.3,18018,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18018,1,2,0)
;;=2^A4208
;;^UTILITY(U,$J,358.3,18018,1,3,0)
;;=3^3 CC STERILE SYRINGE & NEEDLE
;;^UTILITY(U,$J,358.3,18019,0)
;;=99354^^60^729^1^^^^1
;;^UTILITY(U,$J,358.3,18019,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18019,1,2,0)
;;=2^99354
;;^UTILITY(U,$J,358.3,18019,1,3,0)
;;=3^Prolng Svc Outpt/Obsv 30-74 min
;;^UTILITY(U,$J,358.3,18020,0)
;;=99355^^60^729^2^^^^1
;;^UTILITY(U,$J,358.3,18020,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18020,1,2,0)
;;=2^99355
;;^UTILITY(U,$J,358.3,18020,1,3,0)
;;=3^Prolng Svc Outpt/Obsv,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,18021,0)
;;=99356^^60^729^3^^^^1
;;^UTILITY(U,$J,358.3,18021,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18021,1,2,0)
;;=2^99356
;;^UTILITY(U,$J,358.3,18021,1,3,0)
;;=3^Prolng Svc Inpt 30-74 min
;;^UTILITY(U,$J,358.3,18022,0)
;;=99357^^60^729^4^^^^1
;;^UTILITY(U,$J,358.3,18022,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18022,1,2,0)
;;=2^99357
;;^UTILITY(U,$J,358.3,18022,1,3,0)
;;=3^Prolng Svc Inpt,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,18023,0)
;;=99358^^60^729^5^^^^1
;;^UTILITY(U,$J,358.3,18023,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18023,1,2,0)
;;=2^99358
;;^UTILITY(U,$J,358.3,18023,1,3,0)
;;=3^Prolng Svc w/o Pt 30-74 min
;;^UTILITY(U,$J,358.3,18024,0)
;;=99359^^60^729^6^^^^1
;;^UTILITY(U,$J,358.3,18024,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18024,1,2,0)
;;=2^99359
;;^UTILITY(U,$J,358.3,18024,1,3,0)
;;=3^Prolng Svc w/o Pt,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,18025,0)
;;=99415^^60^729^7^^^^1
;;^UTILITY(U,$J,358.3,18025,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18025,1,2,0)
;;=2^99415
;;^UTILITY(U,$J,358.3,18025,1,3,0)
;;=3^Prolng Clin Staff Svc 45-74 min
;;^UTILITY(U,$J,358.3,18026,0)
;;=99416^^60^729^8^^^^1
;;^UTILITY(U,$J,358.3,18026,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18026,1,2,0)
;;=2^99416
;;^UTILITY(U,$J,358.3,18026,1,3,0)
;;=3^Prolng Clin Staff Svc,Ea Addl 30 min
;;^UTILITY(U,$J,358.3,18027,0)
;;=99417^^60^729^9^^^^1
;;^UTILITY(U,$J,358.3,18027,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18027,1,2,0)
;;=2^99417
;;^UTILITY(U,$J,358.3,18027,1,3,0)
;;=3^Prolng Clin Staff Svc,Ea 15 min;Only w/ 99205/99215
;;^UTILITY(U,$J,358.3,18028,0)
;;=99202^^61^730^1
;;^UTILITY(U,$J,358.3,18028,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18028,1,1,0)
;;=1^SF MDM or 15-29 mins
;;^UTILITY(U,$J,358.3,18028,1,2,0)
;;=2^99202
;;^UTILITY(U,$J,358.3,18029,0)
;;=99203^^61^730^2
;;^UTILITY(U,$J,358.3,18029,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18029,1,1,0)
;;=1^Low Complex MDM or 30-44 mins
;;^UTILITY(U,$J,358.3,18029,1,2,0)
;;=2^99203
;;^UTILITY(U,$J,358.3,18030,0)
;;=99204^^61^730^3
;;^UTILITY(U,$J,358.3,18030,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18030,1,1,0)
;;=1^Mod Complex MDM or 45-59 mins
;;^UTILITY(U,$J,358.3,18030,1,2,0)
;;=2^99204
;;^UTILITY(U,$J,358.3,18031,0)
;;=99205^^61^730^4
;;^UTILITY(U,$J,358.3,18031,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18031,1,1,0)
;;=1^High Complex MDM or 60-74 mins
;;^UTILITY(U,$J,358.3,18031,1,2,0)
;;=2^99205
;;^UTILITY(U,$J,358.3,18032,0)
;;=99211^^61^731^1
;;^UTILITY(U,$J,358.3,18032,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18032,1,1,0)
;;=1^Nurse Visit (no MD seen)
;;^UTILITY(U,$J,358.3,18032,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,18033,0)
;;=99212^^61^731^2
;;^UTILITY(U,$J,358.3,18033,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18033,1,1,0)
;;=1^SF MDM or 10-19 mins
;;^UTILITY(U,$J,358.3,18033,1,2,0)
;;=2^99212
;;^UTILITY(U,$J,358.3,18034,0)
;;=99213^^61^731^3
;;^UTILITY(U,$J,358.3,18034,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18034,1,1,0)
;;=1^Low Complex MDM or 20-29 mins
;;^UTILITY(U,$J,358.3,18034,1,2,0)
;;=2^99213
;;^UTILITY(U,$J,358.3,18035,0)
;;=99214^^61^731^4
;;^UTILITY(U,$J,358.3,18035,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18035,1,1,0)
;;=1^Mod Complex MDM or 30-39 mins
;;^UTILITY(U,$J,358.3,18035,1,2,0)
;;=2^99214
;;^UTILITY(U,$J,358.3,18036,0)
;;=99215^^61^731^5
;;^UTILITY(U,$J,358.3,18036,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18036,1,1,0)
;;=1^High Complex MDM or 40-54 mins
;;^UTILITY(U,$J,358.3,18036,1,2,0)
;;=2^99215
;;^UTILITY(U,$J,358.3,18037,0)
;;=99024^^61^731^6
;;^UTILITY(U,$J,358.3,18037,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18037,1,1,0)
;;=1^Post Op Visit in Global
;;^UTILITY(U,$J,358.3,18037,1,2,0)
;;=2^99024
;;^UTILITY(U,$J,358.3,18038,0)
;;=99241^^61^732^1
;;^UTILITY(U,$J,358.3,18038,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18038,1,1,0)
;;=1^Prob Focused Exam
;;^UTILITY(U,$J,358.3,18038,1,2,0)
;;=2^99241
;;^UTILITY(U,$J,358.3,18039,0)
;;=99242^^61^732^2
;;^UTILITY(U,$J,358.3,18039,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18039,1,1,0)
;;=1^Exp Prob Focused Exam
;;^UTILITY(U,$J,358.3,18039,1,2,0)
;;=2^99242
;;^UTILITY(U,$J,358.3,18040,0)
;;=99243^^61^732^3
;;^UTILITY(U,$J,358.3,18040,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18040,1,1,0)
;;=1^Detailed Exam
;;^UTILITY(U,$J,358.3,18040,1,2,0)
;;=2^99243
;;^UTILITY(U,$J,358.3,18041,0)
;;=99244^^61^732^4
;;^UTILITY(U,$J,358.3,18041,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18041,1,1,0)
;;=1^Comprehensive,Moderate
;;^UTILITY(U,$J,358.3,18041,1,2,0)
;;=2^99244
;;^UTILITY(U,$J,358.3,18042,0)
;;=99245^^61^732^5
;;^UTILITY(U,$J,358.3,18042,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,18042,1,1,0)
;;=1^Comprehensive,High
;;^UTILITY(U,$J,358.3,18042,1,2,0)
;;=2^99245
;;^UTILITY(U,$J,358.3,18043,0)
;;=O01.9^^62^733^15
;;^UTILITY(U,$J,358.3,18043,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18043,1,3,0)
;;=3^Hydatidiform mole, unspecified
;;^UTILITY(U,$J,358.3,18043,1,4,0)
;;=4^O01.9
;;^UTILITY(U,$J,358.3,18043,2)
;;=^5015977
;;^UTILITY(U,$J,358.3,18044,0)
;;=O02.81^^62^733^16
;;^UTILITY(U,$J,358.3,18044,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18044,1,3,0)
;;=3^Inapprop chg quantitav hCG in early pregnancy
;;^UTILITY(U,$J,358.3,18044,1,4,0)
;;=4^O02.81
;;^UTILITY(U,$J,358.3,18044,2)
;;=^340611
;;^UTILITY(U,$J,358.3,18045,0)
;;=O02.1^^62^733^17
;;^UTILITY(U,$J,358.3,18045,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18045,1,3,0)
;;=3^Missed abortion
;;^UTILITY(U,$J,358.3,18045,1,4,0)
;;=4^O02.1
;;^UTILITY(U,$J,358.3,18045,2)
;;=^1259
;;^UTILITY(U,$J,358.3,18046,0)
;;=O08.7^^62^733^56
;;^UTILITY(U,$J,358.3,18046,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18046,1,3,0)
;;=3^Venous comp following an ectopic and molar pregnancy NEC
;;^UTILITY(U,$J,358.3,18046,1,4,0)
;;=4^O08.7
;;^UTILITY(U,$J,358.3,18046,2)
;;=^5016042
;;^UTILITY(U,$J,358.3,18047,0)
;;=O08.81^^62^733^13
;;^UTILITY(U,$J,358.3,18047,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18047,1,3,0)
;;=3^Cardiac arrest following an ectopic and molar pregnancy
;;^UTILITY(U,$J,358.3,18047,1,4,0)
;;=4^O08.81
;;^UTILITY(U,$J,358.3,18047,2)
;;=^5016043
;;^UTILITY(U,$J,358.3,18048,0)
;;=O08.83^^62^733^55
;;^UTILITY(U,$J,358.3,18048,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18048,1,3,0)
;;=3^Urinary tract infection fol an ectopic and molar pregnancy
;;^UTILITY(U,$J,358.3,18048,1,4,0)
;;=4^O08.83
;;^UTILITY(U,$J,358.3,18048,2)
;;=^5016045
;;^UTILITY(U,$J,358.3,18049,0)
;;=O08.89^^62^733^14
;;^UTILITY(U,$J,358.3,18049,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18049,1,3,0)
;;=3^Complications following an ectopic and molar pregnancy NEC
;;^UTILITY(U,$J,358.3,18049,1,4,0)
;;=4^O08.89
;;^UTILITY(U,$J,358.3,18049,2)
;;=^5016046
;;^UTILITY(U,$J,358.3,18050,0)
;;=O20.0^^62^733^54
;;^UTILITY(U,$J,358.3,18050,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18050,1,3,0)
;;=3^Threatened abortion
;;^UTILITY(U,$J,358.3,18050,1,4,0)
;;=4^O20.0
;;^UTILITY(U,$J,358.3,18050,2)
;;=^1287
;;^UTILITY(U,$J,358.3,18051,0)
;;=O44.01^^62^733^21
;;^UTILITY(U,$J,358.3,18051,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18051,1,3,0)
;;=3^Placenta Previa,Complete w/o Hemorrhage,1st Trimester
;;^UTILITY(U,$J,358.3,18051,1,4,0)
;;=4^O44.01
;;^UTILITY(U,$J,358.3,18051,2)
;;=^5017437
;;^UTILITY(U,$J,358.3,18052,0)
;;=O44.02^^62^733^22
;;^UTILITY(U,$J,358.3,18052,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18052,1,3,0)
;;=3^Placenta Previa,Complete w/o Hemorrhage,2nd Trimester
;;^UTILITY(U,$J,358.3,18052,1,4,0)
;;=4^O44.02
;;^UTILITY(U,$J,358.3,18052,2)
;;=^5017438
;;^UTILITY(U,$J,358.3,18053,0)
;;=O44.03^^62^733^23
;;^UTILITY(U,$J,358.3,18053,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18053,1,3,0)
;;=3^Placenta Previa,Complete w/o Hemorrhage,3rd Trimester
;;^UTILITY(U,$J,358.3,18053,1,4,0)
;;=4^O44.03
;;^UTILITY(U,$J,358.3,18053,2)
;;=^5017439
;;^UTILITY(U,$J,358.3,18054,0)
;;=O44.11^^62^733^18
;;^UTILITY(U,$J,358.3,18054,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18054,1,3,0)
;;=3^Placenta Previa,Complete w/ Hemorrhage,1st Trimester
;;^UTILITY(U,$J,358.3,18054,1,4,0)
;;=4^O44.11
;;^UTILITY(U,$J,358.3,18054,2)
;;=^5017441
;;^UTILITY(U,$J,358.3,18055,0)
;;=O44.12^^62^733^19
;;^UTILITY(U,$J,358.3,18055,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18055,1,3,0)
;;=3^Placenta Previa,Complete w/ Hemorrhage,2nd Trimester
;;^UTILITY(U,$J,358.3,18055,1,4,0)
;;=4^O44.12
;;^UTILITY(U,$J,358.3,18055,2)
;;=^5017442
;;^UTILITY(U,$J,358.3,18056,0)
;;=O44.13^^62^733^20
;;^UTILITY(U,$J,358.3,18056,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18056,1,3,0)
;;=3^Placenta Previa,Complete w/ Hemorrhage,3rd Trimester
;;^UTILITY(U,$J,358.3,18056,1,4,0)
;;=4^O44.13
;;^UTILITY(U,$J,358.3,18056,2)
;;=^5017443
;;^UTILITY(U,$J,358.3,18057,0)
;;=O45.8X1^^62^733^48
;;^UTILITY(U,$J,358.3,18057,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18057,1,3,0)
;;=3^Prem separtn of placenta, first trimester NEC
;;^UTILITY(U,$J,358.3,18057,1,4,0)
;;=4^O45.8X1
;;^UTILITY(U,$J,358.3,18057,2)
;;=^5017459
;;^UTILITY(U,$J,358.3,18058,0)
;;=O45.8X2^^62^733^49
;;^UTILITY(U,$J,358.3,18058,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18058,1,3,0)
;;=3^Prem separtn of placenta, second trimester NEC
;;^UTILITY(U,$J,358.3,18058,1,4,0)
;;=4^O45.8X2
;;^UTILITY(U,$J,358.3,18058,2)
;;=^5017460
;;^UTILITY(U,$J,358.3,18059,0)
;;=O45.8X3^^62^733^50
;;^UTILITY(U,$J,358.3,18059,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18059,1,3,0)
;;=3^Prem separtn of placenta, third trimester NEC
;;^UTILITY(U,$J,358.3,18059,1,4,0)
;;=4^O45.8X3
;;^UTILITY(U,$J,358.3,18059,2)
;;=^5017461
;;^UTILITY(U,$J,358.3,18060,0)
;;=O45.91^^62^733^51
;;^UTILITY(U,$J,358.3,18060,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18060,1,3,0)
;;=3^Prem separtn of placenta, unsp, first trimester
;;^UTILITY(U,$J,358.3,18060,1,4,0)
;;=4^O45.91
;;^UTILITY(U,$J,358.3,18060,2)
;;=^5017464
;;^UTILITY(U,$J,358.3,18061,0)
;;=O45.92^^62^733^52
;;^UTILITY(U,$J,358.3,18061,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18061,1,3,0)
;;=3^Prem separtn of placenta, unsp, second trimester
;;^UTILITY(U,$J,358.3,18061,1,4,0)
;;=4^O45.92
;;^UTILITY(U,$J,358.3,18061,2)
;;=^5017465
;;^UTILITY(U,$J,358.3,18062,0)
;;=O45.93^^62^733^53
;;^UTILITY(U,$J,358.3,18062,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18062,1,3,0)
;;=3^Prem separtn of placenta, unsp, third trimester
;;^UTILITY(U,$J,358.3,18062,1,4,0)
;;=4^O45.93
;;^UTILITY(U,$J,358.3,18062,2)
;;=^5017466
;;^UTILITY(U,$J,358.3,18063,0)
;;=O45.001^^62^733^39
;;^UTILITY(U,$J,358.3,18063,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18063,1,3,0)
;;=3^Prem separtn of placenta w coag defect, unsp, first tri
;;^UTILITY(U,$J,358.3,18063,1,4,0)
;;=4^O45.001
;;^UTILITY(U,$J,358.3,18063,2)
;;=^5017444
;;^UTILITY(U,$J,358.3,18064,0)
;;=O45.002^^62^733^40
;;^UTILITY(U,$J,358.3,18064,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18064,1,3,0)
;;=3^Prem separtn of placenta w coag defect, unsp, second tri
;;^UTILITY(U,$J,358.3,18064,1,4,0)
;;=4^O45.002
;;^UTILITY(U,$J,358.3,18064,2)
;;=^5017445
;;^UTILITY(U,$J,358.3,18065,0)
;;=O45.003^^62^733^41
;;^UTILITY(U,$J,358.3,18065,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18065,1,3,0)
;;=3^Prem separtn of placenta w coag defect, unsp, third tri
;;^UTILITY(U,$J,358.3,18065,1,4,0)
;;=4^O45.003
;;^UTILITY(U,$J,358.3,18065,2)
;;=^5017446
;;^UTILITY(U,$J,358.3,18066,0)
;;=O45.011^^62^733^36
;;^UTILITY(U,$J,358.3,18066,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18066,1,3,0)
;;=3^Prem separtn of placenta w afibrinogenemia, first trimester
;;^UTILITY(U,$J,358.3,18066,1,4,0)
;;=4^O45.011
;;^UTILITY(U,$J,358.3,18066,2)
;;=^5017448
;;^UTILITY(U,$J,358.3,18067,0)
;;=O45.012^^62^733^37
;;^UTILITY(U,$J,358.3,18067,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18067,1,3,0)
;;=3^Prem separtn of placenta w afibrinogenemia, second trimester
;;^UTILITY(U,$J,358.3,18067,1,4,0)
;;=4^O45.012
;;^UTILITY(U,$J,358.3,18067,2)
;;=^5017449
;;^UTILITY(U,$J,358.3,18068,0)
;;=O45.013^^62^733^38
;;^UTILITY(U,$J,358.3,18068,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18068,1,3,0)
;;=3^Prem separtn of placenta w afibrinogenemia, third trimester
;;^UTILITY(U,$J,358.3,18068,1,4,0)
;;=4^O45.013
;;^UTILITY(U,$J,358.3,18068,2)
;;=^5017450
;;^UTILITY(U,$J,358.3,18069,0)
;;=O45.021^^62^733^42
;;^UTILITY(U,$J,358.3,18069,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18069,1,3,0)
;;=3^Prem separtn of placenta w dissem intravasc coag, first tri
;;^UTILITY(U,$J,358.3,18069,1,4,0)
;;=4^O45.021
;;^UTILITY(U,$J,358.3,18069,2)
;;=^5017452
;;^UTILITY(U,$J,358.3,18070,0)
;;=O45.022^^62^733^43
;;^UTILITY(U,$J,358.3,18070,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18070,1,3,0)
;;=3^Prem separtn of placenta w dissem intravasc coag, second tri
;;^UTILITY(U,$J,358.3,18070,1,4,0)
;;=4^O45.022
;;^UTILITY(U,$J,358.3,18070,2)
;;=^5017453
;;^UTILITY(U,$J,358.3,18071,0)
;;=O45.023^^62^733^44
;;^UTILITY(U,$J,358.3,18071,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18071,1,3,0)
;;=3^Prem separtn of placenta w dissem intravasc coag, third tri
;;^UTILITY(U,$J,358.3,18071,1,4,0)
;;=4^O45.023
;;^UTILITY(U,$J,358.3,18071,2)
;;=^5017454
;;^UTILITY(U,$J,358.3,18072,0)
;;=O45.091^^62^733^45
;;^UTILITY(U,$J,358.3,18072,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18072,1,3,0)
;;=3^Prem separtn of placenta w oth coag defect, first trimester
;;^UTILITY(U,$J,358.3,18072,1,4,0)
;;=4^O45.091
;;^UTILITY(U,$J,358.3,18072,2)
;;=^5017456
;;^UTILITY(U,$J,358.3,18073,0)
;;=O45.092^^62^733^46
;;^UTILITY(U,$J,358.3,18073,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18073,1,3,0)
;;=3^Prem separtn of placenta w oth coag defect, second trimester
;;^UTILITY(U,$J,358.3,18073,1,4,0)
;;=4^O45.092
;;^UTILITY(U,$J,358.3,18073,2)
;;=^5017457
;;^UTILITY(U,$J,358.3,18074,0)
;;=O45.093^^62^733^47
;;^UTILITY(U,$J,358.3,18074,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18074,1,3,0)
;;=3^Prem separtn of placenta w oth coag defect, third trimester
;;^UTILITY(U,$J,358.3,18074,1,4,0)
;;=4^O45.093
;;^UTILITY(U,$J,358.3,18074,2)
;;=^5017458
;;^UTILITY(U,$J,358.3,18075,0)
;;=O46.001^^62^733^4
;;^UTILITY(U,$J,358.3,18075,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18075,1,3,0)
;;=3^Antepartum hemorrhage w coag defect, unsp, first trimester
;;^UTILITY(U,$J,358.3,18075,1,4,0)
;;=4^O46.001
;;^UTILITY(U,$J,358.3,18075,2)
;;=^5017467
;;^UTILITY(U,$J,358.3,18076,0)
;;=O46.002^^62^733^5
;;^UTILITY(U,$J,358.3,18076,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18076,1,3,0)
;;=3^Antepartum hemorrhage w coag defect, unsp, second trimester
;;^UTILITY(U,$J,358.3,18076,1,4,0)
;;=4^O46.002
;;^UTILITY(U,$J,358.3,18076,2)
;;=^5017468
;;^UTILITY(U,$J,358.3,18077,0)
;;=O46.003^^62^733^6
;;^UTILITY(U,$J,358.3,18077,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18077,1,3,0)
;;=3^Antepartum hemorrhage w coag defect, unsp, third trimester
;;^UTILITY(U,$J,358.3,18077,1,4,0)
;;=4^O46.003
;;^UTILITY(U,$J,358.3,18077,2)
;;=^5017469
;;^UTILITY(U,$J,358.3,18078,0)
;;=O46.011^^62^733^1
;;^UTILITY(U,$J,358.3,18078,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,18078,1,3,0)
;;=3^Antepartum hemorrhage w afibrinogenemia, first trimester
;;^UTILITY(U,$J,358.3,18078,1,4,0)
;;=4^O46.011
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI07E 19754 printed Dec 13, 2024@01:43:06 Page 2
IBDEI07E ; ; 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,18006,1,0)
+2 ;;=^358.31IA^3^2
+3 ;;^UTILITY(U,$J,358.3,18006,1,2,0)
+4 ;;=2^59430
+5 ;;^UTILITY(U,$J,358.3,18006,1,3,0)
+6 ;;=3^POST PARTUM CARE ONLY
+7 ;;^UTILITY(U,$J,358.3,18007,0)
+8 ;;=99401^^60^725^1^^^^1
+9 ;;^UTILITY(U,$J,358.3,18007,1,0)
+10 ;;=^358.31IA^3^2
+11 ;;^UTILITY(U,$J,358.3,18007,1,2,0)
+12 ;;=2^99401
+13 ;;^UTILITY(U,$J,358.3,18007,1,3,0)
+14 ;;=3^PREVENTIVE COUNSELING INDIV,15MIN
+15 ;;^UTILITY(U,$J,358.3,18008,0)
+16 ;;=99402^^60^725^2^^^^1
+17 ;;^UTILITY(U,$J,358.3,18008,1,0)
+18 ;;=^358.31IA^3^2
+19 ;;^UTILITY(U,$J,358.3,18008,1,2,0)
+20 ;;=2^99402
+21 ;;^UTILITY(U,$J,358.3,18008,1,3,0)
+22 ;;=3^PREVENTIVE COUNSELING INDIV,30MIN
+23 ;;^UTILITY(U,$J,358.3,18009,0)
+24 ;;=99403^^60^725^3^^^^1
+25 ;;^UTILITY(U,$J,358.3,18009,1,0)
+26 ;;=^358.31IA^3^2
+27 ;;^UTILITY(U,$J,358.3,18009,1,2,0)
+28 ;;=2^99403
+29 ;;^UTILITY(U,$J,358.3,18009,1,3,0)
+30 ;;=3^PREVENTIVE COUNSELING INDIV,45MIN
+31 ;;^UTILITY(U,$J,358.3,18010,0)
+32 ;;=99395^^60^726^1^^^^1
+33 ;;^UTILITY(U,$J,358.3,18010,1,0)
+34 ;;=^358.31IA^3^2
+35 ;;^UTILITY(U,$J,358.3,18010,1,2,0)
+36 ;;=2^99395
+37 ;;^UTILITY(U,$J,358.3,18010,1,3,0)
+38 ;;=3^PREV VISIT EST AGE 18-39
+39 ;;^UTILITY(U,$J,358.3,18011,0)
+40 ;;=99396^^60^726^2^^^^1
+41 ;;^UTILITY(U,$J,358.3,18011,1,0)
+42 ;;=^358.31IA^3^2
+43 ;;^UTILITY(U,$J,358.3,18011,1,2,0)
+44 ;;=2^99396
+45 ;;^UTILITY(U,$J,358.3,18011,1,3,0)
+46 ;;=3^PREV VISIT EST AGE 40-64
+47 ;;^UTILITY(U,$J,358.3,18012,0)
+48 ;;=99397^^60^726^3^^^^1
+49 ;;^UTILITY(U,$J,358.3,18012,1,0)
+50 ;;=^358.31IA^3^2
+51 ;;^UTILITY(U,$J,358.3,18012,1,2,0)
+52 ;;=2^99397
+53 ;;^UTILITY(U,$J,358.3,18012,1,3,0)
+54 ;;=3^PREV VISIT EST 65 & OVER
+55 ;;^UTILITY(U,$J,358.3,18013,0)
+56 ;;=99385^^60^727^1^^^^1
+57 ;;^UTILITY(U,$J,358.3,18013,1,0)
+58 ;;=^358.31IA^3^2
+59 ;;^UTILITY(U,$J,358.3,18013,1,2,0)
+60 ;;=2^99385
+61 ;;^UTILITY(U,$J,358.3,18013,1,3,0)
+62 ;;=3^PREV VISIT NEW AGE 18-39
+63 ;;^UTILITY(U,$J,358.3,18014,0)
+64 ;;=99386^^60^727^2^^^^1
+65 ;;^UTILITY(U,$J,358.3,18014,1,0)
+66 ;;=^358.31IA^3^2
+67 ;;^UTILITY(U,$J,358.3,18014,1,2,0)
+68 ;;=2^99386
+69 ;;^UTILITY(U,$J,358.3,18014,1,3,0)
+70 ;;=3^PREV VISIT NEW AGE 40-64
+71 ;;^UTILITY(U,$J,358.3,18015,0)
+72 ;;=99387^^60^727^3^^^^1
+73 ;;^UTILITY(U,$J,358.3,18015,1,0)
+74 ;;=^358.31IA^3^2
+75 ;;^UTILITY(U,$J,358.3,18015,1,2,0)
+76 ;;=2^99387
+77 ;;^UTILITY(U,$J,358.3,18015,1,3,0)
+78 ;;=3^PREV VISIT NEW 65 & OVER
+79 ;;^UTILITY(U,$J,358.3,18016,0)
+80 ;;=A4247^^60^728^2^^^^1
+81 ;;^UTILITY(U,$J,358.3,18016,1,0)
+82 ;;=^358.31IA^3^2
+83 ;;^UTILITY(U,$J,358.3,18016,1,2,0)
+84 ;;=2^A4247
+85 ;;^UTILITY(U,$J,358.3,18016,1,3,0)
+86 ;;=3^BETADINE/IODINE SWABS/WIPES,BOX
+87 ;;^UTILITY(U,$J,358.3,18017,0)
+88 ;;=A4332^^60^728^3^^^^1
+89 ;;^UTILITY(U,$J,358.3,18017,1,0)
+90 ;;=^358.31IA^3^2
+91 ;;^UTILITY(U,$J,358.3,18017,1,2,0)
+92 ;;=2^A4332
+93 ;;^UTILITY(U,$J,358.3,18017,1,3,0)
+94 ;;=3^LUBE STERILE PACKET
+95 ;;^UTILITY(U,$J,358.3,18018,0)
+96 ;;=A4208^^60^728^1^^^^1
+97 ;;^UTILITY(U,$J,358.3,18018,1,0)
+98 ;;=^358.31IA^3^2
+99 ;;^UTILITY(U,$J,358.3,18018,1,2,0)
+100 ;;=2^A4208
+101 ;;^UTILITY(U,$J,358.3,18018,1,3,0)
+102 ;;=3^3 CC STERILE SYRINGE & NEEDLE
+103 ;;^UTILITY(U,$J,358.3,18019,0)
+104 ;;=99354^^60^729^1^^^^1
+105 ;;^UTILITY(U,$J,358.3,18019,1,0)
+106 ;;=^358.31IA^3^2
+107 ;;^UTILITY(U,$J,358.3,18019,1,2,0)
+108 ;;=2^99354
+109 ;;^UTILITY(U,$J,358.3,18019,1,3,0)
+110 ;;=3^Prolng Svc Outpt/Obsv 30-74 min
+111 ;;^UTILITY(U,$J,358.3,18020,0)
+112 ;;=99355^^60^729^2^^^^1
+113 ;;^UTILITY(U,$J,358.3,18020,1,0)
+114 ;;=^358.31IA^3^2
+115 ;;^UTILITY(U,$J,358.3,18020,1,2,0)
+116 ;;=2^99355
+117 ;;^UTILITY(U,$J,358.3,18020,1,3,0)
+118 ;;=3^Prolng Svc Outpt/Obsv,Ea Addl 30 min
+119 ;;^UTILITY(U,$J,358.3,18021,0)
+120 ;;=99356^^60^729^3^^^^1
+121 ;;^UTILITY(U,$J,358.3,18021,1,0)
+122 ;;=^358.31IA^3^2
+123 ;;^UTILITY(U,$J,358.3,18021,1,2,0)
+124 ;;=2^99356
+125 ;;^UTILITY(U,$J,358.3,18021,1,3,0)
+126 ;;=3^Prolng Svc Inpt 30-74 min
+127 ;;^UTILITY(U,$J,358.3,18022,0)
+128 ;;=99357^^60^729^4^^^^1
+129 ;;^UTILITY(U,$J,358.3,18022,1,0)
+130 ;;=^358.31IA^3^2
+131 ;;^UTILITY(U,$J,358.3,18022,1,2,0)
+132 ;;=2^99357
+133 ;;^UTILITY(U,$J,358.3,18022,1,3,0)
+134 ;;=3^Prolng Svc Inpt,Ea Addl 30 min
+135 ;;^UTILITY(U,$J,358.3,18023,0)
+136 ;;=99358^^60^729^5^^^^1
+137 ;;^UTILITY(U,$J,358.3,18023,1,0)
+138 ;;=^358.31IA^3^2
+139 ;;^UTILITY(U,$J,358.3,18023,1,2,0)
+140 ;;=2^99358
+141 ;;^UTILITY(U,$J,358.3,18023,1,3,0)
+142 ;;=3^Prolng Svc w/o Pt 30-74 min
+143 ;;^UTILITY(U,$J,358.3,18024,0)
+144 ;;=99359^^60^729^6^^^^1
+145 ;;^UTILITY(U,$J,358.3,18024,1,0)
+146 ;;=^358.31IA^3^2
+147 ;;^UTILITY(U,$J,358.3,18024,1,2,0)
+148 ;;=2^99359
+149 ;;^UTILITY(U,$J,358.3,18024,1,3,0)
+150 ;;=3^Prolng Svc w/o Pt,Ea Addl 30 min
+151 ;;^UTILITY(U,$J,358.3,18025,0)
+152 ;;=99415^^60^729^7^^^^1
+153 ;;^UTILITY(U,$J,358.3,18025,1,0)
+154 ;;=^358.31IA^3^2
+155 ;;^UTILITY(U,$J,358.3,18025,1,2,0)
+156 ;;=2^99415
+157 ;;^UTILITY(U,$J,358.3,18025,1,3,0)
+158 ;;=3^Prolng Clin Staff Svc 45-74 min
+159 ;;^UTILITY(U,$J,358.3,18026,0)
+160 ;;=99416^^60^729^8^^^^1
+161 ;;^UTILITY(U,$J,358.3,18026,1,0)
+162 ;;=^358.31IA^3^2
+163 ;;^UTILITY(U,$J,358.3,18026,1,2,0)
+164 ;;=2^99416
+165 ;;^UTILITY(U,$J,358.3,18026,1,3,0)
+166 ;;=3^Prolng Clin Staff Svc,Ea Addl 30 min
+167 ;;^UTILITY(U,$J,358.3,18027,0)
+168 ;;=99417^^60^729^9^^^^1
+169 ;;^UTILITY(U,$J,358.3,18027,1,0)
+170 ;;=^358.31IA^3^2
+171 ;;^UTILITY(U,$J,358.3,18027,1,2,0)
+172 ;;=2^99417
+173 ;;^UTILITY(U,$J,358.3,18027,1,3,0)
+174 ;;=3^Prolng Clin Staff Svc,Ea 15 min;Only w/ 99205/99215
+175 ;;^UTILITY(U,$J,358.3,18028,0)
+176 ;;=99202^^61^730^1
+177 ;;^UTILITY(U,$J,358.3,18028,1,0)
+178 ;;=^358.31IA^2^2
+179 ;;^UTILITY(U,$J,358.3,18028,1,1,0)
+180 ;;=1^SF MDM or 15-29 mins
+181 ;;^UTILITY(U,$J,358.3,18028,1,2,0)
+182 ;;=2^99202
+183 ;;^UTILITY(U,$J,358.3,18029,0)
+184 ;;=99203^^61^730^2
+185 ;;^UTILITY(U,$J,358.3,18029,1,0)
+186 ;;=^358.31IA^2^2
+187 ;;^UTILITY(U,$J,358.3,18029,1,1,0)
+188 ;;=1^Low Complex MDM or 30-44 mins
+189 ;;^UTILITY(U,$J,358.3,18029,1,2,0)
+190 ;;=2^99203
+191 ;;^UTILITY(U,$J,358.3,18030,0)
+192 ;;=99204^^61^730^3
+193 ;;^UTILITY(U,$J,358.3,18030,1,0)
+194 ;;=^358.31IA^2^2
+195 ;;^UTILITY(U,$J,358.3,18030,1,1,0)
+196 ;;=1^Mod Complex MDM or 45-59 mins
+197 ;;^UTILITY(U,$J,358.3,18030,1,2,0)
+198 ;;=2^99204
+199 ;;^UTILITY(U,$J,358.3,18031,0)
+200 ;;=99205^^61^730^4
+201 ;;^UTILITY(U,$J,358.3,18031,1,0)
+202 ;;=^358.31IA^2^2
+203 ;;^UTILITY(U,$J,358.3,18031,1,1,0)
+204 ;;=1^High Complex MDM or 60-74 mins
+205 ;;^UTILITY(U,$J,358.3,18031,1,2,0)
+206 ;;=2^99205
+207 ;;^UTILITY(U,$J,358.3,18032,0)
+208 ;;=99211^^61^731^1
+209 ;;^UTILITY(U,$J,358.3,18032,1,0)
+210 ;;=^358.31IA^2^2
+211 ;;^UTILITY(U,$J,358.3,18032,1,1,0)
+212 ;;=1^Nurse Visit (no MD seen)
+213 ;;^UTILITY(U,$J,358.3,18032,1,2,0)
+214 ;;=2^99211
+215 ;;^UTILITY(U,$J,358.3,18033,0)
+216 ;;=99212^^61^731^2
+217 ;;^UTILITY(U,$J,358.3,18033,1,0)
+218 ;;=^358.31IA^2^2
+219 ;;^UTILITY(U,$J,358.3,18033,1,1,0)
+220 ;;=1^SF MDM or 10-19 mins
+221 ;;^UTILITY(U,$J,358.3,18033,1,2,0)
+222 ;;=2^99212
+223 ;;^UTILITY(U,$J,358.3,18034,0)
+224 ;;=99213^^61^731^3
+225 ;;^UTILITY(U,$J,358.3,18034,1,0)
+226 ;;=^358.31IA^2^2
+227 ;;^UTILITY(U,$J,358.3,18034,1,1,0)
+228 ;;=1^Low Complex MDM or 20-29 mins
+229 ;;^UTILITY(U,$J,358.3,18034,1,2,0)
+230 ;;=2^99213
+231 ;;^UTILITY(U,$J,358.3,18035,0)
+232 ;;=99214^^61^731^4
+233 ;;^UTILITY(U,$J,358.3,18035,1,0)
+234 ;;=^358.31IA^2^2
+235 ;;^UTILITY(U,$J,358.3,18035,1,1,0)
+236 ;;=1^Mod Complex MDM or 30-39 mins
+237 ;;^UTILITY(U,$J,358.3,18035,1,2,0)
+238 ;;=2^99214
+239 ;;^UTILITY(U,$J,358.3,18036,0)
+240 ;;=99215^^61^731^5
+241 ;;^UTILITY(U,$J,358.3,18036,1,0)
+242 ;;=^358.31IA^2^2
+243 ;;^UTILITY(U,$J,358.3,18036,1,1,0)
+244 ;;=1^High Complex MDM or 40-54 mins
+245 ;;^UTILITY(U,$J,358.3,18036,1,2,0)
+246 ;;=2^99215
+247 ;;^UTILITY(U,$J,358.3,18037,0)
+248 ;;=99024^^61^731^6
+249 ;;^UTILITY(U,$J,358.3,18037,1,0)
+250 ;;=^358.31IA^2^2
+251 ;;^UTILITY(U,$J,358.3,18037,1,1,0)
+252 ;;=1^Post Op Visit in Global
+253 ;;^UTILITY(U,$J,358.3,18037,1,2,0)
+254 ;;=2^99024
+255 ;;^UTILITY(U,$J,358.3,18038,0)
+256 ;;=99241^^61^732^1
+257 ;;^UTILITY(U,$J,358.3,18038,1,0)
+258 ;;=^358.31IA^2^2
+259 ;;^UTILITY(U,$J,358.3,18038,1,1,0)
+260 ;;=1^Prob Focused Exam
+261 ;;^UTILITY(U,$J,358.3,18038,1,2,0)
+262 ;;=2^99241
+263 ;;^UTILITY(U,$J,358.3,18039,0)
+264 ;;=99242^^61^732^2
+265 ;;^UTILITY(U,$J,358.3,18039,1,0)
+266 ;;=^358.31IA^2^2
+267 ;;^UTILITY(U,$J,358.3,18039,1,1,0)
+268 ;;=1^Exp Prob Focused Exam
+269 ;;^UTILITY(U,$J,358.3,18039,1,2,0)
+270 ;;=2^99242
+271 ;;^UTILITY(U,$J,358.3,18040,0)
+272 ;;=99243^^61^732^3
+273 ;;^UTILITY(U,$J,358.3,18040,1,0)
+274 ;;=^358.31IA^2^2
+275 ;;^UTILITY(U,$J,358.3,18040,1,1,0)
+276 ;;=1^Detailed Exam
+277 ;;^UTILITY(U,$J,358.3,18040,1,2,0)
+278 ;;=2^99243
+279 ;;^UTILITY(U,$J,358.3,18041,0)
+280 ;;=99244^^61^732^4
+281 ;;^UTILITY(U,$J,358.3,18041,1,0)
+282 ;;=^358.31IA^2^2
+283 ;;^UTILITY(U,$J,358.3,18041,1,1,0)
+284 ;;=1^Comprehensive,Moderate
+285 ;;^UTILITY(U,$J,358.3,18041,1,2,0)
+286 ;;=2^99244
+287 ;;^UTILITY(U,$J,358.3,18042,0)
+288 ;;=99245^^61^732^5
+289 ;;^UTILITY(U,$J,358.3,18042,1,0)
+290 ;;=^358.31IA^2^2
+291 ;;^UTILITY(U,$J,358.3,18042,1,1,0)
+292 ;;=1^Comprehensive,High
+293 ;;^UTILITY(U,$J,358.3,18042,1,2,0)
+294 ;;=2^99245
+295 ;;^UTILITY(U,$J,358.3,18043,0)
+296 ;;=O01.9^^62^733^15
+297 ;;^UTILITY(U,$J,358.3,18043,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,18043,1,3,0)
+300 ;;=3^Hydatidiform mole, unspecified
+301 ;;^UTILITY(U,$J,358.3,18043,1,4,0)
+302 ;;=4^O01.9
+303 ;;^UTILITY(U,$J,358.3,18043,2)
+304 ;;=^5015977
+305 ;;^UTILITY(U,$J,358.3,18044,0)
+306 ;;=O02.81^^62^733^16
+307 ;;^UTILITY(U,$J,358.3,18044,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,18044,1,3,0)
+310 ;;=3^Inapprop chg quantitav hCG in early pregnancy
+311 ;;^UTILITY(U,$J,358.3,18044,1,4,0)
+312 ;;=4^O02.81
+313 ;;^UTILITY(U,$J,358.3,18044,2)
+314 ;;=^340611
+315 ;;^UTILITY(U,$J,358.3,18045,0)
+316 ;;=O02.1^^62^733^17
+317 ;;^UTILITY(U,$J,358.3,18045,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,18045,1,3,0)
+320 ;;=3^Missed abortion
+321 ;;^UTILITY(U,$J,358.3,18045,1,4,0)
+322 ;;=4^O02.1
+323 ;;^UTILITY(U,$J,358.3,18045,2)
+324 ;;=^1259
+325 ;;^UTILITY(U,$J,358.3,18046,0)
+326 ;;=O08.7^^62^733^56
+327 ;;^UTILITY(U,$J,358.3,18046,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,18046,1,3,0)
+330 ;;=3^Venous comp following an ectopic and molar pregnancy NEC
+331 ;;^UTILITY(U,$J,358.3,18046,1,4,0)
+332 ;;=4^O08.7
+333 ;;^UTILITY(U,$J,358.3,18046,2)
+334 ;;=^5016042
+335 ;;^UTILITY(U,$J,358.3,18047,0)
+336 ;;=O08.81^^62^733^13
+337 ;;^UTILITY(U,$J,358.3,18047,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,18047,1,3,0)
+340 ;;=3^Cardiac arrest following an ectopic and molar pregnancy
+341 ;;^UTILITY(U,$J,358.3,18047,1,4,0)
+342 ;;=4^O08.81
+343 ;;^UTILITY(U,$J,358.3,18047,2)
+344 ;;=^5016043
+345 ;;^UTILITY(U,$J,358.3,18048,0)
+346 ;;=O08.83^^62^733^55
+347 ;;^UTILITY(U,$J,358.3,18048,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,18048,1,3,0)
+350 ;;=3^Urinary tract infection fol an ectopic and molar pregnancy
+351 ;;^UTILITY(U,$J,358.3,18048,1,4,0)
+352 ;;=4^O08.83
+353 ;;^UTILITY(U,$J,358.3,18048,2)
+354 ;;=^5016045
+355 ;;^UTILITY(U,$J,358.3,18049,0)
+356 ;;=O08.89^^62^733^14
+357 ;;^UTILITY(U,$J,358.3,18049,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,18049,1,3,0)
+360 ;;=3^Complications following an ectopic and molar pregnancy NEC
+361 ;;^UTILITY(U,$J,358.3,18049,1,4,0)
+362 ;;=4^O08.89
+363 ;;^UTILITY(U,$J,358.3,18049,2)
+364 ;;=^5016046
+365 ;;^UTILITY(U,$J,358.3,18050,0)
+366 ;;=O20.0^^62^733^54
+367 ;;^UTILITY(U,$J,358.3,18050,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,18050,1,3,0)
+370 ;;=3^Threatened abortion
+371 ;;^UTILITY(U,$J,358.3,18050,1,4,0)
+372 ;;=4^O20.0
+373 ;;^UTILITY(U,$J,358.3,18050,2)
+374 ;;=^1287
+375 ;;^UTILITY(U,$J,358.3,18051,0)
+376 ;;=O44.01^^62^733^21
+377 ;;^UTILITY(U,$J,358.3,18051,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,18051,1,3,0)
+380 ;;=3^Placenta Previa,Complete w/o Hemorrhage,1st Trimester
+381 ;;^UTILITY(U,$J,358.3,18051,1,4,0)
+382 ;;=4^O44.01
+383 ;;^UTILITY(U,$J,358.3,18051,2)
+384 ;;=^5017437
+385 ;;^UTILITY(U,$J,358.3,18052,0)
+386 ;;=O44.02^^62^733^22
+387 ;;^UTILITY(U,$J,358.3,18052,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,18052,1,3,0)
+390 ;;=3^Placenta Previa,Complete w/o Hemorrhage,2nd Trimester
+391 ;;^UTILITY(U,$J,358.3,18052,1,4,0)
+392 ;;=4^O44.02
+393 ;;^UTILITY(U,$J,358.3,18052,2)
+394 ;;=^5017438
+395 ;;^UTILITY(U,$J,358.3,18053,0)
+396 ;;=O44.03^^62^733^23
+397 ;;^UTILITY(U,$J,358.3,18053,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,18053,1,3,0)
+400 ;;=3^Placenta Previa,Complete w/o Hemorrhage,3rd Trimester
+401 ;;^UTILITY(U,$J,358.3,18053,1,4,0)
+402 ;;=4^O44.03
+403 ;;^UTILITY(U,$J,358.3,18053,2)
+404 ;;=^5017439
+405 ;;^UTILITY(U,$J,358.3,18054,0)
+406 ;;=O44.11^^62^733^18
+407 ;;^UTILITY(U,$J,358.3,18054,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,18054,1,3,0)
+410 ;;=3^Placenta Previa,Complete w/ Hemorrhage,1st Trimester
+411 ;;^UTILITY(U,$J,358.3,18054,1,4,0)
+412 ;;=4^O44.11
+413 ;;^UTILITY(U,$J,358.3,18054,2)
+414 ;;=^5017441
+415 ;;^UTILITY(U,$J,358.3,18055,0)
+416 ;;=O44.12^^62^733^19
+417 ;;^UTILITY(U,$J,358.3,18055,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,18055,1,3,0)
+420 ;;=3^Placenta Previa,Complete w/ Hemorrhage,2nd Trimester
+421 ;;^UTILITY(U,$J,358.3,18055,1,4,0)
+422 ;;=4^O44.12
+423 ;;^UTILITY(U,$J,358.3,18055,2)
+424 ;;=^5017442
+425 ;;^UTILITY(U,$J,358.3,18056,0)
+426 ;;=O44.13^^62^733^20
+427 ;;^UTILITY(U,$J,358.3,18056,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,18056,1,3,0)
+430 ;;=3^Placenta Previa,Complete w/ Hemorrhage,3rd Trimester
+431 ;;^UTILITY(U,$J,358.3,18056,1,4,0)
+432 ;;=4^O44.13
+433 ;;^UTILITY(U,$J,358.3,18056,2)
+434 ;;=^5017443
+435 ;;^UTILITY(U,$J,358.3,18057,0)
+436 ;;=O45.8X1^^62^733^48
+437 ;;^UTILITY(U,$J,358.3,18057,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,18057,1,3,0)
+440 ;;=3^Prem separtn of placenta, first trimester NEC
+441 ;;^UTILITY(U,$J,358.3,18057,1,4,0)
+442 ;;=4^O45.8X1
+443 ;;^UTILITY(U,$J,358.3,18057,2)
+444 ;;=^5017459
+445 ;;^UTILITY(U,$J,358.3,18058,0)
+446 ;;=O45.8X2^^62^733^49
+447 ;;^UTILITY(U,$J,358.3,18058,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,18058,1,3,0)
+450 ;;=3^Prem separtn of placenta, second trimester NEC
+451 ;;^UTILITY(U,$J,358.3,18058,1,4,0)
+452 ;;=4^O45.8X2
+453 ;;^UTILITY(U,$J,358.3,18058,2)
+454 ;;=^5017460
+455 ;;^UTILITY(U,$J,358.3,18059,0)
+456 ;;=O45.8X3^^62^733^50
+457 ;;^UTILITY(U,$J,358.3,18059,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,18059,1,3,0)
+460 ;;=3^Prem separtn of placenta, third trimester NEC
+461 ;;^UTILITY(U,$J,358.3,18059,1,4,0)
+462 ;;=4^O45.8X3
+463 ;;^UTILITY(U,$J,358.3,18059,2)
+464 ;;=^5017461
+465 ;;^UTILITY(U,$J,358.3,18060,0)
+466 ;;=O45.91^^62^733^51
+467 ;;^UTILITY(U,$J,358.3,18060,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,18060,1,3,0)
+470 ;;=3^Prem separtn of placenta, unsp, first trimester
+471 ;;^UTILITY(U,$J,358.3,18060,1,4,0)
+472 ;;=4^O45.91
+473 ;;^UTILITY(U,$J,358.3,18060,2)
+474 ;;=^5017464
+475 ;;^UTILITY(U,$J,358.3,18061,0)
+476 ;;=O45.92^^62^733^52
+477 ;;^UTILITY(U,$J,358.3,18061,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,18061,1,3,0)
+480 ;;=3^Prem separtn of placenta, unsp, second trimester
+481 ;;^UTILITY(U,$J,358.3,18061,1,4,0)
+482 ;;=4^O45.92
+483 ;;^UTILITY(U,$J,358.3,18061,2)
+484 ;;=^5017465
+485 ;;^UTILITY(U,$J,358.3,18062,0)
+486 ;;=O45.93^^62^733^53
+487 ;;^UTILITY(U,$J,358.3,18062,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,18062,1,3,0)
+490 ;;=3^Prem separtn of placenta, unsp, third trimester
+491 ;;^UTILITY(U,$J,358.3,18062,1,4,0)
+492 ;;=4^O45.93
+493 ;;^UTILITY(U,$J,358.3,18062,2)
+494 ;;=^5017466
+495 ;;^UTILITY(U,$J,358.3,18063,0)
+496 ;;=O45.001^^62^733^39
+497 ;;^UTILITY(U,$J,358.3,18063,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,18063,1,3,0)
+500 ;;=3^Prem separtn of placenta w coag defect, unsp, first tri
+501 ;;^UTILITY(U,$J,358.3,18063,1,4,0)
+502 ;;=4^O45.001
+503 ;;^UTILITY(U,$J,358.3,18063,2)
+504 ;;=^5017444
+505 ;;^UTILITY(U,$J,358.3,18064,0)
+506 ;;=O45.002^^62^733^40
+507 ;;^UTILITY(U,$J,358.3,18064,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,18064,1,3,0)
+510 ;;=3^Prem separtn of placenta w coag defect, unsp, second tri
+511 ;;^UTILITY(U,$J,358.3,18064,1,4,0)
+512 ;;=4^O45.002
+513 ;;^UTILITY(U,$J,358.3,18064,2)
+514 ;;=^5017445
+515 ;;^UTILITY(U,$J,358.3,18065,0)
+516 ;;=O45.003^^62^733^41
+517 ;;^UTILITY(U,$J,358.3,18065,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,18065,1,3,0)
+520 ;;=3^Prem separtn of placenta w coag defect, unsp, third tri
+521 ;;^UTILITY(U,$J,358.3,18065,1,4,0)
+522 ;;=4^O45.003
+523 ;;^UTILITY(U,$J,358.3,18065,2)
+524 ;;=^5017446
+525 ;;^UTILITY(U,$J,358.3,18066,0)
+526 ;;=O45.011^^62^733^36
+527 ;;^UTILITY(U,$J,358.3,18066,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,18066,1,3,0)
+530 ;;=3^Prem separtn of placenta w afibrinogenemia, first trimester
+531 ;;^UTILITY(U,$J,358.3,18066,1,4,0)
+532 ;;=4^O45.011
+533 ;;^UTILITY(U,$J,358.3,18066,2)
+534 ;;=^5017448
+535 ;;^UTILITY(U,$J,358.3,18067,0)
+536 ;;=O45.012^^62^733^37
+537 ;;^UTILITY(U,$J,358.3,18067,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,18067,1,3,0)
+540 ;;=3^Prem separtn of placenta w afibrinogenemia, second trimester
+541 ;;^UTILITY(U,$J,358.3,18067,1,4,0)
+542 ;;=4^O45.012
+543 ;;^UTILITY(U,$J,358.3,18067,2)
+544 ;;=^5017449
+545 ;;^UTILITY(U,$J,358.3,18068,0)
+546 ;;=O45.013^^62^733^38
+547 ;;^UTILITY(U,$J,358.3,18068,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,18068,1,3,0)
+550 ;;=3^Prem separtn of placenta w afibrinogenemia, third trimester
+551 ;;^UTILITY(U,$J,358.3,18068,1,4,0)
+552 ;;=4^O45.013
+553 ;;^UTILITY(U,$J,358.3,18068,2)
+554 ;;=^5017450
+555 ;;^UTILITY(U,$J,358.3,18069,0)
+556 ;;=O45.021^^62^733^42
+557 ;;^UTILITY(U,$J,358.3,18069,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,18069,1,3,0)
+560 ;;=3^Prem separtn of placenta w dissem intravasc coag, first tri
+561 ;;^UTILITY(U,$J,358.3,18069,1,4,0)
+562 ;;=4^O45.021
+563 ;;^UTILITY(U,$J,358.3,18069,2)
+564 ;;=^5017452
+565 ;;^UTILITY(U,$J,358.3,18070,0)
+566 ;;=O45.022^^62^733^43
+567 ;;^UTILITY(U,$J,358.3,18070,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,18070,1,3,0)
+570 ;;=3^Prem separtn of placenta w dissem intravasc coag, second tri
+571 ;;^UTILITY(U,$J,358.3,18070,1,4,0)
+572 ;;=4^O45.022
+573 ;;^UTILITY(U,$J,358.3,18070,2)
+574 ;;=^5017453
+575 ;;^UTILITY(U,$J,358.3,18071,0)
+576 ;;=O45.023^^62^733^44
+577 ;;^UTILITY(U,$J,358.3,18071,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,18071,1,3,0)
+580 ;;=3^Prem separtn of placenta w dissem intravasc coag, third tri
+581 ;;^UTILITY(U,$J,358.3,18071,1,4,0)
+582 ;;=4^O45.023
+583 ;;^UTILITY(U,$J,358.3,18071,2)
+584 ;;=^5017454
+585 ;;^UTILITY(U,$J,358.3,18072,0)
+586 ;;=O45.091^^62^733^45
+587 ;;^UTILITY(U,$J,358.3,18072,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,18072,1,3,0)
+590 ;;=3^Prem separtn of placenta w oth coag defect, first trimester
+591 ;;^UTILITY(U,$J,358.3,18072,1,4,0)
+592 ;;=4^O45.091
+593 ;;^UTILITY(U,$J,358.3,18072,2)
+594 ;;=^5017456
+595 ;;^UTILITY(U,$J,358.3,18073,0)
+596 ;;=O45.092^^62^733^46
+597 ;;^UTILITY(U,$J,358.3,18073,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,18073,1,3,0)
+600 ;;=3^Prem separtn of placenta w oth coag defect, second trimester
+601 ;;^UTILITY(U,$J,358.3,18073,1,4,0)
+602 ;;=4^O45.092
+603 ;;^UTILITY(U,$J,358.3,18073,2)
+604 ;;=^5017457
+605 ;;^UTILITY(U,$J,358.3,18074,0)
+606 ;;=O45.093^^62^733^47
+607 ;;^UTILITY(U,$J,358.3,18074,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,18074,1,3,0)
+610 ;;=3^Prem separtn of placenta w oth coag defect, third trimester
+611 ;;^UTILITY(U,$J,358.3,18074,1,4,0)
+612 ;;=4^O45.093
+613 ;;^UTILITY(U,$J,358.3,18074,2)
+614 ;;=^5017458
+615 ;;^UTILITY(U,$J,358.3,18075,0)
+616 ;;=O46.001^^62^733^4
+617 ;;^UTILITY(U,$J,358.3,18075,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,18075,1,3,0)
+620 ;;=3^Antepartum hemorrhage w coag defect, unsp, first trimester
+621 ;;^UTILITY(U,$J,358.3,18075,1,4,0)
+622 ;;=4^O46.001
+623 ;;^UTILITY(U,$J,358.3,18075,2)
+624 ;;=^5017467
+625 ;;^UTILITY(U,$J,358.3,18076,0)
+626 ;;=O46.002^^62^733^5
+627 ;;^UTILITY(U,$J,358.3,18076,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,18076,1,3,0)
+630 ;;=3^Antepartum hemorrhage w coag defect, unsp, second trimester
+631 ;;^UTILITY(U,$J,358.3,18076,1,4,0)
+632 ;;=4^O46.002
+633 ;;^UTILITY(U,$J,358.3,18076,2)
+634 ;;=^5017468
+635 ;;^UTILITY(U,$J,358.3,18077,0)
+636 ;;=O46.003^^62^733^6
+637 ;;^UTILITY(U,$J,358.3,18077,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,18077,1,3,0)
+640 ;;=3^Antepartum hemorrhage w coag defect, unsp, third trimester
+641 ;;^UTILITY(U,$J,358.3,18077,1,4,0)
+642 ;;=4^O46.003
+643 ;;^UTILITY(U,$J,358.3,18077,2)
+644 ;;=^5017469
+645 ;;^UTILITY(U,$J,358.3,18078,0)
+646 ;;=O46.011^^62^733^1
+647 ;;^UTILITY(U,$J,358.3,18078,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,18078,1,3,0)
+650 ;;=3^Antepartum hemorrhage w afibrinogenemia, first trimester
+651 ;;^UTILITY(U,$J,358.3,18078,1,4,0)
+652 ;;=4^O46.011