Return to DITMGM2.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITMGM2.m, revision 1.1

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