179: or (pac.segment30 is null
180: and p_segment30 is null));
181: --
182: begin
183: hr_utility.set_location('Entering:'||l_proc, 5);
184: --
185: -- ensure that the id_flex_num exists
186: --
187: --
231: --
232: -- as the segments are null set the p_analysis_criteria_id
233: -- explicitly to null.
234: --
235: hr_utility.set_location(l_proc, 10);
236: p_analysis_criteria_id := null;
237: else
238: --
239: -- segments exists therefore validate the id_flex_num
237: else
238: --
239: -- segments exists therefore validate the id_flex_num
240: --
241: hr_utility.set_location(l_proc, 15);
242: open ancsel;
243: fetch ancsel into l_discard;
244: if ancsel%notfound then
245: close ancsel;
250: open ancerrsel1;
251: fetch ancerrsel1 into l_discard;
252: if ancerrsel1%notfound then
253: close ancerrsel1;
254: hr_utility.set_message(801, 'HR_6039_ALL_CANT_GET_FFIELD');
255: hr_utility.set_message_token('FLEXFIELD_STRUCTURE',
256: p_id_flex_num);
257: hr_utility.raise_error;
258: end if;
251: fetch ancerrsel1 into l_discard;
252: if ancerrsel1%notfound then
253: close ancerrsel1;
254: hr_utility.set_message(801, 'HR_6039_ALL_CANT_GET_FFIELD');
255: hr_utility.set_message_token('FLEXFIELD_STRUCTURE',
256: p_id_flex_num);
257: hr_utility.raise_error;
258: end if;
259: close ancerrsel1;
253: close ancerrsel1;
254: hr_utility.set_message(801, 'HR_6039_ALL_CANT_GET_FFIELD');
255: hr_utility.set_message_token('FLEXFIELD_STRUCTURE',
256: p_id_flex_num);
257: hr_utility.raise_error;
258: end if;
259: close ancerrsel1;
260: open ancerrsel2;
261: fetch ancerrsel2 into l_discard;
263: close ancerrsel2;
264: --
265: -- the row does not exist in PER_SPECIAL_INFO_TYPES
266: --
267: hr_utility.set_message(801, 'HR_51114_JBR_SPCIAL_NOT_EXIST');
268: hr_utility.raise_error;
269: end if;
270: close ancerrsel2;
271: --
264: --
265: -- the row does not exist in PER_SPECIAL_INFO_TYPES
266: --
267: hr_utility.set_message(801, 'HR_51114_JBR_SPCIAL_NOT_EXIST');
268: hr_utility.raise_error;
269: end if;
270: close ancerrsel2;
271: --
272: -- the row is not enabled in PER_SPECIAL_INFO_TYPES
270: close ancerrsel2;
271: --
272: -- the row is not enabled in PER_SPECIAL_INFO_TYPES
273: --
274: hr_utility.set_message(801, 'HR_51115_JBR_SPCIAL_NOT_ENABLE');
275: hr_utility.raise_error;
276: end if;
277: close ancsel;
278: hr_utility.set_location(l_proc, 10);
271: --
272: -- the row is not enabled in PER_SPECIAL_INFO_TYPES
273: --
274: hr_utility.set_message(801, 'HR_51115_JBR_SPCIAL_NOT_ENABLE');
275: hr_utility.raise_error;
276: end if;
277: close ancsel;
278: hr_utility.set_location(l_proc, 10);
279: --
274: hr_utility.set_message(801, 'HR_51115_JBR_SPCIAL_NOT_ENABLE');
275: hr_utility.raise_error;
276: end if;
277: close ancsel;
278: hr_utility.set_location(l_proc, 10);
279: --
280: -- open and execute the partial segment cursor. if no rows are returned
281: -- then p_analysis_criteria_id must be set to -1 (indicating a
282: -- new combination needs to be inserted.
280: -- open and execute the partial segment cursor. if no rows are returned
281: -- then p_analysis_criteria_id must be set to -1 (indicating a
282: -- new combination needs to be inserted.
283: --
284: hr_utility.set_location(l_proc, 20);
285: open kfsel;
286: fetch kfsel into p_analysis_criteria_id;
287: if kfsel%notfound then
288: hr_utility.set_location(l_proc, 25);
284: hr_utility.set_location(l_proc, 20);
285: open kfsel;
286: fetch kfsel into p_analysis_criteria_id;
287: if kfsel%notfound then
288: hr_utility.set_location(l_proc, 25);
289: p_analysis_criteria_id := -1;
290: end if;
291: close kfsel;
292: end if;
290: end if;
291: close kfsel;
292: end if;
293: --
294: hr_utility.set_location(' Leaving:'||l_proc, 30);
295: end segment_combination_check;
296: --
297: -- ----------------------------------------------------------------------------
298: -- |------------------------< return_api_dml_status >-------------------------|
301: --
302: l_proc varchar2(72) := g_package||'return_api_dml_status';
303: --
304: Begin
305: hr_utility.set_location('Entering:'||l_proc, 5);
306: --
307: Return (nvl(g_api_dml, false));
308: --
309: hr_utility.set_location(' Leaving:'||l_proc, 10);
305: hr_utility.set_location('Entering:'||l_proc, 5);
306: --
307: Return (nvl(g_api_dml, false));
308: --
309: hr_utility.set_location(' Leaving:'||l_proc, 10);
310: End return_api_dml_status;
311: --
312: -- ----------------------------------------------------------------------------
313: -- |---------------------------< constraint_error >---------------------------|
317: --
318: l_proc varchar2(72) := g_package||'constraint_error';
319: --
320: Begin
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: --
323: If (p_constraint_name = 'PER_ANALYSIS_CRITERIA_PK') Then
324: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
325: hr_utility.raise_error;
320: Begin
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: --
323: If (p_constraint_name = 'PER_ANALYSIS_CRITERIA_PK') Then
324: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
325: hr_utility.raise_error;
326: Else
327: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
328: hr_utility.set_message_token('PROCEDURE', l_proc);
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: --
323: If (p_constraint_name = 'PER_ANALYSIS_CRITERIA_PK') Then
324: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
325: hr_utility.raise_error;
326: Else
327: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
328: hr_utility.set_message_token('PROCEDURE', l_proc);
329: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
323: If (p_constraint_name = 'PER_ANALYSIS_CRITERIA_PK') Then
324: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
325: hr_utility.raise_error;
326: Else
327: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
328: hr_utility.set_message_token('PROCEDURE', l_proc);
329: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
330: hr_utility.raise_error;
331: End If;
324: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
325: hr_utility.raise_error;
326: Else
327: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
328: hr_utility.set_message_token('PROCEDURE', l_proc);
329: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
330: hr_utility.raise_error;
331: End If;
332: --
325: hr_utility.raise_error;
326: Else
327: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
328: hr_utility.set_message_token('PROCEDURE', l_proc);
329: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
330: hr_utility.raise_error;
331: End If;
332: --
333: hr_utility.set_location(' Leaving:'||l_proc, 10);
326: Else
327: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
328: hr_utility.set_message_token('PROCEDURE', l_proc);
329: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
330: hr_utility.raise_error;
331: End If;
332: --
333: hr_utility.set_location(' Leaving:'||l_proc, 10);
334: End constraint_error;
329: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
330: hr_utility.raise_error;
331: End If;
332: --
333: hr_utility.set_location(' Leaving:'||l_proc, 10);
334: End constraint_error;
335: --
336: -- ----------------------------------------------------------------------------
337: -- |-----------------------------< api_updating >-----------------------------|
392: l_proc varchar2(72) := g_package||'api_updating';
393: l_fct_ret boolean;
394: --
395: Begin
396: hr_utility.set_location('Entering:'||l_proc, 5);
397: --
398: If (
399: p_analysis_criteria_id is null
400: ) Then
406: Else
407: If (
408: p_analysis_criteria_id = g_old_rec.analysis_criteria_id
409: ) Then
410: hr_utility.set_location(l_proc, 10);
411: --
412: -- The g_old_rec is current therefore we must
413: -- set the returning function to true
414: --
423: Close C_Sel1;
424: --
425: -- The primary key is invalid therefore we must error
426: --
427: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
428: hr_utility.raise_error;
429: End If;
430: Close C_Sel1;
431: --
424: --
425: -- The primary key is invalid therefore we must error
426: --
427: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
428: hr_utility.raise_error;
429: End If;
430: Close C_Sel1;
431: --
432: hr_utility.set_location(l_proc, 15);
428: hr_utility.raise_error;
429: End If;
430: Close C_Sel1;
431: --
432: hr_utility.set_location(l_proc, 15);
433: l_fct_ret := true;
434: End If;
435: End If;
436: hr_utility.set_location(' Leaving:'||l_proc, 20);
432: hr_utility.set_location(l_proc, 15);
433: l_fct_ret := true;
434: End If;
435: End If;
436: hr_utility.set_location(' Leaving:'||l_proc, 20);
437: Return (l_fct_ret);
438: --
439: End api_updating;
440: --
490: l_proc varchar2(72) := g_package||'convert_args';
491: --
492: Begin
493: --
494: hr_utility.set_location('Entering:'||l_proc, 5);
495: --
496: -- Convert arguments into local l_rec structure.
497: --
498: l_rec.analysis_criteria_id := p_analysis_criteria_id;
537: l_rec.segment30 := p_segment30;
538: --
539: -- Return the plsql record structure.
540: --
541: hr_utility.set_location(' Leaving:'||l_proc, 10);
542: Return(l_rec);
543: --
544: End convert_args;
545: --