133: OPEN C;
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;
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;
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;
143: END Insert_Row;
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;
143: END Insert_Row;
144: ----------------------------------------------------------------------------
187: OPEN C;
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;
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;
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;
197:
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;
197:
198:
412: program_update_date = X_Program_Update_Date
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;
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:
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;
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: ------------------------------------------------------------------------------
438: fetch prfl_assignmen into l_dummy_number;
439: v_record_exists := prfl_assignmen%FOUND;
440: close prfl_assignmen;
441: if v_record_exists then
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
439: v_record_exists := prfl_assignmen%FOUND;
440: close prfl_assignmen;
441: if v_record_exists then
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;
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');
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;
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;
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;
456: ------------------------------------------------------------------------------
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;
456: ------------------------------------------------------------------------------
457: procedure check_uniqueness(
637: -- If assigned, then user is not supposed to delete the profile
638: open sec_profile;
639: fetch sec_profile into l_exists;
640: IF sec_profile%found THEN
641: hr_utility.set_message(800, 'PER_289480_SEC_PROFILE_VALUE');
642: close sec_profile;
643: hr_utility.raise_error;
644: END IF;
645: --
639: fetch sec_profile into l_exists;
640: IF sec_profile%found THEN
641: hr_utility.set_message(800, 'PER_289480_SEC_PROFILE_VALUE');
642: close sec_profile;
643: hr_utility.raise_error;
644: END IF;
645: --
646: close sec_profile;
647: --