[Home] [Help]
123: IF (l_authorization_bat IS NULL)
124: THEN
125: log_msg(l_debug_proc,'CE_INVALID_CASHPOOL_FOR_CE: l_authorization_bat IS NULL');
126: FND_MESSAGE.set_name('CE','CE_INVALID_CASHPOOL_FOR_CE');
127: FND_MSG_PUB.add;
128: p_result := 'FAIL';
129: RETURN;
130: END IF;
131:
132: IF (p_called_by = 'CL' AND g_ba_payment_method_code IS NULL)
133: THEN
134: log_msg(l_debug_proc,'CE_INVALID_CASHPOOL_FOR_CE: g_ba_payment_method_code IS NULL');
135: FND_MESSAGE.set_name('CE','CE_INVALID_CASHPOOL_FOR_CE');
136: FND_MSG_PUB.add;
137: p_result := 'FAIL';
138: RETURN;
139: END IF;
140:
684: log_msg(l_debug_proc,' create_transfer mode = ' || p_called_by);
685:
686: IF (p_called_by in ('ZBA','CL'))
687: THEN
688: FND_MSG_PUB.initialize;
689: --Gather the data required for creating the transfer
690: initiate_transfer(
691: p_called_by => p_called_by,
692: p_source_ba_id => p_source_ba_id,
698: p_payment_details_from => p_payment_details_from,
699: p_result => p_result);
700:
701: IF (p_result in ('FAIL')) THEN
702: p_msg_count := FND_MSG_PUB.count_msg;
703: RETURN;
704: END IF;
705:
706: -- Check whether the user has access to the
712:
713: IF (l_result in ('NO_ACCESS'))
714: THEN
715: FND_MESSAGE.set_name('CE','CE_BAT_NO_ACCESS');
716: FND_MSG_PUB.add;
717: p_result := 'FAILURE';
718: p_msg_count := FND_MSG_PUB.count_msg;
719: RETURN;
720: END IF;
714: THEN
715: FND_MESSAGE.set_name('CE','CE_BAT_NO_ACCESS');
716: FND_MSG_PUB.add;
717: p_result := 'FAILURE';
718: p_msg_count := FND_MSG_PUB.count_msg;
719: RETURN;
720: END IF;
721:
722: -- check for duplicate transfers
732:
733: IF (l_result in ('FOUND'))
734: THEN
735: FND_MESSAGE.set_name('CE','CE_BAT_DUPLICATE_FOUND');
736: FND_MSG_PUB.add;
737: p_result := 'FAIL';
738: -- stop if duplicate transfer is found
739: p_msg_count := FND_MSG_PUB.count_msg;
740: RETURN;
735: FND_MESSAGE.set_name('CE','CE_BAT_DUPLICATE_FOUND');
736: FND_MSG_PUB.add;
737: p_result := 'FAIL';
738: -- stop if duplicate transfer is found
739: p_msg_count := FND_MSG_PUB.count_msg;
740: RETURN;
741: END IF;
742:
743: -- populate payment transactions table
784: END IF;
785:
786: p_cashflows_created_flag := G_cashflows_created_flag;
787: p_result := 'SUCCESS';
788: p_msg_count := FND_MSG_PUB.count_msg;
789:
790: log_msg(l_debug_proc,'end');
791: EXCEPTION
792: WHEN OTHERS THEN
857: BEGIN
858: log_msg(l_debug_proc,'begin');
859:
860: IF p_called_by = 'MANUAL' THEN
861: FND_MSG_PUB.initialize;
862: END IF;
863:
864: -- The bank accounts should have a not null asset_combination_id.
865: -- Transfer cannot be created for bank accounts that are not attached to
885: THEN
886: log_msg(l_debug_proc,'p_source_ba_asset_ccid is NULL');
887: FND_MESSAGE.set_name('CE','CE_BAT_NO_CASH_ACCOUNT');
888: FND_MESSAGE.set_token('BA_NAME',G_source_bank_account_name);
889: FND_MSG_PUB.add;
890: END IF;
891:
892: IF p_destination_ba_asset_ccid IS NULL
893: THEN
893: THEN
894: log_msg(l_debug_proc,'p_destination_ba_asset_ccid is NULL');
895: FND_MESSAGE.set_name('CE','CE_BAT_NO_CASH_ACCOUNT');
896: FND_MESSAGE.set_token('BA_NAME',G_dest_bank_account_name);
897: FND_MSG_PUB.add;
898: END IF;
899: p_result := 'FAILURE';
900:
901: -- 14834217: Replaced direct update with API wrapper
913: THEN
914: log_msg(l_debug_proc,'p_source_ba_currency_code('||p_source_ba_currency_code||') <> '||
915: 'p_destination_ba_currency_code('||p_destination_ba_currency_code||')');
916: FND_MESSAGE.set_name('CE','CE_BAT_INVALID_CURRENCY');
917: FND_MSG_PUB.add;
918: p_result := 'FAILURE';
919:
920: -- 14834217: Replaced direct update with API wrapper
921: CE_PAYMENT_TRXN_PKG.update_transfer_status(
950: IF ((p_transfer_currency_code = p_source_ba_currency_code) AND
951: (l_destination_ledger_curr <> p_destination_ba_currency_code))
952: THEN
953: FND_MESSAGE.set_name('CE','CE_BAT_INVALID_DEST_BANK');
954: FND_MSG_PUB.add;
955: p_result := 'FAILURE';
956: -- 14834217: Replaced direct update with API wrapper
957: CE_PAYMENT_TRXN_PKG.update_transfer_status(
958: X_TRXN_NUMBER => p_trxn_reference_number,
962: ELSIF ((p_transfer_currency_code = p_destination_ba_currency_code) AND
963: (l_source_ledger_curr <> p_source_ba_currency_code))
964: THEN
965: FND_MESSAGE.set_name('CE','CE_BAT_INVALID_SRC_BANK');
966: FND_MSG_PUB.add;
967: p_result := 'FAILURE';
968: -- 14834217: Replaced direct update with API wrapper
969: CE_PAYMENT_TRXN_PKG.update_transfer_status(
970: X_TRXN_NUMBER => p_trxn_reference_number,
1242: IF (l_request_id = 0)
1243: THEN
1244: log_msg(l_debug_proc,'Could not submit payment process request');
1245: FND_MESSAGE.set_name('CE','CE_BAT_IBY_BUILD_FAILED');
1246: FND_MSG_PUB.add;
1247: p_result := 'FAILURE';
1248: ELSE
1249: log_msg(l_debug_proc,'Payment process request_id='||l_request_id||', payment_request_number='||p_pay_proc_req_code);
1250: -- 14834217: Added who columns
1282: CE_BAT_UTILS.call_payment_process_request(l_pay_proc_req_code, l_request_id);
1283:
1284: IF l_request_id = 0 THEN
1285: FND_MESSAGE.set_name('CE','CE_BAT_IBY_BUILD_FAILED');
1286: FND_MSG_PUB.add;
1287: p_result := 'FAILURE';
1288: ELSE
1289: log_msg(l_debug_proc,'submitted the Payments Build program:' || l_request_id);
1290: CE_PAYMENT_TRXN_PKG.update_transfer_status(
1395: AND event_type ='CE_BAT_UNCLEARED'
1396: ));
1397: IF(l_err>=1) THEN
1398: FND_MESSAGE.set_name('CE','CE_BAT_CASHFLOW_CLEARED');
1399: FND_MSG_PUB.add;
1400: p_result := 'FAIL';
1401: RETURN;
1402: ELSE
1403: OPEN cashflows_c (p_pay_trxn_number);
1959: nvl(l_end_date, SYSDATE) >= SYSDATE THEN
1960: RETURN;
1961: ELSE
1962: FND_MESSAGE.set_name('CE','CE_BAT_EXT_BA_END');
1963: FND_MSG_PUB.add;
1964: RETURN;
1965: END IF;
1966: END IF;
1967: END IF;