11: G_EXCEPTION_STOP_VALIDATION exception;
12:
13:
14: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_LA_PAYMENTS_PVT';
15: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
16: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
17: l_api_name VARCHAR2(35) := 'LA_PAYMENTS';
18:
19: l_detail_count NUMBER := 0;
69: l_ret_value VARCHAR2(1);
70:
71: BEGIN
72:
73: l_ret_value := OKL_API.G_FALSE;
74:
75: OPEN l_fee_csr(p_cle_id => p_cle_id);
76: FETCH l_fee_csr INTO l_fee_rec;
77: CLOSE l_fee_csr;
76: FETCH l_fee_csr INTO l_fee_rec;
77: CLOSE l_fee_csr;
78:
79: IF l_fee_rec.fee_purpose_code = 'SALESTAX' THEN
80: l_ret_value := OKL_API.G_TRUE;
81: END IF;
82:
83: RETURN l_ret_value;
84:
107: x_msg_count => x_msg_count,
108: x_msg_data => x_msg_data,
109: p_chr_id => p_chr_id);
110:
111: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
112: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR;
113: x_return_status := OKL_API.G_RET_STS_SUCCESS;
114: ELSE
115: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
109: p_chr_id => p_chr_id);
110:
111: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
112: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR;
113: x_return_status := OKL_API.G_RET_STS_SUCCESS;
114: ELSE
115: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
116: END IF;
117:
124: x_msg_data => x_msg_data,
125: p_khr_status => 'PASSED',
126: p_chr_id => p_chr_id);
127:
128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
131: RAISE OKL_API.G_EXCEPTION_ERROR;
132: END IF;
125: p_khr_status => 'PASSED',
126: p_chr_id => p_chr_id);
127:
128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
131: RAISE OKL_API.G_EXCEPTION_ERROR;
132: END IF;
133:
126: p_chr_id => p_chr_id);
127:
128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
131: RAISE OKL_API.G_EXCEPTION_ERROR;
132: END IF;
133:
134: --call to cascade status on to lines
127:
128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
131: RAISE OKL_API.G_EXCEPTION_ERROR;
132: END IF;
133:
134: --call to cascade status on to lines
135: OKL_CONTRACT_STATUS_PUB.cascade_lease_status
139: x_msg_count => x_msg_count,
140: x_msg_data => x_msg_data,
141: p_chr_id => p_chr_id);
142:
143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
146: RAISE OKL_API.G_EXCEPTION_ERROR;
147: END IF;
140: x_msg_data => x_msg_data,
141: p_chr_id => p_chr_id);
142:
143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
146: RAISE OKL_API.G_EXCEPTION_ERROR;
147: END IF;
148:
141: p_chr_id => p_chr_id);
142:
143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
146: RAISE OKL_API.G_EXCEPTION_ERROR;
147: END IF;
148:
149: -- Update status of Validate Contract process to Complete
142:
143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
146: RAISE OKL_API.G_EXCEPTION_ERROR;
147: END IF;
148:
149: -- Update status of Validate Contract process to Complete
150: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
156: p_khr_id => p_chr_id ,
157: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_VALIDATE_CONTRACT ,
158: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
159:
160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_ERROR;
164: END IF;
157: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_VALIDATE_CONTRACT ,
158: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
159:
160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_ERROR;
164: END IF;
165:
158: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
159:
160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_ERROR;
164: END IF;
165:
166: -- Update status of Calculate Upfront Tax process to Complete or Error
159:
160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_ERROR;
164: END IF;
165:
166: -- Update status of Calculate Upfront Tax process to Complete or Error
167: -- based on the results of OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee
174: p_khr_id => p_chr_id ,
175: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX ,
176: p_progress_status => l_upfront_tax_prog_sts);
177:
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
175: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX ,
176: p_progress_status => l_upfront_tax_prog_sts);
177:
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183:
176: p_progress_status => l_upfront_tax_prog_sts);
177:
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183:
184: EXCEPTION
177:
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183:
184: EXCEPTION
185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183:
184: EXCEPTION
185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
186: x_return_status := OKL_API.G_RET_STS_ERROR;
187:
188: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
189: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
182: END IF;
183:
184: EXCEPTION
185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
186: x_return_status := OKL_API.G_RET_STS_ERROR;
187:
188: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
189: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
190:
184: EXCEPTION
185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
186: x_return_status := OKL_API.G_RET_STS_ERROR;
187:
188: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
189: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
190:
191: WHEN OTHERS THEN
192: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
186: x_return_status := OKL_API.G_RET_STS_ERROR;
187:
188: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
189: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
190:
191: WHEN OTHERS THEN
192: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
193:
188: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
189: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
190:
191: WHEN OTHERS THEN
192: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
193:
194: END process_upfront_tax_pymt;
195:
196: --Bug# 7440232
246: x_msg_data => x_msg_data,
247: p_khr_id => p_chr_id,
248: x_pdt_parameter_rec => l_pdt_params_rec);
249:
250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
253: RAISE OKL_API.G_EXCEPTION_ERROR;
254: END IF;
247: p_khr_id => p_chr_id,
248: x_pdt_parameter_rec => l_pdt_params_rec);
249:
250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
253: RAISE OKL_API.G_EXCEPTION_ERROR;
254: END IF;
255:
248: x_pdt_parameter_rec => l_pdt_params_rec);
249:
250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
253: RAISE OKL_API.G_EXCEPTION_ERROR;
254: END IF;
255:
256: IF (l_pdt_params_rec.interest_calculation_basis = 'FIXED' AND
249:
250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
253: RAISE OKL_API.G_EXCEPTION_ERROR;
254: END IF;
255:
256: IF (l_pdt_params_rec.interest_calculation_basis = 'FIXED' AND
257: l_pdt_params_rec.revenue_recognition_method = 'STREAMS') THEN
279: x_msg_count => x_msg_count,
280: x_msg_data => x_msg_data,
281: p_krpdel_tbl => l_krpdel_tbl);
282:
283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_ERROR;
287: END IF;
280: x_msg_data => x_msg_data,
281: p_krpdel_tbl => l_krpdel_tbl);
282:
283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_ERROR;
287: END IF;
288: END IF;
281: p_krpdel_tbl => l_krpdel_tbl);
282:
283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_ERROR;
287: END IF;
288: END IF;
289: END IF;
282:
283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_ERROR;
287: END IF;
288: END IF;
289: END IF;
290: END IF;
289: END IF;
290: END IF;
291:
292: EXCEPTION
293: WHEN OKL_API.G_EXCEPTION_ERROR THEN
294: x_return_status := OKL_API.G_RET_STS_ERROR;
295:
296: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
297: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
290: END IF;
291:
292: EXCEPTION
293: WHEN OKL_API.G_EXCEPTION_ERROR THEN
294: x_return_status := OKL_API.G_RET_STS_ERROR;
295:
296: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
297: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
298:
292: EXCEPTION
293: WHEN OKL_API.G_EXCEPTION_ERROR THEN
294: x_return_status := OKL_API.G_RET_STS_ERROR;
295:
296: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
297: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
298:
299: WHEN OTHERS THEN
300: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
293: WHEN OKL_API.G_EXCEPTION_ERROR THEN
294: x_return_status := OKL_API.G_RET_STS_ERROR;
295:
296: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
297: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
298:
299: WHEN OTHERS THEN
300: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
301:
296: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
297: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
298:
299: WHEN OTHERS THEN
300: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
301:
302: END delete_interest_rate_params;
303:
304: -- start: Sept 02, 2005 cklee: Modification for GE - 20 variable rate ER
311: p_service_fee_id number,
312: p_payment_id number
313: ) RETURN VARCHAR2
314: IS
315: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
316: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
317: l_dummy number;
318: l_api_version NUMBER := 1.0;
319: x_msg_count NUMBER;
312: p_payment_id number
313: ) RETURN VARCHAR2
314: IS
315: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
316: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
317: l_dummy number;
318: l_api_version NUMBER := 1.0;
319: x_msg_count NUMBER;
320: x_msg_data VARCHAR2(4000);
317: l_dummy number;
318: l_api_version NUMBER := 1.0;
319: x_msg_count NUMBER;
320: x_msg_data VARCHAR2(4000);
321: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
322:
323: l_stream_type_purpose OKL_STRM_TYPE_V.STREAM_TYPE_PURPOSE%type;
324:
325: l_book_class OKL_PRODUCT_PARAMETERS_V.DEAL_TYPE%TYPE;
337: BEGIN
338:
339: -- check only if it's an asset line payment
340: IF (p_asset_id IS NOT NULL AND
341: p_asset_id <> OKL_API.G_MISS_NUM)
342: AND
343: (p_service_fee_id IS NULL OR
344: p_service_fee_id = OKL_API.G_MISS_NUM)
345: THEN
340: IF (p_asset_id IS NOT NULL AND
341: p_asset_id <> OKL_API.G_MISS_NUM)
342: AND
343: (p_service_fee_id IS NULL OR
344: p_service_fee_id = OKL_API.G_MISS_NUM)
345: THEN
346:
347: -- get stream type purpose code
348: open c_stream_type_purpose(p_payment_id);
358: x_msg_data => x_msg_data,
359: p_khr_id => p_chr_id,
360: x_pdt_parameter_rec => l_pdt_params_rec);
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
359: p_khr_id => p_chr_id,
360: x_pdt_parameter_rec => l_pdt_params_rec);
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
367:
360: x_pdt_parameter_rec => l_pdt_params_rec);
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
367:
368: l_book_class := l_pdt_params_rec.deal_type;
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
367:
368: l_book_class := l_pdt_params_rec.deal_type;
369: l_interest_calc_basis := l_pdt_params_rec.interest_calculation_basis;
375: IF l_book_class IN ('LEASEOP', 'LEASEDF', 'LEASEST') AND
376: l_interest_calc_basis IN ('FIXED','FLOAT_FACTORS', 'REAMORT') AND
377: l_stream_type_purpose NOT IN ('RENT', 'ESTIMATED_PROPERTY_TAX', 'DOWN_PAYMENT') THEN
378:
379: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
380: ,p_msg_name => G_OKL_LLA_VAR_RATE_PAYMENT1);
381:
382: RAISE G_EXCEPTION_HALT_VALIDATION;
383: END IF;
391: IF l_book_class = 'LOAN' AND
392: l_interest_calc_basis IN ('FIXED','FLOAT', 'CATCHUP/CLEANUP', 'REAMORT') AND
393: l_stream_type_purpose NOT IN ('RENT', 'ESTIMATED_PROPERTY_TAX', 'DOWN_PAYMENT', 'PRINCIPAL_PAYMENT', 'UNSCHEDULED_PRINCIPAL_PAYMENT','UNSCHEDULED_LOAN_PAYMENT') THEN
394:
395: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
396: ,p_msg_name => G_OKL_LLA_VAR_RATE_PAYMENT2);
397:
398: RAISE G_EXCEPTION_HALT_VALIDATION;
399: END IF;
405: IF l_book_class = 'LOAN-REVOLVING' AND
406: l_interest_calc_basis IN ('FLOAT') AND
407: l_stream_type_purpose IS NOT NULL THEN
408:
409: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
410: ,p_msg_name => G_OKL_LLA_VAR_RATE_PAYMENT3);
411:
412: RAISE G_EXCEPTION_HALT_VALIDATION;
413: END IF;
421: l_stream_type_purpose IN ('PRINCIPAL_PAYMENT') THEN
422:
423: IF NOT (NVL(okl_streams_util.get_pricing_engine(p_chr_id), 'INTERNAL') = 'EXTERNAL') THEN
424:
425: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
426: ,p_msg_name => G_OKL_LLA_VAR_RATE_PAYMENT4);
427:
428: RAISE G_EXCEPTION_HALT_VALIDATION;
429: END IF;
435: RETURN l_return_status;
436:
437: EXCEPTION
438: WHEN G_EXCEPTION_HALT_VALIDATION THEN
439: l_return_status := OKL_API.G_RET_STS_ERROR;
440: RETURN l_return_status;
441: WHEN OTHERS THEN
442: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
443: OKL_API.Set_Message(p_app_name => G_APP_NAME,
438: WHEN G_EXCEPTION_HALT_VALIDATION THEN
439: l_return_status := OKL_API.G_RET_STS_ERROR;
440: RETURN l_return_status;
441: WHEN OTHERS THEN
442: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
443: OKL_API.Set_Message(p_app_name => G_APP_NAME,
444: p_msg_name => G_UNEXPECTED_ERROR,
445: p_token1 => G_SQLCODE_TOKEN,
446: p_token1_value => SQLCODE,
439: l_return_status := OKL_API.G_RET_STS_ERROR;
440: RETURN l_return_status;
441: WHEN OTHERS THEN
442: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
443: OKL_API.Set_Message(p_app_name => G_APP_NAME,
444: p_msg_name => G_UNEXPECTED_ERROR,
445: p_token1 => G_SQLCODE_TOKEN,
446: p_token1_value => SQLCODE,
447: p_token2 => G_SQLERRM_TOKEN,
460: p_service_fee_id number,
461: p_payment_id number
462: ) RETURN VARCHAR2
463: IS
464: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
465: l_dummy number;
466:
467: l_downpayment_sty_found boolean := false;
468:
486: FOR this_r IN c_is_donwpayment_sty(p_payment_id) LOOP
487:
488: -- check only if it's an asset line payment
489: IF (p_asset_id IS NOT NULL AND
490: p_asset_id <> OKL_API.G_MISS_NUM)
491: AND
492: (p_service_fee_id IS NULL OR
493: p_service_fee_id = OKL_API.G_MISS_NUM)
494: THEN
489: IF (p_asset_id IS NOT NULL AND
490: p_asset_id <> OKL_API.G_MISS_NUM)
491: AND
492: (p_service_fee_id IS NULL OR
493: p_service_fee_id = OKL_API.G_MISS_NUM)
494: THEN
495:
496: IF (this_r.STREAM_TYPE_PURPOSE = 'DOWN_PAYMENT') THEN
497:
498: FOR this_row IN c_is_capitalize(p_asset_id) LOOP
499:
500: IF NOT(this_row.CAPITALIZE_DOWN_PAYMENT_YN = 'N' AND
501: this_row.DOWN_PAYMENT_RECEIVER_CODE = 'LESSOR') THEN
502: OKL_API.Set_Message(p_app_name => G_APP_NAME,
503: p_msg_name => 'OKL_LA_CAPITALIZE_DOWNPAYMENT');
504:
505: RAISE G_EXCEPTION_HALT_VALIDATION;
506: END IF;
511: ELSE -- downpayemnt only allow for asset line payment
512:
513: IF (this_r.STREAM_TYPE_PURPOSE = 'DOWN_PAYMENT') THEN
514:
515: OKL_API.Set_Message(p_app_name => G_APP_NAME,
516: p_msg_name => 'OKL_LA_DOWNPAYMENT_STY_CODE');
517: RAISE G_EXCEPTION_HALT_VALIDATION;
518: END IF;
519:
524: RETURN l_return_status;
525:
526: EXCEPTION
527: WHEN G_EXCEPTION_HALT_VALIDATION THEN
528: l_return_status := OKL_API.G_RET_STS_ERROR;
529: RETURN l_return_status;
530: WHEN OTHERS THEN
531: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
532: OKL_API.Set_Message(p_app_name => G_APP_NAME,
527: WHEN G_EXCEPTION_HALT_VALIDATION THEN
528: l_return_status := OKL_API.G_RET_STS_ERROR;
529: RETURN l_return_status;
530: WHEN OTHERS THEN
531: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
532: OKL_API.Set_Message(p_app_name => G_APP_NAME,
533: p_msg_name => G_UNEXPECTED_ERROR,
534: p_token1 => G_SQLCODE_TOKEN,
535: p_token1_value => SQLCODE,
528: l_return_status := OKL_API.G_RET_STS_ERROR;
529: RETURN l_return_status;
530: WHEN OTHERS THEN
531: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
532: OKL_API.Set_Message(p_app_name => G_APP_NAME,
533: p_msg_name => G_UNEXPECTED_ERROR,
534: p_token1 => G_SQLCODE_TOKEN,
535: p_token1_value => SQLCODE,
536: p_token2 => G_SQLERRM_TOKEN,
789: ID = P_ID;
790:
791: BEGIN
792:
793: -- if(l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
794: if(l_rgp_id is not null) then
795: open RGP_CSR(l_rgp_id);
796: fetch RGP_CSR into l_chr_id, l_cle_id;
797: close RGP_CSR;
925: RETURN VARCHAR2 IS
926: l_end_date date;
927: l_end_date_disp varchar2(40);
928: BEGIN
929: if(p_stub_days is not null and p_stub_days <> OKL_API.G_MISS_CHAR) then -- end date for stub entry.
930: l_end_date := FND_DATE.canonical_to_date(p_start_date) + to_number(p_stub_days);
931: l_end_date := l_end_date - 1;
932: l_end_date_disp := OKL_LLA_UTIL_PVT.get_display_date(nvl(FND_DATE.date_to_canonical(l_end_date),''));
933: else -- end date for level entry.
1077:
1078: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
1079: lx_rulv_rec OKL_RULE_PUB.rulv_rec_type;
1080:
1081: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1082: l_api_name CONSTANT VARCHAR2(30) := 'CALCULATE_DETAILS';
1083: l_api_version CONSTANT NUMBER := 1.0;
1084:
1085: -- cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1090: l_line_end_date DATE; -- Bug 6152538
1091:
1092: begin
1093:
1094: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1095: -- call START_ACTIVITY to create savepoint, check compatibility
1096: -- and initialize message list
1097: x_return_status := OKL_API.START_ACTIVITY(
1098: p_api_name => l_api_name,
1093:
1094: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1095: -- call START_ACTIVITY to create savepoint, check compatibility
1096: -- and initialize message list
1097: x_return_status := OKL_API.START_ACTIVITY(
1098: p_api_name => l_api_name,
1099: p_pkg_name => G_PKG_NAME,
1100: p_init_msg_list => p_init_msg_list,
1101: l_api_version => l_api_version,
1103: p_api_type => G_API_TYPE,
1104: x_return_status => x_return_status);
1105:
1106: -- check if activity started successfully
1107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1110: raise OKL_API.G_EXCEPTION_ERROR;
1111: END IF;
1104: x_return_status => x_return_status);
1105:
1106: -- check if activity started successfully
1107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1110: raise OKL_API.G_EXCEPTION_ERROR;
1111: END IF;
1112: l_end_date := get_start_date(p_rgp_id => p_rgp_id);
1105:
1106: -- check if activity started successfully
1107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1110: raise OKL_API.G_EXCEPTION_ERROR;
1111: END IF;
1112: l_end_date := get_start_date(p_rgp_id => p_rgp_id);
1113:
1106: -- check if activity started successfully
1107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1110: raise OKL_API.G_EXCEPTION_ERROR;
1111: END IF;
1112: l_end_date := get_start_date(p_rgp_id => p_rgp_id);
1113:
1114: -- START: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1133:
1134: FOR rule_rec in sll_instances(P_RGP_ID, P_CHR_ID, P_SLH_ID) loop
1135:
1136: if( rule_rec.rule_information7 is not null and -- stub days
1137: rule_rec.rule_information7 <> OKL_API.G_MISS_CHAR ) then
1138: l_start_date := l_end_date + 1;
1139: l_end_date := l_start_date + to_number(rule_rec.rule_information7);
1140: l_end_date := l_end_date - 1;
1141: l_rulv_rec.rule_information2 := FND_DATE.date_to_canonical(l_start_date);
1153: IF p_validate_date_yn = 'Y' THEN
1154: -- Check whether stubs end date exceeds contract/line end date.
1155: l_line_end_date := get_line_end_date(p_rgp_id);
1156: if ( trunc(l_end_date) > trunc(l_line_end_date) ) then
1157: x_return_status := OKL_API.g_ret_sts_error;
1158: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1159: , p_msg_name => 'OKL_PAYMENT_DT_EXCEEDS_LINE_DT');
1160: raise OKL_API.G_EXCEPTION_ERROR;
1161: end if;
1154: -- Check whether stubs end date exceeds contract/line end date.
1155: l_line_end_date := get_line_end_date(p_rgp_id);
1156: if ( trunc(l_end_date) > trunc(l_line_end_date) ) then
1157: x_return_status := OKL_API.g_ret_sts_error;
1158: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1159: , p_msg_name => 'OKL_PAYMENT_DT_EXCEEDS_LINE_DT');
1160: raise OKL_API.G_EXCEPTION_ERROR;
1161: end if;
1162: END IF;
1156: if ( trunc(l_end_date) > trunc(l_line_end_date) ) then
1157: x_return_status := OKL_API.g_ret_sts_error;
1158: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1159: , p_msg_name => 'OKL_PAYMENT_DT_EXCEEDS_LINE_DT');
1160: raise OKL_API.G_EXCEPTION_ERROR;
1161: end if;
1162: END IF;
1163: -- nikshah Bug 7828786 - End
1164:
1162: END IF;
1163: -- nikshah Bug 7828786 - End
1164:
1165: elsif(rule_rec.rule_information3 is not null and -- periods
1166: rule_rec.rule_information3 <> OKL_API.G_MISS_CHAR ) then
1167: l_start_date := l_end_date + 1;
1168: --l_end_date := get_end_date(l_start_date, rule_rec.OBJECT1_ID1, rule_rec.RULE_INFORMATION3);
1169: l_end_date := get_end_date(l_start_date, rule_rec.OBJECT1_ID1, rule_rec.RULE_INFORMATION3,l_start_day, l_contract_end_date);--Bug#5441811
1170: l_rulv_rec.rule_information2 := FND_DATE.date_to_canonical(l_start_date);
1177: -- gboomina Bug 6152538 - Start
1178: -- Check whether payments end date exceeds contract/line end date.
1179: l_line_end_date := get_line_end_date(p_rgp_id);
1180: if ( trunc(l_end_date) > trunc(l_line_end_date) ) then
1181: x_return_status := OKL_API.g_ret_sts_error;
1182: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1183: , p_msg_name => 'OKL_PAYMENT_DT_EXCEEDS_LINE_DT');
1184: raise OKL_API.G_EXCEPTION_ERROR;
1185: end if;
1178: -- Check whether payments end date exceeds contract/line end date.
1179: l_line_end_date := get_line_end_date(p_rgp_id);
1180: if ( trunc(l_end_date) > trunc(l_line_end_date) ) then
1181: x_return_status := OKL_API.g_ret_sts_error;
1182: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1183: , p_msg_name => 'OKL_PAYMENT_DT_EXCEEDS_LINE_DT');
1184: raise OKL_API.G_EXCEPTION_ERROR;
1185: end if;
1186: -- gboomina Bug 6152538 - End
1180: if ( trunc(l_end_date) > trunc(l_line_end_date) ) then
1181: x_return_status := OKL_API.g_ret_sts_error;
1182: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1183: , p_msg_name => 'OKL_PAYMENT_DT_EXCEEDS_LINE_DT');
1184: raise OKL_API.G_EXCEPTION_ERROR;
1185: end if;
1186: -- gboomina Bug 6152538 - End
1187: END IF;
1188: -- Bug# 6438785
1188: -- Bug# 6438785
1189: end if;
1190:
1191:
1192: if (frequency is not null and frequency <> OKL_API.G_MISS_CHAR) then
1193: l_rulv_rec.jtot_object1_code := 'OKL_TUOM';
1194: l_rulv_rec.object1_id1 := frequency;
1195: end if;
1196: if (arrears is not null and arrears <> OKL_API.G_MISS_CHAR) then
1192: if (frequency is not null and frequency <> OKL_API.G_MISS_CHAR) then
1193: l_rulv_rec.jtot_object1_code := 'OKL_TUOM';
1194: l_rulv_rec.object1_id1 := frequency;
1195: end if;
1196: if (arrears is not null and arrears <> OKL_API.G_MISS_CHAR) then
1197: l_rulv_rec.rule_information10 := arrears;
1198: end if;
1199: if (structure is not null and structure <> OKL_API.G_MISS_CHAR) then
1200: l_rulv_rec.rule_information5 := structure;
1195: end if;
1196: if (arrears is not null and arrears <> OKL_API.G_MISS_CHAR) then
1197: l_rulv_rec.rule_information10 := arrears;
1198: end if;
1199: if (structure is not null and structure <> OKL_API.G_MISS_CHAR) then
1200: l_rulv_rec.rule_information5 := structure;
1201: end if;
1202:
1203: l_rulv_rec.rule_information1 := null;
1211: p_rulv_rec => l_rulv_rec,
1212: x_rulv_rec => lx_rulv_rec);
1213:
1214:
1215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_ERROR;
1219: END IF;
1212: x_rulv_rec => lx_rulv_rec);
1213:
1214:
1215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_ERROR;
1219: END IF;
1220:
1213:
1214:
1215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_ERROR;
1219: END IF;
1220:
1221:
1214:
1215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_ERROR;
1219: END IF;
1220:
1221:
1222: end loop;
1229: END IF;
1230: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1231:
1232: --Call End Activity
1233: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1234: x_msg_data => x_msg_data);
1235:
1236:
1237: EXCEPTION
1234: x_msg_data => x_msg_data);
1235:
1236:
1237: EXCEPTION
1238: when OKL_API.G_EXCEPTION_ERROR then
1239: -- START: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1240: if(sll_instances%ISOPEN) then
1241: close sll_instances;
1242: end if;
1243: IF(l_okl_sll_count_csr%ISOPEN) THEN
1244: CLOSE l_okl_sll_count_csr;
1245: END IF;
1246: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1247: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1248: p_api_name => l_api_name,
1249: p_pkg_name => G_PKG_NAME,
1250: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1251: x_msg_count => x_msg_count,
1246: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1247: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1248: p_api_name => l_api_name,
1249: p_pkg_name => G_PKG_NAME,
1250: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1251: x_msg_count => x_msg_count,
1252: x_msg_data => x_msg_data,
1253: p_api_type => G_API_TYPE);
1254:
1251: x_msg_count => x_msg_count,
1252: x_msg_data => x_msg_data,
1253: p_api_type => G_API_TYPE);
1254:
1255: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1256: -- START: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1257: if(sll_instances%ISOPEN) then
1258: close sll_instances;
1259: end if;
1260: IF(l_okl_sll_count_csr%ISOPEN) THEN
1261: CLOSE l_okl_sll_count_csr;
1262: END IF;
1263: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: p_api_name => l_api_name,
1266: p_pkg_name => G_PKG_NAME,
1267: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1268: x_msg_count => x_msg_count,
1263: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: p_api_name => l_api_name,
1266: p_pkg_name => G_PKG_NAME,
1267: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1268: x_msg_count => x_msg_count,
1269: x_msg_data => x_msg_data,
1270: p_api_type => G_API_TYPE);
1271:
1277: IF(l_okl_sll_count_csr%ISOPEN) THEN
1278: CLOSE l_okl_sll_count_csr;
1279: END IF;
1280: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
1281: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1282: p_api_name => l_api_name,
1283: p_pkg_name => G_PKG_NAME,
1284: p_exc_name => 'OTHERS',
1285: x_msg_count => x_msg_count,
1294: p_num IN VARCHAR2)
1295: RETURN boolean IS
1296: l_num number;
1297: BEGIN
1298: if(p_num is null or p_num = OKL_API.G_MISS_CHAR ) then
1299: return false;
1300: else
1301: l_num := to_number(p_num);
1302: return true;
1319: p_type IN VARCHAR2
1320: ) IS
1321:
1322:
1323: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1324: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PAYMENTS';
1325: l_api_version CONSTANT NUMBER := 1.0;
1326:
1327: i NUMBER := 0;
1339: l_message VARCHAR2(1000);
1340:
1341: begin
1342:
1343: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1344: -- call START_ACTIVITY to create savepoint, check compatibility
1345: -- and initialize message list
1346: x_return_status := OKL_API.START_ACTIVITY(
1347: p_api_name => l_api_name,
1342:
1343: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1344: -- call START_ACTIVITY to create savepoint, check compatibility
1345: -- and initialize message list
1346: x_return_status := OKL_API.START_ACTIVITY(
1347: p_api_name => l_api_name,
1348: p_pkg_name => G_PKG_NAME,
1349: p_init_msg_list => p_init_msg_list,
1350: l_api_version => l_api_version,
1352: p_api_type => G_API_TYPE,
1353: x_return_status => x_return_status);
1354:
1355: -- check if activity started successfully
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1359: raise OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1353: x_return_status => x_return_status);
1354:
1355: -- check if activity started successfully
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1359: raise OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361:
1354:
1355: -- check if activity started successfully
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1359: raise OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361:
1362: if( p_rulv_rec.rule_information7 is not null and
1355: -- check if activity started successfully
1356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1359: raise OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361:
1362: if( p_rulv_rec.rule_information7 is not null and
1363: p_rulv_rec.rule_information7 <> OKL_API.G_MISS_CHAR) then
1359: raise OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361:
1362: if( p_rulv_rec.rule_information7 is not null and
1363: p_rulv_rec.rule_information7 <> OKL_API.G_MISS_CHAR) then
1364: l_days := true;
1365:
1366: end if;
1367: if( p_rulv_rec.rule_information8 is not null and
1364: l_days := true;
1365:
1366: end if;
1367: if( p_rulv_rec.rule_information8 is not null and
1368: p_rulv_rec.rule_information8 <> OKL_API.G_MISS_CHAR) then
1369: l_days_amt := true;
1370: end if;
1371: if( p_rulv_rec.rule_information3 is not null and
1372: p_rulv_rec.rule_information3 <> OKL_API.G_MISS_CHAR) then
1368: p_rulv_rec.rule_information8 <> OKL_API.G_MISS_CHAR) then
1369: l_days_amt := true;
1370: end if;
1371: if( p_rulv_rec.rule_information3 is not null and
1372: p_rulv_rec.rule_information3 <> OKL_API.G_MISS_CHAR) then
1373: l_period := true;
1374: end if;
1375: if( p_rulv_rec.rule_information6 is not null and
1376: p_rulv_rec.rule_information6 <> OKL_API.G_MISS_CHAR) then
1372: p_rulv_rec.rule_information3 <> OKL_API.G_MISS_CHAR) then
1373: l_period := true;
1374: end if;
1375: if( p_rulv_rec.rule_information6 is not null and
1376: p_rulv_rec.rule_information6 <> OKL_API.G_MISS_CHAR) then
1377: l_period_amt := true;
1378: end if;
1379: -- Start fix for bug 7111749
1380: -- Set l_structure TRUE if non-level
1378: end if;
1379: -- Start fix for bug 7111749
1380: -- Set l_structure TRUE if non-level
1381: if( p_rulv_rec.rule_information5 is not null and
1382: p_rulv_rec.rule_information5 <> OKL_API.G_MISS_CHAR) and
1383: (TRUNC(NVL(p_rulv_rec.rule_information5, '-1')) <> '0') then
1384: l_structure := true;
1385: end if;
1386: -- End fix for bug 7111749
1386: -- End fix for bug 7111749
1387:
1388: if(p_payment_type = 'VIR_PAYMENT') then
1389: if(l_period and is_num(p_rulv_rec.rule_information3) and to_number(p_rulv_rec.rule_information3) > 0 ) then
1390: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data);
1392: return;
1393: else
1394: x_return_status := OKL_API.g_ret_sts_error;
1390: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data);
1392: return;
1393: else
1394: x_return_status := OKL_API.g_ret_sts_error;
1395: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1396: , p_msg_name => l_message);
1397: raise OKL_API.G_EXCEPTION_ERROR;
1398: end if;
1391: x_msg_data => x_msg_data);
1392: return;
1393: else
1394: x_return_status := OKL_API.g_ret_sts_error;
1395: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1396: , p_msg_name => l_message);
1397: raise OKL_API.G_EXCEPTION_ERROR;
1398: end if;
1399: end if;
1393: else
1394: x_return_status := OKL_API.g_ret_sts_error;
1395: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1396: , p_msg_name => l_message);
1397: raise OKL_API.G_EXCEPTION_ERROR;
1398: end if;
1399: end if;
1400:
1401: if((l_days and l_period) or (l_days_amt and l_period_amt)) then
1435: end if;
1436: end if;
1437: -- End fix for bug 7111749
1438: if(l_message is not null) then
1439: x_return_status := OKL_API.g_ret_sts_error;
1440: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1441: , p_msg_name => l_message);
1442: raise OKL_API.G_EXCEPTION_ERROR;
1443: end if;
1436: end if;
1437: -- End fix for bug 7111749
1438: if(l_message is not null) then
1439: x_return_status := OKL_API.g_ret_sts_error;
1440: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1441: , p_msg_name => l_message);
1442: raise OKL_API.G_EXCEPTION_ERROR;
1443: end if;
1444:
1438: if(l_message is not null) then
1439: x_return_status := OKL_API.g_ret_sts_error;
1440: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1441: , p_msg_name => l_message);
1442: raise OKL_API.G_EXCEPTION_ERROR;
1443: end if;
1444:
1445:
1446: if( p_fee_line_type is null or
1444:
1445:
1446: if( p_fee_line_type is null or
1447: p_fee_line_type = '' or
1448: p_fee_line_type = OKL_API.G_MISS_CHAR ) then
1449:
1450: --x_rulv_rec := l_rulv_rec;
1451:
1452: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1448: p_fee_line_type = OKL_API.G_MISS_CHAR ) then
1449:
1450: --x_rulv_rec := l_rulv_rec;
1451:
1452: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1453: x_msg_data => x_msg_data);
1454: return;
1455: end if;
1456:
1459:
1460: l_payment_code := get_payment_type(l_rulv_rec.object2_id1);
1461: if( l_payment_code <> 'SECURITY_DEPOSIT') then -- cklee: 11/01/04, 12-03-2004
1462:
1463: x_return_status := OKL_API.g_ret_sts_error;
1464: l_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
1465: p_region_code => G_AK_REGION_NAME,
1466: p_attribute_code => 'OKL_LA_PYMTS_TYPE');
1467: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1463: x_return_status := OKL_API.g_ret_sts_error;
1464: l_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
1465: p_region_code => G_AK_REGION_NAME,
1466: p_attribute_code => 'OKL_LA_PYMTS_TYPE');
1467: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1468: , p_msg_name => 'OKL_LLA_PYMTS_SEC_PYMT'
1469: , p_token1 => 'COL_NAME'
1470: , p_token1_value => l_ak_prompt
1471: );
1469: , p_token1 => 'COL_NAME'
1470: , p_token1_value => l_ak_prompt
1471: );
1472:
1473: raise OKL_API.G_EXCEPTION_ERROR;
1474:
1475: end if;
1476:
1477: end if;
1479:
1480: if(p_fee_line_type is not null and p_fee_line_type = 'SECDEPOSIT') then
1481: l_lty_code := get_lty_code(l_rulv_rec.rgp_id);
1482: if(l_lty_code is not null and l_lty_code = 'LINK_FEE_ASSET') then
1483: x_return_status := OKL_API.g_ret_sts_error;
1484: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1485: , p_msg_name => 'OKL_LLA_PYMTS_FEE_NO_ASSET');
1486: raise OKL_API.G_EXCEPTION_ERROR;
1487: end if;
1480: if(p_fee_line_type is not null and p_fee_line_type = 'SECDEPOSIT') then
1481: l_lty_code := get_lty_code(l_rulv_rec.rgp_id);
1482: if(l_lty_code is not null and l_lty_code = 'LINK_FEE_ASSET') then
1483: x_return_status := OKL_API.g_ret_sts_error;
1484: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1485: , p_msg_name => 'OKL_LLA_PYMTS_FEE_NO_ASSET');
1486: raise OKL_API.G_EXCEPTION_ERROR;
1487: end if;
1488: end if;
1482: if(l_lty_code is not null and l_lty_code = 'LINK_FEE_ASSET') then
1483: x_return_status := OKL_API.g_ret_sts_error;
1484: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1485: , p_msg_name => 'OKL_LLA_PYMTS_FEE_NO_ASSET');
1486: raise OKL_API.G_EXCEPTION_ERROR;
1487: end if;
1488: end if;
1489:
1490: --Call End Activity
1487: end if;
1488: end if;
1489:
1490: --Call End Activity
1491: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1492: x_msg_data => x_msg_data);
1493:
1494:
1495: EXCEPTION
1492: x_msg_data => x_msg_data);
1493:
1494:
1495: EXCEPTION
1496: when OKL_API.G_EXCEPTION_ERROR then
1497: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1498: p_api_name => l_api_name,
1499: p_pkg_name => G_PKG_NAME,
1500: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1493:
1494:
1495: EXCEPTION
1496: when OKL_API.G_EXCEPTION_ERROR then
1497: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1498: p_api_name => l_api_name,
1499: p_pkg_name => G_PKG_NAME,
1500: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1501: x_msg_count => x_msg_count,
1496: when OKL_API.G_EXCEPTION_ERROR then
1497: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1498: p_api_name => l_api_name,
1499: p_pkg_name => G_PKG_NAME,
1500: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1501: x_msg_count => x_msg_count,
1502: x_msg_data => x_msg_data,
1503: p_api_type => G_API_TYPE);
1504:
1501: x_msg_count => x_msg_count,
1502: x_msg_data => x_msg_data,
1503: p_api_type => G_API_TYPE);
1504:
1505: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1506: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1507: p_api_name => l_api_name,
1508: p_pkg_name => G_PKG_NAME,
1509: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1502: x_msg_data => x_msg_data,
1503: p_api_type => G_API_TYPE);
1504:
1505: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1506: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1507: p_api_name => l_api_name,
1508: p_pkg_name => G_PKG_NAME,
1509: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1510: x_msg_count => x_msg_count,
1505: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1506: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1507: p_api_name => l_api_name,
1508: p_pkg_name => G_PKG_NAME,
1509: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1510: x_msg_count => x_msg_count,
1511: x_msg_data => x_msg_data,
1512: p_api_type => G_API_TYPE);
1513:
1511: x_msg_data => x_msg_data,
1512: p_api_type => G_API_TYPE);
1513:
1514: when OTHERS then
1515: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1516: p_api_name => l_api_name,
1517: p_pkg_name => G_PKG_NAME,
1518: p_exc_name => 'OTHERS',
1519: x_msg_count => x_msg_count,
1598: valid boolean := true;
1599:
1600: Begin
1601:
1602: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1603: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1604: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1605: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1606: valid := false;
1599:
1600: Begin
1601:
1602: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1603: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1604: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1605: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1606: valid := false;
1607: end if;
1600: Begin
1601:
1602: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1603: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1604: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1605: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1606: valid := false;
1607: end if;
1608:
1601:
1602: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1603: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1604: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1605: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1606: valid := false;
1607: end if;
1608:
1609: if(not valid) then
1648: FUNCTION check_rec(p_pym_rec IN pym_rec_type)
1649: RETURN boolean IS
1650:
1651: BEGIN
1652: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1653: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1654: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1655: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1656: return true;
1649: RETURN boolean IS
1650:
1651: BEGIN
1652: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1653: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1654: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1655: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1656: return true;
1657: else
1650:
1651: BEGIN
1652: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1653: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1654: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1655: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1656: return true;
1657: else
1658: return false;
1651: BEGIN
1652: if((p_pym_rec.stub_days is null or p_pym_rec.stub_days = OKL_API.G_MISS_CHAR) and
1653: (p_pym_rec.stub_amount is null or p_pym_rec.stub_amount = OKL_API.G_MISS_CHAR) and
1654: (p_pym_rec.period is null or p_pym_rec.period = OKL_API.G_MISS_CHAR) and
1655: (p_pym_rec.amount is null or p_pym_rec.amount = OKL_API.G_MISS_CHAR)) then
1656: return true;
1657: else
1658: return false;
1659: end if;
1666: x_return_status OUT NOCOPY VARCHAR2,
1667: x_msg_count OUT NOCOPY NUMBER,
1668: x_msg_data OUT NOCOPY VARCHAR2,
1669: p_chr_id OKC_K_HEADERS_B.ID%TYPE,
1670: p_service_fee_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1671: p_asset_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1672: p_payment_id OKL_STRMTYP_SOURCE_V.ID1%TYPE,
1673: x_pym_level OUT NOCOPY VARCHAR2,
1674: x_slh_id OUT NOCOPY OKC_RULES_V.ID%TYPE,
1667: x_msg_count OUT NOCOPY NUMBER,
1668: x_msg_data OUT NOCOPY VARCHAR2,
1669: p_chr_id OKC_K_HEADERS_B.ID%TYPE,
1670: p_service_fee_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1671: p_asset_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1672: p_payment_id OKL_STRMTYP_SOURCE_V.ID1%TYPE,
1673: x_pym_level OUT NOCOPY VARCHAR2,
1674: x_slh_id OUT NOCOPY OKC_RULES_V.ID%TYPE,
1675: x_rgp_id OUT NOCOPY OKC_RULE_GROUPS_V.ID%TYPE,
1674: x_slh_id OUT NOCOPY OKC_RULES_V.ID%TYPE,
1675: x_rgp_id OUT NOCOPY OKC_RULE_GROUPS_V.ID%TYPE,
1676: x_cle_id OUT NOCOPY OKC_K_LINES_B.ID%TYPE) IS
1677:
1678: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1679: l_api_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT';
1680: l_api_version CONSTANT NUMBER := 1.0;
1681:
1682: l_pym_level VARCHAR2(30) := 'HEADER';
1679: l_api_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT';
1680: l_api_version CONSTANT NUMBER := 1.0;
1681:
1682: l_pym_level VARCHAR2(30) := 'HEADER';
1683: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1684: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1685: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1686: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1687:
1680: l_api_version CONSTANT NUMBER := 1.0;
1681:
1682: l_pym_level VARCHAR2(30) := 'HEADER';
1683: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1684: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1685: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1686: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1687:
1688: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%TYPE;
1681:
1682: l_pym_level VARCHAR2(30) := 'HEADER';
1683: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1684: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1685: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1686: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1687:
1688: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%TYPE;
1689:
1682: l_pym_level VARCHAR2(30) := 'HEADER';
1683: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1684: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1685: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1686: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1687:
1688: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%TYPE;
1689:
1690: ------------- temp
1726: -- SLH.OBJECT1_ID1 = TO_CHAR(P_PAYMENT_ID);
1727:
1728: begin
1729:
1730: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1731: -- call START_ACTIVITY to create savepoint, check compatibility
1732: -- and initialize message list
1733: x_return_status := OKL_API.START_ACTIVITY(
1734: p_api_name => l_api_name,
1729:
1730: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1731: -- call START_ACTIVITY to create savepoint, check compatibility
1732: -- and initialize message list
1733: x_return_status := OKL_API.START_ACTIVITY(
1734: p_api_name => l_api_name,
1735: p_pkg_name => G_PKG_NAME,
1736: p_init_msg_list => p_init_msg_list,
1737: l_api_version => l_api_version,
1739: p_api_type => G_API_TYPE,
1740: x_return_status => x_return_status);
1741:
1742: -- check if activity started successfully
1743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1746: raise OKL_API.G_EXCEPTION_ERROR;
1747: END IF;
1740: x_return_status => x_return_status);
1741:
1742: -- check if activity started successfully
1743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1746: raise OKL_API.G_EXCEPTION_ERROR;
1747: END IF;
1748:
1741:
1742: -- check if activity started successfully
1743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1746: raise OKL_API.G_EXCEPTION_ERROR;
1747: END IF;
1748:
1749: /* -- temp
1742: -- check if activity started successfully
1743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1746: raise OKL_API.G_EXCEPTION_ERROR;
1747: END IF;
1748:
1749: /* -- temp
1750: open get_dir;
1757: --fnd_file.put_names(l_log, l_out, l_temp_dir);
1758: -- temp
1759:
1760:
1761: if( p_payment_id is null or p_payment_id = OKL_API.G_MISS_NUM) then
1762: x_return_status := OKL_API.g_ret_sts_error;
1763: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1764: , p_msg_name => 'OKL_LLA_PMT_SELECT');
1765: raise OKL_API.G_EXCEPTION_ERROR;
1758: -- temp
1759:
1760:
1761: if( p_payment_id is null or p_payment_id = OKL_API.G_MISS_NUM) then
1762: x_return_status := OKL_API.g_ret_sts_error;
1763: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1764: , p_msg_name => 'OKL_LLA_PMT_SELECT');
1765: raise OKL_API.G_EXCEPTION_ERROR;
1766: end if;
1759:
1760:
1761: if( p_payment_id is null or p_payment_id = OKL_API.G_MISS_NUM) then
1762: x_return_status := OKL_API.g_ret_sts_error;
1763: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1764: , p_msg_name => 'OKL_LLA_PMT_SELECT');
1765: raise OKL_API.G_EXCEPTION_ERROR;
1766: end if;
1767:
1761: if( p_payment_id is null or p_payment_id = OKL_API.G_MISS_NUM) then
1762: x_return_status := OKL_API.g_ret_sts_error;
1763: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1764: , p_msg_name => 'OKL_LLA_PMT_SELECT');
1765: raise OKL_API.G_EXCEPTION_ERROR;
1766: end if;
1767:
1768:
1769: if( p_asset_id is not null and p_asset_id <> OKL_API.G_MISS_NUM) then
1765: raise OKL_API.G_EXCEPTION_ERROR;
1766: end if;
1767:
1768:
1769: if( p_asset_id is not null and p_asset_id <> OKL_API.G_MISS_NUM) then
1770: l_pym_level := 'ASSET';
1771: l_cle_id := p_asset_id;
1772: end if;
1773: if(p_service_fee_id is not null and p_service_fee_id <> OKL_API.G_MISS_NUM) then
1769: if( p_asset_id is not null and p_asset_id <> OKL_API.G_MISS_NUM) then
1770: l_pym_level := 'ASSET';
1771: l_cle_id := p_asset_id;
1772: end if;
1773: if(p_service_fee_id is not null and p_service_fee_id <> OKL_API.G_MISS_NUM) then
1774: if(l_pym_level = 'ASSET') then
1775: l_pym_level := 'SUBLINE';
1776: else
1777: l_pym_level := 'SERVICE_FEE';
1794: fetch RGP_CLE_CSR into l_rgp_id;
1795: close RGP_CLE_CSR;
1796: end if;
1797:
1798: if(l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
1799: open SLH_CSR(l_rgp_id, p_payment_id);
1800: fetch SLH_CSR into l_slh_id;
1801: close SLH_CSR;
1802:
1809: x_cle_id := l_cle_id;
1810:
1811:
1812: --Call End Activity
1813: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1814: x_msg_data => x_msg_data);
1815:
1816: EXCEPTION
1817: when OKL_API.G_EXCEPTION_ERROR then
1813: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1814: x_msg_data => x_msg_data);
1815:
1816: EXCEPTION
1817: when OKL_API.G_EXCEPTION_ERROR then
1818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1819: p_api_name => l_api_name,
1820: p_pkg_name => G_PKG_NAME,
1821: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1814: x_msg_data => x_msg_data);
1815:
1816: EXCEPTION
1817: when OKL_API.G_EXCEPTION_ERROR then
1818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1819: p_api_name => l_api_name,
1820: p_pkg_name => G_PKG_NAME,
1821: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1822: x_msg_count => x_msg_count,
1817: when OKL_API.G_EXCEPTION_ERROR then
1818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1819: p_api_name => l_api_name,
1820: p_pkg_name => G_PKG_NAME,
1821: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1822: x_msg_count => x_msg_count,
1823: x_msg_data => x_msg_data,
1824: p_api_type => G_API_TYPE);
1825:
1822: x_msg_count => x_msg_count,
1823: x_msg_data => x_msg_data,
1824: p_api_type => G_API_TYPE);
1825:
1826: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1828: p_api_name => l_api_name,
1829: p_pkg_name => G_PKG_NAME,
1830: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1823: x_msg_data => x_msg_data,
1824: p_api_type => G_API_TYPE);
1825:
1826: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1828: p_api_name => l_api_name,
1829: p_pkg_name => G_PKG_NAME,
1830: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1831: x_msg_count => x_msg_count,
1826: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1828: p_api_name => l_api_name,
1829: p_pkg_name => G_PKG_NAME,
1830: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1831: x_msg_count => x_msg_count,
1832: x_msg_data => x_msg_data,
1833: p_api_type => G_API_TYPE);
1834:
1832: x_msg_data => x_msg_data,
1833: p_api_type => G_API_TYPE);
1834:
1835: when OTHERS then
1836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1837: p_api_name => l_api_name,
1838: p_pkg_name => G_PKG_NAME,
1839: p_exc_name => 'OTHERS',
1840: x_msg_count => x_msg_count,
1875: --l_ret_value VARCHAR2(1);
1876:
1877: BEGIN
1878:
1879: --l_ret_value := OKL_API.G_FALSE;
1880:
1881: OPEN inv_dtls_csr(p_chr_id => p_chr_id);
1882: FETCH inv_dtls_csr INTO l_inv_dtls;
1883: CLOSE inv_dtls_csr;
1909: x_return_status OUT NOCOPY VARCHAR2,
1910: x_msg_count OUT NOCOPY NUMBER,
1911: x_msg_data OUT NOCOPY VARCHAR2,
1912: p_chr_id OKC_K_HEADERS_B.ID%TYPE,
1913: p_service_fee_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1914: p_asset_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1915: p_payment_id OKL_STRMTYP_SOURCE_V.ID1%TYPE,
1916: p_pym_hdr_rec IN pym_hdr_rec_type,
1917: p_pym_tbl IN pym_tbl_type,
1910: x_msg_count OUT NOCOPY NUMBER,
1911: x_msg_data OUT NOCOPY VARCHAR2,
1912: p_chr_id OKC_K_HEADERS_B.ID%TYPE,
1913: p_service_fee_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1914: p_asset_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
1915: p_payment_id OKL_STRMTYP_SOURCE_V.ID1%TYPE,
1916: p_pym_hdr_rec IN pym_hdr_rec_type,
1917: p_pym_tbl IN pym_tbl_type,
1918: p_update_type IN VARCHAR2,
1917: p_pym_tbl IN pym_tbl_type,
1918: p_update_type IN VARCHAR2,
1919: x_rulv_tbl OUT NOCOPY rulv_tbl_type) IS
1920:
1921: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1922: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_PAYMENT';
1923: l_api_version CONSTANT NUMBER := 1.0;
1924: l_totalpayment NUMBER :=0 ;
1925: i NUMBER := 0;
1946: l_rgpv_rec OKL_RULE_PUB.rgpv_rec_type := NULL;
1947: lx_rgpv_rec OKL_RULE_PUB.rgpv_rec_type := NULL;
1948:
1949: l_pym_level VARCHAR2(30) := 'HEADER';
1950: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1951: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1952: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1953: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1954: l_stream_id OKC_RULES_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
1947: lx_rgpv_rec OKL_RULE_PUB.rgpv_rec_type := NULL;
1948:
1949: l_pym_level VARCHAR2(30) := 'HEADER';
1950: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1951: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1952: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1953: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1954: l_stream_id OKC_RULES_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
1955:
1948:
1949: l_pym_level VARCHAR2(30) := 'HEADER';
1950: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1951: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1952: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1953: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1954: l_stream_id OKC_RULES_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
1955:
1956: l_fee_line_type OKL_K_FEE_LINES_UV.FEE_TYPE%TYPE := null;
1949: l_pym_level VARCHAR2(30) := 'HEADER';
1950: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1951: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1952: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1953: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1954: l_stream_id OKC_RULES_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
1955:
1956: l_fee_line_type OKL_K_FEE_LINES_UV.FEE_TYPE%TYPE := null;
1957: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE := null;
1950: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1951: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
1952: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1953: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
1954: l_stream_id OKC_RULES_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
1955:
1956: l_fee_line_type OKL_K_FEE_LINES_UV.FEE_TYPE%TYPE := null;
1957: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE := null;
1958: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%TYPE;
2040: begin
2041:
2042:
2043:
2044: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2045: -- call START_ACTIVITY to create savepoint, check compatibility
2046: -- and initialize message list
2047: x_return_status := OKL_API.START_ACTIVITY(
2048: p_api_name => l_api_name,
2043:
2044: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2045: -- call START_ACTIVITY to create savepoint, check compatibility
2046: -- and initialize message list
2047: x_return_status := OKL_API.START_ACTIVITY(
2048: p_api_name => l_api_name,
2049: p_pkg_name => G_PKG_NAME,
2050: p_init_msg_list => p_init_msg_list,
2051: l_api_version => l_api_version,
2053: p_api_type => G_API_TYPE,
2054: x_return_status => x_return_status);
2055:
2056: -- check if activity started successfully
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2060: raise OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2054: x_return_status => x_return_status);
2055:
2056: -- check if activity started successfully
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2060: raise OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2055:
2056: -- check if activity started successfully
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2060: raise OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2063: /* -- temp
2056: -- check if activity started successfully
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2060: raise OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2063: /* -- temp
2064: open get_dir;
2073:
2074: -- R12B Authoring OA Migration
2075: -- Check if the Payment is for an Upfront Tax Fee line
2076: /* IF(not is_investor_fee_payment(p_chr_id =>p_chr_id, p_cle_id => p_service_fee_id , p_rgp_id => l_rulv_rec.rgp_id )) then
2077: x_return_status := OKL_API.g_ret_sts_error;
2078: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2079: , p_msg_name => 'OKL_LA_INV_PAY_MISMATCH');
2080: raise OKL_API.G_EXCEPTION_ERROR;
2081: end if;
2074: -- R12B Authoring OA Migration
2075: -- Check if the Payment is for an Upfront Tax Fee line
2076: /* IF(not is_investor_fee_payment(p_chr_id =>p_chr_id, p_cle_id => p_service_fee_id , p_rgp_id => l_rulv_rec.rgp_id )) then
2077: x_return_status := OKL_API.g_ret_sts_error;
2078: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2079: , p_msg_name => 'OKL_LA_INV_PAY_MISMATCH');
2080: raise OKL_API.G_EXCEPTION_ERROR;
2081: end if;
2082: */
2076: /* IF(not is_investor_fee_payment(p_chr_id =>p_chr_id, p_cle_id => p_service_fee_id , p_rgp_id => l_rulv_rec.rgp_id )) then
2077: x_return_status := OKL_API.g_ret_sts_error;
2078: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2079: , p_msg_name => 'OKL_LA_INV_PAY_MISMATCH');
2080: raise OKL_API.G_EXCEPTION_ERROR;
2081: end if;
2082: */
2083: l_upfront_tax_pymt_yn := OKL_API.G_FALSE;
2084: IF (p_service_fee_id IS NOT NULL) THEN
2079: , p_msg_name => 'OKL_LA_INV_PAY_MISMATCH');
2080: raise OKL_API.G_EXCEPTION_ERROR;
2081: end if;
2082: */
2083: l_upfront_tax_pymt_yn := OKL_API.G_FALSE;
2084: IF (p_service_fee_id IS NOT NULL) THEN
2085: l_upfront_tax_pymt_yn := is_upfront_tax_fee_payment(p_chr_id => p_chr_id,
2086: p_cle_id => p_service_fee_id);
2087:
2084: IF (p_service_fee_id IS NOT NULL) THEN
2085: l_upfront_tax_pymt_yn := is_upfront_tax_fee_payment(p_chr_id => p_chr_id,
2086: p_cle_id => p_service_fee_id);
2087:
2088: IF (l_upfront_tax_pymt_yn = OKL_API.G_TRUE) THEN
2089: OPEN l_contract_csr(p_chr_id => p_chr_id);
2090: FETCH l_contract_csr INTO l_contract_rec;
2091: CLOSE l_contract_csr;
2092:
2098: (p_asset_id => p_asset_id,
2099: p_service_fee_id => p_service_fee_id,
2100: p_payment_id => p_payment_id);
2101: --- Store the highest degree of error
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2105: raise OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2099: p_service_fee_id => p_service_fee_id,
2100: p_payment_id => p_payment_id);
2101: --- Store the highest degree of error
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2105: raise OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: -- END: June 24, 2005 cklee: Modification for okl.h Sales Quote enhancement
2100: p_payment_id => p_payment_id);
2101: --- Store the highest degree of error
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2105: raise OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: -- END: June 24, 2005 cklee: Modification for okl.h Sales Quote enhancement
2108:
2101: --- Store the highest degree of error
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2105: raise OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: -- END: June 24, 2005 cklee: Modification for okl.h Sales Quote enhancement
2108:
2109: -- START: Setp 02, 2005 cklee: Variable rate ER for GE - 20
2112: p_asset_id => p_asset_id,
2113: p_service_fee_id => p_service_fee_id,
2114: p_payment_id => p_payment_id);
2115: --- Store the highest degree of error
2116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2119: raise OKL_API.G_EXCEPTION_ERROR;
2120: END IF;
2113: p_service_fee_id => p_service_fee_id,
2114: p_payment_id => p_payment_id);
2115: --- Store the highest degree of error
2116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2119: raise OKL_API.G_EXCEPTION_ERROR;
2120: END IF;
2121: -- END: Setp 02, 2005 cklee: Variable rate ER for GE - 20
2114: p_payment_id => p_payment_id);
2115: --- Store the highest degree of error
2116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2119: raise OKL_API.G_EXCEPTION_ERROR;
2120: END IF;
2121: -- END: Setp 02, 2005 cklee: Variable rate ER for GE - 20
2122:
2115: --- Store the highest degree of error
2116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2117: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2119: raise OKL_API.G_EXCEPTION_ERROR;
2120: END IF;
2121: -- END: Setp 02, 2005 cklee: Variable rate ER for GE - 20
2122:
2123: get_payment(
2135: x_rgp_id => l_rgp_id,
2136: x_cle_id => l_cle_id);
2137:
2138:
2139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2140: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2142: raise OKL_API.G_EXCEPTION_ERROR;
2143: END IF;
2136: x_cle_id => l_cle_id);
2137:
2138:
2139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2140: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2142: raise OKL_API.G_EXCEPTION_ERROR;
2143: END IF;
2144:
2137:
2138:
2139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2140: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2142: raise OKL_API.G_EXCEPTION_ERROR;
2143: END IF;
2144:
2145: --Bug# 4959361
2138:
2139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2140: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2142: raise OKL_API.G_EXCEPTION_ERROR;
2143: END IF;
2144:
2145: --Bug# 4959361
2146: IF l_cle_id IS NOT NULL THEN
2151: x_msg_count => x_msg_count,
2152: x_msg_data => x_msg_data,
2153: p_cle_id => l_cle_id);
2154:
2155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2158: RAISE OKL_API.G_EXCEPTION_ERROR;
2159: END IF;
2152: x_msg_data => x_msg_data,
2153: p_cle_id => l_cle_id);
2154:
2155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2158: RAISE OKL_API.G_EXCEPTION_ERROR;
2159: END IF;
2160: END IF;
2153: p_cle_id => l_cle_id);
2154:
2155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2158: RAISE OKL_API.G_EXCEPTION_ERROR;
2159: END IF;
2160: END IF;
2161: --Bug# 4959361
2154:
2155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2158: RAISE OKL_API.G_EXCEPTION_ERROR;
2159: END IF;
2160: END IF;
2161: --Bug# 4959361
2162:
2159: END IF;
2160: END IF;
2161: --Bug# 4959361
2162:
2163: if(l_rgp_id is null or l_rgp_id = OKL_API.G_MISS_NUM) then
2164: if(l_pym_level = 'HEADER') then
2165: l_rgpv_rec.chr_id := p_chr_id;
2166: l_rgpv_rec.dnz_chr_id := p_chr_id;
2167: l_rgpv_rec.cle_id := null;
2188:
2189:
2190: l_rgp_id := lx_rgpv_rec.id;
2191:
2192: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2193: RAISE OKL_API.G_EXCEPTION_ERROR;
2194: END IF;
2195: end if;
2196:
2189:
2190: l_rgp_id := lx_rgpv_rec.id;
2191:
2192: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2193: RAISE OKL_API.G_EXCEPTION_ERROR;
2194: END IF;
2195: end if;
2196:
2197:
2194: END IF;
2195: end if;
2196:
2197:
2198: IF(l_slh_id is null or l_slh_id = OKL_API.G_MISS_NUM) then
2199: l_rulv_rec := l_rulv_rec2;
2200: -- l_rulv_rec.object_version_number := l_rgr_rec.object_version_number;
2201: l_rulv_rec.dnz_chr_id := p_chr_id;
2202: l_rulv_rec.rgp_id := l_rgp_id;
2216: x_msg_data => x_msg_data,
2217: p_rulv_rec => l_rulv_rec,
2218: x_rulv_rec => lx_rulv_rec);
2219:
2220: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2223: l_slh_id := lx_rulv_rec.id;
2224: end if;
2217: p_rulv_rec => l_rulv_rec,
2218: x_rulv_rec => lx_rulv_rec);
2219:
2220: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2223: l_slh_id := lx_rulv_rec.id;
2224: end if;
2225:
2246: l_rulv_rec := null;
2247: empty_rec := check_rec(p_pym_tbl(i));
2248:
2249: if(p_pym_tbl(i).update_type = 'DELETE' or (empty_rec
2250: and p_pym_tbl(i).rule_id is not null and p_pym_tbl(i).rule_id <> OKL_API.G_MISS_NUM)) then
2251: l_rulv_rec.id := p_pym_tbl(i).rule_id;
2252: l := l + 1;
2253: l_delt_rulv_tbl(l) := l_rulv_rec;
2254:
2275: p_payment_type => p_update_type,
2276: p_type => p_pym_tbl(i).update_type);
2277:
2278:
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2280: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2282: raise OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2276: p_type => p_pym_tbl(i).update_type);
2277:
2278:
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2280: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2282: raise OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2277:
2278:
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2280: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2282: raise OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: if(l_rulv_rec.rule_information8 is not null and is_num(l_rulv_rec.rule_information8)) then
2278:
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2280: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2282: raise OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: if(l_rulv_rec.rule_information8 is not null and is_num(l_rulv_rec.rule_information8)) then
2286: l_rulv_rec.rule_information8 := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(
2310: i:= p_pym_tbl.NEXT(i);
2311: end loop;
2312: end if;
2313: IF(not is_investor_fee_payment(p_chr_id =>p_chr_id, p_payment =>l_totalpayment , p_rgp_id => l_rgp_id )) then
2314: x_return_status := OKL_API.g_ret_sts_error;
2315: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2316: , p_msg_name => 'OKL_LA_INV_PAY_MISMATCH');
2317: raise OKL_API.G_EXCEPTION_ERROR;
2318: end if;
2311: end loop;
2312: end if;
2313: IF(not is_investor_fee_payment(p_chr_id =>p_chr_id, p_payment =>l_totalpayment , p_rgp_id => l_rgp_id )) then
2314: x_return_status := OKL_API.g_ret_sts_error;
2315: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2316: , p_msg_name => 'OKL_LA_INV_PAY_MISMATCH');
2317: raise OKL_API.G_EXCEPTION_ERROR;
2318: end if;
2319:
2313: IF(not is_investor_fee_payment(p_chr_id =>p_chr_id, p_payment =>l_totalpayment , p_rgp_id => l_rgp_id )) then
2314: x_return_status := OKL_API.g_ret_sts_error;
2315: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2316: , p_msg_name => 'OKL_LA_INV_PAY_MISMATCH');
2317: raise OKL_API.G_EXCEPTION_ERROR;
2318: end if;
2319:
2320: if (l_delt_rulv_tbl.count > 0) then
2321: OKL_RULE_PUB.delete_rule(
2325: x_msg_count => x_msg_count,
2326: x_msg_data => x_msg_data,
2327: p_rulv_tbl => l_delt_rulv_tbl);
2328:
2329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2330: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2332: raise OKL_API.G_EXCEPTION_ERROR;
2333: END IF;
2326: x_msg_data => x_msg_data,
2327: p_rulv_tbl => l_delt_rulv_tbl);
2328:
2329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2330: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2332: raise OKL_API.G_EXCEPTION_ERROR;
2333: END IF;
2334: end if;
2327: p_rulv_tbl => l_delt_rulv_tbl);
2328:
2329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2330: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2332: raise OKL_API.G_EXCEPTION_ERROR;
2333: END IF;
2334: end if;
2335:
2328:
2329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2330: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2332: raise OKL_API.G_EXCEPTION_ERROR;
2333: END IF;
2334: end if;
2335:
2336: if (l_crea_rulv_tbl.count > 0) then
2353: x_rulv_tbl => x_rulv_tbl);
2354:
2355:
2356:
2357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2360: RAISE OKL_API.G_EXCEPTION_ERROR;
2361: END IF;
2354:
2355:
2356:
2357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2360: RAISE OKL_API.G_EXCEPTION_ERROR;
2361: END IF;
2362: end if;
2355:
2356:
2357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2360: RAISE OKL_API.G_EXCEPTION_ERROR;
2361: END IF;
2362: end if;
2363:
2356:
2357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2360: RAISE OKL_API.G_EXCEPTION_ERROR;
2361: END IF;
2362: end if;
2363:
2364: if (l_updt_rulv_tbl.count > 0) then
2365:
2366: -- added for bug 5115701 - start
2367: -- check only if it's an asset sub line payment
2368: IF (p_asset_id IS NOT NULL AND
2369: p_asset_id <> OKL_API.G_MISS_NUM)
2370: AND
2371: (p_service_fee_id IS NOT NULL AND
2372: p_service_fee_id <> OKL_API.G_MISS_NUM)
2373: THEN
2368: IF (p_asset_id IS NOT NULL AND
2369: p_asset_id <> OKL_API.G_MISS_NUM)
2370: AND
2371: (p_service_fee_id IS NOT NULL AND
2372: p_service_fee_id <> OKL_API.G_MISS_NUM)
2373: THEN
2374:
2375: OPEN GET_FEE_TYPE_SUB_CSR(p_chr_id, p_service_fee_id);
2376: FETCH GET_FEE_TYPE_SUB_CSR INTO l_subline_fee_type;
2378:
2379:
2380: IF(l_subline_fee_type IS NOT NULL AND l_subline_fee_type = 'FINANCED') then
2381:
2382: x_return_status := OKL_API.g_ret_sts_error;
2383: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2384: , p_msg_name => 'OKL_LLA_PYMTS_NO_UPDATE');
2385: raise OKL_API.G_EXCEPTION_ERROR;
2386: END IF;
2379:
2380: IF(l_subline_fee_type IS NOT NULL AND l_subline_fee_type = 'FINANCED') then
2381:
2382: x_return_status := OKL_API.g_ret_sts_error;
2383: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2384: , p_msg_name => 'OKL_LLA_PYMTS_NO_UPDATE');
2385: raise OKL_API.G_EXCEPTION_ERROR;
2386: END IF;
2387: END IF;
2381:
2382: x_return_status := OKL_API.g_ret_sts_error;
2383: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2384: , p_msg_name => 'OKL_LLA_PYMTS_NO_UPDATE');
2385: raise OKL_API.G_EXCEPTION_ERROR;
2386: END IF;
2387: END IF;
2388: -- added for bug 5115701 - End
2389:
2396: p_rulv_tbl => l_updt_rulv_tbl,
2397: x_rulv_tbl => x_rulv_tbl);
2398:
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2397: x_rulv_tbl => x_rulv_tbl);
2398:
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2405: end if;
2398:
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2405: end if;
2406:
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2405: end if;
2406:
2407: if(l_pym_level <> 'HEADER') then
2414: l_slh_id,
2415: p_chr_id);
2416: if( l_detail_count < 1 and l_invalid_line = 'N') then
2417: IF (l_deal_type NOT IN ('LOAN', 'LOAN-REVOLVING')) THEN -- Bug 4887014
2418: x_return_status := OKL_API.g_ret_sts_error;
2419: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2420: , p_msg_name => 'OKL_LLA_PYM_ONE_PERIOD');
2421: raise OKL_API.G_EXCEPTION_ERROR;
2422: END IF;
2415: p_chr_id);
2416: if( l_detail_count < 1 and l_invalid_line = 'N') then
2417: IF (l_deal_type NOT IN ('LOAN', 'LOAN-REVOLVING')) THEN -- Bug 4887014
2418: x_return_status := OKL_API.g_ret_sts_error;
2419: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2420: , p_msg_name => 'OKL_LLA_PYM_ONE_PERIOD');
2421: raise OKL_API.G_EXCEPTION_ERROR;
2422: END IF;
2423: end if;
2417: IF (l_deal_type NOT IN ('LOAN', 'LOAN-REVOLVING')) THEN -- Bug 4887014
2418: x_return_status := OKL_API.g_ret_sts_error;
2419: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2420: , p_msg_name => 'OKL_LLA_PYM_ONE_PERIOD');
2421: raise OKL_API.G_EXCEPTION_ERROR;
2422: END IF;
2423: end if;
2424: if(l_fee_line_type is not null and l_fee_line_type = 'SECDEPOSIT') then
2425: l_detail_count := verify_sec_deposit_count(l_rgp_id,
2425: l_detail_count := verify_sec_deposit_count(l_rgp_id,
2426: l_slh_id,
2427: p_chr_id);
2428: if( l_detail_count > 1 ) then
2429: x_return_status := OKL_API.g_ret_sts_error;
2430: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2431: , p_msg_name => 'OKL_LLA_PYMTS_FEE_PERIOD');
2432: raise OKL_API.G_EXCEPTION_ERROR;
2433: end if;
2426: l_slh_id,
2427: p_chr_id);
2428: if( l_detail_count > 1 ) then
2429: x_return_status := OKL_API.g_ret_sts_error;
2430: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2431: , p_msg_name => 'OKL_LLA_PYMTS_FEE_PERIOD');
2432: raise OKL_API.G_EXCEPTION_ERROR;
2433: end if;
2434: end if;
2428: if( l_detail_count > 1 ) then
2429: x_return_status := OKL_API.g_ret_sts_error;
2430: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2431: , p_msg_name => 'OKL_LLA_PYMTS_FEE_PERIOD');
2432: raise OKL_API.G_EXCEPTION_ERROR;
2433: end if;
2434: end if;
2435:
2436:
2447: frequency => p_pym_hdr_rec.FREQUENCY,
2448: arrears => p_pym_hdr_rec.ARREARS);
2449:
2450:
2451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2448: arrears => p_pym_hdr_rec.ARREARS);
2449:
2450:
2451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456:
2449:
2450:
2451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456:
2457: lx_rulv_tbl(1).id := l_slh_id;
2450:
2451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456:
2457: lx_rulv_tbl(1).id := l_slh_id;
2458: lx_rulv_tbl(1).rgp_id := l_rgp_id;
2460:
2461: x_rulv_tbl := lx_rulv_tbl;
2462:
2463: -- R12B Authoring OA Migration
2464: IF (l_upfront_tax_pymt_yn = OKL_API.G_TRUE) THEN
2465: IF (l_contract_rec.sts_code IN ('PASSED','COMPLETE','APPROVED','PENDING_APPROVAL')) THEN
2466:
2467: OKL_LA_PAYMENTS_PVT.process_upfront_tax_pymt(
2468: p_api_version => p_api_version,
2471: x_msg_count => x_msg_count,
2472: x_msg_data => x_msg_data,
2473: p_chr_id => p_chr_id);
2474:
2475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_ERROR;
2479: END IF;
2472: x_msg_data => x_msg_data,
2473: p_chr_id => p_chr_id);
2474:
2475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_ERROR;
2479: END IF;
2480:
2473: p_chr_id => p_chr_id);
2474:
2475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_ERROR;
2479: END IF;
2480:
2481: END IF;
2474:
2475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_ERROR;
2479: END IF;
2480:
2481: END IF;
2482: END IF;
2491: x_msg_count => x_msg_count,
2492: x_msg_data => x_msg_data,
2493: p_chr_id => p_chr_id);
2494:
2495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2498: RAISE OKL_API.G_EXCEPTION_ERROR;
2499: END IF;
2492: x_msg_data => x_msg_data,
2493: p_chr_id => p_chr_id);
2494:
2495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2498: RAISE OKL_API.G_EXCEPTION_ERROR;
2499: END IF;
2500:
2493: p_chr_id => p_chr_id);
2494:
2495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2498: RAISE OKL_API.G_EXCEPTION_ERROR;
2499: END IF;
2500:
2501: --Call End Activity
2494:
2495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2498: RAISE OKL_API.G_EXCEPTION_ERROR;
2499: END IF;
2500:
2501: --Call End Activity
2502: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2498: RAISE OKL_API.G_EXCEPTION_ERROR;
2499: END IF;
2500:
2501: --Call End Activity
2502: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2503: x_msg_data => x_msg_data);
2504:
2505: EXCEPTION
2506: when OKL_API.G_EXCEPTION_ERROR then
2502: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2503: x_msg_data => x_msg_data);
2504:
2505: EXCEPTION
2506: when OKL_API.G_EXCEPTION_ERROR then
2507: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2508: p_api_name => l_api_name,
2509: p_pkg_name => G_PKG_NAME,
2510: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2503: x_msg_data => x_msg_data);
2504:
2505: EXCEPTION
2506: when OKL_API.G_EXCEPTION_ERROR then
2507: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2508: p_api_name => l_api_name,
2509: p_pkg_name => G_PKG_NAME,
2510: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2511: x_msg_count => x_msg_count,
2506: when OKL_API.G_EXCEPTION_ERROR then
2507: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2508: p_api_name => l_api_name,
2509: p_pkg_name => G_PKG_NAME,
2510: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2511: x_msg_count => x_msg_count,
2512: x_msg_data => x_msg_data,
2513: p_api_type => G_API_TYPE);
2514:
2511: x_msg_count => x_msg_count,
2512: x_msg_data => x_msg_data,
2513: p_api_type => G_API_TYPE);
2514:
2515: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2516: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2517: p_api_name => l_api_name,
2518: p_pkg_name => G_PKG_NAME,
2519: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2512: x_msg_data => x_msg_data,
2513: p_api_type => G_API_TYPE);
2514:
2515: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2516: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2517: p_api_name => l_api_name,
2518: p_pkg_name => G_PKG_NAME,
2519: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2520: x_msg_count => x_msg_count,
2515: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2516: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2517: p_api_name => l_api_name,
2518: p_pkg_name => G_PKG_NAME,
2519: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2520: x_msg_count => x_msg_count,
2521: x_msg_data => x_msg_data,
2522: p_api_type => G_API_TYPE);
2523:
2521: x_msg_data => x_msg_data,
2522: p_api_type => G_API_TYPE);
2523:
2524: when OTHERS then
2525: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2526: p_api_name => l_api_name,
2527: p_pkg_name => G_PKG_NAME,
2528: p_exc_name => 'OTHERS',
2529: x_msg_count => x_msg_count,
2548: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
2549: lx_rulv_rec OKL_RULE_PUB.rulv_rec_type;
2550: -- x_rulv_tbl OKL_RULE_PUB.RULV_TBL_TYPE;
2551:
2552: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2553: l_api_name CONSTANT VARCHAR2(30) := 'VARIABLE_INTEREST_PAYMENT';
2554: l_api_version CONSTANT NUMBER := 1.0;
2555:
2556: l_payment_id NUMBER;
2560: l_flag VARCHAR2(1) := 'N';
2561: l_term okl_k_headers.term_duration%TYPE;
2562:
2563: l_pym_level VARCHAR2(30) := 'HEADER';
2564: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2565: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2566: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2567:
2568: -- x_return_status varchar2(1);
2561: l_term okl_k_headers.term_duration%TYPE;
2562:
2563: l_pym_level VARCHAR2(30) := 'HEADER';
2564: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2565: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2566: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2567:
2568: -- x_return_status varchar2(1);
2569: x_primary_sty_id okl_strm_type_b.ID%TYPE;
2562:
2563: l_pym_level VARCHAR2(30) := 'HEADER';
2564: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2565: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2566: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2567:
2568: -- x_return_status varchar2(1);
2569: x_primary_sty_id okl_strm_type_b.ID%TYPE;
2570:
2617: */
2618:
2619: begin
2620:
2621: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2622: -- call START_ACTIVITY to create savepoint, check compatibility
2623: -- and initialize message list
2624: x_return_status := OKL_API.START_ACTIVITY(
2625: p_api_name => l_api_name,
2620:
2621: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2622: -- call START_ACTIVITY to create savepoint, check compatibility
2623: -- and initialize message list
2624: x_return_status := OKL_API.START_ACTIVITY(
2625: p_api_name => l_api_name,
2626: p_pkg_name => G_PKG_NAME,
2627: p_init_msg_list => p_init_msg_list,
2628: l_api_version => p_api_version,
2630: p_api_type => G_API_TYPE,
2631: x_return_status => x_return_status);
2632:
2633: -- check if activity started successfully
2634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2635: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2637: raise OKL_API.G_EXCEPTION_ERROR;
2638: END IF;
2631: x_return_status => x_return_status);
2632:
2633: -- check if activity started successfully
2634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2635: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2637: raise OKL_API.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2632:
2633: -- check if activity started successfully
2634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2635: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2637: raise OKL_API.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2640:
2633: -- check if activity started successfully
2634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2635: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2637: raise OKL_API.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2640:
2641: --Bug 4018298
2653: x_return_status => l_return_status,
2654: x_primary_sty_id => l_payment_id
2655: );
2656:
2657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2660: raise OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2654: x_primary_sty_id => l_payment_id
2655: );
2656:
2657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2660: raise OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662:
2655: );
2656:
2657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2660: raise OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662:
2663: /*
2656:
2657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2660: raise OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662:
2663: /*
2664: OPEN PAYMENT_TYPE;
2681: x_rgp_id => l_rgp_id,
2682: x_cle_id => l_cle_id);
2683:
2684:
2685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2686: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2688: raise OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2682: x_cle_id => l_cle_id);
2683:
2684:
2685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2686: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2688: raise OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2690:
2683:
2684:
2685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2686: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2688: raise OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2690:
2691: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
2684:
2685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2686: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2688: raise OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2690:
2691: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
2692: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2688: raise OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2690:
2691: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
2692: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2693: x_msg_data => x_msg_data);
2694: return;
2695: end if;
2688: raise OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2690:
2691: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
2692: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2693: x_msg_data => x_msg_data);
2694: return;
2695: end if;
2696:
2698: *FETCH VIR_PAYMENT INTO l_flag, l_term;
2699: *CLOSE VIR_PAYMENT;
2700: *
2701: *if(l_flag <> 'Y') then
2702: * OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2703: * x_msg_data => x_msg_data);
2704: * return;
2705: *end if;
2706: */
2736: p_pym_tbl => l_pym_tbl,
2737: p_update_type => 'VIR_PAYMENT',
2738: x_rulv_tbl => x_rulv_tbl);
2739:
2740: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2741: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2743: raise OKL_API.G_EXCEPTION_ERROR;
2744: END IF;
2737: p_update_type => 'VIR_PAYMENT',
2738: x_rulv_tbl => x_rulv_tbl);
2739:
2740: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2741: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2743: raise OKL_API.G_EXCEPTION_ERROR;
2744: END IF;
2745: END IF;
2738: x_rulv_tbl => x_rulv_tbl);
2739:
2740: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2741: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2743: raise OKL_API.G_EXCEPTION_ERROR;
2744: END IF;
2745: END IF;
2746:
2739:
2740: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2741: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2743: raise OKL_API.G_EXCEPTION_ERROR;
2744: END IF;
2745: END IF;
2746:
2747: -- ----------------------------------------
2746:
2747: -- ----------------------------------------
2748:
2749: --Call End Activity
2750: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2751: x_msg_data => x_msg_data);
2752:
2753:
2754: EXCEPTION
2751: x_msg_data => x_msg_data);
2752:
2753:
2754: EXCEPTION
2755: when OKL_API.G_EXCEPTION_ERROR then
2756: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2757: p_api_name => l_api_name,
2758: p_pkg_name => G_PKG_NAME,
2759: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2752:
2753:
2754: EXCEPTION
2755: when OKL_API.G_EXCEPTION_ERROR then
2756: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2757: p_api_name => l_api_name,
2758: p_pkg_name => G_PKG_NAME,
2759: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2760: x_msg_count => x_msg_count,
2755: when OKL_API.G_EXCEPTION_ERROR then
2756: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2757: p_api_name => l_api_name,
2758: p_pkg_name => G_PKG_NAME,
2759: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2760: x_msg_count => x_msg_count,
2761: x_msg_data => x_msg_data,
2762: p_api_type => G_API_TYPE);
2763:
2760: x_msg_count => x_msg_count,
2761: x_msg_data => x_msg_data,
2762: p_api_type => G_API_TYPE);
2763:
2764: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2765: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2766: p_api_name => l_api_name,
2767: p_pkg_name => G_PKG_NAME,
2768: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2761: x_msg_data => x_msg_data,
2762: p_api_type => G_API_TYPE);
2763:
2764: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2765: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2766: p_api_name => l_api_name,
2767: p_pkg_name => G_PKG_NAME,
2768: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2769: x_msg_count => x_msg_count,
2764: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2765: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2766: p_api_name => l_api_name,
2767: p_pkg_name => G_PKG_NAME,
2768: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2769: x_msg_count => x_msg_count,
2770: x_msg_data => x_msg_data,
2771: p_api_type => G_API_TYPE);
2772:
2770: x_msg_data => x_msg_data,
2771: p_api_type => G_API_TYPE);
2772:
2773: when OTHERS then
2774: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2775: p_api_name => l_api_name,
2776: p_pkg_name => G_PKG_NAME,
2777: p_exc_name => 'OTHERS',
2778: x_msg_count => x_msg_count,
2790: x_return_status OUT NOCOPY VARCHAR2,
2791: x_msg_count OUT NOCOPY NUMBER,
2792: x_msg_data OUT NOCOPY VARCHAR2,
2793: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
2794: p_service_fee_id IN OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
2795: p_asset_id IN OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
2796: p_payment_id IN OKL_STRMTYP_SOURCE_V.ID1%TYPE,
2797: p_update_type IN VARCHAR2,
2798: x_rulv_tbl OUT NOCOPY rulv_tbl_type) IS
2791: x_msg_count OUT NOCOPY NUMBER,
2792: x_msg_data OUT NOCOPY VARCHAR2,
2793: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
2794: p_service_fee_id IN OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
2795: p_asset_id IN OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM,
2796: p_payment_id IN OKL_STRMTYP_SOURCE_V.ID1%TYPE,
2797: p_update_type IN VARCHAR2,
2798: x_rulv_tbl OUT NOCOPY rulv_tbl_type) IS
2799:
2796: p_payment_id IN OKL_STRMTYP_SOURCE_V.ID1%TYPE,
2797: p_update_type IN VARCHAR2,
2798: x_rulv_tbl OUT NOCOPY rulv_tbl_type) IS
2799:
2800: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2801: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_PAYMENT2';
2802: l_api_version CONSTANT NUMBER := 1.0;
2803:
2804: l_pym_level VARCHAR2(30) := 'HEADER';
2801: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_PAYMENT2';
2802: l_api_version CONSTANT NUMBER := 1.0;
2803:
2804: l_pym_level VARCHAR2(30) := 'HEADER';
2805: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2806: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2807: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2808: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2809: l_stream_id OKL_STRMTYP_SOURCE_V.ID1%TYPE := OKL_API.G_MISS_NUM;
2802: l_api_version CONSTANT NUMBER := 1.0;
2803:
2804: l_pym_level VARCHAR2(30) := 'HEADER';
2805: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2806: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2807: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2808: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2809: l_stream_id OKL_STRMTYP_SOURCE_V.ID1%TYPE := OKL_API.G_MISS_NUM;
2810:
2803:
2804: l_pym_level VARCHAR2(30) := 'HEADER';
2805: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2806: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2807: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2808: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2809: l_stream_id OKL_STRMTYP_SOURCE_V.ID1%TYPE := OKL_API.G_MISS_NUM;
2810:
2811: lx_rulv_tbl rulv_tbl_type;
2804: l_pym_level VARCHAR2(30) := 'HEADER';
2805: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2806: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2807: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2808: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2809: l_stream_id OKL_STRMTYP_SOURCE_V.ID1%TYPE := OKL_API.G_MISS_NUM;
2810:
2811: lx_rulv_tbl rulv_tbl_type;
2812:
2805: l_subline_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2806: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
2807: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
2808: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
2809: l_stream_id OKL_STRMTYP_SOURCE_V.ID1%TYPE := OKL_API.G_MISS_NUM;
2810:
2811: lx_rulv_tbl rulv_tbl_type;
2812:
2813: -- R12B Authoring OA Migration
2821: l_contract_rec l_contract_csr%ROWTYPE;
2822:
2823: begin
2824:
2825: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2826: -- call START_ACTIVITY to create savepoint, check compatibility
2827: -- and initialize message list
2828: x_return_status := OKL_API.START_ACTIVITY(
2829: p_api_name => l_api_name,
2824:
2825: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2826: -- call START_ACTIVITY to create savepoint, check compatibility
2827: -- and initialize message list
2828: x_return_status := OKL_API.START_ACTIVITY(
2829: p_api_name => l_api_name,
2830: p_pkg_name => G_PKG_NAME,
2831: p_init_msg_list => p_init_msg_list,
2832: l_api_version => p_api_version,
2834: p_api_type => G_API_TYPE,
2835: x_return_status => x_return_status);
2836:
2837: -- check if activity started successfully
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2841: raise OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2835: x_return_status => x_return_status);
2836:
2837: -- check if activity started successfully
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2841: raise OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843:
2836:
2837: -- check if activity started successfully
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2841: raise OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843:
2844: /* -- temp
2837: -- check if activity started successfully
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2841: raise OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843:
2844: /* -- temp
2845: open get_dir;
2853: -- temp
2854:
2855: -- R12B Authoring OA Migration
2856: -- Check if the Payment is for an Upfront Tax Fee line
2857: l_upfront_tax_pymt_yn := OKL_API.G_FALSE;
2858: IF (p_service_fee_id IS NOT NULL) THEN
2859: l_upfront_tax_pymt_yn := is_upfront_tax_fee_payment(p_chr_id => p_chr_id,
2860: p_cle_id => p_service_fee_id);
2861:
2858: IF (p_service_fee_id IS NOT NULL) THEN
2859: l_upfront_tax_pymt_yn := is_upfront_tax_fee_payment(p_chr_id => p_chr_id,
2860: p_cle_id => p_service_fee_id);
2861:
2862: IF (l_upfront_tax_pymt_yn = OKL_API.G_TRUE) THEN
2863: OPEN l_contract_csr(p_chr_id => p_chr_id);
2864: FETCH l_contract_csr INTO l_contract_rec;
2865: CLOSE l_contract_csr;
2866: END IF;
2871: (p_asset_id => p_asset_id,
2872: p_service_fee_id => p_service_fee_id,
2873: p_payment_id => p_payment_id);
2874: --- Store the highest degree of error
2875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2876: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2878: raise OKL_API.G_EXCEPTION_ERROR;
2879: END IF;
2872: p_service_fee_id => p_service_fee_id,
2873: p_payment_id => p_payment_id);
2874: --- Store the highest degree of error
2875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2876: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2878: raise OKL_API.G_EXCEPTION_ERROR;
2879: END IF;
2880: -- END: June 24, 2005 cklee: Modification for okl.h Sales Quote enhancement
2873: p_payment_id => p_payment_id);
2874: --- Store the highest degree of error
2875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2876: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2878: raise OKL_API.G_EXCEPTION_ERROR;
2879: END IF;
2880: -- END: June 24, 2005 cklee: Modification for okl.h Sales Quote enhancement
2881:
2874: --- Store the highest degree of error
2875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2876: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2878: raise OKL_API.G_EXCEPTION_ERROR;
2879: END IF;
2880: -- END: June 24, 2005 cklee: Modification for okl.h Sales Quote enhancement
2881:
2882: /* -- 4542290 Do not create var interest schedules. Will do from
2891: p_chr_id => p_chr_id,
2892: x_rulv_tbl => lx_rulv_tbl
2893: );
2894:
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2896: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2898: raise OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2892: x_rulv_tbl => lx_rulv_tbl
2893: );
2894:
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2896: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2898: raise OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2900: /*
2893: );
2894:
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2896: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2898: raise OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2900: /*
2901: lx_rulv_tbl(1).id := l_slh_id;
2894:
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2896: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2898: raise OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2900: /*
2901: lx_rulv_tbl(1).id := l_slh_id;
2902: lx_rulv_tbl(1).rgp_id := l_rgp_id;
2906: /* - 4542290
2907: x_rulv_tbl := lx_rulv_tbl;
2908:
2909: --Call End Activity
2910: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2911: x_msg_data => x_msg_data);
2912: return;
2913:
2914: end if; */
2930: x_rgp_id => l_rgp_id,
2931: x_cle_id => l_cle_id);
2932:
2933:
2934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2937: raise OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2931: x_cle_id => l_cle_id);
2932:
2933:
2934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2937: raise OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2939:
2932:
2933:
2934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2937: raise OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2939:
2940: --Bug# 4959361
2933:
2934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2937: raise OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2939:
2940: --Bug# 4959361
2941: IF l_cle_id IS NOT NULL THEN
2946: x_msg_count => x_msg_count,
2947: x_msg_data => x_msg_data,
2948: p_cle_id => l_cle_id);
2949:
2950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_ERROR;
2954: END IF;
2947: x_msg_data => x_msg_data,
2948: p_cle_id => l_cle_id);
2949:
2950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_ERROR;
2954: END IF;
2955: END IF;
2948: p_cle_id => l_cle_id);
2949:
2950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_ERROR;
2954: END IF;
2955: END IF;
2956: --Bug# 4959361
2949:
2950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_ERROR;
2954: END IF;
2955: END IF;
2956: --Bug# 4959361
2957:
2955: END IF;
2956: --Bug# 4959361
2957:
2958: if(p_update_type is not null and p_update_type = 'DELETE') then
2959: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM
2960: and l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
2961: OKL_PAYMENT_APPLICATION_PUB.delete_payment(
2962: p_api_version => p_api_version,
2963: p_init_msg_list => p_init_msg_list,
2956: --Bug# 4959361
2957:
2958: if(p_update_type is not null and p_update_type = 'DELETE') then
2959: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM
2960: and l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
2961: OKL_PAYMENT_APPLICATION_PUB.delete_payment(
2962: p_api_version => p_api_version,
2963: p_init_msg_list => p_init_msg_list,
2964: x_return_status => x_return_status,
2967: p_chr_id => p_chr_id,
2968: p_rgp_id => l_rgp_id,
2969: p_rule_id => l_slh_id);
2970:
2971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2974: raise OKL_API.G_EXCEPTION_ERROR;
2975: END IF;
2968: p_rgp_id => l_rgp_id,
2969: p_rule_id => l_slh_id);
2970:
2971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2974: raise OKL_API.G_EXCEPTION_ERROR;
2975: END IF;
2976: else
2969: p_rule_id => l_slh_id);
2970:
2971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2974: raise OKL_API.G_EXCEPTION_ERROR;
2975: END IF;
2976: else
2977: x_return_status := OKL_API.g_ret_sts_error;
2970:
2971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2974: raise OKL_API.G_EXCEPTION_ERROR;
2975: END IF;
2976: else
2977: x_return_status := OKL_API.g_ret_sts_error;
2978: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2974: raise OKL_API.G_EXCEPTION_ERROR;
2975: END IF;
2976: else
2977: x_return_status := OKL_API.g_ret_sts_error;
2978: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2979: , p_msg_name => 'OKL_LLA_PMT_SELECT');
2980: raise OKL_API.G_EXCEPTION_ERROR;
2981: end if;
2974: raise OKL_API.G_EXCEPTION_ERROR;
2975: END IF;
2976: else
2977: x_return_status := OKL_API.g_ret_sts_error;
2978: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2979: , p_msg_name => 'OKL_LLA_PMT_SELECT');
2980: raise OKL_API.G_EXCEPTION_ERROR;
2981: end if;
2982: elsif(p_update_type is not null and p_update_type = 'APPLY') then
2976: else
2977: x_return_status := OKL_API.g_ret_sts_error;
2978: OKL_API.SET_MESSAGE( p_app_name => g_app_name
2979: , p_msg_name => 'OKL_LLA_PMT_SELECT');
2980: raise OKL_API.G_EXCEPTION_ERROR;
2981: end if;
2982: elsif(p_update_type is not null and p_update_type = 'APPLY') then
2983: if(p_chr_id is not null and p_chr_id <> OKL_API.G_MISS_NUM
2984: and p_payment_id is not null and p_payment_id <> OKL_API.G_MISS_NUM) then
2979: , p_msg_name => 'OKL_LLA_PMT_SELECT');
2980: raise OKL_API.G_EXCEPTION_ERROR;
2981: end if;
2982: elsif(p_update_type is not null and p_update_type = 'APPLY') then
2983: if(p_chr_id is not null and p_chr_id <> OKL_API.G_MISS_NUM
2984: and p_payment_id is not null and p_payment_id <> OKL_API.G_MISS_NUM) then
2985: l_stream_id := to_char(p_payment_id);
2986: if is_prop_tax_payment(l_stream_id) then
2987: OKL_PAYMENT_APPLICATION_PVT.apply_propery_tax_payment(
2980: raise OKL_API.G_EXCEPTION_ERROR;
2981: end if;
2982: elsif(p_update_type is not null and p_update_type = 'APPLY') then
2983: if(p_chr_id is not null and p_chr_id <> OKL_API.G_MISS_NUM
2984: and p_payment_id is not null and p_payment_id <> OKL_API.G_MISS_NUM) then
2985: l_stream_id := to_char(p_payment_id);
2986: if is_prop_tax_payment(l_stream_id) then
2987: OKL_PAYMENT_APPLICATION_PVT.apply_propery_tax_payment(
2988: p_api_version => p_api_version,
2991: x_msg_count => x_msg_count,
2992: x_msg_data => x_msg_data,
2993: p_chr_id => p_chr_id,
2994: p_stream_id => l_stream_id);
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2998: raise OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
2992: x_msg_data => x_msg_data,
2993: p_chr_id => p_chr_id,
2994: p_stream_id => l_stream_id);
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2998: raise OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: /* Manu 13-Sep-2004. For Rollover Fee Payment */
2993: p_chr_id => p_chr_id,
2994: p_stream_id => l_stream_id);
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2998: raise OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: /* Manu 13-Sep-2004. For Rollover Fee Payment */
3001: -- start: cklee: 6/22/05 -- okl.h
2994: p_stream_id => l_stream_id);
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2998: raise OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: /* Manu 13-Sep-2004. For Rollover Fee Payment */
3001: -- start: cklee: 6/22/05 -- okl.h
3002: -- elsif is_rollover_fee_payment(p_service_fee_id) then
3012: x_msg_data => x_msg_data,
3013: p_chr_id => p_chr_id,
3014: p_kle_id => p_service_fee_id,
3015: p_stream_id => l_stream_id);
3016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3017: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3019: raise OKL_API.G_EXCEPTION_ERROR;
3020: END IF;
3013: p_chr_id => p_chr_id,
3014: p_kle_id => p_service_fee_id,
3015: p_stream_id => l_stream_id);
3016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3017: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3019: raise OKL_API.G_EXCEPTION_ERROR;
3020: END IF;
3021: else
3014: p_kle_id => p_service_fee_id,
3015: p_stream_id => l_stream_id);
3016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3017: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3019: raise OKL_API.G_EXCEPTION_ERROR;
3020: END IF;
3021: else
3022: OKL_PAYMENT_APPLICATION_PUB.apply_payment(
3015: p_stream_id => l_stream_id);
3016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3017: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3019: raise OKL_API.G_EXCEPTION_ERROR;
3020: END IF;
3021: else
3022: OKL_PAYMENT_APPLICATION_PUB.apply_payment(
3023: p_api_version => p_api_version,
3026: x_msg_count => x_msg_count,
3027: x_msg_data => x_msg_data,
3028: p_chr_id => p_chr_id,
3029: p_stream_id => l_stream_id);
3030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3031: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3033: raise OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3027: x_msg_data => x_msg_data,
3028: p_chr_id => p_chr_id,
3029: p_stream_id => l_stream_id);
3030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3031: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3033: raise OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035: end if;
3028: p_chr_id => p_chr_id,
3029: p_stream_id => l_stream_id);
3030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3031: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3033: raise OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035: end if;
3036: else
3029: p_stream_id => l_stream_id);
3030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3031: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3033: raise OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035: end if;
3036: else
3037: x_return_status := OKL_API.g_ret_sts_error;
3033: raise OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035: end if;
3036: else
3037: x_return_status := OKL_API.g_ret_sts_error;
3038: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3039: , p_msg_name => 'OKL_LLA_PMT_SELECT');
3040: raise OKL_API.G_EXCEPTION_ERROR;
3041: end if;
3034: END IF;
3035: end if;
3036: else
3037: x_return_status := OKL_API.g_ret_sts_error;
3038: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3039: , p_msg_name => 'OKL_LLA_PMT_SELECT');
3040: raise OKL_API.G_EXCEPTION_ERROR;
3041: end if;
3042: elsif(p_update_type is not null and p_update_type = 'CALCULATE') then
3036: else
3037: x_return_status := OKL_API.g_ret_sts_error;
3038: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3039: , p_msg_name => 'OKL_LLA_PMT_SELECT');
3040: raise OKL_API.G_EXCEPTION_ERROR;
3041: end if;
3042: elsif(p_update_type is not null and p_update_type = 'CALCULATE') then
3043: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM
3044: and l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
3039: , p_msg_name => 'OKL_LLA_PMT_SELECT');
3040: raise OKL_API.G_EXCEPTION_ERROR;
3041: end if;
3042: elsif(p_update_type is not null and p_update_type = 'CALCULATE') then
3043: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM
3044: and l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
3045:
3046: calculate_details(
3047: p_api_version => p_api_version,
3040: raise OKL_API.G_EXCEPTION_ERROR;
3041: end if;
3042: elsif(p_update_type is not null and p_update_type = 'CALCULATE') then
3043: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM
3044: and l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
3045:
3046: calculate_details(
3047: p_api_version => p_api_version,
3048: p_init_msg_list => p_init_msg_list,
3055: structure => null,
3056: frequency => null,
3057: arrears => null);
3058:
3059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_ERROR;
3063: END IF;
3056: frequency => null,
3057: arrears => null);
3058:
3059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_ERROR;
3063: END IF;
3064:
3057: arrears => null);
3058:
3059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_ERROR;
3063: END IF;
3064:
3065: else
3058:
3059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_ERROR;
3063: END IF;
3064:
3065: else
3066: x_return_status := OKL_API.g_ret_sts_error;
3062: RAISE OKL_API.G_EXCEPTION_ERROR;
3063: END IF;
3064:
3065: else
3066: x_return_status := OKL_API.g_ret_sts_error;
3067: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3068: , p_msg_name => 'OKL_LLA_PMT_SELECT');
3069: raise OKL_API.G_EXCEPTION_ERROR;
3070: end if;
3063: END IF;
3064:
3065: else
3066: x_return_status := OKL_API.g_ret_sts_error;
3067: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3068: , p_msg_name => 'OKL_LLA_PMT_SELECT');
3069: raise OKL_API.G_EXCEPTION_ERROR;
3070: end if;
3071: end if;
3065: else
3066: x_return_status := OKL_API.g_ret_sts_error;
3067: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3068: , p_msg_name => 'OKL_LLA_PMT_SELECT');
3069: raise OKL_API.G_EXCEPTION_ERROR;
3070: end if;
3071: end if;
3072:
3073: -- end if;
3078:
3079: x_rulv_tbl := lx_rulv_tbl;
3080:
3081: -- R12B Authoring OA Migration
3082: IF (l_upfront_tax_pymt_yn = OKL_API.G_TRUE) THEN
3083: IF (l_contract_rec.sts_code IN ('PASSED','COMPLETE','APPROVED','PENDING_APPROVAL')) THEN
3084:
3085: OKL_LA_PAYMENTS_PVT.process_upfront_tax_pymt(
3086: p_api_version => p_api_version,
3089: x_msg_count => x_msg_count,
3090: x_msg_data => x_msg_data,
3091: p_chr_id => p_chr_id);
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3090: x_msg_data => x_msg_data,
3091: p_chr_id => p_chr_id);
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3091: p_chr_id => p_chr_id);
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3099: END IF;
3092:
3093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3096: RAISE OKL_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3099: END IF;
3100: END IF;
3109: x_msg_count => x_msg_count,
3110: x_msg_data => x_msg_data,
3111: p_chr_id => p_chr_id);
3112:
3113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3116: RAISE OKL_API.G_EXCEPTION_ERROR;
3117: END IF;
3110: x_msg_data => x_msg_data,
3111: p_chr_id => p_chr_id);
3112:
3113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3116: RAISE OKL_API.G_EXCEPTION_ERROR;
3117: END IF;
3118:
3111: p_chr_id => p_chr_id);
3112:
3113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3116: RAISE OKL_API.G_EXCEPTION_ERROR;
3117: END IF;
3118:
3119: --Call End Activity
3112:
3113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3116: RAISE OKL_API.G_EXCEPTION_ERROR;
3117: END IF;
3118:
3119: --Call End Activity
3120: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3116: RAISE OKL_API.G_EXCEPTION_ERROR;
3117: END IF;
3118:
3119: --Call End Activity
3120: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3121: x_msg_data => x_msg_data);
3122:
3123: EXCEPTION
3124: when OKL_API.G_EXCEPTION_ERROR then
3120: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3121: x_msg_data => x_msg_data);
3122:
3123: EXCEPTION
3124: when OKL_API.G_EXCEPTION_ERROR then
3125: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3126: p_api_name => l_api_name,
3127: p_pkg_name => G_PKG_NAME,
3128: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3121: x_msg_data => x_msg_data);
3122:
3123: EXCEPTION
3124: when OKL_API.G_EXCEPTION_ERROR then
3125: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3126: p_api_name => l_api_name,
3127: p_pkg_name => G_PKG_NAME,
3128: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3129: x_msg_count => x_msg_count,
3124: when OKL_API.G_EXCEPTION_ERROR then
3125: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3126: p_api_name => l_api_name,
3127: p_pkg_name => G_PKG_NAME,
3128: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3129: x_msg_count => x_msg_count,
3130: x_msg_data => x_msg_data,
3131: p_api_type => G_API_TYPE);
3132:
3129: x_msg_count => x_msg_count,
3130: x_msg_data => x_msg_data,
3131: p_api_type => G_API_TYPE);
3132:
3133: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3134: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3135: p_api_name => l_api_name,
3136: p_pkg_name => G_PKG_NAME,
3137: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3130: x_msg_data => x_msg_data,
3131: p_api_type => G_API_TYPE);
3132:
3133: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3134: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3135: p_api_name => l_api_name,
3136: p_pkg_name => G_PKG_NAME,
3137: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3138: x_msg_count => x_msg_count,
3133: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3134: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3135: p_api_name => l_api_name,
3136: p_pkg_name => G_PKG_NAME,
3137: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3138: x_msg_count => x_msg_count,
3139: x_msg_data => x_msg_data,
3140: p_api_type => G_API_TYPE);
3141:
3139: x_msg_data => x_msg_data,
3140: p_api_type => G_API_TYPE);
3141:
3142: when OTHERS then
3143: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3144: p_api_name => l_api_name,
3145: p_pkg_name => G_PKG_NAME,
3146: p_exc_name => 'OTHERS',
3147: x_msg_count => x_msg_count,
3161: -- Bug #7498330
3162: p_source_trx IN VARCHAR2 DEFAULT 'NA') IS
3163:
3164:
3165: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3166: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PAYMENT';
3167: l_api_version CONSTANT NUMBER := 1.0;
3168:
3169: i NUMBER := 0;
3191: l_chr_id OKC_K_HEADERS_B.id%TYPE;
3192:
3193: begin
3194:
3195: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3196: -- call START_ACTIVITY to create savepoint, check compatibility
3197: -- and initialize message list
3198: x_return_status := OKL_API.START_ACTIVITY(
3199: p_api_name => l_api_name,
3194:
3195: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3196: -- call START_ACTIVITY to create savepoint, check compatibility
3197: -- and initialize message list
3198: x_return_status := OKL_API.START_ACTIVITY(
3199: p_api_name => l_api_name,
3200: p_pkg_name => G_PKG_NAME,
3201: p_init_msg_list => p_init_msg_list,
3202: l_api_version => l_api_version,
3204: p_api_type => G_API_TYPE,
3205: x_return_status => x_return_status);
3206:
3207: -- check if activity started successfully
3208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3211: raise OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3205: x_return_status => x_return_status);
3206:
3207: -- check if activity started successfully
3208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3211: raise OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3206:
3207: -- check if activity started successfully
3208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3211: raise OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3214:
3207: -- check if activity started successfully
3208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3211: raise OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3214:
3215: -- R12B Authoring OA Migration
3213:
3214:
3215: -- R12B Authoring OA Migration
3216: -- Check if the Payment is for an Upfront Tax Fee line
3217: l_upfront_tax_pymt_yn := OKL_API.G_FALSE;
3218:
3219: if (p_del_pym_tbl.count > 0) then
3220: i := p_del_pym_tbl.FIRST;
3221: loop
3222: --bug # 7498330 added check for source trx is Termination (TQ)
3223: --added by rkuttiya
3224: IF p_source_trx <> 'TQ' THEN
3225: if( is_ppd_payment(p_del_pym_tbl(i).slh_id)) then
3226: x_return_status := OKL_API.g_ret_sts_error;
3227: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3228: , p_msg_name => 'OKL_LA_PPD_PAYMENT');
3229: raise OKL_API.G_EXCEPTION_ERROR;
3230: end if;
3223: --added by rkuttiya
3224: IF p_source_trx <> 'TQ' THEN
3225: if( is_ppd_payment(p_del_pym_tbl(i).slh_id)) then
3226: x_return_status := OKL_API.g_ret_sts_error;
3227: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3228: , p_msg_name => 'OKL_LA_PPD_PAYMENT');
3229: raise OKL_API.G_EXCEPTION_ERROR;
3230: end if;
3231: END IF;
3225: if( is_ppd_payment(p_del_pym_tbl(i).slh_id)) then
3226: x_return_status := OKL_API.g_ret_sts_error;
3227: OKL_API.SET_MESSAGE( p_app_name => g_app_name
3228: , p_msg_name => 'OKL_LA_PPD_PAYMENT');
3229: raise OKL_API.G_EXCEPTION_ERROR;
3230: end if;
3231: END IF;
3232:
3233: -- R12B Authoring OA Migration
3243: IF l_cle_id IS NOT NULL THEN
3244:
3245: l_chr_id := p_del_pym_tbl(i).chr_id;
3246: IF (is_upfront_tax_fee_payment(p_chr_id => l_chr_id,
3247: p_cle_id => l_cle_id) = OKL_API.G_TRUE) THEN
3248: l_upfront_tax_pymt_yn := OKL_API.G_TRUE;
3249:
3250: OPEN l_contract_csr(p_chr_id => l_chr_id);
3251: FETCH l_contract_csr INTO l_contract_rec;
3244:
3245: l_chr_id := p_del_pym_tbl(i).chr_id;
3246: IF (is_upfront_tax_fee_payment(p_chr_id => l_chr_id,
3247: p_cle_id => l_cle_id) = OKL_API.G_TRUE) THEN
3248: l_upfront_tax_pymt_yn := OKL_API.G_TRUE;
3249:
3250: OPEN l_contract_csr(p_chr_id => l_chr_id);
3251: FETCH l_contract_csr INTO l_contract_rec;
3252: CLOSE l_contract_csr;
3265: p_rule_id => p_del_pym_tbl(i).slh_id);
3266:
3267:
3268:
3269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_ERROR;
3273: END IF;
3266:
3267:
3268:
3269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_ERROR;
3273: END IF;
3274:
3267:
3268:
3269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_ERROR;
3273: END IF;
3274:
3275: exit when (i >= p_del_pym_tbl.last);
3268:
3269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_ERROR;
3273: END IF;
3274:
3275: exit when (i >= p_del_pym_tbl.last);
3276: i:= p_del_pym_tbl.NEXT(i);
3277: end loop;
3278: end if;
3279:
3280: -- R12B Authoring OA Migration
3281: IF (l_upfront_tax_pymt_yn = OKL_API.G_TRUE) THEN
3282: IF (l_contract_rec.sts_code IN ('PASSED','COMPLETE','APPROVED','PENDING_APPROVAL')) THEN
3283:
3284: OKL_LA_PAYMENTS_PVT.process_upfront_tax_pymt(
3285: p_api_version => p_api_version,
3288: x_msg_count => x_msg_count,
3289: x_msg_data => x_msg_data,
3290: p_chr_id => l_chr_id);
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3289: x_msg_data => x_msg_data,
3290: p_chr_id => l_chr_id);
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3290: p_chr_id => l_chr_id);
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3298: END IF;
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3298: END IF;
3299: END IF;
3308: x_msg_count => x_msg_count,
3309: x_msg_data => x_msg_data,
3310: p_chr_id => p_del_pym_tbl(i).chr_id);
3311:
3312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_ERROR;
3316: END IF;
3309: x_msg_data => x_msg_data,
3310: p_chr_id => p_del_pym_tbl(i).chr_id);
3311:
3312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_ERROR;
3316: END IF;
3317:
3310: p_chr_id => p_del_pym_tbl(i).chr_id);
3311:
3312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_ERROR;
3316: END IF;
3317:
3318: --Call End Activity
3311:
3312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_ERROR;
3316: END IF;
3317:
3318: --Call End Activity
3319: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3315: RAISE OKL_API.G_EXCEPTION_ERROR;
3316: END IF;
3317:
3318: --Call End Activity
3319: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3320: x_msg_data => x_msg_data);
3321:
3322:
3323: EXCEPTION
3320: x_msg_data => x_msg_data);
3321:
3322:
3323: EXCEPTION
3324: when OKL_API.G_EXCEPTION_ERROR then
3325: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3326: p_api_name => l_api_name,
3327: p_pkg_name => G_PKG_NAME,
3328: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3321:
3322:
3323: EXCEPTION
3324: when OKL_API.G_EXCEPTION_ERROR then
3325: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3326: p_api_name => l_api_name,
3327: p_pkg_name => G_PKG_NAME,
3328: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3329: x_msg_count => x_msg_count,
3324: when OKL_API.G_EXCEPTION_ERROR then
3325: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3326: p_api_name => l_api_name,
3327: p_pkg_name => G_PKG_NAME,
3328: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3329: x_msg_count => x_msg_count,
3330: x_msg_data => x_msg_data,
3331: p_api_type => G_API_TYPE);
3332:
3329: x_msg_count => x_msg_count,
3330: x_msg_data => x_msg_data,
3331: p_api_type => G_API_TYPE);
3332:
3333: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3334: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3335: p_api_name => l_api_name,
3336: p_pkg_name => G_PKG_NAME,
3337: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3330: x_msg_data => x_msg_data,
3331: p_api_type => G_API_TYPE);
3332:
3333: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3334: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3335: p_api_name => l_api_name,
3336: p_pkg_name => G_PKG_NAME,
3337: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3338: x_msg_count => x_msg_count,
3333: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3334: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3335: p_api_name => l_api_name,
3336: p_pkg_name => G_PKG_NAME,
3337: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3338: x_msg_count => x_msg_count,
3339: x_msg_data => x_msg_data,
3340: p_api_type => G_API_TYPE);
3341:
3339: x_msg_data => x_msg_data,
3340: p_api_type => G_API_TYPE);
3341:
3342: when OTHERS then
3343: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3344: p_api_name => l_api_name,
3345: p_pkg_name => G_PKG_NAME,
3346: p_exc_name => 'OTHERS',
3347: x_msg_count => x_msg_count,
3377: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
3378: lx_rulv_rec OKL_RULE_PUB.rulv_rec_type;
3379: -- x_rulv_tbl OKL_RULE_PUB.RULV_TBL_TYPE;
3380:
3381: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3382: l_api_name CONSTANT VARCHAR2(30) :='VARIABLE_INTEREST_SCHEDULE';
3383: l_api_version CONSTANT NUMBER := 1.0;
3384:
3385: l_payment_id NUMBER;
3388:
3389: l_term okl_k_headers.term_duration%TYPE;
3390:
3391: l_pym_level VARCHAR2(30) := 'HEADER';
3392: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
3393: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
3394: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
3395:
3396: x_primary_sty_id okl_strm_type_b.ID%TYPE;
3389: l_term okl_k_headers.term_duration%TYPE;
3390:
3391: l_pym_level VARCHAR2(30) := 'HEADER';
3392: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
3393: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
3394: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
3395:
3396: x_primary_sty_id okl_strm_type_b.ID%TYPE;
3397:
3390:
3391: l_pym_level VARCHAR2(30) := 'HEADER';
3392: l_slh_id OKC_RULES_V.ID%TYPE := OKL_API.G_MISS_NUM;
3393: l_rgp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
3394: l_cle_id OKC_K_LINES_B.ID%TYPE := OKL_API.G_MISS_NUM;
3395:
3396: x_primary_sty_id okl_strm_type_b.ID%TYPE;
3397:
3398: l_deal_type OKL_K_HEADERS.deal_type%TYPE;
3424:
3425: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3426: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In variable_interest_schedule... p_chr_id=' || p_chr_id);
3427: END IF;
3428: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3429: x_return_status := OKL_API.START_ACTIVITY(
3430: p_api_name => l_api_name,
3431: p_pkg_name => G_PKG_NAME,
3432: p_init_msg_list => p_init_msg_list,
3425: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3426: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In variable_interest_schedule... p_chr_id=' || p_chr_id);
3427: END IF;
3428: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3429: x_return_status := OKL_API.START_ACTIVITY(
3430: p_api_name => l_api_name,
3431: p_pkg_name => G_PKG_NAME,
3432: p_init_msg_list => p_init_msg_list,
3433: l_api_version => p_api_version,
3435: p_api_type => G_API_TYPE,
3436: x_return_status => x_return_status);
3437:
3438: -- check if activity started successfully
3439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3442: raise OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3436: x_return_status => x_return_status);
3437:
3438: -- check if activity started successfully
3439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3442: raise OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3444:
3437:
3438: -- check if activity started successfully
3439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3442: raise OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3444:
3445:
3438: -- check if activity started successfully
3439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3440: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3442: raise OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3444:
3445:
3446: /*
3478: x_return_status => l_return_status,
3479: x_primary_sty_id => l_payment_id
3480: );
3481:
3482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3485: raise OKL_API.G_EXCEPTION_ERROR;
3486: END IF;
3479: x_primary_sty_id => l_payment_id
3480: );
3481:
3482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3485: raise OKL_API.G_EXCEPTION_ERROR;
3486: END IF;
3487:
3480: );
3481:
3482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3485: raise OKL_API.G_EXCEPTION_ERROR;
3486: END IF;
3487:
3488: -- 4895333
3481:
3482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3485: raise OKL_API.G_EXCEPTION_ERROR;
3486: END IF;
3487:
3488: -- 4895333
3489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3523: x_rgp_id => l_rgp_id,
3524: x_cle_id => l_cle_id);
3525:
3526:
3527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3528: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3530: raise OKL_API.G_EXCEPTION_ERROR;
3531: END IF;
3524: x_cle_id => l_cle_id);
3525:
3526:
3527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3528: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3530: raise OKL_API.G_EXCEPTION_ERROR;
3531: END IF;
3532:
3525:
3526:
3527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3528: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3530: raise OKL_API.G_EXCEPTION_ERROR;
3531: END IF;
3532:
3533: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
3526:
3527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3528: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3530: raise OKL_API.G_EXCEPTION_ERROR;
3531: END IF;
3532:
3533: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
3534: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3530: raise OKL_API.G_EXCEPTION_ERROR;
3531: END IF;
3532:
3533: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
3534: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3535: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_slh_id null... cant create...');
3536: END IF;
3537: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3533: if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM) then
3534: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3535: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_slh_id null... cant create...');
3536: END IF;
3537: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3538: x_msg_data => x_msg_data);
3539: return;
3540: end if;
3541:
3571: p_pym_tbl => l_pym_tbl,
3572: p_update_type => 'VIR_PAYMENT',
3573: x_rulv_tbl => x_rulv_tbl);
3574:
3575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3576: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3578: raise OKL_API.G_EXCEPTION_ERROR;
3579: END IF;
3572: p_update_type => 'VIR_PAYMENT',
3573: x_rulv_tbl => x_rulv_tbl);
3574:
3575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3576: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3578: raise OKL_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3573: x_rulv_tbl => x_rulv_tbl);
3574:
3575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3576: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3578: raise OKL_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3581: END IF; -- if counter < 1
3574:
3575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3576: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3578: raise OKL_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3581: END IF; -- if counter < 1
3582: /* END IF; */
3580:
3581: END IF; -- if counter < 1
3582: /* END IF; */
3583:
3584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data);
3586:
3587: EXCEPTION
3588: when OKL_API.G_EXCEPTION_ERROR then
3584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data);
3586:
3587: EXCEPTION
3588: when OKL_API.G_EXCEPTION_ERROR then
3589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3590: p_api_name => l_api_name,
3591: p_pkg_name => G_PKG_NAME,
3592: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3585: x_msg_data => x_msg_data);
3586:
3587: EXCEPTION
3588: when OKL_API.G_EXCEPTION_ERROR then
3589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3590: p_api_name => l_api_name,
3591: p_pkg_name => G_PKG_NAME,
3592: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3593: x_msg_count => x_msg_count,
3588: when OKL_API.G_EXCEPTION_ERROR then
3589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3590: p_api_name => l_api_name,
3591: p_pkg_name => G_PKG_NAME,
3592: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3593: x_msg_count => x_msg_count,
3594: x_msg_data => x_msg_data,
3595: p_api_type => G_API_TYPE);
3596:
3593: x_msg_count => x_msg_count,
3594: x_msg_data => x_msg_data,
3595: p_api_type => G_API_TYPE);
3596:
3597: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3599: p_api_name => l_api_name,
3600: p_pkg_name => G_PKG_NAME,
3601: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3594: x_msg_data => x_msg_data,
3595: p_api_type => G_API_TYPE);
3596:
3597: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3599: p_api_name => l_api_name,
3600: p_pkg_name => G_PKG_NAME,
3601: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3602: x_msg_count => x_msg_count,
3597: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3599: p_api_name => l_api_name,
3600: p_pkg_name => G_PKG_NAME,
3601: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3602: x_msg_count => x_msg_count,
3603: x_msg_data => x_msg_data,
3604: p_api_type => G_API_TYPE);
3605:
3603: x_msg_data => x_msg_data,
3604: p_api_type => G_API_TYPE);
3605:
3606: when OTHERS then
3607: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3608: p_api_name => l_api_name,
3609: p_pkg_name => G_PKG_NAME,
3610: p_exc_name => 'OTHERS',
3611: x_msg_count => x_msg_count,
3626: x_msg_data OUT NOCOPY VARCHAR2,
3627: p_chr_id IN NUMBER,
3628: p_cle_id IN NUMBER DEFAULT NULL) IS
3629:
3630: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3631: l_api_name CONSTANT VARCHAR2(30) :='UPDATE_PYMT_START_DATE';
3632: l_api_version CONSTANT NUMBER := 1.0;
3633:
3634: CURSOR c_all_pymts_csr(p_chr_id NUMBER) IS
3675: IF (G_DEBUG_ENABLED = 'Y') THEN
3676: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3677: END IF;
3678:
3679: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3680: x_return_status := OKL_API.START_ACTIVITY(
3681: p_api_name => l_api_name,
3682: p_pkg_name => G_PKG_NAME,
3683: p_init_msg_list => p_init_msg_list,
3676: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3677: END IF;
3678:
3679: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3680: x_return_status := OKL_API.START_ACTIVITY(
3681: p_api_name => l_api_name,
3682: p_pkg_name => G_PKG_NAME,
3683: p_init_msg_list => p_init_msg_list,
3684: l_api_version => p_api_version,
3686: p_api_type => G_API_TYPE,
3687: x_return_status => x_return_status);
3688:
3689: -- check if activity started successfully
3690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3691: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3693: raise OKL_API.G_EXCEPTION_ERROR;
3694: END IF;
3687: x_return_status => x_return_status);
3688:
3689: -- check if activity started successfully
3690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3691: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3693: raise OKL_API.G_EXCEPTION_ERROR;
3694: END IF;
3695:
3688:
3689: -- check if activity started successfully
3690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3691: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3693: raise OKL_API.G_EXCEPTION_ERROR;
3694: END IF;
3695:
3696: IF p_cle_id IS NOT NULL THEN
3689: -- check if activity started successfully
3690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3691: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3693: raise OKL_API.G_EXCEPTION_ERROR;
3694: END IF;
3695:
3696: IF p_cle_id IS NOT NULL THEN
3697:
3711: frequency => NULL,
3712: arrears => NULL,
3713: p_validate_date_yn => 'N');
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3712: arrears => NULL,
3713: p_validate_date_yn => 'N');
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3713: p_validate_date_yn => 'N');
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3721: END LOOP;
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3721: END LOOP;
3722:
3737: frequency => NULL,
3738: arrears => NULL,
3739: p_validate_date_yn => 'N');
3740:
3741: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3738: arrears => NULL,
3739: p_validate_date_yn => 'N');
3740:
3741: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3746:
3739: p_validate_date_yn => 'N');
3740:
3741: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3746:
3747: END LOOP;
3740:
3741: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3744: RAISE OKL_API.G_EXCEPTION_ERROR;
3745: END IF;
3746:
3747: END LOOP;
3748: END IF;
3746:
3747: END LOOP;
3748: END IF;
3749:
3750: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3751: x_msg_data => x_msg_data);
3752:
3753: EXCEPTION
3754: when OKL_API.G_EXCEPTION_ERROR then
3750: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3751: x_msg_data => x_msg_data);
3752:
3753: EXCEPTION
3754: when OKL_API.G_EXCEPTION_ERROR then
3755: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3756: p_api_name => l_api_name,
3757: p_pkg_name => G_PKG_NAME,
3758: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3751: x_msg_data => x_msg_data);
3752:
3753: EXCEPTION
3754: when OKL_API.G_EXCEPTION_ERROR then
3755: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3756: p_api_name => l_api_name,
3757: p_pkg_name => G_PKG_NAME,
3758: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3759: x_msg_count => x_msg_count,
3754: when OKL_API.G_EXCEPTION_ERROR then
3755: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3756: p_api_name => l_api_name,
3757: p_pkg_name => G_PKG_NAME,
3758: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3759: x_msg_count => x_msg_count,
3760: x_msg_data => x_msg_data,
3761: p_api_type => G_API_TYPE);
3762:
3759: x_msg_count => x_msg_count,
3760: x_msg_data => x_msg_data,
3761: p_api_type => G_API_TYPE);
3762:
3763: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3764: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3765: p_api_name => l_api_name,
3766: p_pkg_name => G_PKG_NAME,
3767: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3760: x_msg_data => x_msg_data,
3761: p_api_type => G_API_TYPE);
3762:
3763: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3764: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3765: p_api_name => l_api_name,
3766: p_pkg_name => G_PKG_NAME,
3767: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3768: x_msg_count => x_msg_count,
3763: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3764: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3765: p_api_name => l_api_name,
3766: p_pkg_name => G_PKG_NAME,
3767: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3768: x_msg_count => x_msg_count,
3769: x_msg_data => x_msg_data,
3770: p_api_type => G_API_TYPE);
3771:
3769: x_msg_data => x_msg_data,
3770: p_api_type => G_API_TYPE);
3771:
3772: when OTHERS then
3773: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3774: p_api_name => l_api_name,
3775: p_pkg_name => G_PKG_NAME,
3776: p_exc_name => 'OTHERS',
3777: x_msg_count => x_msg_count,