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

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DITMGM2 ;SFISC/EDE(OHPRD)-GENERAL RELINK/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 D INIT^DITMGM2B
7 I $D(DITMGMQF) D EOJ Q
8 D FILES
9 D EOJ
10 Q
11 ;
12FILES ; PROCESS ALL FILES/SUBFILES
13 W:'$D(DITMGM2("NOTALK")) !!,"Merging entries",!
14 F DITMGMFL=0:0 S DITMGMFL=$O(^UTILITY("DITMGMRG",$J,DITMGMFL)) Q:DITMGMFL="" D FILE
15 Q
16 ;
17FILE ; PROCESS ONE FILE/SUBFILE
18 K DITMGMGM
19 I $D(^DD(DITMGMFL,0,"UP")) S DITMGMMU=1 D ^DITMU2(DITMGMFL,.DITMGMGM,1) S DITMGMG=$P(DITMGMGM,"DA(",1),DITMGMGM=$P(DITMGMGM,"DA,",1) I 1
20 E S DITMGMMU=0,DITMGMG=^DIC(DITMGMFL,0,"GL")
21 F DITMGMFD=0:0 S DITMGMFD=$O(^UTILITY("DITMGMRG",$J,DITMGMFL,DITMGMFD)) Q:DITMGMFD'=+DITMGMFD S DITMGMFS=DITMGMF,DITMGMTS=DITMGMT D FIELD^DITMGM2A S DITMGMF=DITMGMFS,DITMGMT=DITMGMTS
22 Q
23 ;
24ZTM ; ENTRY POINT FOR TASKMAN
25 S DITMGM2("NOTALK")=1
26 D SEARCH^DITMGM2B
27 D EOJ
28 Q
29 ;
30EOJ ;
31 K %K,D1,D2,DA,DIC,DI,DIPGM,DQ,I,V
32 K DITMGDA,DITMGMDI,DITMGMDN,DITMGMEC,DITMGMFD,DITMGMFL,DITMGMFG,DITMGMFS,DITMGMG,DITMGMGG,DITMGMI,DITMGML,DITMGMGM,DITMGMN,DITMGMNO,DITMGMPC,DITMGMTS,DITMGMTY,DITMGMTZ,DITMGMMU,DITMGMPF,DITMGMV,DITMGMX,DITMGMXR
33 I $D(ZTQUEUED) S ZTREQ="@"
34 E K:$D(ZTSK) ^%ZTSK(ZTSK),ZTSK ; old Kernel
35 Q
Note: See TracBrowser for help on using the repository browser.