Data preview on Intermediate nodes of a CV in HANA cloud/On-premise

Going via Firefighter process is fine for production system but for Quality system, it is an heavy process as developers may need such privileges in their daily activity.
Also, in my company, we have setup an alternative solution that consists on creating a RO_DataPreviewOnNodes empty role in each hdi containers. There is then a regular job running in quality only that grants the required privileges to those role. This way, developers can get required authorizations only for the containers they are responsible for and not for all containers as it would be the case with Firefighter.
Here is the coding of the procedure doing the job:

PROCEDURE "hdi_api.all_hdi::SP_RefreshDataPreviewOnNodesRoles"(
  OUT RETURN_CODE INT,
  OUT REQUEST_ID  BIGINT,
  OUT MESSAGES_ALL    "hdi_api::TT_MESSAGES"
)
   LANGUAGE SQLSCRIPT
   SQL SECURITY DEFINER
   AS
BEGIN
	DECLARE MESSAGES    "hdi_api::TT_MESSAGES";
	DECLARE VAR_PRIVILEGES "hdi_api::TT_API_PRIVILEGES";
	DECLARE VAR_T_NO_PARAMETERS TABLE LIKE "__SYS_DI.T_NO_PARAMETERS";
	DECLARE CURSOR C_APIS FOR 
		SELECT 'EXECUTE' "PRIVILEGE_NAME", 'MAKE' "OBJECT_NAME" from "SYS.DUMMY"
		UNION
		SELECT 'EXECUTE' "PRIVILEGE_NAME", 'WRITE' "OBJECT_NAME" from "SYS.DUMMY"
		UNION
		SELECT 'EXECUTE' "PRIVILEGE_NAME", 'GRANT_CONTAINER_SCHEMA_PRIVILEGES' "OBJECT_NAME" from "SYS.DUMMY";
	DECLARE CURSOR C_PRIVILEGES FOR 
		SELECT 'EXECUTE' "PRIVILEGE_NAME", 'SYS' "SCHEMA_NAME", 'CREATE_INTERMEDIATE_CALCULATION_VIEW_DEV' "OBJECT_NAME" from "SYS.DUMMY"
		UNION
		SELECT 'EXECUTE' "PRIVILEGE_NAME", 'SYS' "SCHEMA_NAME", 'DROP_INTERMEDIATE_CALCULATION_VIEW_DEV' "OBJECT_NAME" from "SYS.DUMMY";
	DECLARE CURSOR C_COUNTAINERS (v_PRIVILEGE_NAME VARCHAR(256), v_OBJECT_NAME VARCHAR(256)) FOR 
		SELECT "ROLE_SCHEMA_NAME" FROM "SYS.ROLES" "A"
		LEFT OUTER JOIN "SYS.GRANTED_PRIVILEGES" "B"
		ON "A"."ROLE_SCHEMA_NAME"||'#DI'="B"."SCHEMA_NAME"
		AND "B"."OBJECT_NAME" = :v_OBJECT_NAME
		AND "A"."ROLE_NAME"="B"."GRANTEE"
		AND "B"."GRANTEE_SCHEMA_NAME" =  "A"."ROLE_SCHEMA_NAME"
		AND "B"."PRIVILEGE" = :v_PRIVILEGE_NAME
		WHERE "B"."PRIVILEGE" IS NULL
		AND "A"."ROLE_NAME" = 'RO_DataPreviewOnNodes';
	DECLARE CURSOR C_COUNTAINERS_PRIVILEGE (v_PRIVILEGE_NAME VARCHAR(256), v_SCHEMA_NAME VARCHAR(256), v_OBJECT_NAME VARCHAR(256)) FOR 
		SELECT "ROLE_SCHEMA_NAME" FROM "SYS.ROLES" "A"
		LEFT OUTER JOIN "SYS.GRANTED_PRIVILEGES" "B"
			ON "A"."ROLE_NAME"="B"."GRANTEE"
			AND "B"."GRANTEE_SCHEMA_NAME" =  "A"."ROLE_SCHEMA_NAME"
			AND "B"."SCHEMA_NAME" = :v_SCHEMA_NAME
			AND "B"."OBJECT_NAME" = :v_OBJECT_NAME
			AND "B"."PRIVILEGE" = :v_PRIVILEGE_NAME
		WHERE "B"."PRIVILEGE" IS NULL
			AND "A"."ROLE_NAME" = 'RO_DataPreviewOnNodes';
	CREATE LOCAL TEMPORARY COLUMN TABLE #PRIVILEGES LIKE "hdi_api::TT_API_PRIVILEGES";
	VAR_T_NO_PARAMETERS = select * from "__SYS_DI.T_NO_PARAMETERS";
	FOR API AS C_APIS DO
		FOR COUNTAINER AS C_COUNTAINERS(API.PRIVILEGE_NAME, API.OBJECT_NAME) DO
			INSERT INTO #PRIVILEGES (PRINCIPAL_SCHEMA_NAME,PRINCIPAL_NAME, PRIVILEGE_NAME, OBJECT_NAME) SELECT COUNTAINER.ROLE_SCHEMA_NAME, 'RO_DataPreviewOnNodes', API.PRIVILEGE_NAME, API.OBJECT_NAME from "SYS.DUMMY";
			VAR_PRIVILEGES = select * from  #PRIVILEGES;
			CALL "__SYS_DI#SYS_XS_HANA_BROKER.GRANT_CONTAINER_API_PRIVILEGES"(COUNTAINER.ROLE_SCHEMA_NAME, :VAR_PRIVILEGES, :VAR_T_NO_PARAMETERS, RETURN_CODE, REQUEST_ID, MESSAGES); 
			MESSAGES_ALL = select * from :MESSAGES_ALL union all select * from :MESSAGES;
			TRUNCATE TABLE #PRIVILEGES;
		END FOR;
	END FOR;
	DROP TABLE #PRIVILEGES;
	IF RETURN_CODE IS NULL THEN 
		RETURN_CODE=0;
		REQUEST_ID=0;
	END IF;
	FOR V_PRIVILEGE AS C_PRIVILEGES DO
		FOR V_COUNTAINER_PRIVILEGE AS C_COUNTAINERS_PRIVILEGE(V_PRIVILEGE.PRIVILEGE_NAME, V_PRIVILEGE.SCHEMA_NAME, V_PRIVILEGE.OBJECT_NAME) DO
			EXECUTE IMMEDIATE 'GRANT ' || V_PRIVILEGE.PRIVILEGE_NAME || ' ON ' ||  V_PRIVILEGE.SCHEMA_NAME || '.' || V_PRIVILEGE.OBJECT_NAME || ' TO "' || V_COUNTAINER_PRIVILEGE.ROLE_SCHEMA_NAME || '"."RO_DataPreviewOnNodes";';
		END FOR;
	END FOR;
END