Return to DITMGM1.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DITMGM1	;SFISC/EDE(OHPRD)-INTERACTIVE MERGE ;
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	;
    5: START	;
    6: 	K DITMGMRG
    7: 	S DITMGMRG("GO")=0
    8: 	S DIC=1,DIC(0)="AEMQ" D ^DIC K DIC
    9: 	Q:Y<0
   10: 	S DITMGMRG("FILE")=+Y
   11: 	S DIC=DITMGMRG("FILE"),DIC(0)="AEMQ",DIC("A")="From entry: " D ^DIC K DIC
   12: 	Q:Y<0
   13: 	S DITMGMRG("FR")=+Y
   14: 	S DIC=DITMGMRG("FILE"),DIC(0)="AEMQ",DIC("A")="To entry: " D ^DIC K DIC
   15: 	Q:Y<0
   16: 	S DITMGMRG("TO")=+Y
   17: 	I DITMGMRG("FR")=DITMGMRG("TO") W !!,"From entry same as to entry!",!,$C(7) Q
   18: 	S DIC=1,DIC(0)="AEMQ",DIC("A")="Enter file to exclude from merge: " F  D ^DIC Q:Y<1  S DITMGMRG("EXCLUDE",+Y)=""
   19: 	K DIC
   20: 	S DIR(0)="Y",DIR("A")="Exclude files in affected packages",DIR("B")="NO"
   21: 	S DIR("?",1)="This routine normally relinks/merges all files.  Do you want to exclude"
   22: 	S DIR("?")="files that are part of a package that has its own merge routine?"
   23: 	D ^DIR K DIR
   24: 	Q:$D(DIRUT)
   25: 	I Y S DITMGMRG("PACKAGE")="",DITMGMRG("GO")=1 Q
   26: 	S DIR(0)="Y",DIR("A")="Merge only files in a specific package?",DIR("B")="NO"
   27: 	S DIR("?",1)="If you say NO you will merge all files pointing to the primary file."
   28: 	S DIR("?",2)="If you say YES you will be asked for a package file entry and only"
   29: 	S DIR("?")="merge the files in that package that point to the primary file."
   30: 	D ^DIR K DIR
   31: 	Q:$D(DIRUT)
   32: 	I 'Y S DITMGMRG("GO")=1 Q
   33: 	S DIC=9.4,DIC(0)="AEMQ" D ^DIC K DIC
   34: 	Q:Y<0
   35: 	S DITMGMRG("PACKAGE")=+Y
   36: 	S DITMGMRG("GO")=1
   37: 	Q