source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DITMGM1.m@ 1710

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

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1DITMGM1 ;SFISC/EDE(OHPRD)-INTERACTIVE MERGE ;
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5START ;
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
Note: See TracBrowser for help on using the repository browser.