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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_FK2') Then
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_FK2') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
35: --
36: If (p_constraint_name = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_FK3') Then
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_FK3') Then
47: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_PK') Then
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_PK') Then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
45: hr_utility.raise_error;
46: ElsIf (p_constraint_name = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 = 'BEN_EXT_RSLT_DTL_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 >-----------------------------|
402: l_proc varchar2(72) := g_package||'api_updating';
403: l_fct_ret boolean;
404: --
405: Begin
406: hr_utility.set_location('Entering:'||l_proc, 5);
407: --
408: If (
409: p_ext_rslt_dtl_id is null and
410: p_object_version_number is null
418: If (
419: p_ext_rslt_dtl_id = g_old_rec.ext_rslt_dtl_id and
420: p_object_version_number = g_old_rec.object_version_number
421: ) Then
422: hr_utility.set_location(l_proc, 10);
423: --
424: -- The g_old_rec is current therefore we must
425: -- set the returning function to true
426: --
435: Close C_Sel1;
436: --
437: -- The primary key is invalid therefore we must error
438: --
439: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
440: hr_utility.raise_error;
441: End If;
442: Close C_Sel1;
443: If (p_object_version_number <> g_old_rec.object_version_number) Then
436: --
437: -- The primary key is invalid therefore we must error
438: --
439: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
440: hr_utility.raise_error;
441: End If;
442: Close C_Sel1;
443: If (p_object_version_number <> g_old_rec.object_version_number) Then
444: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
440: hr_utility.raise_error;
441: End If;
442: Close C_Sel1;
443: If (p_object_version_number <> g_old_rec.object_version_number) Then
444: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
445: hr_utility.raise_error;
446: End If;
447: hr_utility.set_location(l_proc, 15);
448: l_fct_ret := true;
441: End If;
442: Close C_Sel1;
443: If (p_object_version_number <> g_old_rec.object_version_number) Then
444: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
445: hr_utility.raise_error;
446: End If;
447: hr_utility.set_location(l_proc, 15);
448: l_fct_ret := true;
449: End If;
443: If (p_object_version_number <> g_old_rec.object_version_number) Then
444: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
445: hr_utility.raise_error;
446: End If;
447: hr_utility.set_location(l_proc, 15);
448: l_fct_ret := true;
449: End If;
450: End If;
451: hr_utility.set_location(' Leaving:'||l_proc, 20);
447: hr_utility.set_location(l_proc, 15);
448: l_fct_ret := true;
449: End If;
450: End If;
451: hr_utility.set_location(' Leaving:'||l_proc, 20);
452: Return (l_fct_ret);
453: --
454: End api_updating;
455: --
790: --
791: l_proc varchar2(72) := g_package||'lck';
792: --
793: Begin
794: hr_utility.set_location('Entering:'||l_proc, 5);
795: --
796: -- Add any mandatory argument checking here:
797: -- Example:
798: -- hr_api.mandatory_arg_error
806: Close C_Sel1;
807: --
808: -- The primary key is invalid therefore we must error
809: --
810: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
811: hr_utility.raise_error;
812: End If;
813: Close C_Sel1;
814: If (p_object_version_number <> g_old_rec.object_version_number) Then
807: --
808: -- The primary key is invalid therefore we must error
809: --
810: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
811: hr_utility.raise_error;
812: End If;
813: Close C_Sel1;
814: If (p_object_version_number <> g_old_rec.object_version_number) Then
815: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
811: hr_utility.raise_error;
812: End If;
813: Close C_Sel1;
814: If (p_object_version_number <> g_old_rec.object_version_number) Then
815: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
816: hr_utility.raise_error;
817: End If;
818: --
819: hr_utility.set_location(' Leaving:'||l_proc, 10);
812: End If;
813: Close C_Sel1;
814: If (p_object_version_number <> g_old_rec.object_version_number) Then
815: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
816: hr_utility.raise_error;
817: End If;
818: --
819: hr_utility.set_location(' Leaving:'||l_proc, 10);
820: --
815: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
816: hr_utility.raise_error;
817: End If;
818: --
819: hr_utility.set_location(' Leaving:'||l_proc, 10);
820: --
821: -- We need to trap the ORA LOCK exception
822: --
823: Exception
825: --
826: -- The object is locked therefore we need to supply a meaningful
827: -- error message.
828: --
829: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
830: hr_utility.set_message_token('TABLE_NAME', 'ben_ext_rslt_dtl');
831: hr_utility.raise_error;
832: End lck;
833: --
826: -- The object is locked therefore we need to supply a meaningful
827: -- error message.
828: --
829: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
830: hr_utility.set_message_token('TABLE_NAME', 'ben_ext_rslt_dtl');
831: hr_utility.raise_error;
832: End lck;
833: --
834: -- ----------------------------------------------------------------------------
827: -- error message.
828: --
829: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
830: hr_utility.set_message_token('TABLE_NAME', 'ben_ext_rslt_dtl');
831: hr_utility.raise_error;
832: End lck;
833: --
834: -- ----------------------------------------------------------------------------
835: -- |-----------------------------< convert_args >-----------------------------|
1162: l_proc varchar2(72) := g_package||'convert_args';
1163: --
1164: Begin
1165: --
1166: hr_utility.set_location('Entering:'||l_proc, 5);
1167: --
1168: -- Convert arguments into local l_rec structure.
1169: --
1170: l_rec.ext_rslt_dtl_id := p_ext_rslt_dtl_id;
1488: l_rec.ext_rcd_in_file_id := p_ext_rcd_in_file_id;
1489: --
1490: -- Return the plsql record structure.
1491: --
1492: hr_utility.set_location(' Leaving:'||l_proc, 10);
1493: Return(l_rec);
1494: --
1495: End convert_args;
1496: --