Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMJMBULL

XMJMBULL.m

Go to the documentation of this file.
  1. XMJMBULL ;ISC-SF/GMB-Manual Bulletin ;08/08/2000 14:11
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Replaces BULL^XMB (ISC-WASH/THM/RWF/CAP)
  1. ; Entry points used by MailMan options (not covered by DBIA):
  1. ; BULLETIN XMPOST
  1. BULLETIN ; Manually post a bulletin
  1. N XMBIEN,XMBNAME,XMPARM,XMINSTR,XMABORT
  1. S XMABORT=0
  1. D WHICH(.XMBIEN,.XMBNAME,.XMABORT) Q:XMABORT
  1. D GETPARMS(XMBIEN,.XMPARM,.XMINSTR,.XMABORT) Q:XMABORT
  1. D BULLETIN^XMKPO($G(XMDUZ,DUZ),XMBNAME,XMBIEN,.XMPARM,"","",.XMINSTR)
  1. Q
  1. WHICH(XMBIEN,XMBNAME,XMABORT) ;
  1. N DIC
  1. S DIC(0)="AEQM",DIC="^XMB(3.6,"
  1. D ^DIC I Y=-1 S XMABORT=1 Q
  1. S XMBIEN=+Y
  1. S XMBNAME=$P(Y,U,2)
  1. Q
  1. GETPARMS(XMBIEN,XMPARM,XMINSTR,XMABORT) ;
  1. N I,XMREC,XMI,DIR,Y,X,DIRUT,XMNOW
  1. S I=0
  1. F S I=$O(^XMB(3.6,XMBIEN,1,I)) Q:'I D Q:XMABORT
  1. . S XMREC=^XMB(3.6,XMBIEN,1,I,0)
  1. . W !,XMREC
  1. . F Q:XMREC'?.E1"|".N1"|".E D Q:XMABORT
  1. . . S XMI=+$P(XMREC,"|",2)
  1. . . S XMREC=$P(XMREC,"|",1)_$P(XMREC,"|",3,999)
  1. . . I XMI<0!(XMI>100) D Q
  1. . . . S XMABORT=1
  1. . . . W !,$$EZBLD^DIALOG(34661,XMI) ; '|1|' is not a valid parameter. Aborting!
  1. . . Q:$D(XMPARM(XMI))
  1. . . S DIR("A")=$$EZBLD^DIALOG(34660,XMI) ; Enter parameter |1|
  1. . . S DIR(0)="F^1:30"
  1. . . S DIR("??")="^D HELP^XMJMBULL"
  1. . . D ^DIR I $D(DIRUT) S XMABORT=1 Q
  1. . . S XMPARM(XMI)=Y
  1. Q:XMABORT
  1. S DIR("A")=$$EZBLD^DIALOG(34662) ; When do you want to send the bulletin?"
  1. S XMNOW=$$EZBLD^DIALOG(37007) ; NOW
  1. S DIR("B")=XMNOW
  1. S DIR(0)="DA^NOW::EFTX"
  1. D ^DIR I $D(DIRUT) S XMABORT=1 Q
  1. S:X'=XMNOW XMINSTR("LATER")=Y
  1. Q
  1. HELP ;
  1. I '$D(^XMB(3.6,XMBIEN,4,XMI,1,1,0)) Q
  1. N I
  1. S I=0
  1. F S I=$O(^XMB(3.6,XMBIEN,4,XMI,1,I)) Q:'I W !,^(I,0)
  1. Q