|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
383 bytes
|
| Line | |
|---|
| 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.
