Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
630 bytes
|
Rev | Line | |
---|
[613] | 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.