XMXIP35.m

XMXIP35 ;ISC-SF/GMB-Closes ALL domains "RC-<??>.GC.VA.GOV" ;08/30/2005 14:57

 ;;8.0;MailMan;**35**;Jun 28, 2002;Build 1

 Q

 ;

EN ; Post install entry point for patch XM*8*35

 ; Change the value of the FLAGS field (#1) in the DOMAIN file (#4.2)

 ; to "C"lose for all domains of the form "RC-<something>.GC.VA.GOV".

 N DD,DO,DA,DIE,DR,XMI

 I $G(U)="" S U="^"

 S DIE="^DIC(4.2,",DR="1///C"

 S XMI="RC-"

 F  S XMI=$O(^DIC(4.2,"B",XMI)) Q:XMI=""!($E(XMI,1,3)'="RC-")  D

 . I $P(XMI,".",2,4)'="GC.VA.GOV" Q  ; Incorrect domain format

 . S DA=$O(^DIC(4.2,"B",XMI,0))

 . I $P(^DIC(4.2,DA,0),U,2)="C" Q  ; Domain is already closed

 . D ^DIE

 ;

 Q

XMXIP35   ;ISC-SF/GMB-Closes ALL domains "RC-<??>.GC.VA.GOV" ;08/30/2005 14:57

 +1       ;;8.0;MailMan;**35**;Jun 28, 2002;Build 1

 +2        QUIT 

 +3       ;

EN        ; Post install entry point for patch XM*8*35

 +1       ; Change the value of the FLAGS field (#1) in the DOMAIN file (#4.2)

 +2       ; to "C"lose for all domains of the form "RC-<something>.GC.VA.GOV".

 +3        NEW DD,DO,DA,DIE,DR,XMI

 +4        IF $GET(U)=""

               SET U="^"

 +5        SET DIE="^DIC(4.2,"

           SET DR="1///C"

 +6        SET XMI="RC-"

 +7        FOR 

               SET XMI=$ORDER(^DIC(4.2,"B",XMI))

               IF XMI=""!($EXTRACT(XMI,1,3)'="RC-")

                   QUIT 

               Begin DoDot:1

 +8       ; Incorrect domain format

                   IF $PIECE(XMI,".",2,4)'="GC.VA.GOV"

                       QUIT 

 +9                SET DA=$ORDER(^DIC(4.2,"B",XMI,0))

 +10      ; Domain is already closed

                   IF $PIECE(^DIC(4.2,DA,0),U,2)="C"

                       QUIT 

 +11               DO ^DIE

               End DoDot:1

 +12      ;

 +13       QUIT