source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMKPO.m@ 701

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1XMKPO ;ISC-SF/GMB-Post, other ;04/11/2002 07:08
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Replaces ^XMBPOST and the first part of ^XMS1 (ISC-WASH/THM/RWF/CAP)
4 ; Schedule a task to deliver bulletin, server, device
5DEVICE(XMDUZ,XMZ,XMDEVICE,XMDVIENS,XMPRTHDR) ; For D.Device or H.Device
6 N I,ZTRTN,ZTDESC,ZTSAVE,ZTDTH,ZTSK,ZTIO
7 F I="XMDUZ","XMZ","XMDVIENS","XMPRTHDR" S ZTSAVE(I)=""
8 S ZTIO=$P(XMDEVICE,".",2,99)
9 S ZTDTH=$H
10 S ZTRTN="DEVICE^XMTDO"
11 S ZTDESC=$$EZBLD^DIALOG(42001,XMDEVICE) ; MailMan: To Device |1|
12 D ^%ZTLOAD ; Schedule Task
13 Q
14SERVER(XMZ,XMSERVER,XMSVIENS) ; For S.Server
15 N I,ZTRTN,ZTDESC,ZTSAVE,ZTDTH,ZTSK,ZTIO
16 D SETSTAT^XMTDO(XMSVIENS,$$EZBLD^DIALOG(42002.1)) ; Setting up server task
17 F I="XMZ","XMSERVER","XMSVIENS" S ZTSAVE(I)=""
18 S ZTDTH=$H
19 S ZTRTN="SERVER^XMTDO"
20 S ZTDESC=$$EZBLD^DIALOG(42002,XMSERVER) ; MailMan: To Server |1|
21 S ZTIO=""
22 D ^%ZTLOAD ; Schedule Task
23 D SETSTAT^XMTDO(XMSVIENS,$$EZBLD^DIALOG(42002.2,$G(ZTSK))) ; Server task #: |1|
24 Q
25BULLETIN(XMDUZ,XMBNAME,XMBIEN,XMPARM,XMBODY,XMTO,XMINSTR,ZTSK,XMATTACH) ;
26 N I,XMB,ZTRTN,ZTDESC,ZTSAVE,ZTDTH,ZTIO
27 I $G(XMBODY)'="",$D(@XMBODY)>9 D
28 . S ZTSAVE("XMBODY")=""
29 . S ZTSAVE($$OREF^DILF(XMBODY))=""
30 F I="XMDUZ","XMBIEN","XMPARM(","XMTO","XMTO(","XMINSTR(","XMATTACH(" S ZTSAVE(I)=""
31 I $G(XMINSTR("ADDR FLAGS"))["I" F I="^TMP(""XMY"",$J,","^TMP(""XMY0"",$J," S ZTSAVE(I)=""
32 I $D(XMINSTR("LATER")) S ZTDTH=$$FMTH^XLFDT(XMINSTR("LATER"))
33 E S ZTDTH=$H
34 S ZTRTN="TASK^XMXBULL"
35 S ZTDESC=$$EZBLD^DIALOG(42003,XMBNAME) ; MailMan: Bulletin |1|
36 S ZTIO=""
37 D ^%ZTLOAD ; Schedule Task
38 Q
Note: See TracBrowser for help on using the repository browser.