pears.RequestEmailStaffNotification

CREATE PROCEDURE "pears"."RequestEmailStaffNotification"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "pTopic" CHAR(50),IN "pBody" long VARCHAR,IN "pHyperLink" CHAR(100),IN "pDepartmentID" CHAR(2) DEFAULT NULL,IN "pDivisionID" CHAR(20) DEFAULT NULL ) 
BEGIN
  IF EXISTS(SELECT "topic" FROM "EmailStaffNotificationAddress" WHERE "topic" = "ptopic"
      AND("departmentid" = "pdepartmentid" OR "departmentid" IS NULL) AND("divisionid" = "pdivisionid" OR "divisionid" IS NULL)) THEN
    INSERT INTO "EmailStaffNotification"( "id","topic","body","hyperlink","departmentid","divisionid","requested" ) VALUES
      ( "uniquekey"('x'),"pTopic","pBody","pHyperLink","pDepartmentID","pDivisionID",CURRENT TIMESTAMP ) 
  END IF
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."RequestEmailStaffNotification" IS 
{CREATE PROCEDURE RequestEmailStaffNotification 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
( IN pTopic CHAR(50),IN pBody long VARCHAR,IN pHyperLink CHAR(100),IN pDepartmentID CHAR(2) DEFAULT NULL,IN pDivisionID CHAR(20) DEFAULT NULL ) 
BEGIN
  IF EXISTS(SELECT topic FROM EmailStaffNotificationAddress WHERE topic = ptopic
      AND(departmentid = pdepartmentid OR departmentid IS NULL) AND(divisionid = pdivisionid OR divisionid IS NULL)) THEN
    INSERT INTO EmailStaffNotification( id,topic,body,hyperlink,departmentid,divisionid,requested ) VALUES
      ( uniquekey('x'),pTopic,pBody,pHyperLink,pDepartmentID,pDivisionID,CURRENT TIMESTAMP ) 
  END IF
END
}