Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RORP004

RORP004.m

Go to the documentation of this file.
  1. RORP004 ;BP/KM - PATCH ROR*1.5*4 PRE-INSTALLATION ROUTINE ; 8/9/07 7:30am
  1. ;;1.5;CLINICAL CASE REGISTRIES;**4**;Feb 17, 2006;Build 3
  1. ;
  1. Q
  1. PRE ;Preinstall tag
  1. N PDATE,%H
  1. W !,"Creating a backup copy of file 798.2 in ^XTMP"
  1. S %H=+$H+180 D YMD^%DTC S PDATE=X K X
  1. S ^XTMP("R0R",$J,0)=PDATE_U_DT_U_"Backup of file 798.2"
  1. M ^XTMP("ROR",$J,798.2)=^ROR(798.2)
  1. W !,"Backup complete"
  1. Q