[Home] [Help]
584: IF p_WinningTerrMember_tbl.resource_id.COUNT > 0 THEN
585: FOR l_index IN p_WinningTerrMember_tbl.resource_id.FIRST..p_WinningTerrMember_tbl.resource_id.LAST LOOP
586: IF p_WinningTerrMember_tbl.resource_type(l_index) = 'RS_EMPLOYEE' AND p_WinningTerrMember_tbl.group_id(l_index) IS NOT NULL THEN
587:
588: INSERT INTO PRP_PROPOSAL_ACCESSES
589: (proposal_access_id ,
590: last_update_date ,
591: last_updated_by,
592: creation_date ,
596: resource_id,
597: resource_group_id,
598: Access_level,
599: Keep_flag)
600: SELECT PRP_PROPOSAL_ACCESSES_S1.NEXTVAL,
601: SYSDATE,
602: FND_GLOBAL.USER_ID,
603: SYSDATE,
604: FND_GLOBAL.USER_ID,
610: 'N'
611: FROM PRP_PROPOSALS pp
612: WHERE pp.proposal_id = G_Proposal_ID
613: AND NOT EXISTS
614: ( SELECT NULL FROM PRP_PROPOSAL_ACCESSES ACC
615: WHERE ACC.proposal_id = pp.proposal_id
616: AND ACC.resource_id = p_WinningTerrMember_tbl.resource_id(l_index)
617: AND ACC.resource_group_id = p_WinningTerrMember_tbl.group_id(l_index) );
618: END IF;
649:
650: DELETE FROM PRP_TERRITORY_ACCESSES TACC
651: WHERE TACC.proposal_access_id IN
652: (SELECT ACC.proposal_access_id
653: FROM PRP_PROPOSAL_ACCESSES ACC
654: WHERE proposal_id = G_PROPOSAL_ID);
655:
656: IF p_WinningTerrMember_tbl.resource_id.COUNT > 0 THEN
657: FOR l_index IN p_WinningTerrMember_tbl.resource_id.FIRST..p_WinningTerrMember_tbl.resource_id.LAST LOOP
675: FND_GLOBAL.USER_ID,
676: SYSDATE,
677: FND_GLOBAL.USER_ID,
678: FND_GLOBAL.USER_ID
679: FROM PRP_PROPOSAL_ACCESSES ACC
680: WHERE ACC.proposal_id = G_PROPOSAL_ID
681: AND ACC.resource_id = p_WinningTerrMember_tbl.resource_id(l_index)
682: AND ACC.resource_group_id = p_WinningTerrMember_tbl.group_id(l_index)
683: AND NOT EXISTS ( SELECT 'Y'
712:
713: BEGIN
714: x_return_status := FND_API.G_RET_STS_SUCCESS;
715:
716: DELETE FROM PRP_PROPOSAL_ACCESSES ACC
717: WHERE proposal_id = G_PROPOSAL_ID
718: AND NVL(keep_flag, 'N') <> 'Y'
719: AND RESOURCE_ID||RESOURCE_GROUP_ID NOT IN (
720: SELECT RESTAB.RES||GRPTAB.GRP FROM