[Home] [Help]
12: TYPE node_tbl_type IS TABLE OF DBMS_XMLDOM.DOMNode;
13:
14: PROCEDURE debug(p_message VARCHAR2, p_module VARCHAR2, p_level NUMBER) IS
15: BEGIN
16: IF p_level >= fnd_profile.value_specific('AFLOG_LEVEL') THEN
17: IF fnd_file.log > 0 THEN
18: IF p_message = ' ' THEN
19: fnd_file.put_line(fnd_file.log, '');
20: ELSE
392: , p_rule_rank IN NUMBER DEFAULT NULL
393: , p_rule_doc IN XMLTYPE
394: ) IS
395: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_RULE';
396: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
397: --
398: CURSOR c_duplicate_rules IS
399: SELECT rule_id, rule_name
400: FROM csr_rules_vl
576: l_window_id_node DBMS_XMLDOM.DOMNode;
577: l_window_id PLS_INTEGER;
578: l_windows_id_list JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
579:
580: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
581: l_api_name CONSTANT VARCHAR2(30) := 'HANDLE_RULE_WINDOWS';
582: BEGIN
583:
584: -- Loop through the New Document to find out whether we have Windows Defined.
694:
695: l_baserule_node_list node_tbl_type := node_tbl_type();
696:
697: l_api_name CONSTANT VARCHAR2(30) := 'PROPAGATE';
698: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
699:
700: BEGIN
701: -- If the Child Rule is NULL then reset it to Parent Rule
702: IF p_child_doc IS NULL THEN
805: FROM csr_rules_b
806: WHERE base_rule_id = p_rule_id;
807:
808: l_child_doc XMLTYPE;
809: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
810: l_api_name CONSTANT VARCHAR2(30) := 'PROPAGATE_TO_CHILD_RULES';
811: BEGIN
812:
813: l_child_doc := p_child_doc;
859: , x_new_rule_doc OUT NOCOPY CLOB
860: ) IS
861: l_api_version CONSTANT NUMBER := 1.0;
862: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RULE';
863: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
864: --
865: l_rule_rank PLS_INTEGER;
866: l_rule_doc XMLTYPE;
867: l_note_id NUMBER;
1004: , x_new_rule_doc OUT NOCOPY CLOB
1005: ) IS
1006: l_api_version CONSTANT NUMBER := 1.0;
1007: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RULE';
1008: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
1009: --
1010: CURSOR c_rule_details IS
1011: SELECT b.rule_id
1012: , b.object_version_number
1231: , p_rule_id IN NUMBER
1232: ) IS
1233: l_api_version CONSTANT NUMBER := 1.0;
1234: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RULE';
1235: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
1236: --
1237: CURSOR c_child_rules IS
1238: SELECT rule_id, base_rule_id, LEVEL
1239: FROM csr_rules_b
1329: ) RETURN VARCHAR2 IS
1330: --
1331: l_param_value VARCHAR2(255);
1332: l_prefix VARCHAR2(2000) := '/schedulerRule/';
1333: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
1334: l_api_name CONSTANT VARCHAR2(30) := 'get_sch_parameter_value';
1335:
1336: --
1337: CURSOR c_matching_rules_noterr(v_param_path VARCHAR2) IS
1421: , x_res_rules_tbl OUT NOCOPY csr_resource_rules_tbl
1422: ) IS
1423: l_api_version CONSTANT NUMBER := 1.0;
1424: l_api_name CONSTANT VARCHAR2(30) := 'GET_SCHEDULER_RULES';
1425: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
1426: --
1427: l_rules_wo_res_query CONSTANT VARCHAR2(1000) :=
1428: 'SELECT r.*
1429: FROM csr_rules_vl r
1670: , p_cp_defer_same_site IN NUMBER
1671: ) IS
1672: l_api_version CONSTANT NUMBER := 1.0;
1673: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_WEBADI_ACTION';
1674: l_debug CONSTANT VARCHAR2(1) := fnd_profile.value('AFLOG_ENABLED');
1675: --
1676: l_return_status VARCHAR2(1);
1677: l_msg_data VARCHAR2(2000);
1678: l_msg_count NUMBER;