XU8P554.m

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

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

 Q

 ;

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.")

 Q

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

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

 +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