pears.NetSetWebReference

CREATE PROCEDURE "pears"."NetSetWebReference"( 
  IN "pWebUserID" CHAR(20),
  IN "pPersonID" CHAR(20),
  IN "pDepartmentID" CHAR(2),
  IN "pRefereeAddressName" CHAR(60),
  IN "pRefereeSalutation" CHAR(60) DEFAULT NULL,
  IN "pRefereePosition" CHAR(40),
  IN "pCompanyName" CHAR(60),
  IN "pAddr1" CHAR(40) DEFAULT NULL,
  IN "pAddr2" CHAR(40) DEFAULT NULL,
  IN "pAddr3" CHAR(40) DEFAULT NULL,
  IN "pTown" CHAR(30) DEFAULT NULL,
  IN "pCounty" CHAR(30) DEFAULT NULL,
  IN "pCountry" CHAR(30) DEFAULT NULL,
  IN "pPostCode" CHAR(20) DEFAULT NULL,
  IN "pHomePhone" CHAR(100) DEFAULT NULL,
  IN "pWorkPhone" CHAR(100) DEFAULT NULL,
  IN "pMobilePhone" CHAR(100) DEFAULT NULL,
  IN "pFax" CHAR(100) DEFAULT NULL,
  IN "pEmail" CHAR(250),
  IN "pPosition" CHAR(100),
  IN "pURLRequestCode" CHAR(250),
  IN "pStartDate" CHAR(50),
  IN "pEndDate" CHAR(50) ) 
RESULT( "pResult" CHAR(250) ) 
BEGIN
  INSERT INTO "ReferenceRequest"
    ( "ReferenceRequestID",
    "PersonID",
    "DepartmentID",
    "RefereeAddressName",
    "RefereeSalutation",
    "RefereePosition",
    "CompanyName",
    "Keyname",
    "Addr1",
    "Addr2",
    "Addr3",
    "Town",
    "County",
    "Country",
    "PostCode",
    "HomePhone",
    "WorkPhone",
    "MobilePhone",
    "Fax",
    "Email",
    "Position",
    "URLRequestCode",
    "StaffID",
    "StartDate",
    "EndDate",
    "ReferenceConfirmationRequired" ) VALUES
    ( "uniquekey"(''),
    "pPersonID",
    "pDepartmentID",
    "pRefereeAddressName",
    "pRefereeSalutation",
    "pRefereePosition",
    "pCompanyName",
    '',
    "pAddr1",
    "pAddr2",
    "pAddr3",
    "pTown",
    "pCounty",
    "pCountry",
    "pPostCode",
    "pHomePhone",
    "pWorkPhone",
    "pMobilePhone",
    "pFax",
    "pEmail",
    "pPosition",
    "pURLRequestCode",
    (SELECT "DefaultStaffID" FROM "IQXNETSETTINGS" WHERE "IQXNetSettingsID" = 'DEFAULT'),
    "iqxnetstringtodate"("pStartDate"),
    "iqxnetstringtodate"("pEndDate"),
    0 ) ;
  SELECT '0:~Success'
END /* DOC
2020-07-06 GJ Created
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetSetWebReference" IS 
{CREATE PROCEDURE pears."NetSetWebReference"( 
    IN pWebUserID CHAR(20),
	IN pPersonID CHAR(20),
	IN pDepartmentID CHAR(2),
	IN pRefereeAddressName CHAR(60),
	IN pRefereeSalutation CHAR(60) DEFAULT NULL,
	IN pRefereePosition CHAR(40),
	IN pCompanyName CHAR(60),
	IN pAddr1 CHAR(40) DEFAULT NULL,
	IN pAddr2 CHAR(40) DEFAULT NULL,
	IN pAddr3 CHAR(40) DEFAULT NULL,
	IN pTown CHAR(30) DEFAULT NULL,
	IN pCounty CHAR(30) DEFAULT NULL,
	IN pCountry CHAR(30) DEFAULT NULL,
	IN pPostCode CHAR(20) DEFAULT NULL,
	IN pHomePhone CHAR(100) DEFAULT NULL,
	IN pWorkPhone CHAR(100) DEFAULT NULL,
	IN pMobilePhone CHAR(100) DEFAULT NULL,
	IN pFax CHAR(100) DEFAULT NULL,
	IN pEmail CHAR(250),
	IN pPosition CHAR(100),
	IN pURLRequestCode CHAR(250),
	IN pStartDate CHAR(50),
	IN pEndDate CHAR(50)
) 
RESULT( pResult CHAR(250) ) 
BEGIN
 
    INSERT INTO ReferenceRequest(
        ReferenceRequestID,
        PersonID,
        DepartmentID,
        RefereeAddressName,
        RefereeSalutation,
        RefereePosition,
        CompanyName,
        Keyname,
        Addr1,
        Addr2,
        Addr3,
        Town,
        County,
        Country,
        PostCode,
        HomePhone,
        WorkPhone,
        MobilePhone,
        Fax,
        Email,
        POSITION,
        URLRequestCode,
        StaffID,
        StartDate,
        EndDate,
        ReferenceConfirmationRequired
    ) VALUES (
        uniquekey(''),
        pPersonID,
        pDepartmentID,
        pRefereeAddressName,
        pRefereeSalutation,
        pRefereePosition,
        pCompanyName,
        '',
        pAddr1,
        pAddr2,
        pAddr3,
        pTown,
        pCounty,
        pCountry,
        pPostCode,
        pHomePhone,
        pWorkPhone,
        pMobilePhone,
        pFax,
        pEmail,
        pPosition,
        pURLRequestCode,
        (SELECT DefaultStaffID FROM IQXNETSETTINGS WHERE IQXNetSettingsID = 'DEFAULT'),
        iqxnetstringtodate(pStartDate),
        iqxnetstringtodate(pEndDate),
        0
    );
    SELECT '0:~Success';
END
 
/* DOC
2020-07-06 GJ Created
*/
}