Return to DITMGMRI.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITMGMRI.m, revision 1.1.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