ASDP5E.m

ASDP5E ; IHS/ANMC/LJF - PATCH 5 CALLS; [ 06/22/2000  3:26 PM ]

 ;5.0;IHS SCHEDULING;**5**;MAR 25, 1999

 ;

ENV ;EP; environment check called by patch 5 kids build

 I $T(VCN^AUPNVSIT)="" D  Q

 . S XPDQUIT=2        ;abort install; save global

 . W !!,"AUPN patch #4 not installed; required for MAS patch 5.",!

 W !!,"ENVIRONMENT CHECK OKAY.",!

 Q

ASDP5E    ; IHS/ANMC/LJF - PATCH 5 CALLS; [ 06/22/2000  3:26 PM ]

 +1       ;5.0;IHS SCHEDULING;**5**;MAR 25, 1999

 +2       ;

ENV       ;EP; environment check called by patch 5 kids build

 +1        IF $TEXT(VCN^AUPNVSIT)=""

               Begin DoDot:1

 +2       ;abort install; save global

                   SET XPDQUIT=2

 +3                WRITE !!,"AUPN patch #4 not installed; required for MAS patch 5.",!

               End DoDot:1

               QUIT 

 +4        WRITE !!,"ENVIRONMENT CHECK OKAY.",!

 +5        QUIT