513: where payment_method_code=p_ext_payee_tab(counter).Default_Pmt_method;
514:
515: IF (l_pm_count>0) then
516: -- insert into the external payment method table
517: INSERT INTO IBY_EXT_PARTY_PMT_MTHDS
518: (EXT_PARTY_PMT_MTHD_ID,
519: PAYMENT_METHOD_CODE,
520: PAYMENT_FLOW,
521: EXT_PMT_PARTY_ID,
529: OBJECT_VERSION_NUMBER
530: )
531: VALUES
532: (
533: IBY_EXT_PARTY_PMT_MTHDS_S.nextval,
534: p_ext_payee_tab(counter).Default_Pmt_method,
535: 'DISBURSEMENTS',
536: l_ext_payee_id,
537: p_ext_payee_tab(counter).Payment_function,
2221: l_payee_cnt NUMBER;
2222: l_payee_id NUMBER;
2223: l_pm_count NUMBER;
2224: l_message FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
2225: l_primary_flag iby_ext_party_pmt_mthds.primary_flag%TYPE;
2226:
2227: l_ext_payee_upd_rec Ext_Payee_Update_Rec_Type;
2228: l_payee_upd_status VARCHAR2(30);
2229:
2395:
2396: -- update default payment method
2397: IF(p_ext_payee_tab(counter).Default_Pmt_method IS NULL) THEN
2398: BEGIN
2399: UPDATE iby_ext_party_pmt_mthds
2400: SET primary_flag = 'N',
2401: last_update_date = trunc(sysdate),
2402: last_updated_by = fnd_global.user_id,
2403: last_update_login = fnd_global.user_id,
2420: -- payment method exists
2421: BEGIN
2422: SELECT primary_flag
2423: INTO l_primary_flag
2424: FROM iby_ext_party_pmt_mthds
2425: WHERE ext_pmt_party_id = p_ext_payee_id_tab(counter).ext_payee_id
2426: AND payment_function = p_ext_payee_tab(counter).payment_function
2427: AND payment_method_code=p_ext_payee_tab(counter).Default_Pmt_method;
2428:
2427: AND payment_method_code=p_ext_payee_tab(counter).Default_Pmt_method;
2428:
2429: EXCEPTION
2430: WHEN no_data_found THEN
2431: INSERT INTO IBY_EXT_PARTY_PMT_MTHDS
2432: (EXT_PARTY_PMT_MTHD_ID,
2433: PAYMENT_METHOD_CODE,
2434: PAYMENT_FLOW,
2435: EXT_PMT_PARTY_ID,
2441: LAST_UPDATE_DATE,
2442: LAST_UPDATE_LOGIN,
2443: OBJECT_VERSION_NUMBER
2444: ) VALUES (
2445: IBY_EXT_PARTY_PMT_MTHDS_S.nextval,
2446: p_ext_payee_tab(counter).Default_Pmt_method,
2447: 'DISBURSEMENTS',
2448: p_ext_payee_id_tab(counter).ext_payee_id,
2449: p_ext_payee_tab(counter).Payment_function,
2459: END;
2460:
2461: -- update primary_flag for all rows.
2462: BEGIN
2463: UPDATE iby_ext_party_pmt_mthds
2464: SET primary_flag = DECODE(payment_method_code,
2465: p_ext_payee_tab(counter).Default_Pmt_method, 'Y', 'N'),
2466: last_update_date = trunc(sysdate),
2467: last_updated_by = fnd_global.user_id,