[Home] [Help]
1062: from
1063: pv_partner_profiles a,
1064: hz_relationships b,
1065: jtf_rs_resource_extns c,
1066: as_accesses_all d,
1067: fnd_user usr
1068: where
1069: a.partner_id = pc_partner_id and
1070: a.partner_party_id = b.object_id and
1695: lc_cursor pv_assignment_pub.g_ref_cursor_type;
1696:
1697: cursor lc_get_access_details (pc_salesforce_id number, pc_lead_id number) is
1698: select access_id , prm_keep_flag, salesforce_id
1699: from as_accesses_all
1700: where salesforce_id = pc_salesforce_id
1701: and lead_id = pc_lead_id;
1702:
1703: cursor lc_get_am_and_owner (pc_lead_id number) is
1802: ;
1803:
1804: cursor lc_get_nature_of_resource (pc_access_id number) is
1805: select 'CM_OR_REP'
1806: from as_accesses_all
1807: where access_id = pc_access_id
1808: and partner_customer_id is null
1809: and partner_cont_party_id is null;
1810:
2065: '. It still has some non-quota sales credits associated with it.');
2066:
2067: ELSIF (l_profile_value = 'REMOVE_RS_SALES_CREDIT') THEN
2068: Debug('l_profile_value is REMOVE_RS_SALES_CREDIT. SO deleting access_id:' || l_access_id_tbl(i));
2069: DELETE FROM as_accesses_all acc
2070: WHERE access_id = l_access_id_tbl(i) AND
2071: salesforce_id NOT IN (l_am_rs_id, l_ld_owner_rs_id);
2072:
2073: -- ----------------------------------------------------------------
2080: credit_type_id = 2;
2081:
2082: ELSIF (l_profile_value = 'REMOVE_RS_ONLY') THEN
2083: Debug('l_profile_value is REMOVE_RS_ONLY. SO deleting sales credits');
2084: DELETE FROM as_accesses_all acc
2085: WHERE access_id = l_access_id_tbl(i) AND
2086: salesforce_id NOT IN (l_am_rs_id, l_ld_owner_rs_id);
2087: END IF;
2088:
2091: -- -----------------------------------------------------------------------
2092: ELSE
2093: Debug('l_non_quota_sc_id IS NULL.. SO deleting access_id:' || l_access_id_tbl(i) );
2094:
2095: DELETE FROM as_accesses_all acc
2096: WHERE access_id = l_access_id_tbl(i) AND
2097: salesforce_id NOT IN (l_am_rs_id, l_ld_owner_rs_id);
2098: END IF;
2099:
2157: fnd_message.Set_token('TEXT', 'action type is G_CM_ACCESS and setting the Team_leader_flag, prm_keep_flag to Y for resource id: ' || p_resource_id );
2158: fnd_msg_pub.Add;
2159: end if;
2160:
2161: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y', team_leader_flag = 'Y', open_flag = l_open_flag
2162: where access_id = l_access_id_tbl(i);
2163:
2164:
2165: ELSIF p_access_type in (pv_assignment_pub.G_PT_ACCESS,pv_assignment_pub.G_PT_ORG_ACCESS) THEN
2255: fnd_message.Set_token('TEXT', 'p_access_type is G_PT_ORG_ACCESS and updating team_leader_flag to Y');
2256: fnd_msg_pub.Add;
2257: end if;
2258:
2259: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y', team_leader_flag = 'Y', open_flag = l_open_flag
2260: where access_id = l_access_id_tbl(i);
2261:
2262: ELSIF p_access_type in (pv_assignment_pub.G_PT_ACCESS) THEN
2263: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
2281: --For exisitng contatcs, we do nto need to update the team leader flag.
2282: -- We need to leave it the way it was.
2283: -- THats why we are not updating team_leader_flag
2284:
2285: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y'
2286: --, team_leader_flag = 'Y'
2287: where access_id = l_access_id_tbl(i) and salesforce_id = l_pt_resource_id;
2288:
2289:
2307: fnd_message.Set_token('TEXT', 'p_access_type is G_PT_ORG_ACCESS and updating team_leader_flag to N');
2308: fnd_msg_pub.Add;
2309: end if;
2310:
2311: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y', team_leader_flag = 'N', open_flag = l_open_flag
2312: where access_id = l_access_id_tbl(i);
2313:
2314: ELSIF p_access_type in (pv_assignment_pub.G_PT_ACCESS) THEN
2315:
2334: --For exisitng contatcs, we do nto need to update the team leader flag.
2335: -- We need to leave it the way it was.
2336: -- THats why we are not updating team_leader_flag
2337:
2338: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y'
2339: --, team_leader_flag = 'N'
2340: where access_id = l_access_id_tbl(i) and salesforce_id = l_pt_resource_id;
2341:
2342: end loop;
2373: fnd_message.Set_token('TEXT', 'l_pt_full_access_opp is N and making team_leader_flag to Y of PT ORG: ' || p_resource_id || ' if not lead owner');
2374: fnd_msg_pub.Add;
2375: end if;
2376:
2377: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y', open_flag = l_open_flag, team_leader_flag = 'Y'
2378: where access_id = l_access_id_tbl(i);
2379:
2380: ELSIF p_access_type = pv_assignment_pub.G_PT_ACCESS THEN
2381:
2388: --For exisitng contatcs, we do nto need to update the team leader flag.
2389: -- We need to leave it the way it was.
2390: -- THats why we are not updating team_leader_flag
2391:
2392: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y', open_flag = l_open_flag
2393: --,team_leader_flag = 'Y'
2394: where access_id = l_access_id_tbl(i);
2395:
2396: END IF;
2406: fnd_message.Set_token('TEXT', 'l_pt_full_access_opp is N and making team_leader_flag to N PT ORG: ' || p_resource_id || ' if not lead owner');
2407: fnd_msg_pub.Add;
2408: end if;
2409:
2410: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y', team_leader_flag = 'N', open_flag = l_open_flag
2411: where access_id = l_access_id_tbl(i);
2412:
2413:
2414: ELSIF p_access_type = pv_assignment_pub.G_PT_ACCESS THEN
2429: -- We need to leave it the way it was.
2430: -- THats why we are not updating team_leader_flag
2431:
2432:
2433: update as_accesses_all set prm_keep_flag = 'Y', freeze_flag = 'Y'
2434: --, team_leader_flag = 'N'
2435: where access_id = l_access_id_tbl(i) and salesforce_id = l_pt_resource_id;
2436:
2437:
2643: l_sales_team_rec.owner_flag := 'N'; -- alway N for oppr. Used for sales leads only
2644: l_sales_team_rec.created_by_tap_flag := 'N'; -- set by realtime TAP
2645: -- l_sales_team_rec.prm_keep_flag := 'Y'; -- used exclusively by PRM
2646:
2647: insert into as_accesses_all (
2648: ACCESS_ID,
2649: LAST_UPDATE_DATE,
2650: LAST_UPDATED_BY,
2651: CREATION_DATE,