source: FOIAVistA/trunk/r/MAILMAN-XM/XMCE.m@ 1518

Last change on this file since 1518 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 1.6 KB
Line 
1XMCE ;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
11OUT ; 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
26VAL ; 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
33EDIT42 ; 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
46EDIT46 ; 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
Note: See TracBrowser for help on using the repository browser.