MCPREDUP.m

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

MCPREDUP  ;WISC/JAH-MEDICINE PACKAGE PRE INIT TO RUN DUPLICATE CLEAN UP ;5/2/96  13:54

 +1       ;;2.3;Medicine;;09/13/1996

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

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

 +4        NEW MCCLEAN

 +5        WRITE @IOF

 +6        SET DIR(0)="Y"

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

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

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

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

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

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

 +13       SET DIR("A",8)="be ready to respond to prompts."

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

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

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

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

 +18       SET DIR("A",13)="the programmers prompt."

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

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

 +21       SET DIR("A")="Would you like to check them"

 +22       SET DIR("B")="Y"

 +23       DO ^DIR

 +24       SET MCCLEAN=Y

           KILL DIR,Y

 +25       IF MCCLEAN=1

               DO ^MCDUPE

 +26       KILL MCCLEAN

 +27       QUIT