====== pears.NetSetWebReference ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
*/
}
</code>