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: ------------------------------------------------------------------------------
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');
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;
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;
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;
436: ------------------------------------------------------------------------------
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;
436: ------------------------------------------------------------------------------
437: procedure check_uniqueness(
593: -- If assigned, then user is not supposed to delete the profile
594: open sec_profile;
595: fetch sec_profile into l_exists;
596: IF sec_profile%found THEN
597: hr_utility.set_message(800, 'PER_289480_SEC_PROFILE_VALUE');
598: close sec_profile;
599: hr_utility.raise_error;
600: END IF;
601: --
595: fetch sec_profile into l_exists;
596: IF sec_profile%found THEN
597: hr_utility.set_message(800, 'PER_289480_SEC_PROFILE_VALUE');
598: close sec_profile;
599: hr_utility.raise_error;
600: END IF;
601: --
602: close sec_profile;
603: --