[Home] [Help]
63: x_return_status IN OUT NOCOPY VARCHAR2,
64: x_msg_count IN OUT NOCOPY NUMBER,
65: x_msg_data IN OUT NOCOPY VARCHAR2);
66:
67: -- This is called to insert a record in pon_supplier_activities
68: -- when two different vendor / vendor sites are merged.
69:
70: PROCEDURE UPDATE_SUPPLIER_ACTIVITY(p_dup_trading_partner_id IN NUMBER,
71: x_return_status IN OUT NOCOPY VARCHAR2,
852: 6. pon_supplier_access
853: 7. pon_threads
854: 8. pon_thread_entries
855: 9. pon_te_recipients
856: 10. pon_supplier_activities
857: 11. pon_acknowledgements
858: */
859:
860: l_progress := 701;
1005: We are comparing w.r.t AUCTION_HEADER_ID_ORIG_AMEND becuase
1006: the UK is definied on this field.
1007: */
1008:
1009: UPDATE pon_supplier_activities psa1
1010: SET psa1.trading_partner_id = p_trading_partner_id,
1011: psa1.last_updated_by = -1,
1012: psa1.last_update_date = sysdate
1013: WHERE trading_partner_id =p_dup_trading_partner_id
1011: psa1.last_updated_by = -1,
1012: psa1.last_update_date = sysdate
1013: WHERE trading_partner_id =p_dup_trading_partner_id
1014: AND NOT EXISTS (SELECT 'DUPLICATE'
1015: FROM pon_supplier_activities psa2
1016: WHERE psa2.auction_header_id_orig_amend = psa1.auction_header_id_orig_amend
1017: AND psa2.trading_partner_contact_id = psa1.trading_partner_contact_id
1018: AND psa2.last_activity_time = psa1.last_activity_time
1019: AND psa2.trading_partner_id = p_trading_partner_id);
1018: AND psa2.last_activity_time = psa1.last_activity_time
1019: AND psa2.trading_partner_id = p_trading_partner_id);
1020:
1021: l_progress := 709;
1022: fnd_file.put_line (fnd_file.log, l_progress|| 'Done pon_supplier_activities');
1023:
1024: /* Who columns are not in update as we don't have it on table */
1025:
1026: UPDATE pon_threads pt
1093: IS
1094: l_procedure_name VARCHAR2(30) := 'UPDATE_SUPPLIER_ACTIVITY';
1095: BEGIN --{
1096:
1097: INSERT INTO PON_SUPPLIER_ACTIVITIES
1098: (
1099: auction_header_id_orig_amend,
1100: trading_partner_contact_id,
1101: last_activity_time,
1129: WHERE bh.trading_partner_id = p_dup_trading_partner_id
1130: AND ah.auction_header_id = bh.auction_header_id
1131: AND NOT EXISTS (
1132: SELECT NULL
1133: FROM pon_supplier_activities psa
1134: WHERE psa.auction_header_id_orig_amend = ah.auction_header_id_orig_amend
1135: AND psa.trading_partner_id = bh.trading_partner_id
1136: AND psa.trading_partner_contact_id = bh.trading_partner_contact_id
1137: )