346: p_batch_party_id IN NUMBER,
347: x_return_status IN OUT NOCOPY VARCHAR2
348: )
349: IS
350: l_dup_id iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE := NULL;
351: l_flow_type iby_pmt_instr_uses_all.payment_flow%TYPE;
352:
353: CURSOR c_dupinstr
354: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
347: x_return_status IN OUT NOCOPY VARCHAR2
348: )
349: IS
350: l_dup_id iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE := NULL;
351: l_flow_type iby_pmt_instr_uses_all.payment_flow%TYPE;
352:
353: CURSOR c_dupinstr
354: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
355: ci_instr_id IN iby_pmt_instr_uses_all.instrument_id%TYPE,
350: l_dup_id iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE := NULL;
351: l_flow_type iby_pmt_instr_uses_all.payment_flow%TYPE;
352:
353: CURSOR c_dupinstr
354: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
355: ci_instr_id IN iby_pmt_instr_uses_all.instrument_id%TYPE,
356: ci_instr_type IN iby_pmt_instr_uses_all.instrument_type%TYPE)
357: IS
358: SELECT mto.instrument_payment_use_id
351: l_flow_type iby_pmt_instr_uses_all.payment_flow%TYPE;
352:
353: CURSOR c_dupinstr
354: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
355: ci_instr_id IN iby_pmt_instr_uses_all.instrument_id%TYPE,
356: ci_instr_type IN iby_pmt_instr_uses_all.instrument_type%TYPE)
357: IS
358: SELECT mto.instrument_payment_use_id
359: FROM iby_pmt_instr_uses_all mto,
352:
353: CURSOR c_dupinstr
354: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
355: ci_instr_id IN iby_pmt_instr_uses_all.instrument_id%TYPE,
356: ci_instr_type IN iby_pmt_instr_uses_all.instrument_type%TYPE)
357: IS
358: SELECT mto.instrument_payment_use_id
359: FROM iby_pmt_instr_uses_all mto,
360: (SELECT ext_pmt_party_id,payment_flow
355: ci_instr_id IN iby_pmt_instr_uses_all.instrument_id%TYPE,
356: ci_instr_type IN iby_pmt_instr_uses_all.instrument_type%TYPE)
357: IS
358: SELECT mto.instrument_payment_use_id
359: FROM iby_pmt_instr_uses_all mto,
360: (SELECT ext_pmt_party_id,payment_flow
361: FROM iby_pmt_instr_uses_all
362: WHERE instrument_payment_use_id = ci_use_id) mfrom
363: WHERE
357: IS
358: SELECT mto.instrument_payment_use_id
359: FROM iby_pmt_instr_uses_all mto,
360: (SELECT ext_pmt_party_id,payment_flow
361: FROM iby_pmt_instr_uses_all
362: WHERE instrument_payment_use_id = ci_use_id) mfrom
363: WHERE
364: mto.instrument_payment_use_id <> ci_use_id
365: AND mto.payment_flow = mfrom.payment_flow
367: AND mto.instrument_type = ci_instr_type
368: AND mto.instrument_id = ci_instr_id;
369:
370: CURSOR c_dupeparty
371: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
372: ci_party_id IN iby_pmt_instr_uses_all.ext_pmt_party_id%TYPE,
373: ci_flow_type IN iby_pmt_instr_uses_all.payment_flow%TYPE)
374: IS
375: SELECT mto.instrument_payment_use_id
368: AND mto.instrument_id = ci_instr_id;
369:
370: CURSOR c_dupeparty
371: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
372: ci_party_id IN iby_pmt_instr_uses_all.ext_pmt_party_id%TYPE,
373: ci_flow_type IN iby_pmt_instr_uses_all.payment_flow%TYPE)
374: IS
375: SELECT mto.instrument_payment_use_id
376: FROM iby_pmt_instr_uses_all mto,
369:
370: CURSOR c_dupeparty
371: (ci_use_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
372: ci_party_id IN iby_pmt_instr_uses_all.ext_pmt_party_id%TYPE,
373: ci_flow_type IN iby_pmt_instr_uses_all.payment_flow%TYPE)
374: IS
375: SELECT mto.instrument_payment_use_id
376: FROM iby_pmt_instr_uses_all mto,
377: (SELECT instrument_type,instrument_id
372: ci_party_id IN iby_pmt_instr_uses_all.ext_pmt_party_id%TYPE,
373: ci_flow_type IN iby_pmt_instr_uses_all.payment_flow%TYPE)
374: IS
375: SELECT mto.instrument_payment_use_id
376: FROM iby_pmt_instr_uses_all mto,
377: (SELECT instrument_type,instrument_id
378: FROM iby_pmt_instr_uses_all
379: WHERE instrument_payment_use_id = ci_use_id) mfrom
380: WHERE
374: IS
375: SELECT mto.instrument_payment_use_id
376: FROM iby_pmt_instr_uses_all mto,
377: (SELECT instrument_type,instrument_id
378: FROM iby_pmt_instr_uses_all
379: WHERE instrument_payment_use_id = ci_use_id) mfrom
380: WHERE
381: mto.instrument_payment_use_id <> ci_use_id
382: AND mto.payment_flow = ci_flow_type
404:
405: iby_debug_pub.add('duplicate instr use:='|| l_dup_id,
406: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
407:
408: UPDATE iby_pmt_instr_uses_all
409: SET instrument_id = DECODE(l_dup_id, NULL,p_to_id, instrument_id),
410: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
411: last_update_date = hz_utility_pub.last_update_date,
412: last_updated_by = hz_utility_pub.user_id,
440:
441: iby_debug_pub.add('duplicate instr use:='|| l_dup_id,
442: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
443:
444: UPDATE iby_pmt_instr_uses_all
445: SET ext_pmt_party_id = DECODE(l_dup_id, NULL,p_to_id, ext_pmt_party_id),
446: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
447: last_update_date = hz_utility_pub.last_update_date,
448: last_updated_by = hz_utility_pub.user_id,
669: last_updated_by = hz_utility_pub.user_id,
670: last_update_login = hz_utility_pub.last_update_login
671: WHERE (trxn_extension_id = p_from_id);
672:
673: ELSIF (p_parent_entity_name = 'IBY_PMT_INSTR_USES_ALL') THEN
674:
675: UPDATE iby_fndcpt_tx_extensions
676: SET instr_assignment_id = p_to_fk_id,
677: last_update_date = hz_utility_pub.last_update_date,
726: last_updated_by = hz_utility_pub.user_id,
727: last_update_login = hz_utility_pub.last_update_login
728: WHERE (trxnmid = p_from_id);
729:
730: ELSIF (p_parent_entity_name = 'IBY_PMT_INSTR_USES_ALL') THEN
731:
732: UPDATE iby_trxn_summaries_all
733: SET payer_instr_assignment_id = p_to_fk_id,
734: last_update_date = hz_utility_pub.last_update_date,