XMKP1.m

XMKP1 ;ISC-SF/GMB-Address and Post msg (cont.) ;04/17/2002  10:54

 ;;8.0;MailMan;;Jun 28, 2002

RCPTFWD(XMSF,XMTO,XMFDA,XMIENS,XMNOW,XMFWDBY) ; Someone special fwded to this particular recipient

 N XMBY,XMFREC

 S XMFREC=^TMP("XMY",$J,XMTO,"F")

 S XMBY=$P(XMFREC,U)

 I +XMBY=XMBY D

 . ; Recipient has fwding address; note that recipient fwded.

 . S XMFDA(3.91,XMIENS,8)=$$NAME^XMXUTIL(XMBY)_" "_XMNOW   ; fwd by name date time

 . S XMFDA(3.91,XMIENS,8.01)=XMBY ; fwd by duz

 . S XMFDA(3.91,XMIENS,8.02)="A"  ; Auto-Forward

 . Q:XMSF="S"

 . I $P(XMFREC,U,2)'="" D  Q  ; original forwarder is from remote site

 . . S XMFDA(3.91,XMIENS,8.03)=$P(XMFREC,U,2)

 . . S XMFDA(3.91,XMIENS,8.04)="@"

 . S XMFDA(3.91,XMIENS,8.03)=XMFWDBY

 . S XMFDA(3.91,XMIENS,8.04)=$S($G(XMINSTR("FWD BY XMDUZ"))="F":"F",1:"@") ; Filter-Forward or otherwise

 E  D

 . ; Forwarded from remote site.

 . S XMFDA(3.91,XMIENS,8)=XMBY_" "_XMNOW   ; fwd by name date time

 . S XMFDA(3.91,XMIENS,8.01)="@" ; fwd by duz

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XMKP1   1006     printed  Apr 09, 2024@21:14:24                                                                                                                                                                                                       Page 2

XMKP1     ;ISC-SF/GMB-Address and Post msg (cont.) ;04/17/2002  10:54

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

RCPTFWD(XMSF,XMTO,XMFDA,XMIENS,XMNOW,XMFWDBY) ; Someone special fwded to this particular recipient

 +1        NEW XMBY,XMFREC

 +2        SET XMFREC=^TMP("XMY",$JOB,XMTO,"F")

 +3        SET XMBY=$PIECE(XMFREC,U)

 +4        IF +XMBY=XMBY

               Begin DoDot:1

 +5       ; Recipient has fwding address; note that recipient fwded.

 +6       ; fwd by name date time

                   SET XMFDA(3.91,XMIENS,8)=$$NAME^XMXUTIL(XMBY)_" "_XMNOW

 +7       ; fwd by duz

                   SET XMFDA(3.91,XMIENS,8.01)=XMBY

 +8       ; Auto-Forward

                   SET XMFDA(3.91,XMIENS,8.02)="A"

 +9                if XMSF="S"

                       QUIT 

 +10      ; original forwarder is from remote site

                   IF $PIECE(XMFREC,U,2)'=""

                       Begin DoDot:2

 +11                       SET XMFDA(3.91,XMIENS,8.03)=$PIECE(XMFREC,U,2)

 +12                       SET XMFDA(3.91,XMIENS,8.04)="@"

                       End DoDot:2

                       QUIT 

 +13               SET XMFDA(3.91,XMIENS,8.03)=XMFWDBY

 +14      ; Filter-Forward or otherwise

                   SET XMFDA(3.91,XMIENS,8.04)=$SELECT($GET(XMINSTR("FWD BY XMDUZ"))="F":"F",1:"@")

               End DoDot:1

 +15      IF '$TEST

               Begin DoDot:1

 +16      ; Forwarded from remote site.

 +17      ; fwd by name date time

                   SET XMFDA(3.91,XMIENS,8)=XMBY_" "_XMNOW

 +18      ; fwd by duz

                   SET XMFDA(3.91,XMIENS,8.01)="@"

               End DoDot:1

 +19       QUIT