14 lines
359 B
Mathematica
14 lines
359 B
Mathematica
XMA03 ;ISC-SF/GMB-Resequence messages API ;04/17/2002 07:08
|
|
;;8.0;MailMan;;Jun 28, 2002
|
|
; Was (WASH ISC)/CAP/THM
|
|
;
|
|
; Entry points (DBIA 1150):
|
|
; $$REN Resequence messages in a user's basket
|
|
;
|
|
REN(XMDUZ,XMK) ;API entry for Renumbering Mail Basket
|
|
; XMDUZ User's DUZ
|
|
; XMK Basket number
|
|
N XMMSG
|
|
D RSEQBSKT^XMXAPIB(XMDUZ,XMK,.XMMSG)
|
|
Q $G(XMMSG)
|