source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMA1B.m@ 701

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1XMA1B ;ISC-SF/GMB-Save/Delete Message APIs ;04/17/2002 07:09
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Was (WASH ISC)/CAP/THM
4 ;
5 ; Entry points (DBIA 10065):
6 ; KL Delete a message from a basket
7 ; KLQ Delete a message from a basket and put it in the WASTE basket.
8 ; S2 Put a message in a basket
9 ;
10KL ; Delete a message from a basket
11 ; In:
12 ; XMDUZ User's DUZ
13 ; XMK Basket number (optional)
14 ; XMZ Message number
15 I '$D(XMK) S XMK=$O(^XMB(3.7,"M",XMZ,XMDUZ,0)) Q:'XMK
16 I XMK,'$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) S XMK=$O(^XMB(3.7,"M",XMZ,XMDUZ,0)) Q:'XMK
17 D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ)
18 Q
19KLQ ; Delete a message from a basket AND put it in waste basket
20 ; In:
21 ; XMDUZ User's DUZ
22 ; XMK Basket number (optional)
23 ; XMZ Message number
24 D KL Q:XMK=.5
25 S XMKM=.5
26 ; Fall through to S2
27S2 ; Put a message in a basket.
28 ; In:
29 ; XMDUZ User's DUZ
30 ; XMKM Basket number
31 ; XMZ Message number
32 N XMK,XMKN
33 K XMERR,^TMP("XMERR",$J)
34 S XMK=$$XMK^XMXPARM(XMDUZ,"XMKM",.XMKM)
35 I $D(XMERR) K XMERR,^TMP("XMERR",$J) Q
36 I XMK>1 S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
37 E S XMKN=$$EZBLD^DIALOG($S(XMK=.5:37004,1:37005)) ; WASTE / IN
38 D PUTMSG^XMXMSGS2(XMDUZ,XMK,XMKN,XMZ)
39 K XMKM
40 Q
Note: See TracBrowser for help on using the repository browser.