DBA Data[Home] [Help]

APPS.PON_TCA_MERGE_PVT dependencies on PON_SUPPLIER_ACTIVITIES

Line 4628: -- merge for Sourcing PON_SUPPLIER_ACTIVITIES entity.

4624: -- Pre-reqs : Supplier Activity records with the given trading_partner_contact_id
4625: -- (p_From_FK_id) must exists in the database
4626: --
4627: -- Function : This procedure will be attached to the TRADING_PARTNER_CONTACT_ID
4628: -- merge for Sourcing PON_SUPPLIER_ACTIVITIES entity.
4629: --
4630: -- It will veto Party Merge if -
4631: -- p_From_FK_id and p_To_FK_id both are not Seller user party
4632: --

Line 4633: -- This will merge the all the PON_SUPPLIER_ACTIVITIES records

4629: --
4630: -- It will veto Party Merge if -
4631: -- p_From_FK_id and p_To_FK_id both are not Seller user party
4632: --
4633: -- This will merge the all the PON_SUPPLIER_ACTIVITIES records
4634: -- having TRADING_PARTNER_CONTACT_ID equals to p_From_FK_id
4635: -- to party id having value (p_To_FK_id)
4636: --
4637: -- Parameters:

Line 4718: -- PON_SUPPLIER_ACTIVITIES.TRADING_PARTNER_CONTACT_ID

4714:
4715: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4716: --
4717: -- This can not happen in any normal scenario as
4718: -- PON_SUPPLIER_ACTIVITIES.TRADING_PARTNER_CONTACT_ID
4719: -- can never contain a buyer user id. Thus, raising a veto though
4720: -- it will possibly never be called
4721: --
4722: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message

Line 4733: UPDATE PON_SUPPLIER_ACTIVITIES psa1

4729: --
4730: -- there is no chance of unique key constraint violation
4731: -- due to the following logic
4732: --
4733: UPDATE PON_SUPPLIER_ACTIVITIES psa1
4734: SET psa1.TRADING_PARTNER_CONTACT_ID = p_To_FK_id,
4735: psa1.LAST_UPDATED_BY = -1,
4736: psa1.LAST_UPDATE_DATE = sysdate
4737: WHERE psa1.TRADING_PARTNER_CONTACT_ID = p_From_FK_id

Line 4739: FROM PON_SUPPLIER_ACTIVITIES psa2

4735: psa1.LAST_UPDATED_BY = -1,
4736: psa1.LAST_UPDATE_DATE = sysdate
4737: WHERE psa1.TRADING_PARTNER_CONTACT_ID = p_From_FK_id
4738: AND NOT EXISTS (SELECT 'DUPLICATE'
4739: FROM PON_SUPPLIER_ACTIVITIES psa2
4740: WHERE psa2.AUCTION_HEADER_ID_ORIG_AMEND = psa1.AUCTION_HEADER_ID_ORIG_AMEND
4741: AND psa2.LAST_ACTIVITY_TIME = psa1.LAST_ACTIVITY_TIME
4742: AND psa2.TRADING_PARTNER_ID = psa1.TRADING_PARTNER_ID
4743: AND psa2.TRADING_PARTNER_CONTACT_ID = p_To_FK_id );

Line 4746: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_SUPPLIER_ACTIVITIES: '||sql%rowcount||' rows');

4742: AND psa2.TRADING_PARTNER_ID = psa1.TRADING_PARTNER_ID
4743: AND psa2.TRADING_PARTNER_CONTACT_ID = p_To_FK_id );
4744:
4745:
4746: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_SUPPLIER_ACTIVITIES: '||sql%rowcount||' rows');
4747:
4748: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4749: --
4750: -- Nothing to do