[Home] [Help]
PACKAGE: APPS.OKL_AM_LEASE_LOAN_TRMNT_PVT
Source
1 PACKAGE OKL_AM_LEASE_LOAN_TRMNT_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRLLTS.pls 120.6 2008/02/05 20:05:26 rmunjulu ship $ */
3
4
5 ---------------------------------------------------------------------------
6 -- GLOBAL CONSTANTS
7 ---------------------------------------------------------------------------
8
9 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_LEASE_LOAN_TRMNT_PVT';
10 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
11 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
12 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_COL_NAME_TOKEN;
13 --Bug# 3999921: pagarg +++ T and A ++++
14 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
15
16 -- RMUNJULU 06-MAR-03 Fixed msg constants
17 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
18 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
19
20
21 ---------------------------------------------------------------------------
22 -- GLOBAL EXCEPTIONS
23 ---------------------------------------------------------------------------
24
25 G_EXCEPTION_HALT EXCEPTION;
26
27 ---------------------------------------------------------------------------
28 -- GLOBAL DATASTRUCTURES
29 ---------------------------------------------------------------------------
30
31 TYPE term_rec_type IS RECORD (
32 p_contract_id NUMBER := OKL_API.G_MISS_NUM,
33 p_contract_number VARCHAR2(200) := OKL_API.G_MISS_CHAR,
34 p_contract_modifier VARCHAR2(200) := OKL_API.G_MISS_CHAR,
35 p_orig_end_date DATE := OKL_API.G_MISS_DATE,
36 p_contract_version VARCHAR2(200) := OKL_API.G_MISS_CHAR,
37 p_termination_date DATE := OKL_API.G_MISS_DATE,
38 p_termination_reason VARCHAR2(200) := OKL_API.G_MISS_CHAR,
39 p_quote_id NUMBER := OKL_API.G_MISS_NUM,
40 p_quote_type VARCHAR2(2000) := OKL_API.G_MISS_CHAR,
41 p_quote_reason VARCHAR2(2000) := OKL_API.G_MISS_CHAR,
42 p_early_termination_yn VARCHAR2(1) := OKL_API.G_MISS_CHAR,
43 p_control_flag VARCHAR2(200) := OKL_API.G_MISS_CHAR,
44 p_recycle_flag VARCHAR2(1) := OKL_API.G_MISS_CHAR);
45
46
47 SUBTYPE tcnv_rec_type IS OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
48 SUBTYPE tcnv_tbl_type IS OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
49 --Bug# 3999921: pagarg +++ T and A ++++
50 SUBTYPE taiv_rec_type IS okl_trx_ar_invoices_pub.taiv_rec_type;
51 SUBTYPE tilv_rec_type IS okl_txl_ar_inv_lns_pub.tilv_rec_type;
52
53 TYPE term_tbl_type IS TABLE OF term_rec_type INDEX BY BINARY_INTEGER;
54
55 ---------------------------------------------------------------------------
56 -- PROCEDURES
57 ---------------------------------------------------------------------------
58
59 PROCEDURE validate_contract(
60 p_api_version IN NUMBER,
61 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
62 x_return_status OUT NOCOPY VARCHAR2,
63 x_msg_count OUT NOCOPY NUMBER,
64 x_msg_data OUT NOCOPY VARCHAR2,
65 p_contract_id IN NUMBER,
66 p_control_flag IN VARCHAR2,
67 x_contract_status OUT NOCOPY VARCHAR2);
68
69 PROCEDURE lease_loan_termination(
70 p_api_version IN NUMBER,
71 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
72 x_return_status OUT NOCOPY VARCHAR2,
73 x_msg_count OUT NOCOPY NUMBER,
74 x_msg_data OUT NOCOPY VARCHAR2,
75 p_term_rec IN term_rec_type,
76 p_tcnv_rec IN tcnv_rec_type);
77
78
79 PROCEDURE lease_loan_termination(
80 p_api_version IN NUMBER,
81 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
82 x_return_status OUT NOCOPY VARCHAR2,
83 x_msg_count OUT NOCOPY NUMBER,
84 x_msg_data OUT NOCOPY VARCHAR2,
85 p_term_tbl IN term_tbl_type,
86 p_tcnv_tbl IN tcnv_tbl_type);
87
88 PROCEDURE process_discount_subsidy(
89 p_api_version IN NUMBER,
90 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
91 x_return_status OUT NOCOPY VARCHAR2,
92 x_msg_count OUT NOCOPY NUMBER,
93 x_msg_data OUT NOCOPY VARCHAR2,
94 p_term_rec IN term_rec_type,
95 p_call_origin IN VARCHAR2 DEFAULT NULL,
96 p_termination_date IN DATE);
97
98 -- ++++++++++++++++++++ service contract integration begin ++++++++++++++++++
99 -- RMUNJULU 3061751 27-AUG-2003
100 -- Empty rec types declared, used for defaulting parameters
101 G_TERM_REC_EMPTY term_rec_type;
102 G_TCNV_REC_EMPTY tcnv_rec_type;
103
104 -- RMUNJULU 3061751 27-AUG-2003 Added function to check if TRUE partial quote
105 -- Returns Y if TRUE partial quote(some more assets); else N or NULL
106 FUNCTION check_true_partial_quote(
107 p_quote_id IN NUMBER,
108 p_contract_id IN NUMBER) RETURN VARCHAR2;
109
110 -- RMUNJULU 3061751 27-AUG-2003 Added function to check if service integration needed
111 -- p_source Value set (TERMINATION, DISPOSE, RETURN)
112 FUNCTION check_service_k_int_needed(
113 p_term_rec IN term_rec_type DEFAULT G_TERM_REC_EMPTY,
114 p_tcnv_rec IN tcnv_rec_type DEFAULT G_TCNV_REC_EMPTY,
115 p_partial_yn IN VARCHAR2 DEFAULT NULL,
116 p_asset_id IN NUMBER DEFAULT NULL,
117 p_source IN VARCHAR2) RETURN VARCHAR2;
118
119 -- RMUNJULU 3061751 27-AUG-2003 Added function to do service integration notifications
120 -- p_source Value set (TERMINATION, DISPOSE, RETURN)
121 -- p_service_integration_needed Value Set ('Y','N')
122 PROCEDURE service_k_integration(
123 p_term_rec IN term_rec_type DEFAULT G_TERM_REC_EMPTY,
124 p_transaction_id IN NUMBER DEFAULT NULL,
125 p_transaction_date IN DATE DEFAULT NULL,
126 p_source IN VARCHAR2,
127 p_service_integration_needed IN VARCHAR2);
128
129 -- RMUNJULU 3061751 22-SEP-2003 Added function to do check billing done
130 -- BPD now provides a API to check for billing
131
132 FUNCTION check_billing_done(
133 p_contract_id IN NUMBER DEFAULT NULL,
134 p_contract_number IN VARCHAR2 DEFAULT NULL,
135 p_quote_number IN NUMBER DEFAULT NULL,
136 p_trn_date IN DATE DEFAULT NULL,
137 p_rev_rec_method IN VARCHAR2 DEFAULT NULL, -- rmunjulu 6795295 added
138 p_int_cal_basis IN VARCHAR2 DEFAULT NULL, -- rmunjulu 6795295 added
139 p_oks_chr_id IN NUMBER DEFAULT NULL, -- rmunjulu 6795295 added
140 p_sts_code IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2; -- rmunjulu 6795295 added
141
142 -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
143
144 --RMUNJULU 24-SEP-03 3018641 created
145 PROCEDURE get_last_run(
146 p_trx_id IN NUMBER,
147 x_last_run OUT NOCOPY NUMBER);
148
149 --RMUNJULU 24-SEP-03 3018641 created
150 PROCEDURE get_set_tmg_run(
151 p_trx_id IN NUMBER,
152 x_return_status OUT NOCOPY VARCHAR2);
153
154 -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
155
156 -- rmunjulu EDAT new procedure which gets the quote eff dates
157 -- and sets the global variables g_quote_eff_from_date and g_quote_accept_date
158 -- and g_quote_exists
159 PROCEDURE get_set_quote_dates(
160 p_qte_id IN NUMBER,
161 p_trn_date IN DATE DEFAULT NULL,
162 x_return_status OUT NOCOPY VARCHAR2);
163
164 g_quote_eff_from_date DATE;
165 g_quote_accept_date DATE;
166 g_quote_exists VARCHAR2(3);
167 g_transaction_date DATE; -- will be used in later development
168
169 -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
170
171 --Bug# 3999921: pagarg +++ T and A +++++++ Start ++++++++++
172 PROCEDURE process_adjustments(
173 p_api_version IN NUMBER,
174 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
175 x_return_status OUT NOCOPY VARCHAR2,
176 x_msg_count OUT NOCOPY NUMBER,
177 x_msg_data OUT NOCOPY VARCHAR2,
178 p_term_rec IN term_rec_type,
179 p_tcnv_rec IN tcnv_rec_type, -- rmunjulu TNA added since trn_id is needed
180 p_call_origin IN VARCHAR2 DEFAULT NULL,
181 p_termination_date IN DATE);
182 --Bug# 3999921: pagarg +++ T and A +++++++ End ++++++++++
183
184 -- RMUNJULU LOANS_ENHACEMENT
185 -- BPD now provides a API to check for interest calculation
186 FUNCTION check_int_calc_done(
187 p_contract_id IN NUMBER,
188 p_contract_number IN VARCHAR2,
189 p_quote_number IN NUMBER DEFAULT NULL,
190 p_source IN VARCHAR2,
191 p_trn_date IN DATE) RETURN VARCHAR2;
192
193 -- rmunjulu LOANS_ENHANCEMENTS refund excess loan payments
194 PROCEDURE process_loan_refunds(
195 p_api_version IN NUMBER,
196 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
197 x_return_status OUT NOCOPY VARCHAR2,
198 x_msg_count OUT NOCOPY NUMBER,
199 x_msg_data OUT NOCOPY VARCHAR2,
200 p_term_rec IN term_rec_type,
201 p_tcnv_rec IN tcnv_rec_type,
202 p_call_origin IN VARCHAR2 DEFAULT NULL,
203 p_termination_date IN DATE);
204
205 -- rmunjulu bug 6736148
206 FUNCTION check_stream_billing_done(
207 p_contract_id IN NUMBER DEFAULT NULL,
208 p_contract_number IN VARCHAR2 DEFAULT NULL,
209 p_quote_number IN NUMBER DEFAULT NULL,
210 p_trn_date IN DATE DEFAULT NULL) RETURN VARCHAR2;
211
212 END OKL_AM_LEASE_LOAN_TRMNT_PVT;