pears.NetAgencyVacancyNotesUpdate

CREATE PROCEDURE "pears"."NetAgencyVacancyNotesUpdate"( IN "pWebUserID" CHAR(20),IN "pLineID" CHAR(21),IN "pNote" long VARCHAR ) 
RESULT( "pResult" CHAR(255) ) 
BEGIN
  DECLARE "LineType" CHAR(1);
  DECLARE "LineID" CHAR(20);
  SET "LineType" = "left"("pLineID",1);
  SET "LineID" = "right"("pLineID",20);
  IF "length"("pNote") > 50 THEN
    SELECT '99:~the Note is too long. It has been limited to 50 characters';
    RETURN
  END IF;
  CASE "LineType"
  WHEN 'V' THEN
    UPDATE "vacancy" SET "othernotes" = "pNote" WHERE "vacancyid" = "LineID"
  WHEN 'P' THEN
    UPDATE "tempshiftplan" SET "clientnote" = "pNote" WHERE "tempshiftplanid" = "LineID"
  END CASE;
  SELECT '0:~success'
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetAgencyVacancyNotesUpdate" IS 
{CREATE PROCEDURE pears."NetAgencyVacancyNotesUpdate"(IN pWebUserID CHAR(20), IN pLineID CHAR(21), IN pNote long VARCHAR)
RESULT(pResult CHAR(255))
BEGIN
	DECLARE LineType CHAR(1);
    DECLARE LineID CHAR(20);
    SET LineType=LEFT(pLineID,1);
    SET LineID = RIGHT(pLineID,20);
    IF LENGTH(pNote) > 50 THEN
        SELECT '99:~the Note is too long. It has been limited to 50 characters';
        RETURN;
    END IF;
    CASE LineType
        WHEN 'V' THEN 
            UPDATE vacancy SET othernotes=pNote WHERE vacancyid=LineID;
        WHEN 'P' THEN
            UPDATE tempshiftplan SET clientnote=pNote WHERE tempshiftplanid=LineID;
    END CASE;
    SELECT '0:~success';
END
}