| 1 | MCPREDUP ;WISC/JAH-MEDICINE PACKAGE PRE INIT TO RUN DUPLICATE CLEAN UP ;5/2/96 13:54
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | ;this routine checks to see if the user wants to run the duplicate
|
|---|
| 4 | ;clean up routines (MCDUP*) and displays some help.
|
|---|
| 5 | N MCCLEAN
|
|---|
| 6 | W @IOF
|
|---|
| 7 | S DIR(0)="Y"
|
|---|
| 8 | S DIR("A",1)="There may be duplicate entries in the Medicine Package's static files. "
|
|---|
| 9 | S DIR("A",2)="Answer 'YES' to check for duplicates and clean duplicates up."
|
|---|
| 10 | S DIR("A",4)=" This process will check the medicine static files for"
|
|---|
| 11 | S DIR("A",5)="duplicate entries. If duplicates exist you will be asked"
|
|---|
| 12 | S DIR("A",6)="if you want to clean them up. It is recommended that you"
|
|---|
| 13 | S DIR("A",7)="answer YES and run this section of the post-inits. Please"
|
|---|
| 14 | S DIR("A",8)="be ready to respond to prompts."
|
|---|
| 15 | S DIR("A",9)=" If you answer NO the installation WILL complete."
|
|---|
| 16 | S DIR("A",10)="However, duplicate entries may remain in the static files."
|
|---|
| 17 | S DIR("A",11)="You may run the duplicates clean up routines at any time"
|
|---|
| 18 | S DIR("A",12)="by running the routine MCPREDUP. Simply type D ^MCPREDUP at"
|
|---|
| 19 | S DIR("A",13)="the programmers prompt."
|
|---|
| 20 | S DIR("A",14)=" This process may take a considerable amount of time,"
|
|---|
| 21 | S DIR("A",15)="depending especially on the extent of duplicates at your site."
|
|---|
| 22 | S DIR("A")="Would you like to check them"
|
|---|
| 23 | S DIR("B")="Y"
|
|---|
| 24 | D ^DIR
|
|---|
| 25 | S MCCLEAN=Y K DIR,Y
|
|---|
| 26 | D:MCCLEAN=1 ^MCDUPE
|
|---|
| 27 | K MCCLEAN
|
|---|
| 28 | Q
|
|---|
