Last change
on this file since 975 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
630 bytes
|
Line | |
---|
1 | XMXIP35 ;ISC-SF/GMB-Closes ALL domains "RC-<??>.GC.VA.GOV" ;08/30/2005 14:57
|
---|
2 | ;;8.0;MailMan;**35**;Jun 28, 2002
|
---|
3 | Q
|
---|
4 | ;
|
---|
5 | EN ; Post install entry point for patch XM*8*35
|
---|
6 | ; Change the value of the FLAGS field (#1) in the DOMAIN file (#4.2)
|
---|
7 | ; to "C"lose for all domains of the form "RC-<something>.GC.VA.GOV".
|
---|
8 | N DD,DO,DA,DIE,DR,XMI
|
---|
9 | I $G(U)="" S U="^"
|
---|
10 | S DIE="^DIC(4.2,",DR="1///C"
|
---|
11 | S XMI="RC-"
|
---|
12 | F S XMI=$O(^DIC(4.2,"B",XMI)) Q:XMI=""!($E(XMI,1,3)'="RC-") D
|
---|
13 | . I $P(XMI,".",2,4)'="GC.VA.GOV" Q ; Incorrect domain format
|
---|
14 | . S DA=$O(^DIC(4.2,"B",XMI,0))
|
---|
15 | . I $P(^DIC(4.2,DA,0),U,2)="C" Q ; Domain is already closed
|
---|
16 | . D ^DIE
|
---|
17 | ;
|
---|
18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.