ENVX/oper
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Primer Commit

Browse Source
This commit is contained in:
luquitas
2023-06-08 11:55:59 -03:00
commit a269361962
432 changed files with 203156 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
DB/FUNCTIONS/FNC_IDM_GROUPS.sql Normal file
View File

@@ -0,0 +1,94 @@
--------------------------------------------------------
-- DDL for Function FNC_IDM_GROUPS
--------------------------------------------------------
CREATE OR REPLACE EDITIONABLE FUNCTION "ENVX_OPER"."FNC_IDM_GROUPS" (
pi_group_list IN CLOB
) RETURN CLOB AS
v_input_string VARCHAR2(4000) := pi_group_list;
v_output_json CLOB := '';
v_domain_table sys.odcivarchar2list;
v_json_obj json;
v_domain_name VARCHAR2(100) := '';
v_domain_aux VARCHAR2(100) := '';
v_group_name VARCHAR2(100) := '';
v_element NUMBER := 1;
BEGIN
IF pi_group_list IS NULL THEN
RETURN NULL;
ELSE
-- Parse comma-separated string into a table
v_domain_table := sys.odcivarchar2list();
v_domain_table.extend(regexp_count(
v_input_string,
','
) + 1);
v_output_json := '{';
FOR i IN 1..v_domain_table.count LOOP
v_domain_table(i) := regexp_substr(
v_input_string,
'[^,]+',
1,
i
);
v_domain_name := replace(
nvl(
regexp_substr(
v_domain_table(i),
'(.+)(\/)',
1,
1
),
'others'
),
'/',
''
);
v_group_name := regexp_substr(
v_domain_table(i),
'(.+\/)?(.+)',
1,
1,
NULL,
2
);
IF v_domain_aux IS NULL THEN
v_output_json := v_output_json
|| '"'
|| v_domain_name
|| '":[';
v_domain_aux := v_domain_name;
ELSIF v_domain_aux != v_domain_name THEN
v_output_json := v_output_json
|| '],"'
|| v_domain_name
|| '":[';
v_domain_aux := v_domain_name;
v_element := 1;
END IF;
v_output_json := v_output_json
|| (
CASE
WHEN v_element != 1 THEN
','
ELSE ''
END
)
|| '"'
|| v_group_name
|| '"';
v_element := v_element + 1;
END LOOP;
v_output_json := v_output_json || ']}';
RETURN v_output_json;
END IF;
EXCEPTION
WHEN OTHERS THEN
RETURN NULL;
END;
/