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

XMXPARMB.m

Go to the documentation of this file.
  1. XMXPARMB ;ISC-SF/GMB-Parameter check for XMXAPIB ;04/17/2002 14:12
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. CRE8MBOX(XMDUZ,XMDATE) ; Create a mailbox for a user
  1. K XMERR,^TMP("XMERR",$J)
  1. D CHKUSER^XMXPARM1(.XMDUZ,1)
  1. I $D(XMDATE) S XMDATE=$$XMDATE("XMDATE",XMDATE)
  1. Q
  1. XMDATE(XMPARM,XMDATE) ;
  1. N %DT,Y,X
  1. S X=XMDATE ;,%DT(0)="-NOW"
  1. S %DT="X"
  1. D ^%DT
  1. Q:Y>0 Y
  1. N XMP
  1. S XMP("PARAM","ID")=XMPARM
  1. S XMP("PARAM","VALUE")=XMDATE
  1. D ERRSET^XMXUTIL(39420,.XMP) ; Must be an exact date.
  1. Q XMDATE
  1. VA200(XMDUZ) ; Make sure DUZ exists
  1. Q:$D(^VA(200,XMDUZ,0))
  1. N XMP
  1. S XMP("PARAM","ID")="XMDUZ"
  1. S XMP("PARAM","VALUE")=XMDUZ,XMP(1)=XMDUZ
  1. D ERRSET^XMXUTIL(39433,.XMP) ; User '|1|' not found.
  1. Q
  1. TERMMBOX(XMDUZ) ; Terminate a mailbox (delete all traces of user in MailMan)
  1. K XMERR,^TMP("XMERR",$J)
  1. D CHKUSER^XMXPARM1(.XMDUZ,1)
  1. Q
  1. MBOX(XMDUZ) ;
  1. K XMERR,^TMP("XMERR",$J)
  1. D XMDUZ^XMXPARM(.XMDUZ,.XMV)
  1. Q
  1. LISTBSKT(XMDUZ,XMFLAGS,XMAMT,XMSTART,XMPART,XMTROOT) ;
  1. K XMERR,^TMP("XMERR",$J)
  1. D XMDUZ^XMXPARM(.XMDUZ,.XMV)
  1. I $D(XMFLAGS) D XMFLAG^XMXPARM("XMFLAGS",XMFLAGS,"BN")
  1. I $D(XMAMT) D XMAMT("XMAMT",.XMAMT)
  1. Q
  1. LISTMSGS(XMDUZ,XMK,XMFLDS,XMFLAGS,XMAMT,XMSTART,XMF,XMTROOT) ;
  1. K XMERR,^TMP("XMERR",$J)
  1. D XMDUZ^XMXPARM(.XMDUZ,.XMV)
  1. I $D(XMK) S:"^*^!^"'[(U_XMK_U) XMK=$$XMK^XMXPARM(XMDUZ,"XMK",XMK)
  1. I $D(XMFLAGS) D XMFLAG^XMXPARM("XMFLAGS",XMFLAGS,"BCNP")
  1. I $D(XMAMT) D XMAMT("XMAMT",.XMAMT)
  1. Q
  1. DELBSKT(XMDUZ,XMK,XMFLAGS) ;
  1. D BSKT(.XMDUZ,.XMK)
  1. I $D(XMFLAGS) D XMFLAG^XMXPARM("XMFLAGS",XMFLAGS,"D")
  1. Q
  1. BSKT(XMDUZ,XMK) ; Make sure basket exists
  1. K XMERR,^TMP("XMERR",$J)
  1. D XMDUZ^XMXPARM(.XMDUZ,.XMV)
  1. S:$D(XMK) XMK=$$XMK^XMXPARM(XMDUZ,"XMK",XMK)
  1. Q
  1. CRE8BSKT(XMDUZ,XMKN) ;
  1. K XMERR,^TMP("XMERR",$J)
  1. D XMDUZ^XMXPARM(.XMDUZ,.XMV)
  1. S XMKN=$$XMKN(XMDUZ,"XMKN",XMKN)
  1. Q
  1. NAMEBSKT(XMDUZ,XMK,XMKN) ;
  1. K XMERR,^TMP("XMERR",$J)
  1. D XMDUZ^XMXPARM(.XMDUZ,.XMV)
  1. S XMK=$$XMK^XMXPARM(XMDUZ,"XMK",.XMK)
  1. S XMKN=$$XMKN(XMDUZ,"XMKN",XMKN)
  1. Q
  1. XMKN(XMDUZ,XMPARM,XMKN,XMOKXST) ; Validate a prospective basket name
  1. ; XMKN prospective basket name
  1. ; XMOKXST is it OK if a basket with that name already exists? (0=no; 1=yes)
  1. N XMOK
  1. I '$G(XMOKXST) D Q:$D(XMERR) XMKN
  1. . Q:'$$FIND1^DIC(3.701,","_XMDUZ_",","XQ",XMKN)
  1. . N XMP
  1. . S XMP("PARAM","ID")=XMPARM
  1. . S XMP("PARAM","VALUE")=XMKN,XMP(1)=XMKN
  1. . D ERRSET^XMXUTIL(39440,.XMP) ; Basket '|1|' already exists.
  1. D VAL^DIE(3.701,"1,"_XMDUZ_",",.01,"",XMKN,.XMOK) Q:XMOK'=U XMKN
  1. N XMP
  1. S XMP("PARAM","ID")=XMPARM
  1. S XMP("PARAM","VALUE")=XMKN,XMP(1)=2,XMP(2)=30
  1. D ERRSET^XMXUTIL(39437,.XMP) ; Must be |1|-|2| characters, no ^.
  1. Q XMKN
  1. XMAMT(XMPARM,XMAMT) ;
  1. Q:'$D(XMAMT)
  1. Q:XMAMT=""
  1. Q:XMAMT="*"
  1. Q:XMAMT=+XMAMT&(XMAMT>0)
  1. N XMP
  1. S XMP("PARAM","ID")=XMPARM
  1. S XMP("PARAM","VALUE")=XMAMT,XMP(1)=XMAMT
  1. D ERRSET^XMXUTIL(39441,.XMP) ; Must be a positive number OR *.
  1. Q
  1. SERV(XMKN,XMZ) ;
  1. K XMERR,^TMP("XMERR",$J)
  1. D XMSERV(.XMKN)
  1. D XMZ^XMXPARM(.XMZ)
  1. Q
  1. XMSERV(XMKN) ;
  1. I $E(XMKN,1,2)'="S." D Q
  1. . N XMP
  1. . S XMP("PARAM","ID")="XMKN"
  1. . S XMP("PARAM","VALUE")=XMKN,XMP(1)=XMKN
  1. . D ERRSET^XMXUTIL(39442,.XMP) ; Server basket name must begin with 'S.'.
  1. Q:$O(^DIC(19,"B",$E(XMKN,3,999),0))
  1. N XMP
  1. S XMP("PARAM","ID")="XMKN"
  1. S XMP("PARAM","VALUE")=XMKN,XMP(1)=XMKN
  1. D ERRSET^XMXUTIL(39443,.XMP) ; Server basket '|1|' not found. Name must be exact.
  1. Q