AVAP2.m

AVAP2 ; DSD/GTH - AVA 93.2 PATCH 2, FILE SECURITY ; [ 10/21/93  3:34 PM ]

 ;;93.2;VA SUPPORT FILES;**2**;JUL 01, 1993;Build 12

 ;

 W !!,"Resetting file protection for files 5 (STATE) and 16 (PERSON)"

 W !,"to pre-d93.2 values."

 D RPI

 E  W !,"LOCK UNAVAILABLE.  NOTIFY PROGRAMMER." Q

 W !!,"DONE."

 Q

 ;

RPI ;EP - Non-Interactive entry point for Remote Patch Installation.

 ;

 LOCK +^DIC(5,0,"RD"):60 E  G ABORT

 S ^DIC(5,0,"RD")="" LOCK -^DIC(5,0,"RD")

 ;

 LOCK +^DIC(16,0,"LAYGO"):60 E  G ABORT

 S ^DIC(16,0,"LAYGO")="#" LOCK -^DIC(16,0,"LAYGO")

 ;

 LOCK +^DIC(16,0,"WR"):60 E  G ABORT

 S ^DIC(16,0,"WR")="#" LOCK -^DIC(16,0,"WR")

 ;

 Q

 ;

 ;

ABORT D @^%ZOSF("ERRTN") I 0

 Q

AVAP2     ; DSD/GTH - AVA 93.2 PATCH 2, FILE SECURITY ; [ 10/21/93  3:34 PM ]

 +1       ;;93.2;VA SUPPORT FILES;**2**;JUL 01, 1993;Build 12

 +2       ;

 +3        WRITE !!,"Resetting file protection for files 5 (STATE) and 16 (PERSON)"

 +4        WRITE !,"to pre-d93.2 values."

 +5        DO RPI

 +6       IF '$TEST

               WRITE !,"LOCK UNAVAILABLE.  NOTIFY PROGRAMMER."

               QUIT 

 +7        WRITE !!,"DONE."

 +8        QUIT 

 +9       ;

RPI       ;EP - Non-Interactive entry point for Remote Patch Installation.

 +1       ;

 +2        LOCK +^DIC(5,0,"RD"):60

          IF '$TEST

               GOTO ABORT

 +3        SET ^DIC(5,0,"RD")=""

           LOCK -^DIC(5,0,"RD")

 +4       ;

 +5        LOCK +^DIC(16,0,"LAYGO"):60

          IF '$TEST

               GOTO ABORT

 +6        SET ^DIC(16,0,"LAYGO")="#"

           LOCK -^DIC(16,0,"LAYGO")

 +7       ;

 +8        LOCK +^DIC(16,0,"WR"):60

          IF '$TEST

               GOTO ABORT

 +9        SET ^DIC(16,0,"WR")="#"

           LOCK -^DIC(16,0,"WR")

 +10      ;

 +11       QUIT 

 +12      ;

 +13      ;

ABORT      DO @^%ZOSF("ERRTN")

           IF 0

 +1        QUIT