[Home] [Help]
PACKAGE BODY: APPS.PAY_SD_CREATE_TEMPLATES
Source
1 PACKAGE BODY pay_sd_create_templates AS
2 /* $Header: paysdlobins.pkb 120.1 2007/01/11 20:59:12 ndorai noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'PER_SD_CREATE_TEMPLATES.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |---------------------< POST_INSERT >--------------------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 --
13 PROCEDURE post_insert(file_id IN NUMBER) IS
14 CURSOR csr_fnd_lob(p_file_id NUMBER) IS
15 SELECT file_name,
16 file_data
17 FROM fnd_lobs
18 WHERE file_id = p_file_id;
19 --
20 l_count NUMBER(1);
21 l_file_name per_solution_cmpt_names.name%type;
22 l_proc varchar2(72) := g_package || 'POST_INSERT';
23 BEGIN
24 hr_utility.set_location('Entering:'|| l_proc, 10);
25 FOR cur_fnd_lob_rec IN csr_fnd_lob(file_id)
26 LOOP
27 /* fix for bug# 5745886 */
28 /* l_file_name := SUBSTR(cur_fnd_lob_rec.file_name,INSTR(cur_fnd_lob_rec.file_name,'/',-1)+1); */
29 l_file_name := SUBSTR(SUBSTR(cur_fnd_lob_rec.file_name,
30 INSTR(cur_fnd_lob_rec.file_name,'/',-1)+1),
31 INSTR(cur_fnd_lob_rec.file_name,'\',-1)+1);
32 SELECT count(1) INTO l_count
33 FROM per_solution_cmpt_names
34 WHERE name = l_file_name;
35 --
36 IF l_count > 0 THEN
37 hr_utility.set_location(l_proc, 30);
38 UPDATE per_solution_cmpt_names SET template_file = cur_fnd_lob_rec.file_data
39 WHERE name = l_file_name;
40 END IF;
41 END LOOP;
42 COMMIT;
43 hr_utility.set_location(' Leaving:'||l_proc, 70);
44 EXCEPTION
45 WHEN OTHERS THEN
46 hr_utility.set_location(' Leaving:'||l_proc, 90);
47 raise;
48 END post_insert;
49 END pay_sd_create_templates;