| [613] | 1 | DITMGMRI ;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 | ;
|
|---|
| 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
|
|---|
