24: --
25: -- Declare cursor
26: --
27: -- EDIT_HERE In the following cursor statement add join(s) between
28: -- hxc_resource_rules and PER_BUSINESS_GROUPS
29: -- so that the security_group_id for
30: -- the current business group context can be derived.
31: -- Remove this comment when the edit has been completed.
32: cursor csr_sec_grp is
31: -- Remove this comment when the edit has been completed.
32: cursor csr_sec_grp is
33: select pbg.security_group_id
34: from per_business_groups pbg
35: , hxc_resource_rules hrr
36: -- , EDIT_HERE table_name(s) 333
37: where hrr.resource_rule_id = p_resource_rule_id;
38: -- and pbg.business_group_id = EDIT_HERE 333.business_group_id;
39: --
96: --
97: -- Declare cursor
98: --
99: -- EDIT_HERE In the following cursor statement add join(s) between
100: -- hxc_resource_rules and PER_BUSINESS_GROUPS
101: -- so that the legislation_code for
102: -- the current business group context can be derived.
103: -- Remove this comment when the edit has been completed.
104: cursor csr_leg_code is
103: -- Remove this comment when the edit has been completed.
104: cursor csr_leg_code is
105: select pbg.legislation_code
106: from per_business_groups pbg
107: , hxc_resource_rules hrr
108: -- , EDIT_HERE table_name(s) 333
109: where hrr.resource_rule_id = p_resource_rule_id;
110: -- and pbg.business_group_id = EDIT_HERE 333.business_group_id;
111: --
262: -- {End Of Comments}
263: -- ----------------------------------------------------------------------------
264: Procedure chk_name
265: (
266: p_name in hxc_resource_rules.name%TYPE,
267: p_business_group_id in hxc_resource_rules.business_group_id%TYPE,
268: p_object_version_number in hxc_resource_rules.object_version_number%TYPE
269: ) IS
270: --
263: -- ----------------------------------------------------------------------------
264: Procedure chk_name
265: (
266: p_name in hxc_resource_rules.name%TYPE,
267: p_business_group_id in hxc_resource_rules.business_group_id%TYPE,
268: p_object_version_number in hxc_resource_rules.object_version_number%TYPE
269: ) IS
270: --
271: l_proc varchar2(72);
264: Procedure chk_name
265: (
266: p_name in hxc_resource_rules.name%TYPE,
267: p_business_group_id in hxc_resource_rules.business_group_id%TYPE,
268: p_object_version_number in hxc_resource_rules.object_version_number%TYPE
269: ) IS
270: --
271: l_proc varchar2(72);
272: --
276: SELECT 'error'
277: FROM sys.dual
278: WHERE EXISTS (
279: SELECT 'x'
280: FROM hxc_resource_rules hrr
281: WHERE hrr.name = p_name
282: AND (hrr.business_group_id = p_business_group_id or hrr.business_group_id is null)
283: AND hrr.object_version_number <> NVL(p_object_version_number, -1) );
284: --
360: -- ----------------------------------------------------------------------------
361: --
362: PROCEDURE chk_dates
363: (p_resource_rule_id
364: IN hxc_resource_rules.resource_rule_id%TYPE
365: ,p_start_date
366: IN hxc_resource_rules.start_date%TYPE
367: ,p_end_date
368: IN hxc_resource_rules.end_date%TYPE
362: PROCEDURE chk_dates
363: (p_resource_rule_id
364: IN hxc_resource_rules.resource_rule_id%TYPE
365: ,p_start_date
366: IN hxc_resource_rules.start_date%TYPE
367: ,p_end_date
368: IN hxc_resource_rules.end_date%TYPE
369: )
370: IS
364: IN hxc_resource_rules.resource_rule_id%TYPE
365: ,p_start_date
366: IN hxc_resource_rules.start_date%TYPE
367: ,p_end_date
368: IN hxc_resource_rules.end_date%TYPE
369: )
370: IS
371: --
372: CURSOR c_get_dates
372: CURSOR c_get_dates
373: IS
374: SELECT start_date
375: ,end_date
376: FROM hxc_resource_rules
377: WHERE resource_rule_id = p_resource_rule_id;
378: --
379: BEGIN
380: --
419: -- {End Of Comments}
420: -- ----------------------------------------------------------------------------
421: Procedure chk_rule_evaluation_order
422: (
423: p_rule_evaluation_order in hxc_resource_rules.rule_evaluation_order%TYPE,
424: p_business_group_id in hxc_resource_rules.business_group_id%TYPE,
425: p_object_version_number in hxc_resource_rules.object_version_number%TYPE
426: ) IS
427: --
420: -- ----------------------------------------------------------------------------
421: Procedure chk_rule_evaluation_order
422: (
423: p_rule_evaluation_order in hxc_resource_rules.rule_evaluation_order%TYPE,
424: p_business_group_id in hxc_resource_rules.business_group_id%TYPE,
425: p_object_version_number in hxc_resource_rules.object_version_number%TYPE
426: ) IS
427: --
428: l_proc varchar2(72) := g_package||'chk_rule_evaluation_order';
421: Procedure chk_rule_evaluation_order
422: (
423: p_rule_evaluation_order in hxc_resource_rules.rule_evaluation_order%TYPE,
424: p_business_group_id in hxc_resource_rules.business_group_id%TYPE,
425: p_object_version_number in hxc_resource_rules.object_version_number%TYPE
426: ) IS
427: --
428: l_proc varchar2(72) := g_package||'chk_rule_evaluation_order';
429: --
433: SELECT 'error'
434: FROM sys.dual
435: WHERE EXISTS (
436: SELECT 'x'
437: FROM hxc_resource_rules hrr
438: WHERE hrr.rule_evaluation_order = p_rule_evaluation_order
439: AND (hrr.business_group_id = p_business_group_id or hrr.business_group_id is null)
440: AND hrr.object_version_number <> NVL(p_object_version_number, -1) );
441: --