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 = 'BEN_ENRT_PREM_FK1') Then
37: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
59: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
60: fnd_message.raise_error;
61: End If;
62: --
63: hr_utility.set_location(' Leaving:'||l_proc, 10);
64: End constraint_error;
65: --
66: -- ----------------------------------------------------------------------------
67: -- |-----------------------------< api_updating >-----------------------------|
125: l_proc varchar2(72) := g_package||'api_updating';
126: l_fct_ret boolean;
127: --
128: Begin
129: hr_utility.set_location('Entering:'||l_proc, 5);
130: --
131: If (
132: p_enrt_prem_id is null and
133: p_object_version_number is null
141: If (
142: p_enrt_prem_id = g_old_rec.enrt_prem_id and
143: p_object_version_number = g_old_rec.object_version_number
144: ) Then
145: hr_utility.set_location(l_proc, 10);
146: --
147: -- The g_old_rec is current therefore we must
148: -- set the returning function to true
149: --
166: If (p_object_version_number <> g_old_rec.object_version_number) Then
167: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
168: fnd_message.raise_error;
169: End If;
170: hr_utility.set_location(l_proc, 15);
171: l_fct_ret := true;
172: End If;
173: End If;
174: hr_utility.set_location(' Leaving:'||l_proc, 20);
170: hr_utility.set_location(l_proc, 15);
171: l_fct_ret := true;
172: End If;
173: End If;
174: hr_utility.set_location(' Leaving:'||l_proc, 20);
175: Return (l_fct_ret);
176: --
177: End api_updating;
178: --
237: --
238: l_proc varchar2(72) := g_package||'lck';
239: --
240: Begin
241: hr_utility.set_location('Entering:'||l_proc, 5);
242: --
243: -- Add any mandatory argument checking here:
244: -- Example:
245: -- hr_api.mandatory_arg_error
262: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
263: fnd_message.raise_error;
264: End If;
265: --
266: hr_utility.set_location(' Leaving:'||l_proc, 10);
267: --
268: -- We need to trap the ORA LOCK exception
269: --
270: Exception
333: l_proc varchar2(72) := g_package||'convert_args';
334: --
335: Begin
336: --
337: hr_utility.set_location('Entering:'||l_proc, 5);
338: --
339: -- Convert arguments into local l_rec structure.
340: --
341: l_rec.enrt_prem_id := p_enrt_prem_id;
383: l_rec.program_update_date := p_program_update_date;
384: --
385: -- Return the plsql record structure.
386: --
387: hr_utility.set_location(' Leaving:'||l_proc, 10);
388: Return(l_rec);
389: --
390: End convert_args;
391: --