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;