| 1 | XMKP1 ;ISC-SF/GMB-Address and Post msg (cont.) ;04/17/2002 10:54
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | RCPTFWD(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
|
|---|
