source: FOIAVistA/trunk/r/MEDICINE-MC/MCPREDUP.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1MCPREDUP ;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
Note: See TracBrowser for help on using the repository browser.