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

XMA1B.m

Go to the documentation of this file.
  1. XMA1B ;ISC-SF/GMB-Save/Delete Message APIs ;04/17/2002 07:09
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Was (WASH ISC)/CAP/THM
  1. ;
  1. ; Entry points (DBIA 10065):
  1. ; KL Delete a message from a basket
  1. ; KLQ Delete a message from a basket and put it in the WASTE basket.
  1. ; S2 Put a message in a basket
  1. ;
  1. KL ; Delete a message from a basket
  1. ; In:
  1. ; XMDUZ User's DUZ
  1. ; XMK Basket number (optional)
  1. ; XMZ Message number
  1. I '$D(XMK) S XMK=$O(^XMB(3.7,"M",XMZ,XMDUZ,0)) Q:'XMK
  1. I XMK,'$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) S XMK=$O(^XMB(3.7,"M",XMZ,XMDUZ,0)) Q:'XMK
  1. D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ)
  1. Q
  1. KLQ ; Delete a message from a basket AND put it in waste basket
  1. ; In:
  1. ; XMDUZ User's DUZ
  1. ; XMK Basket number (optional)
  1. ; XMZ Message number
  1. D KL Q:XMK=.5
  1. S XMKM=.5
  1. ; Fall through to S2
  1. S2 ; Put a message in a basket.
  1. ; In:
  1. ; XMDUZ User's DUZ
  1. ; XMKM Basket number
  1. ; XMZ Message number
  1. N XMK,XMKN
  1. K XMERR,^TMP("XMERR",$J)
  1. S XMK=$$XMK^XMXPARM(XMDUZ,"XMKM",.XMKM)
  1. I $D(XMERR) K XMERR,^TMP("XMERR",$J) Q
  1. I XMK>1 S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
  1. E S XMKN=$$EZBLD^DIALOG($S(XMK=.5:37004,1:37005)) ; WASTE / IN
  1. D PUTMSG^XMXMSGS2(XMDUZ,XMK,XMKN,XMZ)
  1. K XMKM
  1. Q