41: is
42: l_api_name CONSTANT VARCHAR2(30) := 'update_tna_creditline';
43: l_api_version CONSTANT NUMBER := 1.0;
44: i NUMBER;
45: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
46: l_src_chr_not_found boolean := false;
47: l_credit_tna NUMBER;
48: l_orig_credit_tna NUMBER;
49:
70: p_api_version,
71: l_api_name,
72: G_PKG_NAME ))
73: THEN
74: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: END IF;
76:
77: -- Initialize message list if requested
78: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
79: FND_MSG_PUB.initialize;
80: END IF;
81:
82: -- Initialize API status to success
83: x_return_status := OKL_API.G_RET_STS_SUCCESS;
84:
85:
86: /*** Begin API body ****************************************************/
87:
94: p_formula_name => p_formula_name,
95: p_contract_id => p_chr_id,
96: x_value => l_credit_tna);
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
95: p_contract_id => p_chr_id,
96: x_value => l_credit_tna);
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
96: x_value => l_credit_tna);
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104: -- get credit line tna amount
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104: -- get credit line tna amount
105: open c_credit_tna(p_credit_line_id);
128: p_khrv_rec => l_khrv_rec,
129: x_chrv_rec => x_chrv_rec,
130: x_khrv_rec => x_khrv_rec);
131:
132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
135: RAISE OKL_API.G_EXCEPTION_ERROR;
136: END IF;
129: x_chrv_rec => x_chrv_rec,
130: x_khrv_rec => x_khrv_rec);
131:
132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
135: RAISE OKL_API.G_EXCEPTION_ERROR;
136: END IF;
137:
130: x_khrv_rec => x_khrv_rec);
131:
132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
135: RAISE OKL_API.G_EXCEPTION_ERROR;
136: END IF;
137:
138: /*** End API body ******************************************************/
131:
132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
135: RAISE OKL_API.G_EXCEPTION_ERROR;
136: END IF;
137:
138: /*** End API body ******************************************************/
139:
142: (p_count => x_msg_count,
143: p_data => x_msg_data);
144:
145: EXCEPTION
146: WHEN OKL_API.G_EXCEPTION_ERROR THEN
147: ROLLBACK TO update_tna_creditline;
148: x_return_status := OKL_API.G_RET_STS_ERROR;
149: FND_MSG_PUB.Count_And_Get
150: (p_count => x_msg_count,
144:
145: EXCEPTION
146: WHEN OKL_API.G_EXCEPTION_ERROR THEN
147: ROLLBACK TO update_tna_creditline;
148: x_return_status := OKL_API.G_RET_STS_ERROR;
149: FND_MSG_PUB.Count_And_Get
150: (p_count => x_msg_count,
151: p_data => x_msg_data);
152:
149: FND_MSG_PUB.Count_And_Get
150: (p_count => x_msg_count,
151: p_data => x_msg_data);
152:
153: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
154: ROLLBACK TO update_tna_creditline;
155: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
156: FND_MSG_PUB.Count_And_Get
157: (p_count => x_msg_count,
151: p_data => x_msg_data);
152:
153: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
154: ROLLBACK TO update_tna_creditline;
155: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
156: FND_MSG_PUB.Count_And_Get
157: (p_count => x_msg_count,
158: p_data => x_msg_data);
159:
158: p_data => x_msg_data);
159:
160: WHEN OTHERS THEN
161: ROLLBACK TO update_tna_creditline;
162: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
163: OKL_API.Set_Message(p_app_name => G_APP_NAME,
164: p_msg_name => G_UNEXPECTED_ERROR,
165: p_token1 => G_SQLCODE_TOKEN,
166: p_token1_value => SQLCODE,
159:
160: WHEN OTHERS THEN
161: ROLLBACK TO update_tna_creditline;
162: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
163: OKL_API.Set_Message(p_app_name => G_APP_NAME,
164: p_msg_name => G_UNEXPECTED_ERROR,
165: p_token1 => G_SQLCODE_TOKEN,
166: p_token1_value => SQLCODE,
167: p_token2 => G_SQLERRM_TOKEN,
195: is
196: l_api_name CONSTANT VARCHAR2(30) := 'update_full_tna_creditline';
197: l_api_version CONSTANT NUMBER := 1.0;
198: i NUMBER;
199: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
200: l_src_credit_id NUMBER;
201: l_dst_credit_id NUMBER;
202: l_src_chr_id NUMBER;
203: l_src_chr_not_found boolean := false;
218: p_api_version,
219: l_api_name,
220: G_PKG_NAME ))
221: THEN
222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: END IF;
224:
225: -- Initialize message list if requested
226: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
227: FND_MSG_PUB.initialize;
228: END IF;
229:
230: -- Initialize API status to success
231: x_return_status := OKL_API.G_RET_STS_SUCCESS;
232:
233:
234: /*** Begin API body ****************************************************/
235: /*
265:
266: -- raise system error if data not found
267: if l_src_chr_not_found then
268: -- add new message
269: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
270: end if;
271:
272: -- get credit line ID for source contract if any (ignore if credit line not found?)
273: l_src_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(l_src_chr_id);
288: p_credit_line_id => l_src_credit_id,
289: p_formula_name => G_CONTRACT_FINANCED_AMOUNT,
290: p_credit_flag => false);
291:
292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
289: p_formula_name => G_CONTRACT_FINANCED_AMOUNT,
290: p_credit_flag => false);
291:
292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
297:
290: p_credit_flag => false);
291:
292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
297:
298: end if;
291:
292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
297:
298: end if;
299:
313: p_credit_line_id => l_dst_credit_id,
314: p_formula_name => G_CONTRACT_FINANCED_AMOUNT,
315: p_credit_flag => true);
316:
317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_ERROR;
321: END IF;
314: p_formula_name => G_CONTRACT_FINANCED_AMOUNT,
315: p_credit_flag => true);
316:
317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_ERROR;
321: END IF;
322:
315: p_credit_flag => true);
316:
317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_ERROR;
321: END IF;
322:
323: end if;
316:
317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_ERROR;
321: END IF;
322:
323: end if;
324:
330: (p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: EXCEPTION
334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
335: ROLLBACK TO update_full_tna_creditline;
336: x_return_status := OKL_API.G_RET_STS_ERROR;
337: FND_MSG_PUB.Count_And_Get
338: (p_count => x_msg_count,
332:
333: EXCEPTION
334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
335: ROLLBACK TO update_full_tna_creditline;
336: x_return_status := OKL_API.G_RET_STS_ERROR;
337: FND_MSG_PUB.Count_And_Get
338: (p_count => x_msg_count,
339: p_data => x_msg_data);
340:
337: FND_MSG_PUB.Count_And_Get
338: (p_count => x_msg_count,
339: p_data => x_msg_data);
340:
341: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
342: ROLLBACK TO update_full_tna_creditline;
343: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
344: FND_MSG_PUB.Count_And_Get
345: (p_count => x_msg_count,
339: p_data => x_msg_data);
340:
341: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
342: ROLLBACK TO update_full_tna_creditline;
343: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
344: FND_MSG_PUB.Count_And_Get
345: (p_count => x_msg_count,
346: p_data => x_msg_data);
347:
346: p_data => x_msg_data);
347:
348: WHEN OTHERS THEN
349: ROLLBACK TO update_full_tna_creditline;
350: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
351: OKL_API.Set_Message(p_app_name => G_APP_NAME,
352: p_msg_name => G_UNEXPECTED_ERROR,
353: p_token1 => G_SQLCODE_TOKEN,
354: p_token1_value => SQLCODE,
347:
348: WHEN OTHERS THEN
349: ROLLBACK TO update_full_tna_creditline;
350: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
351: OKL_API.Set_Message(p_app_name => G_APP_NAME,
352: p_msg_name => G_UNEXPECTED_ERROR,
353: p_token1 => G_SQLCODE_TOKEN,
354: p_token1_value => SQLCODE,
355: p_token2 => G_SQLERRM_TOKEN,
374: -- End of comments
375: ----------------------------------------------------------------------------------
376: PROCEDURE update_partial_tna_creditline(
377: p_api_version IN NUMBER
378: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
379: ,x_return_status OUT NOCOPY VARCHAR2
380: ,x_msg_count OUT NOCOPY NUMBER
381: ,x_msg_data OUT NOCOPY VARCHAR2
382: ,p_chr_id IN okc_k_headers_b.id%type
384: is
385: l_api_name CONSTANT VARCHAR2(30) := 'update_partial_tna_creditline';
386: l_api_version CONSTANT NUMBER := 1.0;
387: i NUMBER;
388: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
389: l_src_credit_id NUMBER;
390: l_dst_credit_id NUMBER;
391: l_src_chr_id NUMBER;
392: l_src_chr_not_found boolean := false;
431: p_api_version,
432: l_api_name,
433: G_PKG_NAME ))
434: THEN
435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: END IF;
437:
438: -- Initialize message list if requested
439: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
440: FND_MSG_PUB.initialize;
441: END IF;
442:
443: -- Initialize API status to success
444: x_return_status := OKL_API.G_RET_STS_SUCCESS;
445:
446:
447: /*** Begin API body ****************************************************/
448: /*
501: p_credit_line_id => l_src_credit_id,
502: p_formula_name => G_LINE_FINANCED_AMOUNT,
503: p_credit_flag => false);
504:
505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
508: RAISE OKL_API.G_EXCEPTION_ERROR;
509: END IF;
502: p_formula_name => G_LINE_FINANCED_AMOUNT,
503: p_credit_flag => false);
504:
505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
508: RAISE OKL_API.G_EXCEPTION_ERROR;
509: END IF;
510:
503: p_credit_flag => false);
504:
505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
508: RAISE OKL_API.G_EXCEPTION_ERROR;
509: END IF;
510:
511: end if;
504:
505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
508: RAISE OKL_API.G_EXCEPTION_ERROR;
509: END IF;
510:
511: end if;
512:
529: p_credit_line_id => l_dst_credit_id,
530: p_formula_name => G_CONTRACT_FINANCED_AMOUNT,
531: p_credit_flag => true);
532:
533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
530: p_formula_name => G_CONTRACT_FINANCED_AMOUNT,
531: p_credit_flag => true);
532:
533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
531: p_credit_flag => true);
532:
533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
539: end if;
532:
533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
539: end if;
540:
545: (p_count => x_msg_count,
546: p_data => x_msg_data);
547:
548: EXCEPTION
549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
550: ROLLBACK TO update_partial_tna_creditline;
551: x_return_status := OKL_API.G_RET_STS_ERROR;
552: FND_MSG_PUB.Count_And_Get
553: (p_count => x_msg_count,
547:
548: EXCEPTION
549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
550: ROLLBACK TO update_partial_tna_creditline;
551: x_return_status := OKL_API.G_RET_STS_ERROR;
552: FND_MSG_PUB.Count_And_Get
553: (p_count => x_msg_count,
554: p_data => x_msg_data);
555:
552: FND_MSG_PUB.Count_And_Get
553: (p_count => x_msg_count,
554: p_data => x_msg_data);
555:
556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
557: ROLLBACK TO update_partial_tna_creditline;
558: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
559: FND_MSG_PUB.Count_And_Get
560: (p_count => x_msg_count,
554: p_data => x_msg_data);
555:
556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
557: ROLLBACK TO update_partial_tna_creditline;
558: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
559: FND_MSG_PUB.Count_And_Get
560: (p_count => x_msg_count,
561: p_data => x_msg_data);
562:
561: p_data => x_msg_data);
562:
563: WHEN OTHERS THEN
564: ROLLBACK TO update_partial_tna_creditline;
565: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
566: OKL_API.Set_Message(p_app_name => G_APP_NAME,
567: p_msg_name => G_UNEXPECTED_ERROR,
568: p_token1 => G_SQLCODE_TOKEN,
569: p_token1_value => SQLCODE,
562:
563: WHEN OTHERS THEN
564: ROLLBACK TO update_partial_tna_creditline;
565: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
566: OKL_API.Set_Message(p_app_name => G_APP_NAME,
567: p_msg_name => G_UNEXPECTED_ERROR,
568: p_token1 => G_SQLCODE_TOKEN,
569: p_token1_value => SQLCODE,
570: p_token2 => G_SQLERRM_TOKEN,