source: WorldVistAEHR/trunk/r/CLINICAL_CASE_REGISTRIES-ROR/RORP004.m@ 1073

Last change on this file since 1073 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 383 bytes
RevLine 
[613]1RORP004 ;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
5PRE ;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.