| 1 | DITMGM2 ;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 | ;
|
|---|
| 5 | START ;
|
|---|
| 6 | D INIT^DITMGM2B
|
|---|
| 7 | I $D(DITMGMQF) D EOJ Q
|
|---|
| 8 | D FILES
|
|---|
| 9 | D EOJ
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | FILES ; 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 | ;
|
|---|
| 17 | FILE ; 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 | ;
|
|---|
| 24 | ZTM ; ENTRY POINT FOR TASKMAN
|
|---|
| 25 | S DITMGM2("NOTALK")=1
|
|---|
| 26 | D SEARCH^DITMGM2B
|
|---|
| 27 | D EOJ
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | EOJ ;
|
|---|
| 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
|
|---|
