pears.NetCreateAvailabilityContactEvent

CREATE PROCEDURE "pears"."NetCreateAvailabilityContactEvent"( 
  IN "pWebUserID" CHAR(20) DEFAULT NULL,
  IN "MessageText" long VARCHAR ) 
RESULT( 
  "result" CHAR(50) ) 
// iqxWEB
BEGIN
  DECLARE @PersonID CHAR(20);
  DECLARE @ClassCode CHAR(20);
  SET @PersonID = "NetCandidateValidPersonID"("pWebUserID");
  SET @ClassCode = (SELECT "WPKMaintainGetSwitchValue"('AVAILCHECKCONTEVENT','','L'));
  INSERT INTO "contactevent"( "contacteventid","personid","staffid","contactdate","contacttime","description","classcode","who","notes","DivisionID" ) VALUES
    ( "uniquekey"(@PersonID),
    @PersonID,
    "userstaffid",
    CURRENT DATE,
    CURRENT TIME,
    (IF "len"("MessageText") >= 20 THEN "left"("MessageText",20)+'...' ELSE "MessageText" endif),
    @ClassCode,
    'A',
    "MessageText",
    (SELECT "DivisionID" FROM "staff" WHERE "staffid" = "userstaffid") ) ;
  SELECT '0:~success'
END /* DOC
2020-03-16 GJ Added auto contact even creation when adding availability.
 
Creates contact events
*/
/* TEST
 
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetCreateAvailabilityContactEvent" IS 
{CREATE PROCEDURE pears."NetCreateAvailabilityContactEvent"( 
    IN "pWebUserID" CHAR(20) DEFAULT NULL, 
    IN MessageText LONG VARCHAR
) 
RESULT( 
    "result" CHAR(50)
) 
// iqxWEB
BEGIN
    DECLARE @PersonID CHAR(20);
    DECLARE @ClassCode CHAR(20);
 
    SET @PersonID=NetCandidateValidPersonID(pWebUserID);
    SET @ClassCode=(SELECT WPKMaintainGetSwitchValue('AVAILCHECKCONTEVENT', '', 'L'));
 
    INSERT INTO contactevent (contacteventid, personid, staffid, contactdate, contacttime, description, classcode, who, notes, DivisionID)
        VALUES (
            uniquekey(@PersonID),
            @PersonID,
            userstaffid ,
            CURRENT DATE,
            CURRENT TIME,
            (IF len(MessageText)>=20 THEN LEFT(MessageText, 20) + '...' ELSE MessageText END IF),
            @ClassCode,
            'A',
            MessageText,
            (SELECT DivisionID FROM staff WHERE staffid = userstaffid)
        );
    SELECT '0:~success';
END
 
/* DOC
2020-03-16 GJ Added auto contact even creation when adding availability.
 
Creates contact events
*/
 
/* TEST
 
*/
}