source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMA0.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
RevLine 
[613]1XMA0 ;ISC-SF/GMB-Print Message APIs ;04/17/2002 07:08
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Was (WASH ISC)/CAP/THM
4 ;
5 ; Entry points (DBIA 1230):
6 ; ENTPRT Print a message (interactive)
7 ; HDR Print a message (headerless)
8 ; PR2 Print a message
9 ;
10ENTPRT ; Print a message (interactive)
11 ; Needs:
12 ; DUZ
13 ; XMZ Message number
14 ; XMK Basket number
15 N XMV
16 D INITAPI^XMVVITAE
17 D PRINT^XMJMP(XMDUZ,XMK,XMZ)
18 Q
19HDR ; Print a message (headerless)
20 ; Needs:
21 ; DUZ
22 ; XMK basket number
23 ; XMZ message number
24 ; IO output device
25 ; Optional:
26 ; XMDUZ
27 ; $P(XMTYPE,";",6) response from which to start printing
28 D PRINTIT(0,$G(XMTYPE))
29 Q
30PR2 ; Print a message
31 ; Needs:
32 ; DUZ
33 ; XMK basket number
34 ; XMZ message number
35 ; IO output device
36 ; Optional:
37 ; XMDUZ
38 ; $P(XMTYPE,";",6) response from which to start printing
39 D PRINTIT(1,$G(XMTYPE))
40 Q
41PRINTIT(XMPRTHDR,XMTYPE) ;
42 N XMV,XMWHICH
43 Q:XMTYPE=U
44 D INITAPI^XMVVITAE
45 S XMWHICH=+$P(XMTYPE,";",6)_"-" ; print from
46 D PRTMSG^XMJMP(XMDUZ,XMK,XMZ,XMWHICH,0,XMPRTHDR)
47 Q
Note: See TracBrowser for help on using the repository browser.