Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (14 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed

  • FOIAVistA/tag/r/SURGERY-SR/SROAUTL4.m

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