CREATE PROCEDURE "InsertDocument" (OUT "DocumentID" INTEGER, IN "SiteID" INTEGER,
                                   IN "TypeID" INTEGER, IN "DocDate" DATE,
                                   IN "DateReceived" DATE,
                                   IN "Title" VARCHAR COLLATE ANSI,
                                   IN "Author" VARCHAR COLLATE ANSI,
                                   IN "Recipient" VARCHAR COLLATE ANSI,
                                   IN "StatusID" INTEGER)
BEGIN
  DECLARE Stmt STATEMENT;
  DECLARE TempCursor SENSITIVE CURSOR FOR CursorStmt;

  PREPARE Stmt FROM 'INSERT INTO Documents (DocumentID, TypeID, Date, DateReceived,
Title, Author, Recipient, StatusID) VALUES (?, ?, ?, ?, ?, ?, ?, ?)';

  EXECUTE Stmt USING DocumentID, TypeID, DocDate, DateReceived, Title, Author,
Recipient, StatusID;

  UNPREPARE Stmt;

  -- Now DocumentID should contain the next document ID

  PREPARE CursorStmt FROM 'SELECT * FROM Document2Site WHERE
(DocumentID = ?) AND (SiteID = ?)';

  OPEN TempCursor USING DocumentID, SiteID;

  IF ROWCOUNT(TempCursor) = 0 THEN

     INSERT INTO TempCursor (DocumentID, SiteID) VALUES (DocumentID, SiteID);

  END IF;
END