SROAUTL4	;BIR/ADM - RISK ASSESSMENT UTILITY ;01/10/08
	;;3.0; Surgery ;**38,71,95,125,153,160,164,166**;24 Jun 93;Build 7
	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
