[Home] [Help]
555: ---------------------------------------------------------------
556: -- UDA EGO WEBADI R12C uptake Bug: 6493113 EXPORT/IMPORT FUNCTIONALITY CAN'T BE USED
557: ----------------------------------------------------------------
558: IF p_entity_name = 'RRS_SITE' THEN
559: INSERT INTO RRS_SITE_UA_INTF
560: (
561: DATA_SET_ID ,
562: TRANSACTION_ID ,
563: SITE_ID ,
714: END Get_Site_Security_Predicate;
715:
716:
717: -------------------------------------------------------------------------------
718: --processing of Site Attributes from RRS_SITE_UA_INTF
719: --------------------------------------------------------------------------------
720: PROCEDURE PROCESS_USER_ATTRS_DATA(
721: ERRBUF OUT NOCOPY VARCHAR2
722: ,RETCODE OUT NOCOPY VARCHAR2
730: l_msg_count NUMBER;
731: l_msg_data VARCHAR2(1000);
732: l_rel_sql VARCHAR2(100);
733: l_cnt NUMBER := 0;
734: CURSOR c_rrs_site_ua_intf is
735: select count(*) from RRS_SITE_UA_INTF
736: WHERE PROCESS_STATUS = G_PS_TO_BE_PROCESSED
737: AND DATA_SET_ID = p_data_set_id;
738: CURSOR c_rrs_loc_ua_intf is
731: l_msg_data VARCHAR2(1000);
732: l_rel_sql VARCHAR2(100);
733: l_cnt NUMBER := 0;
734: CURSOR c_rrs_site_ua_intf is
735: select count(*) from RRS_SITE_UA_INTF
736: WHERE PROCESS_STATUS = G_PS_TO_BE_PROCESSED
737: AND DATA_SET_ID = p_data_set_id;
738: CURSOR c_rrs_loc_ua_intf is
739: select count(*) from RRS_LOCATION_UA_INTF
765: l_debug_level := 0; --Since Debug log is not opened, donot open Debug log for User-Attrs also.
766: END IF;
767:
768: l_user_attrs_return_status := FND_API.G_RET_STS_SUCCESS;
769: Open c_rrs_site_ua_intf;
770: fetch c_rrs_site_ua_intf into l_cnt;
771: Close c_rrs_site_ua_intf;
772:
773:
766: END IF;
767:
768: l_user_attrs_return_status := FND_API.G_RET_STS_SUCCESS;
769: Open c_rrs_site_ua_intf;
770: fetch c_rrs_site_ua_intf into l_cnt;
771: Close c_rrs_site_ua_intf;
772:
773:
774: IF l_cnt > 0 THEN
767:
768: l_user_attrs_return_status := FND_API.G_RET_STS_SUCCESS;
769: Open c_rrs_site_ua_intf;
770: fetch c_rrs_site_ua_intf into l_cnt;
771: Close c_rrs_site_ua_intf;
772:
773:
774: IF l_cnt > 0 THEN
775:
773:
774: IF l_cnt > 0 THEN
775:
776:
777: UPDATE RRS_SITE_UA_INTF
778: SET PROCESS_STATUS = G_PS_IN_PROCESS
779: ,REQUEST_ID = G_REQUEST_ID
780: ,PROGRAM_APPLICATION_ID = G_PROGAM_APPLICATION_ID
781: ,PROGRAM_ID = G_PROGAM_ID
826: ,p_application_id => 718 --IN NUMBER
827: ,p_attr_group_type => 'RRS_SITEMGMT_GROUP' --IN VARCHAR2
828: ,p_object_name => 'RRS_SITE' --IN VARCHAR2
829: ,p_hz_party_id => G_HZ_PARTY_ID
830: ,p_interface_table_name => 'RRS_SITE_UA_INTF' --IN VARCHAR2
831: ,p_data_set_id => p_data_set_id --IN NUMBER
832: ,p_entity_id => G_ENTITY_ID --IN NUMBER
833: ,p_entity_index => l_entity_index_counter --IN NUMBER
834: ,p_entity_code => G_ENTITY_CODE --IN VARCHAR2
870: -----------------------------------------------
871: -- Delete all successful rows from the table --
872: -- (they're the only rows still in process) --
873: -----------------------------------------------
874: DELETE FROM RRS_SITE_UA_INTF
875: WHERE DATA_SET_ID = p_data_set_id
876: AND PROCESS_STATUS = G_PS_IN_PROCESS;
877: ELSE
878: ----------------------------------------------
878: ----------------------------------------------
879: -- Mark all rows we've processed as success --
880: -- if they weren't marked as failure above --
881: ----------------------------------------------
882: UPDATE RRS_SITE_UA_INTF
883: SET PROCESS_STATUS = G_PS_SUCCESS
884: WHERE DATA_SET_ID = p_data_set_id
885: AND PROCESS_STATUS = G_PS_IN_PROCESS;
886: END IF;
1064: ----------------------------------------
1065: -- Mark all rows in process as errors --
1066: ----------------------------------------
1067: l_cnt := 0;
1068: Open c_rrs_site_ua_intf;
1069: fetch c_rrs_site_ua_intf into l_cnt;
1070: Close c_rrs_site_ua_intf;
1071: IF l_cnt > 0 THEN
1072: UPDATE RRS_SITE_UA_INTF
1065: -- Mark all rows in process as errors --
1066: ----------------------------------------
1067: l_cnt := 0;
1068: Open c_rrs_site_ua_intf;
1069: fetch c_rrs_site_ua_intf into l_cnt;
1070: Close c_rrs_site_ua_intf;
1071: IF l_cnt > 0 THEN
1072: UPDATE RRS_SITE_UA_INTF
1073: SET PROCESS_STATUS = G_PS_GENERIC_ERROR
1066: ----------------------------------------
1067: l_cnt := 0;
1068: Open c_rrs_site_ua_intf;
1069: fetch c_rrs_site_ua_intf into l_cnt;
1070: Close c_rrs_site_ua_intf;
1071: IF l_cnt > 0 THEN
1072: UPDATE RRS_SITE_UA_INTF
1073: SET PROCESS_STATUS = G_PS_GENERIC_ERROR
1074: WHERE DATA_SET_ID = p_data_set_id
1068: Open c_rrs_site_ua_intf;
1069: fetch c_rrs_site_ua_intf into l_cnt;
1070: Close c_rrs_site_ua_intf;
1071: IF l_cnt > 0 THEN
1072: UPDATE RRS_SITE_UA_INTF
1073: SET PROCESS_STATUS = G_PS_GENERIC_ERROR
1074: WHERE DATA_SET_ID = p_data_set_id
1075: AND PROCESS_STATUS = G_PS_IN_PROCESS;
1076: END IF;