|
Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
446 bytes
|
| Line | |
|---|
| 1 | XMRMSM ;(WASH ISC)/CAP-MSM TCP/IP Front End ;04/30/2002 07:24
|
|---|
| 2 | ;;8.0;MailMan;**27**;Jun 28, 2002
|
|---|
| 3 | Q
|
|---|
| 4 | ;%=socket number
|
|---|
| 5 | SOC25 ;
|
|---|
| 6 | N DIQUIET
|
|---|
| 7 | S XMRPORT=$G(%),IOT="TCP",(IO,IO(0))=56,DIQUIET=1
|
|---|
| 8 | I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D TRP^XMCTRAP"
|
|---|
| 9 | E S X="TRP^XMCTRAP",@^%ZOSF("TRAP")
|
|---|
| 10 | D DT^DICRW,DUZ^XUP(.5)
|
|---|
| 11 | S ER=0
|
|---|
| 12 | U IO
|
|---|
| 13 | S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
|
|---|
| 14 | D ENT^XMR
|
|---|
| 15 | HALT ;Unlock all locks, disconnect the connection and quit
|
|---|
| 16 | G ^XUSCLEAN
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
