pears.NetOwnerSettingsSaveRightsAssigned [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.NetOwnerSettingsSaveRightsAssigned ======
<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"."NetOwnerSettingsSaveRightsAssigned"( in "pWebUserID" char(20),in "rightID" char(50),in "userID" char(20),in "newValue" integer ) 
result( "pResult" char(255) ) 
begin
  if "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 then
    select '99:~Permission denied'
  else
    delete from "IQXNetRightAssigned" where "IQXNetUserID" = "userID" and "IQXNetRightID" = "rightID";
    if not "newValue" = 0 then
      insert into "IQXNetRightAssigned" values
        ( "userID","rightID","newValue" ) 
    end if;
    select '0:~Success'
  end if
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerSettingsSaveRightsAssigned" IS 
{create PROCEDURE pears."NetOwnerSettingsSaveRightsAssigned"( in "pWebUserID" char(20), in "rightID" char(50), in "userID" char(20), in "newValue" integer) 
result(pResult char(255) )
BEGIN
    if "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 then
        select '99:~Permission denied';
    else
        delete from IQXNetRightAssigned where IQXNetUserID = userID and IQXNetRightID = rightID;
        if not "newValue" = 0 then
            insert into IQXNetRightAssigned
            values(userID, rightID, newValue)
        end if;
        select '0:~Success';
    end if;
END
}
</code>