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

XU8P554.m

Go to the documentation of this file.

XU8P554 ;O-OIFO/GMB-Check field .07 in file 8989.3 ;3/9/2011

 ;;8.0;KERNEL;**554**;Jul 10, 1995;Build 4

POST ; Post-Init

 D BMES^XPDUTL("Beginning Post-Installation...")

 I "^^0^1^"'[(U_$P(^XTV(8989.3,1,0),U,7)_U) S $P(^(0),U,7)=""

 D BMES^XPDUTL("Finished Post-Installation.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P554   296     printed  Nov 22, 2024@17:18:18                                                                                                                                                                                                      Page 2

XU8P554   ;O-OIFO/GMB-Check field .07 in file 8989.3 ;3/9/2011

 +1       ;;8.0;KERNEL;**554**;Jul 10, 1995;Build 4

 +2        QUIT

 +3       ;

POST      ; Post-Init

 +1        DO BMES^XPDUTL("Beginning Post-Installation...")

 +2        IF "^^0^1^"'[(U_$PIECE(^XTV(8989.3,1,0),U,7)_U)

               SET $PIECE(^(0),U,7)=""

 +3        DO BMES^XPDUTL("Finished Post-Installation.")

 +4        QUIT