Ignore:
Timestamp:
Dec 4, 2009, 12:11:15 AM (14 years ago)
Author:
George Lilly
Message:

revised back to 6/30/08 version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • WorldVistAEHR/trunk/r/SURGERY-SR/SROAUTL1.m

    r613 r623  
    1 SROAUTL1        ;BIR/ADM - RISK ASSESSMENT UTILITY ;12/10/07
    2         ;;3.0; Surgery ;**38,47,81,125,153,160,166**;24 Jun 93;Build 7
    3         S SRZ=0 F  S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ  I SRY(130,SRTN,SRZ,"I")="" D TR S X=$T(@SRP),SRFLD=$P(X,";;",2),SRX(SRZ)=$P(SRFLD,"^",2)
    4         Q
    5 TR      S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP")
    6         Q
    7 GET     S X=$T(@J)
    8         Q
    9 BJH     ;;208^History of Hypertension Requiring Medication (Y/N)^Hypertension Requiring Meds^
    10 BAC     ;;213^Esophageal Varices (Y/N)^Esophogeal Varices^
    11 BBJ     ;;220^Previous PCI (Y/N)^Previous PCI^
    12 BFF     ;;266^Previous Cardiac Surgery (Y/N)^Previous Cardiac Surgery^
    13 CBI     ;;329^History of Revascularization/Amputation for PVD (Y/N)^Revascularization/Amputation^
    14 CCJ     ;;330^Rest Pain/Gangrene (Y/N)^Rest Pain/Gangrene^
    15 CID     ;;394^History of MI Within Past 6 Months (Y/N)^MI Within 6 Months^
    16 CIE     ;;395^Angina within One Month Preceding Surgery (Y/N)^Angina Within 1 Month^
    17 BCF     ;;236^Patient's Height^Height^
    18 BCG     ;;237^Patient's Weight^Weight^
    19 CDF     ;;346^Diabetes^Diabetes Mellitus^
    20 BJB     ;;202^Current Smoker within 1 Year prior to Surgery (Y/N)^Current SmokerW/I 1 Year^
    21 BDF     ;;246^ETOH Greater than 2 Drinks/Day (Y/N)^ETOH > 2 Drinks/Day^
    22 CBE     ;;325^Dyspnea^Dyspnea^
    23 BCH     ;;238^DNR Status (Y/N)^DNR Status^
    24 DIB     ;;492^Functional Health Status at Evaluation for Surgery^Preop Functional Status
    25 BJD     ;;204^Ventilator Dependent Greater than 48 Hrs (Y/N)^Ventilator Dependent^
    26 BJC     ;;203^History of COPD (Y/N)^History of Severe COPD^
    27 CBF     ;;326^Current Pneumonia (Y/N)^Current Pneumonia^
    28 BAB     ;;212^Ascites (Y/N)^Ascites^
    29 CIF     ;;396^CHF within One Month Preceding Surgery (Y/N)^CHF Within 1 Month^
    30 CBH     ;;328^Acute Renal Failure (Y/N)^Acute Renal Failure^
    31 BAA     ;;211^Currently on Dialysis (Y/N)^Currently on Dialysis^
    32 CCB     ;;332^Impaired Sensorium (Y/N)^Impaired Sensorium^
    33 CCC     ;;333^Coma (Y/N)^Coma^
    34 DJJ     ;;400^Hemiplegia (Y/N)^Hemiplegia^
    35 CCD     ;;334^History of TIAs (Y/N)^History of TIAs^
    36 CCE     ;;335^CVA/Residual Neurologic Deficit (Y/N)^CVA/Residual Neuro Deficit^
    37 CCF     ;;336^CVA/No Neurologic Deficit (Y/N)^CVA/No Neuro Deficit^
    38 DJA     ;;401^Tumor Involving CNS (Y/N)^Tumor Involving CNS^
    39 CCH     ;;338^Disseminated Cancer (Y/N)^Disseminated Cancer^
    40 BAH     ;;218^Open Wound or Skin Infection (Y/N)^Open Wound or Infection^
    41 CCI     ;;339^Steroid Use for Chronic Condition (Y/N)^Steroid Use for Chronic Cond.^
    42 BAE     ;;215^Weight Loss > 10% of Usual Body Weight (Y/N)^Weight Loss > 10%^
    43 BAF     ;;216^History of Bleeding Disorders (Y/N)^Bleeding Disorders^
    44 BAG     ;;217^Transfusion Greater than 4 RBC Units this Admission (Y/N)^Transfusion > 4 RBC Units^
    45 CCHPA   ;;338.1^Chemotherapy Within Last 30 Days (Y/N)^Chemotherapy W/I 30 Days^
    46 CCHPB   ;;338.2^Radiotherapy Within Last 90 Days (Y/N)^Radiotherapy W/I 90 Days^
    47 BAHPA   ;;218.1^Preoperative Sepsis (Y/N)^Preoperative Sepsis^
    48 BFI     ;;269^Pregnancy Status^Pregnancy Status^
    49 DAC     ;;413^Transfer Status^Transfer Status^
    50 PJAA    ;;.011^In/Out-Patient Status
    51 BDG     ;;247^Length of Postoperative Hospital Stay
    52 CDB     ;;342^Date/Time of Death^Date/Time of Death
    53 DAG     ;;417^Patient's Race
    54 DAH     ;;418^Hospital Admission Date
    55 DAI     ;;419^Hospital Discharge Date
    56 DBJ     ;;420^Admitted/Transferred to Surgical Service
    57 DBA     ;;421^Discharged/Transferred to Chronic Care
    58 DEB     ;;452^Observation Admission Date/Time
    59 DEC     ;;453^Observation Discharge Date/Time
    60 DED     ;;454^Observation Treating Specialty
    61 EAC     ;;513^Surgery Consult Date
    62 EAF     ;;516^Date Surgery Consult Requested
     1SROAUTL1 ;BIR/ADM - RISK ASSESSMENT UTILITY ;04/24/07
     2 ;;3.0; Surgery ;**38,47,81,125,153,160**;24 Jun 93;Build 7
     3 S SRZ=0 F  S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ  I SRY(130,SRTN,SRZ,"I")="" D TR S X=$T(@SRP),SRFLD=$P(X,";;",2),SRX(SRZ)=$P(SRFLD,"^",2)
     4 Q
     5TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP")
     6 Q
     7GET S X=$T(@J)
     8 Q
     9BJH ;;208^History of Hypertension Requiring Medication (Y/N)^Hypertension Requiring Meds^
     10BAC ;;213^Esophageal Varices (Y/N)^Esophogeal Varices^
     11BBJ ;;220^Previous PCI (Y/N)^Previous PCI^
     12BFF ;;266^Previous Cardiac Surgery (Y/N)^Previous Cardiac Surgery^
     13CBI ;;329^History of Revascularization/Amputation for PVD (Y/N)^Revascularization/Amputation^
     14CCJ ;;330^Rest Pain/Gangrene (Y/N)^Rest Pain/Gangrene^
     15CID ;;394^History of MI Within Past 6 Months (Y/N)^MI Within 6 Months^
     16CIE ;;395^Angina within One Month Preceding Surgery (Y/N)^Angina Within 1 Month^
     17CIH ;;398^Quadriplegia/Tetraplegia/Quadriparesis (Y/N)^Quadriplegia^
     18CII ;;399^Paraplegia (Y/N)^Paraplegia^
     19BCF ;;236^Patient's Height^Height^
     20BCG ;;237^Patient's Weight^Weight^
     21CDF ;;346^Diabetes^Diabetes Mellitus^
     22BJB ;;202^Current Smoker within 1 Year prior to Surgery (Y/N)^Current SmokerW/I 1 Year^
     23BJBPA ;;202.1^Pack/Years^Pack/Years^
     24BDF ;;246^ETOH Greater than 2 Drinks/Day (Y/N)^ETOH > 2 Drinks/Day^
     25CBE ;;325^Dyspnea^Dyspnea^
     26BCH ;;238^DNR Status (Y/N)^DNR Status^
     27BDJ ;;240^Functional Health Status Prior to Current Illness^Pre-Illness Functional Status^
     28DIB ;;492^Functional Health Status at Evaluation for Surgery^Preop Functional Status
     29BJD ;;204^Ventilator Dependent Greater than 48 Hrs (Y/N)^Ventilator Dependent^
     30BJC ;;203^History of COPD (Y/N)^History of Severe COPD^
     31CBF ;;326^Current Pneumonia (Y/N)^Current Pneumonia^
     32BAB ;;212^Ascites (Y/N)^Ascites^
     33CIF ;;396^CHF within One Month Preceding Surgery (Y/N)^CHF Within 1 Month^
     34CBH ;;328^Acute Renal Failure (Y/N)^Acute Renal Failure^
     35BAA ;;211^Currently on Dialysis (Y/N)^Currently on Dialysis^
     36CCB ;;332^Impaired Sensorium (Y/N)^Impaired Sensorium^
     37CCC ;;333^Coma (Y/N)^Coma^
     38DJJ ;;400^Hemiplegia (Y/N)^Hemiplegia^
     39CCD ;;334^History of TIAs (Y/N)^History of TIAs^
     40CCE ;;335^CVA/Residual Neurologic Deficit (Y/N)^CVA/Residual Neuro Deficit^
     41CCF ;;336^CVA/No Neurologic Deficit (Y/N)^CVA/No Neuro Deficit^
     42DJA ;;401^Tumor Involving CNS (Y/N)^Tumor Involving CNS^
     43CCH ;;338^Disseminated Cancer (Y/N)^Disseminated Cancer^
     44BAH ;;218^Open Wound or Skin Infection (Y/N)^Open Wound or Infection^
     45CCI ;;339^Steroid Use for Chronic Condition (Y/N)^Steroid Use for Chronic Cond.^
     46BAE ;;215^Weight Loss > 10% of Usual Body Weight (Y/N)^Weight Loss > 10%^
     47BAF ;;216^History of Bleeding Disorders (Y/N)^Bleeding Disorders^
     48BAG ;;217^Transfusion Greater than 4 RBC Units this Admission (Y/N)^Transfusion > 4 RBC Units^
     49CCHPA ;;338.1^Chemotherapy Within Last 30 Days (Y/N)^Chemotherapy W/I 30 Days^
     50CCHPB ;;338.2^Radiotherapy Within Last 90 Days (Y/N)^Radiotherapy W/I 90 Days^
     51BAHPA ;;218.1^Preoperative Sepsis (Y/N)^Preoperative Sepsis^
     52BFI ;;269^Pregnancy Status^Pregnancy Status^
     53DAC ;;413^Transfer Status^Transfer Status^
     54PJAA ;;.011^In/Out-Patient Status
     55BDG ;;247^Length of Postoperative Hospital Stay
     56CDB ;;342^Date/Time of Death^Date/Time of Death
     57DAG ;;417^Patient's Race
     58DAH ;;418^Hospital Admission Date
     59DAI ;;419^Hospital Discharge Date
     60DBJ ;;420^Admitted/Transferred to Surgical Service
     61DBA ;;421^Discharged/Transferred to Chronic Care
     62DEB ;;452^Observation Admission Date/Time
     63DEC ;;453^Observation Discharge Date/Time
     64DED ;;454^Observation Treating Specialty
Note: See TracChangeset for help on using the changeset viewer.