XMA0.m

XMA0 ;ISC-SF/GMB-Print Message APIs ;04/17/2002  07:08

 ;;8.0;MailMan;;Jun 28, 2002

 ; Was (WASH ISC)/CAP/THM

 ;

 ; Entry points (DBIA 1230):

 ; ENTPRT  Print a message (interactive)

 ; HDR     Print a message (headerless)

 ; PR2     Print a message

 ;

ENTPRT ; Print a message (interactive)

 ; Needs:

 ; DUZ

 ; XMZ  Message number

 ; XMK  Basket number

 N XMV

 D INITAPI^XMVVITAE

 D PRINT^XMJMP(XMDUZ,XMK,XMZ)

 Q

HDR ; Print a message (headerless)

 ; Needs:

 ; DUZ

 ; XMK    basket number

 ; XMZ    message number

 ; IO     output device

 ; Optional:

 ; XMDUZ

 ; $P(XMTYPE,";",6) response from which to start printing

 D PRINTIT(0,$G(XMTYPE))

 Q

PR2 ; Print a message

 ; Needs:

 ; DUZ

 ; XMK    basket number

 ; XMZ    message number

 ; IO     output device

 ; Optional:

 ; XMDUZ

 ; $P(XMTYPE,";",6) response from which to start printing

 D PRINTIT(1,$G(XMTYPE))

 Q

PRINTIT(XMPRTHDR,XMTYPE) ;

 N XMV,XMWHICH

 Q:XMTYPE=U

 D INITAPI^XMVVITAE

 S XMWHICH=+$P(XMTYPE,";",6)_"-"  ; print from

 D PRTMSG^XMJMP(XMDUZ,XMK,XMZ,XMWHICH,0,XMPRTHDR)

 Q

XMA0      ;ISC-SF/GMB-Print Message APIs ;04/17/2002  07:08

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

 +2       ; Was (WASH ISC)/CAP/THM

 +3       ;

 +4       ; Entry points (DBIA 1230):

 +5       ; ENTPRT  Print a message (interactive)

 +6       ; HDR     Print a message (headerless)

 +7       ; PR2     Print a message

 +8       ;

ENTPRT    ; Print a message (interactive)

 +1       ; Needs:

 +2       ; DUZ

 +3       ; XMZ  Message number

 +4       ; XMK  Basket number

 +5        NEW XMV

 +6        DO INITAPI^XMVVITAE

 +7        DO PRINT^XMJMP(XMDUZ,XMK,XMZ)

 +8        QUIT 

HDR       ; Print a message (headerless)

 +1       ; Needs:

 +2       ; DUZ

 +3       ; XMK    basket number

 +4       ; XMZ    message number

 +5       ; IO     output device

 +6       ; Optional:

 +7       ; XMDUZ

 +8       ; $P(XMTYPE,";",6) response from which to start printing

 +9        DO PRINTIT(0,$GET(XMTYPE))

 +10       QUIT 

PR2       ; Print a message

 +1       ; Needs:

 +2       ; DUZ

 +3       ; XMK    basket number

 +4       ; XMZ    message number

 +5       ; IO     output device

 +6       ; Optional:

 +7       ; XMDUZ

 +8       ; $P(XMTYPE,";",6) response from which to start printing

 +9        DO PRINTIT(1,$GET(XMTYPE))

 +10       QUIT 

PRINTIT(XMPRTHDR,XMTYPE) ;

 +1        NEW XMV,XMWHICH

 +2        IF XMTYPE=U

               QUIT 

 +3        DO INITAPI^XMVVITAE

 +4       ; print from

           SET XMWHICH=+$PIECE(XMTYPE,";",6)_"-"

 +5        DO PRTMSG^XMJMP(XMDUZ,XMK,XMZ,XMWHICH,0,XMPRTHDR)

 +6        QUIT