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