source: WorldVistAEHR/trunk/r/SURGERY-SR/SROAUTL4.m@ 1240

Last change on this file since 1240 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 5.7 KB
RevLine 
[623]1SROAUTL4 ;BIR/ADM - RISK ASSESSMENT UTILITY ;08/24/07
2 ;;3.0; Surgery ;**38,71,95,125,153,160,164**;24 Jun 93;Build 2
3 S SRZ=0 F S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ D
4 .I SRY(130,SRTN,SRZ,"I")="" D TR S X=$T(@SRP),SRFLD=$P(X,";;",2) D
5 ..I SRZ=451!(SRZ=450) S SRX($P(SRFLD,"^",2))=$P(SRFLD,"^",2)_"^"_SRZ Q
6 ..I SRZ=513,$P(^SRF(SRTN,0),"^",9)<3071001 Q
7 ..S SRX(SRZ)=$P(SRFLD,"^",2)
8 .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)=""
9 S SRDT=0 F S SRDT=$O(SRLR(SRDT)) Q:'SRDT K SRX(SRDT)
10 Q
11TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP")
12 Q
13GET S X=$T(@J)
14 Q
15PBB ;;.22^Time the Operation Began^Date/Time Operation Began^
16PBC ;;.23^Time the Operation Ended^Date/Time Operation Ended^
17BCF ;;236^Patient's Height^Height^
18BCG ;;237^Patient's Weight^Weight^
19CDF ;;346^Diabetes^Diabetes^
20BJC ;;203^History of COPD (Y/N)^COPD^
21CDG ;;347^FEV1^FEV1^
22BJI ;;209^Cardiomegaly on Chest X-Ray (Y/N)^Cardiomegaly (X-ray)^
23CDH ;;348^Pulmonary Rales (Y/N)^Pulmonary Rales^
24EAJ ;;510^Current Smoker^Current Smoker^
25BBC ;;223^Preoperative Serum Creatinine^Creatinine^290
26CDI ;;349^Active Endocarditis (Y/N)^Active Endocarditis^
27CEJ ;;350^Resting ST Depression (Y/N)^Resting ST Depression^
28BDJ ;;240^Functional Health Status^Functional Status^
29CEA ;;351^PCI Status^PCI^
30BJE ;;205^Prior Myocardial Infarction^Prior MI^
31CEB ;;352^Number of Prior Heart Surgeries^Number of Prior Heart Surgeries^
32BFE ;;265^Peripheral Vascular Disease (Y/N)^Peripheral Vascular Disease^
33BFD ;;264^Cerebral Vascular Disease (Y/N)^Cerebral Vascular Disease^
34BFG ;;267^Angina (use NYHA Functional Class)^Angina (use CCS Class)^
35BJG ;;207^Congestive Heart Failure (use NYHA Functional Class)^CHF (use NYHA Class)^
36CEC ;;353^Current Diuretic Use (Y/N)^Current Diuretic Use^
37CED ;;354^Current Digoxin Use (Y/N)^Current Digoxin Use^
38CEE ;;355^IV NTG within 48 Hours Preceding Surgery (Y/N)^IV NTG within 48 Hours^
39CEF ;;356^Preoperative use of IABP (Y/N)^Preop Use of IABP^
40CEG ;;357^Left Ventricular End-Diastolic Pressure^LVEDP^
41CEH ;;358^Aortic Systolic Pressure^Aortic Systolic Pressure^
42CEI ;;359^PA Systolic Pressure^*PA Systolic Pressure^
43CFJ ;;360^PAW Mean Pressure^*PAW Mean Pressure^
44CFA ;;361^Left Main Stenosis^Left Main Stenosis^
45CFBPA ;;362.1^Left Anterior Descending (LAD) Stenosis^LAD Stenosis^
46CFBPB ;;362.2^Right Coronary Artery Stenosis^Right Coronary Stenosis^
47CFBPC ;;362.3^Circumflex Coronary Artery Stenosis^Circumflex Stenosis^
48CFC ;;363^LV Contraction Grade^LV Contraction Grade (from contrast or radionuclide angiogram or 2D echo^
49DAE ;;415^Mitral Regurgitation^Mitral Regurgitation^
50CFD ;;364^Physician's Preoperative Estimate of Operative Mortality^Physician's Preoperative Estimate of Operative Mortality^
51CFDPA ;;364.1^Date/Time of Estimate of Operative Mortality^Date/Time of Estimate of Operative Mortality^
52APAC ;;1.13^ASA Class^ASA Classification^
53DAD ;;414^Cardiac Surgical Priority^Surgical Priority^
54DADPA ;;414.1^Date/Time of Cardiac Surgical Priority^Date/Time of Cardiac Surgical Priority^
55CHD ;;384^Operative Death (Y/N)^Operative Death^
56CFE ;;365^CABG Distal Anastomoses with Vein^^
57CFF ;;366^CABG Distal Anastomoses with IMA^^
58CFG ;;367^Aortic Valve Replacement (Y/N)^Aortic Valve Replacement^
59CFH ;;368^Mitral Valve Replacement (Y/N)^Mitral Valve Replacement^
60CFI ;;369^Tricuspid Valve Replacement (Y/N)^Tricuspid Valve Replacement^
61CGJ ;;370^Valve Repair (Y/N)^Valve Repair^
62CGA ;;371^LV Aneurysmectomy (Y/N)^LV Aneurysmectomy^
63CGB ;;372^Great Vessel Repair(Y/N)^Great Vessel Repair^
64EJE ;;505^Endovascular Repair of Descending Thoracic Aorta (Y/N)^Endovascular Repair
65CGC ;;373^Cardiac Transplant (Y/N)^Cardiac Transplant^
66CGF ;;376^ASD Repair (Y/N)^ASD Repair^
67CHJ ;;380^VSD Repair (Y/N)^VSD Repair^
68CGG ;;377^Myxoma Resection (Y/N)^Myxoma Resection^
69CHA ;;381^Foreign Body Removal (Y/N)^Foreign Body Removal^
70CGH ;;378^Myectomy for IHSS (Y/N)^Myectomy for IHSS^
71CHB ;;382^Pericardiectomy (Y/N)^Pericardiectomy^
72CGI ;;379^Other Tumor Resection (Y/N)^Other Tumor Resection^
73DAF ;;416^CABG Distal Anastomoses with Other Conduit^^
74DDB ;;442^Employment Status
75BAI ;;219^Preoperative Hemoglobin^^239
76BCI ;;239^Preoperative Hemoglobin Date
77BBE ;;225^Preoperative Serum Albumin^^292
78BIB ;;292^Preoperative Serum Albumin Date
79BIJ ;;290^Creatinine Date
80DEA ;;451^Total CPB Time
81DEJ ;;450^Total Ischemic Time
82DDJ ;;440^Cardiac Catheterization Date
83DAH ;;418^Hospital Admission Date And Time
84DAI ;;419^Hospital Discharge Date And Time
85DFC ;;463^Hypertension^
86DFD ;;464^Number with Radial Artery^
87DFE ;;465^Number with Other Artery^
88DFH ;;468^Incision Type^
89DFI ;;469^Covert From Off Pump to CPB
90DGJ ;;470^Date and Time Patient Extubated
91DGA ;;471^Date and Time Patient Discharged from ICU
92DGB ;;472^Cardiac Surgery to NON-VA Facility
93PBJE ;;.205^Time Patient In OR
94PBCB ;;.232^Time Patient Out OR
95DEG ;;457^HDL^^457.1
96DEGPA ;;457.1^HDL, Date
97DEH ;;458^Serum Triglyceride^^458.1
98DEHPA ;;458.1^Serum Triglyceride, Date
99DEI ;;459^Serum Potassium^^459.1
100DEIPA ;;459.1^Serum Potassium, Date
101DFJ ;;460^Serum Total Bilirubin^^460.1
102DFJPA ;;460.1^Serum Total Bilirubin, Date
103DFA ;;461^LDL^^461.1
104DFAPA ;;461.1^LDL, Date
105DFB ;;462^Total Cholesterol^^462.1
106DFBPA ;;462.1^Total Cholesterol, Date
107EJD ;;504^Hemoglobin A1c^^504.1
108EJDPA ;;504.1^Hemoglobin A1c, Date
109DGE ;;475^Diabetes (Cardiac)
110DGD ;;474^Preop use of circulatory Device
111DGF ;;476^Procedure Type
112DGG ;;477^Aortic Stenosis
113DGH ;;478^Re-Do Lad Stenosis
114DGI ;;479^Re-Do Right Coronary Stenosis
115DHJ ;;480^Re-Do Circumflex Stenosis
116DHA ;;481^Bridge to transplant/Device
117EAB ;;512^Maze Procedure
118DHC ;;483^Transmyocardial Laser Revascularization
119EJB ;;502^Other Cardiac Procedures (Y/N)
120DHD ;;484^Other cardiac procedures (specify)
121DHE ;;485^Prior Heart Surgeries
122EAC ;;513^CT Surgery Consult Date
Note: See TracBrowser for help on using the repository browser.