Return to DITMGM1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITMGM1.m, revision 1.1

1.1     ! snw         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