[Home] [Help]
195: l_from_user_type := 'NONE';
196: l_to_user_type := 'NONE';
197: l_counter := 0;
198:
199: -- fnd_file.put_line (fnd_file.log, '10 : Starting Party Comparion:');
200: --
201: -- open the user check cursor to determine user type
202: --
203: FOR user IN CHECK_USER_TYPE(p_from_id) LOOP
206:
207: EXIT WHEN (l_counter = 1); -- May be I can do a better construct here
208: END LOOP;
209:
210: -- fnd_file.put_line (fnd_file.log, '20 : Merge From Party Type:'||l_from_user_type);
211:
212: l_counter := 0;
213: FOR user IN CHECK_USER_TYPE(p_to_id) LOOP
214: l_to_user_type := user.USER_TYPE;
216:
217: EXIT WHEN (l_counter = 1); -- May be I can do a better construct here
218: END LOOP;
219:
220: -- fnd_file.put_line (fnd_file.log, '20 : Merge To Party Type:'||l_to_user_type);
221:
222: IF (l_from_user_type = 'BUYER') THEN
223:
224: IF (l_to_user_type = 'BUYER') THEN
597:
598: BEGIN
599: --{start of procedure
600:
601: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.MERGE_NEG_TEAM_FND_USER ');
602: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
603: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
604:
605: --
598: BEGIN
599: --{start of procedure
600:
601: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.MERGE_NEG_TEAM_FND_USER ');
602: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
603: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
604:
605: --
606: -- We will be updating the user_id column of pon_neg_team_members table
599: --{start of procedure
600:
601: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.MERGE_NEG_TEAM_FND_USER ');
602: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
603: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
604:
605: --
606: -- We will be updating the user_id column of pon_neg_team_members table
607: -- if there are only one FND_USER associated with the merge from ot merge to party id.
606: -- We will be updating the user_id column of pon_neg_team_members table
607: -- if there are only one FND_USER associated with the merge from ot merge to party id.
608: -- We will not touch the pon_neg_team_members otherwise.
609: --
610: fnd_file.put_line (fnd_file.log, '10 : Buyer Merge - Calling HAS_MULTIPLE_FND_USERS function');
611:
612: IF (HAS_MULTIPLE_FND_USERS(p_To_FK_id) = FALSE AND
613: HAS_MULTIPLE_FND_USERS(p_From_FK_id) = FALSE) THEN
614: fnd_file.put_line (fnd_file.log, '20 : Buyer Merge - Merge From and Merge To Party has one FND_USER');
610: fnd_file.put_line (fnd_file.log, '10 : Buyer Merge - Calling HAS_MULTIPLE_FND_USERS function');
611:
612: IF (HAS_MULTIPLE_FND_USERS(p_To_FK_id) = FALSE AND
613: HAS_MULTIPLE_FND_USERS(p_From_FK_id) = FALSE) THEN
614: fnd_file.put_line (fnd_file.log, '20 : Buyer Merge - Merge From and Merge To Party has one FND_USER');
615: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge - Merging PON_NEG_TEAM_MEMBERS table');
616:
617: l_from_user_id := GET_USER_ID(p_From_FK_id);
618: l_to_user_id := GET_USER_ID(p_To_FK_id);
611:
612: IF (HAS_MULTIPLE_FND_USERS(p_To_FK_id) = FALSE AND
613: HAS_MULTIPLE_FND_USERS(p_From_FK_id) = FALSE) THEN
614: fnd_file.put_line (fnd_file.log, '20 : Buyer Merge - Merge From and Merge To Party has one FND_USER');
615: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge - Merging PON_NEG_TEAM_MEMBERS table');
616:
617: l_from_user_id := GET_USER_ID(p_From_FK_id);
618: l_to_user_id := GET_USER_ID(p_To_FK_id);
619:
622:
623: --
624: -- That means we have exactly only one fnd user for each of the merging parties
625: --
626: fnd_file.put_line (fnd_file.log, '40 : Buyer Merge - Both the parties have only one fnd user each');
627:
628: UPDATE PON_NEG_TEAM_MEMBERS pntm
629: SET pntm.USER_ID = l_to_user_id
630: WHERE pntm.USER_ID = l_from_user_id
632: FROM PON_NEG_TEAM_MEMBERS pntm1
633: WHERE pntm.auction_header_id = pntm1.auction_header_id
634: AND pntm1.USER_ID = l_to_user_id);
635:
636: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated USER IDs in PON_NEG_TEAM_MEMBERS: '||sql%rowcount||' rows');
637:
638: END If;
639: END IF;
640:
643:
644: --
645: -- We need add some Sourcing specific message for this
646: --
647: fnd_file.put_line (fnd_file.log, '60 : Error in PON_TCA_PARTY_MERGE.MERGE_NEG_TEAM_FND_USER SQLERRM:'||SQLERRM);
648: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
649: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
650: FND_MSG_PUB.ADD;
651:
730: --{start of procedure
731:
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733:
734: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_TPC_MERGE ');
735: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
731:
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733:
734: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_TPC_MERGE ');
735: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733:
734: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_TPC_MERGE ');
735: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
740: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
733:
734: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_TPC_MERGE ');
735: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
740: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
741: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
734: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_TPC_MERGE ');
735: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
740: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
741: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
742: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
735: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
740: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
741: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
742: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
743:
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
740: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
741: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
742: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
743:
744: --
737: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
740: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
741: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
742: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
743:
744: --
745: -- check the merge scenario
738: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
739: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
740: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
741: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
742: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
743:
744: --
745: -- check the merge scenario
746: --
747: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
748: p_from_id => p_From_FK_id,
749: p_to_id => p_To_FK_id);
750:
751: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
752:
753: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
754:
755: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
751: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
752:
753: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
754:
755: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
756: --
757: -- This can not happen in any normal scenario as
758: -- PON_AUCTION_HEADERS_ALL.TRADING_PARTNER_CONTACT_ID
759: -- can never contain a seller user id. Thus, raising a veto though
766: ELSIF (l_merge_scenario = G_BUYER) THEN
767: --
768: -- Now transact the data we have
769: --
770: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge - Getting User Name from FND');
771:
772: l_user_name := GET_USER_NAME(p_To_FK_id);
773:
774: fnd_file.put_line (fnd_file.log, '40 : Buyer Merge - User Name from FND:'||l_user_name);
770: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge - Getting User Name from FND');
771:
772: l_user_name := GET_USER_NAME(p_To_FK_id);
773:
774: fnd_file.put_line (fnd_file.log, '40 : Buyer Merge - User Name from FND:'||l_user_name);
775:
776:
777: --
778: -- If we do not get the l_user_name name then the
786: LAST_UPDATED_BY = -1,
787: TRADING_PARTNER_CONTACT_NAME = l_user_name
788: WHERE TRADING_PARTNER_CONTACT_ID = p_From_FK_id;
789:
790: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated TPC IDs in PON_AUCTION_HEADERS_ALL: '||sql%rowcount||' rows');
791:
792: UPDATE PON_DISCUSSIONS
793: SET OWNER_PARTY_ID = p_To_FK_id,
794: LAST_UPDATE_DATE = SYSDATE
793: SET OWNER_PARTY_ID = p_To_FK_id,
794: LAST_UPDATE_DATE = SYSDATE
795: WHERE OWNER_PARTY_ID = p_From_FK_id;
796:
797: fnd_file.put_line (fnd_file.log, '60 : Buyer Merge - Updated TPC IDs in PON_DISCUSSIONS');
798:
799: --
800: -- We will be updating the user_id column of pon_neg_team_members table
801: -- if there are only one FND_USER associated with the merge from ot merge to party id.
800: -- We will be updating the user_id column of pon_neg_team_members table
801: -- if there are only one FND_USER associated with the merge from ot merge to party id.
802: -- We will not touch the pon_neg_team_members otherwise.
803: --
804: fnd_file.put_line (fnd_file.log, '70 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
805:
806: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
807: p_To_FK_id => p_To_FK_id);
808:
809: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
810: --
811: -- Nothing to do
812: --
813: fnd_file.put_line (fnd_file.log, '70 : Irrelevent Merge');
814: NULL;
815: END IF;
816:
817: EXCEPTION
819:
820: --
821: -- We need add some Sourcing specific message for this
822: --
823: fnd_file.put_line (fnd_file.log, '80 : Error in PON_TCA_PARTY_MERGE.NEG_TPC_MERGE SQLERRM:'||SQLERRM);
824: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
825: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
826: FND_MSG_PUB.ADD;
827:
904: --{start of procedure
905:
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907:
908: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_LCK_MERGE ');
909: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
905:
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907:
908: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_LCK_MERGE ');
909: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907:
908: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_LCK_MERGE ');
909: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
914: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
907:
908: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_LCK_MERGE ');
909: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
914: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
915: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
908: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_LCK_MERGE ');
909: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
914: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
915: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
916: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
909: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
914: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
915: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
916: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
917:
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
914: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
915: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
916: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
917:
918: --
911: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
914: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
915: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
916: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
917:
918: --
919: -- check the merge scenario
912: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
913: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
914: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
915: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
916: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
917:
918: --
919: -- check the merge scenario
920: --
921: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
922: p_from_id => p_From_FK_id,
923: p_to_id => p_To_FK_id);
924:
925: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
926:
927: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
928:
929: fnd_file.put_line (fnd_file.log, '20 : Seller or Incompatible Merge - Error');
925: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
926:
927: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
928:
929: fnd_file.put_line (fnd_file.log, '20 : Seller or Incompatible Merge - Error');
930: --
931: -- This can not happen in any normal scenario as
932: -- PON_AUCTION_HEADERS_ALL.DRAFT_LOCKED_BY_CONTACT_ID
933: -- can never contain a seller user id. Thus, raising a veto though
940: ELSIF (l_merge_scenario = G_BUYER) THEN
941: --
942: -- Now transact the data we have
943: --
944: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
945:
946: --
947: -- there is no chance of unique key constraint violation
948: -- due to the following updates
952: LAST_UPDATED_BY = -1,
953: DRAFT_LOCKED_BY_CONTACT_ID = p_To_FK_id
954: WHERE DRAFT_LOCKED_BY_CONTACT_ID = p_From_FK_id;
955:
956: fnd_file.put_line (fnd_file.log, '40 : Buyer Merge - Updated DRAFT_LOCKED_BY_CONTACT_IDs in PON_AUCTION_HEADERS_ALL: '||sql%rowcount||' rows');
957:
958: --
959: -- We will be updating the user_id column of pon_neg_team_members table
960: -- if there are only one FND_USER associated with the merge from ot merge to party id.
959: -- We will be updating the user_id column of pon_neg_team_members table
960: -- if there are only one FND_USER associated with the merge from ot merge to party id.
961: -- We will not touch the pon_neg_team_members otherwise.
962: --
963: fnd_file.put_line (fnd_file.log, '45 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
964:
965: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
966: p_To_FK_id => p_To_FK_id);
967:
968: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
969: --
970: -- Nothing to do
971: --
972: fnd_file.put_line (fnd_file.log, '50 : Irrelevent Merge');
973: NULL;
974: END IF;
975:
976: EXCEPTION
978:
979: --
980: -- We need add some Sourcing specific message for this
981: --
982: fnd_file.put_line (fnd_file.log, '60 : Error in PON_TCA_PARTY_MERGE.NEG_DRFT_LCK_MERGE SQLERRM:'||SQLERRM);
983: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
984: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
985: FND_MSG_PUB.ADD;
986:
1063: --{start of procedure
1064:
1065: x_return_status := FND_API.G_RET_STS_SUCCESS;
1066:
1067: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_UNLCK_MERGE ');
1068: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1064:
1065: x_return_status := FND_API.G_RET_STS_SUCCESS;
1066:
1067: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_UNLCK_MERGE ');
1068: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1065: x_return_status := FND_API.G_RET_STS_SUCCESS;
1066:
1067: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_UNLCK_MERGE ');
1068: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1073: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1066:
1067: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_UNLCK_MERGE ');
1068: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1073: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1074: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1067: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_UNLCK_MERGE ');
1068: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1073: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1074: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1075: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1068: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1073: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1074: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1075: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1076:
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1073: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1074: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1075: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1076:
1077: --
1070: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1073: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1074: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1075: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1076:
1077: --
1078: -- check the merge scenario
1071: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1072: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1073: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1074: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1075: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1076:
1077: --
1078: -- check the merge scenario
1079: --
1080: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
1081: p_from_id => p_From_FK_id,
1082: p_to_id => p_To_FK_id);
1083:
1084: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1085:
1086: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1087:
1088: fnd_file.put_line (fnd_file.log, '20 : Seller or Incompatible Merge - Error');
1084: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1085:
1086: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1087:
1088: fnd_file.put_line (fnd_file.log, '20 : Seller or Incompatible Merge - Error');
1089:
1090: --
1091: -- This can not happen in any normal scenario as
1092: -- PON_AUCTION_HEADERS_ALL.DRAFT_UNLOCKED_BY_CONTACT_ID
1098: x_return_status := FND_API.G_RET_STS_ERROR;
1099:
1100: ELSIF (l_merge_scenario = G_BUYER) THEN
1101:
1102: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
1103:
1104: --
1105: -- Now transact the data we have
1106: --
1114: LAST_UPDATED_BY = -1,
1115: DRAFT_UNLOCKED_BY_CONTACT_ID = p_To_FK_id
1116: WHERE DRAFT_UNLOCKED_BY_CONTACT_ID = p_From_FK_id;
1117:
1118: fnd_file.put_line (fnd_file.log, '40 : Buyer Merge - Updated DRAFT_UNLOCKED_BY_CONTACT_IDs in PON_AUCTION_HEADERS_ALL: '||sql%rowcount||' rows');
1119:
1120: --
1121: -- We will be updating the user_id column of pon_neg_team_members table
1122: -- if there are only one FND_USER associated with the merge from ot merge to party id.
1121: -- We will be updating the user_id column of pon_neg_team_members table
1122: -- if there are only one FND_USER associated with the merge from ot merge to party id.
1123: -- We will not touch the pon_neg_team_members otherwise.
1124: --
1125: fnd_file.put_line (fnd_file.log, '45 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
1126:
1127: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
1128: p_To_FK_id => p_To_FK_id);
1129:
1128: p_To_FK_id => p_To_FK_id);
1129:
1130: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1131:
1132: fnd_file.put_line (fnd_file.log, '50 : Irrelevent Merge');
1133: --
1134: -- Nothing to do
1135: --
1136: NULL;
1138:
1139: EXCEPTION
1140: WHEN OTHERS THEN
1141:
1142: fnd_file.put_line (fnd_file.log, '60 : Error in PON_TCA_PARTY_MERGE.NEG_DRFT_UNLCK_MERGE SQLERRM:'||SQLERRM);
1143: --
1144: -- We need add some Sourcing specific message for this
1145: --
1146: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1227: --{start of procedure
1228:
1229: x_return_status := FND_API.G_RET_STS_SUCCESS;
1230:
1231: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SCORE_LCK_MERGE ');
1232: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1228:
1229: x_return_status := FND_API.G_RET_STS_SUCCESS;
1230:
1231: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SCORE_LCK_MERGE ');
1232: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1229: x_return_status := FND_API.G_RET_STS_SUCCESS;
1230:
1231: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SCORE_LCK_MERGE ');
1232: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1237: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1230:
1231: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SCORE_LCK_MERGE ');
1232: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1237: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1238: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1231: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SCORE_LCK_MERGE ');
1232: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1237: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1238: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1239: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1232: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1237: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1238: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1239: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1240:
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1237: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1238: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1239: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1240:
1241: --
1234: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1237: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1238: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1239: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1240:
1241: --
1242: -- check the merge scenario
1235: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1236: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1237: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1238: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1239: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1240:
1241: --
1242: -- check the merge scenario
1243: --
1244: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
1245: p_from_id => p_From_FK_id,
1246: p_to_id => p_To_FK_id);
1247:
1248: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1249:
1250: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1251:
1252: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1248: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1249:
1250: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1251:
1252: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1253:
1254: --
1255: -- This can not happen in any normal scenario as
1256: -- PON_AUCTION_HEADERS_ALL.SCORING_LOCK_TP_CONTACT_ID
1264: ELSIF (l_merge_scenario = G_BUYER) THEN
1265: --
1266: -- Now transact the data we have
1267: --
1268: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
1269:
1270: --
1271: -- there is no chance of unique key constraint violation
1272: -- due to the following updates
1276: LAST_UPDATED_BY = -1,
1277: SCORING_LOCK_TP_CONTACT_ID = p_To_FK_id
1278: WHERE SCORING_LOCK_TP_CONTACT_ID = p_From_FK_id;
1279:
1280: fnd_file.put_line (fnd_file.log, '40 : Buyer Merge - Updated SCORING_LOCK_TP_CONTACT_IDs in PON_AUCTION_HEADERS_ALL: '||sql%rowcount||' rows');
1281:
1282: --
1283: -- We will be updating the user_id column of pon_neg_team_members table
1284: -- if there are only one FND_USER associated with the merge from ot merge to party id.
1283: -- We will be updating the user_id column of pon_neg_team_members table
1284: -- if there are only one FND_USER associated with the merge from ot merge to party id.
1285: -- We will not touch the pon_neg_team_members otherwise.
1286: --
1287: fnd_file.put_line (fnd_file.log, '45 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
1288:
1289: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
1290: p_To_FK_id => p_To_FK_id);
1291:
1293: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1294: --
1295: -- Nothing to do
1296: --
1297: fnd_file.put_line (fnd_file.log, '50 : Irrelevent Merge');
1298: NULL;
1299: END IF;
1300:
1301: EXCEPTION
1300:
1301: EXCEPTION
1302: WHEN OTHERS THEN
1303:
1304: fnd_file.put_line (fnd_file.log, '60 : Error in PON_TCA_PARTY_MERGE.NEG_SCORE_LCK_MERGE SQLERRM:'||SQLERRM);
1305: --
1306: -- We need add some Sourcing specific message for this
1307: --
1308: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1390: --{start of procedure
1391:
1392: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393:
1394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_EVENT_MERGE ');
1395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1391:
1392: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393:
1394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_EVENT_MERGE ');
1395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1392: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393:
1394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_EVENT_MERGE ');
1395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1393:
1394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_EVENT_MERGE ');
1395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_EVENT_MERGE ');
1395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1403:
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1403:
1404: --
1397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1403:
1404: --
1405: -- check the merge scenario
1398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1403:
1404: --
1405: -- check the merge scenario
1406: --
1407: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
1408: p_from_id => p_From_FK_id,
1409: p_to_id => p_To_FK_id);
1410:
1411: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1412:
1413: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1414:
1415: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1411: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1412:
1413: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1414:
1415: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1416: --
1417: -- This can not happen in any normal scenario as
1418: -- PON_AUCTION_EVENTS.TRADING_PARTNER_CONTACT_ID
1419: -- can never contain a seller user id. Thus, raising a veto though
1424: x_return_status := FND_API.G_RET_STS_ERROR;
1425:
1426: ELSIF (l_merge_scenario = G_BUYER) THEN
1427:
1428: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge - Getting Person Name from HZ_PARTIES');
1429: --
1430: -- Now transact the data we have
1431: --
1432: SELECT
1435: l_person_name
1436: FROM HZ_PARTIES hz
1437: WHERE hz.PARTY_ID= p_To_FK_id;
1438:
1439: fnd_file.put_line (fnd_file.log, '40 : Buyer Merge - Person Name from HZ:'|| l_person_name);
1440: --
1441: -- there is no chance of unique key constraint violation
1442: -- due to the following updates
1443: --
1447: LAST_UPDATED_BY = -1,
1448: TRADING_PARTNER_CONTACT_NAME = l_person_name
1449: WHERE TRADING_PARTNER_CONTACT_ID = p_From_FK_id;
1450:
1451: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_AUCTION_EVENTS: '||sql%rowcount||' rows');
1452:
1453: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1454: --
1455: -- Nothing to do
1453: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1454: --
1455: -- Nothing to do
1456: --
1457: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
1458: NULL;
1459: END IF;
1460:
1461: EXCEPTION
1460:
1461: EXCEPTION
1462: WHEN OTHERS THEN
1463:
1464: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.NEG_EVENT_MERGE SQLERRM:'||SQLERRM);
1465: --
1466: -- We need add some Sourcing specific message for this
1467: --
1468: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1548: --{start of procedure
1549:
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551:
1552: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BIDDER_LST_MERGE ');
1553: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1549:
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551:
1552: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BIDDER_LST_MERGE ');
1553: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551:
1552: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BIDDER_LST_MERGE ');
1553: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1558: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1551:
1552: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BIDDER_LST_MERGE ');
1553: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1558: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1559: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1552: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BIDDER_LST_MERGE ');
1553: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1558: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1559: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1560: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1553: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1558: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1559: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1560: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1561:
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1558: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1559: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1560: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1561:
1562: --
1555: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1558: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1559: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1560: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1561:
1562: --
1563: -- check the merge scenario
1556: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1557: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1558: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1559: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1560: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1561:
1562: --
1563: -- check the merge scenario
1564: --
1565: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
1566: p_from_id => p_From_FK_id,
1567: p_to_id => p_To_FK_id);
1568:
1569: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1570:
1571: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1572:
1573: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1569: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1570:
1571: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1572:
1573: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1574: --
1575: -- This can not happen in any normal scenario as
1576: -- PON_BIDDERS_LISTS.TRADING_PARTNER_CONTACT_ID
1577: -- can never contain a seller user id. Thus, raising a veto though
1584: ELSIF (l_merge_scenario = G_BUYER) THEN
1585: --
1586: -- Now transact the data we have
1587: --
1588: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
1589: --
1590: -- there is no chance of unique key constraint violation
1591: -- due to the following updates
1592: --
1599: LAST_UPDATED_BY = -1,
1600: TRADING_PARTNER_CONTACT_ID = p_To_FK_id
1601: WHERE TRADING_PARTNER_CONTACT_ID = p_From_FK_id;
1602:
1603: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated TPC IDs in PON_BIDDERS_LISTS: '||sql%rowcount||' rows');
1604:
1605: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1606: --
1607: -- Nothing to do
1605: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1606: --
1607: -- Nothing to do
1608: --
1609: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
1610: NULL;
1611: END IF;
1612:
1613: EXCEPTION
1612:
1613: EXCEPTION
1614: WHEN OTHERS THEN
1615:
1616: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.BIDDER_LST_MERGE SQLERRM:'||SQLERRM);
1617: --
1618: -- We need add some Sourcing specific message for this
1619: --
1620: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1701: --{start of procedure
1702:
1703: x_return_status := FND_API.G_RET_STS_SUCCESS;
1704:
1705: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_ATTR_LST_MERGE ');
1706: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1702:
1703: x_return_status := FND_API.G_RET_STS_SUCCESS;
1704:
1705: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_ATTR_LST_MERGE ');
1706: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1703: x_return_status := FND_API.G_RET_STS_SUCCESS;
1704:
1705: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_ATTR_LST_MERGE ');
1706: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1711: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1704:
1705: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_ATTR_LST_MERGE ');
1706: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1711: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1712: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1705: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_ATTR_LST_MERGE ');
1706: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1711: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1712: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1713: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1706: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1711: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1712: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1713: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1714:
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1711: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1712: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1713: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1714:
1715: --
1708: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1711: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1712: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1713: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1714:
1715: --
1716: -- check the merge scenario
1709: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1710: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1711: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1712: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1713: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1714:
1715: --
1716: -- check the merge scenario
1717: --
1718: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
1719: p_from_id => p_From_FK_id,
1720: p_to_id => p_To_FK_id);
1721:
1722: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1723:
1724: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1725:
1726: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1722: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1723:
1724: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1725:
1726: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1727: --
1728: -- This can not happen in any normal scenario as
1729: -- PON_ATTRIBUTE_LISTS.TRADING_PARTNER_CONTACT_ID
1730: -- can never contain a seller user id. Thus, raising a veto though
1735: x_return_status := FND_API.G_RET_STS_ERROR;
1736:
1737: ELSIF (l_merge_scenario = G_BUYER) THEN
1738:
1739: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge');
1740:
1741: --
1742: -- Now transact the data we have
1743: --
1751: LAST_UPDATED_BY = -1,
1752: TRADING_PARTNER_CONTACT_ID = p_To_FK_id
1753: WHERE TRADING_PARTNER_CONTACT_ID = p_From_FK_id;
1754:
1755: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated TPC IDs in PON_ATTRIBUTE_LISTS: '||sql%rowcount||' rows');
1756:
1757:
1758: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1759: --
1758: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1759: --
1760: -- Nothing to do
1761: --
1762: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
1763: NULL;
1764: END IF;
1765:
1766: EXCEPTION
1765:
1766: EXCEPTION
1767: WHEN OTHERS THEN
1768:
1769: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.NEG_ATTR_LST_MERGE SQLERRM:'||SQLERRM);
1770: --
1771: -- We need add some Sourcing specific message for this
1772: --
1773: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1853: --{start of procedure
1854:
1855: x_return_status := FND_API.G_RET_STS_SUCCESS;
1856:
1857: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURROG_MERGE ');
1858: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1854:
1855: x_return_status := FND_API.G_RET_STS_SUCCESS;
1856:
1857: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURROG_MERGE ');
1858: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1855: x_return_status := FND_API.G_RET_STS_SUCCESS;
1856:
1857: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURROG_MERGE ');
1858: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1863: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1856:
1857: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURROG_MERGE ');
1858: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1863: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1864: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1857: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURROG_MERGE ');
1858: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1863: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1864: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1865: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1858: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1863: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1864: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1865: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1866:
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1863: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1864: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1865: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1866:
1867: --
1860: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1863: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1864: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1865: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1866:
1867: --
1868: -- check the merge scenario
1861: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
1862: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
1863: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
1864: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
1865: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
1866:
1867: --
1868: -- check the merge scenario
1869: --
1870: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
1871: p_from_id => p_From_FK_id,
1872: p_to_id => p_To_FK_id);
1873:
1874: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1875:
1876: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1877:
1878: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1874: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
1875:
1876: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
1877:
1878: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
1879: --
1880: -- This can not happen in any normal scenario as
1881: -- PON_BID_HEADERS.SURROG_BID_CREATED_CONTACT_ID
1882: -- can never contain a seller user id. Thus, raising a veto though
1886: FND_MSG_PUB.ADD;
1887: x_return_status := FND_API.G_RET_STS_ERROR;
1888:
1889: ELSIF (l_merge_scenario = G_BUYER) THEN
1890: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
1891: --
1892: -- Now transact the data we have
1893: --
1894:
1901: LAST_UPDATED_BY = -1,
1902: SURROG_BID_CREATED_CONTACT_ID = p_To_FK_id
1903: WHERE SURROG_BID_CREATED_CONTACT_ID = p_From_FK_id;
1904:
1905: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated SURROG_BID_CREATED_CONTACT_IDs in PON_BID_HEADERS: '||sql%rowcount||' rows');
1906:
1907: --
1908: -- We will be updating the user_id column of pon_neg_team_members table
1909: -- if there are only one FND_USER associated with the merge from ot merge to party id.
1908: -- We will be updating the user_id column of pon_neg_team_members table
1909: -- if there are only one FND_USER associated with the merge from ot merge to party id.
1910: -- We will not touch the pon_neg_team_members otherwise.
1911: --
1912: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
1913:
1914: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
1915: p_To_FK_id => p_To_FK_id);
1916:
1918: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
1919: --
1920: -- Nothing to do
1921: --
1922: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
1923: NULL;
1924: END IF;
1925:
1926: EXCEPTION
1926: EXCEPTION
1927: WHEN OTHERS THEN
1928:
1929:
1930: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_SURROG_MERGE SQLERRM:'||SQLERRM);
1931: --
1932: -- We need add some Sourcing specific message for this
1933: --
1934: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2014: --{start of procedure
2015:
2016: x_return_status := FND_API.G_RET_STS_SUCCESS;
2017:
2018: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SCORE_MERGE ');
2019: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2015:
2016: x_return_status := FND_API.G_RET_STS_SUCCESS;
2017:
2018: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SCORE_MERGE ');
2019: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2016: x_return_status := FND_API.G_RET_STS_SUCCESS;
2017:
2018: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SCORE_MERGE ');
2019: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2024: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2017:
2018: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SCORE_MERGE ');
2019: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2024: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2025: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2018: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SCORE_MERGE ');
2019: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2024: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2025: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2026: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2019: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2024: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2025: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2026: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2027:
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2024: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2025: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2026: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2027:
2028: --
2021: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2024: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2025: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2026: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2027:
2028: --
2029: -- check the merge scenario
2022: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2023: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2024: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2025: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2026: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2027:
2028: --
2029: -- check the merge scenario
2030: --
2031: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
2032: p_from_id => p_From_FK_id,
2033: p_to_id => p_To_FK_id);
2034:
2035: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2036:
2037: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
2038:
2039: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
2035: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2036:
2037: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
2038:
2039: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
2040:
2041: --
2042: -- This can not happen in any normal scenario as
2043: -- PON_BID_HEADERS.SCORE_OVERRIDE_TP_CONTACT_ID
2049: x_return_status := FND_API.G_RET_STS_ERROR;
2050:
2051: ELSIF (l_merge_scenario = G_BUYER) THEN
2052:
2053: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
2054:
2055: --
2056: -- Now transact the data we have
2057: --
2065: LAST_UPDATED_BY = -1,
2066: SCORE_OVERRIDE_TP_CONTACT_ID = p_To_FK_id
2067: WHERE SCORE_OVERRIDE_TP_CONTACT_ID = p_From_FK_id;
2068:
2069: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated SCORE_OVERRIDE_TP_CONTACT_IDs in PON_BID_HEADERS: '||sql%rowcount||' rows');
2070:
2071: --
2072: -- We will be updating the user_id column of pon_neg_team_members table
2073: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2072: -- We will be updating the user_id column of pon_neg_team_members table
2073: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2074: -- We will not touch the pon_neg_team_members otherwise.
2075: --
2076: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
2077:
2078: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
2079: p_To_FK_id => p_To_FK_id);
2080:
2081: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
2082: --
2083: -- Nothing to do
2084: --
2085: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
2086: NULL;
2087: END IF;
2088:
2089: EXCEPTION
2088:
2089: EXCEPTION
2090: WHEN OTHERS THEN
2091:
2092: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_SCORE_MERGE SQLERRM:'||SQLERRM);
2093: --
2094: -- We need add some Sourcing specific message for this
2095: --
2096: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2177: --{start of procedure
2178:
2179: x_return_status := FND_API.G_RET_STS_SUCCESS;
2180:
2181: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SHRT_LIST_MERGE ');
2182: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2178:
2179: x_return_status := FND_API.G_RET_STS_SUCCESS;
2180:
2181: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SHRT_LIST_MERGE ');
2182: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2179: x_return_status := FND_API.G_RET_STS_SUCCESS;
2180:
2181: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SHRT_LIST_MERGE ');
2182: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2187: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2180:
2181: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SHRT_LIST_MERGE ');
2182: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2187: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2188: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2181: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SHRT_LIST_MERGE ');
2182: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2187: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2188: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2189: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2182: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2187: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2188: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2189: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2190:
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2187: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2188: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2189: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2190:
2191: --
2184: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2187: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2188: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2189: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2190:
2191: --
2192: -- check the merge scenario
2185: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2186: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2187: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2188: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2189: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2190:
2191: --
2192: -- check the merge scenario
2193: --
2194: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
2195: p_from_id => p_From_FK_id,
2196: p_to_id => p_To_FK_id);
2197:
2198: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2199:
2200: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
2201:
2202: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
2198: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2199:
2200: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
2201:
2202: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
2203: --
2204: -- This can not happen in any normal scenario as
2205: -- PON_BID_HEADERS.SHORTLIST_TPC_ID
2206: -- can never contain a seller user id. Thus, raising a veto though
2210: FND_MSG_PUB.ADD;
2211: x_return_status := FND_API.G_RET_STS_ERROR;
2212:
2213: ELSIF (l_merge_scenario = G_BUYER) THEN
2214: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
2215: --
2216: -- Now transact the data we have
2217: --
2218:
2225: LAST_UPDATED_BY = -1,
2226: SHORTLIST_TPC_ID = p_To_FK_id
2227: WHERE SHORTLIST_TPC_ID = p_From_FK_id;
2228:
2229: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated SHORTLIST_TPC_IDs in PON_BID_HEADERS: '||sql%rowcount||' rows');
2230:
2231: --
2232: -- We will be updating the user_id column of pon_neg_team_members table
2233: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2232: -- We will be updating the user_id column of pon_neg_team_members table
2233: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2234: -- We will not touch the pon_neg_team_members otherwise.
2235: --
2236: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
2237:
2238: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
2239: p_To_FK_id => p_To_FK_id);
2240:
2241: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
2242: --
2243: -- Nothing to do
2244: --
2245: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
2246: NULL;
2247: END IF;
2248:
2249: EXCEPTION
2248:
2249: EXCEPTION
2250: WHEN OTHERS THEN
2251:
2252: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_SHRT_LIST_MERGE SQLERRM:'||SQLERRM);
2253: --
2254: -- We need add some Sourcing specific message for this
2255: --
2256: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2336: --{start of procedure
2337:
2338: x_return_status := FND_API.G_RET_STS_SUCCESS;
2339:
2340: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_CONTRCT_MERGE ');
2341: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2337:
2338: x_return_status := FND_API.G_RET_STS_SUCCESS;
2339:
2340: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_CONTRCT_MERGE ');
2341: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2338: x_return_status := FND_API.G_RET_STS_SUCCESS;
2339:
2340: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_CONTRCT_MERGE ');
2341: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2346: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2339:
2340: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_CONTRCT_MERGE ');
2341: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2346: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2347: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2340: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_CONTRCT_MERGE ');
2341: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2346: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2347: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2348: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2341: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2346: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2347: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2348: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2349:
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2346: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2347: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2348: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2349:
2350: --
2343: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2346: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2347: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2348: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2349:
2350: --
2351: -- check the merge scenario
2344: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2345: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2346: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2347: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2348: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2349:
2350: --
2351: -- check the merge scenario
2352: --
2353: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
2354: p_from_id => p_From_FK_id,
2355: p_to_id => p_To_FK_id);
2356:
2357: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2358:
2359: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
2360:
2361: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
2357: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2358:
2359: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
2360:
2361: fnd_file.put_line (fnd_file.log, '20 : Seller Merge - Error');
2362: --
2363: -- This can not happen in any normal scenario as
2364: -- PON_CONTRACTS.AUTHORING_PARTY_CONTACT_ID
2365: -- can never contain a seller user id. Thus, raising a veto though
2370: x_return_status := FND_API.G_RET_STS_ERROR;
2371:
2372: ELSIF (l_merge_scenario = G_BUYER) THEN
2373:
2374: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
2375: --
2376: -- Now transact the data we have
2377: --
2378:
2385: LAST_UPDATED_BY = -1,
2386: AUTHORING_PARTY_CONTACT_ID = p_To_FK_id
2387: WHERE AUTHORING_PARTY_CONTACT_ID = p_From_FK_id;
2388:
2389: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated AUTHORING_PARTY_CONTACT_IDs in PON_CONTRACTS: '||sql%rowcount||' rows');
2390:
2391: --
2392: -- We will be updating the user_id column of pon_neg_team_members table
2393: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2392: -- We will be updating the user_id column of pon_neg_team_members table
2393: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2394: -- We will not touch the pon_neg_team_members otherwise.
2395: --
2396: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
2397:
2398: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
2399: p_To_FK_id => p_To_FK_id);
2400:
2401: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
2402: --
2403: -- Nothing to do
2404: --
2405: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
2406: NULL;
2407: END IF;
2408:
2409: EXCEPTION
2408:
2409: EXCEPTION
2410: WHEN OTHERS THEN
2411:
2412: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.NEG_CONTRCT_MERGE SQLERRM:'||SQLERRM);
2413: --
2414: -- We need add some Sourcing specific message for this
2415: --
2416: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2499: --{start of procedure
2500:
2501: x_return_status := FND_API.G_RET_STS_SUCCESS;
2502:
2503: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_MERGE ');
2504: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2500:
2501: x_return_status := FND_API.G_RET_STS_SUCCESS;
2502:
2503: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_MERGE ');
2504: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2501: x_return_status := FND_API.G_RET_STS_SUCCESS;
2502:
2503: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_MERGE ');
2504: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2509: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2502:
2503: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_MERGE ');
2504: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2509: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2510: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2503: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_MERGE ');
2504: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2509: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2510: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2511: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2504: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2509: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2510: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2511: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2512:
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2509: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2510: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2511: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2512:
2513: --
2506: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2509: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2510: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2511: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2512:
2513: --
2514: -- check the merge scenario
2507: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2508: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2509: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2510: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2511: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2512:
2513: --
2514: -- check the merge scenario
2515: --
2516: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
2517: p_from_id => p_From_FK_id,
2518: p_to_id => p_To_FK_id);
2519:
2520: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2521:
2522: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2523:
2524: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2520: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2521:
2522: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2523:
2524: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2525: --
2526: -- This can not be passed. Thus, raising a veto.
2527: --
2528: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2530: x_return_status := FND_API.G_RET_STS_ERROR;
2531:
2532: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
2533:
2534: fnd_file.put_line (fnd_file.log, '30 : Buyer or Seller Merge ');
2535: --
2536: -- there is no chance of unique key constraint violation
2537: -- due to the following updates
2538: --
2541: SET LAST_UPDATE_DATE = SYSDATE,
2542: OWNER_PARTY_ID = p_To_FK_id
2543: WHERE OWNER_PARTY_ID = p_From_FK_id;
2544:
2545: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated OWNER_PARTY_IDs in PON_THREADS: '||sql%rowcount||' rows');
2546:
2547: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
2548: --
2549: -- Nothing to do
2547: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
2548: --
2549: -- Nothing to do
2550: --
2551: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
2552: NULL;
2553: END IF;
2554:
2555: EXCEPTION
2554:
2555: EXCEPTION
2556: WHEN OTHERS THEN
2557:
2558: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.NEG_DISC_THR_MERGE SQLERRM:'||SQLERRM);
2559: --
2560: -- We need add some Sourcing specific message for this
2561: --
2562: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2646: --{start of procedure
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649:
2650: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_ENTRY_MERGE ');
2651: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649:
2650: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_ENTRY_MERGE ');
2651: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649:
2650: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_ENTRY_MERGE ');
2651: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2656: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2649:
2650: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_ENTRY_MERGE ');
2651: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2656: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2657: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2650: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_ENTRY_MERGE ');
2651: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2656: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2657: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2658: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2651: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2656: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2657: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2658: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2659:
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2656: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2657: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2658: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2659:
2660: --
2653: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2656: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2657: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2658: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2659:
2660: --
2661: -- check the merge scenario
2654: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2655: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2656: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2657: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2658: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2659:
2660: --
2661: -- check the merge scenario
2662: --
2663: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
2664: p_from_id => p_From_FK_id,
2665: p_to_id => p_To_FK_id);
2666:
2667: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2668:
2669: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2670:
2671: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2667: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2668:
2669: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2670:
2671: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2672:
2673: --
2674: -- This can not be passed. Thus, raising a veto.
2675: --
2678: x_return_status := FND_API.G_RET_STS_ERROR;
2679:
2680: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
2681:
2682: fnd_file.put_line (fnd_file.log, '30 : Buyer or Seller Merge - Getting Person Name from HZ');
2683:
2684: SELECT
2685: hz.PERSON_FIRST_NAME,
2686: hz.PERSON_LAST_NAME
2689: l_last_name
2690: FROM HZ_PARTIES hz
2691: WHERE hz.PARTY_ID= p_To_FK_id;
2692:
2693: fnd_file.put_line (fnd_file.log, '40 : Buyer or Seller Merge - Person Name from HZ:'|| l_first_name||','||l_last_name);
2694:
2695: --
2696: -- there is no chance of unique key constraint violation
2697: -- due to the following updates
2705: FROM_FIRST_NAME= l_first_name,
2706: FROM_LAST_NAME=l_last_name
2707: WHERE FROM_ID = p_From_FK_id;
2708:
2709: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated FROM_IDs in PON_THREAD_ENTRIES: '||sql%rowcount||' rows');
2710:
2711: --
2712: -- We will be updating the user_id column of pon_neg_team_members table
2713: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2712: -- We will be updating the user_id column of pon_neg_team_members table
2713: -- if there are only one FND_USER associated with the merge from ot merge to party id.
2714: -- We will not touch the pon_neg_team_members otherwise.
2715: --
2716: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
2717:
2718: IF ( l_merge_scenario = G_BUYER) THEN
2719: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
2720: p_To_FK_id => p_To_FK_id);
2724: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
2725: --
2726: -- Nothing to do
2727: --
2728: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
2729: NULL;
2730: END IF;
2731:
2732: EXCEPTION
2731:
2732: EXCEPTION
2733: WHEN OTHERS THEN
2734:
2735: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.NEG_DISC_THR_ENTRY_MERGE SQLERRM:'||SQLERRM);
2736: --
2737: -- We need add some Sourcing specific message for this
2738: --
2739: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2827: --{start of procedure
2828:
2829: x_return_status := FND_API.G_RET_STS_SUCCESS;
2830:
2831: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_COMP_MERGE ');
2832: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2828:
2829: x_return_status := FND_API.G_RET_STS_SUCCESS;
2830:
2831: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_COMP_MERGE ');
2832: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2829: x_return_status := FND_API.G_RET_STS_SUCCESS;
2830:
2831: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_COMP_MERGE ');
2832: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2837: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2830:
2831: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_COMP_MERGE ');
2832: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2837: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2838: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2831: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_COMP_MERGE ');
2832: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2837: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2838: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2839: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2832: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2837: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2838: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2839: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2840:
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2837: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2838: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2839: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2840:
2841: --
2834: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2837: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2838: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2839: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2840:
2841: --
2842: -- check the merge scenario
2835: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2836: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2837: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2838: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2839: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2840:
2841: --
2842: -- check the merge scenario
2843: --
2844: l_merge_scenario := CHECK_COMPANY_PARTY_MERGE_TYPE (
2845: p_from_id => p_From_FK_id,
2846: p_to_id => p_To_FK_id);
2847:
2848: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2849:
2850: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2851:
2852: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2848: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2849:
2850: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2851:
2852: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2853: --
2854: -- This can not be passed. Thus, raising a veto.
2855: --
2856: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2865: --
2866: -- Case 2. Both are Non Buyer/Seller Companies - In that case
2867: -- we dont care about the merge
2868: --
2869: fnd_file.put_line (fnd_file.log, '30 : Buyer or Seller Merge - Ignore');
2870: NULL;
2871: END IF;
2872:
2873: EXCEPTION
2872:
2873: EXCEPTION
2874: WHEN OTHERS THEN
2875:
2876: fnd_file.put_line (fnd_file.log, '40 : Error in PON_TCA_PARTY_MERGE.NEG_COMP_MERGE SQLERRM:'||SQLERRM);
2877: --
2878: -- We need add some Sourcing specific message for this
2879: --
2880: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2964: --{start of procedure
2965:
2966: x_return_status := FND_API.G_RET_STS_SUCCESS;
2967:
2968: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_TE_RCP_MERGE ');
2969: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2965:
2966: x_return_status := FND_API.G_RET_STS_SUCCESS;
2967:
2968: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_TE_RCP_MERGE ');
2969: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2966: x_return_status := FND_API.G_RET_STS_SUCCESS;
2967:
2968: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_TE_RCP_MERGE ');
2969: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2974: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2967:
2968: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_TE_RCP_MERGE ');
2969: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2974: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2975: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2968: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_TE_RCP_MERGE ');
2969: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2974: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2975: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2976: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2969: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2974: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2975: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2976: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2977:
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2974: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2975: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2976: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2977:
2978: --
2971: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2974: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2975: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2976: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2977:
2978: --
2979: -- check the merge scenario
2972: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
2973: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
2974: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
2975: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
2976: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
2977:
2978: --
2979: -- check the merge scenario
2980: --
2981: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
2982: p_from_id => p_From_FK_id,
2983: p_to_id => p_To_FK_id);
2984:
2985: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2986:
2987: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2988:
2989: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2985: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
2986:
2987: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
2988:
2989: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
2990: --
2991: -- This can not be passed. Thus, raising a veto.
2992: --
2993: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2995: x_return_status := FND_API.G_RET_STS_ERROR;
2996:
2997: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
2998:
2999: fnd_file.put_line (fnd_file.log, '30 : Buyer or Seller Merge - Getting Person Name from HZ');
3000:
3001: SELECT
3002: hz.PERSON_FIRST_NAME,
3003: hz.PERSON_LAST_NAME
3006: l_last_name
3007: FROM HZ_PARTIES hz
3008: WHERE hz.PARTY_ID= p_To_FK_id;
3009:
3010: fnd_file.put_line (fnd_file.log, '40 : Buyer or Seller Merge - Person Name from HZ:'|| l_first_name||','||l_last_name);
3011:
3012: --
3013: -- there is no chance of unique key constraint violation
3014: -- due to the following constraints. We will not update
3027: FROM PON_TE_RECIPIENTS te1
3028: WHERE te1.ENTRY_ID = te.ENTRY_ID
3029: AND te1.TO_ID = p_To_FK_id);
3030:
3031: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated TO_IDs in PON_TE_RECIPIENTS: '||sql%rowcount||' rows');
3032:
3033: --
3034: -- We will be updating the user_id column of pon_neg_team_members table
3035: -- if there are only one FND_USER associated with the merge from ot merge to party id.
3034: -- We will be updating the user_id column of pon_neg_team_members table
3035: -- if there are only one FND_USER associated with the merge from ot merge to party id.
3036: -- We will not touch the pon_neg_team_members otherwise.
3037: --
3038: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
3039:
3040: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
3041: p_To_FK_id => p_To_FK_id);
3042:
3043: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3044: --
3045: -- Nothing to do
3046: --
3047: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
3048: NULL;
3049: END IF;
3050:
3051: EXCEPTION
3050:
3051: EXCEPTION
3052: WHEN OTHERS THEN
3053:
3054: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.NEG_DISC_TE_RCP_MERGE SQLERRM:'||SQLERRM);
3055: --
3056: -- We need add some Sourcing specific message for this
3057: --
3058: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3138: --{start of procedure
3139:
3140: x_return_status := FND_API.G_RET_STS_SUCCESS;
3141:
3142: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURR_ACK_MERGE ');
3143: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3139:
3140: x_return_status := FND_API.G_RET_STS_SUCCESS;
3141:
3142: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURR_ACK_MERGE ');
3143: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3140: x_return_status := FND_API.G_RET_STS_SUCCESS;
3141:
3142: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURR_ACK_MERGE ');
3143: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3148: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3141:
3142: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURR_ACK_MERGE ');
3143: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3148: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3149: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3142: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURR_ACK_MERGE ');
3143: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3148: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3149: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3150: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3143: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3148: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3149: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3150: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3151:
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3148: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3149: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3150: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3151:
3152: --
3145: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3148: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3149: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3150: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3151:
3152: --
3153: -- check the merge scenario
3146: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3147: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3148: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3149: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3150: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3151:
3152: --
3153: -- check the merge scenario
3154: --
3155: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
3156: p_from_id => p_From_FK_id,
3157: p_to_id => p_To_FK_id);
3158:
3159: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3160:
3161: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3162:
3163: fnd_file.put_line (fnd_file.log, '20 : Incompatible or Seller Merge - Error');
3159: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3160:
3161: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3162:
3163: fnd_file.put_line (fnd_file.log, '20 : Incompatible or Seller Merge - Error');
3164:
3165: --
3166: -- This can not happen in any normal scenario as
3167: -- PON_ACKNOWLEDGEMENTS.SURROG_BID_ACK_CONTACT_ID
3173: x_return_status := FND_API.G_RET_STS_ERROR;
3174:
3175: ELSIF (l_merge_scenario = G_BUYER) THEN
3176:
3177: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
3178: --
3179: -- Now transact the data we have
3180: --
3181:
3188: LAST_UPDATED_BY = -1,
3189: SURROG_BID_ACK_CONTACT_ID = p_To_FK_id
3190: WHERE SURROG_BID_ACK_CONTACT_ID = p_From_FK_id;
3191:
3192: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated SURROG_BID_ACK_CONTACT_IDs in PON_ACKNOWLEDGEMENTS: '||sql%rowcount||' rows');
3193:
3194: --
3195: -- We will be updating the user_id column of pon_neg_team_members table
3196: -- if there are only one FND_USER associated with the merge from ot merge to party id.
3195: -- We will be updating the user_id column of pon_neg_team_members table
3196: -- if there are only one FND_USER associated with the merge from ot merge to party id.
3197: -- We will not touch the pon_neg_team_members otherwise.
3198: --
3199: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
3200:
3201: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
3202: p_To_FK_id => p_To_FK_id);
3203:
3204: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3205: --
3206: -- Nothing to do
3207: --
3208: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
3209: NULL;
3210: END IF;
3211:
3212: EXCEPTION
3211:
3212: EXCEPTION
3213: WHEN OTHERS THEN
3214:
3215: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_SURR_ACK_MERGE SQLERRM:'||SQLERRM);
3216: --
3217: -- We need add some Sourcing specific message for this
3218: --
3219: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3299: --{start of procedure
3300:
3301: x_return_status := FND_API.G_RET_STS_SUCCESS;
3302:
3303: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SUPP_ACC_MERGE ');
3304: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3300:
3301: x_return_status := FND_API.G_RET_STS_SUCCESS;
3302:
3303: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SUPP_ACC_MERGE ');
3304: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3301: x_return_status := FND_API.G_RET_STS_SUCCESS;
3302:
3303: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SUPP_ACC_MERGE ');
3304: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3309: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3302:
3303: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SUPP_ACC_MERGE ');
3304: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3309: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3310: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3303: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SUPP_ACC_MERGE ');
3304: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3309: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3310: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3311: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3304: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3309: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3310: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3311: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3312:
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3309: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3310: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3311: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3312:
3313: --
3306: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3309: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3310: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3311: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3312:
3313: --
3314: -- check the merge scenario
3307: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3308: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3309: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3310: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3311: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3312:
3313: --
3314: -- check the merge scenario
3315: --
3316: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
3317: p_from_id => p_From_FK_id,
3318: p_to_id => p_To_FK_id);
3319:
3320: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3321:
3322: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3323:
3324: fnd_file.put_line (fnd_file.log, '20 : Incompatible or Seller Merge - Error');
3320: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3321:
3322: IF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3323:
3324: fnd_file.put_line (fnd_file.log, '20 : Incompatible or Seller Merge - Error');
3325: --
3326: -- This can not happen in any normal scenario as
3327: -- PON_SUPPLIER_ACCESS.BUYER_TP_CONTACT_ID
3328: -- can never contain a seller user id. Thus, raising a veto though
3332: FND_MSG_PUB.ADD;
3333: x_return_status := FND_API.G_RET_STS_ERROR;
3334:
3335: ELSIF (l_merge_scenario = G_BUYER) THEN
3336: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
3337: --
3338: -- Now transact the data we have
3339: --
3340:
3347: LAST_UPDATED_BY = -1,
3348: BUYER_TP_CONTACT_ID = p_To_FK_id
3349: WHERE BUYER_TP_CONTACT_ID = p_From_FK_id;
3350:
3351: fnd_file.put_line (fnd_file.log, '50 : Buyer Merge - Updated BUYER_TP_CONTACT_IDs in PON_SUPPLIER_ACCESS: '||sql%rowcount||' rows');
3352:
3353: --
3354: -- We will be updating the user_id column of pon_neg_team_members table
3355: -- if there are only one FND_USER associated with the merge from ot merge to party id.
3354: -- We will be updating the user_id column of pon_neg_team_members table
3355: -- if there are only one FND_USER associated with the merge from ot merge to party id.
3356: -- We will not touch the pon_neg_team_members otherwise.
3357: --
3358: fnd_file.put_line (fnd_file.log, '55 : Buyer Merge - Calling MERGE_NEG_TEAM_FND_USER procedure');
3359:
3360: MERGE_NEG_TEAM_FND_USER (p_From_FK_id => p_From_FK_id,
3361: p_To_FK_id => p_To_FK_id);
3362:
3363: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3364: --
3365: -- Nothing to do
3366: --
3367: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
3368: NULL;
3369: END IF;
3370:
3371: EXCEPTION
3370:
3371: EXCEPTION
3372: WHEN OTHERS THEN
3373:
3374: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.NEG_SUPP_ACC_MERGE SQLERRM:'||SQLERRM);
3375: --
3376: -- We need add some Sourcing specific message for this
3377: --
3378: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3459: --{start of procedure
3460:
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462:
3463: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_TPC_MERGE ');
3464: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3460:
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462:
3463: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_TPC_MERGE ');
3464: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462:
3463: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_TPC_MERGE ');
3464: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3462:
3463: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_TPC_MERGE ');
3464: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3470: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3463: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_TPC_MERGE ');
3464: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3470: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3471: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3464: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3470: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3471: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3472:
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3470: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3471: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3472:
3473: fnd_file.put_line (fnd_file.log, '10.1 : Going to check merge scenario:');
3466: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3470: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3471: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3472:
3473: fnd_file.put_line (fnd_file.log, '10.1 : Going to check merge scenario:');
3474: --
3467: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3468: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3470: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3471: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3472:
3473: fnd_file.put_line (fnd_file.log, '10.1 : Going to check merge scenario:');
3474: --
3475: -- check the merge scenario
3469: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3470: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3471: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3472:
3473: fnd_file.put_line (fnd_file.log, '10.1 : Going to check merge scenario:');
3474: --
3475: -- check the merge scenario
3476: --
3477: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
3477: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
3478: p_from_id => p_From_FK_id,
3479: p_to_id => p_To_FK_id);
3480:
3481: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3482:
3483: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3484:
3485: fnd_file.put_line (fnd_file.log, '20 : Buyer Merge - Error');
3481: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3482:
3483: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3484:
3485: fnd_file.put_line (fnd_file.log, '20 : Buyer Merge - Error');
3486: --
3487: -- This can not happen in any normal scenario as
3488: -- PON_BIDDING_PARTIES.TRADING_PARTNER_CONTACT_ID
3489: -- can never contain a buyer user id. Thus, raising a veto though
3494: x_return_status := FND_API.G_RET_STS_ERROR;
3495:
3496: ELSIF (l_merge_scenario = G_SELLER) THEN
3497:
3498: fnd_file.put_line (fnd_file.log, '30 : Seller Merge - Getting Person Name from HZ');
3499:
3500: SELECT
3501: hz.person_last_name ||', '|| hz.person_first_name as person_name
3502: INTO
3503: l_person_name
3504: FROM HZ_PARTIES hz
3505: WHERE hz.PARTY_ID= p_To_FK_id;
3506:
3507: fnd_file.put_line (fnd_file.log, '40 : Seller Merge - Person Name from HZ:'|| l_person_name);
3508: --
3509: -- Now transact the data we have
3510: --
3511:
3519: TRADING_PARTNER_CONTACT_ID = p_To_FK_id,
3520: TRADING_PARTNER_CONTACT_NAME = l_person_name
3521: WHERE TRADING_PARTNER_CONTACT_ID = p_From_FK_id;
3522:
3523: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_BIDDING_PARTIES: '||sql%rowcount||' rows');
3524:
3525: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3526: --
3527: -- Nothing to do
3526: --
3527: -- Nothing to do
3528: --
3529: NULL;
3530: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
3531: END IF;
3532:
3533: EXCEPTION
3534: WHEN OTHERS THEN
3532:
3533: EXCEPTION
3534: WHEN OTHERS THEN
3535:
3536: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.BID_PARTY_TPC_MERGE SQLERRM:'||SQLERRM);
3537: --
3538: -- We need add some Sourcing specific message for this
3539: --
3540: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3621: --{start of procedure
3622:
3623: x_return_status := FND_API.G_RET_STS_SUCCESS;
3624:
3625: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_ACK_TPC_MERGE ');
3626: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3622:
3623: x_return_status := FND_API.G_RET_STS_SUCCESS;
3624:
3625: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_ACK_TPC_MERGE ');
3626: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3623: x_return_status := FND_API.G_RET_STS_SUCCESS;
3624:
3625: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_ACK_TPC_MERGE ');
3626: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3631: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3624:
3625: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_ACK_TPC_MERGE ');
3626: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3631: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3632: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3625: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_ACK_TPC_MERGE ');
3626: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3631: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3632: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3633: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3626: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3631: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3632: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3633: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3634:
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3631: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3632: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3633: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3634:
3635: --
3628: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3631: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3632: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3633: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3634:
3635: --
3636: -- check the merge scenario
3629: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3630: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3631: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3632: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3633: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3634:
3635: --
3636: -- check the merge scenario
3637: --
3638: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
3639: p_from_id => p_From_FK_id,
3640: p_to_id => p_To_FK_id);
3641:
3642: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3643:
3644: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3645:
3646: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
3642: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3643:
3644: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
3645:
3646: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
3647: --
3648: -- This can not happen in any normal scenario as
3649: -- PON_BIDDING_PARTIES.ACK_PARTNER_CONTACT_ID
3650: -- can never contain a buyer user id. Thus, raising a veto though
3655: x_return_status := FND_API.G_RET_STS_ERROR;
3656:
3657: ELSIF (l_merge_scenario = G_SELLER) THEN
3658:
3659: fnd_file.put_line (fnd_file.log, '30 : Seller Merge - Getting Person Name from HZ');
3660:
3661: SELECT
3662: hz.person_last_name ||', '|| hz.person_first_name as person_name
3663: INTO
3664: l_person_name
3665: FROM HZ_PARTIES hz
3666: WHERE hz.PARTY_ID= p_To_FK_id;
3667:
3668: fnd_file.put_line (fnd_file.log, '40 : Seller Merge - Person Name from HZ:'|| l_person_name);
3669: --
3670: -- Now transact the data we have
3671: --
3672:
3680: ACK_PARTNER_CONTACT_ID = p_To_FK_id,
3681: ACK_PARTNER_CONTACT_NAME = l_person_name
3682: WHERE ACK_PARTNER_CONTACT_ID = p_From_FK_id;
3683:
3684: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated ACK_PARTNER_CONTACT_IDs in PON_BIDDING_PARTIES: '||sql%rowcount||' rows');
3685:
3686: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3687: --
3688: -- Nothing to do
3686: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3687: --
3688: -- Nothing to do
3689: --
3690: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
3691: NULL;
3692: END IF;
3693:
3694: EXCEPTION
3693:
3694: EXCEPTION
3695: WHEN OTHERS THEN
3696:
3697: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.BID_PARTY_ACK_TPC_MERGE SQLERRM:'||SQLERRM);
3698: --
3699: -- We need add some Sourcing specific message for this
3700: --
3701: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3781: --{start of procedure
3782:
3783: x_return_status := FND_API.G_RET_STS_SUCCESS;
3784:
3785: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_UNLCK_TPC_MERGE ');
3786: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3782:
3783: x_return_status := FND_API.G_RET_STS_SUCCESS;
3784:
3785: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_UNLCK_TPC_MERGE ');
3786: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3783: x_return_status := FND_API.G_RET_STS_SUCCESS;
3784:
3785: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_UNLCK_TPC_MERGE ');
3786: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3791: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3784:
3785: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_UNLCK_TPC_MERGE ');
3786: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3791: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3792: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3785: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_UNLCK_TPC_MERGE ');
3786: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3791: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3792: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3793: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3786: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3791: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3792: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3793: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3794:
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3791: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3792: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3793: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3794:
3795: --
3788: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3791: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3792: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3793: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3794:
3795: --
3796: -- check the merge scenario
3789: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3790: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3791: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3792: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3793: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3794:
3795: --
3796: -- check the merge scenario
3797: --
3798: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
3799: p_from_id => p_From_FK_id,
3800: p_to_id => p_To_FK_id);
3801:
3802: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3803:
3804: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
3805:
3806: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
3802: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3803:
3804: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
3805:
3806: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
3807: --
3808: -- This can not happen in any normal scenario as
3809: -- PON_BID_HEADERS.DRAFT_UNLOCKED_BY_CONTACT_ID
3810: -- can never contain a buyer user id which is merged to a seller user.
3816: x_return_status := FND_API.G_RET_STS_ERROR;
3817:
3818: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER ) THEN
3819:
3820: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
3821: --
3822: -- there is no chance of unique key constraint violation
3823: -- due to the following updates
3824: --
3827: LAST_UPDATED_BY = -1,
3828: DRAFT_UNLOCKED_BY_CONTACT_ID = p_To_FK_id
3829: WHERE DRAFT_UNLOCKED_BY_CONTACT_ID = p_From_FK_id;
3830:
3831: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated DRAFT_UNLOCKED_BY_CONTACT_IDs in PON_BID_HEADERS: '||sql%rowcount||' rows');
3832:
3833: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3834: --
3835: -- Nothing to do
3833: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3834: --
3835: -- Nothing to do
3836: --
3837: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
3838: NULL;
3839: END IF;
3840:
3841: EXCEPTION
3840:
3841: EXCEPTION
3842: WHEN OTHERS THEN
3843:
3844: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_UNLCK_TPC_MERGE SQLERRM:'||SQLERRM);
3845: --
3846: -- We need add some Sourcing specific message for this
3847: --
3848: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3929: --{start of procedure
3930:
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932:
3933: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_LCK_TPC_MERGE ');
3934: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3930:
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932:
3933: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_LCK_TPC_MERGE ');
3934: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932:
3933: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_LCK_TPC_MERGE ');
3934: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3939: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3932:
3933: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_LCK_TPC_MERGE ');
3934: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3939: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3940: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3933: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_LCK_TPC_MERGE ');
3934: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3939: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3940: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3941: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3934: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3939: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3940: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3941: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3942:
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3939: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3940: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3941: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3942:
3943: --
3936: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3939: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3940: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3941: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3942:
3943: --
3944: -- check the merge scenario
3937: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
3938: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
3939: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
3940: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
3941: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
3942:
3943: --
3944: -- check the merge scenario
3945: --
3946: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
3947: p_from_id => p_From_FK_id,
3948: p_to_id => p_To_FK_id);
3949:
3950: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3951:
3952: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
3953:
3954: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
3950: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
3951:
3952: IF (l_merge_scenario = G_INCOMPATIBLE) THEN
3953:
3954: fnd_file.put_line (fnd_file.log, '20 : Incompatible Merge - Error');
3955: --
3956: -- This can not happen in any normal scenario as
3957: -- PON_BID_HEADERS.DRAFT_LOCKED_BY_CONTACT_ID
3958: -- can never contain a buyer user id which is merged to a seller user id.
3964: x_return_status := FND_API.G_RET_STS_ERROR;
3965:
3966: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
3967:
3968: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
3969: --
3970: -- there is no chance of unique key constraint violation
3971: -- due to the following updates
3972: --
3975: LAST_UPDATED_BY = -1,
3976: DRAFT_LOCKED_BY_CONTACT_ID = p_To_FK_id
3977: WHERE DRAFT_LOCKED_BY_CONTACT_ID = p_From_FK_id;
3978:
3979: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated DRAFT_LOCKED_BY_CONTACT_IDs in PON_BID_HEADERS: '||sql%rowcount||' rows');
3980:
3981: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3982: --
3983: -- Nothing to do
3981: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
3982: --
3983: -- Nothing to do
3984: --
3985: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
3986: NULL;
3987: END IF;
3988:
3989: EXCEPTION
3988:
3989: EXCEPTION
3990: WHEN OTHERS THEN
3991:
3992: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_LCK_TPC_MERGE SQLERRM:'||SQLERRM);
3993: --
3994: -- We need add some Sourcing specific message for this
3995: --
3996: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4077: --{start of procedure
4078:
4079: x_return_status := FND_API.G_RET_STS_SUCCESS;
4080:
4081: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_TPC_MERGE ');
4082: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4078:
4079: x_return_status := FND_API.G_RET_STS_SUCCESS;
4080:
4081: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_TPC_MERGE ');
4082: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4079: x_return_status := FND_API.G_RET_STS_SUCCESS;
4080:
4081: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_TPC_MERGE ');
4082: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4087: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4080:
4081: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_TPC_MERGE ');
4082: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4087: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4088: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4081: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_TPC_MERGE ');
4082: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4087: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4088: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4089: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4082: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4087: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4088: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4089: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4090:
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4087: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4088: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4089: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4090:
4091: --
4084: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4087: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4088: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4089: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4090:
4091: --
4092: -- check the merge scenario
4085: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4086: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4087: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4088: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4089: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4090:
4091: --
4092: -- check the merge scenario
4093: --
4094: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
4095: p_from_id => p_From_FK_id,
4096: p_to_id => p_To_FK_id);
4097:
4098: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4099:
4100: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4101:
4102: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4098: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4099:
4100: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4101:
4102: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4103: --
4104: -- This can not happen in any normal scenario as
4105: -- PON_BID_HEADERS.TRADING_PARTNER_CONTACT_ID
4106: -- can never contain a buyer user id. Thus, raising a veto though
4111: x_return_status := FND_API.G_RET_STS_ERROR;
4112:
4113: ELSIF (l_merge_scenario = G_SELLER) THEN
4114:
4115: fnd_file.put_line (fnd_file.log, '30 : Seller Merge - Getting User Name from FND');
4116:
4117: l_user_name := GET_USER_NAME(p_To_FK_id);
4118:
4119: fnd_file.put_line (fnd_file.log, '40 : Seller Merge - User Name from FND:'||l_user_name);
4115: fnd_file.put_line (fnd_file.log, '30 : Seller Merge - Getting User Name from FND');
4116:
4117: l_user_name := GET_USER_NAME(p_To_FK_id);
4118:
4119: fnd_file.put_line (fnd_file.log, '40 : Seller Merge - User Name from FND:'||l_user_name);
4120:
4121: --
4122: -- Now transact the data we have
4123: --
4142: AND pb1.TRADING_PARTNER_CONTACT_ID = p_To_FK_id
4143: AND pb1.BID_STATUS = 'ACTIVE');
4144:
4145:
4146: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_BID_HEADERS: '||sql%rowcount||' rows');
4147:
4148: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4149: --
4150: -- Nothing to do
4148: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4149: --
4150: -- Nothing to do
4151: --
4152: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
4153: NULL;
4154: END IF;
4155:
4156: EXCEPTION
4155:
4156: EXCEPTION
4157: WHEN OTHERS THEN
4158:
4159: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_TPC_MERGE SQLERRM:'||SQLERRM);
4160: --
4161: -- We need add some Sourcing specific message for this
4162: --
4163: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4243: --{start of procedure
4244:
4245: x_return_status := FND_API.G_RET_STS_SUCCESS;
4246:
4247: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.OPTMZ_TPC_MERGE ');
4248: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4244:
4245: x_return_status := FND_API.G_RET_STS_SUCCESS;
4246:
4247: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.OPTMZ_TPC_MERGE ');
4248: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4245: x_return_status := FND_API.G_RET_STS_SUCCESS;
4246:
4247: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.OPTMZ_TPC_MERGE ');
4248: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4253: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4246:
4247: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.OPTMZ_TPC_MERGE ');
4248: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4253: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4254: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4247: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.OPTMZ_TPC_MERGE ');
4248: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4253: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4254: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4255: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4248: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4253: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4254: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4255: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4256:
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4253: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4254: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4255: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4256:
4257: --
4250: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4253: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4254: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4255: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4256:
4257: --
4258: -- check the merge scenario
4251: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4252: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4253: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4254: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4255: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4256:
4257: --
4258: -- check the merge scenario
4259: --
4260: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
4261: p_from_id => p_From_FK_id,
4262: p_to_id => p_To_FK_id);
4263:
4264: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4265:
4266: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4267:
4268: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4264: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4265:
4266: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4267:
4268: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4269: --
4270: -- This can not happen in any normal scenario as
4271: -- PON_OPTIMIZE_CONSTRAINTS.TRADING_PARTNER_CONTACT_ID
4272: -- can never contain a buyer user id. Thus, raising a veto though
4277: x_return_status := FND_API.G_RET_STS_ERROR;
4278:
4279: ELSIF (l_merge_scenario = G_SELLER) THEN
4280:
4281: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4282:
4283: --
4284: -- there is no chance of unique key constraint violation
4285: -- due to the following updates
4289: LAST_UPDATED_BY = -1,
4290: TRADING_PARTNER_CONTACT_ID = p_To_FK_id
4291: WHERE TRADING_PARTNER_CONTACT_ID = p_From_FK_id;
4292:
4293: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_OPTIMIZE_CONSTRAINTS: '||sql%rowcount||' rows');
4294:
4295: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4296: --
4297: -- Nothing to do
4295: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4296: --
4297: -- Nothing to do
4298: --
4299: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
4300: NULL;
4301: END IF;
4302:
4303: EXCEPTION
4302:
4303: EXCEPTION
4304: WHEN OTHERS THEN
4305:
4306: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.OPTMZ_TPC_MERGE SQLERRM:'||SQLERRM);
4307: --
4308: -- We need add some Sourcing specific message for this
4309: --
4310: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4390: --{start of procedure
4391:
4392: x_return_status := FND_API.G_RET_STS_SUCCESS;
4393:
4394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_ACK_MERGE ');
4395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4391:
4392: x_return_status := FND_API.G_RET_STS_SUCCESS;
4393:
4394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_ACK_MERGE ');
4395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4392: x_return_status := FND_API.G_RET_STS_SUCCESS;
4393:
4394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_ACK_MERGE ');
4395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4393:
4394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_ACK_MERGE ');
4395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_ACK_MERGE ');
4395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4403:
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4403:
4404: --
4397: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4403:
4404: --
4405: -- check the merge scenario
4398: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4399: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4400: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4401: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4402: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4403:
4404: --
4405: -- check the merge scenario
4406: --
4407: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
4408: p_from_id => p_From_FK_id,
4409: p_to_id => p_To_FK_id);
4410:
4411: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4412:
4413: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4414:
4415: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4411: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4412:
4413: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4414:
4415: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4416: --
4417: -- This can not happen in any normal scenario as
4418: -- PON_ACKNOWLEDGEMENTS.TRADING_PARTNER_CONTACT_ID
4419: -- can never contain a buyer user id. Thus, raising a veto though
4424: x_return_status := FND_API.G_RET_STS_ERROR;
4425:
4426: ELSIF (l_merge_scenario = G_SELLER) THEN
4427:
4428: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4429: --
4430: -- there is no chance of unique key constraint violation
4431: -- due to the following logic - trading_partner_contact_id should not
4432: -- clash in an auction_header_id (PON_ACKNOWLEDGEMENTS_U1 violation)
4441: WHERE pa1.AUCTION_HEADER_ID = pa.AUCTION_HEADER_ID
4442: AND pa1.TRADING_PARTNER_CONTACT_ID = p_To_FK_id );
4443:
4444:
4445: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_ACKNOWLEDGEMENTS: '||sql%rowcount||' rows');
4446:
4447: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4448: --
4449: -- Nothing to do
4447: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4448: --
4449: -- Nothing to do
4450: --
4451: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
4452: NULL;
4453: END IF;
4454:
4455: EXCEPTION
4454:
4455: EXCEPTION
4456: WHEN OTHERS THEN
4457:
4458: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.RES_ACK_MERGE SQLERRM:'||SQLERRM);
4459: --
4460: -- We need add some Sourcing specific message for this
4461: --
4462: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4542: --{start of procedure
4543:
4544: x_return_status := FND_API.G_RET_STS_SUCCESS;
4545:
4546: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.AUC_SUMM_TPC_MERGE ');
4547: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4543:
4544: x_return_status := FND_API.G_RET_STS_SUCCESS;
4545:
4546: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.AUC_SUMM_TPC_MERGE ');
4547: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4544: x_return_status := FND_API.G_RET_STS_SUCCESS;
4545:
4546: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.AUC_SUMM_TPC_MERGE ');
4547: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4552: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4545:
4546: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.AUC_SUMM_TPC_MERGE ');
4547: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4552: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4553: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4546: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.AUC_SUMM_TPC_MERGE ');
4547: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4552: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4553: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4554: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4547: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4552: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4553: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4554: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4555:
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4552: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4553: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4554: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4555:
4556: --
4549: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4552: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4553: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4554: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4555:
4556: --
4557: -- check the merge scenario
4550: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4551: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4552: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4553: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4554: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4555:
4556: --
4557: -- check the merge scenario
4558: --
4559: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
4560: p_from_id => p_From_FK_id,
4561: p_to_id => p_To_FK_id);
4562:
4563: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4564:
4565: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4566: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4567: --
4562:
4563: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4564:
4565: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4566: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4567: --
4568: -- This can not happen in any normal scenario as
4569: -- PON_AUCTION_SUMMARY.TRADING_PARTNER_CONTACT_ID
4570: -- can never contain a buyer user id. Thus, raising a veto though
4575: x_return_status := FND_API.G_RET_STS_ERROR;
4576:
4577: ELSIF (l_merge_scenario = G_SELLER) THEN
4578:
4579: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4580: --
4581: -- there is no chance of unique key constraint violation
4582: -- due to the following updates
4583: --
4588: UPDATE PON_AUCTION_SUMMARY
4589: SET TRADING_PARTNER_CONTACT_ID = p_To_FK_id
4590: WHERE TRADING_PARTNER_CONTACT_ID = p_From_FK_id;
4591:
4592: fnd_file.put_line (fnd_file.log, '50 : Seller Merge - Updated TRADING_PARTNER_CONTACT_IDs in PON_AUCTION_SUMMARY: '||sql%rowcount||' rows');
4593:
4594: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4595: --
4596: -- Nothing to do
4594: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4595: --
4596: -- Nothing to do
4597: --
4598: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
4599: NULL;
4600: END IF;
4601:
4602: EXCEPTION
4601:
4602: EXCEPTION
4603: WHEN OTHERS THEN
4604:
4605: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.AUC_SUMM_TPC_MERGE SQLERRM:'||SQLERRM);
4606: --
4607: -- We need add some Sourcing specific message for this
4608: --
4609: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4690: --{start of procedure
4691:
4692: x_return_status := FND_API.G_RET_STS_SUCCESS;
4693:
4694: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.SUP_ACT_MERGE ');
4695: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4691:
4692: x_return_status := FND_API.G_RET_STS_SUCCESS;
4693:
4694: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.SUP_ACT_MERGE ');
4695: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4692: x_return_status := FND_API.G_RET_STS_SUCCESS;
4693:
4694: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.SUP_ACT_MERGE ');
4695: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4700: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4693:
4694: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.SUP_ACT_MERGE ');
4695: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4700: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4701: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4694: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.SUP_ACT_MERGE ');
4695: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4700: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4701: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4702: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4695: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4700: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4701: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4702: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4703:
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4700: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4701: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4702: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4703:
4704: --
4697: fnd_file.put_line (fnd_file.log, ' p_From_FK_id ' || p_From_FK_id);
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4700: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4701: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4702: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4703:
4704: --
4705: -- check the merge scenario
4698: fnd_file.put_line (fnd_file.log, ' p_To_FK_id ' || p_To_FK_id);
4699: fnd_file.put_line (fnd_file.log, ' p_Parent_Entity_name ' || p_Parent_Entity_name);
4700: fnd_file.put_line (fnd_file.log, ' p_batch_id ' || p_batch_id);
4701: fnd_file.put_line (fnd_file.log, ' p_Batch_Party_id ' || p_Batch_Party_id);
4702: fnd_file.put_line (fnd_file.log, ' x_return_status ' || x_return_status );
4703:
4704: --
4705: -- check the merge scenario
4706: --
4707: l_merge_scenario := CHECK_PERSON_PARTY_MERGE_TYPE (
4708: p_from_id => p_From_FK_id,
4709: p_to_id => p_To_FK_id);
4710:
4711: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4712:
4713: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
4714:
4715: fnd_file.put_line (fnd_file.log, '20 : Buyer or Incompatible Merge - Error');
4711: fnd_file.put_line (fnd_file.log, '10 : l_merge_scenario:'||l_merge_scenario);
4712:
4713: IF (l_merge_scenario = G_BUYER OR l_merge_scenario = G_INCOMPATIBLE) THEN
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
4724: x_return_status := FND_API.G_RET_STS_ERROR;
4725:
4726: ELSIF (l_merge_scenario = G_SELLER) THEN
4727:
4728: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4729: --
4730: -- there is no chance of unique key constraint violation
4731: -- due to the following logic
4732: --
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
4748: ELSIF (l_merge_scenario = G_IRRELEVANT) THEN
4749: --
4750: -- Nothing to do
4751: --
4752: fnd_file.put_line (fnd_file.log, '60 : Irrelevent Merge');
4753: NULL;
4754: END IF;
4755:
4756: EXCEPTION
4755:
4756: EXCEPTION
4757: WHEN OTHERS THEN
4758:
4759: fnd_file.put_line (fnd_file.log, '70 : Error in PON_TCA_PARTY_MERGE.SUP_ACT_MERGE SQLERRM:'||SQLERRM);
4760: --
4761: -- We need add some Sourcing specific message for this
4762: --
4763: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');