Changeset 636 for FOIAVistA/tag/r/SURGERY-SR/SROAUTL1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/SURGERY-SR/SROAUTL1.m
r628 r636 1 SROAUTL1 ;BIR/ADM - RISK ASSESSMENT UTILITY ; 12/10/072 ;;3.0; Surgery ;**38,47,81,125,153,160 ,166**;24 Jun 93;Build 61 SROAUTL1 ;BIR/ADM - RISK ASSESSMENT UTILITY ;04/24/07 2 ;;3.0; Surgery ;**38,47,81,125,153,160**;24 Jun 93;Build 7 3 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 4 Q … … 15 15 CID ;;394^History of MI Within Past 6 Months (Y/N)^MI Within 6 Months^ 16 16 CIE ;;395^Angina within One Month Preceding Surgery (Y/N)^Angina Within 1 Month^ 17 CIH ;;398^Quadriplegia/Tetraplegia/Quadriparesis (Y/N)^Quadriplegia^ 18 CII ;;399^Paraplegia (Y/N)^Paraplegia^ 17 19 BCF ;;236^Patient's Height^Height^ 18 20 BCG ;;237^Patient's Weight^Weight^ 19 21 CDF ;;346^Diabetes^Diabetes Mellitus^ 20 22 BJB ;;202^Current Smoker within 1 Year prior to Surgery (Y/N)^Current SmokerW/I 1 Year^ 23 BJBPA ;;202.1^Pack/Years^Pack/Years^ 21 24 BDF ;;246^ETOH Greater than 2 Drinks/Day (Y/N)^ETOH > 2 Drinks/Day^ 22 25 CBE ;;325^Dyspnea^Dyspnea^ 23 26 BCH ;;238^DNR Status (Y/N)^DNR Status^ 27 BDJ ;;240^Functional Health Status Prior to Current Illness^Pre-Illness Functional Status^ 24 28 DIB ;;492^Functional Health Status at Evaluation for Surgery^Preop Functional Status 25 29 BJD ;;204^Ventilator Dependent Greater than 48 Hrs (Y/N)^Ventilator Dependent^ … … 59 63 DEC ;;453^Observation Discharge Date/Time 60 64 DED ;;454^Observation Treating Specialty 61 EAC ;;513^Surgery Consult Date62 EAF ;;516^Date Surgery Consult Requested
Note:
See TracChangeset
for help on using the changeset viewer.