6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hxc_map_bus.'; -- Global package name
9:
10: g_debug boolean := hr_utility.debug_enabled;
11: --
12: -- ----------------------------------------------------------------------------
13: -- |-----------------------< chk_non_updateable_args >------------------------|
14: -- ----------------------------------------------------------------------------
107: --
108: l_dup_name varchar2(5) := NULL;
109: --
110: BEGIN
111: g_debug := hr_utility.debug_enabled;
112:
113: if g_debug then
114: l_proc := g_package||'chk_name';
115: hr_utility.set_location('Entering:'||l_proc, 5);
111: g_debug := hr_utility.debug_enabled;
112:
113: if g_debug then
114: l_proc := g_package||'chk_name';
115: hr_utility.set_location('Entering:'||l_proc, 5);
116: end if;
117: --
118: -- check that the name has been entered
119: --
119: --
120: IF p_name IS NULL
121: THEN
122: --
123: hr_utility.set_message(809, 'HXC_0028_MAP_NAME_MAND');
124: hr_utility.raise_error;
125: --
126: END IF;
127: if g_debug then
120: IF p_name IS NULL
121: THEN
122: --
123: hr_utility.set_message(809, 'HXC_0028_MAP_NAME_MAND');
124: hr_utility.raise_error;
125: --
126: END IF;
127: if g_debug then
128: hr_utility.set_location('Processing:'||l_proc, 10);
124: hr_utility.raise_error;
125: --
126: END IF;
127: if g_debug then
128: hr_utility.set_location('Processing:'||l_proc, 10);
129: end if;
130: --
131: -- check that the name is unique
132: --
136: --
137: IF l_dup_name IS NOT NULL
138: THEN
139: --
140: hr_utility.set_message(809, 'HXC_0029_MAP_DUP_NAME');
141: hr_utility.raise_error;
142: --
143: END IF;
144: --
137: IF l_dup_name IS NOT NULL
138: THEN
139: --
140: hr_utility.set_message(809, 'HXC_0029_MAP_DUP_NAME');
141: hr_utility.raise_error;
142: --
143: END IF;
144: --
145: if g_debug then
142: --
143: END IF;
144: --
145: if g_debug then
146: hr_utility.set_location('Leaving:'||l_proc, 20);
147: end if;
148: --
149: END chk_name;
150: --
197: --
198: l_exists VARCHAR2(6) := NULL;
199: --
200: BEGIN
201: g_debug := hr_utility.debug_enabled;
202:
203: if g_debug then
204: l_proc := g_package||'chk_delete';
205: hr_utility.set_location('Entering:'||l_proc, 5);
201: g_debug := hr_utility.debug_enabled;
202:
203: if g_debug then
204: l_proc := g_package||'chk_delete';
205: hr_utility.set_location('Entering:'||l_proc, 5);
206: end if;
207: --
208: -- check that mapping is not being used by data approval rule
209: --
211: FETCH csr_chk_dar INTO l_exists;
212: CLOSE csr_chk_dar;
213: --
214: if g_debug then
215: hr_utility.set_location('Processing: '||l_proc, 10);
216: end if;
217: --
218: IF l_exists IS NOT NULL
219: THEN
217: --
218: IF l_exists IS NOT NULL
219: THEN
220: --
221: hr_utility.set_message(809, 'HXC_0030_MAPPING_USED');
222: hr_utility.raise_error;
223: --
224: END IF;
225: --
218: IF l_exists IS NOT NULL
219: THEN
220: --
221: hr_utility.set_message(809, 'HXC_0030_MAPPING_USED');
222: hr_utility.raise_error;
223: --
224: END IF;
225: --
226: if g_debug then
223: --
224: END IF;
225: --
226: if g_debug then
227: hr_utility.set_location('Processing: '||l_proc, 20);
228: end if;
229: --
230: -- check that mapping is not being used by data approval rule
231: --
233: FETCH csr_chk_dep INTO l_exists;
234: CLOSE csr_chk_dep;
235: --
236: if g_debug then
237: hr_utility.set_location('Processing: '||l_proc, 30);
238: end if;
239: --
240: IF l_exists IS NOT NULL
241: THEN
239: --
240: IF l_exists IS NOT NULL
241: THEN
242: --
243: hr_utility.set_message(809, 'HXC_0030_MAPPING_USED');
244: hr_utility.raise_error;
245: --
246: END IF;
247: --
240: IF l_exists IS NOT NULL
241: THEN
242: --
243: hr_utility.set_message(809, 'HXC_0030_MAPPING_USED');
244: hr_utility.raise_error;
245: --
246: END IF;
247: --
248: if g_debug then
245: --
246: END IF;
247: --
248: if g_debug then
249: hr_utility.set_location('Processing: '||l_proc, 40);
250: end if;
251: --
252: -- check that mapping is not being used by data approval rule
253: --
255: FETCH csr_chk_ret INTO l_exists;
256: CLOSE csr_chk_ret;
257: --
258: if g_debug then
259: hr_utility.set_location('Processing: '||l_proc, 50);
260: end if;
261: --
262: IF l_exists IS NOT NULL
263: THEN
261: --
262: IF l_exists IS NOT NULL
263: THEN
264: --
265: hr_utility.set_message(809, 'HXC_0030_MAPPING_USED');
266: hr_utility.raise_error;
267: --
268: END IF;
269: --
262: IF l_exists IS NOT NULL
263: THEN
264: --
265: hr_utility.set_message(809, 'HXC_0030_MAPPING_USED');
266: hr_utility.raise_error;
267: --
268: END IF;
269: --
270: if g_debug then
267: --
268: END IF;
269: --
270: if g_debug then
271: hr_utility.set_location('Processing: '||l_proc, 60);
272: end if;
273: --
274: END chk_delete;
275: --
282: --
283: l_proc varchar2(72);
284: --
285: Begin
286: g_debug := hr_utility.debug_enabled;
287:
288: if g_debug then
289: l_proc := g_package||'insert_validate';
290: hr_utility.set_location('Entering:'||l_proc, 5);
286: g_debug := hr_utility.debug_enabled;
287:
288: if g_debug then
289: l_proc := g_package||'insert_validate';
290: hr_utility.set_location('Entering:'||l_proc, 5);
291: end if;
292: --
293: -- Call all supporting business operations
294: --
299: p_name => p_rec.name
300: ,p_mapping_id => p_rec.mapping_id );
301: --
302: if g_debug then
303: hr_utility.set_location(' Leaving:'||l_proc, 10);
304: end if;
305: End insert_validate;
306: --
307: -- ----------------------------------------------------------------------------
313: --
314: l_proc varchar2(72);
315: --
316: Begin
317: g_debug := hr_utility.debug_enabled;
318:
319: if g_debug then
320: l_proc := g_package||'update_validate';
321: hr_utility.set_location('Entering:'||l_proc, 5);
317: g_debug := hr_utility.debug_enabled;
318:
319: if g_debug then
320: l_proc := g_package||'update_validate';
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: end if;
323: --
324: -- Call all supporting business operations
325: --
336: );
337: --
338: --
339: if g_debug then
340: hr_utility.set_location(' Leaving:'||l_proc, 10);
341: end if;
342: End update_validate;
343: --
344: -- ----------------------------------------------------------------------------
350: --
351: l_proc varchar2(72);
352: --
353: Begin
354: g_debug := hr_utility.debug_enabled;
355:
356: if g_debug then
357: l_proc := g_package||'delete_validate';
358: hr_utility.set_location('Entering:'||l_proc, 5);
354: g_debug := hr_utility.debug_enabled;
355:
356: if g_debug then
357: l_proc := g_package||'delete_validate';
358: hr_utility.set_location('Entering:'||l_proc, 5);
359: end if;
360: --
361: -- Call all supporting business operations
362: --
362: --
363: chk_delete ( p_mapping_id => p_rec.mapping_id );
364: --
365: if g_debug then
366: hr_utility.set_location(' Leaving:'||l_proc, 10);
367: end if;
368: End delete_validate;
369: --
370: end hxc_map_bus;