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 ---[H[J[2J[HXMUT7 666 printed Nov 22, 2024@17:23:50 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
