SROAUTL4 ;BIR/ADM - RISK ASSESSMENT UTILITY ;01/10/08 ;;3.0; Surgery ;**38,71,95,125,153,160,164,166**;24 Jun 93;Build 6 N SRZZ,SRXX,SRX1 S SRZ=0 F S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ D .I SRY(130,SRTN,SRZ,"I")="" D TR S (SRX1,X)=$T(@SRP),SRFLD=$P(X,";;",2) D ..I SRZ=513,$P(^SRF(SRTN,0),"^",9)<3071001 Q ..I SRZ=515 S X1=$P(^SRF(SRTN,0),"^",9),X2=$P($G(^SRF(SRTN,209)),"^",15) D ^%DTC I X'>30 Q ..I SRZ=484,$P($G(^SRF(SRTN,209)),"^",13)'="Y" Q ..S X=SRX1,SRX(SRZ)=$P(SRFLD,"^",2)_"^"_$P(X,";;",3) .I SRY(130,SRTN,SRZ,"I")="NS" D TR S X=$T(@SRP),SRFLD=$P(X,";;",2),SRDT=$P(SRFLD,"^",4) S:SRDT'="" SRLR(SRDT)="" S SRDT=0 F S SRDT=$O(SRLR(SRDT)) Q:'SRDT K SRX(SRDT) Q RED M SRZZ=SRX S SRZ=0 F S SRZ=$O(SRX(SRZ)) Q:'SRZ S SRZZ=$P($G(SRX(SRZ)),"^",2),SRXX(SRZZ)=$P($G(SRX(SRZ)),"^")_":"_SRZ K SRX M SRX=SRXX K SRXX Q TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP") Q GET S X=$T(@J) Q BCF ;;236^Patient's Height^Height^;;1-01 BCG ;;237^Patient's Weight^Weight^;;1-02 DGE ;;475^Diabetes (Cardiac);;1-03 BJC ;;203^History of COPD (Y/N)^COPD^;;1-04 CDG ;;347^FEV1^FEV1^;;1-05 BJI ;;209^Cardiomegaly on Chest X-Ray (Y/N)^Cardiomegaly (X-ray)^;;1-06 CDH ;;348^Pulmonary Rales (Y/N)^Pulmonary Rales^;;1-07 EAJ ;;510^Current Smoker^Current Smoker^;;1-08 CDI ;;349^Active Endocarditis (Y/N)^Active Endocarditis^;;1-09 CEJ ;;350^Resting ST Depression (Y/N)^Resting ST Depression^;;1-10 BDJ ;;240^Functional Health Status^Functional Status^;;1-11 CEA ;;351^PCI Status^PCI^;;1-12 BJE ;;205^Prior Myocardial Infarction^Prior MI^;;1-13 CEB ;;352^Number of Prior Heart Surgeries^Number of Prior Heart Surgeries^;;1-14 DHE ;;485^Prior Heart Surgeries;;1-15 BFE ;;265^Peripheral Vascular Disease (Y/N)^Peripheral Vascular Disease^;;1-16 BFD ;;264^Cerebral Vascular Disease (Y/N)^Cerebral Vascular Disease^;;1-17 BFG ;;267^Angina (use NYHA Functional Class)^Angina (use CCS Class)^;;1-18 BJG ;;207^Congestive Heart Failure (use NYHA Functional Class)^CHF (use NYHA Class)^;;1-19 CEC ;;353^Current Diuretic Use (Y/N)^Current Diuretic Use^;;1-20 CED ;;354^Current Digoxin Use (Y/N)^Current Digoxin Use^;;1-21 CEE ;;355^IV NTG within 48 Hours Preceding Surgery (Y/N)^IV NTG within 48 Hours^;;1-22 DGD ;;474^Preop use of circulatory Device;;1-23 DFC ;;463^Hypertension^;;1-24 DEG ;;457^HDL^^457.1;;2-01 DEGPA ;;457.1^HDL, Date;;2-02 DFA ;;461^LDL^^461.1;;2-03 DFAPA ;;461.1^LDL, Date;;2-04 DFB ;;462^Total Cholesterol^^462.1;;2-05 DFBPA ;;462.1^Total Cholesterol, Date;;2-06 DEH ;;458^Serum Triglyceride^^458.1;;2-07 DEHPA ;;458.1^Serum Triglyceride, Date;;2-08 DEI ;;459^Serum Potassium^^459.1;;2-09 DEIPA ;;459.1^Serum Potassium, Date;;2-10 DFJ ;;460^Serum Total Bilirubin^^460.1;;2-11 DFJPA ;;460.1^Serum Total Bilirubin, Date;;2-12 BBC ;;223^Preoperative Serum Creatinine^Creatinine^290;;2-13 BIJ ;;290^Creatinine Date;;2-14 BBE ;;225^Preoperative Serum Albumin^^292;;2-15 BIB ;;292^Preoperative Serum Albumin Date;;2-16 BAI ;;219^Preoperative Hemoglobin^^239;;2-17 BCI ;;239^Preoperative Hemoglobin Date;;2-18 EJD ;;504^Hemoglobin A1c^^504.1;;2-19 EJDPA ;;504.1^Hemoglobin A1c, Date;;2-20 DGF ;;476^Procedure Type;;3-01 CEG ;;357^Left Ventricular End-Diastolic Pressure^LVEDP^;;3-02 CEH ;;358^Aortic Systolic Pressure^Aortic Systolic Pressure^;;3-03 CEI ;;359^PA Systolic Pressure^*PA Systolic Pressure^;;3-04 CFJ ;;360^PAW Mean Pressure^*PAW Mean Pressure^;;3-05 CFC ;;363^LV Contraction Grade^LV Contraction Grade (from contrast or radionuclide angiogram or 2D echo^;;3-06 DAE ;;415^Mitral Regurgitation^Mitral Regurgitation^;;3-07 DGG ;;477^Aortic Stenosis;;3-08 CFA ;;361^Left Main Stenosis^Left Main Stenosis^;;3-09 CFBPA ;;362.1^Left Anterior Descending (LAD) Stenosis^LAD Stenosis^;;3-10 CFBPB ;;362.2^Right Coronary Artery Stenosis^Right Coronary Stenosis^;;3-11 CFBPC ;;362.3^Circumflex Coronary Artery Stenosis^Circumflex Stenosis^;;3-12 DGH ;;478^Re-Do Lad Stenosis;;3-13 DGI ;;479^Re-Do Right Coronary Stenosis;;3-14 DHJ ;;480^Re-Do Circumflex Stenosis;;3-15 CFD ;;364^Physician's Preoperative Estimate of Operative Mortality^Physician's Preoperative Estimate of Operative Mortality^;;4-01 CFDPA ;;364.1^Date/Time of Estimate of Operative Mortality^Date/Time of Estimate of Operative Mortality^;;4-02 APAC ;;1.13^ASA Class^ASA Classification^;;4-03 DAD ;;414^Cardiac Surgical Priority^Surgical Priority^;;4-04 DADPA ;;414.1^Date/Time of Cardiac Surgical Priority^Date/Time of Cardiac Surgical Priority^;;4-05 PBB ;;.22^Time the Operation Began^Date/Time Operation Began^;;4-06 PBC ;;.23^Time the Operation Ended^Date/Time Operation Ended^;;4-07 CFE ;;365^CABG Distal Anastomoses with Vein^^;;5-01 CFF ;;366^CABG Distal Anastomoses with IMA^^;;5-02 DFD ;;464^Number with Radial Artery^;;5-03 DFE ;;465^Number with Other Artery^;;5-04 DAF ;;416^CABG Distal Anastomoses with Other Conduit^^;;5-05 CFG ;;367^Aortic Valve Replacement (Y/N)^Aortic Valve Replacement^;;5-06 CFH ;;368^Mitral Valve Replacement (Y/N)^Mitral Valve Replacement^;;5-07 CFI ;;369^Tricuspid Valve Replacement (Y/N)^Tricuspid Valve Replacement^;;5-08 CGJ ;;370^Valve Repair (Y/N)^Valve Repair^;;5-09 CGA ;;371^LV Aneurysmectomy (Y/N)^LV Aneurysmectomy^;;5-10 DHA ;;481^Bridge to transplant/Device;;5-11 DHC ;;483^Transmyocardial Laser Revascularization;;5-12 EAB ;;512^Maze Procedure;;5-13 CGF ;;376^ASD Repair (Y/N)^ASD Repair^;;5-14 CHJ ;;380^VSD Repair (Y/N)^VSD Repair^;;5-15 CGH ;;378^Myectomy for IHSS (Y/N)^Myectomy for IHSS^;;5-16 CGG ;;377^Myxoma Resection (Y/N)^Myxoma Resection^;;5-17 CGI ;;379^Other Tumor Resection (Y/N)^Other Tumor Resection^;;5-18 CGC ;;373^Cardiac Transplant (Y/N)^Cardiac Transplant^;;5-19 CGB ;;372^Great Vessel Repair(Y/N)^Great Vessel Repair^;;5-20 EJE ;;505^Endovascular Repair of Descending Thoracic Aorta (Y/N)^Endovascular Repair;;5-21 EJB ;;502^Other Cardiac Procedures (Y/N);;5-22 DHD ;;484^Other cardiac procedures (specify);;5-23 CHA ;;381^Foreign Body Removal (Y/N)^Foreign Body Removal^;;5-24 CHB ;;382^Pericardiectomy (Y/N)^Pericardiectomy^;;5-25 DEA ;;451^Total CPB Time;;5-26 DEJ ;;450^Total Ischemic Time;;5-27 DFH ;;468^Incision Type^;;5-28 DFI ;;469^Covert From Off Pump to CPB;;5-29 CHD ;;384^Operative Death (Y/N)^Operative Death^;;6-01 DAH ;;418^Hospital Admission Date And Time;;7-01 DAI ;;419^Hospital Discharge Date And Time;;7-02 DDJ ;;440^Cardiac Catheterization Date;;7-03 PBJE ;;.205^Time Patient In OR;;7-04 PBCB ;;.232^Time Patient Out OR;;7-05 DGJ ;;470^Date and Time Patient Extubated;;7-06 DGA ;;471^Date and Time Patient Discharged from ICU;;7-07 DGC ;;473^Homeless(Y/N);;7-08 DGB ;;472^Cardiac Surgery to NON-VA Facility;;7-09 DDB ;;442^Employment Status;;7-10 EAC ;;513^CT Surgery Consult Date;;7-11 EAE ;;515^Cause for Delay for Cardiac Surgery;;7-12