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

XU8P292.m

Go to the documentation of this file.

XU8P292 ;ALB/BRM,OIFO/SO - XU*8*292 PRE-INSTALL TO DELETE 5.12 & 5.13 ;5:39 AM  24 Jun 2003

 ;;8.0;KERNEL;**292**;Jul 10, 1995

PRE ; pre-install - kill existing 5.12 and 5.13 files

 N DIU

 S DIU="^XIP(5.12,",DIU(0)="D" D EN^DIU2  ;IA #10014

 S DIU="^XIP(5.13,",DIU(0)="D" D EN^DIU2  ;IA #10014

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P292   312     printed  Apr 09, 2024@21:08:58                                                                                                                                                                                                      Page 2

XU8P292   ;ALB/BRM,OIFO/SO - XU*8*292 PRE-INSTALL TO DELETE 5.12 & 5.13 ;5:39 AM  24 Jun 2003

 +1       ;;8.0;KERNEL;**292**;Jul 10, 1995

 +2       ;

PRE       ; pre-install - kill existing 5.12 and 5.13 files

 +1       ;

 +2        NEW DIU

 +3       ;IA #10014

           SET DIU="^XIP(5.12,"

           SET DIU(0)="D"

           DO EN^DIU2

 +4       ;IA #10014

           SET DIU="^XIP(5.13,"

           SET DIU(0)="D"

           DO EN^DIU2

 +5        QUIT