pears.GenerateContactEventEmailLog

CREATE PROCEDURE "pears"."GenerateContactEventEmailLog"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "pcontacteventid" CHAR(20),IN "pWhenSent" TIMESTAMP DEFAULT CURRENT TIMESTAMP,IN "pRecipients" long VARCHAR DEFAULT NULL,
  IN "pAttachments" long VARCHAR DEFAULT NULL,IN "pDirection" CHAR(3) DEFAULT 'OUT',IN "pMethod" CHAR(10) DEFAULT 'EMAIL' ) 
BEGIN
  DECLARE "column_not_found" exception FOR sqlstate VALUE '52003';
  INSERT INTO "ContactEventEmailLog"( "ContactEventEmailLogID","ContactEventID","WhenSent","Recipients","Attachments","Direction","Method" ) VALUES
    ( "Uniquekey"("pContactEventID"),"pContactEventID","pWhenSent","pRecipients","pAttachments","pDirection","pMethod" ) 
exception
  WHEN "column_not_found" THEN
    INSERT INTO "ContactEventEmailLog"( "ContactEventEmailLogID","ContactEventID","WhenSent","Recipients","Attachments" ) VALUES
      ( "Uniquekey"("pContactEventID"),"pContactEventID","pWhenSent","pRecipients","pAttachments" ) 
  WHEN others THEN
    resignal
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GenerateContactEventEmailLog" IS 
{CREATE PROCEDURE GenerateContactEventEmailLog 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
( IN "pcontacteventid" CHAR(20) ,  IN"pWhenSent" TIMESTAMP DEFAULT CURRENT TIMESTAMP,IN"pRecipients" long VARCHAR DEFAULT NULL, 
   IN"pAttachments" long VARCHAR DEFAULT NULL, IN "pDirection" CHAR(3) DEFAULT 'OUT',  IN "pMethod" CHAR(10) DEFAULT 'EMAIL' ) 
BEGIN 
DECLARE column_not_found EXCEPTION FOR SQLSTATE '52003';  
	INSERT INTO  ContactEventEmailLog ( ContactEventEmailLogID,ContactEventID,WhenSent,Recipients,Attachments,Direction,Method)  
		VALUES(Uniquekey(pContactEventID),pContactEventID,pWhenSent,pRecipients,pAttachments,pDirection,pMethod);   
	EXCEPTION 
		WHEN column_not_found THEN 
			INSERT INTO  ContactEventEmailLog ( ContactEventEmailLogID,ContactEventID,WhenSent,Recipients,Attachments)  
			VALUES(Uniquekey(pContactEventID),pContactEventID,pWhenSent,pRecipients,pAttachments);  
	WHEN OTHERS THEN    
		RESIGNAL;  
END
}