- SROAUTL1 ;BIR/ADM - RISK ASSESSMENT UTILITY ;07/19/2011
- ;;3.0;Surgery;**38,47,81,125,153,160,166,174,176,182,184**;24 Jun 93;Build 35
- 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)
- I $D(SRX(667)) I $P($G(^SRF(SRTN,200.1)),"^",8),($P($G(^SRF(SRTN,200.1)),"^",8)'=3) K SRX(667)
- Q
- TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP")
- Q
- GET S X=$T(@J)
- Q
- FDA ;;641^Hypertension^Hypertension^
- BAC ;;213^Esophageal Varices (Y/N)^Esophogeal Varices^
- FDJ ;;640^PCI^PCI^
- DHE ;;485^Prior Heart Surgery^Prior Heart Surgery
- BFE ;;265^Peripheral Arterial Disease^Peripheral Arterial Disease^
- CCJ ;;330^Rest Pain/Gangrene (Y/N)^Rest Pain/Gangrene^
- BJE ;;205^Prior MI^Prior MI^
- BFG ;;267^Angina Severity^Angina Severity^
- FDC ;;643^Angina Timeframe^Angina Timeframe^
- BCF ;;236^Patient's Height^Height^
- BCG ;;237^Patient's Weight^Weight^
- EAI ;;519^Diabetes Mellitus: Chronic, Long-term Management^Diabetes Mellitus: Chronic, Long-term Management^
- EBJ ;;520^Diabetes Mellitus: Management Prior to Surgery^Diabetes Mellitus: Management Prior to Surgery^
- EAG ;;517^Tobacco Use^Tobacco Use^
- EAH ;;518^Tobacco Use Timeframe^Tobacco Use Timeframe^
- BDF ;;246^ETOH Greater than 2 Drinks/Day (Y/N)^ETOH > 2 Drinks/Day^
- FAH ;;618^Positive Drug Screening^Positive Drug Screening^
- CBE ;;325^Dyspnea^Dyspnea^
- BCH ;;238^DNR Status (Y/N)^DNR Status^
- DIB ;;492^Functional Health Status^Functional Status^
- FGJ ;;670^Current Residence^Current Residence^
- FGA ;;671^Ambulation Device^Ambulation Device^
- BJD ;;204^Ventilator Dependent Greater than 48 Hrs (Y/N)^Ventilator Dependent^
- BJC ;;203^History of COPD (Y/N)^History of Severe COPD^
- CBF ;;326^Current Pneumonia (Y/N)^Current Pneumonia^
- BAB ;;212^Ascites (Y/N)^Ascites^
- DBC ;;423^Preop Congestive Heart Failure^Preop Congestive Heart Failure^
- CBH ;;328^Acute Renal Failure (Y/N)^Acute Renal Failure^
- BAA ;;211^Currently on Dialysis (Y/N)^Currently on Dialysis^
- CCB ;;332^Impaired Sensorium (Y/N)^Impaired Sensorium^
- CCC ;;333^Coma (Y/N)^Coma^
- DJJ ;;400^Hemiplegia (Y/N)^Hemiplegia^
- EBA ;;521^Prior Surgical Repair/Carotid Artery Obstruction^Prior Surgical Repair/Carotid Artery Obstruction^
- EBB ;;522^History of CVD Events^History of CVD Events^
- DJA ;;401^Tumor Involving CNS (Y/N)^Tumor Involving CNS^
- CCH ;;338^Disseminated Cancer (Y/N)^Disseminated Cancer^
- BAH ;;218^Open Wound or Skin Infection (Y/N)^Open Wound or Infection^
- CCI ;;339^Steroid Use for Chronic Condition (Y/N)^Steroid Use for Chronic Cond.^
- BAE ;;215^Weight Loss > 10% of Usual Body Weight (Y/N)^Weight Loss > 10%^
- BAF ;;216^Bleeding (Coagulation) Disorder^Bleeding (Coagulation) Disorde^
- FDB ;;642^Bleeding Risk Due To Medication^Bleeding Risk Due To Medication^
- BAG ;;217^Transfusion Greater than 4 RBC Units this Admission (Y/N)^Transfusion > 4 RBC Units^
- CCHPA ;;338.1^Chemotherapy Within Last 30 Days (Y/N)^Chemotherapy W/I 30 Days^
- CCHPC ;;338.3^Chemo for Malig in Last 90 Days^Chemo for Malig in Last 90 Days^
- CCHPB ;;338.2^Radiotherapy Within Last 90 Days (Y/N)^Radiotherapy W/I 90 Days^
- BAHPA ;;218.1^Preoperative Sepsis (Y/N)^Preoperative Sepsis^
- BFI ;;269^Pregnancy Status^Pregnancy Status^
- FGC ;;673^History of Cancer^History of Cancer^
- FGD ;;674^History of Radiation Therapy^History of Radiation Theraapy^
- FGG ;;677^Num of Prior Surg in Same Operative field^Num of Prior Surg in Same Operative field^
- DAC ;;413^Transfer Status^Transfer Status^
- PJAA ;;.011^Hospital Admission Status
- BDG ;;247^Length of Postoperative Hospital Stay
- CDB ;;342^Date/Time of Death^Date/Time of Death
- DAG ;;417^Patient's Race
- DAH ;;418^Hospital Admission Date
- DAI ;;419^Hospital Discharge Date
- DBJ ;;420^Admitted/Transferred to Surgical Service
- DBA ;;421^Discharged/Transferred to Chronic Care
- DEB ;;452^Observation Admission Date/Time
- DEC ;;453^Observation Discharge Date/Time
- DED ;;454^Observation Treating Specialty
- BCGPA ;;237.1^Preoperative Sleep Apnea
- FFG ;;667^Sleep Apnea-Compliance
- FFB ;;662^Impaired Cognitive Function in Past 3 Months
- FHE ;;685^DC/REL Destination
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROAUTL1 4123 printed Apr 23, 2025@18:56:59 Page 2
- SROAUTL1 ;BIR/ADM - RISK ASSESSMENT UTILITY ;07/19/2011
- +1 ;;3.0;Surgery;**38,47,81,125,153,160,166,174,176,182,184**;24 Jun 93;Build 35
- +2 SET SRZ=0
- FOR
- SET SRZ=$ORDER(SRY(130,SRTN,SRZ))
- if 'SRZ
- QUIT
- IF SRY(130,SRTN,SRZ,"I")=""
- DO TR
- SET X=$TEXT(@SRP)
- SET SRFLD=$PIECE(X,";;",2)
- SET SRX(SRZ)=$PIECE(SRFLD,"^",2)
- +3 IF $DATA(SRX(667))
- IF $PIECE($GET(^SRF(SRTN,200.1)),"^",8)
- IF ($PIECE($GET(^SRF(SRTN,200.1)),"^",8)'=3)
- KILL SRX(667)
- +4 QUIT
- TR SET SRP=SRZ
- SET SRP=$TRANSLATE(SRP,"1234567890.","ABCDEFGHIJP")
- +1 QUIT
- GET SET X=$TEXT(@J)
- +1 QUIT
- FDA ;;641^Hypertension^Hypertension^
- BAC ;;213^Esophageal Varices (Y/N)^Esophogeal Varices^
- FDJ ;;640^PCI^PCI^
- DHE ;;485^Prior Heart Surgery^Prior Heart Surgery
- BFE ;;265^Peripheral Arterial Disease^Peripheral Arterial Disease^
- CCJ ;;330^Rest Pain/Gangrene (Y/N)^Rest Pain/Gangrene^
- BJE ;;205^Prior MI^Prior MI^
- BFG ;;267^Angina Severity^Angina Severity^
- FDC ;;643^Angina Timeframe^Angina Timeframe^
- BCF ;;236^Patient's Height^Height^
- BCG ;;237^Patient's Weight^Weight^
- EAI ;;519^Diabetes Mellitus: Chronic, Long-term Management^Diabetes Mellitus: Chronic, Long-term Management^
- EBJ ;;520^Diabetes Mellitus: Management Prior to Surgery^Diabetes Mellitus: Management Prior to Surgery^
- EAG ;;517^Tobacco Use^Tobacco Use^
- EAH ;;518^Tobacco Use Timeframe^Tobacco Use Timeframe^
- BDF ;;246^ETOH Greater than 2 Drinks/Day (Y/N)^ETOH > 2 Drinks/Day^
- FAH ;;618^Positive Drug Screening^Positive Drug Screening^
- CBE ;;325^Dyspnea^Dyspnea^
- BCH ;;238^DNR Status (Y/N)^DNR Status^
- DIB ;;492^Functional Health Status^Functional Status^
- FGJ ;;670^Current Residence^Current Residence^
- FGA ;;671^Ambulation Device^Ambulation Device^
- BJD ;;204^Ventilator Dependent Greater than 48 Hrs (Y/N)^Ventilator Dependent^
- BJC ;;203^History of COPD (Y/N)^History of Severe COPD^
- CBF ;;326^Current Pneumonia (Y/N)^Current Pneumonia^
- BAB ;;212^Ascites (Y/N)^Ascites^
- DBC ;;423^Preop Congestive Heart Failure^Preop Congestive Heart Failure^
- CBH ;;328^Acute Renal Failure (Y/N)^Acute Renal Failure^
- BAA ;;211^Currently on Dialysis (Y/N)^Currently on Dialysis^
- CCB ;;332^Impaired Sensorium (Y/N)^Impaired Sensorium^
- CCC ;;333^Coma (Y/N)^Coma^
- DJJ ;;400^Hemiplegia (Y/N)^Hemiplegia^
- EBA ;;521^Prior Surgical Repair/Carotid Artery Obstruction^Prior Surgical Repair/Carotid Artery Obstruction^
- EBB ;;522^History of CVD Events^History of CVD Events^
- DJA ;;401^Tumor Involving CNS (Y/N)^Tumor Involving CNS^
- CCH ;;338^Disseminated Cancer (Y/N)^Disseminated Cancer^
- BAH ;;218^Open Wound or Skin Infection (Y/N)^Open Wound or Infection^
- CCI ;;339^Steroid Use for Chronic Condition (Y/N)^Steroid Use for Chronic Cond.^
- BAE ;;215^Weight Loss > 10% of Usual Body Weight (Y/N)^Weight Loss > 10%^
- BAF ;;216^Bleeding (Coagulation) Disorder^Bleeding (Coagulation) Disorde^
- FDB ;;642^Bleeding Risk Due To Medication^Bleeding Risk Due To Medication^
- BAG ;;217^Transfusion Greater than 4 RBC Units this Admission (Y/N)^Transfusion > 4 RBC Units^
- CCHPA ;;338.1^Chemotherapy Within Last 30 Days (Y/N)^Chemotherapy W/I 30 Days^
- CCHPC ;;338.3^Chemo for Malig in Last 90 Days^Chemo for Malig in Last 90 Days^
- CCHPB ;;338.2^Radiotherapy Within Last 90 Days (Y/N)^Radiotherapy W/I 90 Days^
- BAHPA ;;218.1^Preoperative Sepsis (Y/N)^Preoperative Sepsis^
- BFI ;;269^Pregnancy Status^Pregnancy Status^
- FGC ;;673^History of Cancer^History of Cancer^
- FGD ;;674^History of Radiation Therapy^History of Radiation Theraapy^
- FGG ;;677^Num of Prior Surg in Same Operative field^Num of Prior Surg in Same Operative field^
- DAC ;;413^Transfer Status^Transfer Status^
- PJAA ;;.011^Hospital Admission Status
- BDG ;;247^Length of Postoperative Hospital Stay
- CDB ;;342^Date/Time of Death^Date/Time of Death
- DAG ;;417^Patient's Race
- DAH ;;418^Hospital Admission Date
- DAI ;;419^Hospital Discharge Date
- DBJ ;;420^Admitted/Transferred to Surgical Service
- DBA ;;421^Discharged/Transferred to Chronic Care
- DEB ;;452^Observation Admission Date/Time
- DEC ;;453^Observation Discharge Date/Time
- DED ;;454^Observation Treating Specialty
- BCGPA ;;237.1^Preoperative Sleep Apnea
- FFG ;;667^Sleep Apnea-Compliance
- FFB ;;662^Impaired Cognitive Function in Past 3 Months
- FHE ;;685^DC/REL Destination
