source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DITMGMRI.m@ 1008

Last change on this file since 1008 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1DITMGMRI ;SFISC/EDE(OHPRD)-INITIALIZTION FOR ^DITMGMRG ;11/18/94 15:45
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5INIT ;
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 ;
25EXCLFL ; 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 ;
32EXCLPK ; 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 ;
39INCLPK ; 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 ;
46EXCSF ; 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 ;
50EXCSF2 ; RECURSION FOR SUBFILES WITHIN SUBFILES
51 S X=S
52 NEW F,S
53 S F=X
54 D EXCSF
55 Q
Note: See TracBrowser for help on using the repository browser.