212: l_model_type INTEGER;
213: BEGIN
214: -- each node has name ?
215: BEGIN
216: SELECT MODEL_TYPE_NAME_ERR INTO l_model_type FROM cz_ps_nodes
217: WHERE deleted_flag = '0' AND devl_project_id IN
218: (SELECT component_id FROM cz_model_ref_expls
219: WHERE deleted_flag = '0' AND model_id = p_model_id
220: AND (ps_node_type = PS_NODE_TYPE_REFERENCE OR parent_expl_node_id IS NULL))
226:
227: -- 1 pid maps exactly with 1 name ?
228: IF l_model_type = MODEL_TYPE_NORMAL THEN
229: FOR i IN (SELECT persistent_node_id, COUNT(distinct name)
230: FROM cz_ps_nodes
231: WHERE deleted_flag = '0' AND devl_project_id IN
232: (SELECT component_id FROM cz_model_ref_expls
233: WHERE deleted_flag = '0' AND model_id = p_model_id
234: AND (ps_node_type = PS_NODE_TYPE_REFERENCE OR
258: l_cmt_rec_count PLS_INTEGER;
259: l_ndebug PLS_INTEGER;
260: l_msg VARCHAR2(1000);
261: TYPE num_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
262: TYPE name_tbl_type IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY BINARY_INTEGER;
263: TYPE name_tbl_type_idx_vc2 IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY VARCHAR2(15);
264: TYPE complex_num_tbl_type IS TABLE OF num_tbl_type_index_vc2 INDEX BY VARCHAR2(15);
265: TYPE complex_name_tbl_type IS TABLE OF name_tbl_type_idx_vc2 INDEX BY VARCHAR2(15);
266:
259: l_ndebug PLS_INTEGER;
260: l_msg VARCHAR2(1000);
261: TYPE num_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
262: TYPE name_tbl_type IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY BINARY_INTEGER;
263: TYPE name_tbl_type_idx_vc2 IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY VARCHAR2(15);
264: TYPE complex_num_tbl_type IS TABLE OF num_tbl_type_index_vc2 INDEX BY VARCHAR2(15);
265: TYPE complex_name_tbl_type IS TABLE OF name_tbl_type_idx_vc2 INDEX BY VARCHAR2(15);
266:
267: l_hdr_tbl num_tbl_type;
288: PROCEDURE create_maps(p_model_id IN NUMBER)
289: IS
290: BEGIN
291: FOR i IN (SELECT devl_project_id, persistent_node_id, name, ps_node_type, reference_id
292: FROM cz_ps_nodes
293: WHERE deleted_flag = '0' AND devl_project_id in
294: (SELECT component_id FROM cz_model_ref_expls
295: WHERE deleted_flag = '0' AND model_id = p_model_id
296: AND (ps_node_type = PS_NODE_TYPE_REFERENCE OR parent_expl_node_id IS NULL)))
387: IF l_model_type = MODEL_TYPE_NORMAL THEN
388: l_ndebug := 4;
389: UPDATE cz_config_items item
390: SET ps_node_name =
391: (SELECT name FROM cz_ps_nodes psn
392: WHERE deleted_flag = '0' AND persistent_node_id = item.ps_node_id
393: AND EXISTS (SELECT 1 FROM cz_model_ref_expls
394: WHERE deleted_flag = '0' AND model_id = l_model_id
395: AND (ps_node_type = PS_NODE_TYPE_REFERENCE OR parent_expl_node_id IS NULL)