[Home] [Help]
1: PACKAGE BODY PER_SECURITY_PROFILES_PKG as
2: /* $Header: peser01t.pkb 120.1.12000000.1 2007/01/22 04:21:43 appldev noship $ */
3:
4:
5: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
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
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;
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,
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;
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
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;
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,
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:
422: END Update_Row;
423: ------------------------------------------------------------------------------
424: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
425: BEGIN
426: DELETE FROM per_security_profiles
427: WHERE rowid = X_Rowid;
428:
429: if (SQL%NOTFOUND) then
430: hr_utility.set_message(801, 'HR_6153_APPL_PROCEDURE_FAIL');
427: WHERE rowid = X_Rowid;
428:
429: if (SQL%NOTFOUND) then
430: hr_utility.set_message(801, 'HR_6153_APPL_PROCEDURE_FAIL');
431: hr_utility.set_message_token('PROCEDURE','PER_SECURITY_PROFILES_V_PKG');
432: hr_utility.set_message_token('STEP','4');
433: hr_utility.raise_error;
434: end if;
435: END Delete_Row;
440: l_dummy number;
441: --
442: cursor c1 is
443: select 1
444: from per_security_profiles
445: where upper(security_profile_name) = upper(P_SECURITY_PROFILE_NAME)
446: and (rowid <> P_ROW_ID or P_ROW_ID is null);
447: begin
448: open c1;
467: -- user is the base user. This info will be used to ensure that View All = Y.
468: --
469: cursor c1 is
470: select 1
471: from per_security_profiles
472: where reporting_oracle_username = P_REPORTING_ORACLE_USERNAME
473: and (rowid <> P_ROW_ID or P_ROW_ID is null);
474: --
475: cursor c2 is
603: --
604: end check_assigned_sec_profile;
605: --
606:
607: END PER_SECURITY_PROFILES_PKG;