source: FOIAVistA/tag/r/MAILMAN-XM/XMKP1.m@ 1326

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

initial load of FOIAVistA 6/30/08 version

File size: 984 bytes
Line 
1XMKP1 ;ISC-SF/GMB-Address and Post msg (cont.) ;04/17/2002 10:54
2 ;;8.0;MailMan;;Jun 28, 2002
3RCPTFWD(XMSF,XMTO,XMFDA,XMIENS,XMNOW,XMFWDBY) ; Someone special fwded to this particular recipient
4 N XMBY,XMFREC
5 S XMFREC=^TMP("XMY",$J,XMTO,"F")
6 S XMBY=$P(XMFREC,U)
7 I +XMBY=XMBY D
8 . ; Recipient has fwding address; note that recipient fwded.
9 . S XMFDA(3.91,XMIENS,8)=$$NAME^XMXUTIL(XMBY)_" "_XMNOW ; fwd by name date time
10 . S XMFDA(3.91,XMIENS,8.01)=XMBY ; fwd by duz
11 . S XMFDA(3.91,XMIENS,8.02)="A" ; Auto-Forward
12 . Q:XMSF="S"
13 . I $P(XMFREC,U,2)'="" D Q ; original forwarder is from remote site
14 . . S XMFDA(3.91,XMIENS,8.03)=$P(XMFREC,U,2)
15 . . S XMFDA(3.91,XMIENS,8.04)="@"
16 . S XMFDA(3.91,XMIENS,8.03)=XMFWDBY
17 . S XMFDA(3.91,XMIENS,8.04)=$S($G(XMINSTR("FWD BY XMDUZ"))="F":"F",1:"@") ; Filter-Forward or otherwise
18 E D
19 . ; Forwarded from remote site.
20 . S XMFDA(3.91,XMIENS,8)=XMBY_" "_XMNOW ; fwd by name date time
21 . S XMFDA(3.91,XMIENS,8.01)="@" ; fwd by duz
22 Q
Note: See TracBrowser for help on using the repository browser.