420: -- TYPE : PRIVATE
421: -- Pre-reqs : NONE
422: --
423: -- FUNCTION : To check if the required grant can be updated
424: -- and updates fnd_grants if required
425: -- NO ACTION IS PERFORMED ON eng_change_people_intf
426: --
427: -- Parameters:
428: -- IN : NONE
445: ,cp_company_party_id_char IN VARCHAR2
446: ,cp_start_date IN DATE
447: ) IS
448: SELECT grant_guid
449: FROM fnd_grants grants
450: WHERE grants.object_id = G_FND_OBJECT_ID
451: AND grants.menu_id = cp_menu_id
452: AND grants.instance_type = 'INSTANCE'
453: AND grants.instance_pk1_value = TO_CHAR(cp_change_id)
473: ,cp_start_date IN DATE
474: ,cp_end_date IN DATE
475: ) IS
476: SELECT grant_guid
477: FROM fnd_grants grants
478: WHERE grants.grant_guid <> cp_grant_guid
479: AND grants.object_id = cp_object_id
480: AND grants.menu_id = cp_menu_id
481: AND grants.instance_type = 'INSTANCE'
491: AND NVL(end_date,cp_start_date) >= cp_start_date;
492:
493: l_token_tbl_two Error_Handler.Token_Tbl_Type;
494: l_token_tbl_one Error_Handler.Token_Tbl_Type;
495: l_grant_guid fnd_grants.grant_guid%TYPE;
496: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
497:
498: l_success VARCHAR2(999);
499:
492:
493: l_token_tbl_two Error_Handler.Token_Tbl_Type;
494: l_token_tbl_one Error_Handler.Token_Tbl_Type;
495: l_grant_guid fnd_grants.grant_guid%TYPE;
496: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
497:
498: l_success VARCHAR2(999);
499:
500: BEGIN
554: );
555: END IF;
556: ELSE
557: -- update the grants
558: FND_GRANTS_PKG.Update_Grant
559: (p_api_version => 1.0
560: ,p_grant_guid => l_grant_guid
561: ,p_start_date => p_start_date
562: ,p_end_date => p_end_date
621: -- TYPE : PRIVATE
622: -- Pre-reqs : NONE
623: --
624: -- FUNCTION : To check if the required grant is valid for insert
625: -- and inserts the record into fnd_grants if valid
626: -- NO ACTION IS PERFORMED ON eng_change_people_intf
627: --
628: -- Parameters:
629: -- IN : NONE
647: ,cp_start_date IN DATE
648: ,cp_end_date IN DATE
649: ) IS
650: SELECT grant_guid
651: FROM fnd_grants grants
652: WHERE grants.object_id = cp_object_id
653: AND grants.menu_id = cp_menu_id
654: AND grants.instance_type = 'INSTANCE'
655: AND grants.instance_pk1_value = TO_CHAR(cp_change_id)
664: AND NVL(end_date,cp_start_date) >= cp_start_date;
665:
666:
667: l_token_tbl_two Error_Handler.Token_Tbl_Type;
668: l_grant_guid fnd_grants.grant_guid%TYPE;
669: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
670:
671: l_success VARCHAR2(999);
672: l_errorcode NUMBER;
665:
666:
667: l_token_tbl_two Error_Handler.Token_Tbl_Type;
668: l_grant_guid fnd_grants.grant_guid%TYPE;
669: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
670:
671: l_success VARCHAR2(999);
672: l_errorcode NUMBER;
673:
707: );
708: END IF;
709: ELSE
710: --
711: -- insert record into fnd_grants
712: --
713: FND_GRANTS_PKG.Grant_Function
714: (p_api_version => 1.0
715: ,p_menu_name => p_internal_role_name
709: ELSE
710: --
711: -- insert record into fnd_grants
712: --
713: FND_GRANTS_PKG.Grant_Function
714: (p_api_version => 1.0
715: ,p_menu_name => p_internal_role_name
716: ,p_object_name => G_FND_OBJECT_NAME
717: ,p_instance_type => 'INSTANCE'
774: internal_role_name,
775: DECODE(grantee_type, 'USER', 'HZ_PARTY:'||TO_CHAR(grantee_party_id),
776: 'GROUP','HZ_GROUP:'||TO_CHAR(grantee_party_id),
777: -- bug: 3460466
778: -- All Users is now represented by grantee_key = 'GLOBAL' in fnd_grants
779: -- 'GLOBAL','HZ_GLOBAL:'||TO_CHAR(grantee_party_id),
780: 'GLOBAL',grantee_type,
781: 'HZ_COMPANY:'||TO_CHAR(grantee_party_id)) grantee_key,
782: DECODE(transaction_type, 'CREATE', ORDER_BY_CREATE,
801: ,cp_start_date IN DATE
802: ,cp_end_date IN DATE
803: ) IS
804: SELECT grant_guid
805: FROM fnd_grants grants
806: WHERE grants.object_id = G_FND_OBJECT_ID
807: AND grants.menu_id = cp_menu_id
808: AND grants.instance_type = 'INSTANCE'
809: AND grants.instance_pk1_value = TO_CHAR(cp_change_id)
825: l_global_party_id_char VARCHAR2(100);
826: l_company_party_id_char VARCHAR2(100);
827:
828:
829: l_grant_guid fnd_grants.grant_guid%TYPE;
830: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
831: l_grant_guid_count NUMBER := 0;
832:
833: l_record_count NUMBER := 0;
826: l_company_party_id_char VARCHAR2(100);
827:
828:
829: l_grant_guid fnd_grants.grant_guid%TYPE;
830: l_temp_grant_guid fnd_grants.grant_guid%TYPE;
831: l_grant_guid_count NUMBER := 0;
832:
833: l_record_count NUMBER := 0;
834: l_return_status NUMBER;
856: ELSIF cr.grantee_type = 'GLOBAL' THEN
857: l_user_party_id_char := NULL;
858: l_group_party_id_char := NULL;
859: -- bug: 3460466
860: -- All Users is now represented by grantee_key = 'GLOBAL' in fnd_grants
861: -- l_global_party_id_char := 'HZ_GLOBAL:'||TO_CHAR(cr.grantee_party_id);
862: l_global_party_id_char := cr.grantee_type;
863: l_company_party_id_char := NULL;
864: ELSIF cr.grantee_type = 'COMPANY' THEN
889: ,cp_end_date => cr.end_date);
890: FETCH c_get_delete_grantid INTO l_grant_guid;
891:
892: IF c_get_delete_grantid%FOUND THEN
893: FND_GRANTS_PKG.Revoke_Grant
894: (p_api_version => 1.0
895: ,p_grant_guid => l_grant_guid
896: ,x_success => l_success
897: ,x_errorcode => l_return_status
1084: -- Start OF comments
1085: -- API name : Load Interfance Lines
1086: -- TYPE : Public (called by SQL Loader)
1087: -- Pre-reqs : None
1088: -- FUNCTION : Process and Load interfance lines into FND_GRANTS.
1089: -- Errors are populated in MTL_INTERFACE_ERRORS
1090: BEGIN
1091: IF G_CURR_DATASET_ID = -1 THEN
1092: SELECT ENG_CPI_DATASET_ID_S.NEXTVAL
1114: -- Start OF comments
1115: -- API name : Load Interfance Lines
1116: -- TYPE : Public (called by Concurrent Program)
1117: -- Pre-reqs : None
1118: -- FUNCTION : Process and Load interfance lines into FND_GRANTS.
1119: -- Errors are populated in MTL_INTERFACE_ERRORS
1120:
1121:
1122: --Currently, assume that the user who submits the 'Change People Import'
1983: G_FROM_LINE_NUMBER := G_TO_LINE_NUMBER + 1;
1984: END LOOP; -- l_batch_loop_counter
1985:
1986: --
1987: -- upload the data into fnd_grants
1988: --
1989: validate_no_grant_overlap(x_retcode => x_retcode);
1990: write_log_now();
1991: --