176: IF FND_GLOBAL.User_Id IS NULL
177: THEN
178: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
179: THEN
180: FND_MESSAGE.Set_Name(' + appShortName +',
181: 'UT_CANNOT_GET_PROFILE_VALUE');
182: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
183: FND_MSG_PUB.ADD;
184: END IF;
178: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
179: THEN
180: FND_MESSAGE.Set_Name(' + appShortName +',
181: 'UT_CANNOT_GET_PROFILE_VALUE');
182: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
183: FND_MSG_PUB.ADD;
184: END IF;
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
244: -- Progress Message
245: --
246: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
247: THEN
248: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
249: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
250: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
251: FND_MSG_PUB.Add;
252: END IF;
245: --
246: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
247: THEN
248: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
249: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
250: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
251: FND_MSG_PUB.Add;
252: END IF;
253:
246: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
247: THEN
248: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
249: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
250: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
251: FND_MSG_PUB.Add;
252: END IF;
253:
254: l_competitor_prod_rec := P_Competitor_Prod_Tbl(l_curr_row);
291: /*
292: IF check_dup( p_Competitor_Prod_rec => l_Competitor_Prod_rec ) THEN
293: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
294: THEN
295: FND_MESSAGE.Set_Name('AS', 'API_DUP_COMPETITOR_PRODUCTS');
296: FND_MSG_PUB.ADD;
297: END IF;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
410:
411: WHEN DUP_VAL_ON_INDEX THEN
412: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
413: THEN
414: FND_MESSAGE.Set_Name('AS', 'API_DUP_COMPETITOR_PRODUCTS');
415: FND_MSG_PUB.ADD;
416: END IF;
417:
418: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
616: -- Progress Message
617: --
618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
619: THEN
620: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
621: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
622: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
623: FND_MSG_PUB.Add;
624: END IF;
617: --
618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
619: THEN
620: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
621: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
622: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
623: FND_MSG_PUB.Add;
624: END IF;
625:
618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
619: THEN
620: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
621: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
622: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
623: FND_MSG_PUB.Add;
624: END IF;
625:
626: l_competitor_prod_rec := P_Competitor_Prod_Tbl(l_curr_row);
638:
639: If ( C_Get_competitor_prod%NOTFOUND) Then
640: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
641: THEN
642: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
643: FND_MESSAGE.Set_Token ('INFO', 'competitor_prod', FALSE);
644: FND_MSG_PUB.Add;
645: END IF;
646: raise FND_API.G_EXC_ERROR;
639: If ( C_Get_competitor_prod%NOTFOUND) Then
640: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
641: THEN
642: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
643: FND_MESSAGE.Set_Token ('INFO', 'competitor_prod', FALSE);
644: FND_MSG_PUB.Add;
645: END IF;
646: raise FND_API.G_EXC_ERROR;
647: END IF;
656: If (l_Competitor_Prod_rec.last_update_date is NULL or
657: l_Competitor_Prod_rec.last_update_date = FND_API.G_MISS_Date ) Then
658: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
659: THEN
660: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
661: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
662: FND_MSG_PUB.ADD;
663: END IF;
664: raise FND_API.G_EXC_ERROR;
657: l_Competitor_Prod_rec.last_update_date = FND_API.G_MISS_Date ) Then
658: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
659: THEN
660: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
661: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
662: FND_MSG_PUB.ADD;
663: END IF;
664: raise FND_API.G_EXC_ERROR;
665: End if;
666: -- Check Whether record has been changed by someone else
667: If (l_Competitor_Prod_rec.last_update_date <> l_last_update_date) Then
668: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
669: THEN
670: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
671: FND_MESSAGE.Set_Token('INFO', 'competitor_prod', FALSE);
672: FND_MSG_PUB.ADD;
673: END IF;
674: raise FND_API.G_EXC_ERROR;
667: If (l_Competitor_Prod_rec.last_update_date <> l_last_update_date) Then
668: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
669: THEN
670: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
671: FND_MESSAGE.Set_Token('INFO', 'competitor_prod', FALSE);
672: FND_MSG_PUB.ADD;
673: END IF;
674: raise FND_API.G_EXC_ERROR;
675: End if;
704: /*
705: IF check_dup( p_Competitor_Prod_rec => l_Competitor_Prod_rec ) THEN
706: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
707: THEN
708: FND_MESSAGE.Set_Name('AS', 'API_DUP_COMPETITOR_PRODUCTS');
709: FND_MSG_PUB.ADD;
710: END IF;
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
811:
812: WHEN DUP_VAL_ON_INDEX THEN
813: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
814: THEN
815: FND_MESSAGE.Set_Name('AS', 'API_DUP_COMPETITOR_PRODUCTS');
816: FND_MSG_PUB.ADD;
817: END IF;
818:
819: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1008: -- Progress Message
1009: --
1010: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1011: THEN
1012: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
1013: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
1014: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
1015: FND_MSG_PUB.Add;
1016: END IF;
1009: --
1010: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1011: THEN
1012: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
1013: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
1014: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
1015: FND_MSG_PUB.Add;
1016: END IF;
1017:
1010: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1011: THEN
1012: FND_MESSAGE.Set_Name ('AS', 'API_PROCESSING_ROW');
1013: FND_MESSAGE.Set_Token ('ROW', 'AS_LEAD_COMP_PRODUCTS', TRUE);
1014: FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(l_curr_row), FALSE);
1015: FND_MSG_PUB.Add;
1016: END IF;
1017:
1018: l_competitor_prod_rec := P_Competitor_Prod_Tbl(l_curr_row);