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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMA0 1088 printed Dec 13, 2024@02:10:42 Page 2
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
