X L +^XMBX("TCPCHAN",XMINST):3 E S ER=1,XMER="CHANNEL IN USE"
X D CALL^%ZISTCP(XMHOST,25) I POP S ER=1 L -^XMBX("TCPCHAN",XMHOST)
X S XMHANG="D CLOSE^%ZISTCP"
L:180 |220| |421|
MAIL
X L -^XMBX("TCPCHAN",XMHOST)
DESCRIPTION
This is the mail transmission script used to send
mail to other VA sites. It is specifically designed
for use on a VMS/Cache system. It replaced the NT/Cache
or VMS/DSM version previously used. It was changed
during conversion activities Jan 14, 2005@13:51:50.