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_SUBJECTS_TAKEN_FK1') Then
37: hr_utility.set_message(801, 'HR_51813_SUB_QUAL_ID_REF');
38: hr_utility.raise_error;
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_SUBJECTS_TAKEN_FK1') Then
37: hr_utility.set_message(801, 'HR_51813_SUB_QUAL_ID_REF');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_PK') Then
40: hr_utility.set_message(801, 'HR_51814_SUB_SUB_TAKEN_ID_PK');
41: hr_utility.raise_error;
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_SUBJECTS_TAKEN_FK1') Then
37: hr_utility.set_message(801, 'HR_51813_SUB_QUAL_ID_REF');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_PK') Then
40: hr_utility.set_message(801, 'HR_51814_SUB_SUB_TAKEN_ID_PK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_UK1') Then
36: If (p_constraint_name = 'PER_SUBJECTS_TAKEN_FK1') Then
37: hr_utility.set_message(801, 'HR_51813_SUB_QUAL_ID_REF');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_PK') Then
40: hr_utility.set_message(801, 'HR_51814_SUB_SUB_TAKEN_ID_PK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_UK1') Then
43: hr_utility.set_message(801, 'HR_51815_SUB_REC_NOT_UNIQ');
44: hr_utility.raise_error;
37: hr_utility.set_message(801, 'HR_51813_SUB_QUAL_ID_REF');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_PK') Then
40: hr_utility.set_message(801, 'HR_51814_SUB_SUB_TAKEN_ID_PK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_UK1') Then
43: hr_utility.set_message(801, 'HR_51815_SUB_REC_NOT_UNIQ');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_SUB_START_DATES') Then
39: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_PK') Then
40: hr_utility.set_message(801, 'HR_51814_SUB_SUB_TAKEN_ID_PK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_UK1') Then
43: hr_utility.set_message(801, 'HR_51815_SUB_REC_NOT_UNIQ');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_SUB_START_DATES') Then
46: hr_utility.set_message(801, 'HR_51816_SUB_START_DATE_INV');
47: hr_utility.raise_error;
40: hr_utility.set_message(801, 'HR_51814_SUB_SUB_TAKEN_ID_PK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_UK1') Then
43: hr_utility.set_message(801, 'HR_51815_SUB_REC_NOT_UNIQ');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_SUB_START_DATES') Then
46: hr_utility.set_message(801, 'HR_51816_SUB_START_DATE_INV');
47: hr_utility.raise_error;
48: Else
42: ElsIf (p_constraint_name = 'PER_SUBJECTS_TAKEN_UK1') Then
43: hr_utility.set_message(801, 'HR_51815_SUB_REC_NOT_UNIQ');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_SUB_START_DATES') Then
46: hr_utility.set_message(801, 'HR_51816_SUB_START_DATE_INV');
47: hr_utility.raise_error;
48: Else
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
43: hr_utility.set_message(801, 'HR_51815_SUB_REC_NOT_UNIQ');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_SUB_START_DATES') Then
46: hr_utility.set_message(801, 'HR_51816_SUB_START_DATE_INV');
47: hr_utility.raise_error;
48: Else
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: ElsIf (p_constraint_name = 'PER_SUB_START_DATES') Then
46: hr_utility.set_message(801, 'HR_51816_SUB_START_DATE_INV');
47: hr_utility.raise_error;
48: Else
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: End If;
46: hr_utility.set_message(801, 'HR_51816_SUB_START_DATE_INV');
47: hr_utility.raise_error;
48: Else
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: End If;
54: --
47: hr_utility.raise_error;
48: Else
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: End If;
54: --
55: hr_utility.set_location(' Leaving:'||l_proc, 10);
48: Else
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: End If;
54: --
55: hr_utility.set_location(' Leaving:'||l_proc, 10);
56: End constraint_error;
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: End If;
54: --
55: hr_utility.set_location(' Leaving:'||l_proc, 10);
56: End constraint_error;
57: --
58: -- ----------------------------------------------------------------------------
59: -- |-----------------------------< api_updating >-----------------------------|
126: l_proc varchar2(72) := g_package||'api_updating';
127: l_fct_ret boolean;
128: --
129: Begin
130: hr_utility.set_location('Entering:'||l_proc, 5);
131: --
132: If (
133: p_subjects_taken_id is null and
134: p_object_version_number is null
142: If (
143: p_subjects_taken_id = g_old_rec.subjects_taken_id and
144: p_object_version_number = g_old_rec.object_version_number
145: ) Then
146: hr_utility.set_location(l_proc, 10);
147: --
148: -- The g_old_rec is current therefore we must
149: -- set the returning function to true
150: --
159: Close C_Sel1;
160: --
161: -- The primary key is invalid therefore we must error
162: --
163: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
164: hr_utility.raise_error;
165: End If;
166: Close C_Sel1;
167: If (p_object_version_number <> g_old_rec.object_version_number) Then
160: --
161: -- The primary key is invalid therefore we must error
162: --
163: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
164: hr_utility.raise_error;
165: End If;
166: Close C_Sel1;
167: If (p_object_version_number <> g_old_rec.object_version_number) Then
168: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
164: hr_utility.raise_error;
165: End If;
166: Close C_Sel1;
167: If (p_object_version_number <> g_old_rec.object_version_number) Then
168: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
169: hr_utility.raise_error;
170: End If;
171: hr_utility.set_location(l_proc, 15);
172: l_fct_ret := true;
165: End If;
166: Close C_Sel1;
167: If (p_object_version_number <> g_old_rec.object_version_number) Then
168: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
169: hr_utility.raise_error;
170: End If;
171: hr_utility.set_location(l_proc, 15);
172: l_fct_ret := true;
173: End If;
167: If (p_object_version_number <> g_old_rec.object_version_number) Then
168: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
169: hr_utility.raise_error;
170: End If;
171: hr_utility.set_location(l_proc, 15);
172: l_fct_ret := true;
173: End If;
174: End If;
175: hr_utility.set_location(' Leaving:'||l_proc, 20);
171: hr_utility.set_location(l_proc, 15);
172: l_fct_ret := true;
173: End If;
174: End If;
175: hr_utility.set_location(' Leaving:'||l_proc, 20);
176: Return (l_fct_ret);
177: --
178: End api_updating;
179: --
246: --
247: l_proc varchar2(72) := g_package||'lck';
248: --
249: Begin
250: hr_utility.set_location('Entering:'||l_proc, 5);
251: --
252: -- Add any mandatory argument checking here:
253: -- Example:
254: -- hr_api.mandatory_arg_error
262: Close C_Sel1;
263: --
264: -- The primary key is invalid therefore we must error
265: --
266: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
267: hr_utility.raise_error;
268: End If;
269: Close C_Sel1;
270: If (p_object_version_number <> g_old_rec.object_version_number) Then
263: --
264: -- The primary key is invalid therefore we must error
265: --
266: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
267: hr_utility.raise_error;
268: End If;
269: Close C_Sel1;
270: If (p_object_version_number <> g_old_rec.object_version_number) Then
271: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
267: hr_utility.raise_error;
268: End If;
269: Close C_Sel1;
270: If (p_object_version_number <> g_old_rec.object_version_number) Then
271: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
272: hr_utility.raise_error;
273: End If;
274: --
275: hr_utility.set_location(' Leaving:'||l_proc, 10);
268: End If;
269: Close C_Sel1;
270: If (p_object_version_number <> g_old_rec.object_version_number) Then
271: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
272: hr_utility.raise_error;
273: End If;
274: --
275: hr_utility.set_location(' Leaving:'||l_proc, 10);
276: --
271: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
272: hr_utility.raise_error;
273: End If;
274: --
275: hr_utility.set_location(' Leaving:'||l_proc, 10);
276: --
277: -- We need to trap the ORA LOCK exception
278: --
279: Exception
281: --
282: -- The object is locked therefore we need to supply a meaningful
283: -- error message.
284: --
285: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
286: hr_utility.set_message_token('TABLE_NAME', 'per_subjects_taken');
287: hr_utility.raise_error;
288: End lck;
289: --
282: -- The object is locked therefore we need to supply a meaningful
283: -- error message.
284: --
285: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
286: hr_utility.set_message_token('TABLE_NAME', 'per_subjects_taken');
287: hr_utility.raise_error;
288: End lck;
289: --
290: -- ----------------------------------------------------------------------------
283: -- error message.
284: --
285: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
286: hr_utility.set_message_token('TABLE_NAME', 'per_subjects_taken');
287: hr_utility.raise_error;
288: End lck;
289: --
290: -- ----------------------------------------------------------------------------
291: -- |-----------------------------< convert_args >-----------------------------|
350: l_proc varchar2(72) := g_package||'convert_args';
351: --
352: Begin
353: --
354: hr_utility.set_location('Entering:'||l_proc, 5);
355: --
356: -- Convert arguments into local l_rec structure.
357: --
358: l_rec.subjects_taken_id := p_subjects_taken_id;
408: l_rec.sub_information20 := p_sub_information20;
409: --
410: -- Return the plsql record structure.
411: --
412: hr_utility.set_location(' Leaving:'||l_proc, 10);
413: Return(l_rec);
414: --
415: End convert_args;
416: --