pears.NetClientRequirementSiteDetailsUpdate [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.NetClientRequirementSiteDetailsUpdate ======
<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"."NetClientRequirementSiteDetailsUpdate"( 
  in "pWebUserID" char(20),
  in "pRole" char(35),
  in "pSiteName" char(50),
  in "pSiteContact" char(100),
  in "paddr1" char(40),
  in "paddr2" char(40),
  in "paddr3" char(40),
  in "ptown" char(30),
  in "pcounty" char(30),
  in "pcountry" char(30),
  in "ppostcode" char(20),
  in "pSitePhoneNumbers" char(100),
  in "pSiteFax" char(50),
  in "pSiteEmail" char(100),
  in "pVacancyID" char(20) ) 
result( 
  "result" char(50) ) 
begin
  if "IQXNetHasPermission"("pWebUserID",'ORDERJOBS') = 0 then
    return
  end if;
  update "vacancy"
    set "Role" = "pRole",
    "Sitename" = "pSiteName",
    "SiteContact" = "pSiteContact",
    "addr1" = "paddr1",
    "addr2" = "paddr2",
    "addr3" = "paddr3",
    "town" = "ptown",
    "county" = "pcounty",
    "country" = "pcountry",
    "postcode" = "ppostcode",
    "SitePhoneNumbers" = "pSitePhoneNumbers",
    "SiteFax" = "pSiteFax",
    "SiteEmail" = "pSiteEmail"
    where "vacancyid" = "pVacancyID";
  select '0:~Success'
end /* DOC
28-11-2019 GJ Created IW-1044
*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetClientRequirementSiteDetailsUpdate" IS 
{create PROCEDURE pears."NetClientRequirementSiteDetailsUpdate"( 
    IN pWebUserID CHAR(20),     
    IN pRole CHAR(35),
    IN pSiteName CHAR(50),
    IN pSiteContact CHAR(100),
    IN paddr1 CHAR(40),
    IN paddr2 CHAR(40),
    IN paddr3 CHAR(40),
    IN ptown CHAR(30),
    IN pcounty CHAR(30),
    IN pcountry CHAR(30),
    IN ppostcode CHAR(20),
    IN pSitePhoneNumbers CHAR(100),
    IN pSiteFax CHAR(50),
    IN pSiteEmail CHAR(100),
    IN pVacancyID CHAR(20) 
) 
RESULT( 
    result char(50)
) 
BEGIN
    
    IF IQXNetHasPermission(pWebUserID,'ORDERJOBS') = 0 THEN
        RETURN;
    END IF;
    
    UPDATE vacancy
    SET
        Role = pRole,
        Sitename = pSiteName,
        SiteContact = pSiteContact,
        addr1 = paddr1,
        addr2 = paddr2,
        addr3 = paddr3,
        town = ptown,
        county = pcounty,
        country = pcountry,
        postcode = ppostcode,
        SitePhoneNumbers = pSitePhoneNumbers,
        SiteFax = pSiteFax,
        SiteEmail = pSiteEmail
    WHERE
        vacancyid = pVacancyID;
    
    SELECT '0:~Success'
END
/* DOC
    28-11-2019 GJ Created IW-1044
*/
}
</code>