6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_htr_shd.'; -- Global package name
9:
10: g_debug boolean := hr_utility.debug_enabled;
11: --
12: -- ----------------------------------------------------------------------------
13: -- |------------------------< return_api_dml_status >-------------------------|
14: -- ----------------------------------------------------------------------------
152: --
153: l_proc varchar2(72);
154: --
155: Begin
156: g_debug := hr_utility.debug_enabled;
157:
158: if g_debug then
159: l_proc := g_package||'lck';
160: hr_utility.set_location('Entering:'||l_proc, 5);
156: g_debug := hr_utility.debug_enabled;
157:
158: if g_debug then
159: l_proc := g_package||'lck';
160: hr_utility.set_location('Entering:'||l_proc, 5);
161: end if;
162: --
163: hr_api.mandatory_arg_error
164: (p_api_name => l_proc
166: ,p_argument_value => p_time_recipient_id
167: );
168: --
169: if g_debug then
170: hr_utility.set_location('Locking:'||l_proc, 1000);
171: end if;
172: Open C_Sel1;
173: Fetch C_Sel1 Into hxc_htr_shd.g_old_rec;
174: if g_debug then
171: end if;
172: Open C_Sel1;
173: Fetch C_Sel1 Into hxc_htr_shd.g_old_rec;
174: if g_debug then
175: hr_utility.set_location('After Locking:'||l_proc, 2000);
176: end if;
177: If C_Sel1%notfound then
178: Close C_Sel1;
179: --
189: fnd_message.raise_error;
190: End If;
191: --
192: if g_debug then
193: hr_utility.set_location(' Leaving:'||l_proc, 10);
194: end if;
195: --
196: -- We need to trap the ORA LOCK exception
197: --