| 1 | XMJMBULL ;ISC-SF/GMB-Manual Bulletin ;08/08/2000 14:11
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ; Replaces BULL^XMB (ISC-WASH/THM/RWF/CAP)
|
|---|
| 4 | ; Entry points used by MailMan options (not covered by DBIA):
|
|---|
| 5 | ; BULLETIN XMPOST
|
|---|
| 6 | BULLETIN ; Manually post a bulletin
|
|---|
| 7 | N XMBIEN,XMBNAME,XMPARM,XMINSTR,XMABORT
|
|---|
| 8 | S XMABORT=0
|
|---|
| 9 | D WHICH(.XMBIEN,.XMBNAME,.XMABORT) Q:XMABORT
|
|---|
| 10 | D GETPARMS(XMBIEN,.XMPARM,.XMINSTR,.XMABORT) Q:XMABORT
|
|---|
| 11 | D BULLETIN^XMKPO($G(XMDUZ,DUZ),XMBNAME,XMBIEN,.XMPARM,"","",.XMINSTR)
|
|---|
| 12 | Q
|
|---|
| 13 | WHICH(XMBIEN,XMBNAME,XMABORT) ;
|
|---|
| 14 | N DIC
|
|---|
| 15 | S DIC(0)="AEQM",DIC="^XMB(3.6,"
|
|---|
| 16 | D ^DIC I Y=-1 S XMABORT=1 Q
|
|---|
| 17 | S XMBIEN=+Y
|
|---|
| 18 | S XMBNAME=$P(Y,U,2)
|
|---|
| 19 | Q
|
|---|
| 20 | GETPARMS(XMBIEN,XMPARM,XMINSTR,XMABORT) ;
|
|---|
| 21 | N I,XMREC,XMI,DIR,Y,X,DIRUT,XMNOW
|
|---|
| 22 | S I=0
|
|---|
| 23 | F S I=$O(^XMB(3.6,XMBIEN,1,I)) Q:'I D Q:XMABORT
|
|---|
| 24 | . S XMREC=^XMB(3.6,XMBIEN,1,I,0)
|
|---|
| 25 | . W !,XMREC
|
|---|
| 26 | . F Q:XMREC'?.E1"|".N1"|".E D Q:XMABORT
|
|---|
| 27 | . . S XMI=+$P(XMREC,"|",2)
|
|---|
| 28 | . . S XMREC=$P(XMREC,"|",1)_$P(XMREC,"|",3,999)
|
|---|
| 29 | . . I XMI<0!(XMI>100) D Q
|
|---|
| 30 | . . . S XMABORT=1
|
|---|
| 31 | . . . W !,$$EZBLD^DIALOG(34661,XMI) ; '|1|' is not a valid parameter. Aborting!
|
|---|
| 32 | . . Q:$D(XMPARM(XMI))
|
|---|
| 33 | . . S DIR("A")=$$EZBLD^DIALOG(34660,XMI) ; Enter parameter |1|
|
|---|
| 34 | . . S DIR(0)="F^1:30"
|
|---|
| 35 | . . S DIR("??")="^D HELP^XMJMBULL"
|
|---|
| 36 | . . D ^DIR I $D(DIRUT) S XMABORT=1 Q
|
|---|
| 37 | . . S XMPARM(XMI)=Y
|
|---|
| 38 | Q:XMABORT
|
|---|
| 39 | S DIR("A")=$$EZBLD^DIALOG(34662) ; When do you want to send the bulletin?"
|
|---|
| 40 | S XMNOW=$$EZBLD^DIALOG(37007) ; NOW
|
|---|
| 41 | S DIR("B")=XMNOW
|
|---|
| 42 | S DIR(0)="DA^NOW::EFTX"
|
|---|
| 43 | D ^DIR I $D(DIRUT) S XMABORT=1 Q
|
|---|
| 44 | S:X'=XMNOW XMINSTR("LATER")=Y
|
|---|
| 45 | Q
|
|---|
| 46 | HELP ;
|
|---|
| 47 | I '$D(^XMB(3.6,XMBIEN,4,XMI,1,1,0)) Q
|
|---|
| 48 | N I
|
|---|
| 49 | S I=0
|
|---|
| 50 | F S I=$O(^XMB(3.6,XMBIEN,4,XMI,1,I)) Q:'I W !,^(I,0)
|
|---|
| 51 | Q
|
|---|
