[Home] [Help]
7: G_INTL_TEXT_TYPE CONSTANT VARCHAR2(10) := 'T';
8: G_UI_ACTION_TYPE CONSTANT VARCHAR2(10) := 'A';
9: modelReportRun BOOLEAN := FALSE; -- vsingava: 24-Nov-2008; Bug 7297669
10: mINCREMENT INTEGER:=20;
11: currPSSeqVal CZ_PS_NODES.ps_node_id%TYPE:=0;
12: currentPSNode CZ_PS_NODES.ps_node_id%TYPE:=mINCREMENT;
13:
14: -- FOR MODEL REPORT, storing default seeded data in static data 5404051
15: TYPE tRuleName IS TABLE OF cz_rules.name%TYPE INDEX BY BINARY_INTEGER;
8: G_UI_ACTION_TYPE CONSTANT VARCHAR2(10) := 'A';
9: modelReportRun BOOLEAN := FALSE; -- vsingava: 24-Nov-2008; Bug 7297669
10: mINCREMENT INTEGER:=20;
11: currPSSeqVal CZ_PS_NODES.ps_node_id%TYPE:=0;
12: currentPSNode CZ_PS_NODES.ps_node_id%TYPE:=mINCREMENT;
13:
14: -- FOR MODEL REPORT, storing default seeded data in static data 5404051
15: TYPE tRuleName IS TABLE OF cz_rules.name%TYPE INDEX BY BINARY_INTEGER;
16: TYPE tTemplateToken IS TABLE OF cz_rules.template_token%TYPE INDEX BY BINARY_INTEGER;
69: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
70:
71: PROCEDURE Initialize IS
72: BEGIN
73: SELECT CZ_PS_NODES_S.NEXTVAL INTO currentPSNode FROM dual;
74: currPSSeqVal:=currentPSNode;
75:
76: SELECT TO_NUMBER(value) INTO mINCREMENT FROM cz_db_settings
77: WHERE UPPER(setting_id)=UPPER('OracleSequenceIncr') AND section_name='SCHEMA';
90:
91: IF currentPSNode
93: ELSE
94: SELECT CZ_PS_NODES_S.nextval INTO currPSSeqVal FROM dual;
95: currentPSNode:=currPSSeqVal;
96: END IF;
97: RETURN currentPSNode;
98: END getPSSeqVal;
243: IS
244:
245: TYPE t_checkout_user_tbl IS TABLE OF cz_devl_projects.checkout_user%TYPE INDEX BY BINARY_INTEGER;
246: TYPE number_type_tbl IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
247: TYPE name_tbl IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY BINARY_INTEGER;
248:
249: l_user_name cz_ui_templates.checkout_user%type;
250: l_rp_folder NUMBER;
251: l_rp_model_tbl number_type_tbl;
452: l_depth NUMBER;
453: l_path VARCHAR2(32000);
454: l_full_path VARCHAR2(32000);
455: l_substr VARCHAR2(32000);
456: l_name CZ_PS_NODES.name%TYPE;
457: l_to NUMBER;
458: l_from NUMBER;
459: l_index NUMBER;
460: l_shift NUMBER;
783: l_node_depth NUMBER;
784: l_parent_id NUMBER;
785: l_tree_seq NUMBER;
786: l_index NUMBER;
787: l_name CZ_PS_NODES.name%TYPE;
788: l_virtual_flag VARCHAR2(1);
789:
790: l_ps_nodes_tbl t_int_array_tbl_type_idx_vc2;
791: l_persistent_tbl t_int_array_tbl_type_idx_vc2;
812:
813: -- get the info from the node to be copied
814: SELECT devl_project_id,parent_id,reference_id,component_id,virtual_flag,ps_node_type
815: INTO l_model_id,l_parent_id,l_reference_id,l_component_id,l_virtual_flag,l_ps_node_type
816: FROM CZ_PS_NODES
817: WHERE ps_node_id=p_node_id;
818:
819: -- if not a reference node, get the model_refexpl_id record in model ref expls
820: IF l_reference_id IS NULL THEN
837: -- get the ref expl id and node depth of the destination node in ref expls
838: SELECT model_ref_expl_id,node_depth INTO l_new_pr_expl_id, l_node_depth
839: FROM CZ_MODEL_REF_EXPLS
840: WHERE model_id=l_model_id AND component_id=(SELECT component_id
841: FROM CZ_PS_NODES WHERE ps_node_id = p_new_parent_id) AND referring_node_id IS NULL AND
842: child_model_expl_id IS NULL AND deleted_flag='0';
843:
844: FOR i IN (SELECT ps_node_id, ps_node_type, component_id, persistent_node_id, name FROM CZ_PS_NODES
845: START WITH ps_node_id=p_node_id AND deleted_flag='0'
840: WHERE model_id=l_model_id AND component_id=(SELECT component_id
841: FROM CZ_PS_NODES WHERE ps_node_id = p_new_parent_id) AND referring_node_id IS NULL AND
842: child_model_expl_id IS NULL AND deleted_flag='0';
843:
844: FOR i IN (SELECT ps_node_id, ps_node_type, component_id, persistent_node_id, name FROM CZ_PS_NODES
845: START WITH ps_node_id=p_node_id AND deleted_flag='0'
846: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag='0' AND PRIOR deleted_flag='0')
847: LOOP
848: l_ps_nodes_tbl(i.ps_node_id) := getPSSeqVal;
856: IF l_index IS NULL THEN
857: EXIT;
858: END IF;
859:
860: FOR i IN (SELECT * FROM CZ_PS_NODES
861: WHERE ps_node_id=l_index AND deleted_flag='0')
862: LOOP
863: IF i.ps_node_id=p_node_id THEN
864: l_new_parent_id := p_new_parent_id;
862: LOOP
863: IF i.ps_node_id=p_node_id THEN
864: l_new_parent_id := p_new_parent_id;
865: SELECT NVL(MAX(tree_seq),0) + 1 INTO l_tree_seq
866: FROM cz_ps_nodes
867: WHERE parent_id=p_new_parent_id;
868: ELSE
869: l_new_parent_id := l_ps_nodes_tbl(i.parent_id);
870: l_tree_seq := i.TREE_SEQ;
892: l_new_violation_text_id:=NULL;
893: END IF;
894:
895: IF l_new_parent_id=p_new_parent_id THEN
896: SELECT COUNT(*) INTO l_node_counter FROM CZ_PS_NODES
897: WHERE parent_id=p_new_parent_id AND
898: (name=i.NAME OR name LIKE 'Copy (%) of '||i.NAME) AND deleted_flag='0';
899: IF l_node_counter > 0 THEN
900: l_name := 'Copy ('||TO_CHAR(l_node_counter)||') of '||i.NAME;
904: ELSE
905: l_name := i.NAME;
906: END IF;
907:
908: INSERT INTO CZ_PS_NODES
909: (
910: PS_NODE_ID
911: ,DEVL_PROJECT_ID
912: ,FROM_POPULATOR_ID
1088: IF (l_virtual_flag='1' OR l_virtual_flag IS NULL) AND l_parent_id IS NOT NULL AND l_ps_node_type IN(COMPONENT_TYPE) THEN
1089: FOR i IN(SELECT model_ref_expl_id, node_depth FROM CZ_MODEL_REF_EXPLS
1090: WHERE parent_expl_node_id=l_expl_id AND
1091: (referring_node_id IS NULL AND component_id IN
1092: (SELECT ps_node_id FROM CZ_PS_NODES
1093: START WITH ps_node_id=p_node_id
1094: CONNECT BY PRIOR ps_node_id=parent_id AND
1095: deleted_flag='0' AND PRIOR deleted_flag='0'))
1096: UNION
1096: UNION
1097: SELECT model_ref_expl_id, node_depth FROM CZ_MODEL_REF_EXPLS
1098: WHERE parent_expl_node_id=l_expl_id AND
1099: (referring_node_id IS NOT NULL AND referring_node_id IN
1100: (SELECT ps_node_id FROM CZ_PS_NODES
1101: START WITH ps_node_id=p_node_id
1102: CONNECT BY PRIOR ps_node_id=parent_id AND
1103: deleted_flag='0' AND PRIOR deleted_flag='0')))
1104:
1180: -- cursor to load all participating ps nodes in a expression or CX rule
1181: ------------------------------------------------------------------------
1182: CURSOR l_rule_nodes_csr (iRuleId NUMBER) IS
1183: SELECT DISTINCT e.ps_node_id, p.devl_project_id, e.model_ref_expl_id
1184: FROM cz_expression_nodes e, cz_rules r, cz_ps_nodes p
1185: WHERE e.deleted_flag = '0'
1186: AND r.deleted_flag = '0'
1187: AND p.deleted_flag = '0'
1188: AND p.ps_node_id = e.ps_node_id
1193: -- cursor to load all participating ps nodes in design chart or explicit comp rule
1194: ----------------------------------------------------------------------------------
1195: CURSOR l_rule_nodes_csr2 (iRuleId NUMBER) IS
1196: SELECT DISTINCT f.feature_id, p.devl_project_id, f.model_ref_expl_id
1197: FROM cz_des_chart_features f, cz_rules r, cz_ps_nodes p
1198: WHERE f.deleted_flag = '0'
1199: AND r.deleted_flag = '0'
1200: AND p.deleted_flag = '0'
1201: AND p.ps_node_id = f.feature_id
1221: END IF;
1222:
1223: IF (l_ps_node_type_tbl(l_index) IN (263, 264)) THEN
1224: SELECT model_ref_expl_id INTO l_new_expl_id
1225: FROM cz_model_ref_expls a, cz_ps_nodes b
1226: WHERE a.referring_node_id = l_ps_nodes_tbl(l_index)
1227: AND a.referring_node_id = b.ps_node_id
1228: AND b.devl_project_id = l_model_id
1229: AND a.model_id = l_model_id
1231: AND a.deleted_flag='0'
1232: AND b.deleted_flag='0';
1233: ELSE
1234: SELECT component_id INTO l_new_component_id
1235: FROM cz_ps_nodes
1236: WHERE ps_node_id=l_ps_nodes_tbl(l_index);
1237:
1238: SELECT model_ref_expl_id INTO l_new_expl_id
1239: FROM cz_model_ref_expls a, cz_ps_nodes b
1235: FROM cz_ps_nodes
1236: WHERE ps_node_id=l_ps_nodes_tbl(l_index);
1237:
1238: SELECT model_ref_expl_id INTO l_new_expl_id
1239: FROM cz_model_ref_expls a, cz_ps_nodes b
1240: WHERE a.component_id = b.ps_node_id
1241: AND b.ps_node_id = l_new_component_id
1242: AND b.devl_project_id = l_model_id
1243: AND a.model_id = b.devl_project_id
1251:
1252: IF (l_rule_type_tbl(i) = RULE_TYPE_JAVA_METHOD AND NOT l_ps_nodes_tbl.EXISTS(l_rule_compid_tbl(i))) THEN
1253:
1254: SELECT devl_project_id INTO l_referenced_model_id
1255: FROM cz_ps_nodes
1256: WHERE ps_node_id = l_rule_compid_tbl(i)
1257: AND deleted_flag = '0';
1258:
1259: l_node_found := FALSE;
1891: --
1892: -- first - try to get ps_node_id from the current mode,
1893: -- because in most cases ps node is under the current model
1894: --
1895: SELECT ps_node_id INTO l_component_id FROM CZ_PS_NODES
1896: WHERE devl_project_id=l_devl_project_id AND
1897: persistent_node_id=l_persistent_node_id AND
1898: deleted_flag='0';
1899: EXCEPTION
1913: l_reference_ps_node_id := p.referring_node_id;
1914: END LOOP;
1915:
1916: -- we need to use l_model_ref_expl_id in this case
1917: SELECT ps_node_id INTO l_component_id FROM CZ_PS_NODES
1918: WHERE devl_project_id=
1919: (
1920: SELECT devl_project_id FROM CZ_PS_NODES
1921: WHERE ps_node_id=l_reference_ps_node_id
1916: -- we need to use l_model_ref_expl_id in this case
1917: SELECT ps_node_id INTO l_component_id FROM CZ_PS_NODES
1918: WHERE devl_project_id=
1919: (
1920: SELECT devl_project_id FROM CZ_PS_NODES
1921: WHERE ps_node_id=l_reference_ps_node_id
1922: ) AND
1923: persistent_node_id=l_persistent_node_id AND
1924: deleted_flag='0';
2711: l_model_path VARCHAR2(32000);
2712: l_name VARCHAR2(32000);
2713: BEGIN
2714:
2715: FOR i IN(SELECT NAME FROM CZ_PS_NODES
2716: START WITH ps_node_id=p_ps_node_id AND deleted_flag='0'
2717: CONNECT BY PRIOR parent_id=ps_node_id AND
2718: PRIOR deleted_flag='0' AND deleted_flag='0')
2719: LOOP
2774: BEGIN
2775:
2776: BEGIN
2777: SELECT ps_node_id INTO l_ps_node_id
2778: FROM CZ_PS_NODES
2779: WHERE ps_node_id=p_ps_node_id AND devl_project_id=p_model_id;
2780: EXCEPTION
2781: WHEN NO_DATA_FOUND THEN
2782: NULL;
2845: p_ps_node_id IN NUMBER,
2846: px_model_path OUT NOCOPY VARCHAR2
2847: ) IS
2848:
2849: l_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2850: l_name CZ_PS_NODES.name%TYPE;
2851: l_model_path VARCHAR2(32000);
2852:
2853: BEGIN
2846: px_model_path OUT NOCOPY VARCHAR2
2847: ) IS
2848:
2849: l_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2850: l_name CZ_PS_NODES.name%TYPE;
2851: l_model_path VARCHAR2(32000);
2852:
2853: BEGIN
2854:
2851: l_model_path VARCHAR2(32000);
2852:
2853: BEGIN
2854:
2855: FOR i IN(SELECT parent_id,name FROM CZ_PS_NODES
2856: START WITH ps_node_id=p_ps_node_id AND deleted_flag='0'
2857: CONNECT BY PRIOR parent_id=ps_node_id AND
2858: PRIOR deleted_flag='0' AND deleted_flag='0' AND NVL(virtual_flag,'1')='1')
2859: LOOP
2868: l_ps_node_id := i.parent_id;
2869: END LOOP;
2870:
2871: IF l_ps_node_id IS NOT NULL THEN
2872: SELECT name INTO l_name FROM CZ_PS_NODES
2873: WHERE ps_node_id=l_ps_node_id;
2874:
2875: l_name := set_name_entity(l_name);
2876: l_model_path := l_name||'.'||l_model_path;
2888: (
2889: p_ps_node_id IN NUMBER
2890: ) RETURN VARCHAR2 IS
2891:
2892: l_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2893: l_name CZ_PS_NODES.name%TYPE;
2894: l_model_path VARCHAR2(32000);
2895:
2896: BEGIN
2889: p_ps_node_id IN NUMBER
2890: ) RETURN VARCHAR2 IS
2891:
2892: l_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2893: l_name CZ_PS_NODES.name%TYPE;
2894: l_model_path VARCHAR2(32000);
2895:
2896: BEGIN
2897:
2894: l_model_path VARCHAR2(32000);
2895:
2896: BEGIN
2897:
2898: FOR i IN(SELECT parent_id,name FROM CZ_PS_NODES
2899: START WITH ps_node_id=p_ps_node_id AND deleted_flag='0'
2900: CONNECT BY PRIOR parent_id=ps_node_id AND
2901: PRIOR deleted_flag='0' AND deleted_flag='0' AND NVL(virtual_flag,'1')='1')
2902: LOOP
2911: l_ps_node_id := i.parent_id;
2912: END LOOP;
2913:
2914: IF l_ps_node_id IS NOT NULL THEN
2915: SELECT name INTO l_name FROM CZ_PS_NODES
2916: WHERE ps_node_id=l_ps_node_id;
2917:
2918: l_name := set_name_entity(l_name);
2919: l_model_path := l_name||'.'||l_model_path;
2928: IS
2929: l_model_path VARCHAR2(32000);
2930: l_name VARCHAR2(32000);
2931: BEGIN
2932: FOR i IN (SELECT name, intl_text_id, ps_node_type FROM cz_ps_nodes
2933: START WITH ps_node_id = p_ps_node_id AND deleted_flag='0'
2934: CONNECT BY PRIOR parent_id = ps_node_id AND
2935: PRIOR deleted_flag='0' AND deleted_flag='0') LOOP
2936:
2999: v_intl_text_id NUMBER;
3000: BEGIN
3001:
3002: SELECT ps_node_type, intl_text_id, name INTO v_ps_node_type, v_intl_text_id, v_name
3003: FROM cz_ps_nodes WHERE ps_node_id = p_ps_node_id;
3004:
3005: v_description := v_name;
3006:
3007: IF(v_intl_text_id IS NOT NULL)THEN
3042: v_label_nonbom := NVL(fnd_profile.value_wnps(PROFILE_OPTION_LABEL_NONBOM), OPTION_VALUE_LABEL_NAME);
3043:
3044: BEGIN
3045: SELECT ps_node_id INTO l_ps_node_id
3046: FROM CZ_PS_NODES
3047: WHERE ps_node_id=p_ps_node_id AND devl_project_id=p_model_id;
3048: EXCEPTION
3049: WHEN NO_DATA_FOUND THEN
3050: NULL;
3544: l_model_id_tbl t_num_array_tbl_type;
3545: l_model_name_tbl t_varchar_array_tbl_type;
3546: l_node_name_tbl t_varchar_array_tbl_type;
3547:
3548: l_devl_project_id cz_ps_nodes.devl_project_id%TYPE;
3549: l_name_tbl l_tName;
3550: l_priv VARCHAR2(1) := 'F';
3551:
3552: l_node_type cz_ps_nodes.ps_node_type%TYPE;
3548: l_devl_project_id cz_ps_nodes.devl_project_id%TYPE;
3549: l_name_tbl l_tName;
3550: l_priv VARCHAR2(1) := 'F';
3551:
3552: l_node_type cz_ps_nodes.ps_node_type%TYPE;
3553: l_feature_type cz_ps_nodes.feature_type%TYPE;
3554: l_vf cz_ps_nodes.virtual_flag%TYPE;
3555: l_parent_id cz_ps_nodes.parent_id%TYPE;
3556: l_tree_seq cz_ps_nodes.tree_seq%TYPE;
3549: l_name_tbl l_tName;
3550: l_priv VARCHAR2(1) := 'F';
3551:
3552: l_node_type cz_ps_nodes.ps_node_type%TYPE;
3553: l_feature_type cz_ps_nodes.feature_type%TYPE;
3554: l_vf cz_ps_nodes.virtual_flag%TYPE;
3555: l_parent_id cz_ps_nodes.parent_id%TYPE;
3556: l_tree_seq cz_ps_nodes.tree_seq%TYPE;
3557: l_node_name cz_ps_nodes.name%TYPE;
3550: l_priv VARCHAR2(1) := 'F';
3551:
3552: l_node_type cz_ps_nodes.ps_node_type%TYPE;
3553: l_feature_type cz_ps_nodes.feature_type%TYPE;
3554: l_vf cz_ps_nodes.virtual_flag%TYPE;
3555: l_parent_id cz_ps_nodes.parent_id%TYPE;
3556: l_tree_seq cz_ps_nodes.tree_seq%TYPE;
3557: l_node_name cz_ps_nodes.name%TYPE;
3558:
3551:
3552: l_node_type cz_ps_nodes.ps_node_type%TYPE;
3553: l_feature_type cz_ps_nodes.feature_type%TYPE;
3554: l_vf cz_ps_nodes.virtual_flag%TYPE;
3555: l_parent_id cz_ps_nodes.parent_id%TYPE;
3556: l_tree_seq cz_ps_nodes.tree_seq%TYPE;
3557: l_node_name cz_ps_nodes.name%TYPE;
3558:
3559: p_out_err INTEGER;
3552: l_node_type cz_ps_nodes.ps_node_type%TYPE;
3553: l_feature_type cz_ps_nodes.feature_type%TYPE;
3554: l_vf cz_ps_nodes.virtual_flag%TYPE;
3555: l_parent_id cz_ps_nodes.parent_id%TYPE;
3556: l_tree_seq cz_ps_nodes.tree_seq%TYPE;
3557: l_node_name cz_ps_nodes.name%TYPE;
3558:
3559: p_out_err INTEGER;
3560: p_del_logically INTEGER:=1;
3553: l_feature_type cz_ps_nodes.feature_type%TYPE;
3554: l_vf cz_ps_nodes.virtual_flag%TYPE;
3555: l_parent_id cz_ps_nodes.parent_id%TYPE;
3556: l_tree_seq cz_ps_nodes.tree_seq%TYPE;
3557: l_node_name cz_ps_nodes.name%TYPE;
3558:
3559: p_out_err INTEGER;
3560: p_del_logically INTEGER:=1;
3561:
3564:
3565: -- child nodes
3566: CURSOR l_children_csr (inPsNodeId NUMBER) IS
3567: SELECT ps_node_id, ps_node_type, virtual_flag
3568: FROM cz_ps_nodes
3569: WHERE parent_id = inPsNodeId
3570: AND deleted_flag = '0';
3571:
3572: ---------------------------------------------------------
3586: p_del_logically INTEGER:=1;
3587:
3588: CURSOR l_children_csr IS
3589: SELECT ps_node_id, ps_node_type, virtual_flag, feature_type
3590: FROM cz_ps_nodes
3591: WHERE parent_id = p_ps_node_id
3592: AND deleted_flag = '0';
3593:
3594: BEGIN
3619: --------------------------
3620: -- finally delete this child node
3621: --------------------------
3622:
3623: UPDATE cz_ps_nodes
3624: SET deleted_flag = '1'
3625: WHERE ps_node_id = l_ps_node_tbl(i)
3626: AND ps_node_type NOT IN (436,437,438);
3627:
3649: SELECT virtual_flag, ps_node_type, feature_type,
3650: parent_id, tree_seq, devl_project_id, name
3651: INTO l_vf, l_node_type, l_feature_type,
3652: l_parent_id, l_tree_seq, l_devl_project_id, l_node_name
3653: FROM cz_ps_nodes
3654: WHERE ps_node_id = p_ps_node_id
3655: AND deleted_flag = '0';
3656:
3657: IF l_node_type IN (436,437,438) THEN
3705: ------------------------------------------
3706: -- finally delete the node if not BOM node
3707: ------------------------------------------
3708:
3709: UPDATE cz_ps_nodes
3710: SET deleted_flag = '1'
3711: WHERE ps_node_id = p_ps_node_id
3712: AND ps_node_type NOT IN (436,437,438);
3713:
3714: --------------------
3715: -- Update tree_seq
3716: --------------------
3717:
3718: UPDATE cz_ps_nodes
3719: SET tree_seq = tree_seq - 1
3720: WHERE parent_id = l_parent_id
3721: AND devl_project_id = l_devl_project_id
3722: AND tree_seq > l_tree_seq
3814: l_ui_def_tbl t_num_array_tbl_type;
3815: l_name_tbl l_tName;
3816:
3817: l_model_name_tbl t_varchar_array_tbl_type;
3818: l_devl_project_id cz_ps_nodes.devl_project_id%TYPE;
3819: l_ui_style cz_ui_defs.ui_style%TYPE;
3820: l_seeded_flag cz_ui_defs.seeded_flag%TYPE;
3821: l_uidef_name cz_ui_defs.name%TYPE;
3822:
4295: l_user_name VARCHAR2(40);
4296: l_checkout_user cz_devl_projects.checkout_user%TYPE;
4297: l_ui_def_tbl t_num_array_tbl_type; -- the referencing models
4298: l_model_name_tbl t_varchar_array_tbl_type;
4299: l_devl_project_id cz_ps_nodes.devl_project_id%TYPE;
4300:
4301: l_rsq_name cz_rule_folders.name%TYPE;
4302:
4303: p_out_err INTEGER;
4647: BEGIN
4648:
4649: SELECT d.devl_project_id, d.name
4650: BULK COLLECT INTO x_ref_model_ids_tbl, x_ref_model_names_tbl
4651: FROM cz_ps_nodes p, cz_devl_projects d
4652: WHERE p.reference_id = p_model_id
4653: AND p.ps_node_type IN (263, 264)
4654: AND p.deleted_flag = '0'
4655: AND p.devl_project_id = d.devl_project_id
6424: (SELECT devl_project_id FROM cz_rules
6425: WHERE effectivity_set_id = p_eff_set_id
6426: AND deleted_flag = '0'
6427: UNION ALL
6428: SELECT devl_project_id FROM cz_ps_nodes
6429: WHERE effectivity_set_id = p_eff_set_id
6430: AND deleted_flag = '0');
6431:
6432: IF l_prj_name_tbl.COUNT > 0 THEN
6682: SELECT 1
6683: INTO l_prop_count
6684: FROM CZ_PSNODE_PROPVAL_V
6685: WHERE ps_node_id IN (select ps_node_id
6686: from cz_ps_nodes
6687: where cz_ps_nodes.deleted_flag = '0')
6688: AND property_id = p_property_id
6689: AND rownum < 2;
6690: EXCEPTION
6683: INTO l_prop_count
6684: FROM CZ_PSNODE_PROPVAL_V
6685: WHERE ps_node_id IN (select ps_node_id
6686: from cz_ps_nodes
6687: where cz_ps_nodes.deleted_flag = '0')
6688: AND property_id = p_property_id
6689: AND rownum < 2;
6690: EXCEPTION
6691: WHEN NO_DATA_FOUND THEN
7226: x_msg_count OUT NOCOPY NUMBER,
7227: x_msg_data OUT NOCOPY VARCHAR2)
7228: IS
7229: TYPE t_indexes IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
7230: TYPE t_mask IS TABLE OF cz_ps_nodes.effective_usage_mask%TYPE INDEX BY BINARY_INTEGER;
7231:
7232: NO_USG_EXISTS EXCEPTION;
7233: USG_IN_USE EXCEPTION;
7234: l_usage_count NUMBER := 0;
7283: BULK
7284: COLLECT
7285: INTO v_nodes,
7286: v_masks_nodes
7287: FROM cz_ps_nodes
7288: WHERE effective_usage_mask NOT IN ('0', '0000000000000000')
7289: AND deleted_flag = '0'
7290: ORDER BY effective_usage_mask;
7291: EXCEPTION
7359: PROCEDURE DELETE_USAGE(usageId IN NUMBER, delete_status IN OUT NOCOPY VARCHAR2)
7360: AS
7361:
7362: TYPE t_indexes IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
7363: TYPE t_mask IS TABLE OF cz_ps_nodes.effective_usage_mask%TYPE INDEX BY BINARY_INTEGER;
7364: v_nodes t_indexes;
7365: v_rules t_indexes;
7366: v_masks_nodes t_mask;
7367: v_masks_rules t_mask;
7382: BULK
7383: COLLECT
7384: INTO v_nodes,
7385: v_masks_nodes
7386: FROM cz_ps_nodes
7387: WHERE effective_usage_mask NOT IN ('0', '0000000000000000')
7388: ORDER BY effective_usage_mask;
7389: EXCEPTION
7390: WHEN OTHERS THEN
7435: END IF;
7436: END LOOP;
7437:
7438: FORALL i IN v_nodes.FIRST..v_nodes.LAST
7439: UPDATE cz_ps_nodes
7440: SET effective_usage_mask = v_masks_nodes(i)
7441: WHERE ps_node_id = v_nodes(i);
7442: END IF;
7443:
7527: IS
7528:
7529: TYPE number_type_tbl IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
7530: TYPE model_names_tbl IS TABLE OF cz_devl_projects.name%TYPE INDEX BY BINARY_INTEGER;
7531: TYPE t_mask IS TABLE OF cz_ps_nodes.effective_usage_mask%TYPE INDEX BY BINARY_INTEGER;
7532: TYPE name_tbl IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY BINARY_INTEGER;
7533: TYPE t_checkout_user_tbl IS TABLE OF cz_devl_projects.checkout_user%TYPE INDEX BY BINARY_INTEGER;
7534: l_rp_folder NUMBER;
7535: l_rp_fld_tbl number_type_tbl;
7528:
7529: TYPE number_type_tbl IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
7530: TYPE model_names_tbl IS TABLE OF cz_devl_projects.name%TYPE INDEX BY BINARY_INTEGER;
7531: TYPE t_mask IS TABLE OF cz_ps_nodes.effective_usage_mask%TYPE INDEX BY BINARY_INTEGER;
7532: TYPE name_tbl IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY BINARY_INTEGER;
7533: TYPE t_checkout_user_tbl IS TABLE OF cz_devl_projects.checkout_user%TYPE INDEX BY BINARY_INTEGER;
7534: l_rp_folder NUMBER;
7535: l_rp_fld_tbl number_type_tbl;
7536: l_rp_model_tbl number_type_tbl;
7810: SELECT d.devl_project_id,d.name, rp.enclosing_folder
7811: BULK
7812: COLLECT
7813: INTO l_ref_model_ids_tbl,l_ref_model_names_tbl,l_encl_devl_tbl
7814: FROM cz_ps_nodes p,
7815: cz_devl_projects d,
7816: cz_rp_entries rp
7817: WHERE p.reference_id = l_rp_model_ref(modelId)
7818: AND p.ps_node_type IN (263, 264)
7901: SELECT distinct devl_project_id
7902: BULK
7903: COLLECT
7904: INTO l_eff_tbl
7905: FROM cz_ps_nodes
7906: WHERE cz_ps_nodes.effectivity_set_id = l_eff_set_ref(i)
7907: AND cz_ps_nodes.deleted_flag = '0';
7908:
7909: rec_count := l_eff_ref.COUNT;
7902: BULK
7903: COLLECT
7904: INTO l_eff_tbl
7905: FROM cz_ps_nodes
7906: WHERE cz_ps_nodes.effectivity_set_id = l_eff_set_ref(i)
7907: AND cz_ps_nodes.deleted_flag = '0';
7908:
7909: rec_count := l_eff_ref.COUNT;
7910: IF (l_eff_tbl.COUNT > 0) THEN
7903: COLLECT
7904: INTO l_eff_tbl
7905: FROM cz_ps_nodes
7906: WHERE cz_ps_nodes.effectivity_set_id = l_eff_set_ref(i)
7907: AND cz_ps_nodes.deleted_flag = '0';
7908:
7909: rec_count := l_eff_ref.COUNT;
7910: IF (l_eff_tbl.COUNT > 0) THEN
7911: FOR I IN l_eff_tbl.FIRST..l_eff_tbl.LAST
8011:
8012: SELECT devl_project_id BULK COLLECT INTO l_devl_project_tbl
8013: FROM (SELECT devl_project_id
8014: FROM cz_ps_prop_vals psp,
8015: cz_ps_nodes ps
8016: WHERE psp.deleted_flag = '0'
8017: AND ps.deleted_flag = '0'
8018: AND ps.ps_node_id = psp.ps_node_id
8019: AND property_id = l_prp_ref(modelId)
8020: UNION
8021: SELECT devl_project_id
8022: FROM cz_item_type_properties itypr,
8023: cz_item_masters itm,
8024: cz_ps_nodes psnd
8025: WHERE itypr.deleted_flag = '0'
8026: AND itypr.item_type_id = itm.item_type_id
8027: AND itm.deleted_flag = '0'
8028: AND psnd.item_id = itm.item_id
8212: SELECT ps_node_id,effective_usage_mask,devl_project_id,name
8213: BULK
8214: COLLECT
8215: INTO v_nodes,v_masks_nodes,l_nodes_project_tbl,l_nodes_name_tbl
8216: FROM cz_ps_nodes
8217: WHERE effective_usage_mask NOT IN ('0', '0000000000000000')
8218: ORDER BY effective_usage_mask;
8219: EXCEPTION
8220: WHEN OTHERS THEN
8598: TYPE tStringTable IS TABLE OF VARCHAR2(32767) INDEX BY VARCHAR2(15);
8599: TYPE tIntegerTable IS TABLE OF PLS_INTEGER INDEX BY VARCHAR2(15);
8600: TYPE tNumberTable IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
8601:
8602: TYPE tPsNodeName IS TABLE OF cz_ps_nodes.name%TYPE INDEX BY BINARY_INTEGER;
8603: TYPE tPropertyName IS TABLE OF cz_properties.name%TYPE INDEX BY BINARY_INTEGER;
8604: TYPE tExprId IS TABLE OF cz_expression_nodes.expr_node_id%TYPE INDEX BY BINARY_INTEGER;
8605: TYPE tExprParentId IS TABLE OF cz_expression_nodes.expr_parent_id%TYPE INDEX BY BINARY_INTEGER;
8606: TYPE tExprType IS TABLE OF cz_expression_nodes.expr_type%TYPE INDEX BY BINARY_INTEGER;
8678: nDebug := 40;
8679:
8680: IF(h_ModelPath.EXISTS(p_ps_node_id))THEN RETURN h_ModelPath(p_ps_node_id); END IF;
8681:
8682: FOR c_name IN (SELECT name, parent_id FROM cz_ps_nodes
8683: START WITH ps_node_id = p_ps_node_id
8684: CONNECT BY PRIOR parent_id = ps_node_id) LOOP
8685:
8686: IF(v_Name IS NULL)THEN
8687:
8688: v_Name := '''' || REPLACE(c_name.name, '''', '\''') || '''';
8689: h_NodeName(p_ps_node_id) := v_Name;
8690:
8691: FOR c_node IN (SELECT NULL FROM cz_ps_nodes WHERE deleted_flag = '0'
8692: AND devl_project_id = v_devl_project_id
8693: AND name = c_name.name
8694: AND ps_node_id <> p_ps_node_id)LOOP
8695: h_FullName(p_ps_node_id) := 1;
8694: AND ps_node_id <> p_ps_node_id)LOOP
8695: h_FullName(p_ps_node_id) := 1;
8696: EXIT;
8697: END LOOP;
8698: FOR c_node IN (SELECT NULL FROM cz_ps_nodes WHERE deleted_flag = '0'
8699: AND devl_project_id IN
8700: (SELECT component_id FROM cz_model_ref_expls
8701: WHERE deleted_flag = '0'
8702: AND model_id = v_devl_project_id
8743: h_ComponentId(v_Node) <> v_ExprPsNodeId(j))THEN
8744:
8745: BEGIN
8746:
8747: SELECT name INTO v_ModelName FROM cz_ps_nodes
8748: WHERE ps_node_id = h_ComponentId(v_Node);
8749: EXCEPTION
8750: WHEN OTHERS THEN
8751: NULL;
9852: IF((p_start_node_id IS NULL AND p_end_node_id IS NULL) OR (p_start_node_id = p_end_node_id))THEN RETURN NULL; END IF;
9853:
9854: SELECT ps_node_id, parent_id, persistent_node_id, virtual_flag
9855: BULK COLLECT INTO v_start_node_id_tab, v_start_parent_id_tab, v_start_persist_id_tab, v_start_virtual_tab
9856: FROM cz_ps_nodes
9857: WHERE deleted_flag = '0'
9858: START WITH ps_node_id = p_start_node_id
9859: CONNECT BY PRIOR parent_id = ps_node_id;
9860:
9859: CONNECT BY PRIOR parent_id = ps_node_id;
9860:
9861: SELECT ps_node_id, parent_id, persistent_node_id, virtual_flag
9862: BULK COLLECT INTO v_end_node_id_tab, v_end_parent_id_tab, v_end_persist_id_tab, v_end_virtual_tab
9863: FROM cz_ps_nodes
9864: WHERE deleted_flag = '0'
9865: START WITH ps_node_id = p_end_node_id
9866: CONNECT BY PRIOR parent_id = ps_node_id;
9867:
9950: INTO l_root_model_id, l_component_id, l_referring_node_id
9951: FROM CZ_MODEL_REF_EXPLS WHERE model_ref_expl_id=p_node_expl_id;
9952:
9953: IF l_referring_node_id IS NULL THEN
9954: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9955: WHERE ps_node_id=l_component_id;
9956:
9957: SELECT ps_node_id INTO l_ps_node_id FROM CZ_PS_NODES
9958: WHERE devl_project_id=l_model_id AND
9953: IF l_referring_node_id IS NULL THEN
9954: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9955: WHERE ps_node_id=l_component_id;
9956:
9957: SELECT ps_node_id INTO l_ps_node_id FROM CZ_PS_NODES
9958: WHERE devl_project_id=l_model_id AND
9959: persistent_node_id=p_node_persistent_node_id AND
9960: deleted_flag='0';
9961:
9964: END IF;
9965:
9966: ELSE
9967:
9968: SELECT persistent_node_id INTO l_persistent_node_id FROM CZ_PS_NODES
9969: WHERE ps_node_id=l_referring_node_id;
9970:
9971: IF p_node_persistent_node_id=l_persistent_node_id THEN
9972: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9968: SELECT persistent_node_id INTO l_persistent_node_id FROM CZ_PS_NODES
9969: WHERE ps_node_id=l_referring_node_id;
9970:
9971: IF p_node_persistent_node_id=l_persistent_node_id THEN
9972: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9973: WHERE ps_node_id=l_referring_node_id;
9974: ELSE
9975: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9976: WHERE ps_node_id=l_component_id;
9971: IF p_node_persistent_node_id=l_persistent_node_id THEN
9972: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9973: WHERE ps_node_id=l_referring_node_id;
9974: ELSE
9975: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9976: WHERE ps_node_id=l_component_id;
9977: END IF;
9978:
9979: SELECT ps_node_id INTO l_ps_node_id FROM CZ_PS_NODES
9975: SELECT devl_project_id INTO l_model_id FROM CZ_PS_NODES
9976: WHERE ps_node_id=l_component_id;
9977: END IF;
9978:
9979: SELECT ps_node_id INTO l_ps_node_id FROM CZ_PS_NODES
9980: WHERE devl_project_id=l_model_id AND
9981: persistent_node_id=p_node_persistent_node_id AND
9982: deleted_flag='0';
9983:
10228: BEGIN
10229:
10230: IF(p_base_node_id = p_node_node_id)THEN RETURN NULL; END IF;
10231:
10232: SELECT devl_project_id INTO v_base_project_id FROM cz_ps_nodes
10233: WHERE ps_node_id = p_base_node_id;
10234:
10235: SELECT devl_project_id INTO v_node_project_id FROM cz_ps_nodes
10236: WHERE ps_node_id = p_node_node_id;
10231:
10232: SELECT devl_project_id INTO v_base_project_id FROM cz_ps_nodes
10233: WHERE ps_node_id = p_base_node_id;
10234:
10235: SELECT devl_project_id INTO v_node_project_id FROM cz_ps_nodes
10236: WHERE ps_node_id = p_node_node_id;
10237:
10238: IF(v_base_project_id = v_node_project_id)THEN
10239:
10448: v_rule_type NUMBER;
10449: v_component_id NUMBER;
10450: v_virtual_flag VARCHAR2(1);
10451: v_persistent_id NUMBER;
10452: v_base_name cz_ps_nodes.name%TYPE;
10453: v_node_name cz_ps_nodes.name%TYPE;
10454: v_expl_id NUMBER;
10455: v_class_name VARCHAR2(2000);
10456: v_model_id NUMBER;
10449: v_component_id NUMBER;
10450: v_virtual_flag VARCHAR2(1);
10451: v_persistent_id NUMBER;
10452: v_base_name cz_ps_nodes.name%TYPE;
10453: v_node_name cz_ps_nodes.name%TYPE;
10454: v_expl_id NUMBER;
10455: v_class_name VARCHAR2(2000);
10456: v_model_id NUMBER;
10457: v_rule_folder_id NUMBER;
10461: v_seeded_flag VARCHAR2(1);
10462: v_arg_count NUMBER;
10463: v_property_value VARCHAR2(4000);
10464: v_property_name cz_properties.name%TYPE;
10465: v_item_name cz_ps_nodes.name%TYPE;
10466: v_parent_name cz_ps_nodes.name%TYPE;
10467: v_parent_id cz_ps_nodes.parent_id%TYPE;
10468: v_inst_scope cz_rules.instantiation_scope%TYPE;
10469:
10462: v_arg_count NUMBER;
10463: v_property_value VARCHAR2(4000);
10464: v_property_name cz_properties.name%TYPE;
10465: v_item_name cz_ps_nodes.name%TYPE;
10466: v_parent_name cz_ps_nodes.name%TYPE;
10467: v_parent_id cz_ps_nodes.parent_id%TYPE;
10468: v_inst_scope cz_rules.instantiation_scope%TYPE;
10469:
10470: v_tExprId t_num_array_tbl_type;
10463: v_property_value VARCHAR2(4000);
10464: v_property_name cz_properties.name%TYPE;
10465: v_item_name cz_ps_nodes.name%TYPE;
10466: v_parent_name cz_ps_nodes.name%TYPE;
10467: v_parent_id cz_ps_nodes.parent_id%TYPE;
10468: v_inst_scope cz_rules.instantiation_scope%TYPE;
10469:
10470: v_tExprId t_num_array_tbl_type;
10471: v_tExprParentId t_num_array_tbl_type;
10554: x_name OUT NOCOPY VARCHAR2, x_virtual_flag OUT NOCOPY VARCHAR2) IS
10555: BEGIN
10556: SELECT persistent_node_id, name, virtual_flag
10557: INTO x_persistent_id, x_name, x_virtual_flag
10558: FROM cz_ps_nodes
10559: WHERE deleted_flag = '0' AND ps_node_id = p_node_id;
10560: EXCEPTION
10561: WHEN OTHERS THEN
10562: RAISE CZ_R_WRONG_EXPRESSION_NODE;
10871: WHERE deleted_flag = '0'
10872: AND property_id = v_tPropertyId(i);
10873:
10874: SELECT parent_id, name INTO v_parent_id, v_item_name
10875: FROM cz_ps_nodes
10876: WHERE deleted_flag = '0'
10877: AND ps_node_id = v_tExprPsNodeId(ii);
10878:
10879: SELECT name INTO v_parent_name
10876: WHERE deleted_flag = '0'
10877: AND ps_node_id = v_tExprPsNodeId(ii);
10878:
10879: SELECT name INTO v_parent_name
10880: FROM cz_ps_nodes
10881: WHERE deleted_flag = '0'
10882: AND ps_node_id = v_parent_id;
10883: EXCEPTION
10884: WHEN OTHERS THEN
11065: IF((p_start_node_id IS NULL AND p_end_node_id IS NULL) OR (p_start_node_id = p_end_node_id))THEN RETURN NULL; END IF;
11066:
11067: SELECT ps_node_id, parent_id, persistent_node_id
11068: BULK COLLECT INTO v_start_node_id_tab, v_start_parent_id_tab, v_start_persist_id_tab
11069: FROM cz_ps_nodes
11070: WHERE deleted_flag = '0'
11071: START WITH ps_node_id = p_start_node_id
11072: CONNECT BY PRIOR parent_id = ps_node_id;
11073:
11072: CONNECT BY PRIOR parent_id = ps_node_id;
11073:
11074: SELECT ps_node_id, parent_id, persistent_node_id
11075: BULK COLLECT INTO v_end_node_id_tab, v_end_parent_id_tab, v_end_persist_id_tab
11076: FROM cz_ps_nodes
11077: WHERE deleted_flag = '0'
11078: START WITH ps_node_id = p_end_node_id
11079: CONNECT BY PRIOR parent_id = ps_node_id;
11080:
11183: START WITH model_ref_expl_id = p_node_expl_id
11184: CONNECT BY PRIOR parent_expl_node_id = model_ref_expl_id;
11185:
11186: SELECT ps_node_type INTO v_base_node_type
11187: FROM cz_ps_nodes
11188: WHERE deleted_flag = '0'
11189: AND persistent_node_id = p_base_pers_id
11190: AND ROWNUM = 1;
11191:
11189: AND persistent_node_id = p_base_pers_id
11190: AND ROWNUM = 1;
11191:
11192: SELECT ps_node_type INTO v_node_node_type
11193: FROM cz_ps_nodes
11194: WHERE deleted_flag = '0'
11195: AND persistent_node_id = p_node_pers_id
11196: AND ROWNUM = 1;
11197:
11221: --If the node is a reference, it must be specified together with its own explosion.
11222:
11223: p_base_node_id := v_base_ref_id_tab(v_base_ref_expl_index);
11224:
11225: SELECT devl_project_id INTO v_base_devl_project_id FROM cz_ps_nodes
11226: WHERE deleted_flag = '0' AND ps_node_id = p_base_node_id;
11227: ELSE
11228:
11229: SELECT ps_node_id, devl_project_id INTO p_base_node_id, v_base_devl_project_id FROM cz_ps_nodes
11225: SELECT devl_project_id INTO v_base_devl_project_id FROM cz_ps_nodes
11226: WHERE deleted_flag = '0' AND ps_node_id = p_base_node_id;
11227: ELSE
11228:
11229: SELECT ps_node_id, devl_project_id INTO p_base_node_id, v_base_devl_project_id FROM cz_ps_nodes
11230: WHERE deleted_flag = '0'
11231: AND persistent_node_id = p_base_pers_id
11232: AND devl_project_id =
11233: (SELECT devl_project_id FROM cz_ps_nodes WHERE ps_node_id = v_base_component_id_tab(v_base_ref_expl_index));
11229: SELECT ps_node_id, devl_project_id INTO p_base_node_id, v_base_devl_project_id FROM cz_ps_nodes
11230: WHERE deleted_flag = '0'
11231: AND persistent_node_id = p_base_pers_id
11232: AND devl_project_id =
11233: (SELECT devl_project_id FROM cz_ps_nodes WHERE ps_node_id = v_base_component_id_tab(v_base_ref_expl_index));
11234: END IF;
11235:
11236: IF(v_node_node_type IN (REFERENCE, CONNECTOR))THEN
11237:
11238: --If the node is a reference, it must be specified together with its own explosion.
11239:
11240: p_node_node_id := v_node_ref_id_tab(v_node_ref_expl_index);
11241:
11242: SELECT devl_project_id INTO v_node_devl_project_id FROM cz_ps_nodes
11243: WHERE deleted_flag = '0' AND ps_node_id = p_node_node_id;
11244: ELSE
11245:
11246: SELECT ps_node_id, devl_project_id INTO p_node_node_id, v_node_devl_project_id FROM cz_ps_nodes
11242: SELECT devl_project_id INTO v_node_devl_project_id FROM cz_ps_nodes
11243: WHERE deleted_flag = '0' AND ps_node_id = p_node_node_id;
11244: ELSE
11245:
11246: SELECT ps_node_id, devl_project_id INTO p_node_node_id, v_node_devl_project_id FROM cz_ps_nodes
11247: WHERE deleted_flag = '0'
11248: AND persistent_node_id = p_node_pers_id
11249: AND devl_project_id =
11250: (SELECT devl_project_id FROM cz_ps_nodes WHERE ps_node_id = v_node_component_id_tab(v_node_ref_expl_index));
11246: SELECT ps_node_id, devl_project_id INTO p_node_node_id, v_node_devl_project_id FROM cz_ps_nodes
11247: WHERE deleted_flag = '0'
11248: AND persistent_node_id = p_node_pers_id
11249: AND devl_project_id =
11250: (SELECT devl_project_id FROM cz_ps_nodes WHERE ps_node_id = v_node_component_id_tab(v_node_ref_expl_index));
11251: END IF;
11252:
11253: IF(p_base_node_id = v_base_ref_id_tab(v_base_ref_expl_index) AND
11254: p_node_node_id = v_node_ref_id_tab(v_node_ref_expl_index) AND
11685: WHILE(v_parent_id IS NOT NULL)LOOP
11686:
11687: SELECT parent_id, effective_from, effective_until, effectivity_set_id
11688: INTO v_parent_id, v_eff_from, v_eff_until, v_eff_set_id
11689: FROM cz_ps_nodes
11690: WHERE deleted_flag = '0'
11691: AND ps_node_id = v_parent_id;
11692:
11693: IF(v_eff_set_id IS NOT NULL)THEN