source: FOIAVistA/tag/r/MAILMAN-XM/XMJMBULL.m@ 1746

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1XMJMBULL ;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
6BULLETIN ; 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
13WHICH(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
20GETPARMS(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
46HELP ;
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
Note: See TracBrowser for help on using the repository browser.