86:
87: -- =================================================================
88: -- Global variables used for Bulk Processing
89: -- =================================================================
90: -- TYPE g_t_grant_guid_table IS TABLE OF fnd_grants.grant_guid%TYPE INDEX BY BINARY_INTEGER;
91: --
92: -- TYPE g_t_transaction_id_table IS TABLE OF ego_item_people_intf.transaction_id%TYPE INDEX BY BINARY_INTEGER;
93: -- TYPE g_t_start_date_table IS TABLE OF ego_item_people_intf.start_date%TYPE INDEX BY BINARY_INTEGER;
94: -- TYPE g_t_end_date_table IS TABLE OF ego_item_people_intf.end_date%TYPE INDEX BY BINARY_INTEGER;
640: -- TYPE : PRIVATE
641: -- Pre-reqs : NONE
642: --
643: -- FUNCTION : To check if the required grant can be updated
644: -- and updates fnd_grants if required
645: -- NO ACTION IS PERFORMED ON ego_item_people_intf
646: --
647: -- Parameters:
648: -- IN : NONE
665: ,cp_global_party_id_char IN VARCHAR2
666: ,cp_start_date IN DATE
667: ) IS
668: SELECT grant_guid
669: FROM fnd_grants grants
670: WHERE grants.object_id = G_FND_OBJECT_ID
671: AND grants.menu_id = cp_menu_id
672: AND grants.instance_type = 'INSTANCE'
673: AND grants.instance_pk1_value = TO_CHAR(cp_inv_item_id)
692: ,cp_start_date IN DATE
693: ,cp_end_date IN DATE
694: ) IS
695: SELECT grant_guid
696: FROM fnd_grants grants
697: WHERE grants.grant_guid <> cp_grant_guid
698: AND grants.object_id = cp_object_id
699: AND grants.menu_id = cp_menu_id
700: AND grants.instance_type = 'INSTANCE'
709: AND NVL(end_date,cp_start_date) >= cp_start_date;
710:
711: l_token_tbl_two Error_Handler.Token_Tbl_Type;
712: l_token_tbl_one Error_Handler.Token_Tbl_Type;
713: l_grant_guid fnd_grants.grant_guid%TYPE;
714: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
715:
716: l_success VARCHAR2(999);
717: l_item_number VARCHAR2(100);
710:
711: l_token_tbl_two Error_Handler.Token_Tbl_Type;
712: l_token_tbl_one Error_Handler.Token_Tbl_Type;
713: l_grant_guid fnd_grants.grant_guid%TYPE;
714: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
715:
716: l_success VARCHAR2(999);
717: l_item_number VARCHAR2(100);
718:
773: );
774: END IF;
775: ELSE
776: -- update the grants
777: FND_GRANTS_PKG.Update_Grant
778: (p_api_version => 1.0
779: ,p_grant_guid => l_grant_guid
780: ,p_start_date => p_start_date
781: ,p_end_date => p_end_date
851: -- TYPE : PRIVATE
852: -- Pre-reqs : NONE
853: --
854: -- FUNCTION : To check if the required grant is valid for insert
855: -- and inserts the record into fnd_grants if valid
856: -- NO ACTION IS PERFORMED ON ego_item_people_intf
857: --
858: -- Parameters:
859: -- IN : NONE
877: ,cp_start_date IN DATE
878: ,cp_end_date IN DATE
879: ) IS
880: SELECT grant_guid
881: FROM fnd_grants grants
882: WHERE grants.object_id = cp_object_id
883: AND grants.menu_id = cp_menu_id
884: AND grants.instance_type = 'INSTANCE'
885: AND grants.instance_pk1_value = TO_CHAR(cp_inv_item_id)
893: AND NVL(end_date,cp_start_date) >= cp_start_date;
894:
895:
896: l_token_tbl_two Error_Handler.Token_Tbl_Type;
897: l_grant_guid fnd_grants.grant_guid%TYPE;
898: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
899:
900: l_success VARCHAR2(999);
901: l_errorcode NUMBER;
894:
895:
896: l_token_tbl_two Error_Handler.Token_Tbl_Type;
897: l_grant_guid fnd_grants.grant_guid%TYPE;
898: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
899:
900: l_success VARCHAR2(999);
901: l_errorcode NUMBER;
902:
936: );
937: END IF;
938: ELSE
939: --
940: -- insert record into fnd_grants
941: --
942: FND_GRANTS_PKG.Grant_Function
943: (p_api_version => 1.0
944: ,p_menu_name => p_internal_role_name
938: ELSE
939: --
940: -- insert record into fnd_grants
941: --
942: FND_GRANTS_PKG.Grant_Function
943: (p_api_version => 1.0
944: ,p_menu_name => p_internal_role_name
945: ,p_object_name => G_FND_OBJECT_NAME
946: ,p_instance_type => 'INSTANCE'
1009: DECODE(grantee_type, 'USER', 'HZ_PARTY:'||TO_CHAR(grantee_party_id),
1010: 'GROUP','HZ_GROUP:'||TO_CHAR(grantee_party_id),
1011: 'COMPANY','HZ_COMPANY:'||TO_CHAR(grantee_party_id),
1012: -- bug: 3460466
1013: -- All Users is now represented by grantee_key = 'GLOBAL' in fnd_grants
1014: -- 'GLOBAL','HZ_GLOBAL:'||TO_CHAR(grantee_party_id),
1015: 'GLOBAL',grantee_type,
1016: TO_CHAR(grantee_party_id)) grantee_key,
1017: DECODE(transaction_type, 'CREATE', ORDER_BY_CREATE,
1037: ,cp_start_date IN DATE
1038: ,cp_end_date IN DATE
1039: ) IS
1040: SELECT grant_guid
1041: FROM fnd_grants grants
1042: WHERE grants.object_id = G_FND_OBJECT_ID
1043: AND grants.menu_id = cp_menu_id
1044: AND grants.instance_type = 'INSTANCE'
1045: AND grants.instance_pk1_value = TO_CHAR(cp_inv_item_id)
1066: l_group_party_id_char VARCHAR2(100);
1067: l_company_party_id_char VARCHAR2(100);
1068: l_global_party_id_char VARCHAR2(100);
1069:
1070: l_grant_guid fnd_grants.grant_guid%TYPE;
1071: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
1072: l_grant_guid_count NUMBER := 0;
1073:
1074: l_ipi_lines_count NUMBER := 0;
1067: l_company_party_id_char VARCHAR2(100);
1068: l_global_party_id_char VARCHAR2(100);
1069:
1070: l_grant_guid fnd_grants.grant_guid%TYPE;
1071: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
1072: l_grant_guid_count NUMBER := 0;
1073:
1074: l_ipi_lines_count NUMBER := 0;
1075: l_record_count NUMBER := 0;
1111: l_user_party_id_char := NULL;
1112: l_group_party_id_char := NULL;
1113: l_company_party_id_char:= NULL;
1114: -- bug: 3460466
1115: -- All Users is now represented by grantee_key = 'GLOBAL' in fnd_grants
1116: -- l_global_party_id_char := 'HZ_GLOBAL:'||TO_CHAR(cr.grantee_party_id);
1117: l_global_party_id_char := cr.grantee_type;
1118: ELSE
1119: l_user_party_id_char := NULL;
1138: ,cp_end_date => cr.end_date);
1139: FETCH c_get_delete_grantid INTO l_grant_guid;
1140:
1141: IF c_get_delete_grantid%FOUND THEN
1142: FND_GRANTS_PKG.Revoke_Grant
1143: (p_api_version => 1.0
1144: ,p_grant_guid => l_grant_guid
1145: ,x_success => l_success
1146: ,x_errorcode => l_return_status
1399: -- Start OF comments
1400: -- API name : Load Interfance Lines
1401: -- TYPE : Public (called by SQL Loader)
1402: -- Pre-reqs : None
1403: -- FUNCTION : Process and Load interfance lines into FND_GRANTS.
1404: -- Errors are populated in MTL_INTERFACE_ERRORS
1405: BEGIN
1406: IF G_CURR_DATASET_ID = -1 THEN
1407: SELECT EGO_IPI_DATASET_ID_S.NEXTVAL
1433: -- Start OF comments
1434: -- API name : Load Interfance Lines
1435: -- TYPE : Public (called by Concurrent Program)
1436: -- Pre-reqs : None
1437: -- FUNCTION : Process and Load interfance lines into FND_GRANTS.
1438: -- Errors are populated in MTL_INTERFACE_ERRORS
1439:
1440: -- ======================================================================
1441: -- the record types used from other procedures
2624: END LOOP; -- l_count_ipi_records
2625:
2626: Write_Debug('Checking for Grant Overlap on the items');
2627: --
2628: -- upload the data into fnd_grants
2629: --
2630: validate_no_grant_overlap(x_retcode => x_retcode);
2631: check_and_write_log(p_msg_size => 0
2632: ,x_retcode => x_retcode);