source: FOIAVistA/trunk/r/MAILMAN-XM/XMA1C.m@ 873

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

initial load of FOIAVistA 6/30/08 version

File size: 887 bytes
Line 
1XMA1C ;ISC-SF/GMB-Server Basket APIs ;04/17/2002 07:10
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Was (WASH ISC)/ACC/IHS
4 ;
5 ; Entry points (DBIA 10072):
6 ; REMSBMSG Remove a message from a server basket
7 ; SETSB Put a message in a server basket
8 ;
9SETSB ; Put a message in a server basket
10 ; (Create mail basket for server under postmaster as needed)
11 ; In:
12 ; XMXX Server Name (full name, starting with 'S.')
13 ; XMZ Message Number
14 ;Messages to server are saved in a mail basket of the
15 ;Postmaster much like transmission queues. But while
16 ;Domain queues point at the domain file (domain#+1000),
17 ;Server baskets point at the option file (option#+10000).
18 D PUTSERV^XMXMSGS1(XMXX,XMZ)
19 Q
20REMSBMSG ; Remove a message from a server basket
21 ; In:
22 ; XMSER Server Name (full name, starting with 'S.')
23 ; XMZ Message number
24 D ZAPSERV^XMXMSGS1(XMSER,XMZ)
25 K XMKD,XMZ,XMDUZ,XMK,XMSER
26 Q
Note: See TracBrowser for help on using the repository browser.