134: p_hdr_rec => p_hdr_rec,
135: p_parent_agreement_number => p_parent_agreement_number,
136: x_header_rec => lx_header_rec,
137: x_k_header_rec => lx_k_header_rec);
138: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
139: RAISE OKC_API.G_EXCEPTION_ERROR;
140: END IF;
141:
142: /* Party Role */
135: p_parent_agreement_number => p_parent_agreement_number,
136: x_header_rec => lx_header_rec,
137: x_k_header_rec => lx_k_header_rec);
138: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
139: RAISE OKC_API.G_EXCEPTION_ERROR;
140: END IF;
141:
142: /* Party Role */
143: IF (p_party_role_contact_tbl.count > 0) THEN
187: x_msg_count => x_msg_count,
188: x_msg_data => x_msg_data,
189: p_cplv_tbl => l_cplv_tbl,
190: x_cplv_tbl => lx_cplv_tbl);
191: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
192: RAISE OKC_API.G_EXCEPTION_ERROR;
193: END IF;
194: END IF;
195:
188: x_msg_data => x_msg_data,
189: p_cplv_tbl => l_cplv_tbl,
190: x_cplv_tbl => lx_cplv_tbl);
191: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
192: RAISE OKC_API.G_EXCEPTION_ERROR;
193: END IF;
194: END IF;
195:
196: /* Party Contact */
229: x_msg_count => x_msg_count,
230: x_msg_data => x_msg_data,
231: p_ctcv_tbl => l_ctcv_tbl,
232: x_ctcv_tbl => lx_ctcv_tbl);
233: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
234: RAISE OKC_API.G_EXCEPTION_ERROR;
235: END IF;
236: END IF;
237: /* Terms and Conditions */
230: x_msg_data => x_msg_data,
231: p_ctcv_tbl => l_ctcv_tbl,
232: x_ctcv_tbl => lx_ctcv_tbl);
233: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
234: RAISE OKC_API.G_EXCEPTION_ERROR;
235: END IF;
236: END IF;
237: /* Terms and Conditions */
238: IF (p_terms_n_conditions_tbl.count > 0) THEN
281: p_line_id => l_line_id,
282: p_cpl_id => l_cpl_id,
283: p_rrd_id => l_rrd_id,
284: p_rgr_tbl => l_rgr_tbl);
285: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
286: RAISE OKC_API.G_EXCEPTION_ERROR;
287: END IF;
288: END IF;
289:
282: p_cpl_id => l_cpl_id,
283: p_rrd_id => l_rrd_id,
284: p_rgr_tbl => l_rgr_tbl);
285: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
286: RAISE OKC_API.G_EXCEPTION_ERROR;
287: END IF;
288: END IF;
289:
290: /* Vendor Billing */
307: x_msg_count => x_msg_count,
308: x_msg_data => x_msg_data,
309: p_cplv_rec => l_cplv_rec,
310: x_cplv_rec => lx_cplv_rec);
311: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
312: RAISE OKC_API.G_EXCEPTION_ERROR;
313: END IF;
314: l_rgr_tbl.DELETE;
315: -- Process Customer ID
308: x_msg_data => x_msg_data,
309: p_cplv_rec => l_cplv_rec,
310: x_cplv_rec => lx_cplv_rec);
311: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
312: RAISE OKC_API.G_EXCEPTION_ERROR;
313: END IF;
314: l_rgr_tbl.DELETE;
315: -- Process Customer ID
316: -- rabhupat bug#4520143 removed the redundent condition
417: p_line_id => l_line_id,
418: p_cpl_id => l_cpl_id,
419: p_rrd_id => l_rrd_id,
420: p_rgr_tbl => l_rgr_tbl);
421: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
422: RAISE OKC_API.G_EXCEPTION_ERROR;
423: END IF;
424: END IF;
425: /* Article */
418: p_cpl_id => l_cpl_id,
419: p_rrd_id => l_rrd_id,
420: p_rgr_tbl => l_rgr_tbl);
421: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
422: RAISE OKC_API.G_EXCEPTION_ERROR;
423: END IF;
424: END IF;
425: /* Article */
426: IF (p_article_tbl.count > 0) THEN
444: x_msg_count => x_msg_count,
445: x_msg_data => x_msg_data,
446: p_catv_tbl => l_catv_tbl,
447: x_catv_tbl => lx_catv_tbl);
448: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
449: RAISE OKC_API.G_EXCEPTION_ERROR;
450: END IF;
451: END IF;
452:
445: x_msg_data => x_msg_data,
446: p_catv_tbl => l_catv_tbl,
447: x_catv_tbl => lx_catv_tbl);
448: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
449: RAISE OKC_API.G_EXCEPTION_ERROR;
450: END IF;
451: END IF;
452:
453: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
453: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
454: ,x_msg_data => x_msg_data );
455:
456: EXCEPTION
457: WHEN OKC_API.G_EXCEPTION_ERROR THEN
458:
459: --27-May-2009 sechawla 6826580
460: IF l_invoice_formats%ISOPEN THEN
461: CLOSE l_invoice_formats;
460: IF l_invoice_formats%ISOPEN THEN
461: CLOSE l_invoice_formats;
462: END IF;
463:
464: x_return_status := OKC_API.HANDLE_EXCEPTIONS
465: (substr(l_api_name,1,26),
466: G_PKG_NAME,
467: 'OKC_API.G_RET_STS_ERROR',
468: x_msg_count,
463:
464: x_return_status := OKC_API.HANDLE_EXCEPTIONS
465: (substr(l_api_name,1,26),
466: G_PKG_NAME,
467: 'OKC_API.G_RET_STS_ERROR',
468: x_msg_count,
469: x_msg_data,
470: '_PUB');
471: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
467: 'OKC_API.G_RET_STS_ERROR',
468: x_msg_count,
469: x_msg_data,
470: '_PUB');
471: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
472:
473: --27-May-2009 sechawla 6826580
474: IF l_invoice_formats%ISOPEN THEN
475: CLOSE l_invoice_formats;
474: IF l_invoice_formats%ISOPEN THEN
475: CLOSE l_invoice_formats;
476: END IF;
477:
478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
479: (substr(l_api_name,1,26),
480: G_PKG_NAME,
481: 'OKC_API.G_RET_STS_UNEXP_ERROR',
482: x_msg_count,
477:
478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
479: (substr(l_api_name,1,26),
480: G_PKG_NAME,
481: 'OKC_API.G_RET_STS_UNEXP_ERROR',
482: x_msg_count,
483: x_msg_data,
484: '_PUB');
485: WHEN OTHERS THEN
488: IF l_invoice_formats%ISOPEN THEN
489: CLOSE l_invoice_formats;
490: END IF;
491:
492: x_return_status := OKC_API.HANDLE_EXCEPTIONS
493: (substr(l_api_name,1,26),
494: G_PKG_NAME,
495: 'OTHERS',
496: x_msg_count,