PRCNP14E.m

PRCNP14E ;ALB/RLC - PATCH PRCN*1.0*14 ENVIRONMENTAL CHECK ;[2/10/2004 11:50]

 ;;1.0;Equipment/Turn-In Request;**14,15**;Sep 13, 1996

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

CHECK ; Check for Equipment/Turn-In Request Shutdown

 N X S X="PRCLOP4" X ^%ZOSF("TEST") I $T,$$SYS^PRCLOP4>0 D  S XPDQUIT=1 Q

 . N PRCT S PRCT(1)="Equipment/Turn-In Request (PRCN) has been shut down, so no"

 . S PRCT(2)="further PRCN patches should be installed." D MES^XPDUTL(.PRCT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCNP14E   501     printed  Oct 16, 2024@17:55:14                                                                                                                                                                                                     Page 2

PRCNP14E  ;ALB/RLC - PATCH PRCN*1.0*14 ENVIRONMENTAL CHECK ;[2/10/2004 11:50]

 +1       ;;1.0;Equipment/Turn-In Request;**14,15**;Sep 13, 1996

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

CHECK     ; Check for Equipment/Turn-In Request Shutdown

 +1        NEW X

           SET X="PRCLOP4"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               IF $$SYS^PRCLOP4>0

                   Begin DoDot:1

 +2                    NEW PRCT

                       SET PRCT(1)="Equipment/Turn-In Request (PRCN) has been shut down, so no"

 +3                    SET PRCT(2)="further PRCN patches should be installed."

                       DO MES^XPDUTL(.PRCT)

                   End DoDot:1

                   SET XPDQUIT=1

                   QUIT 

 +4        QUIT