DBA Data[Home] [Help]

APPS.HR_SECURITY_INTERNAL dependencies on HR_SECURITY

Line 1: Package Body HR_SECURITY_INTERNAL as

1: Package Body HR_SECURITY_INTERNAL as
2: /* $Header: pesecbsi.pkb 120.19.12010000.1 2008/07/28 05:56:13 appldev ship $ */
3:
4: --
5: -- Stores details of what security permission have been cached for a

Line 21: g_PACKAGE CONSTANT VARCHAR2(23) := 'hr_security_internal.';

17:
18: --
19: -- Package Private Constants
20: --
21: g_PACKAGE CONSTANT VARCHAR2(23) := 'hr_security_internal.';
22:
23: --
24: -- Package Private Variables
25: --

Line 117: hr_security.add_person(p_person_id);

113: and ppl.person_id = p_person_id);
114: --
115: hr_utility.set_location(l_proc, 20);
116: --
117: hr_security.add_person(p_person_id);
118: --
119: hr_utility.set_location('Leaving:'|| l_proc, 30);
120: --
121: end;

Line 188: hr_security.add_person(p_person_id);

184: and ppl.person_id = p_person_id);
185: --
186: hr_utility.set_location(l_proc, 20);
187: --
188: hr_security.add_person(p_person_id);
189: --
190: hr_utility.set_location(' Leaving:'||l_proc, 30);
191: exception
192: when NO_DATA_FOUND then

Line 214: hr_security.remove_person(p_person_id);

210: and security_profile_id is not null;
211: --
212: hr_utility.set_location(l_proc, 20);
213: --
214: hr_security.remove_person(p_person_id);
215: --
216: hr_utility.set_location(' Leaving:'||l_proc, 30);
217: exception
218: when NO_DATA_FOUND then

Line 527: null,:l_true,hr_security_internal.evaluate_custom(

523: end if;
524: --
525: l_inst_str := ' select sec.security_profile_id '; --
526: l_comm_str := ' decode(sec.custom_restriction_flag,:l_Restrict,:l_true,:l_U,:l_FALSE,
527: null,:l_true,hr_security_internal.evaluate_custom(
528: :p_assignment_id , sec.restriction_text,
529: to_date(to_char(:p_effective_date, ''dd/mm/yyyy'')
530: , ''dd/mm/yyyy''))) = :l_true and not exists (
531: select 1 from per_person_list ppl

Line 2582: ' hr_security_internal.evaluate_custom(

2578: and sec.view_all_flag = :l_Restrict and ';
2579: --
2580: l_exec_str := l_inst_str||l_from_str||' where '||
2581: l_bggr_str||l_asgt_str||l_cond_str||
2582: ' hr_security_internal.evaluate_custom(
2583: :p_assignment_id,sec.restriction_text,
2584: to_date(to_char(:p_effective_date, ''dd/mm/yyyy'')
2585: , ''dd/mm/yyyy'')) = :l_true and not exists (
2586: select 1 from per_person_list ppl

Line 2774: hr_security.add_person(l_person_id);

2770: if g_debug then
2771: hr_utility.set_location(l_proc, 710);
2772: end if;
2773: --
2774: hr_security.add_person(l_person_id);
2775: --
2776: if g_debug then
2777: hr_utility.set_location(' Leaving:'||l_proc, 720);
2778: end if;

Line 3787: AND hr_security_internal.show_organization

3783: FROM hr_all_positions_f hapf
3784: WHERE hapf.position_id = p_position_id
3785: AND p_effective_date BETWEEN
3786: hapf.effective_start_date AND hapf.effective_end_date
3787: AND hr_security_internal.show_organization
3788: (hapf.organization_id) = 'TRUE';
3789:
3790: BEGIN
3791:

Line 3841: AND hr_security_internal.show_organization

3837: FROM hr_all_positions_f hapf
3838: WHERE hapf.position_id = p.subordinate_position_id
3839: AND p_effective_date BETWEEN
3840: hapf.effective_start_date AND hapf.effective_end_date
3841: AND hr_security_internal.show_organization
3842: (hapf.organization_id) = 'TRUE');
3843:
3844: --
3845: -- Get all the positions in the hierarchy given a top

Line 4541: 'hr_security_internal.show_organization(hr_asg.organization_id) = ''TRUE''';

4537: l_emp_str VARCHAR2(32) := 'hr_asg.assignment_type = ''E''';
4538: l_cwk_str VARCHAR2(32) := 'hr_asg.assignment_type = ''C''';
4539: l_apl_str VARCHAR2(32) := 'hr_asg.assignment_type = ''A''';
4540: l_org_str VARCHAR2(150) :=
4541: 'hr_security_internal.show_organization(hr_asg.organization_id) = ''TRUE''';
4542: l_pos_str VARCHAR2(150) :=
4543: '(hr_asg.position_id IS NULL OR hr_security_internal.show_position(hr_asg.position_id) = ''TRUE'')';
4544: l_pay_str VARCHAR2(150) :=
4545: '(hr_asg.payroll_id IS NULL OR hr_security_internal.show_payroll(hr_asg.payroll_id) = ''TRUE'')';

Line 4543: '(hr_asg.position_id IS NULL OR hr_security_internal.show_position(hr_asg.position_id) = ''TRUE'')';

4539: l_apl_str VARCHAR2(32) := 'hr_asg.assignment_type = ''A''';
4540: l_org_str VARCHAR2(150) :=
4541: 'hr_security_internal.show_organization(hr_asg.organization_id) = ''TRUE''';
4542: l_pos_str VARCHAR2(150) :=
4543: '(hr_asg.position_id IS NULL OR hr_security_internal.show_position(hr_asg.position_id) = ''TRUE'')';
4544: l_pay_str VARCHAR2(150) :=
4545: '(hr_asg.payroll_id IS NULL OR hr_security_internal.show_payroll(hr_asg.payroll_id) = ''TRUE'')';
4546:
4547: BEGIN

Line 4545: '(hr_asg.payroll_id IS NULL OR hr_security_internal.show_payroll(hr_asg.payroll_id) = ''TRUE'')';

4541: 'hr_security_internal.show_organization(hr_asg.organization_id) = ''TRUE''';
4542: l_pos_str VARCHAR2(150) :=
4543: '(hr_asg.position_id IS NULL OR hr_security_internal.show_position(hr_asg.position_id) = ''TRUE'')';
4544: l_pay_str VARCHAR2(150) :=
4545: '(hr_asg.payroll_id IS NULL OR hr_security_internal.show_payroll(hr_asg.payroll_id) = ''TRUE'')';
4546:
4547: BEGIN
4548:
4549: IF g_dbg THEN op('Entering: '||l_proc, 1); END IF;

Line 8419: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_PER_FROM_SECURITY_LIST';

8415: PROCEDURE delete_per_from_security_list(P_PERSON_ID IN number)
8416: IS
8417: --
8418: -- bug fix 3760559. l_proc size increased to 80.
8419: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_PER_FROM_SECURITY_LIST';
8420: begin
8421: hr_utility.set_location('Entering:'|| l_proc, 10);
8422: delete from per_person_list l
8423: where l.person_id = P_PERSON_ID;

Line 8437: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.ADD_ORG_TO_SECURITY_LIST';

8433: PROCEDURE add_org_to_security_list(p_security_profile_id in number,
8434: p_organization_id in number)
8435: IS
8436: --
8437: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.ADD_ORG_TO_SECURITY_LIST';
8438: --
8439: p_program_id number;
8440: p_request_id number;
8441: p_program_application_id number;

Line 8486: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_ORG_FROM_SECURITY_LIST';

8482: -- ----------------------------------------------------------------------------
8483: PROCEDURE delete_org_from_security_list(P_Organization_Id in number)
8484: IS
8485: --
8486: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_ORG_FROM_SECURITY_LIST';
8487: begin
8488: hr_utility.set_location('Entering:'|| l_proc, 10);
8489: DELETE FROM PER_ORGANIZATION_LIST
8490: WHERE organization_id = P_Organization_Id;

Line 8505: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.ADD_POS_TO_SECURITY_LIST';

8501: PROCEDURE add_pos_to_security_list(p_security_profile_id in number,
8502: p_position_id in number)
8503: IS
8504: --
8505: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.ADD_POS_TO_SECURITY_LIST';
8506: --
8507: begin
8508: --
8509: insert into per_position_list

Line 8523: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_POS_FROM_SECURITY_LIST';

8519: -- ----------------------------------------------------------------------------
8520: PROCEDURE delete_pos_from_security_list(p_position_Id in number)
8521: IS
8522: --
8523: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_POS_FROM_SECURITY_LIST';
8524: begin
8525: hr_utility.set_location('Entering:'|| l_proc, 10);
8526: DELETE FROM PER_POSITION_LIST
8527: WHERE position_id = p_position_Id;

Line 8539: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_PAY_FROM_SECURITY_LIST';

8535: -- ----------------------------------------------------------------------------
8536: PROCEDURE delete_pay_from_security_list(p_payroll_id number)
8537: IS
8538: --
8539: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_PAY_FROM_SECURITY_LIST';
8540: begin
8541: hr_utility.set_location('Entering:'|| l_proc, 10);
8542: DELETE FROM PAY_PAYROLL_LIST
8543: WHERE payroll_id = p_payroll_id;

Line 8549: END hr_security_internal;

8545: when NO_DATA_FOUND then
8546: hr_utility.set_location(l_proc, 20);
8547: end delete_pay_from_security_list;
8548: --
8549: END hr_security_internal;