XMA03.m

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)

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)