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 = 'PER_PEOPLE_F_FK1') Then
37: -- Error: The Business Group is not defined.
38: hr_utility.set_message(801, 'HR_6673_PO_EMP_NO_BG');
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_PEOPLE_F_FK1') Then
37: -- Error: The Business Group is not defined.
38: hr_utility.set_message(801, 'HR_6673_PO_EMP_NO_BG');
39: hr_utility.raise_error;
40: ElsIf (p_constraint_name = 'PER_PEOPLE_F_FK2') Then
41: -- Error: Invalid person type
42: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
35: --
36: If (p_constraint_name = 'PER_PEOPLE_F_FK1') Then
37: -- Error: The Business Group is not defined.
38: hr_utility.set_message(801, 'HR_6673_PO_EMP_NO_BG');
39: hr_utility.raise_error;
40: ElsIf (p_constraint_name = 'PER_PEOPLE_F_FK2') Then
41: -- Error: Invalid person type
42: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
43: hr_utility.raise_error;
38: hr_utility.set_message(801, 'HR_6673_PO_EMP_NO_BG');
39: hr_utility.raise_error;
40: ElsIf (p_constraint_name = 'PER_PEOPLE_F_FK2') Then
41: -- Error: Invalid person type
42: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_PEOPLE_F_PK') Then
45: -- Error: The primary key specified is invalid
46: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
39: hr_utility.raise_error;
40: ElsIf (p_constraint_name = 'PER_PEOPLE_F_FK2') Then
41: -- Error: Invalid person type
42: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_PEOPLE_F_PK') Then
45: -- Error: The primary key specified is invalid
46: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
47: hr_utility.raise_error;
42: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_PEOPLE_F_PK') Then
45: -- Error: The primary key specified is invalid
46: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_PER_EXPENSE_CHECK_SEND_CHK') Then
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_PEOPLE_F_PK') Then
45: -- Error: The primary key specified is invalid
46: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_PER_EXPENSE_CHECK_SEND_CHK') Then
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: -- Error: The primary key specified is invalid
46: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_PER_EXPENSE_CHECK_SEND_CHK') Then
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
46: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_PER_EXPENSE_CHECK_SEND_CHK') Then
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
54: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_PER_EXPENSE_CHECK_SEND_CHK') Then
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
54: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
55: hr_utility.set_message_token('PROCEDURE', l_proc);
48: ElsIf (p_constraint_name = 'PER_PER_EXPENSE_CHECK_SEND_CHK') Then
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
54: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
55: hr_utility.set_message_token('PROCEDURE', l_proc);
56: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
54: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
55: hr_utility.set_message_token('PROCEDURE', l_proc);
56: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
57: hr_utility.raise_error;
58: ElsIf (p_constraint_name = 'PER_PER_SEX_CHK') Then
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
54: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
55: hr_utility.set_message_token('PROCEDURE', l_proc);
56: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
57: hr_utility.raise_error;
58: ElsIf (p_constraint_name = 'PER_PER_SEX_CHK') Then
59: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
52: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
54: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
55: hr_utility.set_message_token('PROCEDURE', l_proc);
56: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
57: hr_utility.raise_error;
58: ElsIf (p_constraint_name = 'PER_PER_SEX_CHK') Then
59: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
60: hr_utility.raise_error;
53: ElsIf (p_constraint_name = 'PER_PER_REGISTERED_DISABLE_CHK') Then
54: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
55: hr_utility.set_message_token('PROCEDURE', l_proc);
56: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
57: hr_utility.raise_error;
58: ElsIf (p_constraint_name = 'PER_PER_SEX_CHK') Then
59: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
60: hr_utility.raise_error;
61: ElsIf (p_constraint_name = 'PER_PER_ON_MILITARY_SRV_CHK') Then
55: hr_utility.set_message_token('PROCEDURE', l_proc);
56: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
57: hr_utility.raise_error;
58: ElsIf (p_constraint_name = 'PER_PER_SEX_CHK') Then
59: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
60: hr_utility.raise_error;
61: ElsIf (p_constraint_name = 'PER_PER_ON_MILITARY_SRV_CHK') Then
62: hr_utility.set_message(800, 'PER_52115_PER_INV_ON_MIL_SERV');
63: hr_utility.raise_error;
56: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
57: hr_utility.raise_error;
58: ElsIf (p_constraint_name = 'PER_PER_SEX_CHK') Then
59: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
60: hr_utility.raise_error;
61: ElsIf (p_constraint_name = 'PER_PER_ON_MILITARY_SRV_CHK') Then
62: hr_utility.set_message(800, 'PER_52115_PER_INV_ON_MIL_SERV');
63: hr_utility.raise_error;
64: ElsIf (p_constraint_name = 'PER_PER_RESUME_EXISTS_CHK') Then
58: ElsIf (p_constraint_name = 'PER_PER_SEX_CHK') Then
59: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
60: hr_utility.raise_error;
61: ElsIf (p_constraint_name = 'PER_PER_ON_MILITARY_SRV_CHK') Then
62: hr_utility.set_message(800, 'PER_52115_PER_INV_ON_MIL_SERV');
63: hr_utility.raise_error;
64: ElsIf (p_constraint_name = 'PER_PER_RESUME_EXISTS_CHK') Then
65: hr_utility.set_message(800, 'PER_52116_PER_INV_RES_EXIST');
66: hr_utility.raise_error;
59: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
60: hr_utility.raise_error;
61: ElsIf (p_constraint_name = 'PER_PER_ON_MILITARY_SRV_CHK') Then
62: hr_utility.set_message(800, 'PER_52115_PER_INV_ON_MIL_SERV');
63: hr_utility.raise_error;
64: ElsIf (p_constraint_name = 'PER_PER_RESUME_EXISTS_CHK') Then
65: hr_utility.set_message(800, 'PER_52116_PER_INV_RES_EXIST');
66: hr_utility.raise_error;
67: ElsIf (p_constraint_name = 'PER_PER_SECOND_PASSPORT_CHK') Then
61: ElsIf (p_constraint_name = 'PER_PER_ON_MILITARY_SRV_CHK') Then
62: hr_utility.set_message(800, 'PER_52115_PER_INV_ON_MIL_SERV');
63: hr_utility.raise_error;
64: ElsIf (p_constraint_name = 'PER_PER_RESUME_EXISTS_CHK') Then
65: hr_utility.set_message(800, 'PER_52116_PER_INV_RES_EXIST');
66: hr_utility.raise_error;
67: ElsIf (p_constraint_name = 'PER_PER_SECOND_PASSPORT_CHK') Then
68: hr_utility.set_message(800, 'PER_52117_PER_INV_SEC_PAS_EXT');
69: hr_utility.raise_error;
62: hr_utility.set_message(800, 'PER_52115_PER_INV_ON_MIL_SERV');
63: hr_utility.raise_error;
64: ElsIf (p_constraint_name = 'PER_PER_RESUME_EXISTS_CHK') Then
65: hr_utility.set_message(800, 'PER_52116_PER_INV_RES_EXIST');
66: hr_utility.raise_error;
67: ElsIf (p_constraint_name = 'PER_PER_SECOND_PASSPORT_CHK') Then
68: hr_utility.set_message(800, 'PER_52117_PER_INV_SEC_PAS_EXT');
69: hr_utility.raise_error;
70: Elsif (p_constraint_name = 'PER_BEN_NO_CVG_F_CHK') Then
64: ElsIf (p_constraint_name = 'PER_PER_RESUME_EXISTS_CHK') Then
65: hr_utility.set_message(800, 'PER_52116_PER_INV_RES_EXIST');
66: hr_utility.raise_error;
67: ElsIf (p_constraint_name = 'PER_PER_SECOND_PASSPORT_CHK') Then
68: hr_utility.set_message(800, 'PER_52117_PER_INV_SEC_PAS_EXT');
69: hr_utility.raise_error;
70: Elsif (p_constraint_name = 'PER_BEN_NO_CVG_F_CHK') Then
71: hr_utility.set_message(800,'PER_52387_BEN_NO_CVG_F');
72: hr_utility.raise_error;
65: hr_utility.set_message(800, 'PER_52116_PER_INV_RES_EXIST');
66: hr_utility.raise_error;
67: ElsIf (p_constraint_name = 'PER_PER_SECOND_PASSPORT_CHK') Then
68: hr_utility.set_message(800, 'PER_52117_PER_INV_SEC_PAS_EXT');
69: hr_utility.raise_error;
70: Elsif (p_constraint_name = 'PER_BEN_NO_CVG_F_CHK') Then
71: hr_utility.set_message(800,'PER_52387_BEN_NO_CVG_F');
72: hr_utility.raise_error;
73: Elsif (p_constraint_name = 'PER_DPDNT_VLNTRY_SVCE_CHK') Then
67: ElsIf (p_constraint_name = 'PER_PER_SECOND_PASSPORT_CHK') Then
68: hr_utility.set_message(800, 'PER_52117_PER_INV_SEC_PAS_EXT');
69: hr_utility.raise_error;
70: Elsif (p_constraint_name = 'PER_BEN_NO_CVG_F_CHK') Then
71: hr_utility.set_message(800,'PER_52387_BEN_NO_CVG_F');
72: hr_utility.raise_error;
73: Elsif (p_constraint_name = 'PER_DPDNT_VLNTRY_SVCE_CHK') Then
74: hr_utility.set_message(800,'PER_52389_DPDNT_VLNTRY_SVCE_F');
75: hr_utility.raise_error;
68: hr_utility.set_message(800, 'PER_52117_PER_INV_SEC_PAS_EXT');
69: hr_utility.raise_error;
70: Elsif (p_constraint_name = 'PER_BEN_NO_CVG_F_CHK') Then
71: hr_utility.set_message(800,'PER_52387_BEN_NO_CVG_F');
72: hr_utility.raise_error;
73: Elsif (p_constraint_name = 'PER_DPDNT_VLNTRY_SVCE_CHK') Then
74: hr_utility.set_message(800,'PER_52389_DPDNT_VLNTRY_SVCE_F');
75: hr_utility.raise_error;
76: Else
70: Elsif (p_constraint_name = 'PER_BEN_NO_CVG_F_CHK') Then
71: hr_utility.set_message(800,'PER_52387_BEN_NO_CVG_F');
72: hr_utility.raise_error;
73: Elsif (p_constraint_name = 'PER_DPDNT_VLNTRY_SVCE_CHK') Then
74: hr_utility.set_message(800,'PER_52389_DPDNT_VLNTRY_SVCE_F');
75: hr_utility.raise_error;
76: Else
77: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
78: hr_utility.set_message_token('PROCEDURE', l_proc);
71: hr_utility.set_message(800,'PER_52387_BEN_NO_CVG_F');
72: hr_utility.raise_error;
73: Elsif (p_constraint_name = 'PER_DPDNT_VLNTRY_SVCE_CHK') Then
74: hr_utility.set_message(800,'PER_52389_DPDNT_VLNTRY_SVCE_F');
75: hr_utility.raise_error;
76: Else
77: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
78: hr_utility.set_message_token('PROCEDURE', l_proc);
79: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
73: Elsif (p_constraint_name = 'PER_DPDNT_VLNTRY_SVCE_CHK') Then
74: hr_utility.set_message(800,'PER_52389_DPDNT_VLNTRY_SVCE_F');
75: hr_utility.raise_error;
76: Else
77: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
78: hr_utility.set_message_token('PROCEDURE', l_proc);
79: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
80: hr_utility.raise_error;
81: End If;
74: hr_utility.set_message(800,'PER_52389_DPDNT_VLNTRY_SVCE_F');
75: hr_utility.raise_error;
76: Else
77: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
78: hr_utility.set_message_token('PROCEDURE', l_proc);
79: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
80: hr_utility.raise_error;
81: End If;
82: --
75: hr_utility.raise_error;
76: Else
77: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
78: hr_utility.set_message_token('PROCEDURE', l_proc);
79: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
80: hr_utility.raise_error;
81: End If;
82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
76: Else
77: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
78: hr_utility.set_message_token('PROCEDURE', l_proc);
79: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
80: hr_utility.raise_error;
81: End If;
82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
84: End constraint_error;
79: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
80: hr_utility.raise_error;
81: End If;
82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
84: End constraint_error;
85: --
86: -- ----------------------------------------------------------------------------
87: -- |-----------------------------< api_updating >-----------------------------|
253: l_proc varchar2(72) := g_package||'api_updating';
254: l_fct_ret boolean;
255: --
256: Begin
257: hr_utility.set_location('Entering:'||l_proc, 5);
258: --
259: If (p_effective_date is null or
260: p_person_id is null or
261: p_object_version_number is null) Then
266: l_fct_ret := false;
267: Else
268: If (p_person_id = g_old_rec.person_id and
269: p_object_version_number = g_old_rec.object_version_number) Then
270: hr_utility.set_location(l_proc, 10);
271: --
272: -- The g_old_rec is current therefore we must
273: -- set the returning function to true
274: --
288: Close C_Sel1;
289: --
290: -- The primary key is invalid therefore we must error
291: --
292: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
293: hr_utility.raise_error;
294: End If;
295: Close C_Sel1;
296: -- ER FPT
289: --
290: -- The primary key is invalid therefore we must error
291: --
292: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
293: hr_utility.raise_error;
294: End If;
295: Close C_Sel1;
296: -- ER FPT
297: If (p_object_version_number <> g_old_rec.object_version_number) AND (g_old_rec.effective_start_date <> p_effective_date) Then
294: End If;
295: Close C_Sel1;
296: -- ER FPT
297: If (p_object_version_number <> g_old_rec.object_version_number) AND (g_old_rec.effective_start_date <> p_effective_date) Then
298: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
299: hr_utility.raise_error;
300: End If;
301: hr_utility.set_location(l_proc, 15);
302: l_fct_ret := true;
295: Close C_Sel1;
296: -- ER FPT
297: If (p_object_version_number <> g_old_rec.object_version_number) AND (g_old_rec.effective_start_date <> p_effective_date) Then
298: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
299: hr_utility.raise_error;
300: End If;
301: hr_utility.set_location(l_proc, 15);
302: l_fct_ret := true;
303: End If;
297: If (p_object_version_number <> g_old_rec.object_version_number) AND (g_old_rec.effective_start_date <> p_effective_date) Then
298: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
299: hr_utility.raise_error;
300: End If;
301: hr_utility.set_location(l_proc, 15);
302: l_fct_ret := true;
303: End If;
304: End If;
305: hr_utility.set_location(' Leaving:'||l_proc, 20);
301: hr_utility.set_location(l_proc, 15);
302: l_fct_ret := true;
303: End If;
304: End If;
305: hr_utility.set_location(' Leaving:'||l_proc, 20);
306: Return (l_fct_ret);
307: --
308: End api_updating;
309: --
323: --
324: --
325: --
326: Begin
327: hr_utility.set_location('Entering:'||l_proc, 5);
328: --
329: --
330: -- Call the corresponding datetrack api
331: --
338: p_delete => p_delete,
339: p_future_change => p_future_change,
340: p_delete_next_change => p_delete_next_change);
341: --
342: hr_utility.set_location(' Leaving:'||l_proc, 10);
343: End find_dt_del_modes;
344: --
345: -- ----------------------------------------------------------------------------
346: -- |--------------------------< find_dt_upd_modes >---------------------------|
355: --
356: l_proc varchar2(72) := g_package||'find_dt_upd_modes';
357: --
358: Begin
359: hr_utility.set_location('Entering:'||l_proc, 5);
360: --
361: -- Call the corresponding datetrack api
362: --
363: dt_api.find_dt_upd_modes
369: p_update => p_update,
370: p_update_override => p_update_override,
371: p_update_change_insert => p_update_change_insert);
372: --
373: hr_utility.set_location(' Leaving:'||l_proc, 10);
374: End find_dt_upd_modes;
375: --
376: -- ----------------------------------------------------------------------------
377: -- |------------------------< upd_effective_end_date >------------------------|
387: l_proc varchar2(72) := g_package||'upd_effective_end_date';
388: l_object_version_number number;
389: --
390: Begin
391: hr_utility.set_location('Entering:'||l_proc, 5);
392: --
393: -- Because we are updating a row we must get the next object
394: -- version number.
395: --
398: (p_base_table_name => 'per_all_people_f',
399: p_base_key_column => 'person_id',
400: p_base_key_value => p_base_key_value);
401: --
402: hr_utility.set_location(l_proc, 10);
403: g_api_dml := true; -- Set the api dml status
404: --
405: -- Update the specified datetrack row setting the effective
406: -- end date to the specified new effective end date.
413: between t.effective_start_date and t.effective_end_date;
414: --
415: g_api_dml := false; -- Unset the api dml status
416: p_object_version_number := l_object_version_number;
417: hr_utility.set_location(' Leaving:'||l_proc, 15);
418: --
419: Exception
420: When Others Then
421: g_api_dml := false; -- Unset the api dml status
606: where hc.comment_id = per_per_shd.g_old_rec.comment_id;
607: --
608:
609: Begin
610: hr_utility.set_location('Entering:'||l_proc, 5);
611: --
612: -- Ensure that all the mandatory arguments are not null
613: --
614: hr_api.mandatory_arg_error(p_api_name => l_proc,
639: Close C_Sel1;
640: --
641: -- The primary key is invalid therefore we must error
642: --
643: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
644: hr_utility.raise_error;
645: End If;
646: Close C_Sel1;
647: -- ER FPT
640: --
641: -- The primary key is invalid therefore we must error
642: --
643: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
644: hr_utility.raise_error;
645: End If;
646: Close C_Sel1;
647: -- ER FPT
648: If (p_object_version_number <> g_old_rec.object_version_number) and (p_datetrack_mode <> 'CORRECTION') Then
645: End If;
646: Close C_Sel1;
647: -- ER FPT
648: If (p_object_version_number <> g_old_rec.object_version_number) and (p_datetrack_mode <> 'CORRECTION') Then
649: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
650: hr_utility.raise_error;
651: End If;
652: hr_utility.set_location(l_proc, 15);
653: --
646: Close C_Sel1;
647: -- ER FPT
648: If (p_object_version_number <> g_old_rec.object_version_number) and (p_datetrack_mode <> 'CORRECTION') Then
649: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
650: hr_utility.raise_error;
651: End If;
652: hr_utility.set_location(l_proc, 15);
653: --
654: -- Providing we are doing an update and a comment_id exists then
648: If (p_object_version_number <> g_old_rec.object_version_number) and (p_datetrack_mode <> 'CORRECTION') Then
649: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
650: hr_utility.raise_error;
651: End If;
652: hr_utility.set_location(l_proc, 15);
653: --
654: -- Providing we are doing an update and a comment_id exists then
655: -- we select the comment text.
656: --
666: -- The comments for the specified comment_id does not exist.
667: -- We must error due to data integrity problems.
668: --
669: Close C_Sel3;
670: hr_utility.set_message(801, 'HR_7202_COMMENT_TEXT_NOT_EXIST');
671: hr_utility.raise_error;
672: End If;
673: Close C_Sel3;
674: End If;
667: -- We must error due to data integrity problems.
668: --
669: Close C_Sel3;
670: hr_utility.set_message(801, 'HR_7202_COMMENT_TEXT_NOT_EXIST');
671: hr_utility.raise_error;
672: End If;
673: Close C_Sel3;
674: End If;
675: --
693: -- We are doing a datetrack 'INSERT' which is illegal within this
694: -- procedure therefore we must error (note: to lck on insert the
695: -- private procedure ins_lck should be called).
696: --
697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
698: hr_utility.set_message_token('PROCEDURE', l_proc);
699: hr_utility.set_message_token('STEP','20');
700: hr_utility.raise_error;
701: End If;
694: -- procedure therefore we must error (note: to lck on insert the
695: -- private procedure ins_lck should be called).
696: --
697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
698: hr_utility.set_message_token('PROCEDURE', l_proc);
699: hr_utility.set_message_token('STEP','20');
700: hr_utility.raise_error;
701: End If;
702: --
695: -- private procedure ins_lck should be called).
696: --
697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
698: hr_utility.set_message_token('PROCEDURE', l_proc);
699: hr_utility.set_message_token('STEP','20');
700: hr_utility.raise_error;
701: End If;
702: --
703: -- Set the validation start and end date OUT arguments
696: --
697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
698: hr_utility.set_message_token('PROCEDURE', l_proc);
699: hr_utility.set_message_token('STEP','20');
700: hr_utility.raise_error;
701: End If;
702: --
703: -- Set the validation start and end date OUT arguments
704: --
704: --
705: p_validation_start_date := l_validation_start_date;
706: p_validation_end_date := l_validation_end_date;
707: --
708: hr_utility.set_location(' Leaving:'||l_proc, 30);
709: --
710: -- We need to trap the ORA LOCK exception
711: --
712: Exception
714: --
715: -- The object is locked therefore we need to supply a meaningful
716: -- error message.
717: --
718: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
719: hr_utility.set_message_token('TABLE_NAME', 'per_all_people_f');
720: hr_utility.raise_error;
721: When l_object_invalid then
722: --
715: -- The object is locked therefore we need to supply a meaningful
716: -- error message.
717: --
718: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
719: hr_utility.set_message_token('TABLE_NAME', 'per_all_people_f');
720: hr_utility.raise_error;
721: When l_object_invalid then
722: --
723: -- The object doesn't exist or is invalid
716: -- error message.
717: --
718: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
719: hr_utility.set_message_token('TABLE_NAME', 'per_all_people_f');
720: hr_utility.raise_error;
721: When l_object_invalid then
722: --
723: -- The object doesn't exist or is invalid
724: --
721: When l_object_invalid then
722: --
723: -- The object doesn't exist or is invalid
724: --
725: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
726: hr_utility.set_message_token('TABLE_NAME', 'per_all_people_f');
727: hr_utility.raise_error;
728: End lck;
729: --
722: --
723: -- The object doesn't exist or is invalid
724: --
725: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
726: hr_utility.set_message_token('TABLE_NAME', 'per_all_people_f');
727: hr_utility.raise_error;
728: End lck;
729: --
730: -- ----------------------------------------------------------------------------
723: -- The object doesn't exist or is invalid
724: --
725: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
726: hr_utility.set_message_token('TABLE_NAME', 'per_all_people_f');
727: hr_utility.raise_error;
728: End lck;
729: --
730: -- ----------------------------------------------------------------------------
731: -- |-----------------------------< convert_args >-----------------------------|
887: l_proc varchar2(72) := g_package||'convert_args';
888: --
889: Begin
890: --
891: hr_utility.set_location('Entering:'||l_proc, 5);
892: --
893: -- Convert arguments into local l_rec structure.
894: --
895: l_rec.person_id := p_person_id;
1043: l_rec.local_name := p_local_name;
1044: --
1045: -- Return the plsql record structure.
1046: --
1047: hr_utility.set_location(' Leaving:'||l_proc, 10);
1048: Return(l_rec);
1049: --
1050: End convert_args;
1051: --