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 = 'HR_HRLOC_BILL_TO_SITE_FLAG_CHK') THEN
37: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
38: hr_utility.set_message_token('YES_NO_FLAG', 'Bill-to Site Flag');
33: BEGIN
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: IF (p_constraint_name = 'HR_HRLOC_BILL_TO_SITE_FLAG_CHK') THEN
37: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
38: hr_utility.set_message_token('YES_NO_FLAG', 'Bill-to Site Flag');
39: hr_utility.raise_error;
40: ELSIF (p_constraint_name = 'HR_HRLOC_IN_ORGANIZATION_F_CHK') THEN
41: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: IF (p_constraint_name = 'HR_HRLOC_BILL_TO_SITE_FLAG_CHK') THEN
37: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
38: hr_utility.set_message_token('YES_NO_FLAG', 'Bill-to Site Flag');
39: hr_utility.raise_error;
40: ELSIF (p_constraint_name = 'HR_HRLOC_IN_ORGANIZATION_F_CHK') THEN
41: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
42: hr_utility.set_message_token('YES_NO_FLAG', 'In-Organization Flag');
35: --
36: IF (p_constraint_name = 'HR_HRLOC_BILL_TO_SITE_FLAG_CHK') THEN
37: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
38: hr_utility.set_message_token('YES_NO_FLAG', 'Bill-to Site Flag');
39: hr_utility.raise_error;
40: ELSIF (p_constraint_name = 'HR_HRLOC_IN_ORGANIZATION_F_CHK') THEN
41: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
42: hr_utility.set_message_token('YES_NO_FLAG', 'In-Organization Flag');
43: hr_utility.raise_error;
37: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
38: hr_utility.set_message_token('YES_NO_FLAG', 'Bill-to Site Flag');
39: hr_utility.raise_error;
40: ELSIF (p_constraint_name = 'HR_HRLOC_IN_ORGANIZATION_F_CHK') THEN
41: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
42: hr_utility.set_message_token('YES_NO_FLAG', 'In-Organization Flag');
43: hr_utility.raise_error;
44: ELSIF (p_constraint_name = 'HR_HRLOC_OFFICE_SITE_FLAG_CHK') THEN
45: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
38: hr_utility.set_message_token('YES_NO_FLAG', 'Bill-to Site Flag');
39: hr_utility.raise_error;
40: ELSIF (p_constraint_name = 'HR_HRLOC_IN_ORGANIZATION_F_CHK') THEN
41: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
42: hr_utility.set_message_token('YES_NO_FLAG', 'In-Organization Flag');
43: hr_utility.raise_error;
44: ELSIF (p_constraint_name = 'HR_HRLOC_OFFICE_SITE_FLAG_CHK') THEN
45: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
46: hr_utility.set_message_token('YES_NO_FLAG', 'Office Site Flag');
39: hr_utility.raise_error;
40: ELSIF (p_constraint_name = 'HR_HRLOC_IN_ORGANIZATION_F_CHK') THEN
41: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
42: hr_utility.set_message_token('YES_NO_FLAG', 'In-Organization Flag');
43: hr_utility.raise_error;
44: ELSIF (p_constraint_name = 'HR_HRLOC_OFFICE_SITE_FLAG_CHK') THEN
45: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
46: hr_utility.set_message_token('YES_NO_FLAG', 'Office Site Flag');
47: hr_utility.raise_error;
41: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
42: hr_utility.set_message_token('YES_NO_FLAG', 'In-Organization Flag');
43: hr_utility.raise_error;
44: ELSIF (p_constraint_name = 'HR_HRLOC_OFFICE_SITE_FLAG_CHK') THEN
45: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
46: hr_utility.set_message_token('YES_NO_FLAG', 'Office Site Flag');
47: hr_utility.raise_error;
48: ELSIF (p_constraint_name = 'HR_HRLOC_RECEIVING_SITE_FL_CHK') THEN
49: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
42: hr_utility.set_message_token('YES_NO_FLAG', 'In-Organization Flag');
43: hr_utility.raise_error;
44: ELSIF (p_constraint_name = 'HR_HRLOC_OFFICE_SITE_FLAG_CHK') THEN
45: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
46: hr_utility.set_message_token('YES_NO_FLAG', 'Office Site Flag');
47: hr_utility.raise_error;
48: ELSIF (p_constraint_name = 'HR_HRLOC_RECEIVING_SITE_FL_CHK') THEN
49: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
50: hr_utility.set_message_token('YES_NO_FLAG', 'Receiving Site Flag');
43: hr_utility.raise_error;
44: ELSIF (p_constraint_name = 'HR_HRLOC_OFFICE_SITE_FLAG_CHK') THEN
45: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
46: hr_utility.set_message_token('YES_NO_FLAG', 'Office Site Flag');
47: hr_utility.raise_error;
48: ELSIF (p_constraint_name = 'HR_HRLOC_RECEIVING_SITE_FL_CHK') THEN
49: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
50: hr_utility.set_message_token('YES_NO_FLAG', 'Receiving Site Flag');
51: hr_utility.raise_error;
45: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
46: hr_utility.set_message_token('YES_NO_FLAG', 'Office Site Flag');
47: hr_utility.raise_error;
48: ELSIF (p_constraint_name = 'HR_HRLOC_RECEIVING_SITE_FL_CHK') THEN
49: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
50: hr_utility.set_message_token('YES_NO_FLAG', 'Receiving Site Flag');
51: hr_utility.raise_error;
52: ELSIF (p_constraint_name = 'HR_HRLOC_SHIP_TO_SITE_FLAG_CHK') THEN
53: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
46: hr_utility.set_message_token('YES_NO_FLAG', 'Office Site Flag');
47: hr_utility.raise_error;
48: ELSIF (p_constraint_name = 'HR_HRLOC_RECEIVING_SITE_FL_CHK') THEN
49: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
50: hr_utility.set_message_token('YES_NO_FLAG', 'Receiving Site Flag');
51: hr_utility.raise_error;
52: ELSIF (p_constraint_name = 'HR_HRLOC_SHIP_TO_SITE_FLAG_CHK') THEN
53: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
54: hr_utility.set_message_token('YES_NO_FLAG', 'Ship-to Site Flag');
47: hr_utility.raise_error;
48: ELSIF (p_constraint_name = 'HR_HRLOC_RECEIVING_SITE_FL_CHK') THEN
49: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
50: hr_utility.set_message_token('YES_NO_FLAG', 'Receiving Site Flag');
51: hr_utility.raise_error;
52: ELSIF (p_constraint_name = 'HR_HRLOC_SHIP_TO_SITE_FLAG_CHK') THEN
53: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
54: hr_utility.set_message_token('YES_NO_FLAG', 'Ship-to Site Flag');
55: hr_utility.raise_error;
49: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
50: hr_utility.set_message_token('YES_NO_FLAG', 'Receiving Site Flag');
51: hr_utility.raise_error;
52: ELSIF (p_constraint_name = 'HR_HRLOC_SHIP_TO_SITE_FLAG_CHK') THEN
53: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
54: hr_utility.set_message_token('YES_NO_FLAG', 'Ship-to Site Flag');
55: hr_utility.raise_error;
56: ELSIF (p_constraint_name = 'HR_LOCATIONS_PK') THEN
57: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
50: hr_utility.set_message_token('YES_NO_FLAG', 'Receiving Site Flag');
51: hr_utility.raise_error;
52: ELSIF (p_constraint_name = 'HR_HRLOC_SHIP_TO_SITE_FLAG_CHK') THEN
53: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
54: hr_utility.set_message_token('YES_NO_FLAG', 'Ship-to Site Flag');
55: hr_utility.raise_error;
56: ELSIF (p_constraint_name = 'HR_LOCATIONS_PK') THEN
57: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.raise_error;
52: ELSIF (p_constraint_name = 'HR_HRLOC_SHIP_TO_SITE_FLAG_CHK') THEN
53: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
54: hr_utility.set_message_token('YES_NO_FLAG', 'Ship-to Site Flag');
55: hr_utility.raise_error;
56: ELSIF (p_constraint_name = 'HR_LOCATIONS_PK') THEN
57: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('STEP','30');
53: hr_utility.set_message(800, 'PER_52500_INV_YES_NO_FLAG');
54: hr_utility.set_message_token('YES_NO_FLAG', 'Ship-to Site Flag');
55: hr_utility.raise_error;
56: ELSIF (p_constraint_name = 'HR_LOCATIONS_PK') THEN
57: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('STEP','30');
60: hr_utility.raise_error;
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
54: hr_utility.set_message_token('YES_NO_FLAG', 'Ship-to Site Flag');
55: hr_utility.raise_error;
56: ELSIF (p_constraint_name = 'HR_LOCATIONS_PK') THEN
57: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('STEP','30');
60: hr_utility.raise_error;
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
62: hr_utility.set_message(800, 'PER_52507_INV_LOCATION_CODE');
55: hr_utility.raise_error;
56: ELSIF (p_constraint_name = 'HR_LOCATIONS_PK') THEN
57: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('STEP','30');
60: hr_utility.raise_error;
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
62: hr_utility.set_message(800, 'PER_52507_INV_LOCATION_CODE');
63: hr_utility.set_message_token('PROCEDURE', l_proc);
56: ELSIF (p_constraint_name = 'HR_LOCATIONS_PK') THEN
57: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('STEP','30');
60: hr_utility.raise_error;
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
62: hr_utility.set_message(800, 'PER_52507_INV_LOCATION_CODE');
63: hr_utility.set_message_token('PROCEDURE', l_proc);
64: hr_utility.set_message_token('STEP','35');
58: hr_utility.set_message_token('PROCEDURE', l_proc);
59: hr_utility.set_message_token('STEP','30');
60: hr_utility.raise_error;
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
62: hr_utility.set_message(800, 'PER_52507_INV_LOCATION_CODE');
63: hr_utility.set_message_token('PROCEDURE', l_proc);
64: hr_utility.set_message_token('STEP','35');
65: hr_utility.raise_error;
66: ELSE
59: hr_utility.set_message_token('STEP','30');
60: hr_utility.raise_error;
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
62: hr_utility.set_message(800, 'PER_52507_INV_LOCATION_CODE');
63: hr_utility.set_message_token('PROCEDURE', l_proc);
64: hr_utility.set_message_token('STEP','35');
65: hr_utility.raise_error;
66: ELSE
67: hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
60: hr_utility.raise_error;
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
62: hr_utility.set_message(800, 'PER_52507_INV_LOCATION_CODE');
63: hr_utility.set_message_token('PROCEDURE', l_proc);
64: hr_utility.set_message_token('STEP','35');
65: hr_utility.raise_error;
66: ELSE
67: hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
68: hr_utility.set_message_token('PROCEDURE', l_proc);
61: ELSIF (p_constraint_name = 'HR_LOCATIONS_UK2') THEN
62: hr_utility.set_message(800, 'PER_52507_INV_LOCATION_CODE');
63: hr_utility.set_message_token('PROCEDURE', l_proc);
64: hr_utility.set_message_token('STEP','35');
65: hr_utility.raise_error;
66: ELSE
67: hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
68: hr_utility.set_message_token('PROCEDURE', l_proc);
69: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
63: hr_utility.set_message_token('PROCEDURE', l_proc);
64: hr_utility.set_message_token('STEP','35');
65: hr_utility.raise_error;
66: ELSE
67: hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
68: hr_utility.set_message_token('PROCEDURE', l_proc);
69: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
70: hr_utility.raise_error;
71: END IF;
64: hr_utility.set_message_token('STEP','35');
65: hr_utility.raise_error;
66: ELSE
67: hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
68: hr_utility.set_message_token('PROCEDURE', l_proc);
69: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
70: hr_utility.raise_error;
71: END IF;
72: --
65: hr_utility.raise_error;
66: ELSE
67: hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
68: hr_utility.set_message_token('PROCEDURE', l_proc);
69: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
70: hr_utility.raise_error;
71: END IF;
72: --
73: hr_utility.set_location(' Leaving:'||l_proc, 10);
66: ELSE
67: hr_utility.set_message(800, 'HR_7877_API_INVALID_CONSTRAINT');
68: hr_utility.set_message_token('PROCEDURE', l_proc);
69: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
70: hr_utility.raise_error;
71: END IF;
72: --
73: hr_utility.set_location(' Leaving:'||l_proc, 10);
74: END constraint_error;
69: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
70: hr_utility.raise_error;
71: END IF;
72: --
73: hr_utility.set_location(' Leaving:'||l_proc, 10);
74: END constraint_error;
75: --
76: -- ----------------------------------------------------------------------------
77: -- |-----------------------------< api_updating >-----------------------------|
178: l_proc VARCHAR2(72) := g_package||'api_updating';
179: l_fct_ret BOOLEAN;
180: --
181: BEGIN
182: hr_utility.set_location('Entering:'||l_proc, 5);
183: --
184: IF (
185: p_location_id IS NULL AND
186: p_object_version_number IS NULL
194: IF (
195: p_location_id = g_old_rec.location_id AND
196: p_object_version_number = g_old_rec.object_version_number
197: ) THEN
198: hr_utility.set_location(l_proc, 10);
199: --
200: -- The g_old_rec is current therefore we must
201: -- set the returning function to true
202: --
211: CLOSE csr_select_row;
212: --
213: -- The primary key is invalid therefore we must error
214: --
215: hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
216: hr_utility.raise_error;
217: END IF;
218: CLOSE csr_select_row;
219: IF (p_object_version_number <> g_old_rec.object_version_number) THEN
212: --
213: -- The primary key is invalid therefore we must error
214: --
215: hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
216: hr_utility.raise_error;
217: END IF;
218: CLOSE csr_select_row;
219: IF (p_object_version_number <> g_old_rec.object_version_number) THEN
220: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
216: hr_utility.raise_error;
217: END IF;
218: CLOSE csr_select_row;
219: IF (p_object_version_number <> g_old_rec.object_version_number) THEN
220: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
221: hr_utility.set_message_token('TABLE_NAME', 'HR_LOCATIONS_ALL');
222: hr_utility.raise_error;
223: END IF;
224: hr_utility.set_location(l_proc, 15);
217: END IF;
218: CLOSE csr_select_row;
219: IF (p_object_version_number <> g_old_rec.object_version_number) THEN
220: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
221: hr_utility.set_message_token('TABLE_NAME', 'HR_LOCATIONS_ALL');
222: hr_utility.raise_error;
223: END IF;
224: hr_utility.set_location(l_proc, 15);
225: l_fct_ret := true;
218: CLOSE csr_select_row;
219: IF (p_object_version_number <> g_old_rec.object_version_number) THEN
220: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
221: hr_utility.set_message_token('TABLE_NAME', 'HR_LOCATIONS_ALL');
222: hr_utility.raise_error;
223: END IF;
224: hr_utility.set_location(l_proc, 15);
225: l_fct_ret := true;
226: END IF;
220: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
221: hr_utility.set_message_token('TABLE_NAME', 'HR_LOCATIONS_ALL');
222: hr_utility.raise_error;
223: END IF;
224: hr_utility.set_location(l_proc, 15);
225: l_fct_ret := true;
226: END IF;
227: END IF;
228: hr_utility.set_location(' Leaving:'||l_proc, 20);
224: hr_utility.set_location(l_proc, 15);
225: l_fct_ret := true;
226: END IF;
227: END IF;
228: hr_utility.set_location(' Leaving:'||l_proc, 20);
229: RETURN (l_fct_ret);
230: --
231: END api_updating;
232: --
334: --
335: l_proc VARCHAR2(72) := g_package||'lck';
336: --
337: BEGIN
338: hr_utility.set_location('Entering:'|| l_proc || '. OVN :' || to_char (p_object_version_number)
339: || ', ID :' || to_char (p_location_id), 5);
340: --
341: -- Add any mandatory argument checking here:
342: -- Example:
349: (p_api_name => l_proc,
350: p_argument => 'location_id',
351: p_argument_value => p_location_id);
352: --
353: hr_utility.set_location(l_proc, 6);
354: --
355: hr_api.mandatory_arg_error
356: (p_api_name => l_proc,
357: p_argument => 'object_version_number',
356: (p_api_name => l_proc,
357: p_argument => 'object_version_number',
358: p_argument_value => p_object_version_number);
359: --
360: hr_utility.set_location(l_proc, 10);
361: --
362: --
363: OPEN csr_lock_row;
364: FETCH csr_lock_row INTO g_old_rec;
366: CLOSE csr_lock_row;
367: --
368: -- The primary key is invalid therefore we must error
369: --
370: hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
371: hr_utility.raise_error;
372: END IF;
373: CLOSE csr_lock_row;
374: --
367: --
368: -- The primary key is invalid therefore we must error
369: --
370: hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');
371: hr_utility.raise_error;
372: END IF;
373: CLOSE csr_lock_row;
374: --
375: hr_utility.set_location(l_proc, 15);
371: hr_utility.raise_error;
372: END IF;
373: CLOSE csr_lock_row;
374: --
375: hr_utility.set_location(l_proc, 15);
376: --
377: IF (p_object_version_number <> nvl (g_old_rec.object_version_number, hr_api.g_number) )
378: THEN
379: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
375: hr_utility.set_location(l_proc, 15);
376: --
377: IF (p_object_version_number <> nvl (g_old_rec.object_version_number, hr_api.g_number) )
378: THEN
379: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
380: hr_utility.raise_error;
381: END IF;
382: --
383: hr_utility.set_location(' Leaving:'||l_proc, 20);
376: --
377: IF (p_object_version_number <> nvl (g_old_rec.object_version_number, hr_api.g_number) )
378: THEN
379: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
380: hr_utility.raise_error;
381: END IF;
382: --
383: hr_utility.set_location(' Leaving:'||l_proc, 20);
384: --
379: hr_utility.set_message(800, 'HR_7155_OBJECT_INVALID');
380: hr_utility.raise_error;
381: END IF;
382: --
383: hr_utility.set_location(' Leaving:'||l_proc, 20);
384: --
385: -- We need to trap the ORA LOCK exception
386: --
387: EXCEPTION
389: --
390: -- The object is locked therefore we need to supply a meaningful
391: -- error message.
392: --
393: hr_utility.set_message(800, 'HR_7165_OBJECT_LOCKED');
394: hr_utility.set_message_token('TABLE_NAME', 'hr_locations_all');
395: hr_utility.raise_error;
396: END lck;
397: --
390: -- The object is locked therefore we need to supply a meaningful
391: -- error message.
392: --
393: hr_utility.set_message(800, 'HR_7165_OBJECT_LOCKED');
394: hr_utility.set_message_token('TABLE_NAME', 'hr_locations_all');
395: hr_utility.raise_error;
396: END lck;
397: --
398: -- ----------------------------------------------------------------------------
391: -- error message.
392: --
393: hr_utility.set_message(800, 'HR_7165_OBJECT_LOCKED');
394: hr_utility.set_message_token('TABLE_NAME', 'hr_locations_all');
395: hr_utility.raise_error;
396: END lck;
397: --
398: -- ----------------------------------------------------------------------------
399: -- |-----------------------------< convert_args >-----------------------------|
489: l_proc VARCHAR2(72) := g_package||'convert_args';
490: --
491: BEGIN
492: --
493: hr_utility.set_location('Entering:'||l_proc, 5);
494: --
495: -- Convert arguments into local l_rec structure.
496: --
497: l_rec.location_id := p_location_id;
572: l_rec.global_attribute17 := p_global_attribute17;
573: l_rec.global_attribute18 := p_global_attribute18;
574: l_rec.global_attribute19 := p_global_attribute19;
575: l_rec.global_attribute20 := p_global_attribute20;
576: hr_utility.set_location(' Leaving:'||l_proc, 101);
577: l_rec.legal_address_flag := p_legal_address_flag;
578: hr_utility.set_location(' Leaving:'||l_proc, 102);
579: l_rec.tp_header_id := p_tp_header_id;
580: l_rec.ece_tp_location_code := p_ece_tp_location_code;
574: l_rec.global_attribute19 := p_global_attribute19;
575: l_rec.global_attribute20 := p_global_attribute20;
576: hr_utility.set_location(' Leaving:'||l_proc, 101);
577: l_rec.legal_address_flag := p_legal_address_flag;
578: hr_utility.set_location(' Leaving:'||l_proc, 102);
579: l_rec.tp_header_id := p_tp_header_id;
580: l_rec.ece_tp_location_code := p_ece_tp_location_code;
581: l_rec.business_group_id := p_business_group_id;
582: --
581: l_rec.business_group_id := p_business_group_id;
582: --
583: -- Return the plsql record structure.
584: --
585: hr_utility.set_location(' Leaving:'||l_proc, 10);
586: RETURN(l_rec);
587: --
588: END convert_args;
589: --