XMRMSM.m

XMRMSM ;(WASH ISC)/CAP-MSM TCP/IP Front End ;04/30/2002  07:24

 ;;8.0;MailMan;**27**;Jun 28, 2002

 Q

 ;%=socket number

SOC25 ;

 N DIQUIET

 S XMRPORT=$G(%),IOT="TCP",(IO,IO(0))=56,DIQUIET=1

 I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D TRP^XMCTRAP"

 E  S X="TRP^XMCTRAP",@^%ZOSF("TRAP")

 D DT^DICRW,DUZ^XUP(.5)

 S ER=0

 U IO

 S XMCHAN="TCP/IP-MAILMAN",XMNO220=""

 D ENT^XMR

HALT ;Unlock all locks, disconnect the connection and quit

 G ^XUSCLEAN

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XMRMSM   462     printed  Oct 16, 2024@18:13:44                                                                                                                                                                                                       Page 2

XMRMSM    ;(WASH ISC)/CAP-MSM TCP/IP Front End ;04/30/2002  07:24

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

 +2        QUIT 

 +3       ;%=socket number

SOC25     ;

 +1        NEW DIQUIET

 +2        SET XMRPORT=$GET(%)

           SET IOT="TCP"

           SET (IO,IO(0))=56

           SET DIQUIET=1

 +3        IF $$NEWERR^%ZTER

               NEW $ETRAP,$ESTACK

               SET $ETRAP="D TRP^XMCTRAP"

 +4       IF '$TEST

               SET X="TRP^XMCTRAP"

               SET @^%ZOSF("TRAP")

 +5        DO DT^DICRW

           DO DUZ^XUP(.5)

 +6        SET ER=0

 +7        USE IO

 +8        SET XMCHAN="TCP/IP-MAILMAN"

           SET XMNO220=""

 +9        DO ENT^XMR

HALT      ;Unlock all locks, disconnect the connection and quit

 +1        GOTO ^XUSCLEAN