628: --
629: -- ******************************************************************
630: -- Validate Environment
631: -- ******************************************************************
632: IF FND_GLOBAL.User_Id IS NULL
633: THEN
634: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
635: THEN
636: AS_UTILITY_PVT.Set_Message(
827: p_SALES_LEAD_ID => l_SALES_LEAD_CONTACT_rec.SALES_LEAD_ID,
828: p_CONTACT_ID => l_SALES_LEAD_CONTACT_rec.CONTACT_ID,
829: p_CONTACT_PARTY_ID => l_SALES_LEAD_CONTACT_rec.CONTACT_PARTY_ID,
830: p_LAST_UPDATE_DATE => SYSDATE,
831: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
832: p_CREATION_DATE => SYSDATE,
833: p_CREATED_BY => FND_GLOBAL.USER_ID,
834: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
835: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
829: p_CONTACT_PARTY_ID => l_SALES_LEAD_CONTACT_rec.CONTACT_PARTY_ID,
830: p_LAST_UPDATE_DATE => SYSDATE,
831: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
832: p_CREATION_DATE => SYSDATE,
833: p_CREATED_BY => FND_GLOBAL.USER_ID,
834: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
835: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
836: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
837: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
830: p_LAST_UPDATE_DATE => SYSDATE,
831: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
832: p_CREATION_DATE => SYSDATE,
833: p_CREATED_BY => FND_GLOBAL.USER_ID,
834: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
835: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
836: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
837: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
838: p_PROGRAM_UPDATE_DATE => SYSDATE,
831: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
832: p_CREATION_DATE => SYSDATE,
833: p_CREATED_BY => FND_GLOBAL.USER_ID,
834: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
835: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
836: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
837: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
838: p_PROGRAM_UPDATE_DATE => SYSDATE,
839: p_ENABLED_FLAG => l_SALES_LEAD_CONTACT_rec.ENABLED_FLAG,
832: p_CREATION_DATE => SYSDATE,
833: p_CREATED_BY => FND_GLOBAL.USER_ID,
834: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
835: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
836: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
837: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
838: p_PROGRAM_UPDATE_DATE => SYSDATE,
839: p_ENABLED_FLAG => l_SALES_LEAD_CONTACT_rec.ENABLED_FLAG,
840: p_RANK => l_SALES_LEAD_CONTACT_rec.RANK,
833: p_CREATED_BY => FND_GLOBAL.USER_ID,
834: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
835: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
836: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
837: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
838: p_PROGRAM_UPDATE_DATE => SYSDATE,
839: p_ENABLED_FLAG => l_SALES_LEAD_CONTACT_rec.ENABLED_FLAG,
840: p_RANK => l_SALES_LEAD_CONTACT_rec.RANK,
841: p_CUSTOMER_ID => l_SALES_LEAD_CONTACT_rec.CUSTOMER_ID,
880: END IF;
881:
882: UPDATE as_sales_leads
883: SET last_update_date = SYSDATE,
884: last_updated_by = FND_GLOBAL.USER_ID,
885: last_update_login = FND_GLOBAL.CONC_LOGIN_ID
886: WHERE sales_lead_id = p_sales_lead_id;
887:
888: -- Debug Message
881:
882: UPDATE as_sales_leads
883: SET last_update_date = SYSDATE,
884: last_updated_by = FND_GLOBAL.USER_ID,
885: last_update_login = FND_GLOBAL.CONC_LOGIN_ID
886: WHERE sales_lead_id = p_sales_lead_id;
887:
888: -- Debug Message
889: IF (AS_DEBUG_LOW_ON) THEN
1093:
1094: -- ******************************************************************
1095: -- Validate Environment
1096: -- ******************************************************************
1097: IF FND_GLOBAL.User_Id IS NULL
1098: THEN
1099: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1100: THEN
1101: AS_UTILITY_PVT.Set_Message(
1321: p_SALES_LEAD_ID => l_tar_SALES_LEAD_CONTACT_rec.SALES_LEAD_ID,
1322: p_CONTACT_ID => l_tar_SALES_LEAD_CONTACT_rec.CONTACT_ID,
1323: p_CONTACT_PARTY_ID => l_tar_SALES_LEAD_CONTACT_rec.CONTACT_PARTY_ID,
1324: p_LAST_UPDATE_DATE => SYSDATE,
1325: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1326: p_CREATION_DATE => l_tar_SALES_LEAD_CONTACT_rec.CREATION_DATE,
1327: p_CREATED_BY => l_tar_SALES_LEAD_CONTACT_rec.CREATED_BY,
1328: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1329: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
1324: p_LAST_UPDATE_DATE => SYSDATE,
1325: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1326: p_CREATION_DATE => l_tar_SALES_LEAD_CONTACT_rec.CREATION_DATE,
1327: p_CREATED_BY => l_tar_SALES_LEAD_CONTACT_rec.CREATED_BY,
1328: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1329: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
1330: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
1331: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
1332: p_PROGRAM_UPDATE_DATE => SYSDATE,
1325: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1326: p_CREATION_DATE => l_tar_SALES_LEAD_CONTACT_rec.CREATION_DATE,
1327: p_CREATED_BY => l_tar_SALES_LEAD_CONTACT_rec.CREATED_BY,
1328: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1329: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
1330: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
1331: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
1332: p_PROGRAM_UPDATE_DATE => SYSDATE,
1333: p_ENABLED_FLAG => NVL(l_tar_SALES_LEAD_CONTACT_rec.ENABLED_FLAG,
1326: p_CREATION_DATE => l_tar_SALES_LEAD_CONTACT_rec.CREATION_DATE,
1327: p_CREATED_BY => l_tar_SALES_LEAD_CONTACT_rec.CREATED_BY,
1328: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1329: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
1330: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
1331: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
1332: p_PROGRAM_UPDATE_DATE => SYSDATE,
1333: p_ENABLED_FLAG => NVL(l_tar_SALES_LEAD_CONTACT_rec.ENABLED_FLAG,
1334: 'Y'),
1327: p_CREATED_BY => l_tar_SALES_LEAD_CONTACT_rec.CREATED_BY,
1328: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1329: p_REQUEST_ID => FND_GLOBAL.Conc_Request_Id,
1330: p_PROGRAM_APPLICATION_ID => FND_GLOBAL.Prog_Appl_Id,
1331: p_PROGRAM_ID => FND_GLOBAL.Conc_Program_Id,
1332: p_PROGRAM_UPDATE_DATE => SYSDATE,
1333: p_ENABLED_FLAG => NVL(l_tar_SALES_LEAD_CONTACT_rec.ENABLED_FLAG,
1334: 'Y'),
1335: p_RANK => l_tar_SALES_LEAD_CONTACT_rec.RANK,
1377: END IF;
1378:
1379: UPDATE as_sales_leads
1380: SET last_update_date = SYSDATE,
1381: last_updated_by = FND_GLOBAL.USER_ID,
1382: last_update_login = FND_GLOBAL.CONC_LOGIN_ID
1383: WHERE sales_lead_id = l_tar_SALES_LEAD_CONTACT_Rec.sales_lead_id;
1384:
1385:
1378:
1379: UPDATE as_sales_leads
1380: SET last_update_date = SYSDATE,
1381: last_updated_by = FND_GLOBAL.USER_ID,
1382: last_update_login = FND_GLOBAL.CONC_LOGIN_ID
1383: WHERE sales_lead_id = l_tar_SALES_LEAD_CONTACT_Rec.sales_lead_id;
1384:
1385:
1386: -- Debug Message
1579:
1580: -- ******************************************************************
1581: -- Validate Environment
1582: -- ******************************************************************
1583: IF FND_GLOBAL.User_Id IS NULL
1584: THEN
1585: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1586: THEN
1587: AS_UTILITY_PVT.Set_Message(
1737: END IF;
1738:
1739: UPDATE as_sales_leads
1740: SET last_update_date = SYSDATE,
1741: last_updated_by = FND_GLOBAL.USER_ID,
1742: last_update_login = FND_GLOBAL.CONC_LOGIN_ID
1743: WHERE sales_lead_id = l_sales_lead_id;
1744:
1745:
1738:
1739: UPDATE as_sales_leads
1740: SET last_update_date = SYSDATE,
1741: last_updated_by = FND_GLOBAL.USER_ID,
1742: last_update_login = FND_GLOBAL.CONC_LOGIN_ID
1743: WHERE sales_lead_id = l_sales_lead_id;
1744:
1745:
1746: -- ffang 090601, if primary contact is deleted, update as_sales_leads
1870:
1871: -- ******************************************************************
1872: -- Validate Environment
1873: -- ******************************************************************
1874: IF FND_GLOBAL.User_Id IS NULL
1875: THEN
1876: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1877: THEN
1878: AS_UTILITY_PVT.Set_Message(