source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMAH1.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1XMAH1 ;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 ;
9ENTA ; 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
21INIT(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
Note: See TracBrowser for help on using the repository browser.