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

MCPREDUP.m

Go to the documentation of this file. 
MCPREDUP ;WISC/JAH-MEDICINE PACKAGE PRE INIT TO RUN DUPLICATE CLEAN UP ;5/2/96  13:54

 ;;2.3;Medicine;;09/13/1996

 ;this routine checks to see if the user wants to run the duplicate

 ;clean up routines (MCDUP*) and displays some help.

 N MCCLEAN

 W @IOF

 S DIR(0)="Y"

 S DIR("A",1)="There may be duplicate entries in the Medicine Package's static files. "

 S DIR("A",2)="Answer 'YES' to check for duplicates and clean duplicates up."

 S DIR("A",4)="    This process will check the medicine static files for"

 S DIR("A",5)="duplicate entries.  If duplicates exist you will be asked"

 S DIR("A",6)="if you want to clean them up.  It is recommended that you"

 S DIR("A",7)="answer YES and run this section of the post-inits.  Please"

 S DIR("A",8)="be ready to respond to prompts."

 S DIR("A",9)="    If you answer NO the installation WILL complete."

 S DIR("A",10)="However, duplicate entries may remain in the static files."

 S DIR("A",11)="You may run the duplicates clean up routines at any time"

 S DIR("A",12)="by running the routine MCPREDUP.  Simply type D ^MCPREDUP at"

 S DIR("A",13)="the programmers prompt."

 S DIR("A",14)="    This process may take a considerable amount of time,"

 S DIR("A",15)="depending especially on the extent of duplicates at your site."

 S DIR("A")="Would you like to check them"

 S DIR("B")="Y"

 D ^DIR

 S MCCLEAN=Y K DIR,Y

 D:MCCLEAN=1 ^MCDUPE

 K MCCLEAN

 Q