| [613] | 1 | XMKPO ;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
|
|---|
| 5 | DEVICE(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
|
|---|
| 14 | SERVER(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
|
|---|
| 25 | BULLETIN(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
|
|---|
