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