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

XMBBLOB.m

Go to the documentation of this file.
  1. XMBBLOB ;(WASH ISC)/THM/RWF/CAP-Add BLOBs to Bulletin ;04/17/2002 07:41
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ;Multimedia Bulletin - Add BLOBs
  1. MULTI(XMZ) ;Many BLOBs at a time
  1. N XMBBLOB
  1. F XMYBLOB=0:0 S XMYBLOB=$O(XMYBLOB(XMYBLOB)) Q:'XMYBLOB S X=$$API^XMR0BLOB(XMZ,XMYBLOB(XMYBLOB)) I 'X D ERB(X) S XMBBLOB=$G(XMBBLOB)+1
  1. Q XMBBLOB
  1. ;If BLOB Error
  1. ERB(%,%0,%1) N XMR,XMZ,XMY,XMTEXT,XMSUB,XMDUZ,XMDUN,XMBSAVE
  1. S %X="^TMP(""XMY"",$J,",%Y="^TMP(""XMBSAVE"",$J," D %XY^%RCR
  1. S %X="XMY(",%Y="^TMP(""XMBSAVE"",$J," D %XY^%RCR
  1. S XMDUZ="<MailMan Bulletin API>",XMSUB="BLOB NOT SENT",XMY(%)=""
  1. S XMTEXT="XMTEXT(",XMTEXT(1)="The Bulletin '"_$P(^XMB(3.9,%0,0),U)_"'"
  1. S XMTEXT(2)="was sent without non-textual body parts (BLOBS)."
  1. S XMTEXT(3)="The error returned from the imaging API was: "
  1. S XMTEXT(4)=" "_%1
  1. D ^XMD
  1. S %Y="^TMP(""XMY"",$J,",%X="^TMP(""XMBSAVE"",$J," D %XY^%RCR
  1. Q 1