PACKAGE BODY: APPS.PER_FR_TEMPLATE

Source

1 Package Body PER_FR_TEMPLATE as
2 /* $Header: pefrxdtp.pkb 120.1 2005/07/22 08:57 sbairagi noship $ */
3 PROCEDURE insert_data(p_file_id NUMBER)
4    IS
5 
6       l_file_name         VARCHAR2(1000);
7 
8    BEGIN
9 
10 
11         SELECT substr(substr(file_name,instr(translate(file_name,'/\','//'),'/',-1)+1),1,20)
12         INTO l_file_name
13         FROM fnd_lobs
14         WHERE file_id = p_file_id;
15 
16 
17 
18       if( l_file_name <>'BIAF2005.rtf') then
19 
20           UPDATE fnd_lobs set program_name='BIAF_FR_XML_O'
21                    where file_name like '%BIAF2005.rtf'
22                    and program_name='BIAF_FR_XML';
23       end if;
24 
25 
26 
27 
28       DELETE FROM per_gb_xdo_templates
29             WHERE file_name = l_file_name;
30 
31       INSERT INTO per_gb_xdo_templates
32                   (file_id,
33                    file_name,
34                    file_description,
35                    effective_start_date,
36                    effective_end_date)
37          SELECT p_file_id, l_file_name, 'Template Uploaded on '||to_char(sysdate,'dd-MON-yyyy'),
38                 sysdate, to_date('31-12-4000','dd-MM-yyyy')
39            FROM fnd_lobs
40           WHERE file_id = p_file_id;
41    END insert_data;
42  end PER_FR_TEMPLATE;