27: --
28: Begin
29: --
30: If (p_constraint_name = 'PER_ASS_ASSIGNMENT_TYPE_CHK') Then
31: hr_utility.set_message(801, 'HR_7427_ASG_INVALID_ASS_TYPE');
32: hr_utility.raise_error;
33: ElsIf (p_constraint_name = 'PER_ASS_MANAGER_FLAG_CHK') Then
34: hr_utility.set_message(801, 'HR_7429_ASG_INV_MANAGER_FLAG');
35: hr_utility.raise_error;
28: Begin
29: --
30: If (p_constraint_name = 'PER_ASS_ASSIGNMENT_TYPE_CHK') Then
31: hr_utility.set_message(801, 'HR_7427_ASG_INVALID_ASS_TYPE');
32: hr_utility.raise_error;
33: ElsIf (p_constraint_name = 'PER_ASS_MANAGER_FLAG_CHK') Then
34: hr_utility.set_message(801, 'HR_7429_ASG_INV_MANAGER_FLAG');
35: hr_utility.raise_error;
36: ElsIf (p_constraint_name = 'PER_ASS_PRIMARY_FLAG_CHK') Then
30: If (p_constraint_name = 'PER_ASS_ASSIGNMENT_TYPE_CHK') Then
31: hr_utility.set_message(801, 'HR_7427_ASG_INVALID_ASS_TYPE');
32: hr_utility.raise_error;
33: ElsIf (p_constraint_name = 'PER_ASS_MANAGER_FLAG_CHK') Then
34: hr_utility.set_message(801, 'HR_7429_ASG_INV_MANAGER_FLAG');
35: hr_utility.raise_error;
36: ElsIf (p_constraint_name = 'PER_ASS_PRIMARY_FLAG_CHK') Then
37: hr_utility.set_message(801, 'HR_7428_ASG_INV_PRIMARY_FLAG');
38: hr_utility.raise_error;
31: hr_utility.set_message(801, 'HR_7427_ASG_INVALID_ASS_TYPE');
32: hr_utility.raise_error;
33: ElsIf (p_constraint_name = 'PER_ASS_MANAGER_FLAG_CHK') Then
34: hr_utility.set_message(801, 'HR_7429_ASG_INV_MANAGER_FLAG');
35: hr_utility.raise_error;
36: ElsIf (p_constraint_name = 'PER_ASS_PRIMARY_FLAG_CHK') Then
37: hr_utility.set_message(801, 'HR_7428_ASG_INV_PRIMARY_FLAG');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_ASS_UNION_MBER_FLAG_CHK') Then
33: ElsIf (p_constraint_name = 'PER_ASS_MANAGER_FLAG_CHK') Then
34: hr_utility.set_message(801, 'HR_7429_ASG_INV_MANAGER_FLAG');
35: hr_utility.raise_error;
36: ElsIf (p_constraint_name = 'PER_ASS_PRIMARY_FLAG_CHK') Then
37: hr_utility.set_message(801, 'HR_7428_ASG_INV_PRIMARY_FLAG');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_ASS_UNION_MBER_FLAG_CHK') Then
40: hr_utility.set_message(801, 'PER_52382_ASG_UNION_MBER_FLAG');
41: hr_utility.raise_error;
34: hr_utility.set_message(801, 'HR_7429_ASG_INV_MANAGER_FLAG');
35: hr_utility.raise_error;
36: ElsIf (p_constraint_name = 'PER_ASS_PRIMARY_FLAG_CHK') Then
37: hr_utility.set_message(801, 'HR_7428_ASG_INV_PRIMARY_FLAG');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_ASS_UNION_MBER_FLAG_CHK') Then
40: hr_utility.set_message(801, 'PER_52382_ASG_UNION_MBER_FLAG');
41: hr_utility.raise_error;
42: Else
36: ElsIf (p_constraint_name = 'PER_ASS_PRIMARY_FLAG_CHK') Then
37: hr_utility.set_message(801, 'HR_7428_ASG_INV_PRIMARY_FLAG');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_ASS_UNION_MBER_FLAG_CHK') Then
40: hr_utility.set_message(801, 'PER_52382_ASG_UNION_MBER_FLAG');
41: hr_utility.raise_error;
42: Else
43: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
37: hr_utility.set_message(801, 'HR_7428_ASG_INV_PRIMARY_FLAG');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_ASS_UNION_MBER_FLAG_CHK') Then
40: hr_utility.set_message(801, 'PER_52382_ASG_UNION_MBER_FLAG');
41: hr_utility.raise_error;
42: Else
43: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
39: ElsIf (p_constraint_name = 'PER_ASS_UNION_MBER_FLAG_CHK') Then
40: hr_utility.set_message(801, 'PER_52382_ASG_UNION_MBER_FLAG');
41: hr_utility.raise_error;
42: Else
43: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
46: hr_utility.raise_error;
47: End If;
40: hr_utility.set_message(801, 'PER_52382_ASG_UNION_MBER_FLAG');
41: hr_utility.raise_error;
42: Else
43: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
46: hr_utility.raise_error;
47: End If;
48: --
41: hr_utility.raise_error;
42: Else
43: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
46: hr_utility.raise_error;
47: End If;
48: --
49: End constraint_error;
42: Else
43: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
46: hr_utility.raise_error;
47: End If;
48: --
49: End constraint_error;
50: --
210: Close C_Sel1;
211: --
212: -- The primary key is invalid therefore we must error
213: --
214: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
215: hr_utility.raise_error;
216: End If;
217: Close C_Sel1;
218: If (p_object_version_number <> g_old_rec.object_version_number) Then
211: --
212: -- The primary key is invalid therefore we must error
213: --
214: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
215: hr_utility.raise_error;
216: End If;
217: Close C_Sel1;
218: If (p_object_version_number <> g_old_rec.object_version_number) Then
219: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
215: hr_utility.raise_error;
216: End If;
217: Close C_Sel1;
218: If (p_object_version_number <> g_old_rec.object_version_number) Then
219: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
220: hr_utility.raise_error;
221: End If;
222: l_fct_ret := true;
223: End If;
216: End If;
217: Close C_Sel1;
218: If (p_object_version_number <> g_old_rec.object_version_number) Then
219: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
220: hr_utility.raise_error;
221: End If;
222: l_fct_ret := true;
223: End If;
224: End If;
255: Fetch C_Sel1 Into l_parent_key_value1,
256: l_parent_key_value2;
257: If C_Sel1%notfound then
258: Close C_Sel1;
259: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
260: hr_utility.set_message_token('PROCEDURE', l_proc);
261: hr_utility.set_message_token('STEP','10');
262: hr_utility.raise_error;
263: End If;
256: l_parent_key_value2;
257: If C_Sel1%notfound then
258: Close C_Sel1;
259: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
260: hr_utility.set_message_token('PROCEDURE', l_proc);
261: hr_utility.set_message_token('STEP','10');
262: hr_utility.raise_error;
263: End If;
264: Close C_Sel1;
257: If C_Sel1%notfound then
258: Close C_Sel1;
259: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
260: hr_utility.set_message_token('PROCEDURE', l_proc);
261: hr_utility.set_message_token('STEP','10');
262: hr_utility.raise_error;
263: End If;
264: Close C_Sel1;
265: --
258: Close C_Sel1;
259: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
260: hr_utility.set_message_token('PROCEDURE', l_proc);
261: hr_utility.set_message_token('STEP','10');
262: hr_utility.raise_error;
263: End If;
264: Close C_Sel1;
265: --
266: -- Call the corresponding datetrack api
534: Close C_Sel1;
535: --
536: -- The primary key is invalid therefore we must error
537: --
538: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
539: hr_utility.raise_error;
540: --
541: End If;
542: Close C_Sel1;
535: --
536: -- The primary key is invalid therefore we must error
537: --
538: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
539: hr_utility.raise_error;
540: --
541: End If;
542: Close C_Sel1;
543: --
544: -- Check if the set object version number is the same as the existing
545: -- object version number
546: --
547: If (p_object_version_number <> g_old_rec.object_version_number) Then
548: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
549: hr_utility.raise_error;
550: End If;
551: --
552: -- Providing we are doing an update and a comment_id exists then
545: -- object version number
546: --
547: If (p_object_version_number <> g_old_rec.object_version_number) Then
548: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
549: hr_utility.raise_error;
550: End If;
551: --
552: -- Providing we are doing an update and a comment_id exists then
553: -- we select the comment text.
564: -- The comment_text for the specified comment_id does not exist.
565: -- We must error due to data integrity problems.
566: --
567: Close C_Sel3;
568: hr_utility.set_message(801, 'HR_7202_COMMENT_TEXT_NOT_EXIST');
569: hr_utility.raise_error;
570: End If;
571: Close C_Sel3;
572: End If;
565: -- We must error due to data integrity problems.
566: --
567: Close C_Sel3;
568: hr_utility.set_message(801, 'HR_7202_COMMENT_TEXT_NOT_EXIST');
569: hr_utility.raise_error;
570: End If;
571: Close C_Sel3;
572: End If;
573: --
624: -- We are doing a datetrack 'INSERT' which is illegal within this
625: -- procedure therefore we must error (note: to lck on insert the
626: -- private procedure ins_lck should be called).
627: --
628: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
629: hr_utility.set_message_token('PROCEDURE', l_proc);
630: hr_utility.set_message_token('STEP','20');
631: hr_utility.raise_error;
632: --
625: -- procedure therefore we must error (note: to lck on insert the
626: -- private procedure ins_lck should be called).
627: --
628: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
629: hr_utility.set_message_token('PROCEDURE', l_proc);
630: hr_utility.set_message_token('STEP','20');
631: hr_utility.raise_error;
632: --
633: End If;
626: -- private procedure ins_lck should be called).
627: --
628: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
629: hr_utility.set_message_token('PROCEDURE', l_proc);
630: hr_utility.set_message_token('STEP','20');
631: hr_utility.raise_error;
632: --
633: End If;
634: --
627: --
628: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
629: hr_utility.set_message_token('PROCEDURE', l_proc);
630: hr_utility.set_message_token('STEP','20');
631: hr_utility.raise_error;
632: --
633: End If;
634: --
635: -- Set the validation start and end date OUT arguments
645: --
646: -- The object is locked therefore we need to supply a meaningful
647: -- error message.
648: --
649: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
650: hr_utility.set_message_token('TABLE_NAME', 'per_all_assignments_f');
651: hr_utility.raise_error;
652: When l_object_invalid then
653: --
646: -- The object is locked therefore we need to supply a meaningful
647: -- error message.
648: --
649: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
650: hr_utility.set_message_token('TABLE_NAME', 'per_all_assignments_f');
651: hr_utility.raise_error;
652: When l_object_invalid then
653: --
654: -- The object doesn't exist or is invalid
647: -- error message.
648: --
649: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
650: hr_utility.set_message_token('TABLE_NAME', 'per_all_assignments_f');
651: hr_utility.raise_error;
652: When l_object_invalid then
653: --
654: -- The object doesn't exist or is invalid
655: --
652: When l_object_invalid then
653: --
654: -- The object doesn't exist or is invalid
655: --
656: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
657: hr_utility.set_message_token('TABLE_NAME', 'per_all_assignments_f');
658: hr_utility.raise_error;
659: End lck;
660: --
653: --
654: -- The object doesn't exist or is invalid
655: --
656: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
657: hr_utility.set_message_token('TABLE_NAME', 'per_all_assignments_f');
658: hr_utility.raise_error;
659: End lck;
660: --
661: -- ----------------------------------------------------------------------------
654: -- The object doesn't exist or is invalid
655: --
656: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
657: hr_utility.set_message_token('TABLE_NAME', 'per_all_assignments_f');
658: hr_utility.raise_error;
659: End lck;
660: --
661: -- ----------------------------------------------------------------------------
662: -- |-----------------------------< convert_args >-----------------------------|