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

TIUPR96.m

Go to the documentation of this file.

TIUPR96 ; SLC/JER - Pre-install for TIU*1*96 ;26-APR-2000 14:37:08

 ;;1.0;TEXT INTEGRATION UTILITIES;**96**;Jun 20, 1997

MAIN ; -- Control Unit

 I +$G(XPDQUES("PRE001"))'>0 D  Q

 . S XPDQUIT=2

 . D BMES^XPDUTL("** ABORTING INSTALLATION...HURRY BACK! **")

 D BMES^XPDUTL("** PROCEEDING WITH REMOVAL OF PN v2.5 & DS v1.0 **")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPR96   335     printed  Dec 13, 2024@02:43:33                                                                                                                                                                                                      Page 2

TIUPR96   ; SLC/JER - Pre-install for TIU*1*96 ;26-APR-2000 14:37:08

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**96**;Jun 20, 1997

MAIN      ; -- Control Unit

 +1        IF +$GET(XPDQUES("PRE001"))'>0

               Begin DoDot:1

 +2                SET XPDQUIT=2

 +3                DO BMES^XPDUTL("** ABORTING INSTALLATION...HURRY BACK! **")

               End DoDot:1

               QUIT

 +4        DO BMES^XPDUTL("** PROCEEDING WITH REMOVAL OF PN v2.5 & DS v1.0 **")

 +5        QUIT