14: --
15: l_proc varchar2(72) := g_package||'return_api_dml_status';
16: --
17: Begin
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
23: End return_api_dml_status;
24: --
25: -- ----------------------------------------------------------------------------
26: -- |---------------------------< constraint_error >---------------------------|
30: --
31: l_proc varchar2(72) := g_package||'constraint_error';
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'GHR_PA_HISTORY_FK1') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'GHR_PA_HISTORY_FK1') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'GHR_PA_HISTORY_FK1') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
35: --
36: If (p_constraint_name = 'GHR_PA_HISTORY_FK1') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
36: If (p_constraint_name = 'GHR_PA_HISTORY_FK1') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
41: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('STEP','15');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('STEP','15');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('STEP','15');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('STEP','15');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE', l_proc);
46: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('STEP','15');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE', l_proc);
54: hr_utility.set_message_token('STEP','20');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('STEP','15');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE', l_proc);
54: hr_utility.set_message_token('STEP','20');
55: hr_utility.raise_error;
56: Else
49: hr_utility.set_message_token('STEP','15');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE', l_proc);
54: hr_utility.set_message_token('STEP','20');
55: hr_utility.raise_error;
56: Else
57: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE', l_proc);
54: hr_utility.set_message_token('STEP','20');
55: hr_utility.raise_error;
56: Else
57: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
51: ElsIf (p_constraint_name = 'GHR_PA_HISTORY_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE', l_proc);
54: hr_utility.set_message_token('STEP','20');
55: hr_utility.raise_error;
56: Else
57: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
53: hr_utility.set_message_token('PROCEDURE', l_proc);
54: hr_utility.set_message_token('STEP','20');
55: hr_utility.raise_error;
56: Else
57: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
60: hr_utility.raise_error;
61: End If;
54: hr_utility.set_message_token('STEP','20');
55: hr_utility.raise_error;
56: Else
57: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
60: hr_utility.raise_error;
61: End If;
62: --
55: hr_utility.raise_error;
56: Else
57: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
60: hr_utility.raise_error;
61: End If;
62: --
63: hr_utility.set_location(' Leaving:'||l_proc, 10);
56: Else
57: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
60: hr_utility.raise_error;
61: End If;
62: --
63: hr_utility.set_location(' Leaving:'||l_proc, 10);
64: End constraint_error;
59: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
60: hr_utility.raise_error;
61: End If;
62: --
63: hr_utility.set_location(' Leaving:'||l_proc, 10);
64: End constraint_error;
65: --
66: -- ----------------------------------------------------------------------------
67: -- |-----------------------------< api_updating >-----------------------------|
293: l_proc varchar2(72) := g_package||'api_updating';
294: l_fct_ret boolean;
295: --
296: Begin
297: hr_utility.set_location('Entering:'||l_proc, 5);
298: --
299: If (
300: p_pa_history_id is null
301: ) Then
307: Else
308: If (
309: p_pa_history_id = g_old_rec.pa_history_id
310: ) Then
311: hr_utility.set_location(l_proc, 10);
312: --
313: -- The g_old_rec is current therefore we must
314: -- set the returning function to true
315: --
324: Close C_Sel1;
325: --
326: -- The primary key is invalid therefore we must error
327: --
328: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
329: hr_utility.raise_error;
330: End If;
331: Close C_Sel1;
332: --
325: --
326: -- The primary key is invalid therefore we must error
327: --
328: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
329: hr_utility.raise_error;
330: End If;
331: Close C_Sel1;
332: --
333: hr_utility.set_location(l_proc, 15);
329: hr_utility.raise_error;
330: End If;
331: Close C_Sel1;
332: --
333: hr_utility.set_location(l_proc, 15);
334: l_fct_ret := true;
335: End If;
336: End If;
337: hr_utility.set_location(' Leaving:'||l_proc, 20);
333: hr_utility.set_location(l_proc, 15);
334: l_fct_ret := true;
335: End If;
336: End If;
337: hr_utility.set_location(' Leaving:'||l_proc, 20);
338: Return (l_fct_ret);
339: --
340: End api_updating;
341: --
567: --
568: l_proc varchar2(72) := g_package||'lck';
569: --
570: Begin
571: hr_utility.set_location('Entering:'||l_proc, 5);
572: --
573: -- Add any mandatory argument checking here:
574: -- Example:
575: -- hr_api.mandatory_arg_error
583: Close C_Sel1;
584: --
585: -- The primary key is invalid therefore we must error
586: --
587: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
588: hr_utility.raise_error;
589: End If;
590: Close C_Sel1;
591: --
584: --
585: -- The primary key is invalid therefore we must error
586: --
587: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
588: hr_utility.raise_error;
589: End If;
590: Close C_Sel1;
591: --
592: --
589: End If;
590: Close C_Sel1;
591: --
592: --
593: hr_utility.set_location(' Leaving:'||l_proc, 10);
594: --
595: -- We need to trap the ORA LOCK exception
596: --
597: Exception
599: --
600: -- The object is locked therefore we need to supply a meaningful
601: -- error message.
602: --
603: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
604: hr_utility.set_message_token('TABLE_NAME', 'ghr_pa_history');
605: hr_utility.raise_error;
606: End lck;
607: --
600: -- The object is locked therefore we need to supply a meaningful
601: -- error message.
602: --
603: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
604: hr_utility.set_message_token('TABLE_NAME', 'ghr_pa_history');
605: hr_utility.raise_error;
606: End lck;
607: --
608: -- ----------------------------------------------------------------------------
601: -- error message.
602: --
603: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
604: hr_utility.set_message_token('TABLE_NAME', 'ghr_pa_history');
605: hr_utility.raise_error;
606: End lck;
607: --
608: -- ----------------------------------------------------------------------------
609: -- |-----------------------------< convert_args >-----------------------------|
828: l_proc varchar2(72) := g_package||'convert_args';
829: --
830: Begin
831: --
832: hr_utility.set_location('Entering:'||l_proc, 5);
833: --
834: -- Convert arguments into local l_rec structure.
835: --
836: l_rec.pa_history_id := p_pa_history_id;
1046: l_rec.information200 := p_information200;
1047: --
1048: -- Return the plsql record structure.
1049: --
1050: hr_utility.set_location(' Leaving:'||l_proc, 10);
1051: Return(l_rec);
1052: --
1053: End convert_args;
1054: --