[Home] [Help]
PACKAGE: APPS.OKL_LRF_GENERATE_PVT
Source
1 PACKAGE okl_lrf_generate_pvt AUTHID CURRENT_USER AS
2 /* $Header: OKLRRFGS.pls 120.1 2005/10/30 04:59:09 appldev noship $ */
3
4 -----------------------------------------------------------------------------
5 -- PACKAGE CONSTANTS
6 -----------------------------------------------------------------------------
7
8 g_pkg_name CONSTANT varchar2(200) := 'OKL_LRF_GENERATE_PVT';
9 g_api_type CONSTANT varchar2(4) := '_PVT';
10 g_app_name CONSTANT varchar2(3) := okl_api.g_app_name;
11 g_api_version CONSTANT number := 1;
12 g_false CONSTANT varchar2(1) := okl_api.g_false;
13 g_true CONSTANT varchar2(1) := okl_api.g_true;
14 g_db_error CONSTANT varchar2(12) := 'OKL_DB_ERROR';
15 g_prog_name_token CONSTANT varchar2(9) := 'PROG_NAME';
16 g_sqlcode_token CONSTANT varchar2(7) := 'SQLCODE';
17 g_sqlerrm_token CONSTANT varchar2(7) := 'SQLERRM';
18 g_ret_sts_success CONSTANT varchar2(1) := okl_api.g_ret_sts_success;
19 g_ret_sts_unexp_error CONSTANT varchar2(1) := okl_api.g_ret_sts_unexp_error;
20 g_ret_sts_error CONSTANT varchar2(1) := okl_api.g_ret_sts_error;
21 g_miss_char CONSTANT varchar2(1) := okl_api.g_miss_char;
22 g_miss_num CONSTANT number := okl_api.g_miss_num;
23 g_miss_date CONSTANT date := okl_api.g_miss_date;
24 g_fnd_app CONSTANT varchar2(200) := okl_api.g_fnd_app;
25 g_form_unable_to_reserve_rec CONSTANT varchar2(200) := okl_api.g_form_unable_to_reserve_rec;
26 g_form_record_deleted CONSTANT varchar2(200) := okl_api.g_form_record_deleted;
27 g_form_record_changed CONSTANT varchar2(200) := okl_api.g_form_record_changed;
28 g_record_logically_deleted CONSTANT varchar2(200) := okl_api.g_record_logically_deleted;
29 g_required_value CONSTANT varchar2(200) := okl_api.g_required_value;
30 g_invalid_value CONSTANT varchar2(200) := okl_api.g_invalid_value;
31 g_col_name_token CONSTANT varchar2(200) := okl_api.g_col_name_token;
32 g_parent_table_token CONSTANT varchar2(200) := okl_api.g_parent_table_token;
33 g_child_table_token CONSTANT varchar2(200) := okl_api.g_child_table_token;
34 g_unexpected_error CONSTANT varchar2(200) := 'OKS_SERVICE_AVAILABILITY_UNEXPECTED_ERROR';
35 g_cp_mode varchar2(1) := 'N';
36
37 SUBTYPE lrfv_tbl_type IS okl_lrf_pvt.lrfv_tbl_type;
38
39 SUBTYPE okl_lrlv_tbl IS okl_lrl_pvt.okl_lrlv_tbl;
40
41 TYPE lease_rate_rec_type IS RECORD (
42 term_in_months number,
43 residual_value_percent number(18,15),
44 interest_rate number(18,15),
45 lease_rate_factor number
46 );
47
48 TYPE lease_rate_tbl_type IS TABLE OF lease_rate_rec_type
49 INDEX BY BINARY_INTEGER;
50
51 TYPE lrv_rec_type IS RECORD (
52 arrears_yn okl_fe_rate_set_versions.arrears_yn%TYPE,
53 deferred_pmts okl_fe_rate_set_versions.deferred_pmts%TYPE,
54 advance_pmts okl_fe_rate_set_versions.advance_pmts%TYPE,
55 frequency_code okl_ls_rt_fctr_sets_b.frq_code%TYPE,
56 rate_set_version_id okl_fe_rate_set_versions.rate_set_version_id%TYPE,
57 lease_rate_tbl lease_rate_tbl_type,
58 batch_number number,
59 status varchar2(30)
60 );
61
62 PROCEDURE calculate_lrf(p_arrears IN number --=1=yes/0=no;
63 ,p_rate IN number --in %
64 ,p_day_convention IN number --30/360
65 ,p_deffered_payments IN number
66 ,p_advance_payments IN number
67 ,p_term IN number
68 ,p_value IN number -- in %(residual value)
69 ,p_frequency IN number -- monthly=1 quarterly=3 semi annual=6 annual=12
70 ,p_lrf OUT NOCOPY number) ;
71
72 PROCEDURE generate_lease_rate_factors(p_api_version IN number
73 ,p_init_msg_list IN varchar2 DEFAULT fnd_api.g_false
74 ,x_return_status OUT NOCOPY varchar2
75 ,x_msg_count OUT NOCOPY number
76 ,x_msg_data OUT NOCOPY varchar2
77 ,p_rate_set_version_id okl_fe_rate_set_versions.rate_set_version_id%TYPE);
78
79 PROCEDURE generate_lrf(errbuf OUT NOCOPY varchar2
80 ,retcode OUT NOCOPY varchar2
81 ,p_rate_set_version_id IN number
82 ,p_start_date IN varchar2
83 ,p_end_date IN varchar2);
84
85 END okl_lrf_generate_pvt;