XMAH.m

XMAH ;ISC-SF/GMB-List message responses API ;07/17/2003  13:04

 ;;8.0;MailMan;**20**;Jun 28, 2002

 ; Was (WASH ISC)/CAP

 ;

 ; Entry points (DBIA 1040):

 ; ENT8   List responses of a message

 ;

ENT8 ; List message responses

 ; Needs:

 ; XMZ   Message number

 N XMV

 D INITAPI^XMVVITAE

 D HELPRESP^XMJMP1(XMZ,+$P($G(^XMB(3.9,XMZ,3,0)),U,4))

 Q

XMAH      ;ISC-SF/GMB-List message responses API ;07/17/2003  13:04

 +1       ;;8.0;MailMan;**20**;Jun 28, 2002

 +2       ; Was (WASH ISC)/CAP

 +3       ;

 +4       ; Entry points (DBIA 1040):

 +5       ; ENT8   List responses of a message

 +6       ;

ENT8      ; List message responses

 +1       ; Needs:

 +2       ; XMZ   Message number

 +3        NEW XMV

 +4        DO INITAPI^XMVVITAE

 +5        DO HELPRESP^XMJMP1(XMZ,+$PIECE($GET(^XMB(3.9,XMZ,3,0)),U,4))

 +6        QUIT