|
Last change
on this file since 810 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.0 KB
|
| Rev | Line | |
|---|
| [613] | 1 | XMA0 ;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 | ;
|
|---|
| 10 | ENTPRT ; 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
|
|---|
| 19 | HDR ; 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
|
|---|
| 30 | PR2 ; 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
|
|---|
| 41 | PRINTIT(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.
