- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMCE 1679 printed Feb 18, 2025@23:37:27 Page 2
- 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