1685: p_party_source_tbl(p_party_count_rec.party_source_count).valid_flag := 'Y';
1686: END IF;
1687: END IF;
1688:
1689: -- Verify if the party_id is valid from HZ_parties,PO_vendors and employee tables
1690: -- based on the value of party_source_table
1691: -- Check the cache before hitting the database.
1692: l_exists_flag := 'N';
1693: l_valid_flag := 'Y';
7616: NULL;
7617: END;
7618:
7619:
7620: ELSIF upper(p_party_tbl) = 'PO_VENDORS'
7621: THEN
7622: IF p_contact_flag = 'Y' THEN
7623: BEGIN
7624:
8180: EXCEPTION
8181: WHEN OTHERS THEN
8182: NULL;
8183: END;
8184: ELSIF x_party_history_tbl(i).old_party_source_table = 'PO_VENDORS' THEN
8185: BEGIN
8186: SELECT segment1,
8187: 'VENDOR'
8188: INTO x_party_history_tbl(i).old_contact_party_number,
8186: SELECT segment1,
8187: 'VENDOR'
8188: INTO x_party_history_tbl(i).old_contact_party_number,
8189: x_party_history_tbl(i).old_contact_party_type
8190: FROM po_vendors
8191: WHERE vendor_id = l_old_contact_party_id;
8192: EXCEPTION
8193: WHEN OTHERS THEN
8194: NULL;
8263: EXCEPTION
8264: WHEN OTHERS THEN
8265: NULL;
8266: END;
8267: ELSIF x_party_history_tbl(i).old_party_source_table = 'PO_VENDORS' THEN
8268: BEGIN
8269: SELECT segment1,
8270: 'VENDOR',
8271: vendor_name
8271: vendor_name
8272: INTO x_party_history_tbl(i).old_party_number,
8273: x_party_history_tbl(i).old_party_type,
8274: x_party_history_tbl(i).old_party_name
8275: FROM po_vendors
8276: WHERE vendor_id = x_party_history_tbl(i).old_party_id;
8277: EXCEPTION
8278: WHEN OTHERS THEN
8279: NULL;
8372: EXCEPTION
8373: WHEN OTHERS THEN
8374: NULL;
8375: END;
8376: ELSIF x_party_history_tbl(i).new_party_source_table = 'PO_VENDORS' THEN
8377: BEGIN
8378: SELECT segment1,
8379: 'VENDOR'
8380: INTO x_party_history_tbl(i).new_contact_party_number,
8378: SELECT segment1,
8379: 'VENDOR'
8380: INTO x_party_history_tbl(i).new_contact_party_number,
8381: x_party_history_tbl(i).new_contact_party_type
8382: FROM po_vendors
8383: WHERE vendor_id = l_new_contact_party_id;
8384: EXCEPTION
8385: WHEN OTHERS THEN
8386: NULL;
8456: EXCEPTION
8457: WHEN OTHERS THEN
8458: NULL;
8459: END;
8460: ELSIF x_party_history_tbl(i).new_party_source_table = 'PO_VENDORS' THEN
8461: BEGIN
8462: SELECT segment1,
8463: 'VENDOR',
8464: vendor_name
8464: vendor_name
8465: INTO x_party_history_tbl(i).new_party_number,
8466: x_party_history_tbl(i).new_party_type,
8467: x_party_history_tbl(i).new_party_name
8468: FROM po_vendors
8469: WHERE vendor_id = x_party_history_tbl(i).new_party_id;
8470: EXCEPTION
8471: WHEN OTHERS THEN
8472: NULL;