pears.NetOwnerSettingsGetRightAssigned

CREATE PROCEDURE "pears"."NetOwnerSettingsGetRightAssigned"( IN "pWebUserID" CHAR(20) ) 
RESULT( "userID" CHAR(255),"rightID" CHAR(255),"value" INTEGER,"userName" CHAR(255),"loginID" CHAR(255),"userClass" CHAR(255) ) 
BEGIN
  IF NOT "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
    SELECT "IQXNetRightAssigned"."IQXNetUserID" AS "userID",
      "IQXNetRightID" AS "rightID",
      "assigned" AS "value",
      "name",
      "loginID",
      "IQXNetUserClassID" AS "userClass"
      FROM "IQXNetRightAssigned"
        LEFT OUTER JOIN "IQXNetUser"
        ON "IQXNetRightAssigned"."IQXNetUserID" = "IQXNetUser"."IQXNetUserID"
      ORDER BY "loginID" ASC
  ELSE
    SELECT '99:~Permission denied','','','','',''
  END IF
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerSettingsGetRightAssigned" IS 
{CREATE PROCEDURE pears."NetOwnerSettingsGetRightAssigned"( IN "pWebUserID" CHAR(20))
RESULT( userID CHAR(255), rightID CHAR(255), VALUE INTEGER, userName CHAR(255), loginID CHAR(255), userClass CHAR(255))
BEGIN
    IF NOT "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
        SELECT  IQXNetRightAssigned.IQXNetUserID AS userID
                ,IQXNetRightID AS rightID
                ,assigned AS VALUE
                ,"name"
                ,loginID
                ,IQXNetUserClassID AS userClass
            FROM IQXNetRightAssigned
                LEFT JOIN IQXNetUser 
                    ON IQXNetRightAssigned.IQXNetUserID = IQXNetUser.IQXNetUserID
            ORDER BY loginID
    ELSE
        SELECT '99:~Permission denied', '', '', '', '', '';
    END IF;
END
}