Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AVAP7

AVAP7.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. W !!?20,"AVA PATCH 7 DRIVER"
  1. W !! K DIR S DIR(0)="Y",DIR("B")="NO"
  1. S DIR("A")="Are you READY to proceed with this update"
  1. D ^DIR I Y'=1 K DIR,Y Q
  1. ;
  1. W !!,"We recommend capturing the output of this patch using a"
  1. W !,"slaved printer. This is a cumulative patch.",!
  1. K DIR S DIR(0)="E",DIR("A")="Press ENTER when ready to proceed"
  1. D ^DIR
  1. ;
  1. ; -- run patch #2 update
  1. W !!,"Patch #2:",!
  1. D ^AVAP2
  1. ;
  1. ; -- run patch #3 update
  1. W !!,"Patch #3:",!
  1. D LOOP^AVAP3
  1. ;
  1. ; -- run patch #4 update
  1. W !!,"Patches #4 - #6:",!
  1. D ^AVAPINIT
  1. D CLASS^AVAP4
  1. ;
  1. ; -- patch 7 update: remove security from file 200 read access
  1. S ^DIC(200,0,"RD")=""
  1. ;
  1. EXIT ;
  1. W !!,"PATCH #7 COMPLETE.",!
  1. Q