101: null;
102: end;
103:
104: if l_dummy = '1' then
105: hr_utility.set_message(801,'PER_7420_POS_PARENT_EXISTS');
106: hr_utility.raise_error;
107: end if;
108: else
109: /* Non root
102: end;
103:
104: if l_dummy = '1' then
105: hr_utility.set_message(801,'PER_7420_POS_PARENT_EXISTS');
106: hr_utility.raise_error;
107: end if;
108: else
109: /* Non root
110: This step checks that the parent POSITION exists in the hierarchy.
125: null;
126: end;
127:
128: if l_dummy <> '1' then
129: hr_utility.set_message(801,'PER_7419_POS_PARENT_NEEDED');
130: hr_utility.raise_error;
131: else
132: /*
133: This step checks that the parent of the non-root POSITION is not
126: end;
127:
128: if l_dummy <> '1' then
129: hr_utility.set_message(801,'PER_7419_POS_PARENT_NEEDED');
130: hr_utility.raise_error;
131: else
132: /*
133: This step checks that the parent of the non-root POSITION is not
134: below the non-root POSITION. The parent must not be the non-root
162: when too_many_rows then
163: null;
164: end;
165: if l_dummy = '1' then
166: hr_utility.set_message(801,'PER_7421_POS_PARENT_BELOW');
167: hr_utility.raise_error;
168: end if;
169: end if;
170: end if;
163: null;
164: end;
165: if l_dummy = '1' then
166: hr_utility.set_message(801,'PER_7421_POS_PARENT_BELOW');
167: hr_utility.raise_error;
168: end if;
169: end if;
170: end if;
171:
194: fetch csr_exists into l_dummy;
195: l_exists := csr_exists%found;
196: close csr_exists;
197: if l_exists then
198: hr_utility.set_message(801,'PER_7408_POS_HIER_POS');
199: hr_utility.raise_error;
200: end if;
201: end Check_duplicate_hierarchies;
202:
195: l_exists := csr_exists%found;
196: close csr_exists;
197: if l_exists then
198: hr_utility.set_message(801,'PER_7408_POS_HIER_POS');
199: hr_utility.raise_error;
200: end if;
201: end Check_duplicate_hierarchies;
202:
203: PROCEDURE check_sec_profiles (X_Business_Group_Id NUMBER,
230: when too_many_rows then
231: null;
232: end;
233: if l_dummy = '1' then
234: hr_utility.set_message(801,'PAY_7694_PER_NO_DEL_STRUCTURE');
235: hr_utility.raise_error;
236: else
237: l_dummy:= NULL;
238: begin
231: null;
232: end;
233: if l_dummy = '1' then
234: hr_utility.set_message(801,'PAY_7694_PER_NO_DEL_STRUCTURE');
235: hr_utility.raise_error;
236: else
237: l_dummy:= NULL;
238: begin
239: SELECT '1'
248: null;
249: end;
250:
251: if l_dummy = '1' then
252: hr_utility.set_message(801,'PAY_7694_PER_NO_DEL_STRUCTURE');
253: hr_utility.raise_error;
254: end if;
255:
256: end if;
249: end;
250:
251: if l_dummy = '1' then
252: hr_utility.set_message(801,'PAY_7694_PER_NO_DEL_STRUCTURE');
253: hr_utility.raise_error;
254: end if;
255:
256: end if;
257:
299: when too_many_rows then
300: null;
301: end;
302: if l_dummy = '1' then
303: hr_utility.set_message(801,'PER_7418_POS_PARENT');
304: hr_utility.raise_error;
305: end if;
306: end if;
307: end;
300: null;
301: end;
302: if l_dummy = '1' then
303: hr_utility.set_message(801,'PER_7418_POS_PARENT');
304: hr_utility.raise_error;
305: end if;
306: end if;
307: end;
308:
366: OPEN C;
367: FETCH C INTO X_Rowid;
368: if (C%NOTFOUND) then
369: CLOSE C;
370: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
371: hr_utility.set_message_token('PROCEDURE','Insert_row');
372: hr_utility.set_message_token('STEP','1');
373: hr_utility.raise_error;
374: end if;
367: FETCH C INTO X_Rowid;
368: if (C%NOTFOUND) then
369: CLOSE C;
370: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
371: hr_utility.set_message_token('PROCEDURE','Insert_row');
372: hr_utility.set_message_token('STEP','1');
373: hr_utility.raise_error;
374: end if;
375: CLOSE C;
368: if (C%NOTFOUND) then
369: CLOSE C;
370: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
371: hr_utility.set_message_token('PROCEDURE','Insert_row');
372: hr_utility.set_message_token('STEP','1');
373: hr_utility.raise_error;
374: end if;
375: CLOSE C;
376:
369: CLOSE C;
370: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
371: hr_utility.set_message_token('PROCEDURE','Insert_row');
372: hr_utility.set_message_token('STEP','1');
373: hr_utility.raise_error;
374: end if;
375: CLOSE C;
376:
377: END Insert_Row;
448: parent_position_id = X_Parent_Position_Id
449: WHERE rowid = X_rowid;
450:
451: if (SQL%NOTFOUND) then
452: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
453: hr_utility.set_message_token('PROCEDURE','update_row');
454: hr_utility.set_message_token('STEP','1');
455: hr_utility.raise_error;
456: end if;
449: WHERE rowid = X_rowid;
450:
451: if (SQL%NOTFOUND) then
452: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
453: hr_utility.set_message_token('PROCEDURE','update_row');
454: hr_utility.set_message_token('STEP','1');
455: hr_utility.raise_error;
456: end if;
457:
450:
451: if (SQL%NOTFOUND) then
452: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
453: hr_utility.set_message_token('PROCEDURE','update_row');
454: hr_utility.set_message_token('STEP','1');
455: hr_utility.raise_error;
456: end if;
457:
458: END Update_Row;
451: if (SQL%NOTFOUND) then
452: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
453: hr_utility.set_message_token('PROCEDURE','update_row');
454: hr_utility.set_message_token('STEP','1');
455: hr_utility.raise_error;
456: end if;
457:
458: END Update_Row;
459:
482: DELETE FROM PER_POS_STRUCTURE_ELEMENTS
483: WHERE rowid = X_Rowid;
484:
485: if (SQL%NOTFOUND) then
486: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
487: hr_utility.set_message_token('PROCEDURE','delete_row');
488: hr_utility.set_message_token('STEP','1');
489: hr_utility.raise_error;
490: end if;
483: WHERE rowid = X_Rowid;
484:
485: if (SQL%NOTFOUND) then
486: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
487: hr_utility.set_message_token('PROCEDURE','delete_row');
488: hr_utility.set_message_token('STEP','1');
489: hr_utility.raise_error;
490: end if;
491: END Delete_Row;
484:
485: if (SQL%NOTFOUND) then
486: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
487: hr_utility.set_message_token('PROCEDURE','delete_row');
488: hr_utility.set_message_token('STEP','1');
489: hr_utility.raise_error;
490: end if;
491: END Delete_Row;
492:
485: if (SQL%NOTFOUND) then
486: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
487: hr_utility.set_message_token('PROCEDURE','delete_row');
488: hr_utility.set_message_token('STEP','1');
489: hr_utility.raise_error;
490: end if;
491: END Delete_Row;
492:
493: END PER_POS_STRUCT_ELEMENTS_PKG2;