Changeset 636 for FOIAVistA/tag/r/SURGERY-SR/SROAUTL3.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/SROAUTL3.m
r628 r636 1 SROAUTL3 ;BIR/ADM - RISK ASSESSMENT UTILITY ;0 1/07/082 ;;3.0; Surgery ;**38,47,63,77,142,163 ,166**;24 Jun 93;Build 61 SROAUTL3 ;BIR/ADM - RISK ASSESSMENT UTILITY ;08/16/07 2 ;;3.0; Surgery ;**38,47,63,77,142,163**;24 Jun 93;Build 2 3 3 ; 4 4 ; Reference to ^DIC(45.3 supported by DBIA #218 … … 15 15 Q 16 16 CARD ; allow input of cardiac risk assessment preop information 17 N SRSDATE,SRNM,SRSOUT18 17 W @IOF,!,"Enter Cardiac Preoperative information",!!," 1. Clinical Information",!," 2. Cardiac Catheterization & Angiographic Data",!," 3. Operative Risk Summary Data",! 19 18 K DIR S DIR(0)="NO^1:3:0",DIR("?")="Enter the number of the selection to be edited." D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!'Y Q
Note:
See TracChangeset
for help on using the changeset viewer.