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 = 'OTA_NOTRNG_HISTORIES_PK') Then
37: fnd_message.set_name('OTA', 'OTA_13698_NHS_PRIMARY_KEY');
38: fnd_message.raise_error;
51: Else
52: fnd_message.set_name('OTA', 'OTA_13259_GEN_UNKN_CONSTRAINT');
53: fnd_message.set_token('PROCEDURE', l_proc);
54: fnd_message.set_token('CONSTRAINT', p_constraint_name);
55: hr_utility.raise_error;
56: End If;
57: --
58: hr_utility.set_location(' Leaving:'||l_proc, 10);
59: End constraint_error;
54: fnd_message.set_token('CONSTRAINT', p_constraint_name);
55: hr_utility.raise_error;
56: End If;
57: --
58: hr_utility.set_location(' Leaving:'||l_proc, 10);
59: End constraint_error;
60: --
61: -- ----------------------------------------------------------------------------
62: -- |-----------------------------< api_updating >-----------------------------|
119: l_proc varchar2(72) := g_package||'api_updating';
120: l_fct_ret boolean;
121: --
122: Begin
123: hr_utility.set_location('Entering:'||l_proc, 5);
124: --
125: If (
126: p_nota_history_id is null and
127: p_object_version_number is null
135: If (
136: p_nota_history_id = g_old_rec.nota_history_id and
137: p_object_version_number = g_old_rec.object_version_number
138: ) Then
139: hr_utility.set_location(l_proc, 10);
140: --
141: -- The g_old_rec is current therefore we must
142: -- set the returning function to true
143: --
152: Close C_Sel1;
153: --
154: -- The primary key is invalid therefore we must error
155: --
156: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
157: hr_utility.raise_error;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
153: --
154: -- The primary key is invalid therefore we must error
155: --
156: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
157: hr_utility.raise_error;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
157: hr_utility.raise_error;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
162: hr_utility.raise_error;
163: End If;
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
162: hr_utility.raise_error;
163: End If;
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
166: End If;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
162: hr_utility.raise_error;
163: End If;
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
166: End If;
167: End If;
168: hr_utility.set_location(' Leaving:'||l_proc, 20);
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
166: End If;
167: End If;
168: hr_utility.set_location(' Leaving:'||l_proc, 20);
169: Return (l_fct_ret);
170: --
171: End api_updating;
172: --
229: --
230: l_proc varchar2(72) := g_package||'lck';
231: --
232: Begin
233: hr_utility.set_location('Entering:'||l_proc, 5);
234: --
235: -- Add any mandatory argument checking here:
236: -- Example:
237: -- hr_api.mandatory_arg_error
245: Close C_Sel1;
246: --
247: -- The primary key is invalid therefore we must error
248: --
249: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
250: hr_utility.raise_error;
251: End If;
252: Close C_Sel1;
253: If (p_object_version_number <> g_old_rec.object_version_number) Then
246: --
247: -- The primary key is invalid therefore we must error
248: --
249: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
250: hr_utility.raise_error;
251: End If;
252: Close C_Sel1;
253: If (p_object_version_number <> g_old_rec.object_version_number) Then
254: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
250: hr_utility.raise_error;
251: End If;
252: Close C_Sel1;
253: If (p_object_version_number <> g_old_rec.object_version_number) Then
254: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
255: hr_utility.raise_error;
256: End If;
257: --
258: hr_utility.set_location(' Leaving:'||l_proc, 10);
251: End If;
252: Close C_Sel1;
253: If (p_object_version_number <> g_old_rec.object_version_number) Then
254: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
255: hr_utility.raise_error;
256: End If;
257: --
258: hr_utility.set_location(' Leaving:'||l_proc, 10);
259: --
254: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
255: hr_utility.raise_error;
256: End If;
257: --
258: hr_utility.set_location(' Leaving:'||l_proc, 10);
259: --
260: -- We need to trap the ORA LOCK exception
261: --
262: Exception
264: --
265: -- The object is locked therefore we need to supply a meaningful
266: -- error message.
267: --
268: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
269: hr_utility.set_message_token('TABLE_NAME', 'ota_notrng_histories');
270: hr_utility.raise_error;
271: End lck;
272: --
265: -- The object is locked therefore we need to supply a meaningful
266: -- error message.
267: --
268: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
269: hr_utility.set_message_token('TABLE_NAME', 'ota_notrng_histories');
270: hr_utility.raise_error;
271: End lck;
272: --
273: -- ----------------------------------------------------------------------------
266: -- error message.
267: --
268: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
269: hr_utility.set_message_token('TABLE_NAME', 'ota_notrng_histories');
270: hr_utility.raise_error;
271: End lck;
272: --
273: -- ----------------------------------------------------------------------------
274: -- |-----------------------------< convert_args >-----------------------------|
323: l_proc varchar2(72) := g_package||'convert_args';
324: --
325: Begin
326: --
327: hr_utility.set_location('Entering:'||l_proc, 5);
328: --
329: -- Convert arguments into local l_rec structure.
330: --
331: l_rec.nota_history_id := p_nota_history_id;
371: l_rec.organization_id := p_organization_id;
372: --
373: -- Return the plsql record structure.
374: --
375: hr_utility.set_location(' Leaving:'||l_proc, 10);
376: Return(l_rec);
377: --
378: End convert_args;
379: --