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)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMA03 372 printed Nov 22, 2024@17:20:49 Page 2
XMA03 ;ISC-SF/GMB-Resequence messages API ;04/17/2002 07:08
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ; Was (WASH ISC)/CAP/THM
+3 ;
+4 ; Entry points (DBIA 1150):
+5 ; $$REN Resequence messages in a user's basket
+6 ;
REN(XMDUZ,XMK) ;API entry for Renumbering Mail Basket
+1 ; XMDUZ User's DUZ
+2 ; XMK Basket number
+3 NEW XMMSG
+4 DO RSEQBSKT^XMXAPIB(XMDUZ,XMK,.XMMSG)
+5 QUIT $GET(XMMSG)
