source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMUT7.m@ 1073

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

initial load of WorldVistAEHR

File size: 649 bytes
RevLine 
[613]1XMUT7 ;ISC-SF/GMB-Send Message to Forwarding Address ;04/17/2002 12:08
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Was (WASH ISC)/CAP
4 ;
5 ; Entry points covered by DBIA 1132:
6 ; ENT Send bulletin to check forwarding address.
7ENT(XMUSER) ; Send bulletin to check forwarding address.
8 ; See DD for file 3.7, field 2
9 ; XMUSER - DUZ of user, whose forwarding address we are checking.
10 N XMPARM,XMINSTR,XMTO
11 S XMINSTR("FROM")=.5
12 S XMPARM(1)=$$NAME^XMXUTIL(XMUSER)
13 S XMPARM(2)=$P(^XMB(3.7,XMUSER,0),U,2) Q:XMPARM(2)=""
14 S XMTO(XMPARM(2))=""
15 I '+$G(^XMB(1,1,"FORWARD")) S XMTO(.5)=""
16 D TASKBULL^XMXBULL(.5,"XM FWD ADDRESS CHECK",.XMPARM,"",.XMTO,.XMINSTR)
17 Q
Note: See TracBrowser for help on using the repository browser.