858: IS
859:
860: CURSOR c_get_users_w_primary_cc_set IS
861: SELECT user_name, preference_value
862: FROM fnd_user_preferences
863: WHERE module_name = 'IBE'
864: AND preference_name = 'PRIMARY_CARD';
865:
866: cursor c_check_assignment_id (c_instrument_id NUMBER, c_party_id NUMBER) is
885: AND cust_account_id IS NULL
886: AND acct_site_use_id IS NULL;
887:
888:
889: cursor c_find_fnd_user (c_user_name VARCHAR2) is
890: SELECT customer_id, person_party_id
891: FROM fnd_user
892: WHERE user_name = c_user_name;
893:
887:
888:
889: cursor c_find_fnd_user (c_user_name VARCHAR2) is
890: SELECT customer_id, person_party_id
891: FROM fnd_user
892: WHERE user_name = c_user_name;
893:
894:
895: l_status VARCHAR2(1);
908: rec_get_users_w_primary_cc_set c_get_users_w_primary_cc_set%rowtype;
909: rec_check_assignment_id c_check_assignment_id%rowtype;
910: rec_find_instr_payment_use c_find_instr_payment_use%rowtype;
911: rec_check_ext_payer_id c_check_ext_payer_id%rowtype;
912: rec_find_fnd_user c_find_fnd_user%rowtype;
913: --Define the global variable g_debug VARCHAR2(1) := 'N'
914:
915: BEGIN
916: /*IF p_debug_flag = 'Y' THEN
940: print_debug_log('Instrument id obtained from Upg_Instruments : '||l_instrument_id);
941: END IF;
942:
943:
944: --b) Get the party_id corresponding to the fnd_user using the following query
945: FOR rec_find_fnd_user in c_find_fnd_user(rec_get_users_w_primary_cc_set.user_name) LOOP
946:
947: l_customer_id := rec_find_fnd_user.customer_id;
948: l_person_party_id := rec_find_fnd_user.person_party_id;
941: END IF;
942:
943:
944: --b) Get the party_id corresponding to the fnd_user using the following query
945: FOR rec_find_fnd_user in c_find_fnd_user(rec_get_users_w_primary_cc_set.user_name) LOOP
946:
947: l_customer_id := rec_find_fnd_user.customer_id;
948: l_person_party_id := rec_find_fnd_user.person_party_id;
949: EXIT WHEN c_find_fnd_user%NOTFOUND;
943:
944: --b) Get the party_id corresponding to the fnd_user using the following query
945: FOR rec_find_fnd_user in c_find_fnd_user(rec_get_users_w_primary_cc_set.user_name) LOOP
946:
947: l_customer_id := rec_find_fnd_user.customer_id;
948: l_person_party_id := rec_find_fnd_user.person_party_id;
949: EXIT WHEN c_find_fnd_user%NOTFOUND;
950: END LOOP;
951:
944: --b) Get the party_id corresponding to the fnd_user using the following query
945: FOR rec_find_fnd_user in c_find_fnd_user(rec_get_users_w_primary_cc_set.user_name) LOOP
946:
947: l_customer_id := rec_find_fnd_user.customer_id;
948: l_person_party_id := rec_find_fnd_user.person_party_id;
949: EXIT WHEN c_find_fnd_user%NOTFOUND;
950: END LOOP;
951:
952: IF p_debug_flag = 'T' THEN
945: FOR rec_find_fnd_user in c_find_fnd_user(rec_get_users_w_primary_cc_set.user_name) LOOP
946:
947: l_customer_id := rec_find_fnd_user.customer_id;
948: l_person_party_id := rec_find_fnd_user.person_party_id;
949: EXIT WHEN c_find_fnd_user%NOTFOUND;
950: END LOOP;
951:
952: IF p_debug_flag = 'T' THEN
953: print_debug_log('CUstomer Id and person party id from FND USER : '||l_customer_id ||','||l_person_party_id);
949: EXIT WHEN c_find_fnd_user%NOTFOUND;
950: END LOOP;
951:
952: IF p_debug_flag = 'T' THEN
953: print_debug_log('CUstomer Id and person party id from FND USER : '||l_customer_id ||','||l_person_party_id);
954: END IF;
955:
956:
957: -- If the customer_id does not have any value, use the person_party_id value instead.