20: G_CONV_DATE_TOKEN CONSTANT VARCHAR2(200) := 'CONVERSION_DATE';
21:
22: G_AMOUNT_ROUNDING CONSTANT VARCHAR2(200) := 'OKL_ERROR_ROUNDING_AMT';
23:
24: G_API_MISSING_PARAMETER CONSTANT VARCHAR2(200) := 'OKL_API_ALL_MISSING_PARAM';
25: G_API_NAME_TOKEN CONSTANT VARCHAR2(50) := 'API_NAME';
26: G_MISSING_PARAM_TOKEN CONSTANT VARCHAR2(50) := 'MISSING_PARAM';
27:
28: G_SUBSIDY_NO_RENTS CONSTANT VARCHAR2(200) := 'OKL_SUBSIDY_NO_RENTS';
79: and scsb.cls_code = 'OKL';
80:
81: l_valid_value varchar2(1) default 'N';
82: begin
83: x_return_status := OKL_API.G_RET_STS_SUCCESS;
84:
85: l_valid_value := 'N';
86:
87: open l_chr_csr(p_chr_id => p_chr_id);
91: end if;
92: close l_chr_csr;
93:
94: If l_valid_value = 'N' then
95: x_return_status := OKL_API.G_RET_STS_ERROR;
96: End If;
97:
98: Exception
99: When Others then
99: When Others then
100: If l_chr_csr%ISOPEN then
101: CLOSE l_chr_csr;
102: End If;
103: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
104: ,p_msg_name => G_UNEXPECTED_ERROR
105: ,p_token1 => G_SQLCODE_TOKEN
106: ,p_token1_value => SQLCODE
107: ,p_token2 => G_SQLERRM_TOKEN
105: ,p_token1 => G_SQLCODE_TOKEN
106: ,p_token1_value => SQLCODE
107: ,p_token2 => G_SQLERRM_TOKEN
108: ,p_token2_value => SQLERRM);
109: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
110: end validate_chr_id;
111: --------------------------------------------------------------
112: --validate line id : check that it is a valid okl line
113: -------------------------------------------------------------
132: and cleb.id = p_cle_id;
133:
134: l_valid_value varchar2(1) default 'N';
135: begin
136: x_return_status := OKL_API.G_RET_STS_SUCCESS;
137:
138: l_valid_value := 'N';
139:
140: open l_cle_csr(p_cle_id => p_cle_id,
145: end if;
146: close l_cle_csr;
147:
148: If l_valid_value = 'N' then
149: x_return_status := OKL_API.G_RET_STS_ERROR;
150: End If;
151:
152: Exception
153: When Others then
153: When Others then
154: If l_cle_csr%ISOPEN then
155: CLOSE l_cle_csr;
156: End If;
157: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
158: ,p_msg_name => G_UNEXPECTED_ERROR
159: ,p_token1 => G_SQLCODE_TOKEN
160: ,p_token1_value => SQLCODE
161: ,p_token2 => G_SQLERRM_TOKEN
159: ,p_token1 => G_SQLCODE_TOKEN
160: ,p_token1_value => SQLCODE
161: ,p_token2 => G_SQLERRM_TOKEN
162: ,p_token2_value => SQLERRM);
163: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
164: end validate_cle_id;
165: -----------------------------------------
166: --validate accounting method
167: -----------------------------------------
177:
178: l_valid_value varchar2(1) default 'N';
179:
180: begin
181: x_return_status := OKL_API.G_RET_STS_SUCCESS;
182:
183: l_valid_value := 'N';
184:
185: open l_flkup_csr(p_lookup_code => p_accounting_method);
189: end if;
190: close l_flkup_csr;
191:
192: If l_valid_value = 'N' then
193: x_return_status := OKL_API.G_RET_STS_ERROR;
194: End If;
195:
196: Exception
197: When Others then
197: When Others then
198: If l_flkup_csr%ISOPEN then
199: CLOSE l_flkup_csr;
200: End If;
201: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
202: ,p_msg_name => G_UNEXPECTED_ERROR
203: ,p_token1 => G_SQLCODE_TOKEN
204: ,p_token1_value => SQLCODE
205: ,p_token2 => G_SQLERRM_TOKEN
203: ,p_token1 => G_SQLCODE_TOKEN
204: ,p_token1_value => SQLCODE
205: ,p_token2 => G_SQLERRM_TOKEN
206: ,p_token2_value => SQLERRM);
207: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
208: end validate_acct_method;
209: ------------------------------------
210: --procedure to validate vendor id
211: -----------------------------------
220:
221: l_valid_value varchar2(1) default 'N';
222:
223: begin
224: x_return_status := OKL_API.G_RET_STS_SUCCESS;
225:
226: l_valid_value := 'N';
227:
228: open l_vendor_csr(p_vendor_id => p_vendor_id);
232: end if;
233: close l_vendor_csr;
234:
235: If l_valid_value = 'N' then
236: x_return_status := OKL_API.G_RET_STS_ERROR;
237: End If;
238:
239: Exception
240: When Others then
240: When Others then
241: If l_vendor_csr%ISOPEN then
242: CLOSE l_vendor_csr;
243: End If;
244: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
245: ,p_msg_name => G_UNEXPECTED_ERROR
246: ,p_token1 => G_SQLCODE_TOKEN
247: ,p_token1_value => SQLCODE
248: ,p_token2 => G_SQLERRM_TOKEN
246: ,p_token1 => G_SQLCODE_TOKEN
247: ,p_token1_value => SQLCODE
248: ,p_token2 => G_SQLERRM_TOKEN
249: ,p_token2_value => SQLERRM);
250: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
251: end validate_vendor_id;
252:
253: ------------------------------------------------------------------------------
254: --*****End of local procedures for parameter validations
257: --Name : Is_Contract_Subsidized
258: --Description : UTIL API returns true if contract is subsidized
259: --
260: -- PARAMETERS : IN - p_chr_id : contract header id
261: -- OUT -x_subsidized : OKL_API.G_TRUE or OKL_API.G_FALSE
262: --------------------------------------------------------------------------------
263: Procedure is_contract_subsidized(
264: p_api_version IN NUMBER,
265: p_init_msg_list IN VARCHAR2,
268: x_msg_data OUT NOCOPY VARCHAR2,
269: p_chr_id IN NUMBER,
270: x_subsidized OUT NOCOPY VARCHAR2) is
271:
272: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
273: l_api_name CONSTANT varchar2(30) := 'IS_CONTRACT_SUBSIDIZED';
274: l_api_version CONSTANT NUMBER := 1.0;
275:
276: --cursor to find out whether subsidies exist on the
293: --------------------------------------
294: --start of input variable validations
295: --------------------------------------
296: --validate p_chr_id
297: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
298: OKL_API.set_message(
299: p_app_name => G_APP_NAME,
300: p_msg_name => G_API_MISSING_PARAMETER,
301: p_token1 => G_API_NAME_TOKEN,
294: --start of input variable validations
295: --------------------------------------
296: --validate p_chr_id
297: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
298: OKL_API.set_message(
299: p_app_name => G_APP_NAME,
300: p_msg_name => G_API_MISSING_PARAMETER,
301: p_token1 => G_API_NAME_TOKEN,
302: p_token1_value => l_api_name,
301: p_token1 => G_API_NAME_TOKEN,
302: p_token1_value => l_api_name,
303: p_token2 => G_MISSING_PARAM_TOKEN,
304: p_token2_value => 'p_chr_id');
305: x_return_status := OKL_API.G_RET_STS_ERROR;
306: Raise OKL_API.G_EXCEPTION_ERROR;
307: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
308: validate_chr_id(p_chr_id => p_chr_id,
309: x_return_status => x_return_status);
302: p_token1_value => l_api_name,
303: p_token2 => G_MISSING_PARAM_TOKEN,
304: p_token2_value => 'p_chr_id');
305: x_return_status := OKL_API.G_RET_STS_ERROR;
306: Raise OKL_API.G_EXCEPTION_ERROR;
307: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
308: validate_chr_id(p_chr_id => p_chr_id,
309: x_return_status => x_return_status);
310: IF x_return_status = OKL_API.G_RET_STS_ERROR then
303: p_token2 => G_MISSING_PARAM_TOKEN,
304: p_token2_value => 'p_chr_id');
305: x_return_status := OKL_API.G_RET_STS_ERROR;
306: Raise OKL_API.G_EXCEPTION_ERROR;
307: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
308: validate_chr_id(p_chr_id => p_chr_id,
309: x_return_status => x_return_status);
310: IF x_return_status = OKL_API.G_RET_STS_ERROR then
311: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
306: Raise OKL_API.G_EXCEPTION_ERROR;
307: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
308: validate_chr_id(p_chr_id => p_chr_id,
309: x_return_status => x_return_status);
310: IF x_return_status = OKL_API.G_RET_STS_ERROR then
311: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
312: Raise OKL_API.G_EXCEPTION_ERROR;
313: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
314: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
307: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
308: validate_chr_id(p_chr_id => p_chr_id,
309: x_return_status => x_return_status);
310: IF x_return_status = OKL_API.G_RET_STS_ERROR then
311: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
312: Raise OKL_API.G_EXCEPTION_ERROR;
313: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
314: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: End If;
308: validate_chr_id(p_chr_id => p_chr_id,
309: x_return_status => x_return_status);
310: IF x_return_status = OKL_API.G_RET_STS_ERROR then
311: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
312: Raise OKL_API.G_EXCEPTION_ERROR;
313: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
314: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: End If;
316: End If;
309: x_return_status => x_return_status);
310: IF x_return_status = OKL_API.G_RET_STS_ERROR then
311: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
312: Raise OKL_API.G_EXCEPTION_ERROR;
313: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
314: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: End If;
316: End If;
317: ------------------------------------------
310: IF x_return_status = OKL_API.G_RET_STS_ERROR then
311: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
312: Raise OKL_API.G_EXCEPTION_ERROR;
313: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
314: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: End If;
316: End If;
317: ------------------------------------------
318: --end of input variable validations
325: NULL;
326: End If;
327: Close l_subexist_csr;
328: If l_subsidy_exists = 'Y' then
329: x_subsidized := OKL_API.G_TRUE;
330: elsif l_subsidy_exists = 'N' then
331: x_subsidized := OKL_API.G_FALSE;
332: end if;
333: Exception
327: Close l_subexist_csr;
328: If l_subsidy_exists = 'Y' then
329: x_subsidized := OKL_API.G_TRUE;
330: elsif l_subsidy_exists = 'N' then
331: x_subsidized := OKL_API.G_FALSE;
332: end if;
333: Exception
334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
335: If l_subexist_csr%ISOPEN then
330: elsif l_subsidy_exists = 'N' then
331: x_subsidized := OKL_API.G_FALSE;
332: end if;
333: Exception
334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
335: If l_subexist_csr%ISOPEN then
336: CLOSE l_subexist_csr;
337: End If;
338: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
335: If l_subexist_csr%ISOPEN then
336: CLOSE l_subexist_csr;
337: End If;
338: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
339: l_api_name,
340: G_PKG_NAME,
341: 'OKL_API.G_RET_STS_ERROR',
342: x_msg_count,
337: End If;
338: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
339: l_api_name,
340: G_PKG_NAME,
341: 'OKL_API.G_RET_STS_ERROR',
342: x_msg_count,
343: x_msg_data,
344: '_PVT');
345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
341: 'OKL_API.G_RET_STS_ERROR',
342: x_msg_count,
343: x_msg_data,
344: '_PVT');
345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
346: If l_subexist_csr%ISOPEN then
347: CLOSE l_subexist_csr;
348: End If;
349: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
346: If l_subexist_csr%ISOPEN then
347: CLOSE l_subexist_csr;
348: End If;
349: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
350: l_api_name,
351: G_PKG_NAME,
352: 'OKL_API.G_RET_STS_UNEXP_ERROR',
353: x_msg_count,
348: End If;
349: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
350: l_api_name,
351: G_PKG_NAME,
352: 'OKL_API.G_RET_STS_UNEXP_ERROR',
353: x_msg_count,
354: x_msg_data,
355: '_PVT');
356: When others then
356: When others then
357: If l_subexist_csr%ISOPEN then
358: CLOSE l_subexist_csr;
359: End If;
360: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
361: l_api_name,
362: G_PKG_NAME,
363: 'OTHERS',
364: x_msg_count,
369: --Name : Is_Asset_Subsidized
370: --Description : UTIL API returns true if asset is subsidized
371: --
372: -- PARAMETERS : IN - p_asset_cle_id : financial asset line id
373: -- OUT -x_subsidized : OKL_API.G_TRUE or OKL_API.G_FALSE
374: --------------------------------------------------------------------------------
375: Procedure is_asset_subsidized(
376: p_api_version IN NUMBER,
377: p_init_msg_list IN VARCHAR2,
380: x_msg_data OUT NOCOPY VARCHAR2,
381: p_asset_cle_id IN NUMBER,
382: x_subsidized OUT NOCOPY VARCHAR2) is
383:
384: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
385: l_api_name CONSTANT varchar2(30) := 'IS_ASSET_SUBSIDIZED';
386: l_api_version CONSTANT NUMBER := 1.0;
387:
388: --cursor to find out whether subsidies exist on the
405: ----------------------------------------
406: --start of input parameter validations
407: ---------------------------------------
408: --1.validate p_asset_cle_id
409: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
410: OKL_API.set_message(
411: p_app_name => G_APP_NAME,
412: p_msg_name => G_API_MISSING_PARAMETER,
413: p_token1 => G_API_NAME_TOKEN,
406: --start of input parameter validations
407: ---------------------------------------
408: --1.validate p_asset_cle_id
409: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
410: OKL_API.set_message(
411: p_app_name => G_APP_NAME,
412: p_msg_name => G_API_MISSING_PARAMETER,
413: p_token1 => G_API_NAME_TOKEN,
414: p_token1_value => l_api_name,
413: p_token1 => G_API_NAME_TOKEN,
414: p_token1_value => l_api_name,
415: p_token2 => G_MISSING_PARAM_TOKEN,
416: p_token2_value => 'p_asset_cle_id');
417: x_return_status := OKL_API.G_RET_STS_ERROR;
418: Raise OKL_API.G_EXCEPTION_ERROR;
419: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
420: validate_cle_id(p_cle_id => p_asset_cle_id,
421: p_lty_code => 'FREE_FORM1',
414: p_token1_value => l_api_name,
415: p_token2 => G_MISSING_PARAM_TOKEN,
416: p_token2_value => 'p_asset_cle_id');
417: x_return_status := OKL_API.G_RET_STS_ERROR;
418: Raise OKL_API.G_EXCEPTION_ERROR;
419: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
420: validate_cle_id(p_cle_id => p_asset_cle_id,
421: p_lty_code => 'FREE_FORM1',
422: x_return_status => x_return_status);
415: p_token2 => G_MISSING_PARAM_TOKEN,
416: p_token2_value => 'p_asset_cle_id');
417: x_return_status := OKL_API.G_RET_STS_ERROR;
418: Raise OKL_API.G_EXCEPTION_ERROR;
419: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
420: validate_cle_id(p_cle_id => p_asset_cle_id,
421: p_lty_code => 'FREE_FORM1',
422: x_return_status => x_return_status);
423: IF x_return_status = OKL_API.G_RET_STS_ERROR then
419: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
420: validate_cle_id(p_cle_id => p_asset_cle_id,
421: p_lty_code => 'FREE_FORM1',
422: x_return_status => x_return_status);
423: IF x_return_status = OKL_API.G_RET_STS_ERROR then
424: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
425: Raise OKL_API.G_EXCEPTION_ERROR;
426: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
427: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
420: validate_cle_id(p_cle_id => p_asset_cle_id,
421: p_lty_code => 'FREE_FORM1',
422: x_return_status => x_return_status);
423: IF x_return_status = OKL_API.G_RET_STS_ERROR then
424: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
425: Raise OKL_API.G_EXCEPTION_ERROR;
426: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
427: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
428: End If;
421: p_lty_code => 'FREE_FORM1',
422: x_return_status => x_return_status);
423: IF x_return_status = OKL_API.G_RET_STS_ERROR then
424: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
425: Raise OKL_API.G_EXCEPTION_ERROR;
426: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
427: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
428: End If;
429: End If;
422: x_return_status => x_return_status);
423: IF x_return_status = OKL_API.G_RET_STS_ERROR then
424: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
425: Raise OKL_API.G_EXCEPTION_ERROR;
426: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
427: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
428: End If;
429: End If;
430: -----------------------------------
423: IF x_return_status = OKL_API.G_RET_STS_ERROR then
424: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
425: Raise OKL_API.G_EXCEPTION_ERROR;
426: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
427: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
428: End If;
429: End If;
430: -----------------------------------
431: --end of input variable validations
438: NULL;
439: End If;
440: Close l_subexist_csr;
441: If l_subsidy_exists = 'Y' then
442: x_subsidized := OKL_API.G_TRUE;
443: elsif l_subsidy_exists = 'N' then
444: x_subsidized := OKL_API.G_FALSE;
445: end if;
446: Exception
440: Close l_subexist_csr;
441: If l_subsidy_exists = 'Y' then
442: x_subsidized := OKL_API.G_TRUE;
443: elsif l_subsidy_exists = 'N' then
444: x_subsidized := OKL_API.G_FALSE;
445: end if;
446: Exception
447: WHEN OKL_API.G_EXCEPTION_ERROR THEN
448: If l_subexist_csr%ISOPEN then
443: elsif l_subsidy_exists = 'N' then
444: x_subsidized := OKL_API.G_FALSE;
445: end if;
446: Exception
447: WHEN OKL_API.G_EXCEPTION_ERROR THEN
448: If l_subexist_csr%ISOPEN then
449: CLOSE l_subexist_csr;
450: End If;
451: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
447: WHEN OKL_API.G_EXCEPTION_ERROR THEN
448: If l_subexist_csr%ISOPEN then
449: CLOSE l_subexist_csr;
450: End If;
451: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
452: l_api_name,
453: G_PKG_NAME,
454: 'OKL_API.G_RET_STS_ERROR',
455: x_msg_count,
450: End If;
451: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
452: l_api_name,
453: G_PKG_NAME,
454: 'OKL_API.G_RET_STS_ERROR',
455: x_msg_count,
456: x_msg_data,
457: '_PVT');
458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
454: 'OKL_API.G_RET_STS_ERROR',
455: x_msg_count,
456: x_msg_data,
457: '_PVT');
458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
459: If l_subexist_csr%ISOPEN then
460: CLOSE l_subexist_csr;
461: End If;
462: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
459: If l_subexist_csr%ISOPEN then
460: CLOSE l_subexist_csr;
461: End If;
462: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
463: l_api_name,
464: G_PKG_NAME,
465: 'OKL_API.G_RET_STS_UNEXP_ERROR',
466: x_msg_count,
461: End If;
462: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
463: l_api_name,
464: G_PKG_NAME,
465: 'OKL_API.G_RET_STS_UNEXP_ERROR',
466: x_msg_count,
467: x_msg_data,
468: '_PVT');
469: When others then
469: When others then
470: If l_subexist_csr%ISOPEN then
471: CLOSE l_subexist_csr;
472: End If;
473: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
474: l_api_name,
475: G_PKG_NAME,
476: 'OTHERS',
477: x_msg_count,
516: IF (G_DEBUG_ENABLED = 'Y') THEN
517: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
518: END IF;
519:
520: x_return_status := OKL_API.G_RET_STS_SUCCESS;
521: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
522: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
523: END IF;
524: IF p_advance_or_arrears = 'ADVANCE' THEN
527: l_date := ADD_MONTHS(TRUNC(p_start_date), p_months_increment) - 1;
528: END IF;
529:
530: IF l_date IS NOT NULL THEN
531: x_return_status := OKL_API.G_RET_STS_SUCCESS;
532: RETURN l_date;
533: ELSE
534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
535: END IF;
530: IF l_date IS NOT NULL THEN
531: x_return_status := OKL_API.G_RET_STS_SUCCESS;
532: RETURN l_date;
533: ELSE
534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
535: END IF;
536:
537: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
538: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
538: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
539: END IF;
540: EXCEPTION
541:
542: WHEN OKL_API.G_EXCEPTION_ERROR THEN
543:
544: x_return_status := OKL_API.G_RET_STS_ERROR;
545:
546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
540: EXCEPTION
541:
542: WHEN OKL_API.G_EXCEPTION_ERROR THEN
543:
544: x_return_status := OKL_API.G_RET_STS_ERROR;
545:
546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
547:
548: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
542: WHEN OKL_API.G_EXCEPTION_ERROR THEN
543:
544: x_return_status := OKL_API.G_RET_STS_ERROR;
545:
546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
547:
548: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
544: x_return_status := OKL_API.G_RET_STS_ERROR;
545:
546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
547:
548: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
551:
552: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
548: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
551:
552: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
553: ,p_msg_name => G_UNEXPECTED_ERROR
554: ,p_token1 => G_SQLCODE_TOKEN
555: ,p_token1_value => SQLCODE
556: ,p_token2 => G_SQLERRM_TOKEN
555: ,p_token1_value => SQLCODE
556: ,p_token2 => G_SQLERRM_TOKEN
557: ,p_token2_value => SQLERRM);
558:
559: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
560:
561: END get_first_sel_date;
562: ---------------------------------------------------------------------------
563: -- FUNCTION get_months_factor
574: IF (G_DEBUG_ENABLED = 'Y') THEN
575: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
576: END IF;
577:
578: x_return_status := OKL_API.G_RET_STS_SUCCESS;
579: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
581: END IF;
582: IF p_frequency = 'M' THEN
589: l_months := 12;
590: END IF;
591:
592: IF l_months IS NOT NULL THEN
593: x_return_status := OKL_API.G_RET_STS_SUCCESS;
594: RETURN l_months;
595:
596: ELSE
597:
594: RETURN l_months;
595:
596: ELSE
597:
598: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
599: p_msg_name => 'OKL_INVALID_FREQUENCY_CODE',
600: p_token1 => 'FRQ_CODE',
601: p_token1_value => p_frequency);
602:
599: p_msg_name => 'OKL_INVALID_FREQUENCY_CODE',
600: p_token1 => 'FRQ_CODE',
601: p_token1_value => p_frequency);
602:
603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
604:
605: END IF;
606:
607: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
608: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
609: END IF;
610: EXCEPTION
611:
612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
613:
614: x_return_status := OKL_API.G_RET_STS_ERROR;
615:
616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
610: EXCEPTION
611:
612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
613:
614: x_return_status := OKL_API.G_RET_STS_ERROR;
615:
616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
617:
618: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
613:
614: x_return_status := OKL_API.G_RET_STS_ERROR;
615:
616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
617:
618: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
619:
620: WHEN OTHERS THEN
614: x_return_status := OKL_API.G_RET_STS_ERROR;
615:
616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
617:
618: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
619:
620: WHEN OTHERS THEN
621:
622: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
618: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
619:
620: WHEN OTHERS THEN
621:
622: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
623: ,p_msg_name => G_UNEXPECTED_ERROR
624: ,p_token1 => G_SQLCODE_TOKEN
625: ,p_token1_value => SQLCODE
626: ,p_token2 => G_SQLERRM_TOKEN
625: ,p_token1_value => SQLCODE
626: ,p_token2 => G_SQLERRM_TOKEN
627: ,p_token2_value => SQLERRM);
628:
629: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
630:
631: END get_months_factor;
632: ---------------------------------------------------------------------------
633: -- PROCEDURE get_stream_elements
667: BEGIN
668: IF (G_DEBUG_ENABLED = 'Y') THEN
669: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
670: END IF;
671: x_return_status := OKL_API.G_RET_STS_SUCCESS ;
672: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
674: END IF;
675: l_months_factor := get_months_factor( p_frequency => p_frequency,
674: END IF;
675: l_months_factor := get_months_factor( p_frequency => p_frequency,
676: x_return_status => x_return_status);
677:
678: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
681: RAISE OKL_API.G_EXCEPTION_ERROR;
682: END IF;
675: l_months_factor := get_months_factor( p_frequency => p_frequency,
676: x_return_status => x_return_status);
677:
678: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
681: RAISE OKL_API.G_EXCEPTION_ERROR;
682: END IF;
683:
676: x_return_status => x_return_status);
677:
678: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
681: RAISE OKL_API.G_EXCEPTION_ERROR;
682: END IF;
683:
684: l_first_sel_date := get_first_sel_date( p_start_date => p_start_date,
677:
678: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
681: RAISE OKL_API.G_EXCEPTION_ERROR;
682: END IF;
683:
684: l_first_sel_date := get_first_sel_date( p_start_date => p_start_date,
685: p_advance_or_arrears => p_advance_or_arrears,
685: p_advance_or_arrears => p_advance_or_arrears,
686: p_months_increment => l_months_factor,
687: x_return_status => x_return_status);
688:
689: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
691: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
692: RAISE OKL_API.G_EXCEPTION_ERROR;
693: END IF;
686: p_months_increment => l_months_factor,
687: x_return_status => x_return_status);
688:
689: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
691: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
692: RAISE OKL_API.G_EXCEPTION_ERROR;
693: END IF;
694:
687: x_return_status => x_return_status);
688:
689: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
691: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
692: RAISE OKL_API.G_EXCEPTION_ERROR;
693: END IF;
694:
695: If ( p_amount IS NULL ) Then
688:
689: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
691: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
692: RAISE OKL_API.G_EXCEPTION_ERROR;
693: END IF;
694:
695: If ( p_amount IS NULL ) Then
696: l_amount := NULL;
743:
744: END IF;
745: EXCEPTION
746:
747: WHEN OKL_API.G_EXCEPTION_ERROR THEN
748:
749: x_return_status := OKL_API.G_RET_STS_ERROR;
750:
751: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
745: EXCEPTION
746:
747: WHEN OKL_API.G_EXCEPTION_ERROR THEN
748:
749: x_return_status := OKL_API.G_RET_STS_ERROR;
750:
751: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
752:
753: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
747: WHEN OKL_API.G_EXCEPTION_ERROR THEN
748:
749: x_return_status := OKL_API.G_RET_STS_ERROR;
750:
751: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
752:
753: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
754:
755: WHEN OTHERS THEN
749: x_return_status := OKL_API.G_RET_STS_ERROR;
750:
751: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
752:
753: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
754:
755: WHEN OTHERS THEN
756:
757: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
753: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
754:
755: WHEN OTHERS THEN
756:
757: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
758: ,p_msg_name => G_UNEXPECTED_ERROR
759: ,p_token1 => G_SQLCODE_TOKEN
760: ,p_token1_value => SQLCODE
761: ,p_token2 => G_SQLERRM_TOKEN
760: ,p_token1_value => SQLCODE
761: ,p_token2 => G_SQLERRM_TOKEN
762: ,p_token2_value => SQLERRM);
763:
764: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
765:
766: END get_stream_elements;
767: ---------------------------------------------------------------------------
768: -- PROCEDURE get_stream_header
783: BEGIN
784: IF (G_DEBUG_ENABLED = 'Y') THEN
785: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
786: END IF;
787: x_return_status := OKL_API.G_RET_STS_SUCCESS;
788: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
790: END IF;
791: SELECT okl_sif_seq.nextval INTO l_transaction_number FROM DUAL;
816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
817: END IF;
818: EXCEPTION
819:
820: WHEN OKL_API.G_EXCEPTION_ERROR THEN
821:
822: x_return_status := OKL_API.G_RET_STS_ERROR;
823:
824: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
818: EXCEPTION
819:
820: WHEN OKL_API.G_EXCEPTION_ERROR THEN
821:
822: x_return_status := OKL_API.G_RET_STS_ERROR;
823:
824: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
825:
826: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
820: WHEN OKL_API.G_EXCEPTION_ERROR THEN
821:
822: x_return_status := OKL_API.G_RET_STS_ERROR;
823:
824: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
825:
826: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
827:
828: WHEN OTHERS THEN
822: x_return_status := OKL_API.G_RET_STS_ERROR;
823:
824: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
825:
826: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
827:
828: WHEN OTHERS THEN
829:
830: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
826: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
827:
828: WHEN OTHERS THEN
829:
830: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
831: ,p_msg_name => G_UNEXPECTED_ERROR
832: ,p_token1 => G_SQLCODE_TOKEN
833: ,p_token1_value => SQLCODE
834: ,p_token2 => G_SQLERRM_TOKEN
833: ,p_token1_value => SQLCODE
834: ,p_token2 => G_SQLERRM_TOKEN
835: ,p_token2_value => SQLERRM);
836:
837: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
838:
839: END get_stream_header;
840:
841: --------------------------------------------------------------------------------
851: x_stmv_rec OUT NOCOPY OKL_STREAMS_PUB.stmv_rec_type,
852: x_selv_tbl OUT NOCOPY OKL_STREAMS_PUB.selv_tbl_type
853: ) Is
854:
855: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
856: l_api_name CONSTANT varchar2(30) := 'GENERATE_STUB_ELEMENT';
857: l_api_version CONSTANT NUMBER := 1.0;
858:
859:
875: where stream_type_purpose = 'RENT';
876:
877: Begin
878:
879: x_return_status := OKL_API.G_RET_STS_SUCCESS;
880: -- Call start_activity to create savepoint, check compatibility
881: -- and initialize message list
882: x_return_status := OKL_API.START_ACTIVITY (
883: l_api_name
878:
879: x_return_status := OKL_API.G_RET_STS_SUCCESS;
880: -- Call start_activity to create savepoint, check compatibility
881: -- and initialize message list
882: x_return_status := OKL_API.START_ACTIVITY (
883: l_api_name
884: ,p_init_msg_list
885: ,'_PVT'
886: ,x_return_status);
884: ,p_init_msg_list
885: ,'_PVT'
886: ,x_return_status);
887: -- Check if activity started successfully
888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
891: RAISE OKL_API.G_EXCEPTION_ERROR;
892: END IF;
885: ,'_PVT'
886: ,x_return_status);
887: -- Check if activity started successfully
888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
891: RAISE OKL_API.G_EXCEPTION_ERROR;
892: END IF;
893:
886: ,x_return_status);
887: -- Check if activity started successfully
888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
891: RAISE OKL_API.G_EXCEPTION_ERROR;
892: END IF;
893:
894:
887: -- Check if activity started successfully
888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
891: RAISE OKL_API.G_EXCEPTION_ERROR;
892: END IF;
893:
894:
895:
903: p_purpose_code => 'STUBS',
904: x_stmv_rec => l_stmv_rec,
905: x_return_status => x_return_status);
906:
907: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
910: RAISE OKL_API.G_EXCEPTION_ERROR;
911: END IF;
904: x_stmv_rec => l_stmv_rec,
905: x_return_status => x_return_status);
906:
907: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
910: RAISE OKL_API.G_EXCEPTION_ERROR;
911: END IF;
912:
905: x_return_status => x_return_status);
906:
907: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
910: RAISE OKL_API.G_EXCEPTION_ERROR;
911: END IF;
912:
913: l_stmv_rec.date_history := sysdate ;
906:
907: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
910: RAISE OKL_API.G_EXCEPTION_ERROR;
911: END IF;
912:
913: l_stmv_rec.date_history := sysdate ;
914: l_stmv_rec.say_code := 'HIST' ;
935: ,x_stmv_rec => lx_stmv_rec
936: ,x_selv_tbl => lx_selv_tbl
937: );
938:
939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
942: RAISE OKL_API.G_EXCEPTION_ERROR;
943: END IF;
936: ,x_selv_tbl => lx_selv_tbl
937: );
938:
939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
942: RAISE OKL_API.G_EXCEPTION_ERROR;
943: END IF;
944:
937: );
938:
939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
942: RAISE OKL_API.G_EXCEPTION_ERROR;
943: END IF;
944:
945:
938:
939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
942: RAISE OKL_API.G_EXCEPTION_ERROR;
943: END IF;
944:
945:
946: --x_se_id := lx_selv_tbl(1).id;
945:
946: --x_se_id := lx_selv_tbl(1).id;
947: x_stmv_rec := lx_stmv_rec;
948: x_selv_tbl := lx_selv_tbl;
949: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
950:
951: EXCEPTION
952:
953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
949: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
950:
951: EXCEPTION
952:
953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
954: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
955: l_api_name,
956: G_PKG_NAME,
957: 'OKL_API.G_RET_STS_ERROR',
950:
951: EXCEPTION
952:
953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
954: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
955: l_api_name,
956: G_PKG_NAME,
957: 'OKL_API.G_RET_STS_ERROR',
958: x_msg_count,
953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
954: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
955: l_api_name,
956: G_PKG_NAME,
957: 'OKL_API.G_RET_STS_ERROR',
958: x_msg_count,
959: x_msg_data,
960: '_PVT');
961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
957: 'OKL_API.G_RET_STS_ERROR',
958: x_msg_count,
959: x_msg_data,
960: '_PVT');
961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
962: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
963: l_api_name,
964: G_PKG_NAME,
965: 'OKL_API.G_RET_STS_UNEXP_ERROR',
958: x_msg_count,
959: x_msg_data,
960: '_PVT');
961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
962: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
963: l_api_name,
964: G_PKG_NAME,
965: 'OKL_API.G_RET_STS_UNEXP_ERROR',
966: x_msg_count,
961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
962: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
963: l_api_name,
964: G_PKG_NAME,
965: 'OKL_API.G_RET_STS_UNEXP_ERROR',
966: x_msg_count,
967: x_msg_data,
968: '_PVT');
969: WHEN OTHERS THEN
966: x_msg_count,
967: x_msg_data,
968: '_PVT');
969: WHEN OTHERS THEN
970: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
971: l_api_name,
972: G_PKG_NAME,
973: 'OTHERS',
974: x_msg_count,
994: x_stmv_rec_stub OUT NOCOPY okl_streams_pub.stmv_rec_type,
995: x_selv_tbl_stub OUT NOCOPY okl_streams_pub.selv_tbl_type,
996: x_payment_count OUT NOCOPY BINARY_INTEGER) IS
997:
998: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
999: l_api_name CONSTANT varchar2(30) := 'GENERATE_CASH_FLOWS';
1000: l_api_version CONSTANT NUMBER := 1.0;
1001:
1002:
1061: IF (G_DEBUG_ENABLED = 'Y') THEN
1062: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1063: END IF;
1064:
1065: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1066: -- Call start_activity to create savepoint, check compatibility
1067: -- and initialize message list
1068: x_return_status := OKL_API.START_ACTIVITY (
1069: l_api_name
1064:
1065: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1066: -- Call start_activity to create savepoint, check compatibility
1067: -- and initialize message list
1068: x_return_status := OKL_API.START_ACTIVITY (
1069: l_api_name
1070: ,p_init_msg_list
1071: ,'_PVT'
1072: ,x_return_status);
1070: ,p_init_msg_list
1071: ,'_PVT'
1072: ,x_return_status);
1073: -- Check if activity started successfully
1074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1071: ,'_PVT'
1072: ,x_return_status);
1073: -- Check if activity started successfully
1074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079:
1072: ,x_return_status);
1073: -- Check if activity started successfully
1074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079:
1080:
1073: -- Check if activity started successfully
1074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079:
1080:
1081: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1093: x_msg_data => x_msg_data,
1094: x_stmv_rec => l_stmv_rec_stub,
1095: x_selv_tbl => l_selv_tbl_stub);
1096:
1097: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1094: x_stmv_rec => l_stmv_rec_stub,
1095: x_selv_tbl => l_selv_tbl_stub);
1096:
1097: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1095: x_selv_tbl => l_selv_tbl_stub);
1096:
1097: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1103: l_se_id := l_selv_tbl_stub(1).id;
1096:
1097: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1103: l_se_id := l_selv_tbl_stub(1).id;
1104:
1116: p_purpose_code => l_purpose_code,
1117: x_stmv_rec => l_stmv_rec,
1118: x_return_status => x_return_status);
1119:
1120: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1123: RAISE OKL_API.G_EXCEPTION_ERROR;
1124: END IF;
1117: x_stmv_rec => l_stmv_rec,
1118: x_return_status => x_return_status);
1119:
1120: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1123: RAISE OKL_API.G_EXCEPTION_ERROR;
1124: END IF;
1125:
1118: x_return_status => x_return_status);
1119:
1120: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1123: RAISE OKL_API.G_EXCEPTION_ERROR;
1124: END IF;
1125:
1126: l_stmv_rec.purpose_code := 'FLOW';
1119:
1120: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1123: RAISE OKL_API.G_EXCEPTION_ERROR;
1124: END IF;
1125:
1126: l_stmv_rec.purpose_code := 'FLOW';
1127:
1132: x_msg_data => x_msg_data,
1133: p_stmv_rec => l_stmv_rec,
1134: x_stmv_rec => lx_stmv_rec);
1135:
1136: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1133: p_stmv_rec => l_stmv_rec,
1134: x_stmv_rec => lx_stmv_rec);
1135:
1136: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1134: x_stmv_rec => lx_stmv_rec);
1135:
1136: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1142: l_stmv_rec_rent := lx_stmv_rec;
1135:
1136: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1142: l_stmv_rec_rent := lx_stmv_rec;
1143:
1150: LOOP
1151:
1152: IF p_payment_tbl(i).start_date IS NULL THEN
1153:
1154: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1155: p_msg_name => 'OKL_NO_SLL_SDATE');
1156:
1157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1158:
1153:
1154: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1155: p_msg_name => 'OKL_NO_SLL_SDATE');
1156:
1157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1158:
1159: END IF;
1160:
1161: /*
1191: x_return_status => x_return_status,
1192: x_msg_count => x_msg_count,
1193: x_msg_data => x_msg_data);
1194:
1195: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1198: RAISE OKL_API.G_EXCEPTION_ERROR;
1199: END IF;
1192: x_msg_count => x_msg_count,
1193: x_msg_data => x_msg_data);
1194:
1195: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1198: RAISE OKL_API.G_EXCEPTION_ERROR;
1199: END IF;
1200:
1193: x_msg_data => x_msg_data);
1194:
1195: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1198: RAISE OKL_API.G_EXCEPTION_ERROR;
1199: END IF;
1200:
1201: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1194:
1195: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1198: RAISE OKL_API.G_EXCEPTION_ERROR;
1199: END IF;
1200:
1201: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'created elements ' || to_char(l_selv_tbl.COUNT) );
1234: x_msg_data => x_msg_data,
1235: p_selv_tbl => l_selv_tbl,
1236: x_selv_tbl => lx_selv_tbl);
1237:
1238: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1240: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1235: p_selv_tbl => l_selv_tbl,
1236: x_selv_tbl => lx_selv_tbl);
1237:
1238: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1240: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1243:
1236: x_selv_tbl => lx_selv_tbl);
1237:
1238: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1240: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1243:
1244: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1237:
1238: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1240: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1243:
1244: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1245: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'created elements ' || to_char(l_ele_count) );
1284: x_selv_tbl_stub := l_selv_tbl_stub;
1285: x_stmv_rec_rent := l_stmv_rec_rent;
1286: x_selv_tbl_rent := l_selv_tbl_rent;
1287:
1288: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1289:
1290: EXCEPTION
1291:
1292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1288: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1289:
1290: EXCEPTION
1291:
1292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1293: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1294: l_api_name,
1295: G_PKG_NAME,
1296: 'OKL_API.G_RET_STS_ERROR',
1289:
1290: EXCEPTION
1291:
1292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1293: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1294: l_api_name,
1295: G_PKG_NAME,
1296: 'OKL_API.G_RET_STS_ERROR',
1297: x_msg_count,
1292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1293: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1294: l_api_name,
1295: G_PKG_NAME,
1296: 'OKL_API.G_RET_STS_ERROR',
1297: x_msg_count,
1298: x_msg_data,
1299: '_PVT');
1300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1296: 'OKL_API.G_RET_STS_ERROR',
1297: x_msg_count,
1298: x_msg_data,
1299: '_PVT');
1300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1302: l_api_name,
1303: G_PKG_NAME,
1304: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1297: x_msg_count,
1298: x_msg_data,
1299: '_PVT');
1300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1302: l_api_name,
1303: G_PKG_NAME,
1304: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1305: x_msg_count,
1300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1302: l_api_name,
1303: G_PKG_NAME,
1304: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1305: x_msg_count,
1306: x_msg_data,
1307: '_PVT');
1308: WHEN OTHERS THEN
1305: x_msg_count,
1306: x_msg_data,
1307: '_PVT');
1308: WHEN OTHERS THEN
1309: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1310: l_api_name,
1311: G_PKG_NAME,
1312: 'OTHERS',
1313: x_msg_count,
1330: p_irr IN NUMBER,
1331: x_npv OUT NOCOPY NUMBER
1332: ) is
1333:
1334: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1335: l_api_name CONSTANT varchar2(30) := 'CALCULATE_NPV';
1336: l_api_version CONSTANT NUMBER := 1.0;
1337:
1338: cursor l_cleb_csr (p_cle_id in number) is
1369: IF (G_DEBUG_ENABLED = 'Y') THEN
1370: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1371: END IF;
1372:
1373: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1374: -- Call start_activity to create savepoint, check compatibility
1375: -- and initialize message list
1376: x_return_status := OKL_API.START_ACTIVITY (
1377: l_api_name
1372:
1373: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1374: -- Call start_activity to create savepoint, check compatibility
1375: -- and initialize message list
1376: x_return_status := OKL_API.START_ACTIVITY (
1377: l_api_name
1378: ,p_init_msg_list
1379: ,'_PVT'
1380: ,x_return_status);
1378: ,p_init_msg_list
1379: ,'_PVT'
1380: ,x_return_status);
1381: -- Check if activity started successfully
1382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_ERROR;
1386: END IF;
1379: ,'_PVT'
1380: ,x_return_status);
1381: -- Check if activity started successfully
1382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_ERROR;
1386: END IF;
1387:
1380: ,x_return_status);
1381: -- Check if activity started successfully
1382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_ERROR;
1386: END IF;
1387:
1388: open l_styb_csr(p_strm_type => 'RENT');
1381: -- Check if activity started successfully
1382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_ERROR;
1386: END IF;
1387:
1388: open l_styb_csr(p_strm_type => 'RENT');
1389: fetch l_styb_csr into l_sty_id;
1406: x_stmv_rec_stub => l_stmv_rec_stub,
1407: x_selv_tbl_stub => l_selv_tbl_stub,
1408: x_payment_count => l_payment_count);
1409:
1410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1407: x_selv_tbl_stub => l_selv_tbl_stub,
1408: x_payment_count => l_payment_count);
1409:
1410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1415:
1408: x_payment_count => l_payment_count);
1409:
1410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1415:
1416:
1409:
1410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1415:
1416:
1417: l_npv := 0.0;
1442: x_return_status => x_return_status,
1443: x_msg_count => x_msg_count,
1444: x_msg_data => x_msg_data);
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1443: x_msg_count => x_msg_count,
1444: x_msg_data => x_msg_data);
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1451:
1444: x_msg_data => x_msg_data);
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1451:
1452: l_npv := l_npv + l_pv;
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1451:
1452: l_npv := l_npv + l_pv;
1453: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1465: x_msg_count => x_msg_count,
1466: x_msg_data => x_msg_data,
1467: p_stmv_rec => l_stmv_rec_stub);
1468:
1469: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1466: x_msg_data => x_msg_data,
1467: p_stmv_rec => l_stmv_rec_stub);
1468:
1469: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1474:
1467: p_stmv_rec => l_stmv_rec_stub);
1468:
1469: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1474:
1475:
1468:
1469: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1474:
1475:
1476: okl_streams_pub.delete_streams(
1480: x_msg_count => x_msg_count,
1481: x_msg_data => x_msg_data,
1482: p_stmv_rec => l_stmv_rec_rent);
1483:
1484: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1487: RAISE OKL_API.G_EXCEPTION_ERROR;
1488: END IF;
1481: x_msg_data => x_msg_data,
1482: p_stmv_rec => l_stmv_rec_rent);
1483:
1484: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1487: RAISE OKL_API.G_EXCEPTION_ERROR;
1488: END IF;
1489:
1482: p_stmv_rec => l_stmv_rec_rent);
1483:
1484: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1487: RAISE OKL_API.G_EXCEPTION_ERROR;
1488: END IF;
1489:
1490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1483:
1484: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1487: RAISE OKL_API.G_EXCEPTION_ERROR;
1488: END IF;
1489:
1490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1491:
1486: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1487: RAISE OKL_API.G_EXCEPTION_ERROR;
1488: END IF;
1489:
1490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1491:
1492: EXCEPTION
1493:
1494: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1491:
1492: EXCEPTION
1493:
1494: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1495: If l_cleb_csr%ISOPEN then
1496: close l_cleb_csr;
1497: End If;
1498: If l_styb_csr%ISOPEN then
1497: End If;
1498: If l_styb_csr%ISOPEN then
1499: close l_styb_csr;
1500: End If;
1501: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1502: l_api_name,
1503: G_PKG_NAME,
1504: 'OKL_API.G_RET_STS_ERROR',
1505: x_msg_count,
1500: End If;
1501: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1502: l_api_name,
1503: G_PKG_NAME,
1504: 'OKL_API.G_RET_STS_ERROR',
1505: x_msg_count,
1506: x_msg_data,
1507: '_PVT');
1508: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1504: 'OKL_API.G_RET_STS_ERROR',
1505: x_msg_count,
1506: x_msg_data,
1507: '_PVT');
1508: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1509: If l_cleb_csr%ISOPEN then
1510: close l_cleb_csr;
1511: End If;
1512: If l_styb_csr%ISOPEN then
1511: End If;
1512: If l_styb_csr%ISOPEN then
1513: close l_styb_csr;
1514: End If;
1515: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1516: l_api_name,
1517: G_PKG_NAME,
1518: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1519: x_msg_count,
1514: End If;
1515: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1516: l_api_name,
1517: G_PKG_NAME,
1518: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1519: x_msg_count,
1520: x_msg_data,
1521: '_PVT');
1522: WHEN OTHERS THEN
1525: End If;
1526: If l_styb_csr%ISOPEN then
1527: close l_styb_csr;
1528: End If;
1529: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1530: l_api_name,
1531: G_PKG_NAME,
1532: 'OTHERS',
1533: x_msg_count,
1553: p_chr_id IN NUMBER,
1554: p_asset_cle_id IN NUMBER,
1555: x_subsidy_amount OUT NOCOPY NUMBER) is
1556:
1557: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1558: l_api_name CONSTANT varchar2(30) := 'GET_RATE_POINTS';
1559: l_api_version CONSTANT NUMBER := 1.0;
1560:
1561: -- Added sll_rulb.rule_information2 in order by clause for bug#6007644 - varangan-14-Jun-07
1613:
1614: l_asset_number okc_k_lines_tl.name%TYPE;
1615:
1616: begin
1617: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1618: -- Call start_activity to create savepoint, check compatibility
1619: -- and initialize message list
1620: x_return_status := OKL_API.START_ACTIVITY (
1621: l_api_name
1616: begin
1617: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1618: -- Call start_activity to create savepoint, check compatibility
1619: -- and initialize message list
1620: x_return_status := OKL_API.START_ACTIVITY (
1621: l_api_name
1622: ,p_init_msg_list
1623: ,'_PVT'
1624: ,x_return_status);
1622: ,p_init_msg_list
1623: ,'_PVT'
1624: ,x_return_status);
1625: -- Check if activity started successfully
1626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_ERROR;
1630: END IF;
1623: ,'_PVT'
1624: ,x_return_status);
1625: -- Check if activity started successfully
1626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_ERROR;
1630: END IF;
1631:
1624: ,x_return_status);
1625: -- Check if activity started successfully
1626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_ERROR;
1630: END IF;
1631:
1632: ---------------------------------------
1625: -- Check if activity started successfully
1626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_ERROR;
1630: END IF;
1631:
1632: ---------------------------------------
1633: --start of input parameter validations
1632: ---------------------------------------
1633: --start of input parameter validations
1634: --------------------------------------
1635: --1.validate p_asset_cle_id
1636: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
1637: OKL_API.set_message(
1638: p_app_name => G_APP_NAME,
1639: p_msg_name => G_API_MISSING_PARAMETER,
1640: p_token1 => G_API_NAME_TOKEN,
1633: --start of input parameter validations
1634: --------------------------------------
1635: --1.validate p_asset_cle_id
1636: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
1637: OKL_API.set_message(
1638: p_app_name => G_APP_NAME,
1639: p_msg_name => G_API_MISSING_PARAMETER,
1640: p_token1 => G_API_NAME_TOKEN,
1641: p_token1_value => l_api_name,
1640: p_token1 => G_API_NAME_TOKEN,
1641: p_token1_value => l_api_name,
1642: p_token2 => G_MISSING_PARAM_TOKEN,
1643: p_token2_value => 'p_asset_cle_id');
1644: x_return_status := OKL_API.G_RET_STS_ERROR;
1645: Raise OKL_API.G_EXCEPTION_ERROR;
1646: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
1647: validate_cle_id(p_cle_id => p_asset_cle_id,
1648: p_lty_code => 'FREE_FORM1',
1641: p_token1_value => l_api_name,
1642: p_token2 => G_MISSING_PARAM_TOKEN,
1643: p_token2_value => 'p_asset_cle_id');
1644: x_return_status := OKL_API.G_RET_STS_ERROR;
1645: Raise OKL_API.G_EXCEPTION_ERROR;
1646: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
1647: validate_cle_id(p_cle_id => p_asset_cle_id,
1648: p_lty_code => 'FREE_FORM1',
1649: x_return_status => x_return_status);
1642: p_token2 => G_MISSING_PARAM_TOKEN,
1643: p_token2_value => 'p_asset_cle_id');
1644: x_return_status := OKL_API.G_RET_STS_ERROR;
1645: Raise OKL_API.G_EXCEPTION_ERROR;
1646: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
1647: validate_cle_id(p_cle_id => p_asset_cle_id,
1648: p_lty_code => 'FREE_FORM1',
1649: x_return_status => x_return_status);
1650: IF x_return_status = OKL_API.G_RET_STS_ERROR then
1646: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
1647: validate_cle_id(p_cle_id => p_asset_cle_id,
1648: p_lty_code => 'FREE_FORM1',
1649: x_return_status => x_return_status);
1650: IF x_return_status = OKL_API.G_RET_STS_ERROR then
1651: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
1652: Raise OKL_API.G_EXCEPTION_ERROR;
1653: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
1654: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: validate_cle_id(p_cle_id => p_asset_cle_id,
1648: p_lty_code => 'FREE_FORM1',
1649: x_return_status => x_return_status);
1650: IF x_return_status = OKL_API.G_RET_STS_ERROR then
1651: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
1652: Raise OKL_API.G_EXCEPTION_ERROR;
1653: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
1654: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: End If;
1648: p_lty_code => 'FREE_FORM1',
1649: x_return_status => x_return_status);
1650: IF x_return_status = OKL_API.G_RET_STS_ERROR then
1651: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
1652: Raise OKL_API.G_EXCEPTION_ERROR;
1653: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
1654: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: End If;
1656: End If;
1649: x_return_status => x_return_status);
1650: IF x_return_status = OKL_API.G_RET_STS_ERROR then
1651: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
1652: Raise OKL_API.G_EXCEPTION_ERROR;
1653: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
1654: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: End If;
1656: End If;
1657: ------------------------------------
1650: IF x_return_status = OKL_API.G_RET_STS_ERROR then
1651: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
1652: Raise OKL_API.G_EXCEPTION_ERROR;
1653: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
1654: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: End If;
1656: End If;
1657: ------------------------------------
1658: --end of input variable validations
1707: x_return_status => x_return_status,
1708: x_msg_count => x_msg_count,
1709: x_msg_data => x_msg_data);
1710:
1711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1708: x_msg_count => x_msg_count,
1709: x_msg_data => x_msg_data);
1710:
1711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716:
1709: x_msg_data => x_msg_data);
1710:
1711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716:
1717: ------------------------------------------------
1710:
1711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716:
1717: ------------------------------------------------
1718: --3. Add rate points to IRR to get modified IRR
1733: p_payment_tbl => l_payment_tbl,
1734: p_irr => l_orig_irr,
1735: x_npv => l_npv_orig);
1736:
1737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1740: RAISE OKL_API.G_EXCEPTION_ERROR;
1741: END IF;
1734: p_irr => l_orig_irr,
1735: x_npv => l_npv_orig);
1736:
1737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1740: RAISE OKL_API.G_EXCEPTION_ERROR;
1741: END IF;
1742:
1735: x_npv => l_npv_orig);
1736:
1737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1740: RAISE OKL_API.G_EXCEPTION_ERROR;
1741: END IF;
1742:
1743: --pv for new irr
1736:
1737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1740: RAISE OKL_API.G_EXCEPTION_ERROR;
1741: END IF;
1742:
1743: --pv for new irr
1744: calculate_pv (p_api_version => p_api_version,
1751: p_payment_tbl => l_payment_tbl,
1752: p_irr => l_modified_irr,
1753: x_npv => l_npv_new);
1754:
1755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_ERROR;
1759: END IF;
1752: p_irr => l_modified_irr,
1753: x_npv => l_npv_new);
1754:
1755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_ERROR;
1759: END IF;
1760:
1753: x_npv => l_npv_new);
1754:
1755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_ERROR;
1759: END IF;
1760:
1761:
1754:
1755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_ERROR;
1759: END IF;
1760:
1761:
1762: l_subsidy_amount := l_npv_orig - l_npv_new;
1768: if l_astnum_csr%NOTFOUND then
1769: null;
1770: end if;
1771: close l_astnum_csr;
1772: OKL_API.set_message(p_app_name => G_APP_NAME,
1773: p_msg_name => G_SUBSIDY_NO_RENTS,
1774: p_token1 => G_ASSET_NUMBER_TOKEN,
1775: p_token1_value => l_asset_number);
1776: x_return_status := OKL_API.G_RET_STS_ERROR;
1772: OKL_API.set_message(p_app_name => G_APP_NAME,
1773: p_msg_name => G_SUBSIDY_NO_RENTS,
1774: p_token1 => G_ASSET_NUMBER_TOKEN,
1775: p_token1_value => l_asset_number);
1776: x_return_status := OKL_API.G_RET_STS_ERROR;
1777: RAISE OKL_API.G_EXCEPTION_ERROR;
1778: End If;
1779:
1780: x_subsidy_amount := l_subsidy_amount;
1773: p_msg_name => G_SUBSIDY_NO_RENTS,
1774: p_token1 => G_ASSET_NUMBER_TOKEN,
1775: p_token1_value => l_asset_number);
1776: x_return_status := OKL_API.G_RET_STS_ERROR;
1777: RAISE OKL_API.G_EXCEPTION_ERROR;
1778: End If;
1779:
1780: x_subsidy_amount := l_subsidy_amount;
1781: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1777: RAISE OKL_API.G_EXCEPTION_ERROR;
1778: End If;
1779:
1780: x_subsidy_amount := l_subsidy_amount;
1781: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1782:
1783: EXCEPTION
1784:
1785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1781: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1782:
1783: EXCEPTION
1784:
1785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1786: If l_astnum_csr%ISOPEN then
1787: close l_astnum_csr;
1788: End If;
1789: If l_rent_csr%ISOPEN then
1788: End If;
1789: If l_rent_csr%ISOPEN then
1790: close l_rent_csr;
1791: End If;
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1793: l_api_name,
1794: G_PKG_NAME,
1795: 'OKL_API.G_RET_STS_ERROR',
1796: x_msg_count,
1791: End If;
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1793: l_api_name,
1794: G_PKG_NAME,
1795: 'OKL_API.G_RET_STS_ERROR',
1796: x_msg_count,
1797: x_msg_data,
1798: '_PVT');
1799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1795: 'OKL_API.G_RET_STS_ERROR',
1796: x_msg_count,
1797: x_msg_data,
1798: '_PVT');
1799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1800: If l_astnum_csr%ISOPEN then
1801: close l_astnum_csr;
1802: End If;
1803: If l_rent_csr%ISOPEN then
1802: End If;
1803: If l_rent_csr%ISOPEN then
1804: close l_rent_csr;
1805: End If;
1806: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1807: l_api_name,
1808: G_PKG_NAME,
1809: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1810: x_msg_count,
1805: End If;
1806: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1807: l_api_name,
1808: G_PKG_NAME,
1809: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1810: x_msg_count,
1811: x_msg_data,
1812: '_PVT');
1813: WHEN OTHERS THEN
1816: End If;
1817: If l_rent_csr%ISOPEN then
1818: close l_rent_csr;
1819: End If;
1820: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1821: l_api_name,
1822: G_PKG_NAME,
1823: 'OTHERS',
1824: x_msg_count,
1834: --PARAMETERS : IN p_from_currency in varchar2
1835: -- p_khr_id in contract header id
1836: -- p_transaction_date in transaction_date
1837: -- p_amount in number
1838: -- p_round_yn in varchar2 default OKL_API_G_TRUE
1839: -- OUT x_return_status
1840: -- x_converted amount
1841: --------------------------------------------------------------------------------
1842: Procedure Convert_currency(p_khr_id IN NUMBER,
1842: Procedure Convert_currency(p_khr_id IN NUMBER,
1843: p_from_currency IN VARCHAR2,
1844: p_transaction_date IN DATE,
1845: p_amount IN NUMBER,
1846: p_round_yn IN VARCHAR2 DEFAULT OKL_API.G_TRUE,
1847: x_converted_amount OUT NOCOPY NUMBER,
1848: x_return_status OUT NOCOPY VARCHAR2) is
1849:
1850: l_contract_currency okc_k_headers_b.currency_code%TYPE;
1882: p_token3 => G_CONV_TYPE_TOKEN,
1883: p_token3_value => l_currency_conversion_type,
1884: p_token4 => G_CONV_DATE_TOKEN,
1885: p_token4_value => to_char(l_currency_conversion_date,'DD-MON-YYYY'));
1886: x_return_status := OKL_API.G_RET_STS_ERROR;
1887: Raise error_condition;
1888: End If;
1889: ---------------------------------------------------------------------------
1890: --2. Call accounting util to do cross currency rounding
1888: End If;
1889: ---------------------------------------------------------------------------
1890: --2. Call accounting util to do cross currency rounding
1891: ---------------------------------------------------------------------------
1892: If p_round_yn = OKL_API.G_TRUE then
1893: l_rounded_subsidy_amount := OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT
1894: (l_converted_subsidy_amount,
1895: l_contract_currency);
1896:
1894: (l_converted_subsidy_amount,
1895: l_contract_currency);
1896:
1897: IF (l_converted_subsidy_amount <> 0 AND l_rounded_subsidy_amount = 0) THEN
1898: OKL_API.set_message(p_app_name => G_APP_NAME,
1899: p_msg_name => G_AMOUNT_ROUNDING);
1900: x_return_status := OKL_API.G_RET_STS_ERROR;
1901: RAISE error_condition;
1902: End If;
1896:
1897: IF (l_converted_subsidy_amount <> 0 AND l_rounded_subsidy_amount = 0) THEN
1898: OKL_API.set_message(p_app_name => G_APP_NAME,
1899: p_msg_name => G_AMOUNT_ROUNDING);
1900: x_return_status := OKL_API.G_RET_STS_ERROR;
1901: RAISE error_condition;
1902: End If;
1903: l_converted_subsidy_amount := l_rounded_subsidy_amount;
1904: End If;
1907: Exception
1908: When Error_Condition Then
1909: Null;
1910: When Others Then
1911: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1912: End Convert_Currency;
1913: --------------------------------------------------------------------------------
1914: --Name : calculate_subsidy_amount
1915: --Description : API to calculate subsidy amount based on subsidy calculation
1932: x_msg_data OUT NOCOPY VARCHAR2,
1933: p_subsidy_cle_id IN NUMBER,
1934: x_subsidy_amount OUT NOCOPY NUMBER) is
1935:
1936: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1937: l_api_name CONSTANT varchar2(30) := 'CALCULATE_SUBSIDY_AMOUNT';
1938: l_api_version CONSTANT NUMBER := 1.0;
1939:
1940: --cursor to fetch calculation basis
2029: l_flkup_meaning fnd_lookups.meaning%TYPE;
2030:
2031:
2032: begin
2033: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2034: -- Call start_activity to create savepoint, check compatibility
2035: -- and initialize message list
2036: x_return_status := OKL_API.START_ACTIVITY (
2037: l_api_name
2032: begin
2033: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2034: -- Call start_activity to create savepoint, check compatibility
2035: -- and initialize message list
2036: x_return_status := OKL_API.START_ACTIVITY (
2037: l_api_name
2038: ,p_init_msg_list
2039: ,'_PVT'
2040: ,x_return_status);
2038: ,p_init_msg_list
2039: ,'_PVT'
2040: ,x_return_status);
2041: -- Check if activity started successfully
2042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2045: RAISE OKL_API.G_EXCEPTION_ERROR;
2046: END IF;
2039: ,'_PVT'
2040: ,x_return_status);
2041: -- Check if activity started successfully
2042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2045: RAISE OKL_API.G_EXCEPTION_ERROR;
2046: END IF;
2047:
2040: ,x_return_status);
2041: -- Check if activity started successfully
2042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2045: RAISE OKL_API.G_EXCEPTION_ERROR;
2046: END IF;
2047:
2048: ---------------------------------------
2041: -- Check if activity started successfully
2042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2045: RAISE OKL_API.G_EXCEPTION_ERROR;
2046: END IF;
2047:
2048: ---------------------------------------
2049: --start of input parameter validations
2048: ---------------------------------------
2049: --start of input parameter validations
2050: ---------------------------------------
2051: --1.validate p_subsidy_cle_id
2052: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2053: OKL_API.set_message(
2054: p_app_name => G_APP_NAME,
2055: p_msg_name => G_API_MISSING_PARAMETER,
2056: p_token1 => G_API_NAME_TOKEN,
2049: --start of input parameter validations
2050: ---------------------------------------
2051: --1.validate p_subsidy_cle_id
2052: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2053: OKL_API.set_message(
2054: p_app_name => G_APP_NAME,
2055: p_msg_name => G_API_MISSING_PARAMETER,
2056: p_token1 => G_API_NAME_TOKEN,
2057: p_token1_value => l_api_name,
2056: p_token1 => G_API_NAME_TOKEN,
2057: p_token1_value => l_api_name,
2058: p_token2 => G_MISSING_PARAM_TOKEN,
2059: p_token2_value => 'p_subsidy_cle_id');
2060: x_return_status := OKL_API.G_RET_STS_ERROR;
2061: Raise OKL_API.G_EXCEPTION_ERROR;
2062: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2063: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2064: p_lty_code => 'SUBSIDY',
2057: p_token1_value => l_api_name,
2058: p_token2 => G_MISSING_PARAM_TOKEN,
2059: p_token2_value => 'p_subsidy_cle_id');
2060: x_return_status := OKL_API.G_RET_STS_ERROR;
2061: Raise OKL_API.G_EXCEPTION_ERROR;
2062: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2063: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2064: p_lty_code => 'SUBSIDY',
2065: x_return_status => x_return_status);
2058: p_token2 => G_MISSING_PARAM_TOKEN,
2059: p_token2_value => 'p_subsidy_cle_id');
2060: x_return_status := OKL_API.G_RET_STS_ERROR;
2061: Raise OKL_API.G_EXCEPTION_ERROR;
2062: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2063: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2064: p_lty_code => 'SUBSIDY',
2065: x_return_status => x_return_status);
2066: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2062: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2063: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2064: p_lty_code => 'SUBSIDY',
2065: x_return_status => x_return_status);
2066: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2067: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2068: Raise OKL_API.G_EXCEPTION_ERROR;
2069: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2070: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2063: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2064: p_lty_code => 'SUBSIDY',
2065: x_return_status => x_return_status);
2066: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2067: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2068: Raise OKL_API.G_EXCEPTION_ERROR;
2069: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2070: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2071: End If;
2064: p_lty_code => 'SUBSIDY',
2065: x_return_status => x_return_status);
2066: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2067: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2068: Raise OKL_API.G_EXCEPTION_ERROR;
2069: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2070: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2071: End If;
2072: End If;
2065: x_return_status => x_return_status);
2066: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2067: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2068: Raise OKL_API.G_EXCEPTION_ERROR;
2069: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2070: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2071: End If;
2072: End If;
2073: ------------------------------------
2066: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2067: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2068: Raise OKL_API.G_EXCEPTION_ERROR;
2069: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2070: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2071: End If;
2072: End If;
2073: ------------------------------------
2074: --end of input variable validations
2078: Open l_sub_calc_csr(p_subsidy_cle_id => p_subsidy_cle_id);
2079: Fetch l_sub_calc_csr into l_sub_calc_rec;
2080: If l_sub_calc_csr%NOTFOUND then
2081: --raise error
2082: OKL_API.set_message(p_app_name => G_APP_NAME,
2083: p_msg_name => G_MISSING_SUB_CALC_BASIS
2084: );
2085: x_return_status := OKL_API.G_RET_STS_ERROR;
2086: -- halt validation as it is a required setup
2081: --raise error
2082: OKL_API.set_message(p_app_name => G_APP_NAME,
2083: p_msg_name => G_MISSING_SUB_CALC_BASIS
2084: );
2085: x_return_status := OKL_API.G_RET_STS_ERROR;
2086: -- halt validation as it is a required setup
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: End If;
2089: Close l_sub_calc_csr;
2083: p_msg_name => G_MISSING_SUB_CALC_BASIS
2084: );
2085: x_return_status := OKL_API.G_RET_STS_ERROR;
2086: -- halt validation as it is a required setup
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: End If;
2089: Close l_sub_calc_csr;
2090:
2091: --always calculate do not override the original calculated amount
2089: Close l_sub_calc_csr;
2090:
2091: --always calculate do not override the original calculated amount
2092: --overide amount considered in overloaded calculate_subsidy_amount API
2093: IF l_sub_calc_rec.subsidy_calc_basis is Null OR l_sub_calc_rec.subsidy_calc_basis = OKL_API.G_MISS_CHAR then
2094: --raise error
2095: OKL_API.set_message(p_app_name => G_APP_NAME,
2096: p_msg_name => G_MISSING_SUB_CALC_BASIS,
2097: p_token1 => G_SUBSIDY_NAME_TOKEN,
2091: --always calculate do not override the original calculated amount
2092: --overide amount considered in overloaded calculate_subsidy_amount API
2093: IF l_sub_calc_rec.subsidy_calc_basis is Null OR l_sub_calc_rec.subsidy_calc_basis = OKL_API.G_MISS_CHAR then
2094: --raise error
2095: OKL_API.set_message(p_app_name => G_APP_NAME,
2096: p_msg_name => G_MISSING_SUB_CALC_BASIS,
2097: p_token1 => G_SUBSIDY_NAME_TOKEN,
2098: p_token1_value => l_sub_calc_rec.subsidy_name
2099: );
2096: p_msg_name => G_MISSING_SUB_CALC_BASIS,
2097: p_token1 => G_SUBSIDY_NAME_TOKEN,
2098: p_token1_value => l_sub_calc_rec.subsidy_name
2099: );
2100: x_return_status := OKL_API.G_RET_STS_ERROR;
2101: -- halt validation as it is a required setup to go ahead
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: ElsIf l_sub_calc_rec.subsidy_calc_basis = 'FIXED' then
2104: If l_sub_calc_rec.subsidy_setup_amount is Null OR l_sub_calc_rec.subsidy_setup_amount = OKL_API.G_MISS_NUM then
2098: p_token1_value => l_sub_calc_rec.subsidy_name
2099: );
2100: x_return_status := OKL_API.G_RET_STS_ERROR;
2101: -- halt validation as it is a required setup to go ahead
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: ElsIf l_sub_calc_rec.subsidy_calc_basis = 'FIXED' then
2104: If l_sub_calc_rec.subsidy_setup_amount is Null OR l_sub_calc_rec.subsidy_setup_amount = OKL_API.G_MISS_NUM then
2105:
2106: --raise error
2100: x_return_status := OKL_API.G_RET_STS_ERROR;
2101: -- halt validation as it is a required setup to go ahead
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: ElsIf l_sub_calc_rec.subsidy_calc_basis = 'FIXED' then
2104: If l_sub_calc_rec.subsidy_setup_amount is Null OR l_sub_calc_rec.subsidy_setup_amount = OKL_API.G_MISS_NUM then
2105:
2106: --raise error
2107: open l_flkup_csr(p_lookup_type => 'OKL_SUBCALC_BASIS',
2108: p_lookup_code => l_sub_calc_rec.subsidy_calc_basis);
2111: l_flkup_meaning := l_sub_calc_rec.subsidy_calc_basis;
2112: End If;
2113: close l_flkup_csr;
2114:
2115: OKL_API.set_message(p_app_name => G_APP_NAME,
2116: p_msg_name => G_MISSING_SUB_CALC_PARAMETER,
2117: p_token1 => G_PARAMETER_NAME_TOKEN,
2118: p_token1_value => 'Amount',
2119: p_token2 => G_CALC_BASIS_TOKEN,
2120: p_token2_value => l_flkup_meaning,
2121: p_token3 => G_SUBSIDY_NAME_TOKEN,
2122: p_token3_value => l_sub_calc_rec.subsidy_name
2123: );
2124: x_return_status := OKL_API.G_RET_STS_ERROR;
2125: -- halt validation as it is a required setup to go ahead
2126: RAISE OKL_API.G_EXCEPTION_ERROR;
2127: Else
2128: If l_sub_calc_rec.subsidy_setup_currency = l_sub_calc_rec.contract_currency then
2122: p_token3_value => l_sub_calc_rec.subsidy_name
2123: );
2124: x_return_status := OKL_API.G_RET_STS_ERROR;
2125: -- halt validation as it is a required setup to go ahead
2126: RAISE OKL_API.G_EXCEPTION_ERROR;
2127: Else
2128: If l_sub_calc_rec.subsidy_setup_currency = l_sub_calc_rec.contract_currency then
2129: l_subsidy_amount := l_sub_calc_rec.subsidy_setup_amount;
2130: Elsif l_sub_calc_rec.subsidy_setup_currency <> l_sub_calc_rec.contract_currency then
2134: p_amount => l_sub_calc_rec.subsidy_setup_amount,
2135: x_converted_amount => l_converted_subsidy_amount,
2136: x_return_status => x_return_status);
2137:
2138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2142: END IF;
2135: x_converted_amount => l_converted_subsidy_amount,
2136: x_return_status => x_return_status);
2137:
2138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2142: END IF;
2143: l_subsidy_amount := l_converted_subsidy_amount;
2136: x_return_status => x_return_status);
2137:
2138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2142: END IF;
2143: l_subsidy_amount := l_converted_subsidy_amount;
2144: End If;
2137:
2138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2142: END IF;
2143: l_subsidy_amount := l_converted_subsidy_amount;
2144: End If;
2145: End if;
2143: l_subsidy_amount := l_converted_subsidy_amount;
2144: End If;
2145: End if;
2146: ElsIf l_sub_calc_rec.subsidy_calc_basis = 'ASSETCOST' then
2147: If l_sub_calc_rec.subsidy_setup_percent is Null OR l_sub_calc_rec.subsidy_setup_percent = OKL_API.G_MISS_NUM then
2148:
2149: --raise error
2150: open l_flkup_csr(p_lookup_type => 'OKL_SUBCALC_BASIS',
2151: p_lookup_code => l_sub_calc_rec.subsidy_calc_basis);
2155: End If;
2156: close l_flkup_csr;
2157:
2158:
2159: OKL_API.set_message(p_app_name => G_APP_NAME,
2160: p_msg_name => G_MISSING_SUB_CALC_PARAMETER,
2161: p_token1 => G_PARAMETER_NAME_TOKEN,
2162: p_token1_value => 'Percent',
2163: p_token2 => G_CALC_BASIS_TOKEN,
2164: p_token2_value => l_flkup_meaning,
2165: p_token3 => G_SUBSIDY_NAME_TOKEN,
2166: p_token3_value => l_sub_calc_rec.subsidy_name
2167: );
2168: x_return_status := OKL_API.G_RET_STS_ERROR;
2169: -- halt validation as it is a required setup to go ahead
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2171: Else
2172: --get original equipment cost from formula
2166: p_token3_value => l_sub_calc_rec.subsidy_name
2167: );
2168: x_return_status := OKL_API.G_RET_STS_ERROR;
2169: -- halt validation as it is a required setup to go ahead
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2171: Else
2172: --get original equipment cost from formula
2173: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
2174: p_init_msg_list => p_init_msg_list,
2179: p_contract_id => l_sub_calc_rec.dnz_chr_id,
2180: p_line_id => l_sub_calc_rec.asset_cle_id,
2181: x_value => l_oec);
2182:
2183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2186: RAISE OKL_API.G_EXCEPTION_ERROR;
2187: END IF;
2180: p_line_id => l_sub_calc_rec.asset_cle_id,
2181: x_value => l_oec);
2182:
2183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2186: RAISE OKL_API.G_EXCEPTION_ERROR;
2187: END IF;
2188:
2181: x_value => l_oec);
2182:
2183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2186: RAISE OKL_API.G_EXCEPTION_ERROR;
2187: END IF;
2188:
2189: --Bug# 3313802 : maximum financed amount moved from subsidy criteria to
2182:
2183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2186: RAISE OKL_API.G_EXCEPTION_ERROR;
2187: END IF;
2188:
2189: --Bug# 3313802 : maximum financed amount moved from subsidy criteria to
2190: -- main subsidy setup
2211: p_amount => l_max_financed_amount,
2212: x_converted_amount => l_conv_max_fin_amount,
2213: x_return_status => x_return_status);
2214:
2215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2218: RAISE OKL_API.G_EXCEPTION_ERROR;
2219: END IF;
2212: x_converted_amount => l_conv_max_fin_amount,
2213: x_return_status => x_return_status);
2214:
2215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2218: RAISE OKL_API.G_EXCEPTION_ERROR;
2219: END IF;
2220: End If;
2213: x_return_status => x_return_status);
2214:
2215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2218: RAISE OKL_API.G_EXCEPTION_ERROR;
2219: END IF;
2220: End If;
2221:
2214:
2215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2218: RAISE OKL_API.G_EXCEPTION_ERROR;
2219: END IF;
2220: End If;
2221:
2222: If (l_oec > l_conv_max_fin_amount) then
2229:
2230: l_subsidy_amount := l_oec * (l_sub_calc_rec.subsidy_setup_percent/100);
2231:
2232: ElsIf l_sub_calc_rec.subsidy_calc_basis = 'FORMULA' then
2233: If l_sub_calc_rec.formula_id is Null OR l_sub_calc_rec.formula_id = OKL_API.G_MISS_NUM then
2234:
2235: --raise error
2236: open l_flkup_csr(p_lookup_type => 'OKL_SUBCALC_BASIS',
2237: p_lookup_code => l_sub_calc_rec.subsidy_calc_basis);
2241: End If;
2242: close l_flkup_csr;
2243:
2244:
2245: OKL_API.set_message(p_app_name => G_APP_NAME,
2246: p_msg_name => G_MISSING_SUB_CALC_PARAMETER,
2247: p_token1 => G_PARAMETER_NAME_TOKEN,
2248: p_token1_value => 'Formula Name',
2249: p_token2 => G_CALC_BASIS_TOKEN,
2250: p_token2_value => l_flkup_meaning,
2251: p_token3 => G_SUBSIDY_NAME_TOKEN,
2252: p_token3_value => l_sub_calc_rec.subsidy_name
2253: );
2254: x_return_status := OKL_API.G_RET_STS_ERROR;
2255: -- halt validation as it is a required setup to go ahead
2256: RAISE OKL_API.G_EXCEPTION_ERROR;
2257: Else
2258: Open l_fmla_csr (p_formula_id => l_sub_calc_rec.formula_id);
2252: p_token3_value => l_sub_calc_rec.subsidy_name
2253: );
2254: x_return_status := OKL_API.G_RET_STS_ERROR;
2255: -- halt validation as it is a required setup to go ahead
2256: RAISE OKL_API.G_EXCEPTION_ERROR;
2257: Else
2258: Open l_fmla_csr (p_formula_id => l_sub_calc_rec.formula_id);
2259: Fetch l_fmla_csr into l_formula_name;
2260: If l_fmla_csr%NOTFOUND then
2258: Open l_fmla_csr (p_formula_id => l_sub_calc_rec.formula_id);
2259: Fetch l_fmla_csr into l_formula_name;
2260: If l_fmla_csr%NOTFOUND then
2261: --raise error
2262: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Calculation Formula');
2263: x_return_status := OKL_API.G_RET_STS_ERROR;
2264: -- halt validation as it is a required setup to go ahead
2265: RAISE OKL_API.G_EXCEPTION_ERROR;
2266: End If;
2259: Fetch l_fmla_csr into l_formula_name;
2260: If l_fmla_csr%NOTFOUND then
2261: --raise error
2262: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Calculation Formula');
2263: x_return_status := OKL_API.G_RET_STS_ERROR;
2264: -- halt validation as it is a required setup to go ahead
2265: RAISE OKL_API.G_EXCEPTION_ERROR;
2266: End If;
2267: Close l_fmla_csr;
2261: --raise error
2262: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Calculation Formula');
2263: x_return_status := OKL_API.G_RET_STS_ERROR;
2264: -- halt validation as it is a required setup to go ahead
2265: RAISE OKL_API.G_EXCEPTION_ERROR;
2266: End If;
2267: Close l_fmla_csr;
2268:
2269: --Execte Formula
2277: --Bug# 3487167
2278: p_line_id => l_sub_calc_rec.asset_cle_id,
2279: --p_line_id => l_sub_calc_rec.subsidy_cle_id,
2280: x_value => l_subsidy_amount);
2281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2284: raise OKL_API.G_EXCEPTION_ERROR;
2285: End If;
2278: p_line_id => l_sub_calc_rec.asset_cle_id,
2279: --p_line_id => l_sub_calc_rec.subsidy_cle_id,
2280: x_value => l_subsidy_amount);
2281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2284: raise OKL_API.G_EXCEPTION_ERROR;
2285: End If;
2286:
2279: --p_line_id => l_sub_calc_rec.subsidy_cle_id,
2280: x_value => l_subsidy_amount);
2281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2284: raise OKL_API.G_EXCEPTION_ERROR;
2285: End If;
2286:
2287: End If;
2280: x_value => l_subsidy_amount);
2281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2284: raise OKL_API.G_EXCEPTION_ERROR;
2285: End If;
2286:
2287: End If;
2288: Elsif l_sub_calc_rec.subsidy_calc_basis = 'RATE' then
2285: End If;
2286:
2287: End If;
2288: Elsif l_sub_calc_rec.subsidy_calc_basis = 'RATE' then
2289: If l_sub_calc_rec.rate_points is Null OR l_sub_calc_rec.rate_points = OKL_API.G_MISS_NUM then
2290: --raise error
2291: open l_flkup_csr(p_lookup_type => 'OKL_SUBCALC_BASIS',
2292: p_lookup_code => l_sub_calc_rec.subsidy_calc_basis);
2293: fetch l_flkup_csr into l_flkup_meaning;
2295: l_flkup_meaning := l_sub_calc_rec.subsidy_calc_basis;
2296: End If;
2297: close l_flkup_csr;
2298:
2299: OKL_API.set_message(p_app_name => G_APP_NAME,
2300: p_msg_name => G_MISSING_SUB_CALC_PARAMETER,
2301: p_token1 => G_PARAMETER_NAME_TOKEN,
2302: p_token1_value => 'Rate Points',
2303: p_token2 => G_CALC_BASIS_TOKEN,
2304: p_token2_value => l_flkup_meaning,
2305: p_token3 => G_SUBSIDY_NAME_TOKEN,
2306: p_token3_value => l_sub_calc_rec.subsidy_name
2307: );
2308: x_return_status := OKL_API.G_RET_STS_ERROR;
2309: -- halt validation as it is a required setup to go ahead
2310: RAISE OKL_API.G_EXCEPTION_ERROR;
2311: Else
2312: calc_rate_points_amount(p_api_version => p_api_version,
2306: p_token3_value => l_sub_calc_rec.subsidy_name
2307: );
2308: x_return_status := OKL_API.G_RET_STS_ERROR;
2309: -- halt validation as it is a required setup to go ahead
2310: RAISE OKL_API.G_EXCEPTION_ERROR;
2311: Else
2312: calc_rate_points_amount(p_api_version => p_api_version,
2313: p_init_msg_list => p_init_msg_list,
2314: x_return_status => x_return_status,
2318: p_chr_id => l_sub_calc_rec.dnz_chr_id,
2319: p_asset_cle_id => l_sub_calc_rec.asset_cle_id,
2320: x_subsidy_amount => l_subsidy_amount);
2321:
2322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2324: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2325: raise OKL_API.G_EXCEPTION_ERROR;
2326: End If;
2319: p_asset_cle_id => l_sub_calc_rec.asset_cle_id,
2320: x_subsidy_amount => l_subsidy_amount);
2321:
2322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2324: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2325: raise OKL_API.G_EXCEPTION_ERROR;
2326: End If;
2327: End If;
2320: x_subsidy_amount => l_subsidy_amount);
2321:
2322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2324: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2325: raise OKL_API.G_EXCEPTION_ERROR;
2326: End If;
2327: End If;
2328:
2321:
2322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2324: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2325: raise OKL_API.G_EXCEPTION_ERROR;
2326: End If;
2327: End If;
2328:
2329: -------------------------------------------------------------
2330: -- Added by veramach for Bug#6622178
2331: -- Calculating subsidy amount on the basis of Financed Amount
2332: -------------------------------------------------------------
2333: ELSIF l_sub_calc_rec.subsidy_calc_basis = 'FINANCED_AMOUNT' THEN
2334: IF l_sub_calc_rec.subsidy_setup_percent IS NULL OR l_sub_calc_rec.subsidy_setup_percent = OKL_API.G_MISS_NUM THEN
2335: --raise error
2336: OPEN l_flkup_csr(p_lookup_type => 'OKL_SUBCALC_BASIS',
2337: p_lookup_code => l_sub_calc_rec.subsidy_calc_basis);
2338: FETCH l_flkup_csr INTO l_flkup_meaning;
2339: IF l_flkup_csr%NOTFOUND THEN
2340: l_flkup_meaning := l_sub_calc_rec.subsidy_calc_basis;
2341: END IF;
2342: CLOSE l_flkup_csr;
2343: OKL_API.set_message(p_app_name => G_APP_NAME,
2344: p_msg_name => G_MISSING_SUB_CALC_PARAMETER,
2345: p_token1 => G_PARAMETER_NAME_TOKEN,
2346: p_token1_value => 'Percent',
2347: p_token2 => G_CALC_BASIS_TOKEN,
2348: p_token2_value => l_flkup_meaning,
2349: p_token3 => G_SUBSIDY_NAME_TOKEN,
2350: p_token3_value => l_sub_calc_rec.subsidy_name
2351: );
2352: x_return_status := OKL_API.G_RET_STS_ERROR;
2353: --halt validation as it is a required setup to go ahead
2354: RAISE OKL_API.G_EXCEPTION_ERROR;
2355: ELSE
2356: --get original financed amount from formula
2350: p_token3_value => l_sub_calc_rec.subsidy_name
2351: );
2352: x_return_status := OKL_API.G_RET_STS_ERROR;
2353: --halt validation as it is a required setup to go ahead
2354: RAISE OKL_API.G_EXCEPTION_ERROR;
2355: ELSE
2356: --get original financed amount from formula
2357: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
2358: p_init_msg_list => p_init_msg_list,
2362: p_formula_name => 'FRONT_END_FINANCED_AMOUNT',
2363: p_contract_id => l_sub_calc_rec.dnz_chr_id,
2364: p_line_id => l_sub_calc_rec.asset_cle_id,
2365: x_value => l_finance_amount);
2366: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2369: RAISE OKL_API.G_EXCEPTION_ERROR;
2370: END IF;
2363: p_contract_id => l_sub_calc_rec.dnz_chr_id,
2364: p_line_id => l_sub_calc_rec.asset_cle_id,
2365: x_value => l_finance_amount);
2366: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2369: RAISE OKL_API.G_EXCEPTION_ERROR;
2370: END IF;
2371:
2364: p_line_id => l_sub_calc_rec.asset_cle_id,
2365: x_value => l_finance_amount);
2366: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2369: RAISE OKL_API.G_EXCEPTION_ERROR;
2370: END IF;
2371:
2372: l_max_financed_amount := l_sub_calc_rec.maximum_financed_amount;
2365: x_value => l_finance_amount);
2366: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2369: RAISE OKL_API.G_EXCEPTION_ERROR;
2370: END IF;
2371:
2372: l_max_financed_amount := l_sub_calc_rec.maximum_financed_amount;
2373:
2380: p_amount => l_max_financed_amount,
2381: x_converted_amount => l_conv_max_fin_amount,
2382: x_return_status => x_return_status);
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2381: x_converted_amount => l_conv_max_fin_amount,
2382: x_return_status => x_return_status);
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: END IF;
2382: x_return_status => x_return_status);
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: END IF;
2390:
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: END IF;
2390:
2391: IF (l_finance_amount > l_conv_max_fin_amount) THEN
2394: END IF;
2395: l_subsidy_amount := l_finance_amount * (l_sub_calc_rec.subsidy_setup_percent/100);
2396: -- End by veramach for Bug#6622178
2397: Else
2398: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Calculation Basis');
2399: x_return_status := OKL_API.G_RET_STS_ERROR;
2400: raise OKL_API.G_EXCEPTION_ERROR;
2401: End If;
2402:
2395: l_subsidy_amount := l_finance_amount * (l_sub_calc_rec.subsidy_setup_percent/100);
2396: -- End by veramach for Bug#6622178
2397: Else
2398: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Calculation Basis');
2399: x_return_status := OKL_API.G_RET_STS_ERROR;
2400: raise OKL_API.G_EXCEPTION_ERROR;
2401: End If;
2402:
2403: --Bug# 3313802 : Maximum subsidy amount moved from subsidy
2396: -- End by veramach for Bug#6622178
2397: Else
2398: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Calculation Basis');
2399: x_return_status := OKL_API.G_RET_STS_ERROR;
2400: raise OKL_API.G_EXCEPTION_ERROR;
2401: End If;
2402:
2403: --Bug# 3313802 : Maximum subsidy amount moved from subsidy
2404: /*--------------------------------------------------------------------
2422: p_amount => l_max_subsidy_amount,
2423: x_converted_amount => l_conv_max_sub_amount,
2424: x_return_status => x_return_status);
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2423: x_converted_amount => l_conv_max_sub_amount,
2424: x_return_status => x_return_status);
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2431: END IF;
2424: x_return_status => x_return_status);
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2431: END IF;
2432: If (l_subsidy_amount > l_conv_max_sub_amount) then
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2431: END IF;
2432: If (l_subsidy_amount > l_conv_max_sub_amount) then
2433: l_subsidy_amount := l_conv_max_sub_amount;
2436: --End If;
2437: --Close l_sub_limits_csr;
2438:
2439: x_subsidy_amount := l_subsidy_amount;
2440: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2441:
2442: EXCEPTION
2443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2444: If l_sub_calc_csr%ISOPEN then
2439: x_subsidy_amount := l_subsidy_amount;
2440: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2441:
2442: EXCEPTION
2443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2444: If l_sub_calc_csr%ISOPEN then
2445: CLOSE l_sub_calc_csr;
2446: End If;
2447: If l_fmla_csr%ISOPEN then
2455: --End If;
2456: ---------------------------*/
2457: --Bug# 3394233
2458: -----------------------
2459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2460: l_api_name,
2461: G_PKG_NAME,
2462: 'OKL_API.G_RET_STS_ERROR',
2463: x_msg_count,
2458: -----------------------
2459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2460: l_api_name,
2461: G_PKG_NAME,
2462: 'OKL_API.G_RET_STS_ERROR',
2463: x_msg_count,
2464: x_msg_data,
2465: '_PVT');
2466: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2462: 'OKL_API.G_RET_STS_ERROR',
2463: x_msg_count,
2464: x_msg_data,
2465: '_PVT');
2466: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2467: If l_sub_calc_csr%ISOPEN then
2468: CLOSE l_sub_calc_csr;
2469: End If;
2470: If l_fmla_csr%ISOPEN then
2478: --End If;
2479: ---------------------------*/
2480: --Bug# 3394233
2481: -----------------------
2482: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2483: l_api_name,
2484: G_PKG_NAME,
2485: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2486: x_msg_count,
2481: -----------------------
2482: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2483: l_api_name,
2484: G_PKG_NAME,
2485: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2486: x_msg_count,
2487: x_msg_data,
2488: '_PVT');
2489: WHEN OTHERS THEN
2501: --End If;
2502: ---------------------------*/
2503: --Bug# 3394233
2504: -----------------------
2505: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2506: l_api_name,
2507: G_PKG_NAME,
2508: 'OTHERS',
2509: x_msg_count,
2514: --Name : calculate_subsidy_amount (overloaded)
2515: --Description : API to calculate subsidy amount based on subsidy calculation
2516: -- criteria for a subsidy line. If subsidy_override amount is
2517: -- specified and overloaded parameter p_override_yn is
2518: -- OKL_API.G_TRUE then subsidy_amount = subsidy_override_amount
2519: -- This overloaded form will be called to re-calculate total of
2520: -- subsidies at asset or contract level at the time of QA check
2521: -- or any other time where total calculated is to be copared
2522: -- against total stored amount of subsidies
2520: -- subsidies at asset or contract level at the time of QA check
2521: -- or any other time where total calculated is to be copared
2522: -- against total stored amount of subsidies
2523: -- PARAMETERS : IN - p_subsidy_cle_id : subsidy line id
2524: -- p_override_yn : OKL_API.G_TRUE/OKL_API.G_FALSE (will
2525: -- determine whether subsidy override
2526: -- amount is to be taken into account
2527: -- OUT - x_subsidy_amount : subsidy amount
2528: --------------------------------------------------------------------------------
2535: p_subsidy_cle_id IN NUMBER,
2536: p_override_yn IN VARCHAR2,
2537: x_subsidy_amount OUT NOCOPY NUMBER) is
2538:
2539: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
2540: l_api_name CONSTANT varchar2(30) := 'CALCULATE_SUBSIDY_AMOUNT';
2541: l_api_version CONSTANT NUMBER := 1.0;
2542:
2543: --------------------------------------------------
2554: l_subsidy_override_amount okl_k_lines.subsidy_override_amount%TYPE default NULL;
2555: l_subsidy_amount number;
2556:
2557: begin
2558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2559: -- Call start_activity to create savepoint, check compatibility
2560: -- and initialize message list
2561: x_return_status := OKL_API.START_ACTIVITY (
2562: l_api_name
2557: begin
2558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2559: -- Call start_activity to create savepoint, check compatibility
2560: -- and initialize message list
2561: x_return_status := OKL_API.START_ACTIVITY (
2562: l_api_name
2563: ,p_init_msg_list
2564: ,'_PVT'
2565: ,x_return_status);
2563: ,p_init_msg_list
2564: ,'_PVT'
2565: ,x_return_status);
2566: -- Check if activity started successfully
2567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2570: RAISE OKL_API.G_EXCEPTION_ERROR;
2571: END IF;
2564: ,'_PVT'
2565: ,x_return_status);
2566: -- Check if activity started successfully
2567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2570: RAISE OKL_API.G_EXCEPTION_ERROR;
2571: END IF;
2572:
2565: ,x_return_status);
2566: -- Check if activity started successfully
2567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2570: RAISE OKL_API.G_EXCEPTION_ERROR;
2571: END IF;
2572:
2573: --------------------------------------
2566: -- Check if activity started successfully
2567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2570: RAISE OKL_API.G_EXCEPTION_ERROR;
2571: END IF;
2572:
2573: --------------------------------------
2574: --start of input parameter validations
2573: --------------------------------------
2574: --start of input parameter validations
2575: --------------------------------------
2576: --1.validate p_subsidy_cle_id
2577: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2578: OKL_API.set_message(
2579: p_app_name => G_APP_NAME,
2580: p_msg_name => G_API_MISSING_PARAMETER,
2581: p_token1 => G_API_NAME_TOKEN,
2574: --start of input parameter validations
2575: --------------------------------------
2576: --1.validate p_subsidy_cle_id
2577: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2578: OKL_API.set_message(
2579: p_app_name => G_APP_NAME,
2580: p_msg_name => G_API_MISSING_PARAMETER,
2581: p_token1 => G_API_NAME_TOKEN,
2582: p_token1_value => l_api_name,
2581: p_token1 => G_API_NAME_TOKEN,
2582: p_token1_value => l_api_name,
2583: p_token2 => G_MISSING_PARAM_TOKEN,
2584: p_token2_value => 'p_subsidy_cle_id');
2585: x_return_status := OKL_API.G_RET_STS_ERROR;
2586: Raise OKL_API.G_EXCEPTION_ERROR;
2587: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2588: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2589: p_lty_code => 'SUBSIDY',
2582: p_token1_value => l_api_name,
2583: p_token2 => G_MISSING_PARAM_TOKEN,
2584: p_token2_value => 'p_subsidy_cle_id');
2585: x_return_status := OKL_API.G_RET_STS_ERROR;
2586: Raise OKL_API.G_EXCEPTION_ERROR;
2587: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2588: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2589: p_lty_code => 'SUBSIDY',
2590: x_return_status => x_return_status);
2583: p_token2 => G_MISSING_PARAM_TOKEN,
2584: p_token2_value => 'p_subsidy_cle_id');
2585: x_return_status := OKL_API.G_RET_STS_ERROR;
2586: Raise OKL_API.G_EXCEPTION_ERROR;
2587: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2588: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2589: p_lty_code => 'SUBSIDY',
2590: x_return_status => x_return_status);
2591: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2587: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2588: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2589: p_lty_code => 'SUBSIDY',
2590: x_return_status => x_return_status);
2591: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2592: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2593: Raise OKL_API.G_EXCEPTION_ERROR;
2594: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2595: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2589: p_lty_code => 'SUBSIDY',
2590: x_return_status => x_return_status);
2591: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2592: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2593: Raise OKL_API.G_EXCEPTION_ERROR;
2594: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2595: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: End If;
2589: p_lty_code => 'SUBSIDY',
2590: x_return_status => x_return_status);
2591: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2592: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2593: Raise OKL_API.G_EXCEPTION_ERROR;
2594: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2595: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: End If;
2597: End If;
2590: x_return_status => x_return_status);
2591: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2592: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2593: Raise OKL_API.G_EXCEPTION_ERROR;
2594: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2595: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: End If;
2597: End If;
2598:
2591: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2592: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2593: Raise OKL_API.G_EXCEPTION_ERROR;
2594: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2595: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: End If;
2597: End If;
2598:
2599: --2.validate p_override_yn
2597: End If;
2598:
2599: --2.validate p_override_yn
2600: If p_override_yn is NULL Then
2601: OKL_API.set_message(
2602: p_app_name => G_APP_NAME,
2603: p_msg_name => G_API_MISSING_PARAMETER,
2604: p_token1 => G_API_NAME_TOKEN,
2605: p_token1_value => l_api_name,
2604: p_token1 => G_API_NAME_TOKEN,
2605: p_token1_value => l_api_name,
2606: p_token2 => G_MISSING_PARAM_TOKEN,
2607: p_token2_value => 'p_override_yn');
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: Raise OKL_API.G_EXCEPTION_ERROR;
2610:
2611: ElsIf (p_override_yn is Not Null) then
2612: If p_override_yn not in (OKL_API.G_TRUE,OKL_API.G_FALSE) then
2605: p_token1_value => l_api_name,
2606: p_token2 => G_MISSING_PARAM_TOKEN,
2607: p_token2_value => 'p_override_yn');
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: Raise OKL_API.G_EXCEPTION_ERROR;
2610:
2611: ElsIf (p_override_yn is Not Null) then
2612: If p_override_yn not in (OKL_API.G_TRUE,OKL_API.G_FALSE) then
2613: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_override_yn');
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: Raise OKL_API.G_EXCEPTION_ERROR;
2610:
2611: ElsIf (p_override_yn is Not Null) then
2612: If p_override_yn not in (OKL_API.G_TRUE,OKL_API.G_FALSE) then
2613: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_override_yn');
2614: Raise OKL_API.G_EXCEPTION_ERROR;
2615: End If;
2616: End If;
2609: Raise OKL_API.G_EXCEPTION_ERROR;
2610:
2611: ElsIf (p_override_yn is Not Null) then
2612: If p_override_yn not in (OKL_API.G_TRUE,OKL_API.G_FALSE) then
2613: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_override_yn');
2614: Raise OKL_API.G_EXCEPTION_ERROR;
2615: End If;
2616: End If;
2617: -----------------------------------
2610:
2611: ElsIf (p_override_yn is Not Null) then
2612: If p_override_yn not in (OKL_API.G_TRUE,OKL_API.G_FALSE) then
2613: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_override_yn');
2614: Raise OKL_API.G_EXCEPTION_ERROR;
2615: End If;
2616: End If;
2617: -----------------------------------
2618: --end of input variable validations
2617: -----------------------------------
2618: --end of input variable validations
2619: -----------------------------------
2620:
2621: If p_override_yn = OKL_API.G_TRUE then
2622: open l_kle_csr (p_cle_id => p_subsidy_cle_id);
2623: fetch l_kle_csr into l_subsidy_override_amount;
2624: if l_kle_csr%NOTFOUND then
2625: Null;
2627: close l_kle_csr;
2628: End If;
2629:
2630: If (l_subsidy_override_amount is NOT NULL) and
2631: (l_subsidy_override_amount <> OKL_API.G_MISS_NUM) and
2632: (p_override_yn = OKL_API.G_TRUE) then
2633:
2634: l_subsidy_amount := l_subsidy_override_amount;
2635:
2628: End If;
2629:
2630: If (l_subsidy_override_amount is NOT NULL) and
2631: (l_subsidy_override_amount <> OKL_API.G_MISS_NUM) and
2632: (p_override_yn = OKL_API.G_TRUE) then
2633:
2634: l_subsidy_amount := l_subsidy_override_amount;
2635:
2636: Elsif (l_subsidy_override_amount is NULL) OR
2633:
2634: l_subsidy_amount := l_subsidy_override_amount;
2635:
2636: Elsif (l_subsidy_override_amount is NULL) OR
2637: (l_subsidy_override_amount = OKL_API.G_MISS_NUM) OR
2638: (p_override_yn = OKL_API.G_FALSE) then
2639:
2640: calculate_subsidy_amount(
2641: p_api_version => p_api_version,
2634: l_subsidy_amount := l_subsidy_override_amount;
2635:
2636: Elsif (l_subsidy_override_amount is NULL) OR
2637: (l_subsidy_override_amount = OKL_API.G_MISS_NUM) OR
2638: (p_override_yn = OKL_API.G_FALSE) then
2639:
2640: calculate_subsidy_amount(
2641: p_api_version => p_api_version,
2642: p_init_msg_list => p_init_msg_list,
2645: x_msg_data => x_msg_data,
2646: p_subsidy_cle_id => p_subsidy_cle_id,
2647: x_subsidy_amount => l_subsidy_amount);
2648:
2649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2652: RAISE OKL_API.G_EXCEPTION_ERROR;
2653: END IF;
2646: p_subsidy_cle_id => p_subsidy_cle_id,
2647: x_subsidy_amount => l_subsidy_amount);
2648:
2649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2652: RAISE OKL_API.G_EXCEPTION_ERROR;
2653: END IF;
2654:
2647: x_subsidy_amount => l_subsidy_amount);
2648:
2649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2652: RAISE OKL_API.G_EXCEPTION_ERROR;
2653: END IF;
2654:
2655: End If;
2648:
2649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2652: RAISE OKL_API.G_EXCEPTION_ERROR;
2653: END IF;
2654:
2655: End If;
2656:
2654:
2655: End If;
2656:
2657: x_subsidy_amount := l_subsidy_amount;
2658: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2659:
2660: EXCEPTION
2661: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2662: If l_kle_csr%ISOPEN then
2657: x_subsidy_amount := l_subsidy_amount;
2658: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2659:
2660: EXCEPTION
2661: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2662: If l_kle_csr%ISOPEN then
2663: close l_kle_csr;
2664: End If;
2665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2661: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2662: If l_kle_csr%ISOPEN then
2663: close l_kle_csr;
2664: End If;
2665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2666: l_api_name,
2667: G_PKG_NAME,
2668: 'OKL_API.G_RET_STS_ERROR',
2669: x_msg_count,
2664: End If;
2665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2666: l_api_name,
2667: G_PKG_NAME,
2668: 'OKL_API.G_RET_STS_ERROR',
2669: x_msg_count,
2670: x_msg_data,
2671: '_PVT');
2672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2668: 'OKL_API.G_RET_STS_ERROR',
2669: x_msg_count,
2670: x_msg_data,
2671: '_PVT');
2672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2673: If l_kle_csr%ISOPEN then
2674: close l_kle_csr;
2675: End If;
2676: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2673: If l_kle_csr%ISOPEN then
2674: close l_kle_csr;
2675: End If;
2676: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2677: l_api_name,
2678: G_PKG_NAME,
2679: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2680: x_msg_count,
2675: End If;
2676: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2677: l_api_name,
2678: G_PKG_NAME,
2679: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2680: x_msg_count,
2681: x_msg_data,
2682: '_PVT');
2683: WHEN OTHERS THEN
2683: WHEN OTHERS THEN
2684: If l_kle_csr%ISOPEN then
2685: close l_kle_csr;
2686: End If;
2687: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2688: l_api_name,
2689: G_PKG_NAME,
2690: 'OTHERS',
2691: x_msg_count,
2707: x_msg_data OUT NOCOPY VARCHAR2,
2708: p_subsidy_cle_id IN NUMBER,
2709: x_subsidy_amount OUT NOCOPY NUMBER) is
2710:
2711: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
2712: l_api_name CONSTANT varchar2(30) := 'GET_SUBSIDY_AMOUNT';
2713: l_api_version CONSTANT NUMBER := 1.0;
2714:
2715: l_subsidy_amount Number;
2726:
2727:
2728:
2729: Begin
2730: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2731:
2732: -----------------------------------------
2733: --start of input parameter validations
2734: -----------------------------------------
2732: -----------------------------------------
2733: --start of input parameter validations
2734: -----------------------------------------
2735: --1.validate p_subsidy_cle_id
2736: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2737: OKL_API.set_message(
2738: p_app_name => G_APP_NAME,
2739: p_msg_name => G_API_MISSING_PARAMETER,
2740: p_token1 => G_API_NAME_TOKEN,
2733: --start of input parameter validations
2734: -----------------------------------------
2735: --1.validate p_subsidy_cle_id
2736: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2737: OKL_API.set_message(
2738: p_app_name => G_APP_NAME,
2739: p_msg_name => G_API_MISSING_PARAMETER,
2740: p_token1 => G_API_NAME_TOKEN,
2741: p_token1_value => l_api_name,
2740: p_token1 => G_API_NAME_TOKEN,
2741: p_token1_value => l_api_name,
2742: p_token2 => G_MISSING_PARAM_TOKEN,
2743: p_token2_value => 'p_subsidy_cle_id');
2744: x_return_status := OKL_API.G_RET_STS_ERROR;
2745: Raise OKL_API.G_EXCEPTION_ERROR;
2746: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2747: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2748: p_lty_code => 'SUBSIDY',
2741: p_token1_value => l_api_name,
2742: p_token2 => G_MISSING_PARAM_TOKEN,
2743: p_token2_value => 'p_subsidy_cle_id');
2744: x_return_status := OKL_API.G_RET_STS_ERROR;
2745: Raise OKL_API.G_EXCEPTION_ERROR;
2746: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2747: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2748: p_lty_code => 'SUBSIDY',
2749: x_return_status => x_return_status);
2742: p_token2 => G_MISSING_PARAM_TOKEN,
2743: p_token2_value => 'p_subsidy_cle_id');
2744: x_return_status := OKL_API.G_RET_STS_ERROR;
2745: Raise OKL_API.G_EXCEPTION_ERROR;
2746: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2747: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2748: p_lty_code => 'SUBSIDY',
2749: x_return_status => x_return_status);
2750: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2746: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2747: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2748: p_lty_code => 'SUBSIDY',
2749: x_return_status => x_return_status);
2750: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2751: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2752: Raise OKL_API.G_EXCEPTION_ERROR;
2753: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2754: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2747: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2748: p_lty_code => 'SUBSIDY',
2749: x_return_status => x_return_status);
2750: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2751: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2752: Raise OKL_API.G_EXCEPTION_ERROR;
2753: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2754: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: End If;
2748: p_lty_code => 'SUBSIDY',
2749: x_return_status => x_return_status);
2750: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2751: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2752: Raise OKL_API.G_EXCEPTION_ERROR;
2753: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2754: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: End If;
2756: End If;
2749: x_return_status => x_return_status);
2750: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2751: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2752: Raise OKL_API.G_EXCEPTION_ERROR;
2753: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2754: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: End If;
2756: End If;
2757: -------------------------------------
2750: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2751: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2752: Raise OKL_API.G_EXCEPTION_ERROR;
2753: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2754: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: End If;
2756: End If;
2757: -------------------------------------
2758: --end of input parameter validations
2772:
2773: x_subsidy_amount := l_subsidy_amount;
2774:
2775: EXCEPTION
2776: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2777: If l_cleb_csr%ISOPEN then
2778: CLOSE l_cleb_csr;
2779: End If;
2780: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2776: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2777: If l_cleb_csr%ISOPEN then
2778: CLOSE l_cleb_csr;
2779: End If;
2780: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2781: l_api_name,
2782: G_PKG_NAME,
2783: 'OKL_API.G_RET_STS_ERROR',
2784: x_msg_count,
2779: End If;
2780: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2781: l_api_name,
2782: G_PKG_NAME,
2783: 'OKL_API.G_RET_STS_ERROR',
2784: x_msg_count,
2785: x_msg_data,
2786: '_PVT');
2787: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2783: 'OKL_API.G_RET_STS_ERROR',
2784: x_msg_count,
2785: x_msg_data,
2786: '_PVT');
2787: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2788: If l_cleb_csr%ISOPEN then
2789: CLOSE l_cleb_csr;
2790: End If;
2791: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2787: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2788: If l_cleb_csr%ISOPEN then
2789: CLOSE l_cleb_csr;
2790: End If;
2791: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2792: l_api_name,
2793: G_PKG_NAME,
2794: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2795: x_msg_count,
2790: End If;
2791: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2792: l_api_name,
2793: G_PKG_NAME,
2794: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2795: x_msg_count,
2796: x_msg_data,
2797: '_PVT');
2798: WHEN OTHERS THEN
2798: WHEN OTHERS THEN
2799: If l_cleb_csr%ISOPEN then
2800: CLOSE l_cleb_csr;
2801: End If;
2802: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2803: l_api_name,
2804: G_PKG_NAME,
2805: 'OTHERS',
2806: x_msg_count,
2824: p_subsidy_cle_id IN NUMBER,
2825: x_asbv_rec OUT NOCOPY asbv_rec_type) is
2826:
2827:
2828: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
2829: l_api_name CONSTANT varchar2(30) := 'GET_SUBSIDY_AMOUNT';
2830: l_api_version CONSTANT NUMBER := 1.0;
2831:
2832: l_asbv_rec asbv_rec_type;
2887:
2888: l_sub_dtls_rec l_sub_dtls_csr%ROWTYPE;
2889:
2890: Begin
2891: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2892:
2893: ---------------------------------------
2894: --start of input parameter validations
2895: ---------------------------------------
2893: ---------------------------------------
2894: --start of input parameter validations
2895: ---------------------------------------
2896: --1.validate p_subsidy_cle_id
2897: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2898: OKL_API.set_message(
2899: p_app_name => G_APP_NAME,
2900: p_msg_name => G_API_MISSING_PARAMETER,
2901: p_token1 => G_API_NAME_TOKEN,
2894: --start of input parameter validations
2895: ---------------------------------------
2896: --1.validate p_subsidy_cle_id
2897: If (p_subsidy_cle_id is NULL) or (p_subsidy_cle_id = OKL_API.G_MISS_NUM) then
2898: OKL_API.set_message(
2899: p_app_name => G_APP_NAME,
2900: p_msg_name => G_API_MISSING_PARAMETER,
2901: p_token1 => G_API_NAME_TOKEN,
2902: p_token1_value => l_api_name,
2901: p_token1 => G_API_NAME_TOKEN,
2902: p_token1_value => l_api_name,
2903: p_token2 => G_MISSING_PARAM_TOKEN,
2904: p_token2_value => 'p_subsidy_cle_id');
2905: x_return_status := OKL_API.G_RET_STS_ERROR;
2906: Raise OKL_API.G_EXCEPTION_ERROR;
2907: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2908: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2909: p_lty_code => 'SUBSIDY',
2902: p_token1_value => l_api_name,
2903: p_token2 => G_MISSING_PARAM_TOKEN,
2904: p_token2_value => 'p_subsidy_cle_id');
2905: x_return_status := OKL_API.G_RET_STS_ERROR;
2906: Raise OKL_API.G_EXCEPTION_ERROR;
2907: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2908: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2909: p_lty_code => 'SUBSIDY',
2910: x_return_status => x_return_status);
2903: p_token2 => G_MISSING_PARAM_TOKEN,
2904: p_token2_value => 'p_subsidy_cle_id');
2905: x_return_status := OKL_API.G_RET_STS_ERROR;
2906: Raise OKL_API.G_EXCEPTION_ERROR;
2907: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2908: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2909: p_lty_code => 'SUBSIDY',
2910: x_return_status => x_return_status);
2911: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2907: Elsif (p_subsidy_cle_id is not NULL) and (p_subsidy_cle_id <> OKL_API.G_MISS_NUM) then
2908: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2909: p_lty_code => 'SUBSIDY',
2910: x_return_status => x_return_status);
2911: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2912: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2913: Raise OKL_API.G_EXCEPTION_ERROR;
2914: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2915: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2908: validate_cle_id(p_cle_id => p_subsidy_cle_id,
2909: p_lty_code => 'SUBSIDY',
2910: x_return_status => x_return_status);
2911: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2912: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2913: Raise OKL_API.G_EXCEPTION_ERROR;
2914: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2915: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: End If;
2909: p_lty_code => 'SUBSIDY',
2910: x_return_status => x_return_status);
2911: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2912: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2913: Raise OKL_API.G_EXCEPTION_ERROR;
2914: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2915: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: End If;
2917: End If;
2910: x_return_status => x_return_status);
2911: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2912: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2913: Raise OKL_API.G_EXCEPTION_ERROR;
2914: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2915: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: End If;
2917: End If;
2918: ------------------------------------------
2911: IF x_return_status = OKL_API.G_RET_STS_ERROR then
2912: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_subsidy_cle_id');
2913: Raise OKL_API.G_EXCEPTION_ERROR;
2914: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
2915: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: End If;
2917: End If;
2918: ------------------------------------------
2919: --end of input parameter validations
2931: x_msg_data => x_msg_data,
2932: p_subsidy_cle_id => p_subsidy_cle_id,
2933: x_subsidy_amount => l_subsidy_amount);
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2932: p_subsidy_cle_id => p_subsidy_cle_id,
2933: x_subsidy_amount => l_subsidy_amount);
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2940:
2933: x_subsidy_amount => l_subsidy_amount);
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2940:
2941:
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2940:
2941:
2942: ----------------------------------------------------------------------------
2987:
2988: x_asbv_rec := l_asbv_rec;
2989:
2990: EXCEPTION
2991: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2992: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2993: l_api_name,
2994: G_PKG_NAME,
2995: 'OKL_API.G_RET_STS_ERROR',
2988: x_asbv_rec := l_asbv_rec;
2989:
2990: EXCEPTION
2991: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2992: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2993: l_api_name,
2994: G_PKG_NAME,
2995: 'OKL_API.G_RET_STS_ERROR',
2996: x_msg_count,
2991: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2992: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2993: l_api_name,
2994: G_PKG_NAME,
2995: 'OKL_API.G_RET_STS_ERROR',
2996: x_msg_count,
2997: x_msg_data,
2998: '_PVT');
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2995: 'OKL_API.G_RET_STS_ERROR',
2996: x_msg_count,
2997: x_msg_data,
2998: '_PVT');
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3000: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3001: l_api_name,
3002: G_PKG_NAME,
3003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2996: x_msg_count,
2997: x_msg_data,
2998: '_PVT');
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3000: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3001: l_api_name,
3002: G_PKG_NAME,
3003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3004: x_msg_count,
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3000: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3001: l_api_name,
3002: G_PKG_NAME,
3003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3004: x_msg_count,
3005: x_msg_data,
3006: '_PVT');
3007: WHEN OTHERS THEN
3007: WHEN OTHERS THEN
3008: If l_sub_dtls_csr%ISOPEN then
3009: CLOSE l_sub_dtls_csr;
3010: End If;
3011: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3012: l_api_name,
3013: G_PKG_NAME,
3014: 'OTHERS',
3015: x_msg_count,
3031: p_asset_cle_id IN NUMBER,
3032: p_accounting_method IN VARCHAR2,
3033: x_subsidy_amount OUT NOCOPY NUMBER) is
3034:
3035: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3036: l_api_name CONSTANT varchar2(30) := 'GET_ASSET_SUBSIDY';
3037: l_api_version CONSTANT NUMBER := 1.0;
3038:
3039: l_subsidy_amount Number;
3056: and sub_cle.sts_code <> 'ABANDONED';
3057:
3058: l_subsidy_cle_id number;
3059: begin
3060: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3061:
3062: /*----commented this validation as it causes issues during booking
3063: --------------------------------------
3064: --start of input parameter validations
3063: --------------------------------------
3064: --start of input parameter validations
3065: --------------------------------------
3066: --1.validate p_asset_cle_id
3067: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3068: OKL_API.set_message(
3069: p_app_name => G_APP_NAME,
3070: p_msg_name => G_API_MISSING_PARAMETER,
3071: p_token1 => G_API_NAME_TOKEN,
3064: --start of input parameter validations
3065: --------------------------------------
3066: --1.validate p_asset_cle_id
3067: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3068: OKL_API.set_message(
3069: p_app_name => G_APP_NAME,
3070: p_msg_name => G_API_MISSING_PARAMETER,
3071: p_token1 => G_API_NAME_TOKEN,
3072: p_token1_value => l_api_name,
3071: p_token1 => G_API_NAME_TOKEN,
3072: p_token1_value => l_api_name,
3073: p_token2 => G_MISSING_PARAM_TOKEN,
3074: p_token2_value => 'p_asset_cle_id');
3075: x_return_status := OKL_API.G_RET_STS_ERROR;
3076: Raise OKL_API.G_EXCEPTION_ERROR;
3077: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3078: validate_cle_id(p_cle_id => p_asset_cle_id,
3079: p_lty_code => 'FREE_FORM1',
3072: p_token1_value => l_api_name,
3073: p_token2 => G_MISSING_PARAM_TOKEN,
3074: p_token2_value => 'p_asset_cle_id');
3075: x_return_status := OKL_API.G_RET_STS_ERROR;
3076: Raise OKL_API.G_EXCEPTION_ERROR;
3077: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3078: validate_cle_id(p_cle_id => p_asset_cle_id,
3079: p_lty_code => 'FREE_FORM1',
3080: x_return_status => x_return_status);
3073: p_token2 => G_MISSING_PARAM_TOKEN,
3074: p_token2_value => 'p_asset_cle_id');
3075: x_return_status := OKL_API.G_RET_STS_ERROR;
3076: Raise OKL_API.G_EXCEPTION_ERROR;
3077: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3078: validate_cle_id(p_cle_id => p_asset_cle_id,
3079: p_lty_code => 'FREE_FORM1',
3080: x_return_status => x_return_status);
3081: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3077: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3078: validate_cle_id(p_cle_id => p_asset_cle_id,
3079: p_lty_code => 'FREE_FORM1',
3080: x_return_status => x_return_status);
3081: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3082: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3083: Raise OKL_API.G_EXCEPTION_ERROR;
3084: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3085: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: validate_cle_id(p_cle_id => p_asset_cle_id,
3079: p_lty_code => 'FREE_FORM1',
3080: x_return_status => x_return_status);
3081: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3082: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3083: Raise OKL_API.G_EXCEPTION_ERROR;
3084: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3085: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: End If;
3079: p_lty_code => 'FREE_FORM1',
3080: x_return_status => x_return_status);
3081: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3082: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3083: Raise OKL_API.G_EXCEPTION_ERROR;
3084: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3085: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: End If;
3087: End If;
3080: x_return_status => x_return_status);
3081: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3082: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3083: Raise OKL_API.G_EXCEPTION_ERROR;
3084: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3085: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: End If;
3087: End If;
3088: --2.validate accounting method
3081: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3082: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3083: Raise OKL_API.G_EXCEPTION_ERROR;
3084: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3085: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: End If;
3087: End If;
3088: --2.validate accounting method
3089: If (p_accounting_method is NOT NULL) then
3088: --2.validate accounting method
3089: If (p_accounting_method is NOT NULL) then
3090: validate_acct_method(p_accounting_method => p_accounting_method,
3091: x_return_status => x_return_status);
3092: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3093: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3094: Raise OKL_API.G_EXCEPTION_ERROR;
3095: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3096: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3089: If (p_accounting_method is NOT NULL) then
3090: validate_acct_method(p_accounting_method => p_accounting_method,
3091: x_return_status => x_return_status);
3092: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3093: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3094: Raise OKL_API.G_EXCEPTION_ERROR;
3095: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3096: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: End If;
3090: validate_acct_method(p_accounting_method => p_accounting_method,
3091: x_return_status => x_return_status);
3092: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3093: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3094: Raise OKL_API.G_EXCEPTION_ERROR;
3095: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3096: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: End If;
3098: End If;
3091: x_return_status => x_return_status);
3092: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3093: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3094: Raise OKL_API.G_EXCEPTION_ERROR;
3095: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3096: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: End If;
3098: End If;
3099: ------------------------------------
3092: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3093: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3094: Raise OKL_API.G_EXCEPTION_ERROR;
3095: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3096: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: End If;
3098: End If;
3099: ------------------------------------
3100: --end of input parameter validations
3120: x_msg_data => x_msg_data,
3121: p_subsidy_cle_id => l_subsidy_cle_id,
3122: x_subsidy_amount => l_subsidy_amount);
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_ERROR;
3128: END IF;
3121: p_subsidy_cle_id => l_subsidy_cle_id,
3122: x_subsidy_amount => l_subsidy_amount);
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_ERROR;
3128: END IF;
3129: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3122: x_subsidy_amount => l_subsidy_amount);
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_ERROR;
3128: END IF;
3129: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3130: End Loop;
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_ERROR;
3128: END IF;
3129: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3130: End Loop;
3131: Close l_sub_csr;
3132:
3133: x_subsidy_amount := l_asset_subsidy_amount;
3134:
3135: EXCEPTION
3136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3137: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3138: l_api_name,
3139: G_PKG_NAME,
3140: 'OKL_API.G_RET_STS_ERROR',
3133: x_subsidy_amount := l_asset_subsidy_amount;
3134:
3135: EXCEPTION
3136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3137: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3138: l_api_name,
3139: G_PKG_NAME,
3140: 'OKL_API.G_RET_STS_ERROR',
3141: x_msg_count,
3136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3137: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3138: l_api_name,
3139: G_PKG_NAME,
3140: 'OKL_API.G_RET_STS_ERROR',
3141: x_msg_count,
3142: x_msg_data,
3143: '_PVT');
3144: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3140: 'OKL_API.G_RET_STS_ERROR',
3141: x_msg_count,
3142: x_msg_data,
3143: '_PVT');
3144: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3145: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3146: l_api_name,
3147: G_PKG_NAME,
3148: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3141: x_msg_count,
3142: x_msg_data,
3143: '_PVT');
3144: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3145: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3146: l_api_name,
3147: G_PKG_NAME,
3148: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3149: x_msg_count,
3144: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3145: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3146: l_api_name,
3147: G_PKG_NAME,
3148: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3149: x_msg_count,
3150: x_msg_data,
3151: '_PVT');
3152: WHEN OTHERS THEN
3152: WHEN OTHERS THEN
3153: If l_sub_csr%ISOPEN then
3154: CLOSE l_sub_csr;
3155: End If;
3156: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3157: l_api_name,
3158: G_PKG_NAME,
3159: 'OTHERS',
3160: x_msg_count,
3178: x_msg_data OUT NOCOPY VARCHAR2,
3179: p_asset_cle_id IN NUMBER,
3180: x_asbv_tbl OUT NOCOPY asbv_tbl_type) is
3181:
3182: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3183: l_api_name CONSTANT varchar2(30) := 'GET_ASSET_SUBSIDY';
3184: l_api_version CONSTANT NUMBER := 1.0;
3185:
3186: l_asbv_tbl asbv_tbl_type;
3198: l_subsidy_cle_id number;
3199: i number;
3200:
3201: begin
3202: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3203:
3204: ---------------------------------------
3205: --start of input parameter validations
3206: ---------------------------------------
3204: ---------------------------------------
3205: --start of input parameter validations
3206: ---------------------------------------
3207: --1.validate p_asset_cle_id
3208: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3209: OKL_API.set_message(
3210: p_app_name => G_APP_NAME,
3211: p_msg_name => G_API_MISSING_PARAMETER,
3212: p_token1 => G_API_NAME_TOKEN,
3205: --start of input parameter validations
3206: ---------------------------------------
3207: --1.validate p_asset_cle_id
3208: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3209: OKL_API.set_message(
3210: p_app_name => G_APP_NAME,
3211: p_msg_name => G_API_MISSING_PARAMETER,
3212: p_token1 => G_API_NAME_TOKEN,
3213: p_token1_value => l_api_name,
3212: p_token1 => G_API_NAME_TOKEN,
3213: p_token1_value => l_api_name,
3214: p_token2 => G_MISSING_PARAM_TOKEN,
3215: p_token2_value => 'p_asset_cle_id');
3216: x_return_status := OKL_API.G_RET_STS_ERROR;
3217: Raise OKL_API.G_EXCEPTION_ERROR;
3218: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3219: validate_cle_id(p_cle_id => p_asset_cle_id,
3220: p_lty_code => 'FREE_FORM1',
3213: p_token1_value => l_api_name,
3214: p_token2 => G_MISSING_PARAM_TOKEN,
3215: p_token2_value => 'p_asset_cle_id');
3216: x_return_status := OKL_API.G_RET_STS_ERROR;
3217: Raise OKL_API.G_EXCEPTION_ERROR;
3218: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3219: validate_cle_id(p_cle_id => p_asset_cle_id,
3220: p_lty_code => 'FREE_FORM1',
3221: x_return_status => x_return_status);
3214: p_token2 => G_MISSING_PARAM_TOKEN,
3215: p_token2_value => 'p_asset_cle_id');
3216: x_return_status := OKL_API.G_RET_STS_ERROR;
3217: Raise OKL_API.G_EXCEPTION_ERROR;
3218: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3219: validate_cle_id(p_cle_id => p_asset_cle_id,
3220: p_lty_code => 'FREE_FORM1',
3221: x_return_status => x_return_status);
3222: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3218: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3219: validate_cle_id(p_cle_id => p_asset_cle_id,
3220: p_lty_code => 'FREE_FORM1',
3221: x_return_status => x_return_status);
3222: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3223: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3224: Raise OKL_API.G_EXCEPTION_ERROR;
3225: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3226: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: validate_cle_id(p_cle_id => p_asset_cle_id,
3220: p_lty_code => 'FREE_FORM1',
3221: x_return_status => x_return_status);
3222: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3223: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3224: Raise OKL_API.G_EXCEPTION_ERROR;
3225: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3226: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3227: End If;
3220: p_lty_code => 'FREE_FORM1',
3221: x_return_status => x_return_status);
3222: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3223: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3224: Raise OKL_API.G_EXCEPTION_ERROR;
3225: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3226: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3227: End If;
3228: End If;
3221: x_return_status => x_return_status);
3222: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3223: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3224: Raise OKL_API.G_EXCEPTION_ERROR;
3225: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3226: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3227: End If;
3228: End If;
3229: -------------------------------------
3222: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3223: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3224: Raise OKL_API.G_EXCEPTION_ERROR;
3225: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3226: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3227: End If;
3228: End If;
3229: -------------------------------------
3230: --end of input parameter validations
3244: x_msg_data => x_msg_data,
3245: p_subsidy_cle_id => l_subsidy_cle_id,
3246: x_asbv_rec => l_asbv_tbl(i));
3247:
3248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3251: RAISE OKL_API.G_EXCEPTION_ERROR;
3252: END IF;
3245: p_subsidy_cle_id => l_subsidy_cle_id,
3246: x_asbv_rec => l_asbv_tbl(i));
3247:
3248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3251: RAISE OKL_API.G_EXCEPTION_ERROR;
3252: END IF;
3253: End Loop;
3246: x_asbv_rec => l_asbv_tbl(i));
3247:
3248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3251: RAISE OKL_API.G_EXCEPTION_ERROR;
3252: END IF;
3253: End Loop;
3254: Close l_sub_csr;
3247:
3248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3251: RAISE OKL_API.G_EXCEPTION_ERROR;
3252: END IF;
3253: End Loop;
3254: Close l_sub_csr;
3255:
3255:
3256: x_asbv_tbl := l_asbv_tbl;
3257:
3258: EXCEPTION
3259: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3260: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3261: l_api_name,
3262: G_PKG_NAME,
3263: 'OKL_API.G_RET_STS_ERROR',
3256: x_asbv_tbl := l_asbv_tbl;
3257:
3258: EXCEPTION
3259: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3260: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3261: l_api_name,
3262: G_PKG_NAME,
3263: 'OKL_API.G_RET_STS_ERROR',
3264: x_msg_count,
3259: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3260: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3261: l_api_name,
3262: G_PKG_NAME,
3263: 'OKL_API.G_RET_STS_ERROR',
3264: x_msg_count,
3265: x_msg_data,
3266: '_PVT');
3267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3263: 'OKL_API.G_RET_STS_ERROR',
3264: x_msg_count,
3265: x_msg_data,
3266: '_PVT');
3267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3268: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3269: l_api_name,
3270: G_PKG_NAME,
3271: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3264: x_msg_count,
3265: x_msg_data,
3266: '_PVT');
3267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3268: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3269: l_api_name,
3270: G_PKG_NAME,
3271: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3272: x_msg_count,
3267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3268: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3269: l_api_name,
3270: G_PKG_NAME,
3271: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3272: x_msg_count,
3273: x_msg_data,
3274: '_PVT');
3275: WHEN OTHERS THEN
3275: WHEN OTHERS THEN
3276: If l_sub_csr%ISOPEN then
3277: CLOSE l_sub_csr;
3278: End If;
3279: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3280: l_api_name,
3281: G_PKG_NAME,
3282: 'OTHERS',
3283: x_msg_count,
3299: x_msg_data OUT NOCOPY VARCHAR2,
3300: p_asset_cle_id IN NUMBER,
3301: x_subsidy_amount OUT NOCOPY NUMBER) is
3302:
3303: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3304: l_api_name CONSTANT varchar2(30) := 'CALC_ASSET_SUBSIDY';
3305: l_api_version CONSTANT NUMBER := 1.0;
3306:
3307: l_subsidy_amount Number;
3319: and sub_cle.sts_code <> 'ABANDONED';
3320:
3321: l_subsidy_cle_id number;
3322: begin
3323: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3324:
3325: ---------------------------------------
3326: --start of input parameter validations
3327: ---------------------------------------
3325: ---------------------------------------
3326: --start of input parameter validations
3327: ---------------------------------------
3328: --1.validate p_asset_cle_id
3329: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3330: OKL_API.set_message(
3331: p_app_name => G_APP_NAME,
3332: p_msg_name => G_API_MISSING_PARAMETER,
3333: p_token1 => G_API_NAME_TOKEN,
3326: --start of input parameter validations
3327: ---------------------------------------
3328: --1.validate p_asset_cle_id
3329: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3330: OKL_API.set_message(
3331: p_app_name => G_APP_NAME,
3332: p_msg_name => G_API_MISSING_PARAMETER,
3333: p_token1 => G_API_NAME_TOKEN,
3334: p_token1_value => l_api_name,
3333: p_token1 => G_API_NAME_TOKEN,
3334: p_token1_value => l_api_name,
3335: p_token2 => G_MISSING_PARAM_TOKEN,
3336: p_token2_value => 'p_asset_cle_id');
3337: x_return_status := OKL_API.G_RET_STS_ERROR;
3338: Raise OKL_API.G_EXCEPTION_ERROR;
3339: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3340: validate_cle_id(p_cle_id => p_asset_cle_id,
3341: p_lty_code => 'FREE_FORM1',
3334: p_token1_value => l_api_name,
3335: p_token2 => G_MISSING_PARAM_TOKEN,
3336: p_token2_value => 'p_asset_cle_id');
3337: x_return_status := OKL_API.G_RET_STS_ERROR;
3338: Raise OKL_API.G_EXCEPTION_ERROR;
3339: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3340: validate_cle_id(p_cle_id => p_asset_cle_id,
3341: p_lty_code => 'FREE_FORM1',
3342: x_return_status => x_return_status);
3335: p_token2 => G_MISSING_PARAM_TOKEN,
3336: p_token2_value => 'p_asset_cle_id');
3337: x_return_status := OKL_API.G_RET_STS_ERROR;
3338: Raise OKL_API.G_EXCEPTION_ERROR;
3339: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3340: validate_cle_id(p_cle_id => p_asset_cle_id,
3341: p_lty_code => 'FREE_FORM1',
3342: x_return_status => x_return_status);
3343: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3339: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3340: validate_cle_id(p_cle_id => p_asset_cle_id,
3341: p_lty_code => 'FREE_FORM1',
3342: x_return_status => x_return_status);
3343: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3344: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3345: Raise OKL_API.G_EXCEPTION_ERROR;
3346: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3347: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3340: validate_cle_id(p_cle_id => p_asset_cle_id,
3341: p_lty_code => 'FREE_FORM1',
3342: x_return_status => x_return_status);
3343: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3344: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3345: Raise OKL_API.G_EXCEPTION_ERROR;
3346: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3347: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: End If;
3341: p_lty_code => 'FREE_FORM1',
3342: x_return_status => x_return_status);
3343: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3344: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3345: Raise OKL_API.G_EXCEPTION_ERROR;
3346: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3347: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: End If;
3349: End If;
3342: x_return_status => x_return_status);
3343: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3344: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3345: Raise OKL_API.G_EXCEPTION_ERROR;
3346: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3347: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: End If;
3349: End If;
3350: ------------------------------------
3343: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3344: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3345: Raise OKL_API.G_EXCEPTION_ERROR;
3346: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3347: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: End If;
3349: End If;
3350: ------------------------------------
3351: --end of input parameter validations
3366: x_return_status => x_return_status,
3367: x_msg_count => x_msg_count,
3368: x_msg_data => x_msg_data,
3369: p_subsidy_cle_id => l_subsidy_cle_id,
3370: p_override_yn => OKL_API.G_TRUE,
3371: x_subsidy_amount => l_subsidy_amount);
3372:
3373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: p_subsidy_cle_id => l_subsidy_cle_id,
3370: p_override_yn => OKL_API.G_TRUE,
3371: x_subsidy_amount => l_subsidy_amount);
3372:
3373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3376: RAISE OKL_API.G_EXCEPTION_ERROR;
3377: END IF;
3370: p_override_yn => OKL_API.G_TRUE,
3371: x_subsidy_amount => l_subsidy_amount);
3372:
3373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3376: RAISE OKL_API.G_EXCEPTION_ERROR;
3377: END IF;
3378: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3371: x_subsidy_amount => l_subsidy_amount);
3372:
3373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3376: RAISE OKL_API.G_EXCEPTION_ERROR;
3377: END IF;
3378: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3379: End Loop;
3372:
3373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3376: RAISE OKL_API.G_EXCEPTION_ERROR;
3377: END IF;
3378: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3379: End Loop;
3380: Close l_sub_csr;
3381:
3382: x_subsidy_amount := l_asset_subsidy_amount;
3383:
3384: EXCEPTION
3385: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3386: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3387: l_api_name,
3388: G_PKG_NAME,
3389: 'OKL_API.G_RET_STS_ERROR',
3382: x_subsidy_amount := l_asset_subsidy_amount;
3383:
3384: EXCEPTION
3385: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3386: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3387: l_api_name,
3388: G_PKG_NAME,
3389: 'OKL_API.G_RET_STS_ERROR',
3390: x_msg_count,
3385: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3386: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3387: l_api_name,
3388: G_PKG_NAME,
3389: 'OKL_API.G_RET_STS_ERROR',
3390: x_msg_count,
3391: x_msg_data,
3392: '_PVT');
3393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3389: 'OKL_API.G_RET_STS_ERROR',
3390: x_msg_count,
3391: x_msg_data,
3392: '_PVT');
3393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3394: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3395: l_api_name,
3396: G_PKG_NAME,
3397: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3390: x_msg_count,
3391: x_msg_data,
3392: '_PVT');
3393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3394: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3395: l_api_name,
3396: G_PKG_NAME,
3397: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3398: x_msg_count,
3393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3394: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3395: l_api_name,
3396: G_PKG_NAME,
3397: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3398: x_msg_count,
3399: x_msg_data,
3400: '_PVT');
3401: WHEN OTHERS THEN
3401: WHEN OTHERS THEN
3402: If l_sub_csr%ISOPEN then
3403: CLOSE l_sub_csr;
3404: End If;
3405: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3406: l_api_name,
3407: G_PKG_NAME,
3408: 'OTHERS',
3409: x_msg_count,
3426: p_chr_id IN NUMBER,
3427: p_accounting_method IN VARCHAR2,
3428: x_subsidy_amount OUT NOCOPY NUMBER) is
3429:
3430: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3431: l_api_name CONSTANT varchar2(30) := 'GET_CONTRACT_SUBSIDY';
3432: l_api_version CONSTANT NUMBER := 1.0;
3433:
3434: l_subsidy_amount number;
3449:
3450: l_asset_cle_id number;
3451:
3452: begin
3453: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3454:
3455: -------------------------------------
3456: --start of input parameter validations
3457: -------------------------------------
3455: -------------------------------------
3456: --start of input parameter validations
3457: -------------------------------------
3458: --1.validate p_chr_id
3459: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3460: OKL_API.set_message(
3461: p_app_name => G_APP_NAME,
3462: p_msg_name => G_API_MISSING_PARAMETER,
3463: p_token1 => G_API_NAME_TOKEN,
3456: --start of input parameter validations
3457: -------------------------------------
3458: --1.validate p_chr_id
3459: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3460: OKL_API.set_message(
3461: p_app_name => G_APP_NAME,
3462: p_msg_name => G_API_MISSING_PARAMETER,
3463: p_token1 => G_API_NAME_TOKEN,
3464: p_token1_value => l_api_name,
3463: p_token1 => G_API_NAME_TOKEN,
3464: p_token1_value => l_api_name,
3465: p_token2 => G_MISSING_PARAM_TOKEN,
3466: p_token2_value => 'p_chr_id');
3467: x_return_status := OKL_API.G_RET_STS_ERROR;
3468: Raise OKL_API.G_EXCEPTION_ERROR;
3469: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3470: validate_chr_id(p_chr_id => p_chr_id,
3471: x_return_status => x_return_status);
3464: p_token1_value => l_api_name,
3465: p_token2 => G_MISSING_PARAM_TOKEN,
3466: p_token2_value => 'p_chr_id');
3467: x_return_status := OKL_API.G_RET_STS_ERROR;
3468: Raise OKL_API.G_EXCEPTION_ERROR;
3469: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3470: validate_chr_id(p_chr_id => p_chr_id,
3471: x_return_status => x_return_status);
3472: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3465: p_token2 => G_MISSING_PARAM_TOKEN,
3466: p_token2_value => 'p_chr_id');
3467: x_return_status := OKL_API.G_RET_STS_ERROR;
3468: Raise OKL_API.G_EXCEPTION_ERROR;
3469: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3470: validate_chr_id(p_chr_id => p_chr_id,
3471: x_return_status => x_return_status);
3472: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3473: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3468: Raise OKL_API.G_EXCEPTION_ERROR;
3469: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3470: validate_chr_id(p_chr_id => p_chr_id,
3471: x_return_status => x_return_status);
3472: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3473: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3474: Raise OKL_API.G_EXCEPTION_ERROR;
3475: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3476: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3469: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3470: validate_chr_id(p_chr_id => p_chr_id,
3471: x_return_status => x_return_status);
3472: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3473: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3474: Raise OKL_API.G_EXCEPTION_ERROR;
3475: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3476: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: End If;
3470: validate_chr_id(p_chr_id => p_chr_id,
3471: x_return_status => x_return_status);
3472: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3473: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3474: Raise OKL_API.G_EXCEPTION_ERROR;
3475: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3476: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: End If;
3478: End If;
3471: x_return_status => x_return_status);
3472: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3473: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3474: Raise OKL_API.G_EXCEPTION_ERROR;
3475: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3476: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: End If;
3478: End If;
3479: --2.validate accounting method
3472: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3473: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3474: Raise OKL_API.G_EXCEPTION_ERROR;
3475: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3476: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: End If;
3478: End If;
3479: --2.validate accounting method
3480: If (p_accounting_method is NOT NULL) then
3479: --2.validate accounting method
3480: If (p_accounting_method is NOT NULL) then
3481: validate_acct_method(p_accounting_method => p_accounting_method,
3482: x_return_status => x_return_status);
3483: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3484: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3485: Raise OKL_API.G_EXCEPTION_ERROR;
3486: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3487: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3480: If (p_accounting_method is NOT NULL) then
3481: validate_acct_method(p_accounting_method => p_accounting_method,
3482: x_return_status => x_return_status);
3483: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3484: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3485: Raise OKL_API.G_EXCEPTION_ERROR;
3486: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3487: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: End If;
3481: validate_acct_method(p_accounting_method => p_accounting_method,
3482: x_return_status => x_return_status);
3483: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3484: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3485: Raise OKL_API.G_EXCEPTION_ERROR;
3486: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3487: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: End If;
3489: End If;
3482: x_return_status => x_return_status);
3483: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3484: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3485: Raise OKL_API.G_EXCEPTION_ERROR;
3486: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3487: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: End If;
3489: End If;
3490: ------------------------------------
3483: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3484: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_accounting_method');
3485: Raise OKL_API.G_EXCEPTION_ERROR;
3486: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3487: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: End If;
3489: End If;
3490: ------------------------------------
3491: --end of input parameter validations
3505: p_asset_cle_id => l_asset_cle_id,
3506: p_accounting_method => p_accounting_method,
3507: x_subsidy_amount => l_subsidy_amount);
3508:
3509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3512: RAISE OKL_API.G_EXCEPTION_ERROR;
3513: END IF;
3506: p_accounting_method => p_accounting_method,
3507: x_subsidy_amount => l_subsidy_amount);
3508:
3509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3512: RAISE OKL_API.G_EXCEPTION_ERROR;
3513: END IF;
3514: l_chr_subsidy_Amount := l_chr_subsidy_Amount + l_subsidy_amount;
3507: x_subsidy_amount => l_subsidy_amount);
3508:
3509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3512: RAISE OKL_API.G_EXCEPTION_ERROR;
3513: END IF;
3514: l_chr_subsidy_Amount := l_chr_subsidy_Amount + l_subsidy_amount;
3515: End Loop;
3508:
3509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3512: RAISE OKL_API.G_EXCEPTION_ERROR;
3513: END IF;
3514: l_chr_subsidy_Amount := l_chr_subsidy_Amount + l_subsidy_amount;
3515: End Loop;
3516: Close l_asst_csr;
3517:
3518: x_subsidy_amount := l_chr_subsidy_amount;
3519:
3520: EXCEPTION
3521: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3522: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3523: l_api_name,
3524: G_PKG_NAME,
3525: 'OKL_API.G_RET_STS_ERROR',
3518: x_subsidy_amount := l_chr_subsidy_amount;
3519:
3520: EXCEPTION
3521: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3522: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3523: l_api_name,
3524: G_PKG_NAME,
3525: 'OKL_API.G_RET_STS_ERROR',
3526: x_msg_count,
3521: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3522: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3523: l_api_name,
3524: G_PKG_NAME,
3525: 'OKL_API.G_RET_STS_ERROR',
3526: x_msg_count,
3527: x_msg_data,
3528: '_PVT');
3529: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3525: 'OKL_API.G_RET_STS_ERROR',
3526: x_msg_count,
3527: x_msg_data,
3528: '_PVT');
3529: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3530: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3531: l_api_name,
3532: G_PKG_NAME,
3533: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3526: x_msg_count,
3527: x_msg_data,
3528: '_PVT');
3529: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3530: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3531: l_api_name,
3532: G_PKG_NAME,
3533: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3534: x_msg_count,
3529: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3530: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3531: l_api_name,
3532: G_PKG_NAME,
3533: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3534: x_msg_count,
3535: x_msg_data,
3536: '_PVT');
3537: WHEN OTHERS THEN
3537: WHEN OTHERS THEN
3538: If l_asst_csr%ISOPEN then
3539: CLOSE l_asst_csr;
3540: End If;
3541: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3542: l_api_name,
3543: G_PKG_NAME,
3544: 'OTHERS',
3545: x_msg_count,
3560: x_msg_data OUT NOCOPY VARCHAR2,
3561: p_chr_id IN NUMBER,
3562: x_asbv_tbl OUT NOCOPY asbv_tbl_type) is
3563:
3564: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3565: l_api_name CONSTANT varchar2(30) := 'GET_CONTRACT_SUBSIDY';
3566: l_api_version CONSTANT NUMBER := 1.0;
3567:
3568: l_asset_asbv_tbl asbv_tbl_type;
3585:
3586: l_asset_cle_id number;
3587:
3588: begin
3589: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3590:
3591: -----------------------------------------
3592: --start of input parameter validations
3593: ----------------------------------------
3591: -----------------------------------------
3592: --start of input parameter validations
3593: ----------------------------------------
3594: --1.validate p_chr_id
3595: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3596: OKL_API.set_message(
3597: p_app_name => G_APP_NAME,
3598: p_msg_name => G_API_MISSING_PARAMETER,
3599: p_token1 => G_API_NAME_TOKEN,
3592: --start of input parameter validations
3593: ----------------------------------------
3594: --1.validate p_chr_id
3595: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3596: OKL_API.set_message(
3597: p_app_name => G_APP_NAME,
3598: p_msg_name => G_API_MISSING_PARAMETER,
3599: p_token1 => G_API_NAME_TOKEN,
3600: p_token1_value => l_api_name,
3599: p_token1 => G_API_NAME_TOKEN,
3600: p_token1_value => l_api_name,
3601: p_token2 => G_MISSING_PARAM_TOKEN,
3602: p_token2_value => 'p_chr_id');
3603: x_return_status := OKL_API.G_RET_STS_ERROR;
3604: Raise OKL_API.G_EXCEPTION_ERROR;
3605: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3606: validate_chr_id(p_chr_id => p_chr_id,
3607: x_return_status => x_return_status);
3600: p_token1_value => l_api_name,
3601: p_token2 => G_MISSING_PARAM_TOKEN,
3602: p_token2_value => 'p_chr_id');
3603: x_return_status := OKL_API.G_RET_STS_ERROR;
3604: Raise OKL_API.G_EXCEPTION_ERROR;
3605: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3606: validate_chr_id(p_chr_id => p_chr_id,
3607: x_return_status => x_return_status);
3608: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3601: p_token2 => G_MISSING_PARAM_TOKEN,
3602: p_token2_value => 'p_chr_id');
3603: x_return_status := OKL_API.G_RET_STS_ERROR;
3604: Raise OKL_API.G_EXCEPTION_ERROR;
3605: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3606: validate_chr_id(p_chr_id => p_chr_id,
3607: x_return_status => x_return_status);
3608: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3609: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3604: Raise OKL_API.G_EXCEPTION_ERROR;
3605: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3606: validate_chr_id(p_chr_id => p_chr_id,
3607: x_return_status => x_return_status);
3608: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3609: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3610: Raise OKL_API.G_EXCEPTION_ERROR;
3611: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3612: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3605: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3606: validate_chr_id(p_chr_id => p_chr_id,
3607: x_return_status => x_return_status);
3608: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3609: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3610: Raise OKL_API.G_EXCEPTION_ERROR;
3611: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3612: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: End If;
3606: validate_chr_id(p_chr_id => p_chr_id,
3607: x_return_status => x_return_status);
3608: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3609: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3610: Raise OKL_API.G_EXCEPTION_ERROR;
3611: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3612: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: End If;
3614: End If;
3607: x_return_status => x_return_status);
3608: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3609: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3610: Raise OKL_API.G_EXCEPTION_ERROR;
3611: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3612: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: End If;
3614: End If;
3615: ------------------------------------
3608: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3609: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3610: Raise OKL_API.G_EXCEPTION_ERROR;
3611: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3612: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: End If;
3614: End If;
3615: ------------------------------------
3616: --end of input parameter validations
3630: x_msg_data => x_msg_data,
3631: p_asset_cle_id => l_asset_cle_id,
3632: x_asbv_tbl => l_asset_asbv_tbl);
3633:
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3631: p_asset_cle_id => l_asset_cle_id,
3632: x_asbv_tbl => l_asset_asbv_tbl);
3633:
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639:
3632: x_asbv_tbl => l_asset_asbv_tbl);
3633:
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639:
3640: IF l_asset_asbv_tbl.COUNT > 0 then
3633:
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639:
3640: IF l_asset_asbv_tbl.COUNT > 0 then
3641: For i in l_asset_asbv_tbl.FIRST..l_asset_asbv_tbl.LAST
3651:
3652: x_asbv_tbl := l_chr_asbv_tbl;
3653:
3654: EXCEPTION
3655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3657: l_api_name,
3658: G_PKG_NAME,
3659: 'OKL_API.G_RET_STS_ERROR',
3652: x_asbv_tbl := l_chr_asbv_tbl;
3653:
3654: EXCEPTION
3655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3657: l_api_name,
3658: G_PKG_NAME,
3659: 'OKL_API.G_RET_STS_ERROR',
3660: x_msg_count,
3655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3657: l_api_name,
3658: G_PKG_NAME,
3659: 'OKL_API.G_RET_STS_ERROR',
3660: x_msg_count,
3661: x_msg_data,
3662: '_PVT');
3663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3659: 'OKL_API.G_RET_STS_ERROR',
3660: x_msg_count,
3661: x_msg_data,
3662: '_PVT');
3663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3664: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3665: l_api_name,
3666: G_PKG_NAME,
3667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3660: x_msg_count,
3661: x_msg_data,
3662: '_PVT');
3663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3664: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3665: l_api_name,
3666: G_PKG_NAME,
3667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3668: x_msg_count,
3663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3664: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3665: l_api_name,
3666: G_PKG_NAME,
3667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3668: x_msg_count,
3669: x_msg_data,
3670: '_PVT');
3671: WHEN OTHERS THEN
3671: WHEN OTHERS THEN
3672: If l_asst_csr%ISOPEN then
3673: CLOSE l_asst_csr;
3674: End If;
3675: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3676: l_api_name,
3677: G_PKG_NAME,
3678: 'OTHERS',
3679: x_msg_count,
3694: x_msg_data OUT NOCOPY VARCHAR2,
3695: p_chr_id IN NUMBER,
3696: x_subsidy_amount OUT NOCOPY NUMBER) is
3697:
3698: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3699: l_api_name CONSTANT varchar2(30) := 'CALC_CONTRACT_SUBSIDY';
3700: l_api_version CONSTANT NUMBER := 1.0;
3701:
3702: l_subsidy_amount number;
3717:
3718: l_asset_cle_id number;
3719:
3720: begin
3721: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3722:
3723: -----------------------------------------
3724: --start of input parameter validations
3725: ----------------------------------------
3723: -----------------------------------------
3724: --start of input parameter validations
3725: ----------------------------------------
3726: --1.validate p_chr_id
3727: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3728: OKL_API.set_message(
3729: p_app_name => G_APP_NAME,
3730: p_msg_name => G_API_MISSING_PARAMETER,
3731: p_token1 => G_API_NAME_TOKEN,
3724: --start of input parameter validations
3725: ----------------------------------------
3726: --1.validate p_chr_id
3727: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3728: OKL_API.set_message(
3729: p_app_name => G_APP_NAME,
3730: p_msg_name => G_API_MISSING_PARAMETER,
3731: p_token1 => G_API_NAME_TOKEN,
3732: p_token1_value => l_api_name,
3731: p_token1 => G_API_NAME_TOKEN,
3732: p_token1_value => l_api_name,
3733: p_token2 => G_MISSING_PARAM_TOKEN,
3734: p_token2_value => 'p_chr_id');
3735: x_return_status := OKL_API.G_RET_STS_ERROR;
3736: Raise OKL_API.G_EXCEPTION_ERROR;
3737: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3738: validate_chr_id(p_chr_id => p_chr_id,
3739: x_return_status => x_return_status);
3732: p_token1_value => l_api_name,
3733: p_token2 => G_MISSING_PARAM_TOKEN,
3734: p_token2_value => 'p_chr_id');
3735: x_return_status := OKL_API.G_RET_STS_ERROR;
3736: Raise OKL_API.G_EXCEPTION_ERROR;
3737: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3738: validate_chr_id(p_chr_id => p_chr_id,
3739: x_return_status => x_return_status);
3740: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3733: p_token2 => G_MISSING_PARAM_TOKEN,
3734: p_token2_value => 'p_chr_id');
3735: x_return_status := OKL_API.G_RET_STS_ERROR;
3736: Raise OKL_API.G_EXCEPTION_ERROR;
3737: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3738: validate_chr_id(p_chr_id => p_chr_id,
3739: x_return_status => x_return_status);
3740: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3741: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3736: Raise OKL_API.G_EXCEPTION_ERROR;
3737: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3738: validate_chr_id(p_chr_id => p_chr_id,
3739: x_return_status => x_return_status);
3740: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3741: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3742: Raise OKL_API.G_EXCEPTION_ERROR;
3743: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3744: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3737: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3738: validate_chr_id(p_chr_id => p_chr_id,
3739: x_return_status => x_return_status);
3740: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3741: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3742: Raise OKL_API.G_EXCEPTION_ERROR;
3743: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3744: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3745: End If;
3738: validate_chr_id(p_chr_id => p_chr_id,
3739: x_return_status => x_return_status);
3740: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3741: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3742: Raise OKL_API.G_EXCEPTION_ERROR;
3743: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3744: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3745: End If;
3746: End If;
3739: x_return_status => x_return_status);
3740: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3741: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3742: Raise OKL_API.G_EXCEPTION_ERROR;
3743: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3744: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3745: End If;
3746: End If;
3747: ------------------------------------
3740: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3741: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3742: Raise OKL_API.G_EXCEPTION_ERROR;
3743: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3744: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3745: End If;
3746: End If;
3747: ------------------------------------
3748: --end of input parameter validations
3761: x_msg_data => x_msg_data,
3762: p_asset_cle_id => l_asset_cle_id,
3763: x_subsidy_amount => l_subsidy_amount);
3764:
3765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3762: p_asset_cle_id => l_asset_cle_id,
3763: x_subsidy_amount => l_subsidy_amount);
3764:
3765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3770: l_chr_subsidy_Amount := l_chr_subsidy_Amount + l_subsidy_amount;
3763: x_subsidy_amount => l_subsidy_amount);
3764:
3765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3770: l_chr_subsidy_Amount := l_chr_subsidy_Amount + l_subsidy_amount;
3771: End Loop;
3764:
3765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3770: l_chr_subsidy_Amount := l_chr_subsidy_Amount + l_subsidy_amount;
3771: End Loop;
3772: Close l_asst_csr;
3773:
3774: x_subsidy_amount := l_chr_subsidy_amount;
3775:
3776: EXCEPTION
3777: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3778: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3779: l_api_name,
3780: G_PKG_NAME,
3781: 'OKL_API.G_RET_STS_ERROR',
3774: x_subsidy_amount := l_chr_subsidy_amount;
3775:
3776: EXCEPTION
3777: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3778: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3779: l_api_name,
3780: G_PKG_NAME,
3781: 'OKL_API.G_RET_STS_ERROR',
3782: x_msg_count,
3777: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3778: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3779: l_api_name,
3780: G_PKG_NAME,
3781: 'OKL_API.G_RET_STS_ERROR',
3782: x_msg_count,
3783: x_msg_data,
3784: '_PVT');
3785: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3781: 'OKL_API.G_RET_STS_ERROR',
3782: x_msg_count,
3783: x_msg_data,
3784: '_PVT');
3785: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3786: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3787: l_api_name,
3788: G_PKG_NAME,
3789: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3782: x_msg_count,
3783: x_msg_data,
3784: '_PVT');
3785: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3786: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3787: l_api_name,
3788: G_PKG_NAME,
3789: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3790: x_msg_count,
3785: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3786: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3787: l_api_name,
3788: G_PKG_NAME,
3789: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3790: x_msg_count,
3791: x_msg_data,
3792: '_PVT');
3793: WHEN OTHERS THEN
3793: WHEN OTHERS THEN
3794: If l_asst_csr%ISOPEN then
3795: CLOSE l_asst_csr;
3796: End If;
3797: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3798: l_api_name,
3799: G_PKG_NAME,
3800: 'OTHERS',
3801: x_msg_count,
3823: p_asset_cle_id IN NUMBER,
3824: p_vendor_id IN NUMBER DEFAULT NULL,
3825: x_subsidy_amount OUT NOCOPY NUMBER) is
3826:
3827: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3828: l_api_name CONSTANT varchar2(30) := 'GET_FUND_SUBSIDY';
3829: l_api_version CONSTANT NUMBER := 1.0;
3830:
3831: l_subsidy_amount number;
3900: --veramach bug 5600694 end
3901:
3902: l_subsidy_cle_id number;
3903: begin
3904: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3905:
3906: -----------------------------------------
3907: --start of input parameter validations
3908: -----------------------------------------
3906: -----------------------------------------
3907: --start of input parameter validations
3908: -----------------------------------------
3909: --1.validate p_chr_id
3910: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3911: OKL_API.set_message(
3912: p_app_name => G_APP_NAME,
3913: p_msg_name => G_API_MISSING_PARAMETER,
3914: p_token1 => G_API_NAME_TOKEN,
3907: --start of input parameter validations
3908: -----------------------------------------
3909: --1.validate p_chr_id
3910: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
3911: OKL_API.set_message(
3912: p_app_name => G_APP_NAME,
3913: p_msg_name => G_API_MISSING_PARAMETER,
3914: p_token1 => G_API_NAME_TOKEN,
3915: p_token1_value => l_api_name,
3914: p_token1 => G_API_NAME_TOKEN,
3915: p_token1_value => l_api_name,
3916: p_token2 => G_MISSING_PARAM_TOKEN,
3917: p_token2_value => 'p_chr_id');
3918: x_return_status := OKL_API.G_RET_STS_ERROR;
3919: Raise OKL_API.G_EXCEPTION_ERROR;
3920: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3921: validate_chr_id(p_chr_id => p_chr_id,
3922: x_return_status => x_return_status);
3915: p_token1_value => l_api_name,
3916: p_token2 => G_MISSING_PARAM_TOKEN,
3917: p_token2_value => 'p_chr_id');
3918: x_return_status := OKL_API.G_RET_STS_ERROR;
3919: Raise OKL_API.G_EXCEPTION_ERROR;
3920: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3921: validate_chr_id(p_chr_id => p_chr_id,
3922: x_return_status => x_return_status);
3923: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3916: p_token2 => G_MISSING_PARAM_TOKEN,
3917: p_token2_value => 'p_chr_id');
3918: x_return_status := OKL_API.G_RET_STS_ERROR;
3919: Raise OKL_API.G_EXCEPTION_ERROR;
3920: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3921: validate_chr_id(p_chr_id => p_chr_id,
3922: x_return_status => x_return_status);
3923: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3924: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3919: Raise OKL_API.G_EXCEPTION_ERROR;
3920: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3921: validate_chr_id(p_chr_id => p_chr_id,
3922: x_return_status => x_return_status);
3923: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3924: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3925: Raise OKL_API.G_EXCEPTION_ERROR;
3926: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3927: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3920: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
3921: validate_chr_id(p_chr_id => p_chr_id,
3922: x_return_status => x_return_status);
3923: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3924: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3925: Raise OKL_API.G_EXCEPTION_ERROR;
3926: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3927: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: End If;
3921: validate_chr_id(p_chr_id => p_chr_id,
3922: x_return_status => x_return_status);
3923: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3924: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3925: Raise OKL_API.G_EXCEPTION_ERROR;
3926: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3927: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: End If;
3929: End If;
3922: x_return_status => x_return_status);
3923: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3924: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3925: Raise OKL_API.G_EXCEPTION_ERROR;
3926: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3927: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: End If;
3929: End If;
3930: --2. validate p_asset_cle_id
3923: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3924: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
3925: Raise OKL_API.G_EXCEPTION_ERROR;
3926: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3927: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: End If;
3929: End If;
3930: --2. validate p_asset_cle_id
3931: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3927: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: End If;
3929: End If;
3930: --2. validate p_asset_cle_id
3931: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3932: OKL_API.set_message(
3933: p_app_name => G_APP_NAME,
3934: p_msg_name => G_API_MISSING_PARAMETER,
3935: p_token1 => G_API_NAME_TOKEN,
3928: End If;
3929: End If;
3930: --2. validate p_asset_cle_id
3931: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
3932: OKL_API.set_message(
3933: p_app_name => G_APP_NAME,
3934: p_msg_name => G_API_MISSING_PARAMETER,
3935: p_token1 => G_API_NAME_TOKEN,
3936: p_token1_value => l_api_name,
3935: p_token1 => G_API_NAME_TOKEN,
3936: p_token1_value => l_api_name,
3937: p_token2 => G_MISSING_PARAM_TOKEN,
3938: p_token2_value => 'p_asset_cle_id');
3939: x_return_status := OKL_API.G_RET_STS_ERROR;
3940: Raise OKL_API.G_EXCEPTION_ERROR;
3941: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3942: validate_cle_id(p_cle_id => p_asset_cle_id,
3943: p_lty_code => 'FREE_FORM1',
3936: p_token1_value => l_api_name,
3937: p_token2 => G_MISSING_PARAM_TOKEN,
3938: p_token2_value => 'p_asset_cle_id');
3939: x_return_status := OKL_API.G_RET_STS_ERROR;
3940: Raise OKL_API.G_EXCEPTION_ERROR;
3941: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3942: validate_cle_id(p_cle_id => p_asset_cle_id,
3943: p_lty_code => 'FREE_FORM1',
3944: x_return_status => x_return_status);
3937: p_token2 => G_MISSING_PARAM_TOKEN,
3938: p_token2_value => 'p_asset_cle_id');
3939: x_return_status := OKL_API.G_RET_STS_ERROR;
3940: Raise OKL_API.G_EXCEPTION_ERROR;
3941: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3942: validate_cle_id(p_cle_id => p_asset_cle_id,
3943: p_lty_code => 'FREE_FORM1',
3944: x_return_status => x_return_status);
3945: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3941: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
3942: validate_cle_id(p_cle_id => p_asset_cle_id,
3943: p_lty_code => 'FREE_FORM1',
3944: x_return_status => x_return_status);
3945: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3946: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3947: Raise OKL_API.G_EXCEPTION_ERROR;
3948: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3949: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3942: validate_cle_id(p_cle_id => p_asset_cle_id,
3943: p_lty_code => 'FREE_FORM1',
3944: x_return_status => x_return_status);
3945: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3946: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3947: Raise OKL_API.G_EXCEPTION_ERROR;
3948: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3949: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: End If;
3943: p_lty_code => 'FREE_FORM1',
3944: x_return_status => x_return_status);
3945: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3946: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3947: Raise OKL_API.G_EXCEPTION_ERROR;
3948: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3949: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: End If;
3951: End If;
3944: x_return_status => x_return_status);
3945: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3946: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3947: Raise OKL_API.G_EXCEPTION_ERROR;
3948: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3949: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: End If;
3951: End If;
3952: --3.validate vendor id
3945: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3946: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
3947: Raise OKL_API.G_EXCEPTION_ERROR;
3948: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3949: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: End If;
3951: End If;
3952: --3.validate vendor id
3953: if (p_vendor_id is not NULL) then
3952: --3.validate vendor id
3953: if (p_vendor_id is not NULL) then
3954: validate_vendor_id(p_vendor_id => p_vendor_id,
3955: x_return_status => x_return_status);
3956: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3957: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_vendor_id');
3958: Raise OKL_API.G_EXCEPTION_ERROR;
3959: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3960: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3953: if (p_vendor_id is not NULL) then
3954: validate_vendor_id(p_vendor_id => p_vendor_id,
3955: x_return_status => x_return_status);
3956: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3957: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_vendor_id');
3958: Raise OKL_API.G_EXCEPTION_ERROR;
3959: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3960: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: End If;
3954: validate_vendor_id(p_vendor_id => p_vendor_id,
3955: x_return_status => x_return_status);
3956: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3957: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_vendor_id');
3958: Raise OKL_API.G_EXCEPTION_ERROR;
3959: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3960: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: End If;
3962: End If;
3955: x_return_status => x_return_status);
3956: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3957: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_vendor_id');
3958: Raise OKL_API.G_EXCEPTION_ERROR;
3959: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3960: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: End If;
3962: End If;
3963: -------------------------------------
3956: IF x_return_status = OKL_API.G_RET_STS_ERROR then
3957: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_vendor_id');
3958: Raise OKL_API.G_EXCEPTION_ERROR;
3959: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
3960: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: End If;
3962: End If;
3963: -------------------------------------
3964: --end of input parameter validations
3987: x_msg_data => x_msg_data,
3988: p_subsidy_cle_id => l_subsidy_cle_id,
3989: x_subsidy_amount => l_subsidy_amount);
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3988: p_subsidy_cle_id => l_subsidy_cle_id,
3989: x_subsidy_amount => l_subsidy_amount);
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3989: x_subsidy_amount => l_subsidy_amount);
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3997: End Loop;
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996: l_asset_subsidy_Amount := l_asset_subsidy_Amount + l_subsidy_amount;
3997: End Loop;
3998: Close l_vend_sub_csr;
4001: --veramach bug 5600694 end
4002: x_subsidy_amount := l_asset_subsidy_amount;
4003:
4004: EXCEPTION
4005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4007: l_api_name,
4008: G_PKG_NAME,
4009: 'OKL_API.G_RET_STS_ERROR',
4002: x_subsidy_amount := l_asset_subsidy_amount;
4003:
4004: EXCEPTION
4005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4007: l_api_name,
4008: G_PKG_NAME,
4009: 'OKL_API.G_RET_STS_ERROR',
4010: x_msg_count,
4005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4007: l_api_name,
4008: G_PKG_NAME,
4009: 'OKL_API.G_RET_STS_ERROR',
4010: x_msg_count,
4011: x_msg_data,
4012: '_PVT');
4013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4009: 'OKL_API.G_RET_STS_ERROR',
4010: x_msg_count,
4011: x_msg_data,
4012: '_PVT');
4013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4015: l_api_name,
4016: G_PKG_NAME,
4017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4010: x_msg_count,
4011: x_msg_data,
4012: '_PVT');
4013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4015: l_api_name,
4016: G_PKG_NAME,
4017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4018: x_msg_count,
4013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4015: l_api_name,
4016: G_PKG_NAME,
4017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4018: x_msg_count,
4019: x_msg_data,
4020: '_PVT');
4021: WHEN OTHERS THEN
4021: WHEN OTHERS THEN
4022: If l_vend_sub_csr%ISOPEN then
4023: CLOSE l_vend_sub_csr;
4024: End If;
4025: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4026: l_api_name,
4027: G_PKG_NAME,
4028: 'OTHERS',
4029: x_msg_count,
4047: p_asset_cle_id IN NUMBER,
4048: p_req_fund_amount IN NUMBER,
4049: x_asbv_tbl OUT NOCOPY asbv_tbl_type) is
4050:
4051: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4052: l_api_name CONSTANT varchar2(30) := 'GET_PARTIAL_SUBSIDY';
4053: l_api_version CONSTANT NUMBER := 1.0;
4054:
4055: l_asbv_tbl asbv_tbl_type;
4111:
4112: i number;
4113:
4114: begin
4115: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4116:
4117: ---------------------------------------------
4118: --validate input parameters
4119: ---------------------------------------------
4117: ---------------------------------------------
4118: --validate input parameters
4119: ---------------------------------------------
4120: --1.validate p_asset_id
4121: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
4122: OKL_API.set_message(
4123: p_app_name => G_APP_NAME,
4124: p_msg_name => G_API_MISSING_PARAMETER,
4125: p_token1 => G_API_NAME_TOKEN,
4118: --validate input parameters
4119: ---------------------------------------------
4120: --1.validate p_asset_id
4121: If (p_asset_cle_id is NULL) or (p_asset_cle_id = OKL_API.G_MISS_NUM) then
4122: OKL_API.set_message(
4123: p_app_name => G_APP_NAME,
4124: p_msg_name => G_API_MISSING_PARAMETER,
4125: p_token1 => G_API_NAME_TOKEN,
4126: p_token1_value => l_api_name,
4125: p_token1 => G_API_NAME_TOKEN,
4126: p_token1_value => l_api_name,
4127: p_token2 => G_MISSING_PARAM_TOKEN,
4128: p_token2_value => 'p_asset_cle_id');
4129: x_return_status := OKL_API.G_RET_STS_ERROR;
4130: Raise OKL_API.G_EXCEPTION_ERROR;
4131: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
4132: validate_cle_id(p_cle_id => p_asset_cle_id,
4133: p_lty_code => 'FREE_FORM1',
4126: p_token1_value => l_api_name,
4127: p_token2 => G_MISSING_PARAM_TOKEN,
4128: p_token2_value => 'p_asset_cle_id');
4129: x_return_status := OKL_API.G_RET_STS_ERROR;
4130: Raise OKL_API.G_EXCEPTION_ERROR;
4131: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
4132: validate_cle_id(p_cle_id => p_asset_cle_id,
4133: p_lty_code => 'FREE_FORM1',
4134: x_return_status => x_return_status);
4127: p_token2 => G_MISSING_PARAM_TOKEN,
4128: p_token2_value => 'p_asset_cle_id');
4129: x_return_status := OKL_API.G_RET_STS_ERROR;
4130: Raise OKL_API.G_EXCEPTION_ERROR;
4131: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
4132: validate_cle_id(p_cle_id => p_asset_cle_id,
4133: p_lty_code => 'FREE_FORM1',
4134: x_return_status => x_return_status);
4135: IF x_return_status = OKL_API.G_RET_STS_ERROR then
4131: Elsif (p_asset_cle_id is not NULL) and (p_asset_cle_id <> OKL_API.G_MISS_NUM) then
4132: validate_cle_id(p_cle_id => p_asset_cle_id,
4133: p_lty_code => 'FREE_FORM1',
4134: x_return_status => x_return_status);
4135: IF x_return_status = OKL_API.G_RET_STS_ERROR then
4136: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
4137: Raise OKL_API.G_EXCEPTION_ERROR;
4138: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
4139: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4132: validate_cle_id(p_cle_id => p_asset_cle_id,
4133: p_lty_code => 'FREE_FORM1',
4134: x_return_status => x_return_status);
4135: IF x_return_status = OKL_API.G_RET_STS_ERROR then
4136: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
4137: Raise OKL_API.G_EXCEPTION_ERROR;
4138: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
4139: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4140: End If;
4133: p_lty_code => 'FREE_FORM1',
4134: x_return_status => x_return_status);
4135: IF x_return_status = OKL_API.G_RET_STS_ERROR then
4136: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
4137: Raise OKL_API.G_EXCEPTION_ERROR;
4138: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
4139: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4140: End If;
4141: End If;
4134: x_return_status => x_return_status);
4135: IF x_return_status = OKL_API.G_RET_STS_ERROR then
4136: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
4137: Raise OKL_API.G_EXCEPTION_ERROR;
4138: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
4139: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4140: End If;
4141: End If;
4142: ------------------------------------------
4135: IF x_return_status = OKL_API.G_RET_STS_ERROR then
4136: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_asset_cle_id');
4137: Raise OKL_API.G_EXCEPTION_ERROR;
4138: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
4139: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4140: End If;
4141: End If;
4142: ------------------------------------------
4143: --end of input parameter validations
4165: -- p_contract_id => l_chr_id,
4166: -- p_line_id => p_asset_cle_id,
4167: -- x_value => l_asset_oec);
4168:
4169: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4170: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4171: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4172: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4173: --END IF;
4166: -- p_line_id => p_asset_cle_id,
4167: -- x_value => l_asset_oec);
4168:
4169: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4170: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4171: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4172: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4173: --END IF;
4174: -----------*/
4167: -- x_value => l_asset_oec);
4168:
4169: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4170: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4171: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4172: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4173: --END IF;
4174: -----------*/
4175: -------------------------------------------
4168:
4169: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4170: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4171: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4172: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4173: --END IF;
4174: -----------*/
4175: -------------------------------------------
4176: --call seeded functions API :
4188: x_msg_data => x_msg_data,
4189: p_subsidy_cle_id => l_subsidy_cle_id,
4190: x_asbv_rec => l_asbv_tbl(i));
4191:
4192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_ERROR;
4196: END IF;
4189: p_subsidy_cle_id => l_subsidy_cle_id,
4190: x_asbv_rec => l_asbv_tbl(i));
4191:
4192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_ERROR;
4196: END IF;
4197:
4190: x_asbv_rec => l_asbv_tbl(i));
4191:
4192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_ERROR;
4196: END IF;
4197:
4198: --calculate proportional subsidy amount
4191:
4192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_ERROR;
4196: END IF;
4197:
4198: --calculate proportional subsidy amount
4199: l_asbv_tbl(i).amount := (l_asbv_tbl(i).amount/l_asset_oec)* p_req_fund_amount;
4202:
4203: x_asbv_tbl := l_asbv_tbl;
4204:
4205: EXCEPTION
4206: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4208: l_api_name,
4209: G_PKG_NAME,
4210: 'OKL_API.G_RET_STS_ERROR',
4203: x_asbv_tbl := l_asbv_tbl;
4204:
4205: EXCEPTION
4206: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4208: l_api_name,
4209: G_PKG_NAME,
4210: 'OKL_API.G_RET_STS_ERROR',
4211: x_msg_count,
4206: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4208: l_api_name,
4209: G_PKG_NAME,
4210: 'OKL_API.G_RET_STS_ERROR',
4211: x_msg_count,
4212: x_msg_data,
4213: '_PVT');
4214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4210: 'OKL_API.G_RET_STS_ERROR',
4211: x_msg_count,
4212: x_msg_data,
4213: '_PVT');
4214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4215: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4216: l_api_name,
4217: G_PKG_NAME,
4218: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4211: x_msg_count,
4212: x_msg_data,
4213: '_PVT');
4214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4215: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4216: l_api_name,
4217: G_PKG_NAME,
4218: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4219: x_msg_count,
4214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4215: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4216: l_api_name,
4217: G_PKG_NAME,
4218: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4219: x_msg_count,
4220: x_msg_data,
4221: '_PVT');
4222: WHEN OTHERS THEN
4222: WHEN OTHERS THEN
4223: If l_vend_sub_csr%ISOPEN then
4224: CLOSE l_vend_sub_csr;
4225: End If;
4226: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4227: l_api_name,
4228: G_PKG_NAME,
4229: 'OTHERS',
4230: x_msg_count,
4260: x_review_invoice_yn OUT NOCOPY Varchar2,
4261: x_cust_acct_site_id OUT NOCOPY Number,
4262: x_payment_term_id OUT NOCOPY Number) As
4263:
4264: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4265: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4266:
4267: l_contract_id NUMBER := p_contract_id;
4268: l_cpl_id NUMBER := p_cpl_id;
4261: x_cust_acct_site_id OUT NOCOPY Number,
4262: x_payment_term_id OUT NOCOPY Number) As
4263:
4264: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4265: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4266:
4267: l_contract_id NUMBER := p_contract_id;
4268: l_cpl_id NUMBER := p_cpl_id;
4269: l_khr_id NUMBER;
4425: -- *******************
4426: -- Validate parameters
4427: -- *******************
4428: IF (l_cpl_id IS NULL
4429: OR l_cpl_id = OKL_API.G_MISS_NUM)
4430: AND (l_contract_id IS NULL
4431: OR l_contract_id = OKL_API.G_MISS_NUM) THEN
4432:
4433: l_return_status := OKL_API.G_RET_STS_ERROR;
4427: -- *******************
4428: IF (l_cpl_id IS NULL
4429: OR l_cpl_id = OKL_API.G_MISS_NUM)
4430: AND (l_contract_id IS NULL
4431: OR l_contract_id = OKL_API.G_MISS_NUM) THEN
4432:
4433: l_return_status := OKL_API.G_RET_STS_ERROR;
4434: OKL_API.SET_MESSAGE (
4435: p_app_name => G_APP_NAME,
4429: OR l_cpl_id = OKL_API.G_MISS_NUM)
4430: AND (l_contract_id IS NULL
4431: OR l_contract_id = OKL_API.G_MISS_NUM) THEN
4432:
4433: l_return_status := OKL_API.G_RET_STS_ERROR;
4434: OKL_API.SET_MESSAGE (
4435: p_app_name => G_APP_NAME,
4436: p_msg_name => G_INCOMPLETE_VEND_BILL,
4437: p_token1 => G_ERROR_TYPE_TOKEN,
4430: AND (l_contract_id IS NULL
4431: OR l_contract_id = OKL_API.G_MISS_NUM) THEN
4432:
4433: l_return_status := OKL_API.G_RET_STS_ERROR;
4434: OKL_API.SET_MESSAGE (
4435: p_app_name => G_APP_NAME,
4436: p_msg_name => G_INCOMPLETE_VEND_BILL,
4437: p_token1 => G_ERROR_TYPE_TOKEN,
4438: p_token1_value => 'Program Error : ',
4441: );
4442:
4443: END IF;
4444:
4445: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4446: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4447: l_overall_status := l_return_status;
4448: END IF;
4449: END IF;
4442:
4443: END IF;
4444:
4445: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4446: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4447: l_overall_status := l_return_status;
4448: END IF;
4449: END IF;
4450:
4451: -- ***************
4452: -- Find Rule Group
4453: -- ***************
4454:
4455: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4456:
4457: IF l_cpl_id IS NOT NULL
4458: AND l_cpl_id <> OKL_API.G_MISS_NUM THEN
4459:
4454:
4455: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4456:
4457: IF l_cpl_id IS NOT NULL
4458: AND l_cpl_id <> OKL_API.G_MISS_NUM THEN
4459:
4460: OPEN l_k_party_rg_csr (l_cpl_id);
4461: FETCH l_k_party_rg_csr INTO l_k_party_rg_rec;
4462: CLOSE l_k_party_rg_csr;
4465: l_bill_to_site_use_id := l_k_party_rg_rec.bill_to_site_use_id ;
4466: l_cust_acct_id := l_k_party_rg_rec.cust_acct_id;
4467:
4468: IF l_k_party_rg_rec.cpl_id IS NULL THEN
4469: l_return_status := OKL_API.G_RET_STS_ERROR;
4470: OKL_API.SET_MESSAGE (
4471: p_app_name => G_APP_NAME,
4472: p_msg_name => G_INCOMPLETE_VEND_BILL,
4473: p_token1 => G_ERROR_TYPE_TOKEN,
4466: l_cust_acct_id := l_k_party_rg_rec.cust_acct_id;
4467:
4468: IF l_k_party_rg_rec.cpl_id IS NULL THEN
4469: l_return_status := OKL_API.G_RET_STS_ERROR;
4470: OKL_API.SET_MESSAGE (
4471: p_app_name => G_APP_NAME,
4472: p_msg_name => G_INCOMPLETE_VEND_BILL,
4473: p_token1 => G_ERROR_TYPE_TOKEN,
4474: p_token1_value => 'Program Error : ',
4480: --Try to fetch billing details from vendor program if lease
4481: --and vp verndor are the same
4482: ----------------------------------------------------------------
4483: If l_contract_id is not null
4484: and l_contract_id <> OKL_API.G_MISS_NUM
4485: Then
4486: --Open vendor program cursor
4487: OPEN l_partner_rg_csr (l_contract_id, l_k_party_rg_rec.object1_id1);
4488: FETCH l_partner_rg_csr INTO l_khr_id,
4495:
4496: ------------------------------------------------------------
4497: --not to raise this ambiguous error when VP does not exist
4498: --If (l_khr_id is null) OR (l_par_id is null) then
4499: -- l_return_status := OKL_API.G_RET_STS_ERROR;
4500: -- OKL_API.SET_MESSAGE (
4501: -- p_app_name => G_APP_NAME,
4502: -- p_msg_name => G_INCOMPLETE_VEND_BILL,
4503: -- p_token1 => G_ERROR_TYPE_TOKEN,
4496: ------------------------------------------------------------
4497: --not to raise this ambiguous error when VP does not exist
4498: --If (l_khr_id is null) OR (l_par_id is null) then
4499: -- l_return_status := OKL_API.G_RET_STS_ERROR;
4500: -- OKL_API.SET_MESSAGE (
4501: -- p_app_name => G_APP_NAME,
4502: -- p_msg_name => G_INCOMPLETE_VEND_BILL,
4503: -- p_token1 => G_ERROR_TYPE_TOKEN,
4504: -- p_token1_value => 'Program Error : ',
4509: --not to raise this ambiguous error when VP does not exist
4510: -------------------------------------------------------------
4511: If l_bill_to_site_use_id is null then
4512:
4513: l_return_status := OKL_API.G_RET_STS_ERROR;
4514: OKL_API.SET_MESSAGE (
4515: p_app_name => G_APP_NAME,
4516: p_msg_name => G_INCOMPLETE_VEND_BILL,
4517: p_token1 => G_ERROR_TYPE_TOKEN,
4510: -------------------------------------------------------------
4511: If l_bill_to_site_use_id is null then
4512:
4513: l_return_status := OKL_API.G_RET_STS_ERROR;
4514: OKL_API.SET_MESSAGE (
4515: p_app_name => G_APP_NAME,
4516: p_msg_name => G_INCOMPLETE_VEND_BILL,
4517: p_token1 => G_ERROR_TYPE_TOKEN,
4518: p_token1_value => 'Billing setup not defined.',
4523: ---------------------------------------------------------------
4524: --End of trying to fetch billing details from VP
4525: ---------------------------------------------------------------
4526: Else
4527: l_return_status := OKL_API.G_RET_STS_ERROR;
4528: OKL_API.SET_MESSAGE (
4529: p_app_name => G_APP_NAME,
4530: p_msg_name => G_INCOMPLETE_VEND_BILL,
4531: p_token1 => G_ERROR_TYPE_TOKEN,
4524: --End of trying to fetch billing details from VP
4525: ---------------------------------------------------------------
4526: Else
4527: l_return_status := OKL_API.G_RET_STS_ERROR;
4528: OKL_API.SET_MESSAGE (
4529: p_app_name => G_APP_NAME,
4530: p_msg_name => G_INCOMPLETE_VEND_BILL,
4531: p_token1 => G_ERROR_TYPE_TOKEN,
4532: p_token1_value => '',
4537: End If;
4538: END IF;
4539: ELSE
4540: --exception cpl_id passed is null
4541: l_return_status := OKL_API.G_RET_STS_ERROR;
4542: OKL_API.SET_MESSAGE (
4543: p_app_name => G_APP_NAME,
4544: p_msg_name => G_INCOMPLETE_VEND_BILL,
4545: p_token1 => G_ERROR_TYPE_TOKEN,
4538: END IF;
4539: ELSE
4540: --exception cpl_id passed is null
4541: l_return_status := OKL_API.G_RET_STS_ERROR;
4542: OKL_API.SET_MESSAGE (
4543: p_app_name => G_APP_NAME,
4544: p_msg_name => G_INCOMPLETE_VEND_BILL,
4545: p_token1 => G_ERROR_TYPE_TOKEN,
4546: p_token1_value => 'Program Error : ',
4550:
4551: END IF;
4552: END IF;
4553:
4554: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4555: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4556: l_overall_status := l_return_status;
4557: END IF;
4558: END IF;
4551: END IF;
4552: END IF;
4553:
4554: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4555: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4556: l_overall_status := l_return_status;
4557: END IF;
4558: END IF;
4559:
4557: END IF;
4558: END IF;
4559:
4560:
4561: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4562:
4563: --------------------------------------------
4564: --1. Get payment method
4565: --------------------------------------------
4643: -- *****************************************************
4644: -- Extract Customer, Bill To and Payment Term from rules
4645: -- *****************************************************
4646:
4647: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4648:
4649: OPEN l_site_use_csr (l_bill_to_site_use_id, 'BILL_TO');
4650: FETCH l_site_use_csr INTO l_site_use_rec;
4651: CLOSE l_site_use_csr;
4653: l_cust_acct_site_id := l_site_use_rec.cust_acct_site_id;
4654: l_payment_term_id := l_site_use_rec.payment_term_id;
4655:
4656: IF l_payment_term_id IS NULL
4657: OR l_payment_term_id = OKL_API.G_MISS_NUM THEN
4658: OPEN l_std_terms_csr (
4659: l_site_use_rec.cust_account_id,
4660: l_bill_to_site_use_id);
4661: FETCH l_std_terms_csr INTO l_payment_term_id;
4663: END IF;
4664:
4665: END IF;
4666:
4667: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4668: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4669: l_overall_status := l_return_status;
4670: END IF;
4671: END IF;
4664:
4665: END IF;
4666:
4667: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4668: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4669: l_overall_status := l_return_status;
4670: END IF;
4671: END IF;
4672:
4673: -- ****************
4674: -- Validate Results
4675: -- ****************
4676:
4677: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4678:
4679: --IF px_taiv_rec.ixx_id IS NULL
4680: --OR px_taiv_rec.ixx_id = G_MISS_NUM THEN
4681: IF l_cust_acct_id IS NULL
4678:
4679: --IF px_taiv_rec.ixx_id IS NULL
4680: --OR px_taiv_rec.ixx_id = G_MISS_NUM THEN
4681: IF l_cust_acct_id IS NULL
4682: OR l_cust_acct_id = OKL_API.G_MISS_NUM THEN
4683:
4684: l_return_status := OKL_API.G_RET_STS_ERROR;
4685: OKL_API.SET_MESSAGE (
4686: p_app_name => G_APP_NAME,
4680: --OR px_taiv_rec.ixx_id = G_MISS_NUM THEN
4681: IF l_cust_acct_id IS NULL
4682: OR l_cust_acct_id = OKL_API.G_MISS_NUM THEN
4683:
4684: l_return_status := OKL_API.G_RET_STS_ERROR;
4685: OKL_API.SET_MESSAGE (
4686: p_app_name => G_APP_NAME,
4687: p_msg_name => G_INCOMPLETE_VEND_BILL,
4688: p_token1 => G_ERROR_TYPE_TOKEN,
4681: IF l_cust_acct_id IS NULL
4682: OR l_cust_acct_id = OKL_API.G_MISS_NUM THEN
4683:
4684: l_return_status := OKL_API.G_RET_STS_ERROR;
4685: OKL_API.SET_MESSAGE (
4686: p_app_name => G_APP_NAME,
4687: p_msg_name => G_INCOMPLETE_VEND_BILL,
4688: p_token1 => G_ERROR_TYPE_TOKEN,
4689: p_token1_value => '',
4695:
4696: --IF px_taiv_rec.ibt_id IS NULL
4697: --OR px_taiv_rec.ibt_id = G_MISS_NUM THEN
4698: IF l_cust_acct_site_id IS NULL
4699: OR l_cust_acct_site_id = OKL_API.G_MISS_NUM THEN
4700: l_return_status := OKL_API.G_RET_STS_ERROR;
4701: OKL_API.SET_MESSAGE (
4702: p_app_name => G_APP_NAME,
4703: p_msg_name => G_INCOMPLETE_VEND_BILL,
4696: --IF px_taiv_rec.ibt_id IS NULL
4697: --OR px_taiv_rec.ibt_id = G_MISS_NUM THEN
4698: IF l_cust_acct_site_id IS NULL
4699: OR l_cust_acct_site_id = OKL_API.G_MISS_NUM THEN
4700: l_return_status := OKL_API.G_RET_STS_ERROR;
4701: OKL_API.SET_MESSAGE (
4702: p_app_name => G_APP_NAME,
4703: p_msg_name => G_INCOMPLETE_VEND_BILL,
4704: p_token1 => G_ERROR_TYPE_TOKEN,
4697: --OR px_taiv_rec.ibt_id = G_MISS_NUM THEN
4698: IF l_cust_acct_site_id IS NULL
4699: OR l_cust_acct_site_id = OKL_API.G_MISS_NUM THEN
4700: l_return_status := OKL_API.G_RET_STS_ERROR;
4701: OKL_API.SET_MESSAGE (
4702: p_app_name => G_APP_NAME,
4703: p_msg_name => G_INCOMPLETE_VEND_BILL,
4704: p_token1 => G_ERROR_TYPE_TOKEN,
4705: p_token1_value => '',
4710:
4711: --IF px_taiv_rec.irt_id IS NULL
4712: --OR px_taiv_rec.irt_id = G_MISS_NUM THEN
4713: IF l_payment_term_id IS NULL
4714: OR l_payment_term_id = OKL_API.G_MISS_NUM THEN
4715: l_return_status := OKL_API.G_RET_STS_ERROR;
4716: OKL_API.SET_MESSAGE (
4717: p_app_name => G_APP_NAME,
4718: p_msg_name => G_INCOMPLETE_VEND_BILL,
4711: --IF px_taiv_rec.irt_id IS NULL
4712: --OR px_taiv_rec.irt_id = G_MISS_NUM THEN
4713: IF l_payment_term_id IS NULL
4714: OR l_payment_term_id = OKL_API.G_MISS_NUM THEN
4715: l_return_status := OKL_API.G_RET_STS_ERROR;
4716: OKL_API.SET_MESSAGE (
4717: p_app_name => G_APP_NAME,
4718: p_msg_name => G_INCOMPLETE_VEND_BILL,
4719: p_token1 => G_ERROR_TYPE_TOKEN,
4712: --OR px_taiv_rec.irt_id = G_MISS_NUM THEN
4713: IF l_payment_term_id IS NULL
4714: OR l_payment_term_id = OKL_API.G_MISS_NUM THEN
4715: l_return_status := OKL_API.G_RET_STS_ERROR;
4716: OKL_API.SET_MESSAGE (
4717: p_app_name => G_APP_NAME,
4718: p_msg_name => G_INCOMPLETE_VEND_BILL,
4719: p_token1 => G_ERROR_TYPE_TOKEN,
4720: p_token1_value => '',
4724: END IF;
4725:
4726: END IF;
4727:
4728: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4729: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4730: l_overall_status := l_return_status;
4731: END IF;
4732: END IF;
4725:
4726: END IF;
4727:
4728: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4729: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4730: l_overall_status := l_return_status;
4731: END IF;
4732: END IF;
4733:
4776: CLOSE l_rul_csr;
4777: END IF;
4778:
4779: -- store SQL error message on message stack for caller
4780: OKL_API.SET_MESSAGE (
4781: p_app_name => G_APP_NAME
4782: ,p_msg_name => G_UNEXPECTED_ERROR
4783: ,p_token1 => G_SQLCODE_TOKEN
4784: ,p_token1_value => sqlcode
4786: ,p_token2_value => sqlerrm);
4787:
4788:
4789: -- notify caller of an UNEXPECTED error
4790: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4791:
4792: END Get_Vendor_Billing_Info;
4793:
4794: -- Start of comments
4830: When others then
4831: If l_try_id_csr%ISOPEN then
4832: CLOSE l_try_id_csr;
4833: End If;
4834: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
4835: ,p_msg_name => G_UNEXPECTED_ERROR
4836: ,p_token1 => G_SQLCODE_TOKEN
4837: ,p_token1_value => SQLCODE
4838: ,p_token2 => G_SQLERRM_TOKEN
4856: , x_msg_count OUT NOCOPY NUMBER
4857: , x_msg_data OUT NOCOPY VARCHAR2
4858: , p_chr_id IN NUMBER
4859: , p_asdv_tbl IN asbv_tbl_type) IS
4860: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4861: l_api_name CONSTANT varchar2(30) := 'insert_billing_records';
4862: l_api_version CONSTANT NUMBER := 1.0;
4863:
4864: l_asdv_tbl asbv_tbl_type DEFAULT p_asdv_tbl;
4942: l_chr_id number DEFAULT p_chr_id;
4943:
4944: BEGIN
4945:
4946: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4947: -- Call start_activity to create savepoint, check compatibility
4948: -- and initialize message list
4949: x_return_status := OKL_API.START_ACTIVITY (
4950: l_api_name
4945:
4946: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4947: -- Call start_activity to create savepoint, check compatibility
4948: -- and initialize message list
4949: x_return_status := OKL_API.START_ACTIVITY (
4950: l_api_name
4951: ,p_init_msg_list
4952: ,'_PVT'
4953: ,x_return_status);
4951: ,p_init_msg_list
4952: ,'_PVT'
4953: ,x_return_status);
4954: -- Check if activity started successfully
4955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4958: RAISE OKL_API.G_EXCEPTION_ERROR;
4959: END IF;
4952: ,'_PVT'
4953: ,x_return_status);
4954: -- Check if activity started successfully
4955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4958: RAISE OKL_API.G_EXCEPTION_ERROR;
4959: END IF;
4960:
4953: ,x_return_status);
4954: -- Check if activity started successfully
4955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4958: RAISE OKL_API.G_EXCEPTION_ERROR;
4959: END IF;
4960:
4961: IF l_asdv_tbl.COUNT = 0 Then
4954: -- Check if activity started successfully
4955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4958: RAISE OKL_API.G_EXCEPTION_ERROR;
4959: END IF;
4960:
4961: IF l_asdv_tbl.COUNT = 0 Then
4962: Null;
5044: x_review_invoice_yn => l_review_invoice_yn,
5045: x_cust_acct_site_id => l_cust_acct_site_id,
5046: x_payment_term_id => l_payment_term_id);
5047:
5048: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5049: OKL_API.SET_MESSAGE (
5050: p_app_name => G_APP_NAME,
5051: p_msg_name => G_VERIFY_VENDOR_BILL,
5052: p_token1 => G_VENDOR_NAME_TOKEN,
5045: x_cust_acct_site_id => l_cust_acct_site_id,
5046: x_payment_term_id => l_payment_term_id);
5047:
5048: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5049: OKL_API.SET_MESSAGE (
5050: p_app_name => G_APP_NAME,
5051: p_msg_name => G_VERIFY_VENDOR_BILL,
5052: p_token1 => G_VENDOR_NAME_TOKEN,
5053: p_token1_value => l_asdv_tbl_proc(i).vendor_name
5051: p_msg_name => G_VERIFY_VENDOR_BILL,
5052: p_token1 => G_VENDOR_NAME_TOKEN,
5053: p_token1_value => l_asdv_tbl_proc(i).vendor_name
5054: );
5055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5057: OKL_API.SET_MESSAGE (
5058: p_app_name => G_APP_NAME,
5059: p_msg_name => G_VERIFY_VENDOR_BILL,
5052: p_token1 => G_VENDOR_NAME_TOKEN,
5053: p_token1_value => l_asdv_tbl_proc(i).vendor_name
5054: );
5055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5057: OKL_API.SET_MESSAGE (
5058: p_app_name => G_APP_NAME,
5059: p_msg_name => G_VERIFY_VENDOR_BILL,
5060: p_token1 => G_VENDOR_NAME_TOKEN,
5053: p_token1_value => l_asdv_tbl_proc(i).vendor_name
5054: );
5055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5057: OKL_API.SET_MESSAGE (
5058: p_app_name => G_APP_NAME,
5059: p_msg_name => G_VERIFY_VENDOR_BILL,
5060: p_token1 => G_VENDOR_NAME_TOKEN,
5061: p_token1_value => l_asdv_tbl_proc(i).vendor_name
5059: p_msg_name => G_VERIFY_VENDOR_BILL,
5060: p_token1 => G_VENDOR_NAME_TOKEN,
5061: p_token1_value => l_asdv_tbl_proc(i).vendor_name
5062: );
5063: RAISE OKL_API.G_EXCEPTION_ERROR;
5064: END IF;
5065: -- Varangan - Billing Enhancement changes - Bug#5874824 - Begin
5066: lp_taiv_rec.ibt_id := l_cust_acct_site_id;
5067: lp_taiv_rec.ixx_id := l_cust_acct_id;
5071: --function to fetch try_id
5072: l_try_id := Get_trx_type_id(p_trx_type => G_AR_INV_TRX_TYPE,
5073: p_lang => 'US');
5074: If l_try_id is null then
5075: x_return_status := OKL_API.G_RET_STS_ERROR;
5076: OKL_API.SET_MESSAGE (
5077: p_app_name => G_APP_NAME,
5078: p_msg_name => G_REQUIRED_VALUE,
5079: p_token1 => G_COL_NAME_TOKEN,
5072: l_try_id := Get_trx_type_id(p_trx_type => G_AR_INV_TRX_TYPE,
5073: p_lang => 'US');
5074: If l_try_id is null then
5075: x_return_status := OKL_API.G_RET_STS_ERROR;
5076: OKL_API.SET_MESSAGE (
5077: p_app_name => G_APP_NAME,
5078: p_msg_name => G_REQUIRED_VALUE,
5079: p_token1 => G_COL_NAME_TOKEN,
5080: p_token1_value => 'Transaction Type');
5077: p_app_name => G_APP_NAME,
5078: p_msg_name => G_REQUIRED_VALUE,
5079: p_token1 => G_COL_NAME_TOKEN,
5080: p_token1_value => 'Transaction Type');
5081: RAISE OKL_API.G_EXCEPTION_ERROR;
5082: End If;
5083: -- Varangan - Billing Enhancement changes - Bug#5874824 - Begin
5084: lp_taiv_rec.try_id := l_try_id;
5085: lp_taiv_rec.trx_status_code := G_SUBMIT_STATUS;
5117: x_taiv_rec => lx_taiv_rec,
5118: x_tilv_tbl => lx_tilv_tbl,
5119: x_tldv_tbl => lx_tldv_tbl);
5120:
5121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_ERROR;
5125: END IF;
5118: x_tilv_tbl => lx_tilv_tbl,
5119: x_tldv_tbl => lx_tldv_tbl);
5120:
5121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_ERROR;
5125: END IF;
5126:
5119: x_tldv_tbl => lx_tldv_tbl);
5120:
5121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_ERROR;
5125: END IF;
5126:
5127:
5120:
5121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_ERROR;
5125: END IF;
5126:
5127:
5128:
5137: x_msg_data => x_msg_data,
5138: p_taiv_rec => l_taiv_rec,
5139: x_taiv_rec => lx_taiv_rec);
5140:
5141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5144: RAISE OKL_API.G_EXCEPTION_ERROR;
5145: END IF;
5138: p_taiv_rec => l_taiv_rec,
5139: x_taiv_rec => lx_taiv_rec);
5140:
5141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5144: RAISE OKL_API.G_EXCEPTION_ERROR;
5145: END IF;
5146:
5139: x_taiv_rec => lx_taiv_rec);
5140:
5141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5144: RAISE OKL_API.G_EXCEPTION_ERROR;
5145: END IF;
5146:
5147:
5140:
5141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5144: RAISE OKL_API.G_EXCEPTION_ERROR;
5145: END IF;
5146:
5147:
5148: --tilv_record
5159: x_msg_data => x_msg_data,
5160: p_tilv_rec => l_tilv_rec,
5161: x_tilv_rec => lx_tilv_rec);
5162:
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5160: p_tilv_rec => l_tilv_rec,
5161: x_tilv_rec => lx_tilv_rec);
5162:
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5168:
5161: x_tilv_rec => lx_tilv_rec);
5162:
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5168:
5169:
5162:
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5168:
5169:
5170: --accounting trx
5179: x_msg_count => x_msg_count,
5180: x_msg_data => x_msg_data,
5181: p_bpd_acc_rec => l_bpd_acc_rec);
5182:
5183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF; */
5180: x_msg_data => x_msg_data,
5181: p_bpd_acc_rec => l_bpd_acc_rec);
5182:
5183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF; */
5188:
5181: p_bpd_acc_rec => l_bpd_acc_rec);
5182:
5183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF; */
5188:
5189: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
5182:
5183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF; */
5188:
5189: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
5190: End Loop;
5191: End If;
5192: End If;
5193:
5194: l_asdv_tbl_proc.delete;
5195: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5196:
5197: EXCEPTION
5198: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5199: If l_samevend_csr%ISOPEN then
5194: l_asdv_tbl_proc.delete;
5195: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5196:
5197: EXCEPTION
5198: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5199: If l_samevend_csr%ISOPEN then
5200: close l_samevend_csr;
5201: End If;
5202: If l_chrcpl_csr%ISOPEN then
5201: End If;
5202: If l_chrcpl_csr%ISOPEN then
5203: close l_chrcpl_csr;
5204: End If;
5205: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5206: l_api_name,
5207: G_PKG_NAME,
5208: 'OKL_API.G_RET_STS_ERROR',
5209: x_msg_count,
5204: End If;
5205: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5206: l_api_name,
5207: G_PKG_NAME,
5208: 'OKL_API.G_RET_STS_ERROR',
5209: x_msg_count,
5210: x_msg_data,
5211: '_PVT');
5212: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5208: 'OKL_API.G_RET_STS_ERROR',
5209: x_msg_count,
5210: x_msg_data,
5211: '_PVT');
5212: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5213: If l_samevend_csr%ISOPEN then
5214: close l_samevend_csr;
5215: End If;
5216: If l_chrcpl_csr%ISOPEN then
5215: End If;
5216: If l_chrcpl_csr%ISOPEN then
5217: close l_chrcpl_csr;
5218: End If;
5219: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5220: l_api_name,
5221: G_PKG_NAME,
5222: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5223: x_msg_count,
5218: End If;
5219: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5220: l_api_name,
5221: G_PKG_NAME,
5222: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5223: x_msg_count,
5224: x_msg_data,
5225: '_PVT');
5226: WHEN OTHERS THEN
5229: End If;
5230: If l_chrcpl_csr%ISOPEN then
5231: close l_chrcpl_csr;
5232: End If;
5233: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5234: l_api_name,
5235: G_PKG_NAME,
5236: 'OTHERS',
5237: x_msg_count,
5254: p_rbk_chr_id in number,
5255: p_orig_chr_id in number
5256: ) is
5257:
5258: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5259: l_api_name CONSTANT varchar2(30) := 'REBOOK_SYNCHRONIZE';
5260: l_api_version CONSTANT NUMBER := 1.0;
5261:
5262:
5492: l_new_cnt NUMBER DEFAULT 0;
5493: -- varangan - Bug#5474059 - Added - End
5494: begin
5495:
5496: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5497: -- Call start_activity to create savepoint, check compatibility
5498: -- and initialize message list
5499: x_return_status := OKL_API.START_ACTIVITY (
5500: l_api_name
5495:
5496: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5497: -- Call start_activity to create savepoint, check compatibility
5498: -- and initialize message list
5499: x_return_status := OKL_API.START_ACTIVITY (
5500: l_api_name
5501: ,p_init_msg_list
5502: ,'_PVT'
5503: ,x_return_status);
5501: ,p_init_msg_list
5502: ,'_PVT'
5503: ,x_return_status);
5504: -- Check if activity started successfully
5505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5508: RAISE OKL_API.G_EXCEPTION_ERROR;
5509: END IF;
5502: ,'_PVT'
5503: ,x_return_status);
5504: -- Check if activity started successfully
5505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5508: RAISE OKL_API.G_EXCEPTION_ERROR;
5509: END IF;
5510:
5503: ,x_return_status);
5504: -- Check if activity started successfully
5505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5508: RAISE OKL_API.G_EXCEPTION_ERROR;
5509: END IF;
5510:
5511: -- check if debug is enabled
5504: -- Check if activity started successfully
5505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5508: RAISE OKL_API.G_EXCEPTION_ERROR;
5509: END IF;
5510:
5511: -- check if debug is enabled
5512: l_debug_enabled := okl_debug_pub.check_log_enabled;
5516: --------------------------------------
5517: --start of input parameter validations
5518: --------------------------------------
5519: --1.validate p_rbk_chr_id
5520: If (p_rbk_chr_id is NULL) or (p_rbk_chr_id = OKL_API.G_MISS_NUM) then
5521: OKL_API.set_message(
5522: p_app_name => G_APP_NAME,
5523: p_msg_name => G_API_MISSING_PARAMETER,
5524: p_token1 => G_API_NAME_TOKEN,
5517: --start of input parameter validations
5518: --------------------------------------
5519: --1.validate p_rbk_chr_id
5520: If (p_rbk_chr_id is NULL) or (p_rbk_chr_id = OKL_API.G_MISS_NUM) then
5521: OKL_API.set_message(
5522: p_app_name => G_APP_NAME,
5523: p_msg_name => G_API_MISSING_PARAMETER,
5524: p_token1 => G_API_NAME_TOKEN,
5525: p_token1_value => l_api_name,
5524: p_token1 => G_API_NAME_TOKEN,
5525: p_token1_value => l_api_name,
5526: p_token2 => G_MISSING_PARAM_TOKEN,
5527: p_token2_value => 'p_rbk_chr_id');
5528: x_return_status := OKL_API.G_RET_STS_ERROR;
5529: Raise OKL_API.G_EXCEPTION_ERROR;
5530: Elsif (p_rbk_chr_id is not NULL) and (p_rbk_chr_id <> OKL_API.G_MISS_NUM) then
5531: validate_chr_id(p_chr_id => p_rbk_chr_id,
5532: x_return_status => x_return_status);
5525: p_token1_value => l_api_name,
5526: p_token2 => G_MISSING_PARAM_TOKEN,
5527: p_token2_value => 'p_rbk_chr_id');
5528: x_return_status := OKL_API.G_RET_STS_ERROR;
5529: Raise OKL_API.G_EXCEPTION_ERROR;
5530: Elsif (p_rbk_chr_id is not NULL) and (p_rbk_chr_id <> OKL_API.G_MISS_NUM) then
5531: validate_chr_id(p_chr_id => p_rbk_chr_id,
5532: x_return_status => x_return_status);
5533: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5526: p_token2 => G_MISSING_PARAM_TOKEN,
5527: p_token2_value => 'p_rbk_chr_id');
5528: x_return_status := OKL_API.G_RET_STS_ERROR;
5529: Raise OKL_API.G_EXCEPTION_ERROR;
5530: Elsif (p_rbk_chr_id is not NULL) and (p_rbk_chr_id <> OKL_API.G_MISS_NUM) then
5531: validate_chr_id(p_chr_id => p_rbk_chr_id,
5532: x_return_status => x_return_status);
5533: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5534: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_rbk_chr_id');
5529: Raise OKL_API.G_EXCEPTION_ERROR;
5530: Elsif (p_rbk_chr_id is not NULL) and (p_rbk_chr_id <> OKL_API.G_MISS_NUM) then
5531: validate_chr_id(p_chr_id => p_rbk_chr_id,
5532: x_return_status => x_return_status);
5533: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5534: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_rbk_chr_id');
5535: Raise OKL_API.G_EXCEPTION_ERROR;
5536: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5537: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5530: Elsif (p_rbk_chr_id is not NULL) and (p_rbk_chr_id <> OKL_API.G_MISS_NUM) then
5531: validate_chr_id(p_chr_id => p_rbk_chr_id,
5532: x_return_status => x_return_status);
5533: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5534: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_rbk_chr_id');
5535: Raise OKL_API.G_EXCEPTION_ERROR;
5536: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5537: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: End If;
5531: validate_chr_id(p_chr_id => p_rbk_chr_id,
5532: x_return_status => x_return_status);
5533: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5534: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_rbk_chr_id');
5535: Raise OKL_API.G_EXCEPTION_ERROR;
5536: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5537: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: End If;
5539: End If;
5532: x_return_status => x_return_status);
5533: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5534: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_rbk_chr_id');
5535: Raise OKL_API.G_EXCEPTION_ERROR;
5536: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5537: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: End If;
5539: End If;
5540: --2.validate p_orig_chr_id
5533: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5534: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_rbk_chr_id');
5535: Raise OKL_API.G_EXCEPTION_ERROR;
5536: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5537: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: End If;
5539: End If;
5540: --2.validate p_orig_chr_id
5541: If (p_orig_chr_id is NULL) or (p_orig_chr_id = OKL_API.G_MISS_NUM) then
5537: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: End If;
5539: End If;
5540: --2.validate p_orig_chr_id
5541: If (p_orig_chr_id is NULL) or (p_orig_chr_id = OKL_API.G_MISS_NUM) then
5542: OKL_API.set_message(
5543: p_app_name => G_APP_NAME,
5544: p_msg_name => G_API_MISSING_PARAMETER,
5545: p_token1 => G_API_NAME_TOKEN,
5538: End If;
5539: End If;
5540: --2.validate p_orig_chr_id
5541: If (p_orig_chr_id is NULL) or (p_orig_chr_id = OKL_API.G_MISS_NUM) then
5542: OKL_API.set_message(
5543: p_app_name => G_APP_NAME,
5544: p_msg_name => G_API_MISSING_PARAMETER,
5545: p_token1 => G_API_NAME_TOKEN,
5546: p_token1_value => l_api_name,
5545: p_token1 => G_API_NAME_TOKEN,
5546: p_token1_value => l_api_name,
5547: p_token2 => G_MISSING_PARAM_TOKEN,
5548: p_token2_value => 'p_orig_chr_id');
5549: x_return_status := OKL_API.G_RET_STS_ERROR;
5550: Raise OKL_API.G_EXCEPTION_ERROR;
5551: Elsif (p_orig_chr_id is not NULL) and (p_orig_chr_id <> OKL_API.G_MISS_NUM) then
5552: validate_chr_id(p_chr_id => p_orig_chr_id,
5553: x_return_status => x_return_status);
5546: p_token1_value => l_api_name,
5547: p_token2 => G_MISSING_PARAM_TOKEN,
5548: p_token2_value => 'p_orig_chr_id');
5549: x_return_status := OKL_API.G_RET_STS_ERROR;
5550: Raise OKL_API.G_EXCEPTION_ERROR;
5551: Elsif (p_orig_chr_id is not NULL) and (p_orig_chr_id <> OKL_API.G_MISS_NUM) then
5552: validate_chr_id(p_chr_id => p_orig_chr_id,
5553: x_return_status => x_return_status);
5554: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5547: p_token2 => G_MISSING_PARAM_TOKEN,
5548: p_token2_value => 'p_orig_chr_id');
5549: x_return_status := OKL_API.G_RET_STS_ERROR;
5550: Raise OKL_API.G_EXCEPTION_ERROR;
5551: Elsif (p_orig_chr_id is not NULL) and (p_orig_chr_id <> OKL_API.G_MISS_NUM) then
5552: validate_chr_id(p_chr_id => p_orig_chr_id,
5553: x_return_status => x_return_status);
5554: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5555: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_orig_chr_id');
5550: Raise OKL_API.G_EXCEPTION_ERROR;
5551: Elsif (p_orig_chr_id is not NULL) and (p_orig_chr_id <> OKL_API.G_MISS_NUM) then
5552: validate_chr_id(p_chr_id => p_orig_chr_id,
5553: x_return_status => x_return_status);
5554: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5555: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_orig_chr_id');
5556: Raise OKL_API.G_EXCEPTION_ERROR;
5557: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5558: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5551: Elsif (p_orig_chr_id is not NULL) and (p_orig_chr_id <> OKL_API.G_MISS_NUM) then
5552: validate_chr_id(p_chr_id => p_orig_chr_id,
5553: x_return_status => x_return_status);
5554: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5555: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_orig_chr_id');
5556: Raise OKL_API.G_EXCEPTION_ERROR;
5557: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5558: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: End If;
5552: validate_chr_id(p_chr_id => p_orig_chr_id,
5553: x_return_status => x_return_status);
5554: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5555: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_orig_chr_id');
5556: Raise OKL_API.G_EXCEPTION_ERROR;
5557: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5558: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: End If;
5560: End If;
5553: x_return_status => x_return_status);
5554: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5555: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_orig_chr_id');
5556: Raise OKL_API.G_EXCEPTION_ERROR;
5557: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5558: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: End If;
5560: End If;
5561: -------------------------------------
5554: IF x_return_status = OKL_API.G_RET_STS_ERROR then
5555: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_orig_chr_id');
5556: Raise OKL_API.G_EXCEPTION_ERROR;
5557: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
5558: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: End If;
5560: End If;
5561: -------------------------------------
5562: --end of input parameter validations
5591: ' x_msg_data '||x_msg_data
5592: );
5593: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
5594:
5595: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5597: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR)THEN
5598: RAISE OKL_API.G_EXCEPTION_ERROR;
5599: END IF;
5592: );
5593: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
5594:
5595: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5597: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR)THEN
5598: RAISE OKL_API.G_EXCEPTION_ERROR;
5599: END IF;
5600:
5593: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
5594:
5595: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5597: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR)THEN
5598: RAISE OKL_API.G_EXCEPTION_ERROR;
5599: END IF;
5600:
5601: /*
5594:
5595: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5597: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR)THEN
5598: RAISE OKL_API.G_EXCEPTION_ERROR;
5599: END IF;
5600:
5601: /*
5602: * sjalasut, added code here to call synchornization of subsidy pool transactions
5650: p_klev_rec => l_sub_klev_rec,
5651: x_clev_rec => lx_sub_clev_rec,
5652: x_klev_rec => lx_sub_klev_rec);
5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;
5651: x_clev_rec => lx_sub_clev_rec,
5652: x_klev_rec => lx_sub_klev_rec);
5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;
5659:
5652: x_klev_rec => lx_sub_klev_rec);
5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;
5659:
5660: --Bug# 4899328 : Recalculate OEC and capital amount and update financial asset line
5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;
5659:
5660: --Bug# 4899328 : Recalculate OEC and capital amount and update financial asset line
5661: l_orig_asset_cle_id := lx_sub_clev_rec.cle_id;
5668: p_contract_id => p_orig_chr_id,
5669: p_line_id => l_orig_asset_cle_id,
5670: x_value => l_cap_amount);
5671:
5672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5675: RAISE OKL_API.G_EXCEPTION_ERROR;
5676: END IF;
5669: p_line_id => l_orig_asset_cle_id,
5670: x_value => l_cap_amount);
5671:
5672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5675: RAISE OKL_API.G_EXCEPTION_ERROR;
5676: END IF;
5677:
5670: x_value => l_cap_amount);
5671:
5672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5675: RAISE OKL_API.G_EXCEPTION_ERROR;
5676: END IF;
5677:
5678: ----------------------------------------------------------------------
5671:
5672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5675: RAISE OKL_API.G_EXCEPTION_ERROR;
5676: END IF;
5677:
5678: ----------------------------------------------------------------------
5679: --call api to update costs on asset line
5694: x_clev_rec => lx_clev_fin_rec,
5695: x_klev_rec => lx_klev_fin_rec
5696: );
5697:
5698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5695: x_klev_rec => lx_klev_fin_rec
5696: );
5697:
5698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5703: End If;
5696: );
5697:
5698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5703: End If;
5704: --Bug# 4899328
5697:
5698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5703: End If;
5704: --Bug# 4899328
5705:
5722: --x_msg_data => x_msg_data,
5723: --p_cplv_rec => l_cplv_rec,
5724: --x_cplv_rec => lx_cplv_rec);
5725:
5726: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5727: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5728: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5729: --RAISE OKL_API.G_EXCEPTION_ERROR;
5730: --END IF;
5723: --p_cplv_rec => l_cplv_rec,
5724: --x_cplv_rec => lx_cplv_rec);
5725:
5726: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5727: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5728: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5729: --RAISE OKL_API.G_EXCEPTION_ERROR;
5730: --END IF;
5731: -----------------------------------------------------------*/
5724: --x_cplv_rec => lx_cplv_rec);
5725:
5726: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5727: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5728: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5729: --RAISE OKL_API.G_EXCEPTION_ERROR;
5730: --END IF;
5731: -----------------------------------------------------------*/
5732: --***Commented as syncing vendor not allowed during rebooks
5725:
5726: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5727: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5728: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5729: --RAISE OKL_API.G_EXCEPTION_ERROR;
5730: --END IF;
5731: -----------------------------------------------------------*/
5732: --***Commented as syncing vendor not allowed during rebooks
5733: --as per srawlings
5761: x_msg_data => x_msg_data,
5762: p_ppydv_rec => l_pydv_rec);
5763:
5764:
5765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5769: END IF;
5762: p_ppydv_rec => l_pydv_rec);
5763:
5764:
5765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5769: END IF;
5770: End If;
5763:
5764:
5765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5769: END IF;
5770: End If;
5771: close l_ppyd_orig_csr;
5764:
5765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5769: END IF;
5770: End If;
5771: close l_ppyd_orig_csr;
5772: Else
5791: p_ppydv_rec => l_pydv_rec,
5792: x_ppydv_rec => lx_pydv_rec);
5793:
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5792: x_ppydv_rec => lx_pydv_rec);
5793:
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800:
5793:
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800:
5801:
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800:
5801:
5802: Else
5823: p_ppydv_rec => l_pydv_rec,
5824: x_ppydv_rec => lx_pydv_rec);
5825:
5826:
5827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5830: RAISE OKL_API.G_EXCEPTION_ERROR;
5831: END IF;
5824: x_ppydv_rec => lx_pydv_rec);
5825:
5826:
5827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5830: RAISE OKL_API.G_EXCEPTION_ERROR;
5831: END IF;
5832: End If;
5825:
5826:
5827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5830: RAISE OKL_API.G_EXCEPTION_ERROR;
5831: END IF;
5832: End If;
5833: End If;
5826:
5827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5830: RAISE OKL_API.G_EXCEPTION_ERROR;
5831: END IF;
5832: End If;
5833: End If;
5834: close l_ppyd_orig_csr;
5869: p_klev_rec => l_sub_klev_rec,
5870: x_clev_rec => lx_sub_clev_rec,
5871: x_klev_rec => lx_sub_klev_rec);
5872:
5873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_ERROR;
5877: END IF;
5870: x_clev_rec => lx_sub_clev_rec,
5871: x_klev_rec => lx_sub_klev_rec);
5872:
5873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_ERROR;
5877: END IF;
5878:
5871: x_klev_rec => lx_sub_klev_rec);
5872:
5873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_ERROR;
5877: END IF;
5878:
5879: /*********can not physically delete line on a booked K ****/
5872:
5873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_ERROR;
5877: END IF;
5878:
5879: /*********can not physically delete line on a booked K ****/
5880:
5889: p_contract_id => p_orig_chr_id,
5890: p_line_id => l_orig_asset_cle_id,
5891: x_value => l_cap_amount);
5892:
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;
5890: p_line_id => l_orig_asset_cle_id,
5891: x_value => l_cap_amount);
5892:
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;
5898:
5891: x_value => l_cap_amount);
5892:
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;
5898:
5899: ----------------------------------------------------------------------
5892:
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;
5898:
5899: ----------------------------------------------------------------------
5900: --call api to update costs on asset line
5915: x_clev_rec => lx_clev_fin_rec,
5916: x_klev_rec => lx_klev_fin_rec
5917: );
5918:
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5916: x_klev_rec => lx_klev_fin_rec
5917: );
5918:
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5924: --Bug# 4899328
5917: );
5918:
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5924: --Bug# 4899328
5925:
5918:
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5924: --Bug# 4899328
5925:
5926: End Loop;
5935: Fetch l_new_sub_csr into l_new_sub_rec;
5936: Exit when l_new_sub_csr%NOTFOUND;
5937:
5938: --create subsidy line record
5939: l_sub_klev_rec.id := OKL_API.G_MISS_NUM;
5940: l_sub_klev_rec.subsidy_id := l_new_sub_rec.subsidy_id;
5941: l_sub_klev_rec.amount := l_new_sub_rec.amount;
5942: l_sub_klev_rec.subsidy_override_amount := l_new_sub_rec.subsidy_override_amount;
5943: l_sub_klev_rec.sty_id := l_new_sub_rec.sty_id;
5953: close l_cleb_csr;
5954: l_sub_clev_rec.cle_id := l_asset_cle_id;
5955: End If;
5956:
5957: l_sub_clev_rec.id := OKL_API.G_MISS_NUM;
5958: l_sub_clev_rec.dnz_chr_id := p_orig_chr_id;
5959: l_sub_clev_rec.exception_yn := 'N';
5960: l_sub_clev_rec.lse_id := l_new_sub_rec.lse_id;
5961: l_sub_clev_rec.display_sequence := l_new_sub_rec.display_sequence;
5977: p_klev_rec => l_sub_klev_rec,
5978: x_clev_rec => lx_sub_clev_rec,
5979: x_klev_rec => lx_sub_klev_rec);
5980:
5981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_ERROR;
5985: END IF;
5978: x_clev_rec => lx_sub_clev_rec,
5979: x_klev_rec => lx_sub_klev_rec);
5980:
5981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_ERROR;
5985: END IF;
5986:
5979: x_klev_rec => lx_sub_klev_rec);
5980:
5981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_ERROR;
5985: END IF;
5986:
5987: --Bug# 4899328 : Recalculate OEC and capital amount and update financial asset line
5980:
5981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_ERROR;
5985: END IF;
5986:
5987: --Bug# 4899328 : Recalculate OEC and capital amount and update financial asset line
5988: l_orig_asset_cle_id := lx_sub_clev_rec.cle_id;
5995: p_contract_id => p_orig_chr_id,
5996: p_line_id => l_orig_asset_cle_id,
5997: x_value => l_cap_amount);
5998:
5999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6002: RAISE OKL_API.G_EXCEPTION_ERROR;
6003: END IF;
5996: p_line_id => l_orig_asset_cle_id,
5997: x_value => l_cap_amount);
5998:
5999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6002: RAISE OKL_API.G_EXCEPTION_ERROR;
6003: END IF;
6004:
5997: x_value => l_cap_amount);
5998:
5999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6002: RAISE OKL_API.G_EXCEPTION_ERROR;
6003: END IF;
6004:
6005: ----------------------------------------------------------------------
5998:
5999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6002: RAISE OKL_API.G_EXCEPTION_ERROR;
6003: END IF;
6004:
6005: ----------------------------------------------------------------------
6006: --call api to update costs on asset line
6021: x_clev_rec => lx_clev_fin_rec,
6022: x_klev_rec => lx_klev_fin_rec
6023: );
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6022: x_klev_rec => lx_klev_fin_rec
6023: );
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6030: --Bug# 4899328
6023: );
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6030: --Bug# 4899328
6031:
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6030: --Bug# 4899328
6031:
6032: --create the party role record
6029: END IF;
6030: --Bug# 4899328
6031:
6032: --create the party role record
6033: l_cplv_rec.id := OKL_API.G_MISS_NUM;
6034: l_cplv_rec.dnz_chr_id := p_orig_chr_id;
6035: l_cplv_rec.cle_id := lx_sub_clev_rec.id;
6036: l_cplv_rec.rle_code := 'OKL_VENDOR';
6037: l_cplv_rec.jtot_object1_code := 'OKX_VENDOR';
6063: x_cplv_rec => lx_cplv_rec,
6064: p_kplv_rec => l_kplv_rec,
6065: x_kplv_rec => lx_kplv_rec);
6066:
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6064: p_kplv_rec => l_kplv_rec,
6065: x_kplv_rec => lx_kplv_rec);
6066:
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6072:
6065: x_kplv_rec => lx_kplv_rec);
6066:
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6072:
6073: --3. Fetch party payment details for the new line
6066:
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6072:
6073: --3. Fetch party payment details for the new line
6074: Open l_ppyd_rbk_csr(p_cpl_id => l_new_sub_rec.cpl_id);
6076: If l_ppyd_rbk_csr%NOTFOUND then
6077: null;
6078: Else
6079: --1.create the party payment details record
6080: l_pydv_rec.id := OKL_API.G_MISS_NUM;
6081: l_pydv_rec.cpl_id := lx_cplv_rec.id;
6082: l_pydv_rec.vendor_id := l_ppyd_rbk_rec.vendor_id;
6083: l_pydv_rec.pay_site_id := l_ppyd_rbk_rec.pay_site_id;
6084: l_pydv_rec.payment_term_id := l_ppyd_rbk_rec.payment_term_id;
6094: p_ppydv_rec => l_pydv_rec,
6095: x_ppydv_rec => lx_pydv_rec);
6096:
6097:
6098: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6101: RAISE OKL_API.G_EXCEPTION_ERROR;
6102: END IF;
6095: x_ppydv_rec => lx_pydv_rec);
6096:
6097:
6098: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6101: RAISE OKL_API.G_EXCEPTION_ERROR;
6102: END IF;
6103: End If;
6096:
6097:
6098: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6101: RAISE OKL_API.G_EXCEPTION_ERROR;
6102: END IF;
6103: End If;
6104: Close l_ppyd_rbk_csr;
6097:
6098: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6101: RAISE OKL_API.G_EXCEPTION_ERROR;
6102: END IF;
6103: End If;
6104: Close l_ppyd_rbk_csr;
6105:
6113: , x_msg_count => x_msg_count
6114: , x_msg_data => x_msg_data
6115: , p_subsidy_cle_id => lx_sub_clev_rec.id
6116: , x_asbv_rec => l_new_asdv_tbl(l_new_cnt));
6117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6120: RAISE OKL_API.G_EXCEPTION_ERROR;
6121: END IF;
6114: , x_msg_data => x_msg_data
6115: , p_subsidy_cle_id => lx_sub_clev_rec.id
6116: , x_asbv_rec => l_new_asdv_tbl(l_new_cnt));
6117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6120: RAISE OKL_API.G_EXCEPTION_ERROR;
6121: END IF;
6122: -- varangan - Bug#5474059 - Added - End
6115: , p_subsidy_cle_id => lx_sub_clev_rec.id
6116: , x_asbv_rec => l_new_asdv_tbl(l_new_cnt));
6117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6120: RAISE OKL_API.G_EXCEPTION_ERROR;
6121: END IF;
6122: -- varangan - Bug#5474059 - Added - End
6123: End Loop;
6116: , x_asbv_rec => l_new_asdv_tbl(l_new_cnt));
6117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6120: RAISE OKL_API.G_EXCEPTION_ERROR;
6121: END IF;
6122: -- varangan - Bug#5474059 - Added - End
6123: End Loop;
6124: Close l_new_sub_csr;
6133: , x_msg_count => x_msg_count
6134: , x_msg_data => x_msg_data
6135: , p_chr_id => p_orig_chr_id
6136: , p_asdv_tbl => l_new_asdv_tbl);
6137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6140: RAISE OKL_API.G_EXCEPTION_ERROR;
6141: END IF;
6134: , x_msg_data => x_msg_data
6135: , p_chr_id => p_orig_chr_id
6136: , p_asdv_tbl => l_new_asdv_tbl);
6137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6140: RAISE OKL_API.G_EXCEPTION_ERROR;
6141: END IF;
6142: END IF; -- end of check for l_new_asdv_tbl count
6135: , p_chr_id => p_orig_chr_id
6136: , p_asdv_tbl => l_new_asdv_tbl);
6137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6140: RAISE OKL_API.G_EXCEPTION_ERROR;
6141: END IF;
6142: END IF; -- end of check for l_new_asdv_tbl count
6143: -- varangan - Bug#5474059 - Added - End
6136: , p_asdv_tbl => l_new_asdv_tbl);
6137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6140: RAISE OKL_API.G_EXCEPTION_ERROR;
6141: END IF;
6142: END IF; -- end of check for l_new_asdv_tbl count
6143: -- varangan - Bug#5474059 - Added - End
6144:
6141: END IF;
6142: END IF; -- end of check for l_new_asdv_tbl count
6143: -- varangan - Bug#5474059 - Added - End
6144:
6145: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
6146:
6147: EXCEPTION
6148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6149: If l_subelm_rbk_csr%ISOPEN then
6144:
6145: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
6146:
6147: EXCEPTION
6148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6149: If l_subelm_rbk_csr%ISOPEN then
6150: close l_subelm_rbk_csr;
6151: End If;
6152: If l_subelm_orig_csr%ISOPEN then
6166: End If;
6167: If l_cleb_csr%ISOPEN then
6168: close l_cleb_csr;
6169: End If;
6170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6171: l_api_name,
6172: G_PKG_NAME,
6173: 'OKL_API.G_RET_STS_ERROR',
6174: x_msg_count,
6169: End If;
6170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6171: l_api_name,
6172: G_PKG_NAME,
6173: 'OKL_API.G_RET_STS_ERROR',
6174: x_msg_count,
6175: x_msg_data,
6176: '_PVT');
6177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6173: 'OKL_API.G_RET_STS_ERROR',
6174: x_msg_count,
6175: x_msg_data,
6176: '_PVT');
6177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6178: If l_subelm_rbk_csr%ISOPEN then
6179: close l_subelm_rbk_csr;
6180: End If;
6181: If l_subelm_orig_csr%ISOPEN then
6195: End If;
6196: If l_cleb_csr%ISOPEN then
6197: close l_cleb_csr;
6198: End If;
6199: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6200: l_api_name,
6201: G_PKG_NAME,
6202: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6203: x_msg_count,
6198: End If;
6199: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6200: l_api_name,
6201: G_PKG_NAME,
6202: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6203: x_msg_count,
6204: x_msg_data,
6205: '_PVT');
6206: WHEN OTHERS THEN
6224: End If;
6225: If l_cleb_csr%ISOPEN then
6226: close l_cleb_csr;
6227: End If;
6228: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6229: l_api_name,
6230: G_PKG_NAME,
6231: 'OTHERS',
6232: x_msg_count,
6265: , p_rbk_chr_id IN NUMBER
6266: , p_orig_chr_id IN NUMBER
6267: , p_rebook_date IN DATE
6268: ) IS
6269: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
6270: l_api_name CONSTANT varchar2(30) := 'rebook_adjustment';
6271: l_api_version CONSTANT NUMBER := 1.0;
6272:
6273: --------------------------------------
6482: x_taiv_rec => lx_taiv_rec,
6483: x_tilv_tbl => lx_tilv_tbl,
6484: x_tldv_tbl => lx_tldv_tbl);
6485:
6486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6489: RAISE OKL_API.G_EXCEPTION_ERROR;
6490: END IF;
6483: x_tilv_tbl => lx_tilv_tbl,
6484: x_tldv_tbl => lx_tldv_tbl);
6485:
6486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6489: RAISE OKL_API.G_EXCEPTION_ERROR;
6490: END IF;
6491: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6484: x_tldv_tbl => lx_tldv_tbl);
6485:
6486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6489: RAISE OKL_API.G_EXCEPTION_ERROR;
6490: END IF;
6491: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6492:
6485:
6486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6489: RAISE OKL_API.G_EXCEPTION_ERROR;
6490: END IF;
6491: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6492:
6493: /* --create internal AR transaction header
6499: x_msg_data => x_msg_data,
6500: p_taiv_rec => l_taiv_rec,
6501: x_taiv_rec => lx_taiv_rec);
6502:
6503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6506: RAISE OKL_API.G_EXCEPTION_ERROR;
6507: END IF;
6500: p_taiv_rec => l_taiv_rec,
6501: x_taiv_rec => lx_taiv_rec);
6502:
6503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6506: RAISE OKL_API.G_EXCEPTION_ERROR;
6507: END IF;
6508:
6501: x_taiv_rec => lx_taiv_rec);
6502:
6503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6506: RAISE OKL_API.G_EXCEPTION_ERROR;
6507: END IF;
6508:
6509: --l_tilv_rec.tai_id := lx_taiv_rec.id;
6502:
6503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6506: RAISE OKL_API.G_EXCEPTION_ERROR;
6507: END IF;
6508:
6509: --l_tilv_rec.tai_id := lx_taiv_rec.id;
6510:
6517: x_msg_data => x_msg_data,
6518: p_tilv_rec => l_tilv_rec,
6519: x_tilv_rec => lx_tilv_rec);
6520:
6521: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6524: RAISE OKL_API.G_EXCEPTION_ERROR;
6525: END IF;
6518: p_tilv_rec => l_tilv_rec,
6519: x_tilv_rec => lx_tilv_rec);
6520:
6521: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6524: RAISE OKL_API.G_EXCEPTION_ERROR;
6525: END IF;
6526:
6519: x_tilv_rec => lx_tilv_rec);
6520:
6521: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6524: RAISE OKL_API.G_EXCEPTION_ERROR;
6525: END IF;
6526:
6527: --accounting trx
6520:
6521: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6524: RAISE OKL_API.G_EXCEPTION_ERROR;
6525: END IF;
6526:
6527: --accounting trx
6528: l_bpd_acc_rec.id := lx_tilv_rec.id;
6535: x_msg_count => x_msg_count,
6536: x_msg_data => x_msg_data,
6537: p_bpd_acc_rec => l_bpd_acc_rec);
6538:
6539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6542: RAISE OKL_API.G_EXCEPTION_ERROR;
6543: END IF; */
6536: x_msg_data => x_msg_data,
6537: p_bpd_acc_rec => l_bpd_acc_rec);
6538:
6539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6542: RAISE OKL_API.G_EXCEPTION_ERROR;
6543: END IF; */
6544:
6537: p_bpd_acc_rec => l_bpd_acc_rec);
6538:
6539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6542: RAISE OKL_API.G_EXCEPTION_ERROR;
6543: END IF; */
6544:
6545: END on_acc_CM_create;
6538:
6539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6542: RAISE OKL_API.G_EXCEPTION_ERROR;
6543: END IF; */
6544:
6545: END on_acc_CM_create;
6546:
6545: END on_acc_CM_create;
6546:
6547: BEGIN
6548:
6549: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6550: -- Call start_activity to create savepoint, check compatibility
6551: -- and initialize message list
6552: x_return_status := OKL_API.START_ACTIVITY (
6553: l_api_name
6548:
6549: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6550: -- Call start_activity to create savepoint, check compatibility
6551: -- and initialize message list
6552: x_return_status := OKL_API.START_ACTIVITY (
6553: l_api_name
6554: ,p_init_msg_list
6555: ,'_PVT'
6556: ,x_return_status);
6554: ,p_init_msg_list
6555: ,'_PVT'
6556: ,x_return_status);
6557: -- Check if activity started successfully
6558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6561: RAISE OKL_API.G_EXCEPTION_ERROR;
6562: END IF;
6555: ,'_PVT'
6556: ,x_return_status);
6557: -- Check if activity started successfully
6558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6561: RAISE OKL_API.G_EXCEPTION_ERROR;
6562: END IF;
6563:
6556: ,x_return_status);
6557: -- Check if activity started successfully
6558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6561: RAISE OKL_API.G_EXCEPTION_ERROR;
6562: END IF;
6563:
6564: --function to fetch try_id
6557: -- Check if activity started successfully
6558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6561: RAISE OKL_API.G_EXCEPTION_ERROR;
6562: END IF;
6563:
6564: --function to fetch try_id
6565: l_pos_try_id := Get_trx_type_id(p_trx_type => G_AR_INV_TRX_TYPE,
6564: --function to fetch try_id
6565: l_pos_try_id := Get_trx_type_id(p_trx_type => G_AR_INV_TRX_TYPE,
6566: p_lang => 'US');
6567: If l_pos_try_id is null then
6568: x_return_status := OKL_API.G_RET_STS_ERROR;
6569: OKL_API.SET_MESSAGE (
6570: p_app_name => G_APP_NAME,
6571: p_msg_name => G_REQUIRED_VALUE,
6572: p_token1 => G_COL_NAME_TOKEN,
6565: l_pos_try_id := Get_trx_type_id(p_trx_type => G_AR_INV_TRX_TYPE,
6566: p_lang => 'US');
6567: If l_pos_try_id is null then
6568: x_return_status := OKL_API.G_RET_STS_ERROR;
6569: OKL_API.SET_MESSAGE (
6570: p_app_name => G_APP_NAME,
6571: p_msg_name => G_REQUIRED_VALUE,
6572: p_token1 => G_COL_NAME_TOKEN,
6573: p_token1_value => 'Transaction Type');
6570: p_app_name => G_APP_NAME,
6571: p_msg_name => G_REQUIRED_VALUE,
6572: p_token1 => G_COL_NAME_TOKEN,
6573: p_token1_value => 'Transaction Type');
6574: RAISE OKL_API.G_EXCEPTION_ERROR;
6575: End If;
6576:
6577: l_neg_try_id := Get_trx_type_id(p_trx_type => G_AR_CM_TRX_TYPE,
6578: p_lang => 'US');
6576:
6577: l_neg_try_id := Get_trx_type_id(p_trx_type => G_AR_CM_TRX_TYPE,
6578: p_lang => 'US');
6579: If l_neg_try_id is null then
6580: x_return_status := OKL_API.G_RET_STS_ERROR;
6581: OKL_API.SET_MESSAGE (
6582: p_app_name => G_APP_NAME,
6583: p_msg_name => G_REQUIRED_VALUE,
6584: p_token1 => G_COL_NAME_TOKEN,
6577: l_neg_try_id := Get_trx_type_id(p_trx_type => G_AR_CM_TRX_TYPE,
6578: p_lang => 'US');
6579: If l_neg_try_id is null then
6580: x_return_status := OKL_API.G_RET_STS_ERROR;
6581: OKL_API.SET_MESSAGE (
6582: p_app_name => G_APP_NAME,
6583: p_msg_name => G_REQUIRED_VALUE,
6584: p_token1 => G_COL_NAME_TOKEN,
6585: p_token1_value => 'Transaction Type');
6582: p_app_name => G_APP_NAME,
6583: p_msg_name => G_REQUIRED_VALUE,
6584: p_token1 => G_COL_NAME_TOKEN,
6585: p_token1_value => 'Transaction Type');
6586: RAISE OKL_API.G_EXCEPTION_ERROR;
6587: End If;
6588:
6589: -- STEP 1 : Get the subsidy table of the original contract
6590: get_contract_subsidy_amount(
6678: x_taiv_rec => lx_taiv_rec,
6679: x_tilv_tbl => lx_tilv_tbl,
6680: x_tldv_tbl => lx_tldv_tbl);
6681:
6682: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6684: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6685: RAISE OKL_API.G_EXCEPTION_ERROR;
6686: END IF;
6679: x_tilv_tbl => lx_tilv_tbl,
6680: x_tldv_tbl => lx_tldv_tbl);
6681:
6682: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6684: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6685: RAISE OKL_API.G_EXCEPTION_ERROR;
6686: END IF;
6687:
6680: x_tldv_tbl => lx_tldv_tbl);
6681:
6682: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6684: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6685: RAISE OKL_API.G_EXCEPTION_ERROR;
6686: END IF;
6687:
6688: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6681:
6682: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6684: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6685: RAISE OKL_API.G_EXCEPTION_ERROR;
6686: END IF;
6687:
6688: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6689:
6697: x_msg_data => x_msg_data,
6698: p_taiv_rec => l_taiv_rec,
6699: x_taiv_rec => lx_taiv_rec);
6700:
6701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6704: RAISE OKL_API.G_EXCEPTION_ERROR;
6705: END IF;
6698: p_taiv_rec => l_taiv_rec,
6699: x_taiv_rec => lx_taiv_rec);
6700:
6701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6704: RAISE OKL_API.G_EXCEPTION_ERROR;
6705: END IF;
6706:
6699: x_taiv_rec => lx_taiv_rec);
6700:
6701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6704: RAISE OKL_API.G_EXCEPTION_ERROR;
6705: END IF;
6706:
6707: --tilv_record
6700:
6701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6704: RAISE OKL_API.G_EXCEPTION_ERROR;
6705: END IF;
6706:
6707: --tilv_record
6708: l_tilv_rec.tai_id := lx_taiv_rec.id;
6724: x_msg_data => x_msg_data,
6725: p_tilv_rec => l_tilv_rec,
6726: x_tilv_rec => lx_tilv_rec);
6727:
6728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6731: RAISE OKL_API.G_EXCEPTION_ERROR;
6732: END IF;
6725: p_tilv_rec => l_tilv_rec,
6726: x_tilv_rec => lx_tilv_rec);
6727:
6728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6731: RAISE OKL_API.G_EXCEPTION_ERROR;
6732: END IF;
6733:
6726: x_tilv_rec => lx_tilv_rec);
6727:
6728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6731: RAISE OKL_API.G_EXCEPTION_ERROR;
6732: END IF;
6733:
6734: --accounting trx
6727:
6728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6731: RAISE OKL_API.G_EXCEPTION_ERROR;
6732: END IF;
6733:
6734: --accounting trx
6735: l_bpd_acc_rec.id := lx_tilv_rec.id;
6742: x_msg_count => x_msg_count,
6743: x_msg_data => x_msg_data,
6744: p_bpd_acc_rec => l_bpd_acc_rec);
6745:
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF; */ --Commented End
6743: x_msg_data => x_msg_data,
6744: p_bpd_acc_rec => l_bpd_acc_rec);
6745:
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF; */ --Commented End
6751:
6744: p_bpd_acc_rec => l_bpd_acc_rec);
6745:
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF; */ --Commented End
6751:
6752: END IF; -- end of check for amount_remaining > 0
6745:
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF; */ --Commented End
6751:
6752: END IF; -- end of check for amount_remaining > 0
6753: END LOOP; -- end of check for invoice balances
6864: x_taiv_rec => lx_taiv_rec,
6865: x_tilv_tbl => lx_tilv_tbl,
6866: x_tldv_tbl => lx_tldv_tbl);
6867:
6868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6871: RAISE OKL_API.G_EXCEPTION_ERROR;
6872: END IF;
6865: x_tilv_tbl => lx_tilv_tbl,
6866: x_tldv_tbl => lx_tldv_tbl);
6867:
6868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6871: RAISE OKL_API.G_EXCEPTION_ERROR;
6872: END IF;
6873: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6866: x_tldv_tbl => lx_tldv_tbl);
6867:
6868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6871: RAISE OKL_API.G_EXCEPTION_ERROR;
6872: END IF;
6873: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6874:
6867:
6868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6871: RAISE OKL_API.G_EXCEPTION_ERROR;
6872: END IF;
6873: -- Varangan - Billing Enhancement changes - Bug#5874824 - End
6874:
6875: /* Commented the existing billing API call
6882: x_msg_data => x_msg_data,
6883: p_taiv_rec => l_taiv_rec,
6884: x_taiv_rec => lx_taiv_rec);
6885:
6886: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6888: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_ERROR;
6890: END IF;
6883: p_taiv_rec => l_taiv_rec,
6884: x_taiv_rec => lx_taiv_rec);
6885:
6886: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6888: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_ERROR;
6890: END IF;
6891:
6884: x_taiv_rec => lx_taiv_rec);
6885:
6886: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6888: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_ERROR;
6890: END IF;
6891:
6892: --tilv_record
6885:
6886: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6888: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_ERROR;
6890: END IF;
6891:
6892: --tilv_record
6893: l_tilv_rec.tai_id := lx_taiv_rec.id;
6912: x_msg_data => x_msg_data,
6913: p_tilv_rec => l_tilv_rec,
6914: x_tilv_rec => lx_tilv_rec);
6915:
6916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6919: RAISE OKL_API.G_EXCEPTION_ERROR;
6920: END IF;
6913: p_tilv_rec => l_tilv_rec,
6914: x_tilv_rec => lx_tilv_rec);
6915:
6916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6919: RAISE OKL_API.G_EXCEPTION_ERROR;
6920: END IF;
6921:
6914: x_tilv_rec => lx_tilv_rec);
6915:
6916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6919: RAISE OKL_API.G_EXCEPTION_ERROR;
6920: END IF;
6921:
6922: --accounting trx
6915:
6916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6919: RAISE OKL_API.G_EXCEPTION_ERROR;
6920: END IF;
6921:
6922: --accounting trx
6923: l_bpd_acc_rec.id := lx_tilv_rec.id;
6930: x_msg_count => x_msg_count,
6931: x_msg_data => x_msg_data,
6932: p_bpd_acc_rec => l_bpd_acc_rec);
6933:
6934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6937: RAISE OKL_API.G_EXCEPTION_ERROR;
6938: END IF; */
6931: x_msg_data => x_msg_data,
6932: p_bpd_acc_rec => l_bpd_acc_rec);
6933:
6934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6937: RAISE OKL_API.G_EXCEPTION_ERROR;
6938: END IF; */
6939:
6932: p_bpd_acc_rec => l_bpd_acc_rec);
6933:
6934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6937: RAISE OKL_API.G_EXCEPTION_ERROR;
6938: END IF; */
6939:
6940:
6933:
6934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6937: RAISE OKL_API.G_EXCEPTION_ERROR;
6938: END IF; */
6939:
6940:
6941: END IF; -- end of check for amount_remaining > 0
7003: , x_msg_count => x_msg_count
7004: , x_msg_data => x_msg_data
7005: , p_chr_id => p_orig_chr_id
7006: , p_asdv_tbl => l_new_asdv_tbl);
7007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_ERROR;
7011: END IF;
7004: , x_msg_data => x_msg_data
7005: , p_chr_id => p_orig_chr_id
7006: , p_asdv_tbl => l_new_asdv_tbl);
7007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_ERROR;
7011: END IF;
7012: END IF; -- end of check for l_new_asdv_tbl count
7005: , p_chr_id => p_orig_chr_id
7006: , p_asdv_tbl => l_new_asdv_tbl);
7007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_ERROR;
7011: END IF;
7012: END IF; -- end of check for l_new_asdv_tbl count
7013:
7006: , p_asdv_tbl => l_new_asdv_tbl);
7007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_ERROR;
7011: END IF;
7012: END IF; -- end of check for l_new_asdv_tbl count
7013:
7014:
7025: x_taiv_tbl => lx_cancel_taiv_tbl);
7026: END IF;
7027:
7028:
7029: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7030: EXCEPTION
7031: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7033: l_api_name,
7027:
7028:
7029: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7030: EXCEPTION
7031: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7033: l_api_name,
7034: G_PKG_NAME,
7035: 'OKL_API.G_RET_STS_ERROR',
7028:
7029: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7030: EXCEPTION
7031: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7033: l_api_name,
7034: G_PKG_NAME,
7035: 'OKL_API.G_RET_STS_ERROR',
7036: x_msg_count,
7031: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7033: l_api_name,
7034: G_PKG_NAME,
7035: 'OKL_API.G_RET_STS_ERROR',
7036: x_msg_count,
7037: x_msg_data,
7038: '_PVT');
7039: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7035: 'OKL_API.G_RET_STS_ERROR',
7036: x_msg_count,
7037: x_msg_data,
7038: '_PVT');
7039: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7040: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7041: l_api_name,
7042: G_PKG_NAME,
7043: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7036: x_msg_count,
7037: x_msg_data,
7038: '_PVT');
7039: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7040: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7041: l_api_name,
7042: G_PKG_NAME,
7043: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7044: x_msg_count,
7039: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7040: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7041: l_api_name,
7042: G_PKG_NAME,
7043: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7044: x_msg_count,
7045: x_msg_data,
7046: '_PVT');
7047: WHEN OTHERS THEN
7044: x_msg_count,
7045: x_msg_data,
7046: '_PVT');
7047: WHEN OTHERS THEN
7048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7049: l_api_name,
7050: G_PKG_NAME,
7051: 'OTHERS',
7052: x_msg_count,
7073: x_msg_count OUT NOCOPY NUMBER,
7074: x_msg_data OUT NOCOPY VARCHAR2,
7075: p_chr_id IN NUMBER) is
7076:
7077: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
7078: l_api_name CONSTANT varchar2(30) := 'CREATE_BILLING_TRX';
7079: l_api_version CONSTANT NUMBER := 1.0;
7080:
7081:
7167: l_try_id number;
7168:
7169: Begin
7170:
7171: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7172: -- Call start_activity to create savepoint, check compatibility
7173: -- and initialize message list
7174: x_return_status := OKL_API.START_ACTIVITY (
7175: l_api_name
7170:
7171: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7172: -- Call start_activity to create savepoint, check compatibility
7173: -- and initialize message list
7174: x_return_status := OKL_API.START_ACTIVITY (
7175: l_api_name
7176: ,p_init_msg_list
7177: ,'_PVT'
7178: ,x_return_status);
7176: ,p_init_msg_list
7177: ,'_PVT'
7178: ,x_return_status);
7179: -- Check if activity started successfully
7180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7183: RAISE OKL_API.G_EXCEPTION_ERROR;
7184: END IF;
7177: ,'_PVT'
7178: ,x_return_status);
7179: -- Check if activity started successfully
7180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7183: RAISE OKL_API.G_EXCEPTION_ERROR;
7184: END IF;
7185:
7178: ,x_return_status);
7179: -- Check if activity started successfully
7180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7183: RAISE OKL_API.G_EXCEPTION_ERROR;
7184: END IF;
7185:
7186:
7179: -- Check if activity started successfully
7180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7183: RAISE OKL_API.G_EXCEPTION_ERROR;
7184: END IF;
7185:
7186:
7187: -----------------------------------------------
7187: -----------------------------------------------
7188: --start of input parameter validations
7189: -----------------------------------------------
7190: --1. validate chr_id
7191: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
7192: OKL_API.set_message(
7193: p_app_name => G_APP_NAME,
7194: p_msg_name => G_API_MISSING_PARAMETER,
7195: p_token1 => G_API_NAME_TOKEN,
7188: --start of input parameter validations
7189: -----------------------------------------------
7190: --1. validate chr_id
7191: If (p_chr_id is NULL) or (p_chr_id = OKL_API.G_MISS_NUM) then
7192: OKL_API.set_message(
7193: p_app_name => G_APP_NAME,
7194: p_msg_name => G_API_MISSING_PARAMETER,
7195: p_token1 => G_API_NAME_TOKEN,
7196: p_token1_value => l_api_name,
7195: p_token1 => G_API_NAME_TOKEN,
7196: p_token1_value => l_api_name,
7197: p_token2 => G_MISSING_PARAM_TOKEN,
7198: p_token2_value => 'p_chr_id');
7199: x_return_status := OKL_API.G_RET_STS_ERROR;
7200: Raise OKL_API.G_EXCEPTION_ERROR;
7201: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
7202: validate_chr_id(p_chr_id => p_chr_id,
7203: x_return_status => x_return_status);
7196: p_token1_value => l_api_name,
7197: p_token2 => G_MISSING_PARAM_TOKEN,
7198: p_token2_value => 'p_chr_id');
7199: x_return_status := OKL_API.G_RET_STS_ERROR;
7200: Raise OKL_API.G_EXCEPTION_ERROR;
7201: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
7202: validate_chr_id(p_chr_id => p_chr_id,
7203: x_return_status => x_return_status);
7204: IF x_return_status = OKL_API.G_RET_STS_ERROR then
7197: p_token2 => G_MISSING_PARAM_TOKEN,
7198: p_token2_value => 'p_chr_id');
7199: x_return_status := OKL_API.G_RET_STS_ERROR;
7200: Raise OKL_API.G_EXCEPTION_ERROR;
7201: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
7202: validate_chr_id(p_chr_id => p_chr_id,
7203: x_return_status => x_return_status);
7204: IF x_return_status = OKL_API.G_RET_STS_ERROR then
7205: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
7200: Raise OKL_API.G_EXCEPTION_ERROR;
7201: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
7202: validate_chr_id(p_chr_id => p_chr_id,
7203: x_return_status => x_return_status);
7204: IF x_return_status = OKL_API.G_RET_STS_ERROR then
7205: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
7206: Raise OKL_API.G_EXCEPTION_ERROR;
7207: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
7208: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7201: Elsif (p_chr_id is not NULL) and (p_chr_id <> OKL_API.G_MISS_NUM) then
7202: validate_chr_id(p_chr_id => p_chr_id,
7203: x_return_status => x_return_status);
7204: IF x_return_status = OKL_API.G_RET_STS_ERROR then
7205: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
7206: Raise OKL_API.G_EXCEPTION_ERROR;
7207: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
7208: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: End If;
7202: validate_chr_id(p_chr_id => p_chr_id,
7203: x_return_status => x_return_status);
7204: IF x_return_status = OKL_API.G_RET_STS_ERROR then
7205: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
7206: Raise OKL_API.G_EXCEPTION_ERROR;
7207: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
7208: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: End If;
7210: End If;
7203: x_return_status => x_return_status);
7204: IF x_return_status = OKL_API.G_RET_STS_ERROR then
7205: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
7206: Raise OKL_API.G_EXCEPTION_ERROR;
7207: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
7208: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: End If;
7210: End If;
7211: ---------------------------------------
7204: IF x_return_status = OKL_API.G_RET_STS_ERROR then
7205: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_chr_id');
7206: Raise OKL_API.G_EXCEPTION_ERROR;
7207: Elsif x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR then
7208: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: End If;
7210: End If;
7211: ---------------------------------------
7212: --end of input parameter validations
7238: x_msg_data => x_msg_data,
7239: p_chr_id => l_chr_id,
7240: x_asbv_tbl => l_asdv_tbl);
7241:
7242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7245: RAISE OKL_API.G_EXCEPTION_ERROR;
7246: END IF;
7239: p_chr_id => l_chr_id,
7240: x_asbv_tbl => l_asdv_tbl);
7241:
7242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7245: RAISE OKL_API.G_EXCEPTION_ERROR;
7246: END IF;
7247:
7240: x_asbv_tbl => l_asdv_tbl);
7241:
7242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7245: RAISE OKL_API.G_EXCEPTION_ERROR;
7246: END IF;
7247:
7248:
7241:
7242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7245: RAISE OKL_API.G_EXCEPTION_ERROR;
7246: END IF;
7247:
7248:
7249: -- Moved code into a separate Procedure and called here
7256: , x_msg_count => x_msg_count
7257: , x_msg_data => x_msg_data
7258: , p_chr_id => l_chr_id
7259: , p_asdv_tbl => l_asdv_tbl);
7260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7263: RAISE OKL_API.G_EXCEPTION_ERROR;
7264: END IF;
7257: , x_msg_data => x_msg_data
7258: , p_chr_id => l_chr_id
7259: , p_asdv_tbl => l_asdv_tbl);
7260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7263: RAISE OKL_API.G_EXCEPTION_ERROR;
7264: END IF;
7265: -- varangan - Bug#5474059 - Modified - End
7258: , p_chr_id => l_chr_id
7259: , p_asdv_tbl => l_asdv_tbl);
7260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7263: RAISE OKL_API.G_EXCEPTION_ERROR;
7264: END IF;
7265: -- varangan - Bug#5474059 - Modified - End
7266:
7259: , p_asdv_tbl => l_asdv_tbl);
7260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7263: RAISE OKL_API.G_EXCEPTION_ERROR;
7264: END IF;
7265: -- varangan - Bug#5474059 - Modified - End
7266:
7267: elsif l_rebook_cpy = 'Y' then
7290: p_rbk_chr_id => p_chr_id,
7291: p_orig_chr_id => l_orig_chr_id,
7292: p_rebook_date => l_rebook_date);
7293: -- varangan - Bug#5474059 - Added - End
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7291: p_orig_chr_id => l_orig_chr_id,
7292: p_rebook_date => l_rebook_date);
7293: -- varangan - Bug#5474059 - Added - End
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7299: End If;
7292: p_rebook_date => l_rebook_date);
7293: -- varangan - Bug#5474059 - Added - End
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7299: End If;
7300: -- End of rebook processing
7293: -- varangan - Bug#5474059 - Added - End
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7299: End If;
7300: -- End of rebook processing
7301:
7302:
7303:
7304: l_asdv_tbl.delete;
7305:
7306: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7307:
7308: EXCEPTION
7309: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7310: If l_samevend_csr%ISOPEN then
7305:
7306: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7307:
7308: EXCEPTION
7309: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7310: If l_samevend_csr%ISOPEN then
7311: close l_samevend_csr;
7312: End If;
7313: If l_chrcpl_csr%ISOPEN then
7315: End If;
7316: If l_chk_rbk_csr%ISOPEN then
7317: close l_chk_rbk_csr;
7318: End If;
7319: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7320: l_api_name,
7321: G_PKG_NAME,
7322: 'OKL_API.G_RET_STS_ERROR',
7323: x_msg_count,
7318: End If;
7319: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7320: l_api_name,
7321: G_PKG_NAME,
7322: 'OKL_API.G_RET_STS_ERROR',
7323: x_msg_count,
7324: x_msg_data,
7325: '_PVT');
7326: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7322: 'OKL_API.G_RET_STS_ERROR',
7323: x_msg_count,
7324: x_msg_data,
7325: '_PVT');
7326: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7327: If l_samevend_csr%ISOPEN then
7328: close l_samevend_csr;
7329: End If;
7330: If l_chrcpl_csr%ISOPEN then
7332: End If;
7333: If l_chk_rbk_csr%ISOPEN then
7334: close l_chk_rbk_csr;
7335: End If;
7336: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7337: l_api_name,
7338: G_PKG_NAME,
7339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7340: x_msg_count,
7335: End If;
7336: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7337: l_api_name,
7338: G_PKG_NAME,
7339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7340: x_msg_count,
7341: x_msg_data,
7342: '_PVT');
7343: WHEN OTHERS THEN
7349: End If;
7350: If l_chk_rbk_csr%ISOPEN then
7351: close l_chk_rbk_csr;
7352: End If;
7353: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7354: l_api_name,
7355: G_PKG_NAME,
7356: 'OTHERS',
7357: x_msg_count,
7369: p_chr_id IN NUMBER,
7370: p_subsidy_id IN NUMBER,
7371: x_release_basis OUT NOCOPY varchar2) is
7372:
7373: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
7374: l_api_name CONSTANT varchar2(30) := 'GET_RELK_TERMN_BASIS';
7375: l_api_version CONSTANT NUMBER := 1.0;
7376:
7377: --cursor to read whether product change or customer change
7399:
7400: l_transfer_basis okl_subsidies_b.transfer_basis_code%TYPE;
7401: Begin
7402:
7403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7404: -- Call start_activity to create savepoint, check compatibility
7405: -- and initialize message list
7406: x_return_status := OKL_API.START_ACTIVITY (
7407: l_api_name
7402:
7403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7404: -- Call start_activity to create savepoint, check compatibility
7405: -- and initialize message list
7406: x_return_status := OKL_API.START_ACTIVITY (
7407: l_api_name
7408: ,p_init_msg_list
7409: ,'_PVT'
7410: ,x_return_status);
7408: ,p_init_msg_list
7409: ,'_PVT'
7410: ,x_return_status);
7411: -- Check if activity started successfully
7412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_ERROR;
7416: END IF;
7409: ,'_PVT'
7410: ,x_return_status);
7411: -- Check if activity started successfully
7412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_ERROR;
7416: END IF;
7417:
7410: ,x_return_status);
7411: -- Check if activity started successfully
7412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_ERROR;
7416: END IF;
7417:
7418:
7411: -- Check if activity started successfully
7412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_ERROR;
7416: END IF;
7417:
7418:
7419: for l_relk_reason_rec in l_relk_reason_csr(p_chr_id => p_chr_id)
7434:
7435: If x_release_basis is null then
7436: x_release_basis := 'ACCELERATE';
7437: end if;
7438: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7439:
7440: EXCEPTION
7441: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7437: end if;
7438: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7439:
7440: EXCEPTION
7441: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7443: l_api_name,
7444: G_PKG_NAME,
7445: 'OKL_API.G_RET_STS_ERROR',
7438: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7439:
7440: EXCEPTION
7441: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7443: l_api_name,
7444: G_PKG_NAME,
7445: 'OKL_API.G_RET_STS_ERROR',
7446: x_msg_count,
7441: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7443: l_api_name,
7444: G_PKG_NAME,
7445: 'OKL_API.G_RET_STS_ERROR',
7446: x_msg_count,
7447: x_msg_data,
7448: '_PVT');
7449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7445: 'OKL_API.G_RET_STS_ERROR',
7446: x_msg_count,
7447: x_msg_data,
7448: '_PVT');
7449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7450: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7451: l_api_name,
7452: G_PKG_NAME,
7453: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7446: x_msg_count,
7447: x_msg_data,
7448: '_PVT');
7449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7450: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7451: l_api_name,
7452: G_PKG_NAME,
7453: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7454: x_msg_count,
7449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7450: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7451: l_api_name,
7452: G_PKG_NAME,
7453: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7454: x_msg_count,
7455: x_msg_data,
7456: '_PVT');
7457: WHEN OTHERS THEN
7454: x_msg_count,
7455: x_msg_data,
7456: '_PVT');
7457: WHEN OTHERS THEN
7458: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7459: l_api_name,
7460: G_PKG_NAME,
7461: 'OTHERS',
7462: x_msg_count,