Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMCE

XMCE.m

Go to the documentation of this file.
  1. XMCE ;ISC-SF/GMB-Edit Scripts ;04/17/2002 08:39
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Was (WASH ISC)/THM
  1. ;
  1. ; Entry points used by MailMan options (not covered by DBIA):
  1. ; VAL XMEDIT-DOMAIN-VALIDATION# (was VAL^XMC2)
  1. ; OUT XMSCRIPTOUT (was OUT^XMC2)
  1. ; EDIT42 XMSCRIPTEDIT (was EDIT^XMC11)
  1. ; EDIT46 XMSUBEDIT (was EDITSC^XMC11)
  1. Q
  1. OUT ; Toggle script out of service
  1. N XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y
  1. S XMABORT=0
  1. D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT
  1. S DA=XMINST
  1. S DR="1" ; Flags
  1. S DR=DR_";4" ; Scripts
  1. S DR(2,4.21)=1.5 ; Only the 'out of order' field in the Script multiple
  1. S DIE="^DIC(4.2,"
  1. D ^DIE
  1. Q:'$$BMSGCT^XMXUTIL(.5,XMINST+1000) ; Quit if no msgs queued.
  1. D CHKTSK^XMCXU(XMINST,1,.XMABORT) Q:XMABORT
  1. D ASKSCR^XMCXU(XMINST,XMSITE,.XMB,.XMABORT)
  1. D QUEUE^XMCX(XMINST,XMSITE,.XMB)
  1. Q
  1. VAL ; Edit domain validation number
  1. N XMINST,XMSITE,XMABORT,DA,DR,DIE,X,Y
  1. S XMABORT=0
  1. D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT
  1. S DIE=4.2,DA=XMINST,DR="1.6"
  1. D ^DIE
  1. Q
  1. EDIT42 ; Edit fields in file 4.2, DOMAIN
  1. N XMINST,XMSITE,XMTSK,XMABORT,DA,DR,DIE,X,Y
  1. S XMABORT=0
  1. D ASKINST^XMCXU(.XMINST,.XMSITE,.XMABORT) Q:XMABORT
  1. S DIE=4.2,DA=XMINST,DR="17;1:4.2;6.2:6.9",DR(2,4.21)=".01;1:99"
  1. D ^DIE
  1. S XMTSK=$P($G(^XMBS(4.2999,DA,3)),U,7)
  1. S DIE=4.2999,DR=25
  1. D ^DIE
  1. Q:'XMTSK
  1. Q:'$P($G(^XMBS(4.2999,DA,3)),U,7)
  1. D KILLTSK^XMKPR(DA,XMTSK)
  1. Q
  1. EDIT46 ; Edit TRANSMISSION SCRIPT name and text in file 4.6
  1. N DIC,DLAYGO,X,Y
  1. S (DLAYGO,DIC)=4.6,DIC(0)="AEQML"
  1. D ^DIC Q:Y<0
  1. N DIE,DR,DA
  1. S DA=+Y,DIE=4.6,DR=".01;1"
  1. D ^DIE
  1. Q