Oracle Applications & Oracle Cloud Fusion HCM : Direct Debit Authorization (Inbound)

CREATE OR REPLACE PACKAGE bolinf.xxeq_inbound_auth_pkg AUTHID CURRENT_USER
AS
PROCEDURE update_dd_status (
errbuf OUT VARCHAR2
,retcode OUT NUMBER
,p_file_name IN VARCHAR2
);
END xxeq_inbound_auth_pkg;
/

CREATE OR REPLACE PACKAGE BODY bolinf.xxeq_inbound_auth_pkg
AS
/*********************************************************************************************************
Version |Name |Date |Change Description
---------------------------------------------------------------------------------------------------------
1.0 |Madhu Dhare |15-Jun-2014 |Initial Version for Italy Inbound Authorization Package for SEPA
*********************************************************************************************************/
PROCEDURE update_dd_status (
errbuf OUT VARCHAR2
,retcode OUT NUMBER
,p_file_name IN VARCHAR2
)
AS
---Local Variables Declaration
v_proxy_number VARCHAR2 (30) := NULL;
v_iban_number VARCHAR2 (30) := NULL;
v_acpt_result VARCHAR2 (30) := NULL;
v_reason_code VARCHAR2 (30) := NULL;
v_add_rej_info VARCHAR2 (100) := NULL;
v_dir_path VARCHAR2 (250) := NULL;
f_handle UTL_FILE.file_type;
v_line VARCHAR2 (2000);
v_1st_comma NUMBER;
v_2nd_comma NUMBER;
v_3rd_comma NUMBER;
v_4th_comma NUMBER;
v_5th_comma NUMBER;
v_user_name VARCHAR2 (240) := fnd_global.user_name;
v_file_name VARCHAR2 (100) := p_file_name;
v_error_desc VARCHAR2 (2000);
v_sqlcode VARCHAR2 (200);
v_rec_cnt NUMBER := 0;
v_updt_cnt NUMBER := 0;
v_attribute14 VARCHAR2 (30) := NULL;
v_abi VARCHAR2 (5) := NULL;
v_cab VARCHAR2 (5) := NULL;
v_conto VARCHAR2 (12) := NULL;
err_generic EXCEPTION;
err_empty_file EXCEPTION;
err_empty_file1 EXCEPTION;
separatore VARCHAR2 (120) := RPAD ('*'
,120
,'*'
);
l_bank_acct_uses_rec apps.hz_cust_acct_info_pub.bank_acct_uses_rec_type;
l_last_update_date DATE;
l_new_req NUMBER;
x_return_status VARCHAR2 (50);
x_msg_count NUMBER;
x_msg_data VARCHAR2 (2000);
v_bank_account_num ap_bank_accounts_all.bank_account_num%TYPE;
v_bank_number ap_bank_branches.bank_number%TYPE;
v_bank_num ap_bank_branches.bank_num%TYPE;
v_customer_number ra_customers.customer_number%TYPE;
v_site_num hz_cust_site_uses_all.LOCATION%TYPE;
v_arbor_ba hz_cust_site_uses_all.attribute5%TYPE;
v_gfp_dd_status ap_bank_account_uses_all.attribute14%TYPE;
v_mismatch_reason VARCHAR2 (100);

CURSOR bank_acc_uses_cur (
v_proxy_number VARCHAR2
)
IS
SELECT abau.bank_account_uses_id
,abau.customer_id
,abau.customer_site_use_id
,abau.vendor_id
,abau.vendor_site_id
,abau.external_bank_account_id
,abau.start_date
,abau.end_date
,abau.primary_flag
,abau.last_update_date
,abau.attribute_category
,abau.attribute1
,abau.attribute2
,abau.attribute3
,abau.attribute4
,abau.attribute5
,abau.attribute6
,abau.attribute7
,abau.attribute8
,abau.attribute9
,abau.attribute10
,abau.attribute11
,abau.attribute12
,abau.attribute13
,abau.attribute14
,aba.bank_account_num
,abb.bank_number
,abb.bank_num
,rc.customer_number
,hcsu.LOCATION
,hcsu.attribute5 arbor_ba
FROM ra_customers rc
,hz_cust_acct_sites_all hcas
,hz_cust_site_uses_all hcsu
,ap_bank_account_uses_all abau
,ap_bank_accounts_all aba
,ap_bank_branches abb
WHERE hcas.cust_account_id = rc.customer_id
AND hcsu.cust_acct_site_id = hcas.cust_acct_site_id
AND hcsu.site_use_code = 'BILL_TO'
AND hcsu.status = 'A'
AND abau.customer_site_use_id = hcsu.site_use_id
AND abau.customer_id = rc.customer_id
AND NVL (abau.end_date, SYSDATE + 1) >= SYSDATE
AND aba.bank_account_id = abau.external_bank_account_id
AND abb.bank_branch_id = aba.bank_branch_id
AND abau.attribute6 = v_proxy_number
AND EXISTS (
SELECT 1
FROM ar_cust_receipt_methods_v acrm
,fnd_lookup_values flv1
WHERE acrm.customer_id = rc.customer_id
AND acrm.site_use_id = abau.customer_site_use_id
AND flv1.lookup_type = 'XXEQ_DIRECT_DEBIT_PAYMENT_MTH'
AND flv1.LANGUAGE = USERENV ('LANG')
AND flv1.enabled_flag = 'Y'
AND NVL (flv1.end_date_active, SYSDATE + 1) >= SYSDATE
AND flv1.lookup_code = acrm.receipt_method_name);

CURSOR log_msg_cur
IS
SELECT *
FROM xxeq_inb_auth_log
ORDER BY log_type
,rec_num
,dds_status;

CURSOR mismatch_msg_cur
IS
SELECT *
FROM xxeq_inb_auth_mismatch
ORDER BY rec_num;

BEGIN
-- derive file name
IF UPPER (v_user_name) = 'BPEL_INTERFACE' THEN
v_file_name := p_file_name;
ELSE
v_file_name := fnd_global.user_id || '-' || p_file_name;
END IF;

-- derive file dir
BEGIN
SELECT fnd_profile.VALUE ('XXEQ_FILE_UPLOAD_INCOMING_DIR')
INTO v_dir_path
FROM DUAL;
EXCEPTION
WHEN OTHERS THEN
v_error_desc := 'Unable to retrieve incoming file location ' || SQLERRM;
RAISE;
END;

fnd_file.put_line (fnd_file.LOG, 'File name : ' || v_file_name);
fnd_file.put_line (fnd_file.LOG, 'Directory path : ' || v_dir_path);

-- open file
BEGIN
f_handle := UTL_FILE.fopen (v_dir_path
,v_file_name
,'r'
);
EXCEPTION
WHEN OTHERS THEN
v_error_desc := 'Error in FOPEN instruction of the input file (' || v_file_name || ')';
RAISE;
END;

-- fetch record in loop
/* ----------------------------------------------------------
Looping and reading line using GET_LINE which will
raise NO_DATA_FOUND when last line is read and exit the loop.
---------------------------------------------------------- */
DELETE FROM xxeq_inb_auth_log;

DELETE FROM xxeq_inb_auth_mismatch;

COMMIT;

LOOP
BEGIN
BEGIN
UTL_FILE.get_line (f_handle, v_line);
v_rec_cnt := v_rec_cnt + 1;
v_proxy_number := NULL;
v_iban_number := NULL;
v_acpt_result := NULL;
v_reason_code := NULL;
v_add_rej_info := NULL;
v_dir_path := NULL;
v_1st_comma := NULL;
v_2nd_comma := NULL;
v_3rd_comma := NULL;
v_4th_comma := NULL;
v_5th_comma := NULL;
v_attribute14 := NULL;
v_abi := NULL;
v_cab := NULL;
v_conto := NULL;
EXCEPTION
WHEN NO_DATA_FOUND THEN
IF v_rec_cnt = 0 THEN
v_sqlcode := SQLCODE;
v_error_desc := v_file_name || ' is an empty file.';
RAISE err_empty_file;
END IF;

EXIT;
END;

-- separate different fields
/* ----------------------------------------------------------
Fields in the input record are delimited by commas.
Separating the fields from v_line and storing in variables.
---------------------------------------------------------- */
v_1st_comma := INSTR (v_line
,','
,1
,1
);
v_2nd_comma := INSTR (v_line
,','
,1
,2
);
v_3rd_comma := INSTR (v_line
,','
,1
,3
);
v_4th_comma := INSTR (v_line
,','
,1
,4
);
v_5th_comma := INSTR (v_line
,','
,1
,5
);
-- proxy = mandate ID
v_proxy_number := SUBSTR (v_line
,1
, v_1st_comma - 1
);
v_iban_number := SUBSTR (v_line
, v_1st_comma + 1
, v_2nd_comma - v_1st_comma - 1
);
v_acpt_result := SUBSTR (v_line
, v_2nd_comma + 1
, v_3rd_comma - v_2nd_comma - 1
);
v_reason_code := SUBSTR (v_line
, v_3rd_comma + 1
, v_4th_comma - v_3rd_comma - 1
);
v_add_rej_info := SUBSTR (v_line
, v_4th_comma + 1
, v_5th_comma - v_4th_comma - 1
);

-- validate above fields if NULL
IF v_proxy_number = NULL
OR v_iban_number = NULL
OR v_acpt_result = NULL
OR v_reason_code = NULL THEN
v_sqlcode := '';
v_error_desc := 'For record number ' || v_rec_cnt || ' either Proxy, IBAN, Acceptance Result or Reason Code is NULL';
RAISE err_generic;
END IF;

-- derive bank account attribute14
BEGIN
SELECT meaning
,description
INTO v_add_rej_info
,v_attribute14
FROM fnd_lookup_values
WHERE lookup_type = 'XXEQ_REJECTION_REASONS_SEPA'
AND lookup_code = v_reason_code
AND TRUNC (SYSDATE) BETWEEN TRUNC (start_date_active) AND NVL (TRUNC (end_date_active), TO_DATE ('31-DEC-4712', 'DD-MON-RRRR'))
AND enabled_flag = 'Y'
AND LANGUAGE = 'US';
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_sqlcode := SQLCODE;
v_error_desc := 'For record number ' || v_rec_cnt || ' Reason code ' || v_reason_code || ' is not present in lookup XXEQ_REJECTION_REASONS_SEPA';
RAISE err_generic;
WHEN OTHERS THEN
v_sqlcode := SQLCODE;
v_error_desc := 'For record number ' || v_rec_cnt || ' Unexpected error while fetching reason code details from lookup XXEQ_REJECTION_REASONS_SEPA ';
RAISE err_generic;
END;

-- derive ABI, CAB and CONTO from IBAN
v_abi := SUBSTR (v_iban_number
,6
,5
);
v_cab := SUBSTR (v_iban_number
,11
,5
);
v_conto := SUBSTR (v_iban_number
,16
,12
);

FOR c_bank_acc_uses IN bank_acc_uses_cur (v_proxy_number)
LOOP
-- derive mandatory fields to be passed to the API
l_bank_acct_uses_rec := NULL;
l_bank_acct_uses_rec.bank_account_uses_id := c_bank_acc_uses.bank_account_uses_id;
l_bank_acct_uses_rec.customer_id := c_bank_acc_uses.customer_id;
l_bank_acct_uses_rec.customer_site_use_id := c_bank_acc_uses.customer_site_use_id;
l_bank_acct_uses_rec.vendor_id := c_bank_acc_uses.vendor_id;
l_bank_acct_uses_rec.vendor_site_id := c_bank_acc_uses.vendor_site_id;
l_bank_acct_uses_rec.external_bank_account_id := c_bank_acc_uses.external_bank_account_id;
l_bank_acct_uses_rec.start_date := c_bank_acc_uses.start_date;
l_bank_acct_uses_rec.end_date := c_bank_acc_uses.end_date;
l_bank_acct_uses_rec.primary_flag := c_bank_acc_uses.primary_flag;
l_last_update_date := c_bank_acc_uses.last_update_date;
l_bank_acct_uses_rec.attribute_category := c_bank_acc_uses.attribute_category;
l_bank_acct_uses_rec.attribute1 := c_bank_acc_uses.attribute1;
l_bank_acct_uses_rec.attribute2 := c_bank_acc_uses.attribute2;
l_bank_acct_uses_rec.attribute3 := c_bank_acc_uses.attribute3;
l_bank_acct_uses_rec.attribute4 := c_bank_acc_uses.attribute4;
l_bank_acct_uses_rec.attribute5 := c_bank_acc_uses.attribute5;
l_bank_acct_uses_rec.attribute6 := c_bank_acc_uses.attribute6;
l_bank_acct_uses_rec.attribute7 := c_bank_acc_uses.attribute7;
l_bank_acct_uses_rec.attribute8 := c_bank_acc_uses.attribute8;
l_bank_acct_uses_rec.attribute9 := c_bank_acc_uses.attribute9;
l_bank_acct_uses_rec.attribute10 := c_bank_acc_uses.attribute10;
l_bank_acct_uses_rec.attribute11 := c_bank_acc_uses.attribute11;
l_bank_acct_uses_rec.attribute12 := c_bank_acc_uses.attribute12;
l_bank_acct_uses_rec.attribute13 := c_bank_acc_uses.attribute13;
l_bank_acct_uses_rec.attribute14 := c_bank_acc_uses.attribute14;
v_bank_account_num := c_bank_acc_uses.bank_account_num;
v_bank_number := c_bank_acc_uses.bank_number;
v_bank_num := c_bank_acc_uses.bank_num;
v_customer_number := c_bank_acc_uses.customer_number;
v_site_num := c_bank_acc_uses.LOCATION;
v_arbor_ba := c_bank_acc_uses.arbor_ba;
v_gfp_dd_status := c_bank_acc_uses.attribute14;

IF ( LTRIM (v_bank_account_num, '0') = LTRIM (v_conto, '0')
AND v_bank_number = v_abi
AND v_bank_num = v_cab)
OR (v_reason_code IN ('MD09', 'MD16')) THEN
-- update the bank account's attributes using API
BEGIN
l_bank_acct_uses_rec.attribute14 := v_attribute14;
l_bank_acct_uses_rec.attribute15 := TO_CHAR (SYSDATE, 'DD-MON-YYYY');
apps.hz_cust_acct_info_pub.update_bank_acct_uses (p_api_version => 1.0
,p_init_msg_list => apps.fnd_api.g_true
,p_commit => fnd_api.g_false
,p_bank_account_uses_rec => l_bank_acct_uses_rec
,p_last_update_date => l_last_update_date
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_validation_level => fnd_api.g_valid_level_full
);

IF x_return_status = fnd_api.g_ret_sts_success THEN
v_updt_cnt := v_updt_cnt + 1;

INSERT INTO xxeq_inb_auth_log
VALUES (1
,v_rec_cnt
,v_attribute14
, 'Cliente: ' || v_proxy_number || ' Direct Debit status updated to ' || v_attribute14 || ' : ' || v_add_rej_info
);

COMMIT;
ELSE
IF x_msg_count > 0 THEN
fnd_file.put_line (fnd_file.LOG, 'Update API FAILED ERROR(1), x_msg_data : ' || x_msg_data);
END IF;
END IF;
EXCEPTION
WHEN OTHERS THEN
v_sqlcode := SUBSTR (SQLERRM
,1
,200
);
v_error_desc := 'Error in Bank Account Uses UPDATE API';
RAISE err_generic;
END;
ELSE
IF LTRIM (v_bank_account_num, '0') <> LTRIM (v_conto, '0') THEN
v_mismatch_reason := 'Conto is not matching';
END IF;

IF v_bank_number <> v_abi THEN
v_mismatch_reason := v_mismatch_reason || 'ABI is not matching';
END IF;

IF v_bank_num <> v_cab THEN
v_mismatch_reason := v_mismatch_reason || 'CAB is not matching';
END IF;

-- print log for other IBANs against that customer proxy
INSERT INTO xxeq_inb_auth_mismatch
VALUES (v_rec_cnt
,v_customer_number
,v_site_num
,v_arbor_ba
,v_proxy_number
,v_bank_number
,v_bank_num
,v_bank_account_num
,v_gfp_dd_status
,v_reason_code
,v_add_rej_info
,v_abi
,v_cab
,v_conto
,v_mismatch_reason
);

COMMIT;
END IF;
END LOOP;

fnd_file.put_line (fnd_file.output, separatore);
fnd_file.put_line (fnd_file.output, 'Successfully updated records ');
fnd_file.put_line (fnd_file.output, separatore);

FOR c_log_msg IN log_msg_cur
LOOP
fnd_file.put_line (fnd_file.output, c_log_msg.MESSAGE);
END LOOP;

fnd_file.put_line (fnd_file.output, separatore);
fnd_file.put_line (fnd_file.output, 'Records not updated due to Abi-Cab-Conto mismatch');
fnd_file.put_line (fnd_file.output, separatore);
fnd_file.put_line
(fnd_file.output
,'Customer Number Site Number Arbor Billing Account Proxy Number GFP ABI GFP CAB GFP CONTO Direct Debit Status Causale Causale-Description Response ABI Response CAB Response Conto Reason For Not Updating DDS');
fnd_file.put_line
(fnd_file.output
,'------------- -------------- -------------- -------------- ------------ ---------- -------------- -------------- ---------- -------------- -------------- -------------- -------------- --------------');

FOR c_mismatch_msg IN mismatch_msg_cur
LOOP
fnd_file.put_line (fnd_file.output
, c_mismatch_msg.customer_number
|| ' '
|| c_mismatch_msg.site_number
|| ' '
|| c_mismatch_msg.arbor_ba
|| ' '
|| c_mismatch_msg.proxy
|| ' '
|| c_mismatch_msg.gfp_abi
|| ' '
|| c_mismatch_msg.gfp_cab
|| ' '
|| c_mismatch_msg.gfp_conto
|| ' '
|| c_mismatch_msg.gfp_dd_status
|| ' '
|| c_mismatch_msg.resp_rej_code
|| ' '
|| c_mismatch_msg.resp_rej_desc
|| ' '
|| c_mismatch_msg.resp_abi
|| ' '
|| c_mismatch_msg.resp_cab
|| ' '
|| c_mismatch_msg.resp_conto
|| ' '
|| c_mismatch_msg.reason);
END LOOP;
EXCEPTION
WHEN err_generic THEN
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Message: ' || v_error_desc);
fnd_file.put_line (fnd_file.LOG, 'SQLCode : ' || v_sqlcode);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
WHEN err_empty_file THEN
RAISE err_empty_file1;
WHEN OTHERS THEN
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Message: ' || SQLERRM);
fnd_file.put_line (fnd_file.LOG, 'SQLCode: ' || SQLCODE);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
END;
END LOOP;

-- close file
BEGIN
UTL_FILE.fclose (f_handle);
fnd_file.put_line (fnd_file.LOG, 'Records read : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, 'Records updated : ' || v_updt_cnt);
fnd_file.put_line (fnd_file.LOG, 'Calling File Archive program');
l_new_req :=
fnd_request.submit_request ('XXEQ'
,'XXEQDDAARCH'
,' '
, SYSDATE + (1 / 8640)
,FALSE
,v_file_name
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
,''
);

IF (l_new_req <> 0) THEN
fnd_file.put_line (fnd_file.LOG, 'Request_id: ' || l_new_req || ' submitted for file archive');
ELSE
fnd_file.put_line (fnd_file.LOG, 'Request not submitted for file archive');
END IF;
EXCEPTION
WHEN OTHERS THEN
v_error_desc := 'Error in instruction of the input file fclose(' || v_file_name || ')';
RAISE;
END;
EXCEPTION
WHEN err_empty_file1 THEN
retcode := 1;
fnd_file.put_line (fnd_file.LOG, 'Message: ' || v_error_desc);
WHEN UTL_FILE.invalid_path THEN
v_sqlcode := 'UTL_FILE.INVALID_PATH';
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Message: ' || v_error_desc);
fnd_file.put_line (fnd_file.LOG, 'Error : ' || v_sqlcode);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
retcode := 1;
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
WHEN UTL_FILE.invalid_operation THEN
v_sqlcode := 'UTL_FILE.INVALID_OPERATION';
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Message: ' || v_error_desc);
fnd_file.put_line (fnd_file.LOG, 'Error : ' || v_sqlcode);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
retcode := 1;
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
WHEN UTL_FILE.invalid_mode THEN
v_sqlcode := 'UTL_FILE.INVALID_MODE';
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Messagr: ' || v_error_desc);
fnd_file.put_line (fnd_file.LOG, 'Error : ' || v_sqlcode);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
retcode := 1;
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
WHEN UTL_FILE.invalid_filehandle THEN
v_sqlcode := 'UTL_FILE.INVALID_FILEHANDLE';
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Message: ' || v_error_desc);
fnd_file.put_line (fnd_file.LOG, 'Error : ' || v_sqlcode);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
retcode := 1;
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
WHEN UTL_FILE.read_error THEN
v_sqlcode := 'UTL_FILE.READ_ERROR';
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Message: ' || v_error_desc);
fnd_file.put_line (fnd_file.LOG, 'Error : ' || v_sqlcode);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
retcode := 1;
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
WHEN OTHERS THEN
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, separatore);
fnd_file.put_line (fnd_file.LOG, 'Message: ' || SQLERRM);
fnd_file.put_line (fnd_file.LOG, 'SQLCode: ' || SQLCODE);
fnd_file.put_line (fnd_file.LOG, 'Record : ' || v_rec_cnt);
fnd_file.put_line (fnd_file.LOG, separatore);
retcode := 1;
fnd_file.put_line (fnd_file.LOG, ' ');
fnd_file.put_line (fnd_file.LOG, ' ');
END update_dd_status;
END xxeq_inbound_auth_pkg;
/

Oracle Applications & Oracle Cloud Fusion HCM

Oracle Application and Cloud HCM

Tuesday 20 December 2016

Direct Debit Authorization (Inbound)

No comments :

Contact us