Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI0D5

IBDEI0D5.m

Go to the documentation of this file.
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