PACKAGE BODY: APPS.OKI_LOAD_ETR_PUB

Source

1 PACKAGE BODY oki_load_etr_pub AS
2 /* $Header: OKIPETRB.pls 115.2 2002/12/01 17:51:14 rpotnuru noship $ */
3 --------------------------------------------------------------------------------
4 -- Modification History
5 -- 26-DEC-2001 mezra        Initial version
6 -- 30-APR-2002 mezra        Added dbdrv and set verify command.
7 -- 26-NOV-2002 rpotnuru     NOCOPY Changes
8 --
9 --------------------------------------------------------------------------------
10 
11 --------------------------------------------------------------------------------
12   -- Procedure to create all the expiration to renewal records.
13 
14 --------------------------------------------------------------------------------
15   PROCEDURE crt_exp_to_rnwl
16   (   x_errbuf                    OUT NOCOPY VARCHAR2
17     , x_retcode                   OUT NOCOPY VARCHAR2
18     , p_start_summary_build_date  IN  VARCHAR2
19     , p_end_summary_build_date    IN  VARCHAR2
20   ) IS
21 
22 
23   -- Local variable declaration
24 
25   -- Effective date of the job run.
26   -- Also treated as "current DATE" for bin calculations (e.g., aging reports).
27   l_start_summary_build_date  DATE := NULL ;
28   l_end_summary_build_date    DATE := NULL ;
29 
30 
31   BEGIN
32 
33     -- Convert the varchar2 date input to a date datatype
34     l_start_summary_build_date  :=
35                    fnd_conc_date.string_to_date(p_start_summary_build_date) ;
36     l_end_summary_build_date    :=
37                    fnd_conc_date.string_to_date(p_end_summary_build_date) ;
38 
39 
40     -- Call procedure to create the expiration to renewal
41     oki_load_etr_pvt.crt_exp_to_rnwl (
42           p_start_summary_build_date  => l_start_summary_build_date
43         , p_end_summary_build_date    => l_end_summary_build_date
44         , x_errbuf                    => x_errbuf
45         , x_retcode                   => x_retcode ) ;
46 
47   END crt_exp_to_rnwl;
48 
49 END oki_load_etr_pub ;