- RORP004 ;BP/KM - PATCH ROR*1.5*4 PRE-INSTALLATION ROUTINE ; 8/9/07 7:30am
- ;;1.5;CLINICAL CASE REGISTRIES;**4**;Feb 17, 2006;Build 3
- ;
- Q
- PRE ;Preinstall tag
- N PDATE,%H
- W !,"Creating a backup copy of file 798.2 in ^XTMP"
- S %H=+$H+180 D YMD^%DTC S PDATE=X K X
- S ^XTMP("R0R",$J,0)=PDATE_U_DT_U_"Backup of file 798.2"
- M ^XTMP("ROR",$J,798.2)=^ROR(798.2)
- W !,"Backup complete"
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORP004 395 printed Feb 18, 2025@23:08:39 Page 2
- 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
- +2 ;
- +3 QUIT
- PRE ;Preinstall tag
- +1 NEW PDATE,%H
- +2 WRITE !,"Creating a backup copy of file 798.2 in ^XTMP"
- +3 SET %H=+$HOROLOG+180
- DO YMD^%DTC
- SET PDATE=X
- KILL X
- +4 SET ^XTMP("R0R",$JOB,0)=PDATE_U_DT_U_"Backup of file 798.2"
- +5 MERGE ^XTMP("ROR",$JOB,798.2)=^ROR(798.2)
- +6 WRITE !,"Backup complete"
- +7 QUIT