Return to DITMGMRI.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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