XMBBLOB.m

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

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