XMCE.m

XMCE ;ISC-SF/GMB-Edit Scripts ;04/17/2002  08:39

 ;;8.0;MailMan;;Jun 28, 2002

 ; Was (WASH ISC)/THM

 ;

 ; Entry points used by MailMan options (not covered by DBIA):

 ; VAL     XMEDIT-DOMAIN-VALIDATION#     (was VAL^XMC2)

 ; OUT     XMSCRIPTOUT                   (was OUT^XMC2)

 ; EDIT42  XMSCRIPTEDIT                  (was EDIT^XMC11)

 ; EDIT46  XMSUBEDIT                     (was EDITSC^XMC11)

 Q

OUT ; Toggle script out of service

 N XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y

 S XMABORT=0

 D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT

 S DA=XMINST

 S DR="1"         ; Flags

 S DR=DR_";4"     ; Scripts

 S DR(2,4.21)=1.5 ; Only the 'out of order' field in the Script multiple

 S DIE="^DIC(4.2,"

 D ^DIE

 Q:'$$BMSGCT^XMXUTIL(.5,XMINST+1000)  ; Quit if no msgs queued.

 D CHKTSK^XMCXU(XMINST,1,.XMABORT) Q:XMABORT

 D ASKSCR^XMCXU(XMINST,XMSITE,.XMB,.XMABORT)

 D QUEUE^XMCX(XMINST,XMSITE,.XMB)

 Q

VAL ; Edit domain validation number

 N XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y

 S XMABORT=0

 D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT

 S DIE=4.2,DA=XMINST,DR="1.6"

 D ^DIE

 Q

EDIT42 ; Edit fields in file 4.2, DOMAIN

 N XMINST,XMSITE,XMTSK,XMABORT,DA,DR,DIE,X,Y

 S XMABORT=0

 D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT

 S DIE=4.2,DA=XMINST,DR="17;1:4.2;6.2:6.9",DR(2,4.21)=".01;1:99"

 D ^DIE

 S XMTSK=$P($G(^XMBS(4.2999,DA,3)),U,7)

 S DIE=4.2999,DR=25

 D ^DIE

 Q:'XMTSK

 Q:'$P($G(^XMBS(4.2999,DA,3)),U,7)

 D KILLTSK^XMKPR(DA,XMTSK)

 Q

EDIT46 ; Edit TRANSMISSION SCRIPT name and text in file 4.6

 N DIC,DLAYGO,X,Y

 S (DLAYGO,DIC)=4.6,DIC(0)="AEQML"

 D ^DIC Q:Y<0

 N DIE,DR,DA

 S DA=+Y,DIE=4.6,DR=".01;1"

 D ^DIE

 Q

XMCE      ;ISC-SF/GMB-Edit Scripts ;04/17/2002  08:39

 +1       ;;8.0;MailMan;;Jun 28, 2002

 +2       ; Was (WASH ISC)/THM

 +3       ;

 +4       ; Entry points used by MailMan options (not covered by DBIA):

 +5       ; VAL     XMEDIT-DOMAIN-VALIDATION#     (was VAL^XMC2)

 +6       ; OUT     XMSCRIPTOUT                   (was OUT^XMC2)

 +7       ; EDIT42  XMSCRIPTEDIT                  (was EDIT^XMC11)

 +8       ; EDIT46  XMSUBEDIT                     (was EDITSC^XMC11)

 +9        QUIT 

OUT       ; Toggle script out of service

 +1        NEW XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y

 +2        SET XMABORT=0

 +3        DO ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT)

           IF XMABORT

               QUIT 

 +4        SET DA=XMINST

 +5       ; Flags

           SET DR="1"

 +6       ; Scripts

           SET DR=DR_";4"

 +7       ; Only the 'out of order' field in the Script multiple

           SET DR(2,4.21)=1.5

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

 +9        DO ^DIE

 +10      ; Quit if no msgs queued.

           IF '$$BMSGCT^XMXUTIL(.5,XMINST+1000)

               QUIT 

 +11       DO CHKTSK^XMCXU(XMINST,1,.XMABORT)

           IF XMABORT

               QUIT 

 +12       DO ASKSCR^XMCXU(XMINST,XMSITE,.XMB,.XMABORT)

 +13       DO QUEUE^XMCX(XMINST,XMSITE,.XMB)

 +14       QUIT 

VAL       ; Edit domain validation number

 +1        NEW XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y

 +2        SET XMABORT=0

 +3        DO ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT)

           IF XMABORT

               QUIT 

 +4        SET DIE=4.2

           SET DA=XMINST

           SET DR="1.6"

 +5        DO ^DIE

 +6        QUIT 

EDIT42    ; Edit fields in file 4.2, DOMAIN

 +1        NEW XMINST,XMSITE,XMTSK,XMABORT,DA,DR,DIE,X,Y

 +2        SET XMABORT=0

 +3        DO ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT)

           IF XMABORT

               QUIT 

 +4        SET DIE=4.2

           SET DA=XMINST

           SET DR="17;1:4.2;6.2:6.9"

           SET DR(2,4.21)=".01;1:99"

 +5        DO ^DIE

 +6        SET XMTSK=$PIECE($GET(^XMBS(4.2999,DA,3)),U,7)

 +7        SET DIE=4.2999

           SET DR=25

 +8        DO ^DIE

 +9        IF 'XMTSK

               QUIT 

 +10       IF '$PIECE($GET(^XMBS(4.2999,DA,3)),U,7)

               QUIT 

 +11       DO KILLTSK^XMKPR(DA,XMTSK)

 +12       QUIT 

EDIT46    ; Edit TRANSMISSION SCRIPT name and text in file 4.6

 +1        NEW DIC,DLAYGO,X,Y

 +2        SET (DLAYGO,DIC)=4.6

           SET DIC(0)="AEQML"

 +3        DO ^DIC

           IF Y<0

               QUIT 

 +4        NEW DIE,DR,DA

 +5        SET DA=+Y

           SET DIE=4.6

           SET DR=".01;1"

 +6        DO ^DIE

 +7        QUIT