286: )
287: IS
288: CURSOR C_Get_Lead_Using_Rank (c_sales_lead_rank_id NUMBER) IS
289: SELECT 1
290: FROM AS_SALES_LEADS
291: WHERE lead_rank_id = c_sales_lead_rank_id;
292: l_dummy NUMBER;
293: l_default_profile NUMBER;
294: l_sql_text VARCHAR2(500);
789:
790: IF l_min_score <> p_sales_lead_rank_rec.min_score
791: THEN
792: -- Run concurrent program for the rank.
793: -- Update as_sales_leads.lead_rank_score and
794: -- as_accesses_all.lead_rank_score
795: l_request_id := FND_REQUEST.SUBMIT_REQUEST('AS',
796: 'ASXSLRS',
797: 'Update LEAD_RANK_SCORE',
864:
865:
866: CURSOR C_Get_Lead_Using_Rank (c_sales_lead_rank_id NUMBER) IS
867: SELECT 1
868: FROM AS_SALES_LEADS
869: WHERE lead_rank_id = c_sales_lead_rank_id;
870:
871:
872: CURSOR c1 IS
1022: X_LEAD_RANK_ID IN NUMBER,
1023: X_LEAD_RANK_SCORE IN NUMBER)
1024: IS
1025: BEGIN
1026: --Update the as_sales_leads.lead_rank_score
1027: Write_log (1, 'Updating the as_sales_leads.lead_rank_score');
1028: UPDATE as_sales_leads sl
1029: SET sl.lead_rank_score = x_lead_rank_score
1030: , sl.last_update_date = sysdate
1023: X_LEAD_RANK_SCORE IN NUMBER)
1024: IS
1025: BEGIN
1026: --Update the as_sales_leads.lead_rank_score
1027: Write_log (1, 'Updating the as_sales_leads.lead_rank_score');
1028: UPDATE as_sales_leads sl
1029: SET sl.lead_rank_score = x_lead_rank_score
1030: , sl.last_update_date = sysdate
1031: , sl.last_updated_by = fnd_global.user_id
1024: IS
1025: BEGIN
1026: --Update the as_sales_leads.lead_rank_score
1027: Write_log (1, 'Updating the as_sales_leads.lead_rank_score');
1028: UPDATE as_sales_leads sl
1029: SET sl.lead_rank_score = x_lead_rank_score
1030: , sl.last_update_date = sysdate
1031: , sl.last_updated_by = fnd_global.user_id
1032: , sl.last_update_login = fnd_global.conc_login_id
1040: , acc.last_updated_by = fnd_global.user_id
1041: , acc.last_update_login = fnd_global.conc_login_id
1042: WHERE acc.sales_lead_id IN
1043: (select sl.sales_lead_id
1044: from as_sales_leads sl
1045: where sl.lead_rank_id = x_lead_rank_id);
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN