| 1 | XMCE ;ISC-SF/GMB-Edit Scripts ;04/17/2002 08:39
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ; Was (WASH ISC)/THM
|
|---|
| 4 | ;
|
|---|
| 5 | ; Entry points used by MailMan options (not covered by DBIA):
|
|---|
| 6 | ; VAL XMEDIT-DOMAIN-VALIDATION# (was VAL^XMC2)
|
|---|
| 7 | ; OUT XMSCRIPTOUT (was OUT^XMC2)
|
|---|
| 8 | ; EDIT42 XMSCRIPTEDIT (was EDIT^XMC11)
|
|---|
| 9 | ; EDIT46 XMSUBEDIT (was EDITSC^XMC11)
|
|---|
| 10 | Q
|
|---|
| 11 | OUT ; Toggle script out of service
|
|---|
| 12 | N XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y
|
|---|
| 13 | S XMABORT=0
|
|---|
| 14 | D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT
|
|---|
| 15 | S DA=XMINST
|
|---|
| 16 | S DR="1" ; Flags
|
|---|
| 17 | S DR=DR_";4" ; Scripts
|
|---|
| 18 | S DR(2,4.21)=1.5 ; Only the 'out of order' field in the Script multiple
|
|---|
| 19 | S DIE="^DIC(4.2,"
|
|---|
| 20 | D ^DIE
|
|---|
| 21 | Q:'$$BMSGCT^XMXUTIL(.5,XMINST+1000) ; Quit if no msgs queued.
|
|---|
| 22 | D CHKTSK^XMCXU(XMINST,1,.XMABORT) Q:XMABORT
|
|---|
| 23 | D ASKSCR^XMCXU(XMINST,XMSITE,.XMB,.XMABORT)
|
|---|
| 24 | D QUEUE^XMCX(XMINST,XMSITE,.XMB)
|
|---|
| 25 | Q
|
|---|
| 26 | VAL ; Edit domain validation number
|
|---|
| 27 | N XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y
|
|---|
| 28 | S XMABORT=0
|
|---|
| 29 | D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT
|
|---|
| 30 | S DIE=4.2,DA=XMINST,DR="1.6"
|
|---|
| 31 | D ^DIE
|
|---|
| 32 | Q
|
|---|
| 33 | EDIT42 ; Edit fields in file 4.2, DOMAIN
|
|---|
| 34 | N XMINST,XMSITE,XMTSK,XMABORT,DA,DR,DIE,X,Y
|
|---|
| 35 | S XMABORT=0
|
|---|
| 36 | D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT
|
|---|
| 37 | S DIE=4.2,DA=XMINST,DR="17;1:4.2;6.2:6.9",DR(2,4.21)=".01;1:99"
|
|---|
| 38 | D ^DIE
|
|---|
| 39 | S XMTSK=$P($G(^XMBS(4.2999,DA,3)),U,7)
|
|---|
| 40 | S DIE=4.2999,DR=25
|
|---|
| 41 | D ^DIE
|
|---|
| 42 | Q:'XMTSK
|
|---|
| 43 | Q:'$P($G(^XMBS(4.2999,DA,3)),U,7)
|
|---|
| 44 | D KILLTSK^XMKPR(DA,XMTSK)
|
|---|
| 45 | Q
|
|---|
| 46 | EDIT46 ; Edit TRANSMISSION SCRIPT name and text in file 4.6
|
|---|
| 47 | N DIC,DLAYGO,X,Y
|
|---|
| 48 | S (DLAYGO,DIC)=4.6,DIC(0)="AEQML"
|
|---|
| 49 | D ^DIC Q:Y<0
|
|---|
| 50 | N DIE,DR,DA
|
|---|
| 51 | S DA=+Y,DIE=4.6,DR=".01;1"
|
|---|
| 52 | D ^DIE
|
|---|
| 53 | Q
|
|---|
