Return to DITMGMRI.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITMGMRI.m, revision 1.1

1.1     ! snw         1: DITMGMRI       ;SFISC/EDE(OHPRD)-INITIALIZTION FOR ^DITMGMRG ;11/18/94  15:45
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;
        !             5: INIT   ;
        !             6:        K DITMGMQF,DITMGMRG("QFLG")
        !             7:        S:$D(ZTQUEUED) DITMGMRG("NOTALK")=1
        !             8:        S:$D(ZTSK) DITMGMRG("NOTALK")=1 ; old Kernel
        !             9:        I '$D(DITMGMRG("FILE")) S DITMGMQF=20 Q
        !            10:        I 'DITMGMRG("FILE") S DITMGMQF=20 Q
        !            11:        I '$D(^DIC(DITMGMRG("FILE"),0,"GL")) S DITMGMQF=20 Q
        !            12:        S DITMGMFG=^("GL")
        !            13:        S DITMGMFL=DITMGMRG("FILE")
        !            14:        I '$D(DITMGMRG("FR"))!('$D(DITMGMRG("TO"))) S DITMGMQF=21 Q
        !            15:        I 'DITMGMRG("FR")!('DITMGMRG("TO"))!(DITMGMRG("FR")=DITMGMRG("TO")) S DITMGMQF=22 Q
        !            16:        I '$D(@(DITMGMFG_DITMGMRG("FR")_",0)")) S DITMGMQF=23 Q
        !            17:        I '$D(@(DITMGMFG_DITMGMRG("TO")_",0)")) S DITMGMQF=24 Q
        !            18:        S DITMGMF=DITMGMRG("FR")
        !            19:        S DITMGMT=DITMGMRG("TO")
        !            20:        I $D(DITMGMRG("EXCLUDE")) D EXCLFL
        !            21:        I $D(DITMGMRG("PACKAGE")),'DITMGMRG("PACKAGE") D EXCLPK
        !            22:        I $D(DITMGMRG("PACKAGE")),DITMGMRG("PACKAGE") D INCLPK
        !            23:        Q
        !            24:        ;
        !            25: EXCLFL ; EXCLUDE SUBFILES FOR EXCLUDED FILES
        !            26:        NEW F,S,X,V
        !            27:        S V="EXCLUDE"
        !            28:        F DITMGEFL=0:0 S DITMGEFL=$O(DITMGMRG("EXCLUDE",DITMGEFL)) Q:'DITMGEFL  S F=DITMGEFL D EXCSF
        !            29:        K DITMGEFL
        !            30:        Q
        !            31:        ;
        !            32: EXCLPK ; EXCLUDE FILES/SUBFILES FROM PACKAGES
        !            33:        NEW F,S,X,V
        !            34:        S V="EXCLUDE"
        !            35:        F DITMGEPK=0:0 S DITMGEPK=$O(^DIC(9.4,"AMRG",$S('$G(DITMGMRG("TOP FILE")):DITMGMRG("FILE"),1:DITMGMRG("TOP FILE")),DITMGEPK)) Q:'DITMGEPK  F F=0:0 S F=$O(^DIC(9.4,DITMGEPK,4,"B",F)) Q:'F  S DITMGMRG("EXCLUDE",F)="" D EXCSF
        !            36:        K DITMGEPK
        !            37:        Q
        !            38:        ;
        !            39: INCLPK ; INCLUDE FILES/SUBFILES FOR PACKAGE
        !            40:        NEW F,S,X,V
        !            41:        S V="PACKAGE"
        !            42:        S DITMGEPK=DITMGMRG("PACKAGE") F F=0:0 S F=$O(^DIC(9.4,DITMGEPK,4,"B",F)) Q:'F  S DITMGMRG("PACKAGE",F)="" D EXCSF
        !            43:        K DITMGEPK
        !            44:        Q
        !            45:        ;
        !            46: EXCSF  ; EXCLUDE/INCLUDE SUBFILES FOR ONE FILE/SUBFILE (CALLED RECURSIVELY)
        !            47:        F S=0:0 S S=$O(^DD(F,"SB",S)) Q:'S  S DITMGMRG(V,S)="" D EXCSF2
        !            48:        Q
        !            49:        ;
        !            50: EXCSF2 ; RECURSION FOR SUBFILES WITHIN SUBFILES
        !            51:        S X=S
        !            52:        NEW F,S
        !            53:        S F=X
        !            54:        D EXCSF
        !            55:        Q