IBDEI0D5 ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,32981,1,2,0)
;;=2^PREP DONOR LIVER 3-SEGMENT
;;^UTILITY(U,$J,358.3,32981,1,4,0)
;;=4^47144
;;^UTILITY(U,$J,358.3,32982,0)
;;=47145^^101^1367^2^^^^1
;;^UTILITY(U,$J,358.3,32982,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32982,1,2,0)
;;=2^PREP DONOR LIVER LOBE SPLIT
;;^UTILITY(U,$J,358.3,32982,1,4,0)
;;=4^47145
;;^UTILITY(U,$J,358.3,32983,0)
;;=47146^^101^1367^5^^^^1
;;^UTILITY(U,$J,358.3,32983,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32983,1,2,0)
;;=2^PREP DONOR LIVER/VENOUS
;;^UTILITY(U,$J,358.3,32983,1,4,0)
;;=4^47146
;;^UTILITY(U,$J,358.3,32984,0)
;;=47147^^101^1367^4^^^^1
;;^UTILITY(U,$J,358.3,32984,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32984,1,2,0)
;;=2^PREP DONOR LIVER/ARTERIAL
;;^UTILITY(U,$J,358.3,32984,1,4,0)
;;=4^47147
;;^UTILITY(U,$J,358.3,32985,0)
;;=47399^^101^1367^6^^^^1
;;^UTILITY(U,$J,358.3,32985,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32985,1,2,0)
;;=2^TRANSPLANT HETEROTOPIC
;;^UTILITY(U,$J,358.3,32985,1,4,0)
;;=4^47399
;;^UTILITY(U,$J,358.3,32986,0)
;;=32851^^101^1368^3^^^^1
;;^UTILITY(U,$J,358.3,32986,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32986,1,2,0)
;;=2^LUNG TRANSPLANT SINGLE
;;^UTILITY(U,$J,358.3,32986,1,4,0)
;;=4^32851
;;^UTILITY(U,$J,358.3,32987,0)
;;=32852^^101^1368^4^^^^1
;;^UTILITY(U,$J,358.3,32987,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32987,1,2,0)
;;=2^LUNG TRANSPLANT WITH BYPASS
;;^UTILITY(U,$J,358.3,32987,1,4,0)
;;=4^32852
;;^UTILITY(U,$J,358.3,32988,0)
;;=32853^^101^1368^2^^^^1
;;^UTILITY(U,$J,358.3,32988,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32988,1,2,0)
;;=2^LUNG TRANSPLANT DOUBLE
;;^UTILITY(U,$J,358.3,32988,1,4,0)
;;=4^32853
;;^UTILITY(U,$J,358.3,32989,0)
;;=32855^^101^1368^6^^^^1
;;^UTILITY(U,$J,358.3,32989,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32989,1,2,0)
;;=2^PREPARE DONOR LUNG SINGLE
;;^UTILITY(U,$J,358.3,32989,1,4,0)
;;=4^32855
;;^UTILITY(U,$J,358.3,32990,0)
;;=32856^^101^1368^5^^^^1
;;^UTILITY(U,$J,358.3,32990,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32990,1,2,0)
;;=2^PREPARE DONOR LUNG DOUBLE
;;^UTILITY(U,$J,358.3,32990,1,4,0)
;;=4^32856
;;^UTILITY(U,$J,358.3,32991,0)
;;=32850^^101^1368^1^^^^1
;;^UTILITY(U,$J,358.3,32991,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32991,1,2,0)
;;=2^DONOR PNEUMONECTOMY
;;^UTILITY(U,$J,358.3,32991,1,4,0)
;;=4^32850
;;^UTILITY(U,$J,358.3,32992,0)
;;=48554^^101^1369^6^^^^1
;;^UTILITY(U,$J,358.3,32992,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32992,1,2,0)
;;=2^TRANSPL ALLOGRAFT PANCREAS
;;^UTILITY(U,$J,358.3,32992,1,4,0)
;;=4^48554
;;^UTILITY(U,$J,358.3,32993,0)
;;=48556^^101^1369^5^^^^1
;;^UTILITY(U,$J,358.3,32993,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32993,1,2,0)
;;=2^REMOVAL ALLOGRAFT PANCREAS
;;^UTILITY(U,$J,358.3,32993,1,4,0)
;;=4^48556
;;^UTILITY(U,$J,358.3,32994,0)
;;=48160^^101^1369^2^^^^1
;;^UTILITY(U,$J,358.3,32994,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32994,1,2,0)
;;=2^PANCREAS REMV W/AUTO TRANSPLANT
;;^UTILITY(U,$J,358.3,32994,1,4,0)
;;=4^48160
;;^UTILITY(U,$J,358.3,32995,0)
;;=48550^^101^1369^1^^^^1
;;^UTILITY(U,$J,358.3,32995,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32995,1,2,0)
;;=2^DONOR PANCREATECTOMY
;;^UTILITY(U,$J,358.3,32995,1,4,0)
;;=4^48550
;;^UTILITY(U,$J,358.3,32996,0)
;;=48551^^101^1369^3^^^^1
;;^UTILITY(U,$J,358.3,32996,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32996,1,2,0)
;;=2^PREP DONOR PANCREAS
;;^UTILITY(U,$J,358.3,32996,1,4,0)
;;=4^48551
;;^UTILITY(U,$J,358.3,32997,0)
;;=48552^^101^1369^4^^^^1
;;^UTILITY(U,$J,358.3,32997,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32997,1,2,0)
;;=2^PREP DONOR PANCREAS/VENOUS
;;^UTILITY(U,$J,358.3,32997,1,4,0)
;;=4^48552
;;^UTILITY(U,$J,358.3,32998,0)
;;=50360^^101^1370^13^^^^1
;;^UTILITY(U,$J,358.3,32998,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32998,1,2,0)
;;=2^TRANSPLANTATION OF KIDNEY
;;^UTILITY(U,$J,358.3,32998,1,4,0)
;;=4^50360
;;^UTILITY(U,$J,358.3,32999,0)
;;=50365^^101^1370^1^^^^1
;;^UTILITY(U,$J,358.3,32999,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32999,1,2,0)
;;=2^KIDNEY TRANS W/RECP NEPHRECTOMY
;;^UTILITY(U,$J,358.3,32999,1,4,0)
;;=4^50365
;;^UTILITY(U,$J,358.3,33000,0)
;;=50380^^101^1370^8^^^^1
;;^UTILITY(U,$J,358.3,33000,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33000,1,2,0)
;;=2^REIMPLANTATION OF KIDNEY
;;^UTILITY(U,$J,358.3,33000,1,4,0)
;;=4^50380
;;^UTILITY(U,$J,358.3,33001,0)
;;=50300^^101^1370^11^^^^1
;;^UTILITY(U,$J,358.3,33001,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33001,1,2,0)
;;=2^REMOVE CADAVER DONOR KIDNEY
;;^UTILITY(U,$J,358.3,33001,1,4,0)
;;=4^50300
;;^UTILITY(U,$J,358.3,33002,0)
;;=50320^^101^1370^12^^^^1
;;^UTILITY(U,$J,358.3,33002,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33002,1,2,0)
;;=2^REMOVE KIDNEY LIVING DONOR
;;^UTILITY(U,$J,358.3,33002,1,4,0)
;;=4^50320
;;^UTILITY(U,$J,358.3,33003,0)
;;=50547^^101^1370^2^^^^1
;;^UTILITY(U,$J,358.3,33003,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33003,1,2,0)
;;=2^LAPARO REMOVAL DONOR KIDNEY
;;^UTILITY(U,$J,358.3,33003,1,4,0)
;;=4^50547
;;^UTILITY(U,$J,358.3,33004,0)
;;=50340^^101^1370^10^^^^1
;;^UTILITY(U,$J,358.3,33004,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33004,1,2,0)
;;=2^REMOVAL OF KIDNEY
;;^UTILITY(U,$J,358.3,33004,1,4,0)
;;=4^50340
;;^UTILITY(U,$J,358.3,33005,0)
;;=50370^^101^1370^9^^^^1
;;^UTILITY(U,$J,358.3,33005,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33005,1,2,0)
;;=2^REM TRANSPLANT KIDNEY ALLOGRAFT
;;^UTILITY(U,$J,358.3,33005,1,4,0)
;;=4^50370
;;^UTILITY(U,$J,358.3,33006,0)
;;=50323^^101^1370^3^^^^1
;;^UTILITY(U,$J,358.3,33006,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33006,1,2,0)
;;=2^PREP CADAVER RENAL ALLOGRAFT
;;^UTILITY(U,$J,358.3,33006,1,4,0)
;;=4^50323
;;^UTILITY(U,$J,358.3,33007,0)
;;=50325^^101^1370^4^^^^1
;;^UTILITY(U,$J,358.3,33007,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33007,1,2,0)
;;=2^PREP DONOR RENAL GRAFT
;;^UTILITY(U,$J,358.3,33007,1,4,0)
;;=4^50325
;;^UTILITY(U,$J,358.3,33008,0)
;;=50327^^101^1370^7^^^^1
;;^UTILITY(U,$J,358.3,33008,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33008,1,2,0)
;;=2^PREP RENAL GRAFT/VENOUS EA
;;^UTILITY(U,$J,358.3,33008,1,4,0)
;;=4^50327
;;^UTILITY(U,$J,358.3,33009,0)
;;=50328^^101^1370^5^^^^1
;;^UTILITY(U,$J,358.3,33009,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33009,1,2,0)
;;=2^PREP RENAL GRAFT/ARTERIAL EA
;;^UTILITY(U,$J,358.3,33009,1,4,0)
;;=4^50328
;;^UTILITY(U,$J,358.3,33010,0)
;;=50329^^101^1370^6^^^^1
;;^UTILITY(U,$J,358.3,33010,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33010,1,2,0)
;;=2^PREP RENAL GRAFT/URETERAL EA
;;^UTILITY(U,$J,358.3,33010,1,4,0)
;;=4^50329
;;^UTILITY(U,$J,358.3,33011,0)
;;=33300^^101^1371^8^^^^1
;;^UTILITY(U,$J,358.3,33011,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33011,1,2,0)
;;=2^REPAIR OF HEART WOUND
;;^UTILITY(U,$J,358.3,33011,1,4,0)
;;=4^33300
;;^UTILITY(U,$J,358.3,33012,0)
;;=33310^^101^1371^3^^^^1
;;^UTILITY(U,$J,358.3,33012,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33012,1,2,0)
;;=2^EXPLORATORY HEART SURGERY
;;^UTILITY(U,$J,358.3,33012,1,4,0)
;;=4^33310
;;^UTILITY(U,$J,358.3,33013,0)
;;=33320^^101^1371^5^^^^1
;;^UTILITY(U,$J,358.3,33013,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33013,1,2,0)
;;=2^REPAIR MAJOR BLOOD VESSEL(S)
;;^UTILITY(U,$J,358.3,33013,1,4,0)
;;=4^33320
;;^UTILITY(U,$J,358.3,33014,0)
;;=33463^^101^1371^12^^^^1
;;^UTILITY(U,$J,358.3,33014,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33014,1,2,0)
;;=2^VALVULOPLASTY TRICUSPID w/o RING INSERT
;;^UTILITY(U,$J,358.3,33014,1,4,0)
;;=4^33463
;;^UTILITY(U,$J,358.3,33015,0)
;;=33464^^101^1371^11^^^^1
;;^UTILITY(U,$J,358.3,33015,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33015,1,2,0)
;;=2^VALVULOPLASTY TRICUSPID w/ RING INSERT
;;^UTILITY(U,$J,358.3,33015,1,4,0)
;;=4^33464
;;^UTILITY(U,$J,358.3,33016,0)
;;=33510^^101^1371^2^^^^1
;;^UTILITY(U,$J,358.3,33016,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33016,1,2,0)
;;=2^CABG VEIN SINGLE
;;^UTILITY(U,$J,358.3,33016,1,4,0)
;;=4^33510
;;^UTILITY(U,$J,358.3,33017,0)
;;=33641^^101^1371^4^^^^1
;;^UTILITY(U,$J,358.3,33017,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33017,1,2,0)
;;=2^REPAIR HEART SEPTUM DEFECT
;;^UTILITY(U,$J,358.3,33017,1,4,0)
;;=4^33641
;;^UTILITY(U,$J,358.3,33018,0)
;;=35216^^101^1371^9^^^^1
;;^UTILITY(U,$J,358.3,33018,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33018,1,2,0)
;;=2^RPR BLD VESSEL,DIRECT,INTRATHOR W/O BYPASS
;;^UTILITY(U,$J,358.3,33018,1,4,0)
;;=4^35216
;;^UTILITY(U,$J,358.3,33019,0)
;;=35276^^101^1371^10^^^^1
;;^UTILITY(U,$J,358.3,33019,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33019,1,2,0)
;;=2^RPR BLD VESSEL,W/ GRAFT OTH THAN VEIN
;;^UTILITY(U,$J,358.3,33019,1,4,0)
;;=4^35276
;;^UTILITY(U,$J,358.3,33020,0)
;;=35685^^101^1371^1^^^^1
;;^UTILITY(U,$J,358.3,33020,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33020,1,2,0)
;;=2^BYPASS GRAFT PATENCY/PATCH
;;^UTILITY(U,$J,358.3,33020,1,4,0)
;;=4^35685
;;^UTILITY(U,$J,358.3,33021,0)
;;=33390^^101^1371^7^^^^1
;;^UTILITY(U,$J,358.3,33021,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33021,1,2,0)
;;=2^REPAIR OF AORTIC VALVE,OPEN W/ BYPASS,SIMPLE
;;^UTILITY(U,$J,358.3,33021,1,4,0)
;;=4^33390
;;^UTILITY(U,$J,358.3,33022,0)
;;=33391^^101^1371^6^^^^1
;;^UTILITY(U,$J,358.3,33022,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33022,1,2,0)
;;=2^REPAIR OF AORTIC VALVE,OPEN W/ BYPASS,COMPLEX
;;^UTILITY(U,$J,358.3,33022,1,4,0)
;;=4^33391
;;^UTILITY(U,$J,358.3,33023,0)
;;=99415^^101^1372^1^^^^1
;;^UTILITY(U,$J,358.3,33023,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33023,1,2,0)
;;=2^PROLONGED SVS W/ PT,1ST HR
;;^UTILITY(U,$J,358.3,33023,1,4,0)
;;=4^99415
;;^UTILITY(U,$J,358.3,33024,0)
;;=99416^^101^1372^2^^^^1
;;^UTILITY(U,$J,358.3,33024,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33024,1,2,0)
;;=2^PROLONGED SVS W/ PT,EA ADDL 30 MIN
;;^UTILITY(U,$J,358.3,33024,1,4,0)
;;=4^99416
;;^UTILITY(U,$J,358.3,33025,0)
;;=99358^^101^1372^3^^^^1
;;^UTILITY(U,$J,358.3,33025,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33025,1,2,0)
;;=2^PROLONGED SVS W/O PT,1ST HR
;;^UTILITY(U,$J,358.3,33025,1,4,0)
;;=4^99358
;;^UTILITY(U,$J,358.3,33026,0)
;;=99359^^101^1372^4^^^^1
;;^UTILITY(U,$J,358.3,33026,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33026,1,2,0)
;;=2^PROLONGED SVS W/O PT,EA ADDL 30MIN
;;^UTILITY(U,$J,358.3,33026,1,4,0)
;;=4^99359
;;^UTILITY(U,$J,358.3,33027,0)
;;=99417^^101^1372^5^^^^1
;;^UTILITY(U,$J,358.3,33027,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33027,1,2,0)
;;=2^Prolonged Svc,Ea 15min;Only w/ 99205 or 99215
;;^UTILITY(U,$J,358.3,33027,1,4,0)
;;=4^99417
;;^UTILITY(U,$J,358.3,33028,0)
;;=99152^^101^1373^1^^^^1
;;^UTILITY(U,$J,358.3,33028,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33028,1,2,0)
;;=2^MODERATE SEDATION,1ST 15 MIN
;;^UTILITY(U,$J,358.3,33028,1,4,0)
;;=4^99152
;;^UTILITY(U,$J,358.3,33029,0)
;;=99153^^101^1373^2^^^^1
;;^UTILITY(U,$J,358.3,33029,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33029,1,2,0)
;;=2^MODERATE SEDATION,EA ADDL 15 MIN
;;^UTILITY(U,$J,358.3,33029,1,4,0)
;;=4^99153
;;^UTILITY(U,$J,358.3,33030,0)
;;=I27.9^^102^1374^3
;;^UTILITY(U,$J,358.3,33030,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33030,1,3,0)
;;=3^Pulmonary Heart Disease,Unsp
;;^UTILITY(U,$J,358.3,33030,1,4,0)
;;=4^I27.9
;;^UTILITY(U,$J,358.3,33030,2)
;;=^5007154
;;^UTILITY(U,$J,358.3,33031,0)
;;=I27.20^^102^1374^7
;;^UTILITY(U,$J,358.3,33031,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33031,1,3,0)
;;=3^Pulmonary Hypertension,Unsp
;;^UTILITY(U,$J,358.3,33031,1,4,0)
;;=4^I27.20
;;^UTILITY(U,$J,358.3,33031,2)
;;=^5151376
;;^UTILITY(U,$J,358.3,33032,0)
;;=I27.21^^102^1374^2
;;^UTILITY(U,$J,358.3,33032,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33032,1,3,0)
;;=3^Pulmonary Arterial Hypertension,Secondary
;;^UTILITY(U,$J,358.3,33032,1,4,0)
;;=4^I27.21
;;^UTILITY(U,$J,358.3,33032,2)
;;=^5151377
;;^UTILITY(U,$J,358.3,33033,0)
;;=I27.22^^102^1374^4
;;^UTILITY(U,$J,358.3,33033,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33033,1,3,0)
;;=3^Pulmonary Hypertension d/t Left Heart Disease
;;^UTILITY(U,$J,358.3,33033,1,4,0)
;;=4^I27.22
;;^UTILITY(U,$J,358.3,33033,2)
;;=^5151378
;;^UTILITY(U,$J,358.3,33034,0)
;;=I27.23^^102^1374^5
;;^UTILITY(U,$J,358.3,33034,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33034,1,3,0)
;;=3^Pulmonary Hypertension d/t Lung Diseases & Hypoxia
;;^UTILITY(U,$J,358.3,33034,1,4,0)
;;=4^I27.23
;;^UTILITY(U,$J,358.3,33034,2)
;;=^5151379
;;^UTILITY(U,$J,358.3,33035,0)
;;=I27.24^^102^1374^8
;;^UTILITY(U,$J,358.3,33035,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33035,1,3,0)
;;=3^Thromboembolic Pulmonary Hypertension,Chronic
;;^UTILITY(U,$J,358.3,33035,1,4,0)
;;=4^I27.24
;;^UTILITY(U,$J,358.3,33035,2)
;;=^5151380
;;^UTILITY(U,$J,358.3,33036,0)
;;=I27.29^^102^1374^6
;;^UTILITY(U,$J,358.3,33036,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33036,1,3,0)
;;=3^Pulmonary Hypertension,Oth Secondary
;;^UTILITY(U,$J,358.3,33036,1,4,0)
;;=4^I27.29
;;^UTILITY(U,$J,358.3,33036,2)
;;=^5151381
;;^UTILITY(U,$J,358.3,33037,0)
;;=I27.83^^102^1374^1
;;^UTILITY(U,$J,358.3,33037,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33037,1,3,0)
;;=3^Eisenmenger's Syndrome
;;^UTILITY(U,$J,358.3,33037,1,4,0)
;;=4^I27.83
;;^UTILITY(U,$J,358.3,33037,2)
;;=^5151382
;;^UTILITY(U,$J,358.3,33038,0)
;;=D61.09^^102^1375^4
;;^UTILITY(U,$J,358.3,33038,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33038,1,3,0)
;;=3^Constitutional aplastic anemia NEC
;;^UTILITY(U,$J,358.3,33038,1,4,0)
;;=4^D61.09
;;^UTILITY(U,$J,358.3,33038,2)
;;=^334036
;;^UTILITY(U,$J,358.3,33039,0)
;;=D61.810^^102^1375^1
;;^UTILITY(U,$J,358.3,33039,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33039,1,3,0)
;;=3^Antineoplastic chemotherapy induced pancytopenia
;;^UTILITY(U,$J,358.3,33039,1,4,0)
;;=4^D61.810
;;^UTILITY(U,$J,358.3,33039,2)
;;=^5002339
;;^UTILITY(U,$J,358.3,33040,0)
;;=D61.2^^102^1375^2
;;^UTILITY(U,$J,358.3,33040,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33040,1,3,0)
;;=3^Aplastic anemia due to other external agents
;;^UTILITY(U,$J,358.3,33040,1,4,0)
;;=4^D61.2
;;^UTILITY(U,$J,358.3,33040,2)
;;=^5002337
;;^UTILITY(U,$J,358.3,33041,0)
;;=D61.1^^102^1375^5
;;^UTILITY(U,$J,358.3,33041,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33041,1,3,0)
;;=3^Drug-induced aplastic anemia
;;^UTILITY(U,$J,358.3,33041,1,4,0)
;;=4^D61.1
;;^UTILITY(U,$J,358.3,33041,2)
;;=^5002336
;;^UTILITY(U,$J,358.3,33042,0)
;;=D61.89^^102^1375^3
;;^UTILITY(U,$J,358.3,33042,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33042,1,3,0)
;;=3^Aplastic anemias and other bone marrow failure syndromes NEC
;;^UTILITY(U,$J,358.3,33042,1,4,0)
;;=4^D61.89
;;^UTILITY(U,$J,358.3,33042,2)
;;=^5002341
;;^UTILITY(U,$J,358.3,33043,0)
;;=K40.90^^102^1376^3
;;^UTILITY(U,$J,358.3,33043,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33043,1,3,0)
;;=3^Unil inguinal hernia w/o obstruction or gangrene
;;^UTILITY(U,$J,358.3,33043,1,4,0)
;;=4^K40.90
;;^UTILITY(U,$J,358.3,33043,2)
;;=^5008591
;;^UTILITY(U,$J,358.3,33044,0)
;;=K42.9^^102^1376^2
;;^UTILITY(U,$J,358.3,33044,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33044,1,3,0)
;;=3^Umbilical hernia w/o obstruction or gangrene
;;^UTILITY(U,$J,358.3,33044,1,4,0)
;;=4^K42.9
;;^UTILITY(U,$J,358.3,33044,2)
;;=^5008606
;;^UTILITY(U,$J,358.3,33045,0)
;;=K43.9^^102^1376^4
;;^UTILITY(U,$J,358.3,33045,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33045,1,3,0)
;;=3^Ventral hernia w/o obstruction or gangrene
;;^UTILITY(U,$J,358.3,33045,1,4,0)
;;=4^K43.9
;;^UTILITY(U,$J,358.3,33045,2)
;;=^5008615
;;^UTILITY(U,$J,358.3,33046,0)
;;=K43.2^^102^1376^1
;;^UTILITY(U,$J,358.3,33046,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33046,1,3,0)
;;=3^Incisional hernia w/o obstruction or gangrene
;;^UTILITY(U,$J,358.3,33046,1,4,0)
;;=4^K43.2
;;^UTILITY(U,$J,358.3,33046,2)
;;=^5008609
;;^UTILITY(U,$J,358.3,33047,0)
;;=N17.0^^102^1377^1
;;^UTILITY(U,$J,358.3,33047,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33047,1,3,0)
;;=3^Acute kidney failure with tubular necrosis
;;^UTILITY(U,$J,358.3,33047,1,4,0)
;;=4^N17.0
;;^UTILITY(U,$J,358.3,33047,2)
;;=^5015598
;;^UTILITY(U,$J,358.3,33048,0)
;;=N18.9^^102^1377^3
;;^UTILITY(U,$J,358.3,33048,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33048,1,3,0)
;;=3^Chronic kidney disease, unspecified
;;^UTILITY(U,$J,358.3,33048,1,4,0)
;;=4^N18.9
;;^UTILITY(U,$J,358.3,33048,2)
;;=^332812
;;^UTILITY(U,$J,358.3,33049,0)
;;=N19.^^102^1377^5
;;^UTILITY(U,$J,358.3,33049,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33049,1,3,0)
;;=3^Kidney failure,Unspec
;;^UTILITY(U,$J,358.3,33049,1,4,0)
;;=4^N19.
;;^UTILITY(U,$J,358.3,33049,2)
;;=^5015607
;;^UTILITY(U,$J,358.3,33050,0)
;;=Z94.0^^102^1377^6
;;^UTILITY(U,$J,358.3,33050,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33050,1,3,0)
;;=3^Kidney transplant status
;;^UTILITY(U,$J,358.3,33050,1,4,0)
;;=4^Z94.0
;;^UTILITY(U,$J,358.3,33050,2)
;;=^5063654
;;^UTILITY(U,$J,358.3,33051,0)
;;=Q61.2^^102^1377^12
;;^UTILITY(U,$J,358.3,33051,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33051,1,3,0)
;;=3^Polycystic kidney, adult type
;;^UTILITY(U,$J,358.3,33051,1,4,0)
;;=4^Q61.2
;;^UTILITY(U,$J,358.3,33051,2)
;;=^5018796
;;^UTILITY(U,$J,358.3,33052,0)
;;=Q61.3^^102^1377^14
;;^UTILITY(U,$J,358.3,33052,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33052,1,3,0)
;;=3^Polycystic kidney, unspecified
;;^UTILITY(U,$J,358.3,33052,1,4,0)
;;=4^Q61.3
;;^UTILITY(U,$J,358.3,33052,2)
;;=^5018797
;;^UTILITY(U,$J,358.3,33053,0)
;;=Q61.19^^102^1377^13
;;^UTILITY(U,$J,358.3,33053,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33053,1,3,0)
;;=3^Polycystic kidney, infantile type, other
;;^UTILITY(U,$J,358.3,33053,1,4,0)
;;=4^Q61.19
;;^UTILITY(U,$J,358.3,33053,2)
;;=^5018795
;;^UTILITY(U,$J,358.3,33054,0)
;;=C64.1^^102^1377^8
;;^UTILITY(U,$J,358.3,33054,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33054,1,3,0)
;;=3^Malignant neoplasm of right kidney, except renal pelvis
;;^UTILITY(U,$J,358.3,33054,1,4,0)
;;=4^C64.1
;;^UTILITY(U,$J,358.3,33054,2)
;;=^5001248
;;^UTILITY(U,$J,358.3,33055,0)
;;=C64.2^^102^1377^7
;;^UTILITY(U,$J,358.3,33055,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33055,1,3,0)
;;=3^Malignant neoplasm of left kidney, except renal pelvis
;;^UTILITY(U,$J,358.3,33055,1,4,0)
;;=4^C64.2
;;^UTILITY(U,$J,358.3,33055,2)
;;=^5001249
;;^UTILITY(U,$J,358.3,33056,0)
;;=N18.6^^102^1377^4
;;^UTILITY(U,$J,358.3,33056,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33056,1,3,0)
;;=3^ESRD
;;^UTILITY(U,$J,358.3,33056,1,4,0)
;;=4^N18.6
;;^UTILITY(U,$J,358.3,33056,2)
;;=^303986
;;^UTILITY(U,$J,358.3,33057,0)
;;=D49.511^^102^1377^10
;;^UTILITY(U,$J,358.3,33057,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0D5 19764 printed Sep 23, 2025@19:22:19 Page 2
IBDEI0D5 ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,32981,1,2,0)
+2 ;;=2^PREP DONOR LIVER 3-SEGMENT
+3 ;;^UTILITY(U,$J,358.3,32981,1,4,0)
+4 ;;=4^47144
+5 ;;^UTILITY(U,$J,358.3,32982,0)
+6 ;;=47145^^101^1367^2^^^^1
+7 ;;^UTILITY(U,$J,358.3,32982,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,32982,1,2,0)
+10 ;;=2^PREP DONOR LIVER LOBE SPLIT
+11 ;;^UTILITY(U,$J,358.3,32982,1,4,0)
+12 ;;=4^47145
+13 ;;^UTILITY(U,$J,358.3,32983,0)
+14 ;;=47146^^101^1367^5^^^^1
+15 ;;^UTILITY(U,$J,358.3,32983,1,0)
+16 ;;=^358.31IA^4^2
+17 ;;^UTILITY(U,$J,358.3,32983,1,2,0)
+18 ;;=2^PREP DONOR LIVER/VENOUS
+19 ;;^UTILITY(U,$J,358.3,32983,1,4,0)
+20 ;;=4^47146
+21 ;;^UTILITY(U,$J,358.3,32984,0)
+22 ;;=47147^^101^1367^4^^^^1
+23 ;;^UTILITY(U,$J,358.3,32984,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,32984,1,2,0)
+26 ;;=2^PREP DONOR LIVER/ARTERIAL
+27 ;;^UTILITY(U,$J,358.3,32984,1,4,0)
+28 ;;=4^47147
+29 ;;^UTILITY(U,$J,358.3,32985,0)
+30 ;;=47399^^101^1367^6^^^^1
+31 ;;^UTILITY(U,$J,358.3,32985,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,32985,1,2,0)
+34 ;;=2^TRANSPLANT HETEROTOPIC
+35 ;;^UTILITY(U,$J,358.3,32985,1,4,0)
+36 ;;=4^47399
+37 ;;^UTILITY(U,$J,358.3,32986,0)
+38 ;;=32851^^101^1368^3^^^^1
+39 ;;^UTILITY(U,$J,358.3,32986,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,32986,1,2,0)
+42 ;;=2^LUNG TRANSPLANT SINGLE
+43 ;;^UTILITY(U,$J,358.3,32986,1,4,0)
+44 ;;=4^32851
+45 ;;^UTILITY(U,$J,358.3,32987,0)
+46 ;;=32852^^101^1368^4^^^^1
+47 ;;^UTILITY(U,$J,358.3,32987,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,32987,1,2,0)
+50 ;;=2^LUNG TRANSPLANT WITH BYPASS
+51 ;;^UTILITY(U,$J,358.3,32987,1,4,0)
+52 ;;=4^32852
+53 ;;^UTILITY(U,$J,358.3,32988,0)
+54 ;;=32853^^101^1368^2^^^^1
+55 ;;^UTILITY(U,$J,358.3,32988,1,0)
+56 ;;=^358.31IA^4^2
+57 ;;^UTILITY(U,$J,358.3,32988,1,2,0)
+58 ;;=2^LUNG TRANSPLANT DOUBLE
+59 ;;^UTILITY(U,$J,358.3,32988,1,4,0)
+60 ;;=4^32853
+61 ;;^UTILITY(U,$J,358.3,32989,0)
+62 ;;=32855^^101^1368^6^^^^1
+63 ;;^UTILITY(U,$J,358.3,32989,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,32989,1,2,0)
+66 ;;=2^PREPARE DONOR LUNG SINGLE
+67 ;;^UTILITY(U,$J,358.3,32989,1,4,0)
+68 ;;=4^32855
+69 ;;^UTILITY(U,$J,358.3,32990,0)
+70 ;;=32856^^101^1368^5^^^^1
+71 ;;^UTILITY(U,$J,358.3,32990,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,32990,1,2,0)
+74 ;;=2^PREPARE DONOR LUNG DOUBLE
+75 ;;^UTILITY(U,$J,358.3,32990,1,4,0)
+76 ;;=4^32856
+77 ;;^UTILITY(U,$J,358.3,32991,0)
+78 ;;=32850^^101^1368^1^^^^1
+79 ;;^UTILITY(U,$J,358.3,32991,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,32991,1,2,0)
+82 ;;=2^DONOR PNEUMONECTOMY
+83 ;;^UTILITY(U,$J,358.3,32991,1,4,0)
+84 ;;=4^32850
+85 ;;^UTILITY(U,$J,358.3,32992,0)
+86 ;;=48554^^101^1369^6^^^^1
+87 ;;^UTILITY(U,$J,358.3,32992,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,32992,1,2,0)
+90 ;;=2^TRANSPL ALLOGRAFT PANCREAS
+91 ;;^UTILITY(U,$J,358.3,32992,1,4,0)
+92 ;;=4^48554
+93 ;;^UTILITY(U,$J,358.3,32993,0)
+94 ;;=48556^^101^1369^5^^^^1
+95 ;;^UTILITY(U,$J,358.3,32993,1,0)
+96 ;;=^358.31IA^4^2
+97 ;;^UTILITY(U,$J,358.3,32993,1,2,0)
+98 ;;=2^REMOVAL ALLOGRAFT PANCREAS
+99 ;;^UTILITY(U,$J,358.3,32993,1,4,0)
+100 ;;=4^48556
+101 ;;^UTILITY(U,$J,358.3,32994,0)
+102 ;;=48160^^101^1369^2^^^^1
+103 ;;^UTILITY(U,$J,358.3,32994,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,32994,1,2,0)
+106 ;;=2^PANCREAS REMV W/AUTO TRANSPLANT
+107 ;;^UTILITY(U,$J,358.3,32994,1,4,0)
+108 ;;=4^48160
+109 ;;^UTILITY(U,$J,358.3,32995,0)
+110 ;;=48550^^101^1369^1^^^^1
+111 ;;^UTILITY(U,$J,358.3,32995,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,32995,1,2,0)
+114 ;;=2^DONOR PANCREATECTOMY
+115 ;;^UTILITY(U,$J,358.3,32995,1,4,0)
+116 ;;=4^48550
+117 ;;^UTILITY(U,$J,358.3,32996,0)
+118 ;;=48551^^101^1369^3^^^^1
+119 ;;^UTILITY(U,$J,358.3,32996,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,32996,1,2,0)
+122 ;;=2^PREP DONOR PANCREAS
+123 ;;^UTILITY(U,$J,358.3,32996,1,4,0)
+124 ;;=4^48551
+125 ;;^UTILITY(U,$J,358.3,32997,0)
+126 ;;=48552^^101^1369^4^^^^1
+127 ;;^UTILITY(U,$J,358.3,32997,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,32997,1,2,0)
+130 ;;=2^PREP DONOR PANCREAS/VENOUS
+131 ;;^UTILITY(U,$J,358.3,32997,1,4,0)
+132 ;;=4^48552
+133 ;;^UTILITY(U,$J,358.3,32998,0)
+134 ;;=50360^^101^1370^13^^^^1
+135 ;;^UTILITY(U,$J,358.3,32998,1,0)
+136 ;;=^358.31IA^4^2
+137 ;;^UTILITY(U,$J,358.3,32998,1,2,0)
+138 ;;=2^TRANSPLANTATION OF KIDNEY
+139 ;;^UTILITY(U,$J,358.3,32998,1,4,0)
+140 ;;=4^50360
+141 ;;^UTILITY(U,$J,358.3,32999,0)
+142 ;;=50365^^101^1370^1^^^^1
+143 ;;^UTILITY(U,$J,358.3,32999,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,32999,1,2,0)
+146 ;;=2^KIDNEY TRANS W/RECP NEPHRECTOMY
+147 ;;^UTILITY(U,$J,358.3,32999,1,4,0)
+148 ;;=4^50365
+149 ;;^UTILITY(U,$J,358.3,33000,0)
+150 ;;=50380^^101^1370^8^^^^1
+151 ;;^UTILITY(U,$J,358.3,33000,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,33000,1,2,0)
+154 ;;=2^REIMPLANTATION OF KIDNEY
+155 ;;^UTILITY(U,$J,358.3,33000,1,4,0)
+156 ;;=4^50380
+157 ;;^UTILITY(U,$J,358.3,33001,0)
+158 ;;=50300^^101^1370^11^^^^1
+159 ;;^UTILITY(U,$J,358.3,33001,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,33001,1,2,0)
+162 ;;=2^REMOVE CADAVER DONOR KIDNEY
+163 ;;^UTILITY(U,$J,358.3,33001,1,4,0)
+164 ;;=4^50300
+165 ;;^UTILITY(U,$J,358.3,33002,0)
+166 ;;=50320^^101^1370^12^^^^1
+167 ;;^UTILITY(U,$J,358.3,33002,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,33002,1,2,0)
+170 ;;=2^REMOVE KIDNEY LIVING DONOR
+171 ;;^UTILITY(U,$J,358.3,33002,1,4,0)
+172 ;;=4^50320
+173 ;;^UTILITY(U,$J,358.3,33003,0)
+174 ;;=50547^^101^1370^2^^^^1
+175 ;;^UTILITY(U,$J,358.3,33003,1,0)
+176 ;;=^358.31IA^4^2
+177 ;;^UTILITY(U,$J,358.3,33003,1,2,0)
+178 ;;=2^LAPARO REMOVAL DONOR KIDNEY
+179 ;;^UTILITY(U,$J,358.3,33003,1,4,0)
+180 ;;=4^50547
+181 ;;^UTILITY(U,$J,358.3,33004,0)
+182 ;;=50340^^101^1370^10^^^^1
+183 ;;^UTILITY(U,$J,358.3,33004,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,33004,1,2,0)
+186 ;;=2^REMOVAL OF KIDNEY
+187 ;;^UTILITY(U,$J,358.3,33004,1,4,0)
+188 ;;=4^50340
+189 ;;^UTILITY(U,$J,358.3,33005,0)
+190 ;;=50370^^101^1370^9^^^^1
+191 ;;^UTILITY(U,$J,358.3,33005,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,33005,1,2,0)
+194 ;;=2^REM TRANSPLANT KIDNEY ALLOGRAFT
+195 ;;^UTILITY(U,$J,358.3,33005,1,4,0)
+196 ;;=4^50370
+197 ;;^UTILITY(U,$J,358.3,33006,0)
+198 ;;=50323^^101^1370^3^^^^1
+199 ;;^UTILITY(U,$J,358.3,33006,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,33006,1,2,0)
+202 ;;=2^PREP CADAVER RENAL ALLOGRAFT
+203 ;;^UTILITY(U,$J,358.3,33006,1,4,0)
+204 ;;=4^50323
+205 ;;^UTILITY(U,$J,358.3,33007,0)
+206 ;;=50325^^101^1370^4^^^^1
+207 ;;^UTILITY(U,$J,358.3,33007,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,33007,1,2,0)
+210 ;;=2^PREP DONOR RENAL GRAFT
+211 ;;^UTILITY(U,$J,358.3,33007,1,4,0)
+212 ;;=4^50325
+213 ;;^UTILITY(U,$J,358.3,33008,0)
+214 ;;=50327^^101^1370^7^^^^1
+215 ;;^UTILITY(U,$J,358.3,33008,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,33008,1,2,0)
+218 ;;=2^PREP RENAL GRAFT/VENOUS EA
+219 ;;^UTILITY(U,$J,358.3,33008,1,4,0)
+220 ;;=4^50327
+221 ;;^UTILITY(U,$J,358.3,33009,0)
+222 ;;=50328^^101^1370^5^^^^1
+223 ;;^UTILITY(U,$J,358.3,33009,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,33009,1,2,0)
+226 ;;=2^PREP RENAL GRAFT/ARTERIAL EA
+227 ;;^UTILITY(U,$J,358.3,33009,1,4,0)
+228 ;;=4^50328
+229 ;;^UTILITY(U,$J,358.3,33010,0)
+230 ;;=50329^^101^1370^6^^^^1
+231 ;;^UTILITY(U,$J,358.3,33010,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,33010,1,2,0)
+234 ;;=2^PREP RENAL GRAFT/URETERAL EA
+235 ;;^UTILITY(U,$J,358.3,33010,1,4,0)
+236 ;;=4^50329
+237 ;;^UTILITY(U,$J,358.3,33011,0)
+238 ;;=33300^^101^1371^8^^^^1
+239 ;;^UTILITY(U,$J,358.3,33011,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,33011,1,2,0)
+242 ;;=2^REPAIR OF HEART WOUND
+243 ;;^UTILITY(U,$J,358.3,33011,1,4,0)
+244 ;;=4^33300
+245 ;;^UTILITY(U,$J,358.3,33012,0)
+246 ;;=33310^^101^1371^3^^^^1
+247 ;;^UTILITY(U,$J,358.3,33012,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,33012,1,2,0)
+250 ;;=2^EXPLORATORY HEART SURGERY
+251 ;;^UTILITY(U,$J,358.3,33012,1,4,0)
+252 ;;=4^33310
+253 ;;^UTILITY(U,$J,358.3,33013,0)
+254 ;;=33320^^101^1371^5^^^^1
+255 ;;^UTILITY(U,$J,358.3,33013,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,33013,1,2,0)
+258 ;;=2^REPAIR MAJOR BLOOD VESSEL(S)
+259 ;;^UTILITY(U,$J,358.3,33013,1,4,0)
+260 ;;=4^33320
+261 ;;^UTILITY(U,$J,358.3,33014,0)
+262 ;;=33463^^101^1371^12^^^^1
+263 ;;^UTILITY(U,$J,358.3,33014,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,33014,1,2,0)
+266 ;;=2^VALVULOPLASTY TRICUSPID w/o RING INSERT
+267 ;;^UTILITY(U,$J,358.3,33014,1,4,0)
+268 ;;=4^33463
+269 ;;^UTILITY(U,$J,358.3,33015,0)
+270 ;;=33464^^101^1371^11^^^^1
+271 ;;^UTILITY(U,$J,358.3,33015,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,33015,1,2,0)
+274 ;;=2^VALVULOPLASTY TRICUSPID w/ RING INSERT
+275 ;;^UTILITY(U,$J,358.3,33015,1,4,0)
+276 ;;=4^33464
+277 ;;^UTILITY(U,$J,358.3,33016,0)
+278 ;;=33510^^101^1371^2^^^^1
+279 ;;^UTILITY(U,$J,358.3,33016,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,33016,1,2,0)
+282 ;;=2^CABG VEIN SINGLE
+283 ;;^UTILITY(U,$J,358.3,33016,1,4,0)
+284 ;;=4^33510
+285 ;;^UTILITY(U,$J,358.3,33017,0)
+286 ;;=33641^^101^1371^4^^^^1
+287 ;;^UTILITY(U,$J,358.3,33017,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,33017,1,2,0)
+290 ;;=2^REPAIR HEART SEPTUM DEFECT
+291 ;;^UTILITY(U,$J,358.3,33017,1,4,0)
+292 ;;=4^33641
+293 ;;^UTILITY(U,$J,358.3,33018,0)
+294 ;;=35216^^101^1371^9^^^^1
+295 ;;^UTILITY(U,$J,358.3,33018,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,33018,1,2,0)
+298 ;;=2^RPR BLD VESSEL,DIRECT,INTRATHOR W/O BYPASS
+299 ;;^UTILITY(U,$J,358.3,33018,1,4,0)
+300 ;;=4^35216
+301 ;;^UTILITY(U,$J,358.3,33019,0)
+302 ;;=35276^^101^1371^10^^^^1
+303 ;;^UTILITY(U,$J,358.3,33019,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,33019,1,2,0)
+306 ;;=2^RPR BLD VESSEL,W/ GRAFT OTH THAN VEIN
+307 ;;^UTILITY(U,$J,358.3,33019,1,4,0)
+308 ;;=4^35276
+309 ;;^UTILITY(U,$J,358.3,33020,0)
+310 ;;=35685^^101^1371^1^^^^1
+311 ;;^UTILITY(U,$J,358.3,33020,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,33020,1,2,0)
+314 ;;=2^BYPASS GRAFT PATENCY/PATCH
+315 ;;^UTILITY(U,$J,358.3,33020,1,4,0)
+316 ;;=4^35685
+317 ;;^UTILITY(U,$J,358.3,33021,0)
+318 ;;=33390^^101^1371^7^^^^1
+319 ;;^UTILITY(U,$J,358.3,33021,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,33021,1,2,0)
+322 ;;=2^REPAIR OF AORTIC VALVE,OPEN W/ BYPASS,SIMPLE
+323 ;;^UTILITY(U,$J,358.3,33021,1,4,0)
+324 ;;=4^33390
+325 ;;^UTILITY(U,$J,358.3,33022,0)
+326 ;;=33391^^101^1371^6^^^^1
+327 ;;^UTILITY(U,$J,358.3,33022,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,33022,1,2,0)
+330 ;;=2^REPAIR OF AORTIC VALVE,OPEN W/ BYPASS,COMPLEX
+331 ;;^UTILITY(U,$J,358.3,33022,1,4,0)
+332 ;;=4^33391
+333 ;;^UTILITY(U,$J,358.3,33023,0)
+334 ;;=99415^^101^1372^1^^^^1
+335 ;;^UTILITY(U,$J,358.3,33023,1,0)
+336 ;;=^358.31IA^4^2
+337 ;;^UTILITY(U,$J,358.3,33023,1,2,0)
+338 ;;=2^PROLONGED SVS W/ PT,1ST HR
+339 ;;^UTILITY(U,$J,358.3,33023,1,4,0)
+340 ;;=4^99415
+341 ;;^UTILITY(U,$J,358.3,33024,0)
+342 ;;=99416^^101^1372^2^^^^1
+343 ;;^UTILITY(U,$J,358.3,33024,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,33024,1,2,0)
+346 ;;=2^PROLONGED SVS W/ PT,EA ADDL 30 MIN
+347 ;;^UTILITY(U,$J,358.3,33024,1,4,0)
+348 ;;=4^99416
+349 ;;^UTILITY(U,$J,358.3,33025,0)
+350 ;;=99358^^101^1372^3^^^^1
+351 ;;^UTILITY(U,$J,358.3,33025,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,33025,1,2,0)
+354 ;;=2^PROLONGED SVS W/O PT,1ST HR
+355 ;;^UTILITY(U,$J,358.3,33025,1,4,0)
+356 ;;=4^99358
+357 ;;^UTILITY(U,$J,358.3,33026,0)
+358 ;;=99359^^101^1372^4^^^^1
+359 ;;^UTILITY(U,$J,358.3,33026,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,33026,1,2,0)
+362 ;;=2^PROLONGED SVS W/O PT,EA ADDL 30MIN
+363 ;;^UTILITY(U,$J,358.3,33026,1,4,0)
+364 ;;=4^99359
+365 ;;^UTILITY(U,$J,358.3,33027,0)
+366 ;;=99417^^101^1372^5^^^^1
+367 ;;^UTILITY(U,$J,358.3,33027,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,33027,1,2,0)
+370 ;;=2^Prolonged Svc,Ea 15min;Only w/ 99205 or 99215
+371 ;;^UTILITY(U,$J,358.3,33027,1,4,0)
+372 ;;=4^99417
+373 ;;^UTILITY(U,$J,358.3,33028,0)
+374 ;;=99152^^101^1373^1^^^^1
+375 ;;^UTILITY(U,$J,358.3,33028,1,0)
+376 ;;=^358.31IA^4^2
+377 ;;^UTILITY(U,$J,358.3,33028,1,2,0)
+378 ;;=2^MODERATE SEDATION,1ST 15 MIN
+379 ;;^UTILITY(U,$J,358.3,33028,1,4,0)
+380 ;;=4^99152
+381 ;;^UTILITY(U,$J,358.3,33029,0)
+382 ;;=99153^^101^1373^2^^^^1
+383 ;;^UTILITY(U,$J,358.3,33029,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,33029,1,2,0)
+386 ;;=2^MODERATE SEDATION,EA ADDL 15 MIN
+387 ;;^UTILITY(U,$J,358.3,33029,1,4,0)
+388 ;;=4^99153
+389 ;;^UTILITY(U,$J,358.3,33030,0)
+390 ;;=I27.9^^102^1374^3
+391 ;;^UTILITY(U,$J,358.3,33030,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,33030,1,3,0)
+394 ;;=3^Pulmonary Heart Disease,Unsp
+395 ;;^UTILITY(U,$J,358.3,33030,1,4,0)
+396 ;;=4^I27.9
+397 ;;^UTILITY(U,$J,358.3,33030,2)
+398 ;;=^5007154
+399 ;;^UTILITY(U,$J,358.3,33031,0)
+400 ;;=I27.20^^102^1374^7
+401 ;;^UTILITY(U,$J,358.3,33031,1,0)
+402 ;;=^358.31IA^4^2
+403 ;;^UTILITY(U,$J,358.3,33031,1,3,0)
+404 ;;=3^Pulmonary Hypertension,Unsp
+405 ;;^UTILITY(U,$J,358.3,33031,1,4,0)
+406 ;;=4^I27.20
+407 ;;^UTILITY(U,$J,358.3,33031,2)
+408 ;;=^5151376
+409 ;;^UTILITY(U,$J,358.3,33032,0)
+410 ;;=I27.21^^102^1374^2
+411 ;;^UTILITY(U,$J,358.3,33032,1,0)
+412 ;;=^358.31IA^4^2
+413 ;;^UTILITY(U,$J,358.3,33032,1,3,0)
+414 ;;=3^Pulmonary Arterial Hypertension,Secondary
+415 ;;^UTILITY(U,$J,358.3,33032,1,4,0)
+416 ;;=4^I27.21
+417 ;;^UTILITY(U,$J,358.3,33032,2)
+418 ;;=^5151377
+419 ;;^UTILITY(U,$J,358.3,33033,0)
+420 ;;=I27.22^^102^1374^4
+421 ;;^UTILITY(U,$J,358.3,33033,1,0)
+422 ;;=^358.31IA^4^2
+423 ;;^UTILITY(U,$J,358.3,33033,1,3,0)
+424 ;;=3^Pulmonary Hypertension d/t Left Heart Disease
+425 ;;^UTILITY(U,$J,358.3,33033,1,4,0)
+426 ;;=4^I27.22
+427 ;;^UTILITY(U,$J,358.3,33033,2)
+428 ;;=^5151378
+429 ;;^UTILITY(U,$J,358.3,33034,0)
+430 ;;=I27.23^^102^1374^5
+431 ;;^UTILITY(U,$J,358.3,33034,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,33034,1,3,0)
+434 ;;=3^Pulmonary Hypertension d/t Lung Diseases & Hypoxia
+435 ;;^UTILITY(U,$J,358.3,33034,1,4,0)
+436 ;;=4^I27.23
+437 ;;^UTILITY(U,$J,358.3,33034,2)
+438 ;;=^5151379
+439 ;;^UTILITY(U,$J,358.3,33035,0)
+440 ;;=I27.24^^102^1374^8
+441 ;;^UTILITY(U,$J,358.3,33035,1,0)
+442 ;;=^358.31IA^4^2
+443 ;;^UTILITY(U,$J,358.3,33035,1,3,0)
+444 ;;=3^Thromboembolic Pulmonary Hypertension,Chronic
+445 ;;^UTILITY(U,$J,358.3,33035,1,4,0)
+446 ;;=4^I27.24
+447 ;;^UTILITY(U,$J,358.3,33035,2)
+448 ;;=^5151380
+449 ;;^UTILITY(U,$J,358.3,33036,0)
+450 ;;=I27.29^^102^1374^6
+451 ;;^UTILITY(U,$J,358.3,33036,1,0)
+452 ;;=^358.31IA^4^2
+453 ;;^UTILITY(U,$J,358.3,33036,1,3,0)
+454 ;;=3^Pulmonary Hypertension,Oth Secondary
+455 ;;^UTILITY(U,$J,358.3,33036,1,4,0)
+456 ;;=4^I27.29
+457 ;;^UTILITY(U,$J,358.3,33036,2)
+458 ;;=^5151381
+459 ;;^UTILITY(U,$J,358.3,33037,0)
+460 ;;=I27.83^^102^1374^1
+461 ;;^UTILITY(U,$J,358.3,33037,1,0)
+462 ;;=^358.31IA^4^2
+463 ;;^UTILITY(U,$J,358.3,33037,1,3,0)
+464 ;;=3^Eisenmenger's Syndrome
+465 ;;^UTILITY(U,$J,358.3,33037,1,4,0)
+466 ;;=4^I27.83
+467 ;;^UTILITY(U,$J,358.3,33037,2)
+468 ;;=^5151382
+469 ;;^UTILITY(U,$J,358.3,33038,0)
+470 ;;=D61.09^^102^1375^4
+471 ;;^UTILITY(U,$J,358.3,33038,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,33038,1,3,0)
+474 ;;=3^Constitutional aplastic anemia NEC
+475 ;;^UTILITY(U,$J,358.3,33038,1,4,0)
+476 ;;=4^D61.09
+477 ;;^UTILITY(U,$J,358.3,33038,2)
+478 ;;=^334036
+479 ;;^UTILITY(U,$J,358.3,33039,0)
+480 ;;=D61.810^^102^1375^1
+481 ;;^UTILITY(U,$J,358.3,33039,1,0)
+482 ;;=^358.31IA^4^2
+483 ;;^UTILITY(U,$J,358.3,33039,1,3,0)
+484 ;;=3^Antineoplastic chemotherapy induced pancytopenia
+485 ;;^UTILITY(U,$J,358.3,33039,1,4,0)
+486 ;;=4^D61.810
+487 ;;^UTILITY(U,$J,358.3,33039,2)
+488 ;;=^5002339
+489 ;;^UTILITY(U,$J,358.3,33040,0)
+490 ;;=D61.2^^102^1375^2
+491 ;;^UTILITY(U,$J,358.3,33040,1,0)
+492 ;;=^358.31IA^4^2
+493 ;;^UTILITY(U,$J,358.3,33040,1,3,0)
+494 ;;=3^Aplastic anemia due to other external agents
+495 ;;^UTILITY(U,$J,358.3,33040,1,4,0)
+496 ;;=4^D61.2
+497 ;;^UTILITY(U,$J,358.3,33040,2)
+498 ;;=^5002337
+499 ;;^UTILITY(U,$J,358.3,33041,0)
+500 ;;=D61.1^^102^1375^5
+501 ;;^UTILITY(U,$J,358.3,33041,1,0)
+502 ;;=^358.31IA^4^2
+503 ;;^UTILITY(U,$J,358.3,33041,1,3,0)
+504 ;;=3^Drug-induced aplastic anemia
+505 ;;^UTILITY(U,$J,358.3,33041,1,4,0)
+506 ;;=4^D61.1
+507 ;;^UTILITY(U,$J,358.3,33041,2)
+508 ;;=^5002336
+509 ;;^UTILITY(U,$J,358.3,33042,0)
+510 ;;=D61.89^^102^1375^3
+511 ;;^UTILITY(U,$J,358.3,33042,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,33042,1,3,0)
+514 ;;=3^Aplastic anemias and other bone marrow failure syndromes NEC
+515 ;;^UTILITY(U,$J,358.3,33042,1,4,0)
+516 ;;=4^D61.89
+517 ;;^UTILITY(U,$J,358.3,33042,2)
+518 ;;=^5002341
+519 ;;^UTILITY(U,$J,358.3,33043,0)
+520 ;;=K40.90^^102^1376^3
+521 ;;^UTILITY(U,$J,358.3,33043,1,0)
+522 ;;=^358.31IA^4^2
+523 ;;^UTILITY(U,$J,358.3,33043,1,3,0)
+524 ;;=3^Unil inguinal hernia w/o obstruction or gangrene
+525 ;;^UTILITY(U,$J,358.3,33043,1,4,0)
+526 ;;=4^K40.90
+527 ;;^UTILITY(U,$J,358.3,33043,2)
+528 ;;=^5008591
+529 ;;^UTILITY(U,$J,358.3,33044,0)
+530 ;;=K42.9^^102^1376^2
+531 ;;^UTILITY(U,$J,358.3,33044,1,0)
+532 ;;=^358.31IA^4^2
+533 ;;^UTILITY(U,$J,358.3,33044,1,3,0)
+534 ;;=3^Umbilical hernia w/o obstruction or gangrene
+535 ;;^UTILITY(U,$J,358.3,33044,1,4,0)
+536 ;;=4^K42.9
+537 ;;^UTILITY(U,$J,358.3,33044,2)
+538 ;;=^5008606
+539 ;;^UTILITY(U,$J,358.3,33045,0)
+540 ;;=K43.9^^102^1376^4
+541 ;;^UTILITY(U,$J,358.3,33045,1,0)
+542 ;;=^358.31IA^4^2
+543 ;;^UTILITY(U,$J,358.3,33045,1,3,0)
+544 ;;=3^Ventral hernia w/o obstruction or gangrene
+545 ;;^UTILITY(U,$J,358.3,33045,1,4,0)
+546 ;;=4^K43.9
+547 ;;^UTILITY(U,$J,358.3,33045,2)
+548 ;;=^5008615
+549 ;;^UTILITY(U,$J,358.3,33046,0)
+550 ;;=K43.2^^102^1376^1
+551 ;;^UTILITY(U,$J,358.3,33046,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,33046,1,3,0)
+554 ;;=3^Incisional hernia w/o obstruction or gangrene
+555 ;;^UTILITY(U,$J,358.3,33046,1,4,0)
+556 ;;=4^K43.2
+557 ;;^UTILITY(U,$J,358.3,33046,2)
+558 ;;=^5008609
+559 ;;^UTILITY(U,$J,358.3,33047,0)
+560 ;;=N17.0^^102^1377^1
+561 ;;^UTILITY(U,$J,358.3,33047,1,0)
+562 ;;=^358.31IA^4^2
+563 ;;^UTILITY(U,$J,358.3,33047,1,3,0)
+564 ;;=3^Acute kidney failure with tubular necrosis
+565 ;;^UTILITY(U,$J,358.3,33047,1,4,0)
+566 ;;=4^N17.0
+567 ;;^UTILITY(U,$J,358.3,33047,2)
+568 ;;=^5015598
+569 ;;^UTILITY(U,$J,358.3,33048,0)
+570 ;;=N18.9^^102^1377^3
+571 ;;^UTILITY(U,$J,358.3,33048,1,0)
+572 ;;=^358.31IA^4^2
+573 ;;^UTILITY(U,$J,358.3,33048,1,3,0)
+574 ;;=3^Chronic kidney disease, unspecified
+575 ;;^UTILITY(U,$J,358.3,33048,1,4,0)
+576 ;;=4^N18.9
+577 ;;^UTILITY(U,$J,358.3,33048,2)
+578 ;;=^332812
+579 ;;^UTILITY(U,$J,358.3,33049,0)
+580 ;;=N19.^^102^1377^5
+581 ;;^UTILITY(U,$J,358.3,33049,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,33049,1,3,0)
+584 ;;=3^Kidney failure,Unspec
+585 ;;^UTILITY(U,$J,358.3,33049,1,4,0)
+586 ;;=4^N19.
+587 ;;^UTILITY(U,$J,358.3,33049,2)
+588 ;;=^5015607
+589 ;;^UTILITY(U,$J,358.3,33050,0)
+590 ;;=Z94.0^^102^1377^6
+591 ;;^UTILITY(U,$J,358.3,33050,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,33050,1,3,0)
+594 ;;=3^Kidney transplant status
+595 ;;^UTILITY(U,$J,358.3,33050,1,4,0)
+596 ;;=4^Z94.0
+597 ;;^UTILITY(U,$J,358.3,33050,2)
+598 ;;=^5063654
+599 ;;^UTILITY(U,$J,358.3,33051,0)
+600 ;;=Q61.2^^102^1377^12
+601 ;;^UTILITY(U,$J,358.3,33051,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,33051,1,3,0)
+604 ;;=3^Polycystic kidney, adult type
+605 ;;^UTILITY(U,$J,358.3,33051,1,4,0)
+606 ;;=4^Q61.2
+607 ;;^UTILITY(U,$J,358.3,33051,2)
+608 ;;=^5018796
+609 ;;^UTILITY(U,$J,358.3,33052,0)
+610 ;;=Q61.3^^102^1377^14
+611 ;;^UTILITY(U,$J,358.3,33052,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,33052,1,3,0)
+614 ;;=3^Polycystic kidney, unspecified
+615 ;;^UTILITY(U,$J,358.3,33052,1,4,0)
+616 ;;=4^Q61.3
+617 ;;^UTILITY(U,$J,358.3,33052,2)
+618 ;;=^5018797
+619 ;;^UTILITY(U,$J,358.3,33053,0)
+620 ;;=Q61.19^^102^1377^13
+621 ;;^UTILITY(U,$J,358.3,33053,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,33053,1,3,0)
+624 ;;=3^Polycystic kidney, infantile type, other
+625 ;;^UTILITY(U,$J,358.3,33053,1,4,0)
+626 ;;=4^Q61.19
+627 ;;^UTILITY(U,$J,358.3,33053,2)
+628 ;;=^5018795
+629 ;;^UTILITY(U,$J,358.3,33054,0)
+630 ;;=C64.1^^102^1377^8
+631 ;;^UTILITY(U,$J,358.3,33054,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,33054,1,3,0)
+634 ;;=3^Malignant neoplasm of right kidney, except renal pelvis
+635 ;;^UTILITY(U,$J,358.3,33054,1,4,0)
+636 ;;=4^C64.1
+637 ;;^UTILITY(U,$J,358.3,33054,2)
+638 ;;=^5001248
+639 ;;^UTILITY(U,$J,358.3,33055,0)
+640 ;;=C64.2^^102^1377^7
+641 ;;^UTILITY(U,$J,358.3,33055,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,33055,1,3,0)
+644 ;;=3^Malignant neoplasm of left kidney, except renal pelvis
+645 ;;^UTILITY(U,$J,358.3,33055,1,4,0)
+646 ;;=4^C64.2
+647 ;;^UTILITY(U,$J,358.3,33055,2)
+648 ;;=^5001249
+649 ;;^UTILITY(U,$J,358.3,33056,0)
+650 ;;=N18.6^^102^1377^4
+651 ;;^UTILITY(U,$J,358.3,33056,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,33056,1,3,0)
+654 ;;=3^ESRD
+655 ;;^UTILITY(U,$J,358.3,33056,1,4,0)
+656 ;;=4^N18.6
+657 ;;^UTILITY(U,$J,358.3,33056,2)
+658 ;;=^303986
+659 ;;^UTILITY(U,$J,358.3,33057,0)
+660 ;;=D49.511^^102^1377^10
+661 ;;^UTILITY(U,$J,358.3,33057,1,0)
+662 ;;=^358.31IA^4^2
