Routine: SROAUTL4

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)

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

TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP")

GET S X=$T(@J)

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

SROAUTL4  ;BIR/ADM - RISK ASSESSMENT UTILITY ;01/10/08

 +1       ;;3.0; Surgery ;**38,71,95,125,153,160,164,166**;24 Jun 93;Build 6

 +2        NEW SRZZ,SRXX,SRX1

 +3        SET SRZ=0

FOR

               SET SRZ=$ORDER(SRY(130,SRTN,SRZ))

               IF 'SRZ

                   QUIT

               Begin DoDot:1

 +4                IF SRY(130,SRTN,SRZ,"I")=""

                       DO TR

                       SET (SRX1,X)=$TEXT(@SRP)

                       SET SRFLD=$PIECE(X,";;",2)

                       Begin DoDot:2

 +5                        IF SRZ=513

                               IF $PIECE(^SRF(SRTN,0),"^",9)<3071001

                                   QUIT

 +6                        IF SRZ=515

                               SET X1=$PIECE(^SRF(SRTN,0),"^",9)

                               SET X2=$PIECE($GET(^SRF(SRTN,209)),"^",15)

                               DO ^%DTC

                               IF X'>30

                                   QUIT

 +7                        IF SRZ=484

                               IF $PIECE($GET(^SRF(SRTN,209)),"^",13)'="Y"

                                   QUIT

 +8                        SET X=SRX1

                           SET SRX(SRZ)=$PIECE(SRFLD,"^",2)_"^"_$PIECE(X,";;",3)

                       End DoDot:2

 +9                IF SRY(130,SRTN,SRZ,"I")="NS"

                       DO TR

                       SET X=$TEXT(@SRP)

                       SET SRFLD=$PIECE(X,";;",2)

                       SET SRDT=$PIECE(SRFLD,"^",4)

                       IF SRDT'=""

                           SET SRLR(SRDT)=""

               End DoDot:1

 +10       SET SRDT=0

FOR

               SET SRDT=$ORDER(SRLR(SRDT))

               IF 'SRDT

                   QUIT

               KILL SRX(SRDT)

 +11       QUIT

RED        MERGE SRZZ=SRX

           SET SRZ=0

FOR

               SET SRZ=$ORDER(SRX(SRZ))

               IF 'SRZ

                   QUIT

               SET SRZZ=$PIECE($GET(SRX(SRZ)),"^",2)

               SET SRXX(SRZZ)=$PIECE($GET(SRX(SRZ)),"^")_":"_SRZ

 +1        KILL SRX

           MERGE SRX=SRXX

           KILL SRXX

 +2        QUIT

TR         SET SRP=SRZ

           SET SRP=$TRANSLATE(SRP,"1234567890.","ABCDEFGHIJP")

 +1        QUIT

GET        SET X=$TEXT(@J)

 +1        QUIT

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

SROAUTL4.m