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 = 'AVCON_BEN_E_RQD_F_000') Then
37: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
54: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
55: fnd_message.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_enrt_rt_ctfn_id is null and
127: p_object_version_number is null
135: If (
136: p_enrt_rt_ctfn_id = g_old_rec.enrt_rt_ctfn_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: --
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
162: fnd_message.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
254: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
255: fnd_message.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
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.enrt_rt_ctfn_id := p_enrt_rt_ctfn_id;
371: l_rec.object_version_number := p_object_version_number;
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: --