64: IS
65: BEGIN
66: IF l_debug = 'Y' THEN
67: cse_debug_pub.add(p_message);
68: IF nvl(fnd_global.conc_request_id, -1) <> -1 THEN
69: fnd_file.put_line(fnd_file.log,p_message);
70: END IF;
71: END IF;
72: EXCEPTION
352: l_nl_pa_tbl(l_ind).document_type := p_ap_pa_tbl(ind).invoice_type;
353: l_nl_pa_tbl(l_ind).document_distribution_type := p_ap_pa_tbl(ind).invoice_distribution_type;
354: l_nl_pa_tbl(l_ind).user_transaction_source := 'ENTERPRISE INSTALL BASE';
355: l_nl_pa_tbl(l_ind).last_update_date := sysdate;
356: l_nl_pa_tbl(l_ind).last_updated_by := fnd_global.user_id;
357: l_nl_pa_tbl(l_ind).creation_date := sysdate;
358: l_nl_pa_tbl(l_ind).created_by := fnd_global.user_Id;
359: l_nl_pa_tbl(l_ind).vendor_number := p_ap_pa_tbl(ind).vendor_num;
360: l_nl_pa_tbl(l_ind).vendor_id := p_ap_pa_tbl(ind).vendor_id;
354: l_nl_pa_tbl(l_ind).user_transaction_source := 'ENTERPRISE INSTALL BASE';
355: l_nl_pa_tbl(l_ind).last_update_date := sysdate;
356: l_nl_pa_tbl(l_ind).last_updated_by := fnd_global.user_id;
357: l_nl_pa_tbl(l_ind).creation_date := sysdate;
358: l_nl_pa_tbl(l_ind).created_by := fnd_global.user_Id;
359: l_nl_pa_tbl(l_ind).vendor_number := p_ap_pa_tbl(ind).vendor_num;
360: l_nl_pa_tbl(l_ind).vendor_id := p_ap_pa_tbl(ind).vendor_id;
361: l_nl_pa_tbl(l_ind).inventory_item_id := p_ap_pa_tbl(ind).inventory_item_id;
362: l_nl_pa_tbl(l_ind).project_id := p_ap_pa_tbl(ind).project_id;
764:
765: UPDATE ap_invoice_distributions_all
766: SET pa_addition_flag = 'Y',
767: last_update_date = sysdate,
768: last_updated_by = fnd_global.user_id,
769: last_update_login = fnd_global.login_id,
770: request_id = fnd_global.conc_request_id
771: WHERE invoice_distribution_id = ap_inv_rec.invoice_distribution_id;
772:
765: UPDATE ap_invoice_distributions_all
766: SET pa_addition_flag = 'Y',
767: last_update_date = sysdate,
768: last_updated_by = fnd_global.user_id,
769: last_update_login = fnd_global.login_id,
770: request_id = fnd_global.conc_request_id
771: WHERE invoice_distribution_id = ap_inv_rec.invoice_distribution_id;
772:
773: UPDATE ap_invoice_distributions_all
766: SET pa_addition_flag = 'Y',
767: last_update_date = sysdate,
768: last_updated_by = fnd_global.user_id,
769: last_update_login = fnd_global.login_id,
770: request_id = fnd_global.conc_request_id
771: WHERE invoice_distribution_id = ap_inv_rec.invoice_distribution_id;
772:
773: UPDATE ap_invoice_distributions_all
774: SET pa_addition_flag = 'Y',
772:
773: UPDATE ap_invoice_distributions_all
774: SET pa_addition_flag = 'Y',
775: last_update_date = sysdate,
776: last_updated_by = fnd_global.user_id,
777: last_update_login = fnd_global.login_id,
778: request_id = fnd_global.conc_request_id
779: WHERE charge_applicable_to_dist_id = ap_inv_rec.invoice_distribution_id;
780:
773: UPDATE ap_invoice_distributions_all
774: SET pa_addition_flag = 'Y',
775: last_update_date = sysdate,
776: last_updated_by = fnd_global.user_id,
777: last_update_login = fnd_global.login_id,
778: request_id = fnd_global.conc_request_id
779: WHERE charge_applicable_to_dist_id = ap_inv_rec.invoice_distribution_id;
780:
781: ELSE -- Bug 8565319
774: SET pa_addition_flag = 'Y',
775: last_update_date = sysdate,
776: last_updated_by = fnd_global.user_id,
777: last_update_login = fnd_global.login_id,
778: request_id = fnd_global.conc_request_id
779: WHERE charge_applicable_to_dist_id = ap_inv_rec.invoice_distribution_id;
780:
781: ELSE -- Bug 8565319
782: debug('Not processing this record as the item is not in service');
797: WHEN fnd_api.g_exc_error THEN
798:
799: l_txn_error_rec := CSE_UTIL_PKG.init_txn_error_Rec;
800: l_txn_error_rec.error_text := nvl(l_error_message,cse_util_pkg.dump_error_stack);
801: l_txn_error_rec.source_group_ref_id := fnd_global.conc_request_id;
802: l_txn_error_rec.source_type := 'CSEIPVP';
803: l_txn_error_rec.source_id := l_inv_dist_id;
804: l_txn_error_rec.processed_flag := 'N';
805: