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

XMAH1.m

Go to the documentation of this file.
  1. XMAH1 ;ISC-SF/GMB-Reply to a message API ;04/17/2002 07:33
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Was (WASH ISC)/CAP
  1. ;
  1. ; Entry points (DBIA 1232):
  1. ; ^XMAH1 Interactive respond to a message
  1. ; ENTA^XMAH1 Interactive respond to a message
  1. ;
  1. ENTA ; Interactive respond to a message
  1. ; Needs:
  1. ; XMDUZ user ID
  1. ; XMK basket number
  1. ; XMZ message number
  1. ; Optional:
  1. ; XMDF If $D(XMDF), then addressing restrictions are ignored.
  1. N XMV,XMSUBJ,XMFROM,XMINSTR,XMKN,XMIEN,XMRESP,XMRESPSO,XMPAKMAN,XMSECURE,XMABORT
  1. S XMABORT=0
  1. D INIT(XMDUZ,XMK,.XMKN,XMZ,.XMSUBJ,.XMFROM,.XMINSTR,.XMIEN,.XMRESPSO,.XMRESP,.XMABORT) Q:XMABORT
  1. D REPLY^XMJMR(XMDUZ,.XMK,.XMKN,XMZ,XMSUBJ,XMFROM,.XMINSTR,XMIEN,XMRESPSO,0,XMRESP)
  1. Q
  1. INIT(XMDUZ,XMK,XMKN,XMZ,XMSUBJ,XMFROM,XMINSTR,XMIEN,XMRESPSO,XMRESP,XMABORT) ;
  1. N XMIM,XMIU,XMZREC
  1. D INITAPI^XMVVITAE
  1. K XMERR,^TMP("XMERR",$J)
  1. S XMZREC=^XMB(3.9,XMZ,0)
  1. I '$$REPLY^XMXSEC(XMDUZ,XMZ,XMZREC) D SHOW^XMJERR S XMABORT=1 Q
  1. I $D(XMDF) S XMINSTR("ADDR FLAGS")="R" ; no addressing restrictions
  1. D INMSG^XMXUTIL2(XMDUZ,0,XMZ,XMZREC,"I",.XMIM,.XMINSTR,.XMIU)
  1. I $D(XMINSTR("SCR HINT")),'$D(XMSECURE),'$$KEYOK^XMJMCODE(XMZ,XMINSTR("SCR HINT")) S XMABORT=1 Q
  1. S XMSUBJ=XMIM("SUBJ")
  1. S XMFROM=XMIM("FROM")
  1. S XMRESPSO=XMIM("RESPS")
  1. S XMIEN=XMIU("IEN")
  1. S XMRESP=XMIU("RESP")
  1. S XMPAKMAN=$S(XMINSTR("TYPE")["X":1,XMINSTR("TYPE")["K":1,1:0)
  1. S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
  1. Q