DBA Data[Home] [Help]

APPS.PER_SECURITY_PROFILES_PKG dependencies on PER_SECURITY_PROFILES

Line 1: PACKAGE BODY PER_SECURITY_PROFILES_PKG as

1: PACKAGE BODY PER_SECURITY_PROFILES_PKG as
2: /* $Header: peser01t.pkb 120.3 2010/05/14 07:43:33 rnemani noship $ */
3:
4:
5: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,

Line 44: CURSOR C IS SELECT rowid FROM per_security_profiles

40: X_Program_Application_Id NUMBER,
41: X_Program_Id NUMBER,
42: X_Program_Update_Date DATE
43: ) IS
44: CURSOR C IS SELECT rowid FROM per_security_profiles
45: WHERE security_profile_id = X_Security_Profile_Id;
46: --
47: CURSOR C2 IS SELECT per_security_profiles_s.nextval FROM sys.dual;
48: BEGIN

Line 47: CURSOR C2 IS SELECT per_security_profiles_s.nextval FROM sys.dual;

43: ) IS
44: CURSOR C IS SELECT rowid FROM per_security_profiles
45: WHERE security_profile_id = X_Security_Profile_Id;
46: --
47: CURSOR C2 IS SELECT per_security_profiles_s.nextval FROM sys.dual;
48: BEGIN
49:
50: if (X_Security_Profile_Id is NULL) then
51: OPEN C2;

Line 55: INSERT INTO per_security_profiles(

51: OPEN C2;
52: FETCH C2 INTO X_Security_Profile_Id;
53: CLOSE C2;
54: end if;
55: INSERT INTO per_security_profiles(
56: security_profile_id,
57: business_group_id,
58: position_id,
59: organization_id,

Line 138: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');

134: FETCH C INTO X_Rowid;
135: if (C%NOTFOUND) then
136: CLOSE C;
137: hr_utility.set_message(801, 'HR_6153_APPL_PROCEDURE_FAIL');
138: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');
139: hr_utility.set_message_token('STEP','1');
140: hr_utility.raise_error;
141: end if;
142: CLOSE C;

Line 182: FROM per_security_profiles

178: X_Top_Position_Method VARCHAR2
179: ) IS
180: CURSOR C IS
181: SELECT *
182: FROM per_security_profiles
183: WHERE rowid = X_Rowid
184: FOR UPDATE of Security_Profile_Id NOWAIT;
185: Recinfo C%ROWTYPE;
186: BEGIN

Line 192: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');

188: FETCH C INTO Recinfo;
189: if (C%NOTFOUND) then
190: CLOSE C;
191: hr_utility.set_message(801, 'HR_6153_APPL_PROCEDURE_FAIL');
192: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');
193: hr_utility.set_message_token('STEP','2');
194: hr_utility.raise_error;
195: end if;
196: CLOSE C;

Line 374: UPDATE per_security_profiles

370: X_Program_Id NUMBER,
371: X_Program_Update_Date DATE
372: ) IS
373: BEGIN
374: UPDATE per_security_profiles
375: SET
376: security_profile_id = X_Security_Profile_Id,
377: business_group_id = X_Business_Group_Id,
378: position_id = X_Position_Id,

Line 417: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');

413: WHERE rowid = X_rowid;
414:
415: if (SQL%NOTFOUND) then
416: hr_utility.set_message(801, 'HR_6153_APPL_PROCEDURE_FAIL');
417: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');
418: hr_utility.set_message_token('STEP','3');
419: hr_utility.raise_error;
420: end if;
421:

Line 428: l_security_profile_id per_security_profiles.SECURITY_PROFILE_ID%type;

424: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
425: --Bug 5021035 starts here5021035
426: l_dummy_number number;
427: v_record_exists boolean := FALSE;
428: l_security_profile_id per_security_profiles.SECURITY_PROFILE_ID%type;
429: cursor prfl_assignmen(p_profile_id number) is select null
430: from PER_SEC_PROFILE_ASSIGNMENTS a
431: where a.security_profile_id = p_profile_id;
432: --Bug 5021035 ends here

Line 435: select security_profile_id into l_security_profile_id from per_security_profiles where rowid =X_Rowid;

431: where a.security_profile_id = p_profile_id;
432: --Bug 5021035 ends here
433: BEGIN
434: --Bug 5021035 starts here5021035
435: select security_profile_id into l_security_profile_id from per_security_profiles where rowid =X_Rowid;
436:
437: open prfl_assignmen(l_security_profile_id);
438: fetch prfl_assignmen into l_dummy_number;
439: v_record_exists := prfl_assignmen%FOUND;

Line 446: DELETE FROM per_security_profiles

442: hr_utility.set_message(800,'PER_449748_PROFILE_DEL');
443: hr_utility.raise_error;
444: end if;
445: --Bug 5021035 ends here
446: DELETE FROM per_security_profiles
447: WHERE rowid = X_Rowid;
448:
449: if (SQL%NOTFOUND) then
450: hr_utility.set_message(801, 'HR_6153_APPL_PROCEDURE_FAIL');

Line 451: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');

447: WHERE rowid = X_Rowid;
448:
449: if (SQL%NOTFOUND) then
450: hr_utility.set_message(801, 'HR_6153_APPL_PROCEDURE_FAIL');
451: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');
452: hr_utility.set_message_token('STEP','4');
453: hr_utility.raise_error;
454: end if;
455: END Delete_Row;

Line 464: from per_security_profiles

460: l_dummy number;
461: --
462: cursor c1 is
463: select 1
464: from per_security_profiles
465: where upper(security_profile_name) = upper(P_SECURITY_PROFILE_NAME)
466: and (rowid <> P_ROW_ID or P_ROW_ID is null);
467: begin
468: open c1;

Line 491: from per_security_profiles

487: -- user is the base user. This info will be used to ensure that View All = Y.
488: --
489: cursor c1 is
490: select 1
491: from per_security_profiles
492: where reporting_oracle_username = P_REPORTING_ORACLE_USERNAME
493: and (rowid <> P_ROW_ID or P_ROW_ID is null);
494: --
495: cursor c2 is

Line 651: END PER_SECURITY_PROFILES_PKG;

647: --
648: end check_assigned_sec_profile;
649: --
650:
651: END PER_SECURITY_PROFILES_PKG;