Return to DITMGM2.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DITMGM2	;SFISC/EDE(OHPRD)-GENERAL RELINK/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: 	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