[Home] [Help]
205: FETCH c_lookups INTO l_rule_name;
206: CLOSE c_lookups;
207: END IF;
208:
209: INSERT INTO csr_rules_b (
210: rule_id
211: , object_version_number
212: , base_rule_id
213: , appl_id
225: , last_update_date
226: , last_update_login
227: )
228: VALUES(
229: csr_rules_b_s.NEXTVAL
230: , 1
231: , NVL(p_base_rule_id, -1)
232: , NVL(p_appl_id, g_not_specified)
233: , NVL(p_resp_id, g_not_specified)
282:
283: FUNCTION get_parent_territory_rule(p_terr_id NUMBER, p_rule_doc XMLTYPE) RETURN NUMBER IS
284: CURSOR c_terr_hier IS
285: SELECT DISTINCT t.terr_id, LEVEL terr_level, r.rule_id
286: FROM jtf_terr_all t, csr_rules_b r
287: WHERE t.terr_id = r.terr_id (+)
288: AND NVL(r.rule_rank, 16) = 16
289: START WITH t.terr_id = p_terr_id
290: CONNECT BY NOCYCLE PRIOR t.parent_territory_id = t.terr_id
761: END LOOP;
762:
763: -- Persist the changes to the DB only if something has changed.
764: IF l_child_modified = TRUE THEN
765: UPDATE csr_rules_b
766: SET rule_doc = p_child_doc
767: WHERE rule_id = p_child_rule_id;
768: END IF;
769:
801: , p_force VARCHAR2
802: ) IS
803: CURSOR c_child_rules IS
804: SELECT rule_id, rule_doc
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');
1021: , b.rule_rank
1022: , b.rule_doc
1023: , t.rule_name
1024: , t.description
1025: FROM csr_rules_b b, csr_rules_tl t
1026: WHERE b.rule_id = p_rule_id
1027: AND b.rule_id = t.rule_id
1028: AND t.language = userenv('LANG')
1029: FOR UPDATE NOWAIT;
1123:
1124: handle_rule_windows(l_rule.rule_doc, l_old_rule_doc, p_window_names, p_window_descriptions);
1125:
1126: -- Update the Rule's Base Attributes
1127: UPDATE csr_rules_b
1128: SET object_version_number = p_object_version_number
1129: , base_rule_id = NVL(l_rule.base_rule_id, -1)
1130: , appl_id = NVL(l_rule.appl_id, g_not_specified)
1131: , resp_id = NVL(l_rule.resp_id, g_not_specified)
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
1240: START WITH rule_id = p_rule_id
1241: CONNECT BY base_rule_id = PRIOR rule_id;
1242: --
1243: CURSOR c_rule_notes(v_rule_id NUMBER) IS
1292: END IF;
1293: END LOOP;
1294:
1295: DELETE csr_rules_tl WHERE rule_id = v_child_rule.rule_id;
1296: DELETE csr_rules_b WHERE rule_id = v_child_rule.rule_id;
1297: END LOOP;
1298:
1299: IF fnd_api.to_boolean(p_commit) THEN
1300: COMMIT;
1335:
1336: --
1337: CURSOR c_matching_rules_noterr(v_param_path VARCHAR2) IS
1338: SELECT extractValue(r.rule_doc, v_param_path)
1339: FROM csr_rules_b r
1340: WHERE r.appl_id IN (p_appl_id, g_not_specified)
1341: AND r.resp_id IN (p_resp_id, g_not_specified)
1342: AND r.user_id IN (p_user_id, g_not_specified)
1343: AND r.terr_id = g_not_specified
1348: ORDER BY rule_rank DESC;
1349:
1350: CURSOR c_matching_rules_terr(v_param_path VARCHAR2) IS
1351: SELECT extractValue(r.rule_doc, v_param_path)
1352: FROM csr_rules_b r
1353: , (
1354: SELECT terr_id, LEVEL terr_level
1355: FROM jtf_terr_all
1356: START WITH terr_id = p_terr_id
1688: l_parent_dom_node DBMS_XMLDOM.DOMNode;
1689: --
1690: CURSOR c_rule_details IS
1691: SELECT b.rule_doc, b.rule_rank, t.rule_name, t.description
1692: FROM csr_rules_b b, csr_rules_tl t
1693: WHERE b.rule_id = p_rule_id
1694: FOR UPDATE OF b.rule_doc, t.rule_name NOWAIT;
1695: l_rule c_rule_details%ROWTYPE;
1696: l_new_rule_doc CLOB;
1887:
1888: PROCEDURE add_language IS
1889: BEGIN
1890: DELETE FROM csr_rules_tl t
1891: WHERE NOT EXISTS (SELECT NULL FROM csr_rules_b b WHERE b.rule_id = t.rule_id);
1892:
1893: UPDATE csr_rules_tl csrt
1894: SET (csrt.rule_name, csrt.description) = (
1895: SELECT csrtl.rule_name, csrtl.description