- 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