| 1 | XMAH1 ;ISC-SF/GMB-Reply to a message API ;04/17/2002 07:33
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ; Was (WASH ISC)/CAP
|
|---|
| 4 | ;
|
|---|
| 5 | ; Entry points (DBIA 1232):
|
|---|
| 6 | ; ^XMAH1 Interactive respond to a message
|
|---|
| 7 | ; ENTA^XMAH1 Interactive respond to a message
|
|---|
| 8 | ;
|
|---|
| 9 | ENTA ; Interactive respond to a message
|
|---|
| 10 | ; Needs:
|
|---|
| 11 | ; XMDUZ user ID
|
|---|
| 12 | ; XMK basket number
|
|---|
| 13 | ; XMZ message number
|
|---|
| 14 | ; Optional:
|
|---|
| 15 | ; XMDF If $D(XMDF), then addressing restrictions are ignored.
|
|---|
| 16 | N XMV,XMSUBJ,XMFROM,XMINSTR,XMKN,XMIEN,XMRESP,XMRESPSO,XMPAKMAN,XMSECURE,XMABORT
|
|---|
| 17 | S XMABORT=0
|
|---|
| 18 | D INIT(XMDUZ,XMK,.XMKN,XMZ,.XMSUBJ,.XMFROM,.XMINSTR,.XMIEN,.XMRESPSO,.XMRESP,.XMABORT) Q:XMABORT
|
|---|
| 19 | D REPLY^XMJMR(XMDUZ,.XMK,.XMKN,XMZ,XMSUBJ,XMFROM,.XMINSTR,XMIEN,XMRESPSO,0,XMRESP)
|
|---|
| 20 | Q
|
|---|
| 21 | INIT(XMDUZ,XMK,XMKN,XMZ,XMSUBJ,XMFROM,XMINSTR,XMIEN,XMRESPSO,XMRESP,XMABORT) ;
|
|---|
| 22 | N XMIM,XMIU,XMZREC
|
|---|
| 23 | D INITAPI^XMVVITAE
|
|---|
| 24 | K XMERR,^TMP("XMERR",$J)
|
|---|
| 25 | S XMZREC=^XMB(3.9,XMZ,0)
|
|---|
| 26 | I '$$REPLY^XMXSEC(XMDUZ,XMZ,XMZREC) D SHOW^XMJERR S XMABORT=1 Q
|
|---|
| 27 | I $D(XMDF) S XMINSTR("ADDR FLAGS")="R" ; no addressing restrictions
|
|---|
| 28 | D INMSG^XMXUTIL2(XMDUZ,0,XMZ,XMZREC,"I",.XMIM,.XMINSTR,.XMIU)
|
|---|
| 29 | I $D(XMINSTR("SCR HINT")),'$D(XMSECURE),'$$KEYOK^XMJMCODE(XMZ,XMINSTR("SCR HINT")) S XMABORT=1 Q
|
|---|
| 30 | S XMSUBJ=XMIM("SUBJ")
|
|---|
| 31 | S XMFROM=XMIM("FROM")
|
|---|
| 32 | S XMRESPSO=XMIM("RESPS")
|
|---|
| 33 | S XMIEN=XMIU("IEN")
|
|---|
| 34 | S XMRESP=XMIU("RESP")
|
|---|
| 35 | S XMPAKMAN=$S(XMINSTR("TYPE")["X":1,XMINSTR("TYPE")["K":1,1:0)
|
|---|
| 36 | S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
|
|---|
| 37 | Q
|
|---|
