[Home] [Help]
PACKAGE: APPS.OKL_AM_LEASE_TRMNT_PVT
Source
1 PACKAGE OKL_AM_LEASE_TRMNT_PVT AS
2 /* $Header: OKLRLTNS.pls 120.7 2008/04/15 22:09:41 rmunjulu ship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL CONSTANTS
6 ---------------------------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_LEASE_TRMNT_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
9 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
10
11 -- RMUNJULU 05-MAR-03 Fixed msg constant
12 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
13 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
14 G_APP_NAME_1 CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
15
16 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
17 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
18 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
19 G_YES CONSTANT VARCHAR2(1) := 'Y';
20 G_NO CONSTANT VARCHAR2(1) := 'N';
21
22 -- RMUNJULU 05-MAR-03 added constant
23 G_TMT_RECYCLE_YN VARCHAR2(1);
24
25 ---------------------------------------------------------------------------
26 -- GLOBAL EXCEPTIONS
27 ---------------------------------------------------------------------------
28 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
29
30 ---------------------------------------------------------------------------
31 -- GLOBAL DATASTRUCTURES
32 ---------------------------------------------------------------------------
33 SUBTYPE term_rec_type IS OKL_AM_LEASE_LOAN_TRMNT_PUB.term_rec_type;
34 SUBTYPE tcnv_rec_type IS OKL_AM_LEASE_LOAN_TRMNT_PUB.tcnv_rec_type;
35 SUBTYPE stmv_tbl_type IS OKL_STREAMS_PUB.stmv_tbl_type;
36 SUBTYPE adjv_rec_type IS OKL_TRX_AR_ADJSTS_PUB.adjv_rec_type;
37 SUBTYPE ajlv_tbl_type IS OKL_TXL_ADJSTS_LNS_PUB.ajlv_tbl_type;
38 SUBTYPE chrv_rec_type IS OKC_CONTRACT_PUB.chrv_rec_type;
39 SUBTYPE clev_tbl_type IS OKC_CONTRACT_PUB.clev_tbl_type;
40
41
42 TYPE klev_rec_type IS RECORD (
43 p_kle_id NUMBER := OKL_API.G_MISS_NUM,
44 p_asset_name VARCHAR2(2000) := OKL_API.G_MISS_CHAR);
45
46 TYPE klev_tbl_type IS TABLE OF klev_rec_type INDEX BY BINARY_INTEGER;
47
48 empty_klev_tbl klev_tbl_type;
49 ---------------------------------------------------------------------------
50 -- PROCEDURES
51 ---------------------------------------------------------------------------
52
53 PROCEDURE set_database_values(
54 px_term_rec IN OUT NOCOPY term_rec_type);
55
56 PROCEDURE set_info_messages(
57 p_term_rec IN term_rec_type);
58
59 PROCEDURE get_contract_lines(
60 p_api_version IN NUMBER,
61 p_init_msg_list IN VARCHAR2,
62 x_return_status OUT NOCOPY VARCHAR2,
63 x_msg_count OUT NOCOPY NUMBER,
64 x_msg_data OUT NOCOPY VARCHAR2,
65 p_term_rec IN term_rec_type,
66 x_klev_tbl OUT NOCOPY klev_tbl_type);
67
68 PROCEDURE set_overall_status(
69 p_return_status IN VARCHAR2,
70 px_overall_status IN OUT NOCOPY VARCHAR2);
71
72 PROCEDURE set_transaction_rec(
73 p_return_status IN VARCHAR2 DEFAULT OKL_API.G_MISS_CHAR,
74 p_overall_status IN VARCHAR2 DEFAULT OKL_API.G_MISS_CHAR,
75 p_tmt_flag IN VARCHAR2 DEFAULT OKL_API.G_MISS_CHAR,
76 p_tsu_code IN VARCHAR2 DEFAULT OKL_API.G_MISS_CHAR,
77 p_ret_val IN VARCHAR2 DEFAULT OKL_API.G_MISS_CHAR,
78 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type);
79
80 PROCEDURE initialize_transaction (
81 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
82 p_term_rec IN term_rec_type,
83 p_sys_date IN DATE,
84 p_control_flag IN VARCHAR2,
85 x_return_status OUT NOCOPY VARCHAR2,
86 -- akrangan bug 5354501 fix start
87 x_msg_count OUT NOCOPY NUMBER,
88 x_msg_data OUT NOCOPY VARCHAR2);
89 -- akrangan bug 5354501 fix end
90 PROCEDURE validate_lease(
91 p_api_version IN NUMBER,
92 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
93 x_return_status OUT NOCOPY VARCHAR2,
94 x_msg_count OUT NOCOPY NUMBER,
95 x_msg_data OUT NOCOPY VARCHAR2,
96 p_sys_date IN DATE,
97 p_term_rec IN term_rec_type);
98
99 PROCEDURE process_accounting_entries(
100 p_api_version IN NUMBER,
101 p_init_msg_list IN VARCHAR2,
102 x_return_status OUT NOCOPY VARCHAR2,
103 x_msg_count OUT NOCOPY NUMBER,
104 x_msg_data OUT NOCOPY VARCHAR2,
105 p_term_rec IN term_rec_type,
106 px_overall_status IN OUT NOCOPY VARCHAR2,
107 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
108 p_sys_date IN DATE,
109 p_klev_tbl IN klev_tbl_type, -- pagarg 4190887 Added
110 p_trn_already_set IN VARCHAR2,
111 p_source IN VARCHAR2 DEFAULT NULL); -- rmunjulu Bug 4141991
112
113 PROCEDURE process_asset_dispose(
114 p_api_version IN NUMBER,
115 p_init_msg_list IN VARCHAR2,
116 x_return_status OUT NOCOPY VARCHAR2,
117 x_msg_count OUT NOCOPY NUMBER,
118 x_msg_data OUT NOCOPY VARCHAR2,
119 p_term_rec IN term_rec_type,
120 px_overall_status IN OUT NOCOPY VARCHAR2,
121 p_sys_date IN DATE DEFAULT SYSDATE, -- rmunjulu EDAT
122 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
123 p_klev_tbl IN klev_tbl_type,
124 p_trn_already_set IN VARCHAR2,
125 p_auto_invoice_yn IN VARCHAR2 DEFAULT NULL ); -- rmunjulu BUYOUT_PROCESS
126
127 PROCEDURE process_cancel_insurance(
128 p_api_version IN NUMBER,
129 p_init_msg_list IN VARCHAR2,
130 x_return_status OUT NOCOPY VARCHAR2,
131 x_msg_count OUT NOCOPY NUMBER,
132 x_msg_data OUT NOCOPY VARCHAR2,
133 p_term_rec IN term_rec_type,
134 px_overall_status IN OUT NOCOPY VARCHAR2,
135 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
136 p_sys_date IN DATE,
137 p_trn_already_set IN VARCHAR2);
138
139 PROCEDURE process_close_balances(
140 p_api_version IN NUMBER,
141 p_init_msg_list IN VARCHAR2,
142 x_return_status OUT NOCOPY VARCHAR2,
143 x_msg_count OUT NOCOPY NUMBER,
144 x_msg_data OUT NOCOPY VARCHAR2,
145 p_term_rec IN term_rec_type,
146 px_overall_status IN OUT NOCOPY VARCHAR2,
147 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
148 x_adjv_rec OUT NOCOPY adjv_rec_type,
149 x_ajlv_tbl OUT NOCOPY ajlv_tbl_type,
150 p_sys_date IN DATE,
151 p_trn_already_set IN VARCHAR2,
152 p_auto_invoice_yn IN VARCHAR2 DEFAULT NULL, -- rmunjulu BUYOUT_PROCESS
153 p_klev_tbl IN klev_tbl_type DEFAULT empty_klev_tbl); -- rmunjulu BUYOUT_PROCESS
154
155 PROCEDURE process_close_streams(
156 p_api_version IN NUMBER,
157 p_init_msg_list IN VARCHAR2,
158 x_return_status OUT NOCOPY VARCHAR2,
159 x_msg_count OUT NOCOPY NUMBER,
160 x_msg_data OUT NOCOPY VARCHAR2,
161 p_term_rec IN term_rec_type,
162 px_overall_status IN OUT NOCOPY VARCHAR2,
163 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
164 x_stmv_tbl OUT NOCOPY stmv_tbl_type,
165 p_sys_date IN DATE,
166 p_trn_already_set IN VARCHAR2);
167
168 PROCEDURE process_transaction(
169 p_api_version IN NUMBER,
170 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
171 x_return_status OUT NOCOPY VARCHAR2,
172 x_msg_count OUT NOCOPY NUMBER,
173 x_msg_data OUT NOCOPY VARCHAR2,
174 p_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
175 p_term_rec IN term_rec_type,
176 p_tcnv_rec IN tcnv_rec_type,
177 x_id OUT NOCOPY NUMBER,
178 p_trn_mode IN VARCHAR2);
179
180 PROCEDURE process_amortize_and_return(
181 p_api_version IN NUMBER,
182 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
183 x_return_status OUT NOCOPY VARCHAR2,
184 x_msg_count OUT NOCOPY NUMBER,
185 x_msg_data OUT NOCOPY VARCHAR2,
186 p_term_rec IN term_rec_type,
187 px_overall_status IN OUT NOCOPY VARCHAR2,
188 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
189 p_sys_date IN DATE,
190 p_klev_tbl IN klev_tbl_type,
191 p_trn_already_set IN VARCHAR2);
192
193 PROCEDURE update_k_hdr_and_lines(
194 p_api_version IN NUMBER,
195 p_init_msg_list IN VARCHAR2,
196 x_return_status OUT NOCOPY VARCHAR2,
197 x_msg_count OUT NOCOPY NUMBER,
198 x_msg_data OUT NOCOPY VARCHAR2,
199 p_status IN VARCHAR2,
200 p_term_rec IN term_rec_type,
201 p_klev_tbl IN klev_tbl_type,
202 p_trn_reason_code IN VARCHAR2,
203 px_overall_status IN OUT NOCOPY VARCHAR2,
204 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
205 x_chrv_rec OUT NOCOPY chrv_rec_type,
206 x_clev_tbl OUT NOCOPY clev_tbl_type,
207 p_sys_date IN DATE);
208
209 PROCEDURE lease_termination(
210 p_api_version IN NUMBER,
211 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
212 x_return_status OUT NOCOPY VARCHAR2,
213 x_msg_count OUT NOCOPY NUMBER,
214 x_msg_data OUT NOCOPY VARCHAR2,
215 p_term_rec IN term_rec_type,
216 p_tcnv_rec IN tcnv_rec_type);
217
218 -- RMUNJULU 04-MAR-04 3485854 New Function
219 FUNCTION check_k_evergreen_ear(
220 p_khr_id IN NUMBER,
221 p_tcn_id IN NUMBER,
222 x_return_status OUT NOCOPY VARCHAR2) RETURN VARCHAR2;
223
224 -- RMUNJULU 04-MAR-04 3485854 New Procedure
225 PROCEDURE process_amortize(
226 p_api_version IN NUMBER,
227 p_init_msg_list IN VARCHAR2,
228 x_return_status OUT NOCOPY VARCHAR2,
229 x_msg_count OUT NOCOPY NUMBER,
230 x_msg_data OUT NOCOPY VARCHAR2,
231 p_term_rec IN term_rec_type,
232 px_overall_status IN OUT NOCOPY VARCHAR2,
233 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
234 p_sys_date IN DATE,
235 p_trn_already_set IN VARCHAR2 DEFAULT NULL,
236 p_call_origin IN VARCHAR2 DEFAULT NULL);
237
238 -- rmunjulu bug 6853566 Declare this variable and use it in Delink
239 l_emty_tbl OKL_AM_CNTRCT_LN_TRMNT_PVT.klev_tbl_type;
240
241 -- rmunjulu bug 6853566 Delare delink so that it can be used from partial termination.
242 PROCEDURE delink_contract_from_asset(
243 p_api_version IN NUMBER,
244 x_msg_count OUT NOCOPY NUMBER,
245 x_msg_data OUT NOCOPY VARCHAR2,
246 p_full_term_yn IN VARCHAR2 DEFAULT NULL,
247 p_khr_id IN NUMBER,
248 p_klev_tbl IN OKL_AM_CNTRCT_LN_TRMNT_PVT.klev_tbl_type DEFAULT l_emty_tbl,
249 p_sts_code IN VARCHAR2 DEFAULT NULL,
250 p_quote_accpt_date IN DATE,
251 p_quote_eff_date IN DATE,
252 x_return_status OUT NOCOPY VARCHAR2);
253
254 END OKL_AM_LEASE_TRMNT_PVT;