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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMBBLOB 897 printed Dec 13, 2024@02:11:06 Page 2
XMBBLOB ;(WASH ISC)/THM/RWF/CAP-Add BLOBs to Bulletin ;04/17/2002 07:41
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ;Multimedia Bulletin - Add BLOBs
MULTI(XMZ) ;Many BLOBs at a time
+1 NEW XMBBLOB
+2 FOR XMYBLOB=0:0
SET XMYBLOB=$ORDER(XMYBLOB(XMYBLOB))
if 'XMYBLOB
QUIT
SET X=$$API^XMR0BLOB(XMZ,XMYBLOB(XMYBLOB))
IF 'X
DO ERB(X)
SET XMBBLOB=$GET(XMBBLOB)+1
+3 QUIT XMBBLOB
+4 ;If BLOB Error
ERB(%,%0,%1) NEW XMR,XMZ,XMY,XMTEXT,XMSUB,XMDUZ,XMDUN,XMBSAVE
+1 SET %X="^TMP(""XMY"",$J,"
SET %Y="^TMP(""XMBSAVE"",$J,"
DO %XY^%RCR
+2 SET %X="XMY("
SET %Y="^TMP(""XMBSAVE"",$J,"
DO %XY^%RCR
+3 SET XMDUZ="<MailMan Bulletin API>"
SET XMSUB="BLOB NOT SENT"
SET XMY(%)=""
+4 SET XMTEXT="XMTEXT("
SET XMTEXT(1)="The Bulletin '"_$PIECE(^XMB(3.9,%0,0),U)_"'"
+5 SET XMTEXT(2)="was sent without non-textual body parts (BLOBS)."
+6 SET XMTEXT(3)="The error returned from the imaging API was: "
+7 SET XMTEXT(4)=" "_%1
+8 DO ^XMD
+9 SET %Y="^TMP(""XMY"",$J,"
SET %X="^TMP(""XMBSAVE"",$J,"
DO %XY^%RCR
+10 QUIT 1
