112: IF FND_GLOBAL.User_Id IS NULL
113: THEN
114: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
115: THEN
116: FND_MESSAGE.Set_Name(' + appShortName +',
117: 'UT_CANNOT_GET_PROFILE_VALUE');
118: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
119: FND_MSG_PUB.ADD;
120: END IF;
114: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
115: THEN
116: FND_MESSAGE.Set_Name(' + appShortName +',
117: 'UT_CANNOT_GET_PROFILE_VALUE');
118: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
119: FND_MSG_PUB.ADD;
120: END IF;
121: RAISE FND_API.G_EXC_ERROR;
122: END IF;
176: END IF;
177:
178: IF (l_update_access_flag <> 'Y') THEN
179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
180: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
181: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
182: FND_MSG_PUB.ADD;
183: END IF;
184: RAISE FND_API.G_EXC_ERROR;
177:
178: IF (l_update_access_flag <> 'Y') THEN
179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
180: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
181: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
182: FND_MSG_PUB.ADD;
183: END IF;
184: RAISE FND_API.G_EXC_ERROR;
185: END IF;
191: -- Progress Message
192: --
193: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
194: THEN
195: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
196: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
197: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
198: FND_MSG_PUB.Add;
199: END IF;
192: --
193: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
194: THEN
195: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
196: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
197: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
198: FND_MSG_PUB.Add;
199: END IF;
200:
193: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
194: THEN
195: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
196: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
197: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
198: FND_MSG_PUB.Add;
199: END IF;
200:
201: l_Contact_rec := P_Contact_Tbl(l_curr_row);
538: END IF;
539:
540: IF (l_update_access_flag <> 'Y') THEN
541: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
542: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
543: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
544: FND_MSG_PUB.ADD;
545: END IF;
546: RAISE FND_API.G_EXC_ERROR;
539:
540: IF (l_update_access_flag <> 'Y') THEN
541: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
542: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
543: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
544: FND_MSG_PUB.ADD;
545: END IF;
546: RAISE FND_API.G_EXC_ERROR;
547: END IF;
554: -- Progress Message
555: --
556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
557: THEN
558: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
559: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
560: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
561: FND_MSG_PUB.Add;
562: END IF;
555: --
556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
557: THEN
558: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
559: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
560: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
561: FND_MSG_PUB.Add;
562: END IF;
563:
556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
557: THEN
558: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
559: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
560: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
561: FND_MSG_PUB.Add;
562: END IF;
563:
564: l_Contact_rec := P_Contact_Tbl(l_curr_row);
584:
585: If ( C_Get_opp_contact%NOTFOUND) Then
586: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
587: THEN
588: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
589: FND_MESSAGE.Set_Token ('INFO', 'opp_contact', FALSE);
590: FND_MSG_PUB.Add;
591: END IF;
592: raise FND_API.G_EXC_ERROR;
585: If ( C_Get_opp_contact%NOTFOUND) Then
586: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
587: THEN
588: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
589: FND_MESSAGE.Set_Token ('INFO', 'opp_contact', FALSE);
590: FND_MSG_PUB.Add;
591: END IF;
592: raise FND_API.G_EXC_ERROR;
593: END IF;
603: If (l_Contact_rec.last_update_date is NULL or
604: l_Contact_rec.last_update_date = FND_API.G_MISS_Date ) Then
605: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
606: THEN
607: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
608: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
609: FND_MSG_PUB.ADD;
610: END IF;
611: raise FND_API.G_EXC_ERROR;
604: l_Contact_rec.last_update_date = FND_API.G_MISS_Date ) Then
605: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
606: THEN
607: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
608: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
609: FND_MSG_PUB.ADD;
610: END IF;
611: raise FND_API.G_EXC_ERROR;
612: End if;
613: -- Check Whether record has been changed by someone else
614: If (l_Contact_rec.last_update_date <> l_last_update_date) Then
615: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
616: THEN
617: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
618: FND_MESSAGE.Set_Token('INFO', 'opp_contact', FALSE);
619: FND_MSG_PUB.ADD;
620: END IF;
621: raise FND_API.G_EXC_ERROR;
614: If (l_Contact_rec.last_update_date <> l_last_update_date) Then
615: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
616: THEN
617: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
618: FND_MESSAGE.Set_Token('INFO', 'opp_contact', FALSE);
619: FND_MSG_PUB.ADD;
620: END IF;
621: raise FND_API.G_EXC_ERROR;
622: End if;
924: END IF;
925:
926: IF (l_update_access_flag <> 'Y') THEN
927: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
928: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
929: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
930: FND_MSG_PUB.ADD;
931: END IF;
932: RAISE FND_API.G_EXC_ERROR;
925:
926: IF (l_update_access_flag <> 'Y') THEN
927: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
928: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
929: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
930: FND_MSG_PUB.ADD;
931: END IF;
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
940: -- Progress Message
941: --
942: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
943: THEN
944: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
945: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
946: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
947: FND_MSG_PUB.Add;
948: END IF;
941: --
942: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
943: THEN
944: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
945: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
946: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
947: FND_MSG_PUB.Add;
948: END IF;
949:
942: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
943: THEN
944: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
945: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_CONTACT', TRUE);
946: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
947: FND_MSG_PUB.Add;
948: END IF;
949:
950: l_Contact_rec := P_Contact_Tbl(l_curr_row);