548: ---------------------------------------------------------------
549: -- UDA EGO WEBADI R12C uptake Bug: 6493113 EXPORT/IMPORT FUNCTIONALITY CAN'T BE USED
550: ----------------------------------------------------------------
551: IF p_entity_name = 'RRS_SITE' THEN
552: INSERT INTO RRS_SITE_UA_INTF
553: (
554: DATA_SET_ID ,
555: TRANSACTION_ID ,
556: SITE_ID ,
655: Write_Conclog('Error while processing Load User Attributes data API '||SQLCODE || ':'||SQLERRM);
656: END LOAD_USERATTR_INTF;
657: -----------------------end of load_userattr_intf---------------------------
658: -------------------------------------------------------------------------------
659: --processing of Site Attributes from RRS_SITE_UA_INTF
660: --------------------------------------------------------------------------------
661: PROCEDURE PROCESS_USER_ATTRS_DATA(
662: ERRBUF OUT NOCOPY VARCHAR2
663: ,RETCODE OUT NOCOPY VARCHAR2
671: l_msg_count NUMBER;
672: l_msg_data VARCHAR2(1000);
673: l_rel_sql VARCHAR2(100);
674: l_cnt NUMBER := 0;
675: CURSOR c_rrs_site_ua_intf is
676: select count(*) from RRS_SITE_UA_INTF
677: WHERE PROCESS_STATUS = G_PS_TO_BE_PROCESSED
678: AND DATA_SET_ID = p_data_set_id;
679: CURSOR c_rrs_loc_ua_intf is
672: l_msg_data VARCHAR2(1000);
673: l_rel_sql VARCHAR2(100);
674: l_cnt NUMBER := 0;
675: CURSOR c_rrs_site_ua_intf is
676: select count(*) from RRS_SITE_UA_INTF
677: WHERE PROCESS_STATUS = G_PS_TO_BE_PROCESSED
678: AND DATA_SET_ID = p_data_set_id;
679: CURSOR c_rrs_loc_ua_intf is
680: select count(*) from RRS_LOCATION_UA_INTF
694: l_debug_level := 0; --Since Debug log is not opened, donot open Debug log for User-Attrs also.
695: END IF;
696:
697: l_user_attrs_return_status := FND_API.G_RET_STS_SUCCESS;
698: Open c_rrs_site_ua_intf;
699: fetch c_rrs_site_ua_intf into l_cnt;
700: Close c_rrs_site_ua_intf;
701: IF l_cnt > 0 THEN
702: UPDATE RRS_SITE_UA_INTF
695: END IF;
696:
697: l_user_attrs_return_status := FND_API.G_RET_STS_SUCCESS;
698: Open c_rrs_site_ua_intf;
699: fetch c_rrs_site_ua_intf into l_cnt;
700: Close c_rrs_site_ua_intf;
701: IF l_cnt > 0 THEN
702: UPDATE RRS_SITE_UA_INTF
703: SET PROCESS_STATUS = G_PS_IN_PROCESS
696:
697: l_user_attrs_return_status := FND_API.G_RET_STS_SUCCESS;
698: Open c_rrs_site_ua_intf;
699: fetch c_rrs_site_ua_intf into l_cnt;
700: Close c_rrs_site_ua_intf;
701: IF l_cnt > 0 THEN
702: UPDATE RRS_SITE_UA_INTF
703: SET PROCESS_STATUS = G_PS_IN_PROCESS
704: ,REQUEST_ID = G_REQUEST_ID
698: Open c_rrs_site_ua_intf;
699: fetch c_rrs_site_ua_intf into l_cnt;
700: Close c_rrs_site_ua_intf;
701: IF l_cnt > 0 THEN
702: UPDATE RRS_SITE_UA_INTF
703: SET PROCESS_STATUS = G_PS_IN_PROCESS
704: ,REQUEST_ID = G_REQUEST_ID
705: ,PROGRAM_APPLICATION_ID = G_PROGAM_APPLICATION_ID
706: ,PROGRAM_ID = G_PROGAM_ID
723: ,p_application_id => 718 --IN NUMBER
724: ,p_attr_group_type => 'RRS_SITEMGMT_GROUP' --IN VARCHAR2
725: ,p_object_name => 'RRS_SITE' --IN VARCHAR2
726: ,p_hz_party_id => G_HZ_PARTY_ID
727: ,p_interface_table_name => 'RRS_SITE_UA_INTF' --IN VARCHAR2
728: ,p_data_set_id => p_data_set_id --IN NUMBER
729: ,p_entity_id => G_ENTITY_ID --IN NUMBER
730: ,p_entity_index => l_entity_index_counter --IN NUMBER
731: ,p_entity_code => G_ENTITY_CODE --IN VARCHAR2
767: -----------------------------------------------
768: -- Delete all successful rows from the table --
769: -- (they're the only rows still in process) --
770: -----------------------------------------------
771: DELETE FROM RRS_SITE_UA_INTF
772: WHERE DATA_SET_ID = p_data_set_id
773: AND PROCESS_STATUS = G_PS_IN_PROCESS;
774: ELSE
775: ----------------------------------------------
775: ----------------------------------------------
776: -- Mark all rows we've processed as success --
777: -- if they weren't marked as failure above --
778: ----------------------------------------------
779: UPDATE RRS_SITE_UA_INTF
780: SET PROCESS_STATUS = G_PS_SUCCESS
781: WHERE DATA_SET_ID = p_data_set_id
782: AND PROCESS_STATUS = G_PS_IN_PROCESS;
783: END IF;
961: ----------------------------------------
962: -- Mark all rows in process as errors --
963: ----------------------------------------
964: l_cnt := 0;
965: Open c_rrs_site_ua_intf;
966: fetch c_rrs_site_ua_intf into l_cnt;
967: Close c_rrs_site_ua_intf;
968: IF l_cnt > 0 THEN
969: UPDATE RRS_SITE_UA_INTF
962: -- Mark all rows in process as errors --
963: ----------------------------------------
964: l_cnt := 0;
965: Open c_rrs_site_ua_intf;
966: fetch c_rrs_site_ua_intf into l_cnt;
967: Close c_rrs_site_ua_intf;
968: IF l_cnt > 0 THEN
969: UPDATE RRS_SITE_UA_INTF
970: SET PROCESS_STATUS = G_PS_GENERIC_ERROR
963: ----------------------------------------
964: l_cnt := 0;
965: Open c_rrs_site_ua_intf;
966: fetch c_rrs_site_ua_intf into l_cnt;
967: Close c_rrs_site_ua_intf;
968: IF l_cnt > 0 THEN
969: UPDATE RRS_SITE_UA_INTF
970: SET PROCESS_STATUS = G_PS_GENERIC_ERROR
971: WHERE DATA_SET_ID = p_data_set_id
965: Open c_rrs_site_ua_intf;
966: fetch c_rrs_site_ua_intf into l_cnt;
967: Close c_rrs_site_ua_intf;
968: IF l_cnt > 0 THEN
969: UPDATE RRS_SITE_UA_INTF
970: SET PROCESS_STATUS = G_PS_GENERIC_ERROR
971: WHERE DATA_SET_ID = p_data_set_id
972: AND PROCESS_STATUS = G_PS_IN_PROCESS;
973: END IF;