XMUT7.m

XMUT7 ;ISC-SF/GMB-Send Message to Forwarding Address ;04/17/2002  12:08

 ;;8.0;MailMan;;Jun 28, 2002

 ; Was (WASH ISC)/CAP

 ;

 ; Entry points covered by DBIA 1132:

 ; ENT   Send bulletin to check forwarding address.

ENT(XMUSER) ; Send bulletin to check forwarding address.

 ; See DD for file 3.7, field 2

 ; XMUSER - DUZ of user, whose forwarding address we are checking.

 N XMPARM,XMINSTR,XMTO

 S XMINSTR("FROM")=.5

 S XMPARM(1)=$$NAME^XMXUTIL(XMUSER)

 S XMPARM(2)=$P(^XMB(3.7,XMUSER,0),U,2) Q:XMPARM(2)=""

 S XMTO(XMPARM(2))=""

 I '+$G(^XMB(1,1,"FORWARD")) S XMTO(.5)=""

 D TASKBULL^XMXBULL(.5,"XM FWD ADDRESS CHECK",.XMPARM,"",.XMTO,.XMINSTR)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XMUT7   666     printed  Apr 09, 2024@21:13:05                                                                                                                                                                                                        Page 2

XMUT7     ;ISC-SF/GMB-Send Message to Forwarding Address ;04/17/2002  12:08

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

 +2       ; Was (WASH ISC)/CAP

 +3       ;

 +4       ; Entry points covered by DBIA 1132:

 +5       ; ENT   Send bulletin to check forwarding address.

ENT(XMUSER) ; Send bulletin to check forwarding address.

 +1       ; See DD for file 3.7, field 2

 +2       ; XMUSER - DUZ of user, whose forwarding address we are checking.

 +3        NEW XMPARM,XMINSTR,XMTO

 +4        SET XMINSTR("FROM")=.5

 +5        SET XMPARM(1)=$$NAME^XMXUTIL(XMUSER)

 +6        SET XMPARM(2)=$PIECE(^XMB(3.7,XMUSER,0),U,2)

           if XMPARM(2)=""

               QUIT 

 +7        SET XMTO(XMPARM(2))=""

 +8        IF '+$GET(^XMB(1,1,"FORWARD"))

               SET XMTO(.5)=""

 +9        DO TASKBULL^XMXBULL(.5,"XM FWD ADDRESS CHECK",.XMPARM,"",.XMTO,.XMINSTR)

 +10       QUIT