AVAP7.m

AVAP7 ;IHS/ORDC/LJF - PATCH 7 DATA DUPLICATION; [ 09/20/95  11:43 AM ]

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

 ;

 W !!?20,"AVA PATCH 7 DRIVER"

 W !! K DIR S DIR(0)="Y",DIR("B")="NO"

 S DIR("A")="Are you READY to proceed with this update"

 D ^DIR I Y'=1 K DIR,Y Q

 ;

 W !!,"We recommend capturing the output of this patch using a"

 W !,"slaved printer.  This is a cumulative patch.",!

 K DIR S DIR(0)="E",DIR("A")="Press ENTER when ready to proceed"

 D ^DIR

 ;

 ; -- run patch #2 update

 W !!,"Patch #2:",!

 D ^AVAP2

 ;

 ; -- run patch #3 update

 W !!,"Patch #3:",!

 D LOOP^AVAP3

 ;

 ; -- run patch #4 update

 W !!,"Patches #4 - #6:",!

 D ^AVAPINIT

 D CLASS^AVAP4

 ;

 ; -- patch 7 update: remove security from file 200 read access

 S ^DIC(200,0,"RD")=""

 ;

EXIT ;

 W !!,"PATCH #7 COMPLETE.",!

 Q

AVAP7     ;IHS/ORDC/LJF - PATCH 7 DATA DUPLICATION; [ 09/20/95  11:43 AM ]

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

 +2       ;

 +3        WRITE !!?20,"AVA PATCH 7 DRIVER"

 +4        WRITE !!

           KILL DIR

           SET DIR(0)="Y"

           SET DIR("B")="NO"

 +5        SET DIR("A")="Are you READY to proceed with this update"

 +6        DO ^DIR

           IF Y'=1

               KILL DIR,Y

               QUIT 

 +7       ;

 +8        WRITE !!,"We recommend capturing the output of this patch using a"

 +9        WRITE !,"slaved printer.  This is a cumulative patch.",!

 +10       KILL DIR

           SET DIR(0)="E"

           SET DIR("A")="Press ENTER when ready to proceed"

 +11       DO ^DIR

 +12      ;

 +13      ; -- run patch #2 update

 +14       WRITE !!,"Patch #2:",!

 +15       DO ^AVAP2

 +16      ;

 +17      ; -- run patch #3 update

 +18       WRITE !!,"Patch #3:",!

 +19       DO LOOP^AVAP3

 +20      ;

 +21      ; -- run patch #4 update

 +22       WRITE !!,"Patches #4 - #6:",!

 +23       DO ^AVAPINIT

 +24       DO CLASS^AVAP4

 +25      ;

 +26      ; -- patch 7 update: remove security from file 200 read access

 +27       SET ^DIC(200,0,"RD")=""

 +28      ;

EXIT      ;

 +1        WRITE !!,"PATCH #7 COMPLETE.",!

 +2        QUIT