- 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 Jan 18, 2025@03:12:08 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