462: ) RETURN BOOLEAN IS
463:
464: l_exists VARCHAR2(1) := 'N';
465:
466: --12586362 - Changing the datatype of old and new hash values to match the iby_creditcard hash datatypes
467: l_hash1_old iby_creditcard.cc_number_hash1%TYPE;
468: l_hash2_old iby_creditcard.cc_number_hash2%TYPE;
469: l_hash1_new iby_creditcard.cc_number_hash1%TYPE;
470: l_hash2_new iby_creditcard.cc_number_hash2%TYPE;
463:
464: l_exists VARCHAR2(1) := 'N';
465:
466: --12586362 - Changing the datatype of old and new hash values to match the iby_creditcard hash datatypes
467: l_hash1_old iby_creditcard.cc_number_hash1%TYPE;
468: l_hash2_old iby_creditcard.cc_number_hash2%TYPE;
469: l_hash1_new iby_creditcard.cc_number_hash1%TYPE;
470: l_hash2_new iby_creditcard.cc_number_hash2%TYPE;
471: --12586362
464: l_exists VARCHAR2(1) := 'N';
465:
466: --12586362 - Changing the datatype of old and new hash values to match the iby_creditcard hash datatypes
467: l_hash1_old iby_creditcard.cc_number_hash1%TYPE;
468: l_hash2_old iby_creditcard.cc_number_hash2%TYPE;
469: l_hash1_new iby_creditcard.cc_number_hash1%TYPE;
470: l_hash2_new iby_creditcard.cc_number_hash2%TYPE;
471: --12586362
472:
465:
466: --12586362 - Changing the datatype of old and new hash values to match the iby_creditcard hash datatypes
467: l_hash1_old iby_creditcard.cc_number_hash1%TYPE;
468: l_hash2_old iby_creditcard.cc_number_hash2%TYPE;
469: l_hash1_new iby_creditcard.cc_number_hash1%TYPE;
470: l_hash2_new iby_creditcard.cc_number_hash2%TYPE;
471: --12586362
472:
473: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
466: --12586362 - Changing the datatype of old and new hash values to match the iby_creditcard hash datatypes
467: l_hash1_old iby_creditcard.cc_number_hash1%TYPE;
468: l_hash2_old iby_creditcard.cc_number_hash2%TYPE;
469: l_hash1_new iby_creditcard.cc_number_hash1%TYPE;
470: l_hash2_new iby_creditcard.cc_number_hash2%TYPE;
471: --12586362
472:
473: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
474:
486:
487: BEGIN
488: SELECT 'Y'
489: INTO l_exists
490: FROM iby_creditcard ic1
491: WHERE ic1.INSTRID = p_instrument_id_new
492: AND ic1.cc_number_hash1 = (SELECT cc_number_hash1
493: FROM iby_creditcard ic2
494: WHERE ic2.INSTRID = p_instrument_id_old)
489: INTO l_exists
490: FROM iby_creditcard ic1
491: WHERE ic1.INSTRID = p_instrument_id_new
492: AND ic1.cc_number_hash1 = (SELECT cc_number_hash1
493: FROM iby_creditcard ic2
494: WHERE ic2.INSTRID = p_instrument_id_old)
495: AND ic1.cc_number_hash2 = (SELECT cc_number_hash2
496: FROM iby_creditcard ic3
497: WHERE ic3.INSTRID = p_instrument_id_old);
492: AND ic1.cc_number_hash1 = (SELECT cc_number_hash1
493: FROM iby_creditcard ic2
494: WHERE ic2.INSTRID = p_instrument_id_old)
495: AND ic1.cc_number_hash2 = (SELECT cc_number_hash2
496: FROM iby_creditcard ic3
497: WHERE ic3.INSTRID = p_instrument_id_old);
498: EXCEPTION WHEN NO_DATA_FOUND THEN
499: null;
500: END;
513:
514: BEGIN
515: SELECT cc_number_hash1, cc_number_hash2
516: INTO l_hash1_old, l_hash2_old
517: FROM iby_creditcard
518: WHERE INSTRID = p_instrument_id_old;
519: EXCEPTION WHEN NO_DATA_FOUND THEN
520: null;
521: END;
536: ELSE
537: BEGIN
538: SELECT cc_number_hash1, cc_number_hash2
539: INTO l_hash1_new, l_hash2_new
540: FROM iby_creditcard
541: WHERE INSTRID = p_instrument_id_new;
542: EXCEPTION WHEN NO_DATA_FOUND THEN
543: null;
544: END;