PACKAGE BODY: APPS.FEM_DYN_INIT_PKG

Source

1 PACKAGE BODY FEM_DYN_INIT_PKG AS
2 /* $Header: femdyninit.plb 120.0 2008/01/10 12:35:45 hakumar noship $ */
3 
4 
5   PROCEDURE main( x_errbuf	OUT NOCOPY VARCHAR2,
6                   x_retcode	OUT NOCOPY VARCHAR2) IS
7 
8     l_ret_status  BOOLEAN;
9 
10   BEGIN
11 
12     fnd_file.put_line(fnd_file.log, 'Starting Dynamic Initialization');
13 
14     fnd_file.put_line(fnd_file.log, 'Manipulating XML Publisher Data Templates');
15     FEM_DATA_TEMPLATE_UTIL_PKG.replace_dt_proc(x_errbuf, x_retcode);
16 
17     fnd_file.put_line(fnd_file.log, 'Completed Dynamic Initialization');
18 
19     x_retcode := '0';
20 
21   EXCEPTION
22      WHEN OTHERS THEN
23       x_errbuf := substr( SQLERRM, 1, 2000);
24       x_retcode := '2';
25       fnd_file.put_line(fnd_file.log, 'Fatal Error Occurred : ' || SQLERRM);
26       l_ret_status         :=      fnd_concurrent.set_completion_status(
27                                                 status  =>      'ERROR',
28                                                 message =>      NULL);
29 
30   END main;
31 
32 
33 END FEM_DYN_INIT_PKG;