Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMJMA

XMJMA.m

Go to the documentation of this file.
  1. XMJMA ;ISC-SF/GMB-Interactive Answer ;04/24/2002 10:32
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Replaces ^XMA11A,^XMA11B,SH^XMA1B,^XMA2,^XMA20 (ISC-WASH/CAP/THM)
  1. ANSWER(XMDUZ,XMZO,XMZOSUBJ,XMZOFROM) ;
  1. N XMABORT,XMZ,XMINSTR,XMSUBJ,XMZODATE
  1. S XMABORT=0
  1. D INIT(XMDUZ,XMZO,.XMZODATE,.XMINSTR,.XMABORT) Q:XMABORT
  1. S XMSUBJ=$E($$EZBLD^DIALOG(37006)_XMZOSUBJ,1,65) ; Re:
  1. D SUBJ^XMJMS(.XMSUBJ,.XMABORT) Q:XMABORT
  1. D CRE8XMZ^XMXSEND(XMSUBJ,.XMZ,1) I XMZ<1 S XMABORT=1 Q
  1. D EDITON^XMJMS(XMDUZ,XMZ)
  1. D PROCESS(XMDUZ,XMZO,XMZOSUBJ,XMZOFROM,XMZODATE,XMZ,XMSUBJ,.XMINSTR,.XMABORT)
  1. D CLEANUP^XMXADDR
  1. D:XMABORT=DTIME HALT^XMJMS($$EZBLD^DIALOG(34250)) ; answering
  1. D EDITOFF^XMJMS(XMDUZ)
  1. D:XMABORT KILLMSG^XMXUTIL(XMZ)
  1. Q
  1. INIT(XMDUZ,XMZO,XMZODATE,XMINSTR,XMABORT) ;
  1. D INIT^XMJMS(XMDUZ,.XMABORT) Q:XMABORT
  1. S XMZODATE=$P($G(^XMB(3.9,XMZO,0)),U,3)
  1. Q:$$COPYAMT^XMXSEC1(XMZO,0)
  1. S XMABORT=1
  1. D SHOW^XMJERR
  1. ;This message has too many lines to 'Answer'.
  1. ;Use 'Write' or 'Reply', instead.
  1. N XMTEXT
  1. D BLD^DIALOG(34251,"","","XMTEXT","F")
  1. D MSG^DIALOG("WE","","","","XMTEXT")
  1. Q
  1. PROCESS(XMDUZ,XMZO,XMZOSUBJ,XMZOFROM,XMZODATE,XMZ,XMSUBJ,XMINSTR,XMABORT) ;
  1. N XMRESTR ;Copying original message and network signature ...
  1. W !,$$EZBLD^DIALOG(34252)
  1. D COPY^XMXANSER(XMZO,XMZOSUBJ,XMZOFROM,XMZODATE,XMZ)
  1. D NETSIG^XMXEDIT(XMDUZ,XMZ)
  1. D BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR,.XMABORT) Q:XMABORT
  1. I XMZOFROM["@" D Q:XMABORT
  1. . D REPLYTO^XMJMR(XMZO,.XMZOFROM,.XMABORT) Q:XMABORT
  1. . S XMINSTR("EXACT")=1 ; Match on exact domain name
  1. . W !,$$EZBLD^DIALOG(34253,XMZOFROM) ; Addressing answer to:
  1. E W !,$$EZBLD^DIALOG(34254) ; Addressing answer to sender:
  1. D INIT^XMXADDR
  1. D ADDR^XMXADDR(XMDUZ,XMZOFROM,.XMINSTR,.XMRESTR)
  1. I '$D(^TMP("XMY",$J)) W !,$$EZBLD^DIALOG(34255,$$NAME^XMXUTIL(XMZOFROM)) ; Failed in addressing answer to:
  1. K XMRESTR("FLAGS") I $D(XMINSTR("EXACT")) K XMINSTR("EXACT")
  1. D TOWHOM^XMJMT(XMDUZ,$$EZBLD^DIALOG(34110),.XMINSTR,.XMRESTR,.XMABORT) Q:XMABORT ; Send
  1. D SENDMSG^XMJMSO(XMDUZ,XMZ,XMSUBJ,.XMINSTR,.XMRESTR,.XMABORT) Q:XMABORT
  1. Q