source:
WorldVistAEHR/trunk/r/CLINICAL_CASE_REGISTRIES-ROR/RORP004.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 383 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | RORP004 ;BP/KM - PATCH ROR*1.5*4 PRE-INSTALLATION ROUTINE ; 8/9/07 7:30am |
2 | ;;1.5;CLINICAL CASE REGISTRIES;**4**;Feb 17, 2006;Build 3 | |
3 | ; | |
4 | Q | |
5 | PRE ;Preinstall tag | |
6 | N PDATE,%H | |
7 | W !,"Creating a backup copy of file 798.2 in ^XTMP" | |
8 | S %H=+$H+180 D YMD^%DTC S PDATE=X K X | |
9 | S ^XTMP("R0R",$J,0)=PDATE_U_DT_U_"Backup of file 798.2" | |
10 | M ^XTMP("ROR",$J,798.2)=^ROR(798.2) | |
11 | W !,"Backup complete" | |
12 | Q |
Note:
See TracBrowser
for help on using the repository browser.