PACKAGE BODY: APPS.ICX_CAT_DOWNLOAD_FILES_PVT

Source

1 PACKAGE BODY ICX_CAT_DOWNLOAD_FILES_PVT AS
2 /* $Header: ICXVDWNB.pls 120.0 2006/07/15 01:28:28 kaholee noship $*/
3 
4 PROCEDURE insert_instruction_files
5 IS
6   l_err_loc PLS_INTEGER;
7 BEGIN
8   l_err_loc := 100;
9   DELETE FROM icx_por_template_files;
10 
11   l_err_loc := 200;
12   INSERT INTO icx_por_template_files
13     (filename, usage, template_type, description)
14   SELECT 'Readme_Spreadsheet.htm', 'TXT', 'ALL', 'Instructions for TXT upload.'
15   FROM dual;
16 
17   l_err_loc := 300;
18   INSERT INTO icx_por_template_files
19     (filename, usage, template_type, description)
20   SELECT 'Readme_XML.htm', 'XML', 'ALL', 'Instructions for XML upload.'
21   FROM dual;
22 
23   l_err_loc := 400;
24   INSERT INTO icx_por_template_files
25     (filename, usage, template_type, description)
26   SELECT 'Readme_cXML.htm', 'CXML', 'ALL', 'Instructions for cXML upload.'
27   FROM dual;
28 
29   l_err_loc := 500;
30   INSERT INTO icx_por_template_files
31     (filename, usage, template_type, description)
32   SELECT 'Readme_CIF.htm', 'CIF', 'ALL', 'Instructions for CIF upload.'
33   FROM dual;
34 
35   l_err_loc := 600;
36   INSERT INTO icx_por_template_files
37     (filename, usage, template_type, description)
38   SELECT 'Readme_Schema.htm', 'SCHEMA', 'ALL', 'Instructions for schema upload.'
39   FROM dual;
40 
41   l_err_loc := 700;
42   INSERT INTO icx_por_template_files
43     (filename, usage, template_type, description)
44   SELECT 'Readme_Converter.htm', 'CONVERTER', 'ALL', 'Instructions for converter.'
45   FROM dual;
46 
47   l_err_loc := 800;
48   COMMIT;
49 
50 EXCEPTION
51   WHEN OTHERS THEN
52   ROLLBACK;
53   RAISE_APPLICATION_ERROR
54     (-20000,
55      'Exception at ICX_CAT_DOWNLOAD_FILES_PVT.insert_instruction_files(' ||
56      l_err_loc || '), ' || SQLERRM);
57 
58 END insert_instruction_files;
59 
60 END ICX_CAT_DOWNLOAD_FILES_PVT;