[Home] [Help]
161: IF (LENGTH(p_message) > 200) THEN
162: Debug_Msg(SUBSTR(p_message, 1, 200), p_level_of_debug);
163: Debug_Msg(SUBSTR(p_message, 201), p_level_of_debug);
164: ELSIF (LENGTH(p_message) > 0) THEN
165: ERROR_HANDLER.Write_Debug('['||TO_CHAR(SYSDATE, EGO_USER_ATTRS_COMMON_PVT.G_DATE_FORMAT)||'] '||p_message);
166: END IF;
167: END Debug_Msg;
168:
169: ----------------------------------------------------------------------
2337: l_replacement_attr_metadata EGO_ATTR_METADATA_OBJ;
2338: l_replacement_attr_data EGO_USER_ATTR_DATA_OBJ;
2339: l_retrieved_value VARCHAR2(1000);
2340: l_error_message_name VARCHAR2(30);
2341: l_token_table ERROR_HANDLER.Token_Tbl_Type;
2342: l_cursor_id NUMBER;
2343: l_dynamic_sql VARCHAR2(32767);
2344: l_number_of_rows NUMBER;
2345:
2454: l_token_table(3).TOKEN_VALUE := l_source_of_replacement;
2455: l_token_table(4).TOKEN_NAME := 'OBJ_NAME';
2456: l_token_table(4).TOKEN_VALUE := p_ext_table_metadata_obj.OBJ_NAME;
2457:
2458: ERROR_HANDLER.Add_Error_Message(
2459: p_message_name => l_error_message_name
2460: ,p_application_id => 'EGO'
2461: ,p_token_tbl => l_token_table
2462: ,p_message_type => FND_API.G_RET_STS_ERROR
2498: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
2499: l_token_table(3).TOKEN_NAME := 'BAD_ATTR_NAME';
2500: l_token_table(3).TOKEN_VALUE := l_source_of_replacement;
2501:
2502: ERROR_HANDLER.Add_Error_Message(
2503: p_message_name => l_error_message_name
2504: ,p_application_id => 'EGO'
2505: ,p_token_tbl => l_token_table
2506: ,p_message_type => FND_API.G_RET_STS_ERROR
3232: BEGIN
3233:
3234: --------------------------------------------------------------
3235: -- If there are more than 5 Unique Key Attributes, we try --
3236: -- to make a list of them all; however, since ERROR_HANDLER --
3237: -- tokens can only be 100 bytes, we may well not be able --
3238: -- to provide a complete list. In that case, we tokenize --
3239: -- the message with another message that basically says, --
3240: -- "(the list is too long to display here)" --
3252:
3253: EXCEPTION
3254: WHEN OTHERS THEN
3255: Debug_Msg(' Fetch_UK_Attr_Names_List EXCEPTION OTHERS - '||SQLERRM);
3256: RETURN ERROR_HANDLER.Translate_Message('EGO', 'EGO_UK_TOO_LONG_TO_LIST');
3257:
3258: END Fetch_UK_Attr_Names_List;
3259:
3260: ----------------------------------------------------------------------
3262: PROCEDURE Get_Err_Info_For_UK_Not_Resp (
3263: p_attr_group_metadata_obj IN EGO_ATTR_GROUP_METADATA_OBJ
3264: ,p_is_err_in_production_table IN BOOLEAN
3265: ,x_unique_key_err_msg OUT NOCOPY VARCHAR2
3266: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
3267: ) IS
3268:
3269: l_uk_attr_names_table LOCAL_MEDIUM_VARCHAR_TABLE;
3270:
3356: p_attr_group_metadata_obj IN EGO_ATTR_GROUP_METADATA_OBJ
3357: ,p_attr_name_value_pairs IN EGO_USER_ATTR_DATA_TABLE
3358: ,p_is_err_in_production_table IN BOOLEAN
3359: ,x_unique_key_err_msg OUT NOCOPY VARCHAR2
3360: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
3361: ) IS
3362:
3363: l_uk_attr_names_table LOCAL_MEDIUM_VARCHAR_TABLE;
3364: l_uk_attr_values_table LOCAL_BIG_VARCHAR_TABLE;
3506: l_extra_pk_present BOOLEAN;
3507: l_production_ext_id NUMBER;
3508: l_pending_ext_id NUMBER;
3509: l_error_message_name VARCHAR2(30);
3510: l_token_table ERROR_HANDLER.Token_Tbl_Type;
3511:
3512: BEGIN
3513:
3514: Debug_Msg('In Get_Extension_Id_And_Mode, starting with p_mode as '||p_mode||' and p_extension_id as '||p_extension_id, 2);
3770: -- Whatever error message we built in the preceding lines, we now log --
3771: ------------------------------------------------------------------------
3772: IF (l_error_message_name IS NOT NULL) THEN
3773:
3774: ERROR_HANDLER.Add_Error_Message(
3775: p_message_name => l_error_message_name
3776: ,p_application_id => 'EGO'
3777: ,p_token_tbl => l_token_table
3778: ,p_message_type => FND_API.G_RET_STS_ERROR
3823:
3824: l_token_table(1).TOKEN_NAME := 'AG_NAME';
3825: l_token_table(1).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
3826:
3827: ERROR_HANDLER.Add_Error_Message(
3828: p_message_name => l_error_message_name
3829: ,p_application_id => 'EGO'
3830: ,p_token_tbl => l_token_table
3831: ,p_message_type => FND_API.G_RET_STS_ERROR
3846:
3847: l_token_table(1).TOKEN_NAME := 'AG_NAME';
3848: l_token_table(1).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
3849:
3850: ERROR_HANDLER.Add_Error_Message(
3851: p_message_name => l_error_message_name
3852: ,p_application_id => 'EGO'
3853: ,p_token_tbl => l_token_table
3854: ,p_message_type => FND_API.G_RET_STS_ERROR
3886:
3887: l_token_table(1).TOKEN_NAME := 'AG_NAME';
3888: l_token_table(1).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
3889:
3890: ERROR_HANDLER.Add_Error_Message(
3891: p_message_name => l_error_message_name
3892: ,p_application_id => 'EGO'
3893: ,p_token_tbl => l_token_table
3894: ,p_message_type => FND_API.G_RET_STS_ERROR
3921: l_token_table(2).TOKEN_VALUE := l_api_name;
3922: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
3923: l_token_table(3).TOKEN_VALUE := SQLERRM;
3924:
3925: ERROR_HANDLER.Add_Error_Message(
3926: p_message_name => 'EGO_PLSQL_ERR'
3927: ,p_application_id => 'EGO'
3928: ,p_token_tbl => l_token_table
3929: ,p_message_type => FND_API.G_RET_STS_ERROR
3947: )
3948: RETURN BOOLEAN
3949: IS
3950:
3951: l_token_table ERROR_HANDLER.Token_Tbl_Type;
3952: l_attr_count NUMBER;
3953: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
3954: l_all_exist BOOLEAN := TRUE;
3955:
3981: l_all_exist := FALSE;
3982:
3983: l_token_table(1).TOKEN_VALUE := p_attr_name_value_pairs(l_attr_count).ATTR_NAME;
3984:
3985: ERROR_HANDLER.Add_Error_Message(
3986: p_message_name => 'EGO_EF_ATTR_DOES_NOT_EXIST'
3987: ,p_application_id => 'EGO'
3988: ,p_token_tbl => l_token_table
3989: ,p_message_type => FND_API.G_RET_STS_ERROR
4131: ,p_data_level IN VARCHAR2 DEFAULT NULL --R12C
4132: ,p_data_level_name_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY
4133: ,p_attr_group_disp_name IN VARCHAR2
4134: ,x_err_msg_name OUT NOCOPY VARCHAR2
4135: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
4136: )
4137: RETURN BOOLEAN IS
4138:
4139: l_api_name VARCHAR2(50) := 'Is_Data_Level_Correct';
4560: ,p_mode IN VARCHAR2
4561: ,p_attr_value_obj IN EGO_USER_ATTR_DATA_OBJ
4562: ,p_attr_group_disp_name IN VARCHAR2
4563: ,x_err_msg_name OUT NOCOPY VARCHAR2
4564: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
4565: )
4566: RETURN BOOLEAN
4567: IS
4568:
4632: p_attr_metadata_obj IN EGO_ATTR_METADATA_OBJ
4633: ,p_attr_value_obj IN EGO_USER_ATTR_DATA_OBJ
4634: ,p_attr_group_disp_name IN VARCHAR2
4635: ,x_err_msg_name OUT NOCOPY VARCHAR2
4636: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
4637: )
4638: RETURN BOOLEAN
4639: IS
4640:
4848: p_attr_metadata_obj IN EGO_ATTR_METADATA_OBJ
4849: ,p_attr_value_obj IN EGO_USER_ATTR_DATA_OBJ
4850: ,p_attr_group_disp_name IN VARCHAR2
4851: ,x_err_msg_name OUT NOCOPY VARCHAR2
4852: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
4853: )
4854: RETURN BOOLEAN
4855: IS
4856:
4979: l_int_value VARCHAR2(1000);
4980: l_disp_value VARCHAR2(1000);
4981: l_is_val_set_respected BOOLEAN := TRUE;
4982: l_err_msg_name VARCHAR2(30);
4983: l_token_table ERROR_HANDLER.Token_Tbl_Type;
4984:
4985: BEGIN
4986:
4987: Debug_Msg('In Is_Value_Set_Respected, starting', 2);
5177: -- functions we called, then we need to log it now --
5178: ----------------------------------------------------------
5179: IF (NOT l_is_val_set_respected AND l_err_msg_name IS NOT NULL) THEN
5180:
5181: ERROR_HANDLER.Add_Error_Message(
5182: p_message_name => l_err_msg_name
5183: ,p_application_id => 'EGO'
5184: ,p_token_tbl => l_token_table
5185: ,p_message_type => FND_API.G_RET_STS_ERROR
5227: l_metadata_table_index NUMBER;
5228: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
5229: l_passed_attrs_table_index NUMBER;
5230: l_already_processed BOOLEAN;
5231: l_token_table ERROR_HANDLER.Token_Tbl_Type;
5232:
5233: BEGIN
5234:
5235: l_token_table(1).TOKEN_NAME := 'ATTR_NAME';
5311: Debug_Msg('In Verify_All_Required_Attrs, non-passed required Attribute '||l_attr_metadata_obj.ATTR_DISP_NAME||' has no default value');
5312:
5313: l_token_table(1).TOKEN_VALUE := l_attr_metadata_obj.ATTR_DISP_NAME;
5314:
5315: ERROR_HANDLER.Add_Error_Message(
5316: p_message_name => 'EGO_EF_NO_VAL_FOR_REQ_ATTR'
5317: ,p_application_id => 'EGO'
5318: ,p_token_tbl => l_token_table
5319: ,p_message_type => FND_API.G_RET_STS_ERROR
5356: l_attr_name_list VARCHAR2(3000) := p_attr_name_list;
5357: l_attr_name_table LOCAL_VARCHAR_TABLE;
5358: l_next_attr_name VARCHAR2(30);
5359: l_candidate_attr EGO_ATTR_METADATA_OBJ;
5360: l_token_table ERROR_HANDLER.Token_Tbl_Type;
5361: l_metadata_table_index NUMBER;
5362: l_found_bad_names BOOLEAN := FALSE;
5363:
5364: BEGIN
5403: l_token_table(1).TOKEN_VALUE := l_next_attr_name;
5404: l_token_table(2).TOKEN_NAME := 'AG_NAME';
5405: l_token_table(2).TOKEN_VALUE := p_attr_group_disp_name;
5406:
5407: ERROR_HANDLER.Add_Error_Message(
5408: p_message_name => 'EGO_EF_ATTR_DOES_NOT_EXIST'
5409: ,p_application_id => 'EGO'
5410: ,p_token_tbl => l_token_table
5411: ,p_message_type => FND_API.G_RET_STS_ERROR
5456: ,px_attr_name_value_pairs IN OUT NOCOPY EGO_USER_ATTR_DATA_TABLE
5457: ,x_return_status OUT NOCOPY VARCHAR2
5458: ) IS
5459:
5460: l_token_table ERROR_HANDLER.Token_Tbl_Type;
5461: l_attr_value_index NUMBER;
5462: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
5463: l_int_value VARCHAR2(1000);
5464: l_err_msg_name VARCHAR2(30);
5600: IF (l_err_msg_name IS NOT NULL) THEN
5601:
5602: Debug_Msg('Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
5603:
5604: ERROR_HANDLER.Add_Error_Message(
5605: p_message_name => l_err_msg_name
5606: ,p_application_id => 'EGO'
5607: ,p_token_tbl => l_token_table
5608: ,p_message_type => FND_API.G_RET_STS_ERROR
6024: raise EGO_USER_ATTRS_COMMON_PVT.G_SUBSCRIPTION_EXC;
6025:
6026: WHEN OTHERS THEN
6027: DECLARE
6028: l_token_table ERROR_HANDLER.Token_Tbl_Type;
6029: BEGIN
6030: Debug_Msg('GOT EXCEPTION' || SQLERRM);
6031: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
6032: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
6034: l_token_table(2).TOKEN_VALUE := l_api_name;
6035: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
6036: l_token_table(3).TOKEN_VALUE := SQLERRM;
6037:
6038: ERROR_HANDLER.Add_Error_Message(
6039: p_message_name => 'EGO_PLSQL_ERR'
6040: ,p_application_id => 'EGO'
6041: ,p_token_tbl => l_token_table
6042: ,p_message_type => FND_API.G_RET_STS_ERROR
6069: ,x_return_status OUT NOCOPY VARCHAR2
6070: ) IS
6071:
6072: l_object_id NUMBER;
6073: l_token_table ERROR_HANDLER.Token_Tbl_Type;
6074: l_ext_table_metadata_obj EGO_EXT_TABLE_METADATA_OBJ;
6075: l_err_msg_name VARCHAR2(30);
6076:
6077: BEGIN
6088: l_token_table(1).TOKEN_NAME := 'OBJ_NAME';
6089: l_token_table(1).TOKEN_VALUE := p_object_name;
6090:
6091: l_err_msg_name := 'EGO_EF_NO_OBJ_ID_FOR_NAME';
6092: ERROR_HANDLER.Add_Error_Message(
6093: p_message_name => l_err_msg_name
6094: ,p_application_id => 'EGO'
6095: ,p_token_tbl => l_token_table
6096: ,p_message_type => FND_API.G_RET_STS_ERROR
6117:
6118: IF (l_ext_table_metadata_obj IS NULL) THEN
6119: l_token_table(1).TOKEN_NAME := 'OBJECT_NAME';
6120: l_token_table(1).TOKEN_VALUE := p_object_name;
6121: ERROR_HANDLER.Add_Error_Message(
6122: p_message_name => 'EGO_EF_EXT_TABLE_METADATA_ERR'
6123: ,p_application_id => 'EGO'
6124: ,p_token_tbl => l_token_table
6125: ,p_message_type => FND_API.G_RET_STS_ERROR
6137: ,p_class_code_name_value_pairs)) THEN
6138: l_token_table(1).TOKEN_NAME := 'OBJ_NAME';
6139: l_token_table(1).TOKEN_VALUE := p_object_name;
6140: l_err_msg_name := 'EGO_EF_EXT_TBL_COL_NAME_ERR';
6141: ERROR_HANDLER.Add_Error_Message(
6142: p_message_name => l_err_msg_name
6143: ,p_application_id => 'EGO'
6144: ,p_token_tbl => l_token_table
6145: ,p_message_type => FND_API.G_RET_STS_ERROR
6209: l_token_table(5).TOKEN_VALUE := l_ext_table_metadata_obj.pk_column_metadata(5).COL_NAME;
6210: l_token_table(6).TOKEN_NAME := 'OBJ_NAME';
6211: l_token_table(6).TOKEN_VALUE := p_object_name;
6212: END IF;
6213: ERROR_HANDLER.Add_Error_Message(
6214: p_message_name => l_err_msg_name
6215: ,p_application_id => 'EGO'
6216: ,p_token_tbl => l_token_table
6217: ,p_message_type => FND_API.G_RET_STS_ERROR
6252: l_privilege_table_index NUMBER;
6253: l_has_view_privilege BOOLEAN := FALSE;
6254: l_has_edit_privilege BOOLEAN := FALSE;
6255: l_error_message_name VARCHAR2(30);
6256: l_token_table ERROR_HANDLER.Token_Tbl_Type;
6257: l_view_privilege fnd_form_functions.function_name%TYPE;
6258: l_edit_privilege fnd_form_functions.function_name%TYPE;
6259:
6260: BEGIN
6369: l_token_table(1).TOKEN_VALUE := FND_GLOBAL.USER_NAME;
6370: l_token_table(2).TOKEN_NAME := 'AG_NAME';
6371: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
6372:
6373: ERROR_HANDLER.Add_Error_Message(
6374: p_message_name => l_error_message_name
6375: ,p_application_id => 'EGO'
6376: ,p_token_tbl => l_token_table
6377: ,p_message_type => FND_API.G_RET_STS_ERROR
6397: ,p_entity_id IN NUMBER DEFAULT NULL
6398: ,p_entity_index IN NUMBER DEFAULT NULL
6399: ,p_entity_code IN VARCHAR2 DEFAULT NULL
6400: ,p_debug_level IN NUMBER
6401: ,p_init_error_handler_flag IN BOOLEAN
6402: ,p_object_name IN VARCHAR2
6403: ,p_pk_column_name_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY
6404: ,p_class_code_name_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY
6405: ,p_init_fnd_msg_list IN VARCHAR2
6472:
6473: END IF;
6474:
6475: ---------------------------------------
6476: -- Set up ERROR_HANDLER if necessary --
6477: ---------------------------------------
6478: IF (p_init_error_handler_flag) THEN
6479:
6480: ERROR_HANDLER.Initialize();
6474:
6475: ---------------------------------------
6476: -- Set up ERROR_HANDLER if necessary --
6477: ---------------------------------------
6478: IF (p_init_error_handler_flag) THEN
6479:
6480: ERROR_HANDLER.Initialize();
6481:
6482: ----------------------------------------------------------
6476: -- Set up ERROR_HANDLER if necessary --
6477: ---------------------------------------
6478: IF (p_init_error_handler_flag) THEN
6479:
6480: ERROR_HANDLER.Initialize();
6481:
6482: ----------------------------------------------------------
6483: -- If we're debugging we have to set up a Debug session --
6484: ----------------------------------------------------------
6514:
6515: ----------------------------------------------------------------------
6516:
6517: PROCEDURE Close_Business_Object_Session (
6518: p_init_error_handler_flag IN BOOLEAN
6519: ,p_log_errors IN BOOLEAN
6520: ,p_write_to_concurrent_log IN BOOLEAN
6521: ) IS
6522:
6526: -- We log errors if we were told to do so --
6527: --------------------------------------------
6528: IF (p_log_errors) THEN
6529: IF (p_write_to_concurrent_log) THEN
6530: ERROR_HANDLER.Log_Error(
6531: p_write_err_to_inttable => 'Y'
6532: ,p_write_err_to_conclog => 'Y'
6533: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
6534: );
6529: IF (p_write_to_concurrent_log) THEN
6530: ERROR_HANDLER.Log_Error(
6531: p_write_err_to_inttable => 'Y'
6532: ,p_write_err_to_conclog => 'Y'
6533: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
6534: );
6535: ELSE
6536: ERROR_HANDLER.Log_Error(
6537: p_write_err_to_inttable => 'Y'
6532: ,p_write_err_to_conclog => 'Y'
6533: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
6534: );
6535: ELSE
6536: ERROR_HANDLER.Log_Error(
6537: p_write_err_to_inttable => 'Y'
6538: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
6539: );
6540: END IF;
6534: );
6535: ELSE
6536: ERROR_HANDLER.Log_Error(
6537: p_write_err_to_inttable => 'Y'
6538: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
6539: );
6540: END IF;
6541: END IF;
6542:
6568:
6569: --------------------------------------------------------------
6570: -- If we were debugging, we have to close the debug session --
6571: --------------------------------------------------------------
6572: IF (p_init_error_handler_flag AND
6573: G_DEBUG_OUTPUT_LEVEL > 0 AND
6574: ERROR_HANDLER.Get_Debug() = 'Y') THEN
6575:
6576: ERROR_HANDLER.Close_Debug_Session();
6570: -- If we were debugging, we have to close the debug session --
6571: --------------------------------------------------------------
6572: IF (p_init_error_handler_flag AND
6573: G_DEBUG_OUTPUT_LEVEL > 0 AND
6574: ERROR_HANDLER.Get_Debug() = 'Y') THEN
6575:
6576: ERROR_HANDLER.Close_Debug_Session();
6577: G_DEBUG_OUTPUT_LEVEL := 0;
6578:
6572: IF (p_init_error_handler_flag AND
6573: G_DEBUG_OUTPUT_LEVEL > 0 AND
6574: ERROR_HANDLER.Get_Debug() = 'Y') THEN
6575:
6576: ERROR_HANDLER.Close_Debug_Session();
6577: G_DEBUG_OUTPUT_LEVEL := 0;
6578:
6579: END IF;
6580:
6581: EXCEPTION
6582: WHEN OTHERS THEN
6583:
6584: ----------------------------------------------------------
6585: -- The ERROR_HANDLER call may fail for various reasons, --
6586: -- but we don't want that to halt our processing --
6587: ----------------------------------------------------------
6588: NULL;
6589:
7595: END IF;
7596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7597:
7598: DECLARE
7599: l_token_table ERROR_HANDLER.Token_Tbl_Type;
7600: BEGIN
7601: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
7602: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
7603: l_token_table(2).TOKEN_NAME := 'API_NAME';
7604: l_token_table(2).TOKEN_VALUE := l_api_name;
7605: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
7606: l_token_table(3).TOKEN_VALUE := SQLERRM;
7607:
7608: ERROR_HANDLER.Add_Error_Message(
7609: p_message_name => 'EGO_PLSQL_ERR'
7610: ,p_application_id => 'EGO'
7611: ,p_token_tbl => l_token_table
7612: ,p_message_type => FND_API.G_RET_STS_ERROR
8217: END IF;
8218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8219:
8220: DECLARE
8221: l_token_table ERROR_HANDLER.Token_Tbl_Type;
8222: BEGIN
8223: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
8224: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
8225: l_token_table(2).TOKEN_NAME := 'API_NAME';
8226: l_token_table(2).TOKEN_VALUE := l_api_name;
8227: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
8228: l_token_table(3).TOKEN_VALUE := SQLERRM;
8229:
8230: ERROR_HANDLER.Add_Error_Message(
8231: p_message_name => 'EGO_PLSQL_ERR'
8232: ,p_application_id => 'EGO'
8233: ,p_token_tbl => l_token_table
8234: ,p_message_type => FND_API.G_RET_STS_ERROR
8557: END IF;
8558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8559:
8560: DECLARE
8561: l_token_table ERROR_HANDLER.Token_Tbl_Type;
8562: BEGIN
8563: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
8564: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
8565: l_token_table(2).TOKEN_NAME := 'API_NAME';
8566: l_token_table(2).TOKEN_VALUE := l_api_name;
8567: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
8568: l_token_table(3).TOKEN_VALUE := SQLERRM;
8569:
8570: ERROR_HANDLER.Add_Error_Message(
8571: p_message_name => 'EGO_PLSQL_ERR'
8572: ,p_application_id => 'EGO'
8573: ,p_token_tbl => l_token_table
8574: ,p_message_type => FND_API.G_RET_STS_ERROR
8611: l_api_version CONSTANT NUMBER := 1.0;
8612:
8613: l_is_valid_row BOOLEAN := TRUE;
8614: l_err_msg_name VARCHAR2(30);
8615: l_token_table ERROR_HANDLER.Token_Tbl_Type;
8616: l_is_duplicate_attr BOOLEAN;
8617: l_duplicate_attr_index NUMBER;
8618: l_attr_value_index NUMBER;
8619: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
8643: ,x_err_msg_name => l_err_msg_name
8644: ,x_token_table => l_token_table)
8645: ) THEN
8646:
8647: ERROR_HANDLER.Add_Error_Message(
8648: p_message_name => l_err_msg_name
8649: ,p_application_id => 'EGO'
8650: ,p_token_tbl => l_token_table
8651: ,p_message_type => FND_API.G_RET_STS_ERROR
8708: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
8709:
8710: Debug_Msg(l_api_name ||'Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
8711:
8712: ERROR_HANDLER.Add_Error_Message(
8713: p_message_name => l_err_msg_name
8714: ,p_application_id => 'EGO'
8715: ,p_token_tbl => l_token_table
8716: ,p_message_type => FND_API.G_RET_STS_ERROR
8748: ,l_token_table)) THEN
8749:
8750: Debug_Msg(l_api_name ||'Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
8751:
8752: ERROR_HANDLER.Add_Error_Message(
8753: p_message_name => l_err_msg_name
8754: ,p_application_id => 'EGO'
8755: ,p_token_tbl => l_token_table
8756: ,p_message_type => FND_API.G_RET_STS_ERROR
8781: ,l_token_table)) THEN
8782:
8783: Debug_Msg(l_api_name ||'Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
8784:
8785: ERROR_HANDLER.Add_Error_Message(
8786: p_message_name => l_err_msg_name
8787: ,p_application_id => 'EGO'
8788: ,p_token_tbl => l_token_table
8789: ,p_message_type => FND_API.G_RET_STS_ERROR
8814: ,l_token_table)) THEN
8815:
8816: Debug_Msg(l_api_name ||'Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
8817:
8818: ERROR_HANDLER.Add_Error_Message(
8819: p_message_name => l_err_msg_name
8820: ,p_application_id => 'EGO'
8821: ,p_token_tbl => l_token_table
8822: ,p_message_type => FND_API.G_RET_STS_ERROR
8852: l_err_msg_name := 'EGO_EF_UOM_NOT_IN_UOM_CLASS';
8853:
8854: Debug_Msg(l_api_name ||'Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
8855:
8856: ERROR_HANDLER.Add_Error_Message(
8857: p_message_name => l_err_msg_name
8858: ,p_application_id => 'EGO'
8859: ,p_token_tbl => l_token_table
8860: ,p_message_type => FND_API.G_RET_STS_ERROR
8919: -- ERROR! TODO: handle this correctly
8920: l_err_msg_name := 'HIERARCHY SECURITY VALIDATION';
8921: Debug_Msg(l_api_name ||'Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
8922:
8923: ERROR_HANDLER.Add_Error_Message(
8924: p_message_name => l_err_msg_name
8925: ,p_application_id => 'EGO'
8926: ,p_token_tbl => l_token_table
8927: ,p_message_type => FND_API.G_RET_STS_ERROR
8946: -- ERROR! TODO: handle this correctly
8947: l_err_msg_name := 'HIERARCHY SECURITY VALIDATION';
8948: Debug_Msg(l_api_name ||'Adding '||l_err_msg_name||' to error table for row '||px_attr_name_value_pairs(px_attr_name_value_pairs.FIRST).ROW_IDENTIFIER);
8949:
8950: ERROR_HANDLER.Add_Error_Message(
8951: p_message_name => l_err_msg_name
8952: ,p_application_id => 'EGO'
8953: ,p_token_tbl => l_token_table
8954: ,p_message_type => FND_API.G_RET_STS_ERROR
9027: l_token_table(2).TOKEN_VALUE := l_api_name;
9028: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
9029: l_token_table(3).TOKEN_VALUE := SQLERRM;
9030:
9031: ERROR_HANDLER.Add_Error_Message(
9032: p_message_name => 'EGO_PLSQL_ERR'
9033: ,p_application_id => 'EGO'
9034: ,p_token_tbl => l_token_table
9035: ,p_message_type => FND_API.G_RET_STS_ERROR
9215: END IF;
9216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9217:
9218: DECLARE
9219: l_token_table ERROR_HANDLER.Token_Tbl_Type;
9220: BEGIN
9221: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
9222: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
9223: l_token_table(2).TOKEN_NAME := 'API_NAME';
9224: l_token_table(2).TOKEN_VALUE := l_api_name;
9225: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
9226: l_token_table(3).TOKEN_VALUE := SQLERRM;
9227:
9228: ERROR_HANDLER.Add_Error_Message(
9229: p_message_name => 'EGO_PLSQL_ERR'
9230: ,p_application_id => 'EGO'
9231: ,p_token_tbl => l_token_table
9232: ,p_message_type => FND_API.G_RET_STS_ERROR
9396: ,x_return_status OUT NOCOPY VARCHAR2
9397: ) IS
9398:
9399: l_api_name CONSTANT VARCHAR2(30) := 'Perform_Setup_Operations';
9400: l_token_table ERROR_HANDLER.Token_Tbl_Type;
9401: l_err_msg_name VARCHAR2(30);
9402:
9403: BEGIN
9404:
9427: ,p_entity_id => p_entity_id
9428: ,p_entity_index => p_entity_index
9429: ,p_entity_code => p_entity_code
9430: ,p_debug_level => p_debug_level
9431: ,p_init_error_handler_flag => (p_debug_level > 0)
9432: ,p_object_name => p_object_name
9433: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
9434: ,p_class_code_name_value_pairs => p_class_code_name_value_pairs
9435: ,p_init_fnd_msg_list => p_init_fnd_msg_list
9489: l_token_table(1).TOKEN_VALUE := p_attr_group_id;
9490:
9491: END IF;
9492:
9493: ERROR_HANDLER.Add_Error_Message(
9494: p_message_name => l_err_msg_name
9495: ,p_application_id => 'EGO'
9496: ,p_token_tbl => l_token_table
9497: ,p_message_type => FND_API.G_RET_STS_ERROR
9524: l_token_table.DELETE();
9525: l_token_table(1).TOKEN_NAME := 'OBJECT_NAME';
9526: l_token_table(1).TOKEN_VALUE := p_object_name;
9527:
9528: ERROR_HANDLER.Add_Error_Message(
9529: p_message_name => 'EGO_EF_EXT_TABLE_METADATA_ERR'
9530: ,p_application_id => 'EGO'
9531: ,p_token_tbl => l_token_table
9532: ,p_message_type => FND_API.G_RET_STS_ERROR
9634: l_token_table(2).TOKEN_VALUE := l_api_name;
9635: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
9636: l_token_table(3).TOKEN_VALUE := SQLERRM;
9637:
9638: ERROR_HANDLER.Add_Error_Message(
9639: p_message_name => 'EGO_PLSQL_ERR'
9640: ,p_application_id => 'EGO'
9641: ,p_token_tbl => l_token_table
9642: ,p_message_type => FND_API.G_RET_STS_ERROR
9676: ,p_entity_code IN VARCHAR2 DEFAULT NULL
9677: ,p_debug_level IN NUMBER DEFAULT 0
9678: ,p_validate_only IN VARCHAR2 DEFAULT FND_API.G_FALSE
9679: ,p_validate_hierarchy IN VARCHAR2 DEFAULT FND_API.G_TRUE
9680: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
9681: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
9682: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
9683: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
9684: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
9709: ,p_entity_code => p_entity_code
9710: ,p_debug_level => p_debug_level
9711: ,p_validate_only => p_validate_only --bug 5122295
9712: ,p_validate_hierarchy => p_validate_hierarchy
9713: ,p_init_error_handler => p_init_error_handler
9714: ,p_write_to_concurrent_log => p_write_to_concurrent_log
9715: ,p_init_fnd_msg_list => p_init_fnd_msg_list
9716: ,p_log_errors => p_log_errors
9717: ,p_add_errors_to_fnd_stack => p_add_errors_to_fnd_stack
9746: ,p_entity_code IN VARCHAR2 DEFAULT NULL
9747: ,p_debug_level IN NUMBER DEFAULT 0
9748: ,p_validate_only IN VARCHAR2 DEFAULT FND_API.G_FALSE
9749: ,p_validate_hierarchy IN VARCHAR2 DEFAULT FND_API.G_TRUE
9750: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
9751: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
9752: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
9753: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
9754: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
9818: ,p_entity_id => p_entity_id
9819: ,p_entity_index => p_entity_index
9820: ,p_entity_code => p_entity_code
9821: ,p_debug_level => p_debug_level
9822: ,p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
9823: ,p_object_name => p_object_name
9824: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
9825: ,p_class_code_name_value_pairs => p_class_code_name_value_pairs
9826: ,p_init_fnd_msg_list => p_init_fnd_msg_list
10043: -- Trim the trailing ',' from x_failed_row_id_list if necessary --
10044: ------------------------------------------------------------------
10045: x_failed_row_id_list := RTRIM(x_failed_row_id_list, ',');
10046:
10047: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10048:
10049: IF (x_msg_count > 0) THEN
10050:
10051: RAISE FND_API.G_EXC_ERROR;
10054:
10055: Debug_Msg('In Process_User_Attrs_Data, done', 1);
10056:
10057: Close_Business_Object_Session(
10058: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10059: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10060: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10061: );
10062:
10088: COMMIT WORK;
10089: END IF;
10090:
10091: Close_Business_Object_Session(
10092: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10093: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10094: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10095: );
10096:
10093: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10094: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10095: );
10096:
10097: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10098:
10099: IF (x_msg_count = 1) THEN
10100: DECLARE
10101: message_list ERROR_HANDLER.Error_Tbl_Type;
10097: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10098:
10099: IF (x_msg_count = 1) THEN
10100: DECLARE
10101: message_list ERROR_HANDLER.Error_Tbl_Type;
10102: BEGIN
10103: ERROR_HANDLER.Get_Message_List(message_list);
10104: x_msg_data := message_list(message_list.FIRST).message_text;
10105: END;
10099: IF (x_msg_count = 1) THEN
10100: DECLARE
10101: message_list ERROR_HANDLER.Error_Tbl_Type;
10102: BEGIN
10103: ERROR_HANDLER.Get_Message_List(message_list);
10104: x_msg_data := message_list(message_list.FIRST).message_text;
10105: END;
10106: ELSE
10107: x_msg_data := NULL;
10119:
10120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10121:
10122: DECLARE
10123: l_token_table ERROR_HANDLER.Token_Tbl_Type;
10124: BEGIN
10125: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
10126: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
10127: l_token_table(2).TOKEN_NAME := 'API_NAME';
10128: l_token_table(2).TOKEN_VALUE := l_api_name;
10129: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
10130: l_token_table(3).TOKEN_VALUE := SQLERRM;
10131:
10132: ERROR_HANDLER.Add_Error_Message(
10133: p_message_name => 'EGO_PLSQL_ERR'
10134: ,p_application_id => 'EGO'
10135: ,p_token_tbl => l_token_table
10136: ,p_message_type => FND_API.G_RET_STS_ERROR
10142: );
10143: END;
10144:
10145: Close_Business_Object_Session(
10146: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10147: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10148: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10149: );
10150:
10147: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10148: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10149: );
10150:
10151: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10152:
10153: IF (x_msg_count = 1) THEN
10154: DECLARE
10155: message_list ERROR_HANDLER.Error_Tbl_Type;
10151: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10152:
10153: IF (x_msg_count = 1) THEN
10154: DECLARE
10155: message_list ERROR_HANDLER.Error_Tbl_Type;
10156: BEGIN
10157: ERROR_HANDLER.Get_Message_List(message_list);
10158: x_msg_data := message_list(message_list.FIRST).message_text;
10159: END;
10153: IF (x_msg_count = 1) THEN
10154: DECLARE
10155: message_list ERROR_HANDLER.Error_Tbl_Type;
10156: BEGIN
10157: ERROR_HANDLER.Get_Message_List(message_list);
10158: x_msg_data := message_list(message_list.FIRST).message_text;
10159: END;
10160: ELSE
10161: x_msg_data := NULL;
10174: ,p_entity_id IN NUMBER DEFAULT NULL
10175: ,p_entity_index IN NUMBER DEFAULT NULL
10176: ,p_entity_code IN VARCHAR2 DEFAULT NULL
10177: ,p_debug_level IN NUMBER DEFAULT 0
10178: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
10179: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
10180: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
10181: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
10182: ,x_attributes_row_table OUT NOCOPY EGO_USER_ATTR_ROW_TABLE
10241: l_has_attrs VARCHAR2(1) :='N';
10242: l_curr_ag_vl_name VARCHAR2(30);
10243: l_curr_ag_table_name VARCHAR2(30);
10244:
10245: l_token_table ERROR_HANDLER.Token_Tbl_Type;
10246: l_curr_data_level_metadata EGO_DATA_LEVEL_METADATA_OBJ;
10247: l_curr_data_level_row_obj EGO_DATA_LEVEL_ROW_OBJ;
10248: l_has_data_level_col BOOLEAN := FALSE; -- TRUE is for R12C
10249: l_dl_view_privilege fnd_form_functions.function_name%TYPE;
10268: Debug_Msg(l_api_name||' p_entity_id => ' || p_entity_id, 3);
10269: Debug_Msg(l_api_name||' p_entity_index => ' || p_entity_index, 3);
10270: Debug_Msg(l_api_name||' p_entity_code => ' || p_entity_code, 3);
10271: Debug_Msg(l_api_name||' p_debug_level => ' || p_debug_level, 3);
10272: Debug_Msg(l_api_name||' p_init_error_handler_flag => ' || p_init_error_handler, 3);
10273: Debug_Msg(l_api_name||' p_object_name => ' || p_object_name, 3);
10274: Debug_Msg(l_api_name||' p_pk_column_name_value_pairs =>
10275: Debug_Msg(l_api_name||' p_class_code_name_value_pairs => NULL', 3);
10276: Debug_Msg(l_api_name||' p_init_fnd_msg_list => ' || p_init_fnd_msg_list, 3);
10287: ,p_entity_id => p_entity_id
10288: ,p_entity_index => p_entity_index
10289: ,p_entity_code => p_entity_code
10290: ,p_debug_level => p_debug_level
10291: ,p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10292: ,p_object_name => p_object_name
10293: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
10294: ,p_class_code_name_value_pairs => NULL -- SSARNOBA - I'm not sure if this should be null
10295: ,p_init_fnd_msg_list => p_init_fnd_msg_list
10427: l_token_table(2).TOKEN_VALUE := l_curr_ag_metadata_obj.attr_group_disp_name;
10428:
10429: -- The data level XXX is not associated with the attribute
10430: -- group XXX
10431: ERROR_HANDLER.Add_Error_Message(
10432: p_message_name => 'EGO_EF_DL_AG_INVALID'
10433: ,p_application_id => 'EGO'
10434: ,p_token_tbl => l_token_table
10435: ,p_message_type => FND_API.G_RET_STS_ERROR
10854: ------------------------------------------------------
10855: -- We log all errors we got as we close our session --
10856: ------------------------------------------------------
10857: Close_Business_Object_Session(
10858: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10859: ,p_log_errors => TRUE
10860: ,p_write_to_concurrent_log => FALSE
10861: );
10862:
11194: ------------------------------------------------------
11195: -- We log all errors we got as we close our session --
11196: ------------------------------------------------------
11197: Close_Business_Object_Session(
11198: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
11199: ,p_log_errors => TRUE
11200: ,p_write_to_concurrent_log => FALSE
11201: );
11202:
11217: ------------------------------------------------------
11218: -- We log all errors we got as we close our session --
11219: ------------------------------------------------------
11220: Close_Business_Object_Session(
11221: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
11222: ,p_log_errors => TRUE
11223: ,p_write_to_concurrent_log => FALSE
11224: );
11225:
11224: );
11225:
11226: x_return_status := FND_API.G_RET_STS_ERROR;
11227:
11228: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11229: IF (x_msg_count = 1) THEN
11230: DECLARE
11231: message_list ERROR_HANDLER.Error_Tbl_Type;
11232: BEGIN
11227:
11228: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11229: IF (x_msg_count = 1) THEN
11230: DECLARE
11231: message_list ERROR_HANDLER.Error_Tbl_Type;
11232: BEGIN
11233: ERROR_HANDLER.Get_Message_List(message_list);
11234: x_msg_data := message_list(message_list.FIRST).message_text;
11235: END;
11229: IF (x_msg_count = 1) THEN
11230: DECLARE
11231: message_list ERROR_HANDLER.Error_Tbl_Type;
11232: BEGIN
11233: ERROR_HANDLER.Get_Message_List(message_list);
11234: x_msg_data := message_list(message_list.FIRST).message_text;
11235: END;
11236: ELSE
11237: x_msg_data := NULL;
11250: ------------------------------------------------------
11251: -- We log all errors we got as we close our session --
11252: ------------------------------------------------------
11253: Close_Business_Object_Session(
11254: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
11255: ,p_log_errors => TRUE
11256: ,p_write_to_concurrent_log => FALSE
11257: );
11258:
11263: l_token_table(2).TOKEN_VALUE := l_api_name;
11264: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
11265: l_token_table(3).TOKEN_VALUE := SQLERRM;
11266:
11267: ERROR_HANDLER.Add_Error_Message(
11268: p_message_name => 'EGO_PLSQL_ERR'
11269: ,p_application_id => 'EGO'
11270: ,p_token_tbl => l_token_table
11271: ,p_message_type => FND_API.G_RET_STS_ERROR
11275: ,p_entity_code => p_entity_code
11276: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
11277: );
11278: l_token_table.DELETE();
11279: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11280:
11281: IF (x_msg_count = 1) THEN
11282: DECLARE
11283: message_list ERROR_HANDLER.Error_Tbl_Type;
11279: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11280:
11281: IF (x_msg_count = 1) THEN
11282: DECLARE
11283: message_list ERROR_HANDLER.Error_Tbl_Type;
11284: BEGIN
11285: ERROR_HANDLER.Get_Message_List(message_list);
11286: IF message_list IS NOT NULL AND message_list.count > 0 THEN
11287: x_msg_data := message_list(message_list.FIRST).message_text;
11281: IF (x_msg_count = 1) THEN
11282: DECLARE
11283: message_list ERROR_HANDLER.Error_Tbl_Type;
11284: BEGIN
11285: ERROR_HANDLER.Get_Message_List(message_list);
11286: IF message_list IS NOT NULL AND message_list.count > 0 THEN
11287: x_msg_data := message_list(message_list.FIRST).message_text;
11288: ELSE
11289: x_msg_data := 'Where from did I come here?? ';
11596:
11597: IF FND_API.To_Boolean(p_commit) THEN
11598: COMMIT WORK;
11599: END IF;
11600: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11601: IF (x_msg_count = 1) THEN
11602: DECLARE
11603: message_list ERROR_HANDLER.Error_Tbl_Type;
11604: BEGIN
11599: END IF;
11600: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11601: IF (x_msg_count = 1) THEN
11602: DECLARE
11603: message_list ERROR_HANDLER.Error_Tbl_Type;
11604: BEGIN
11605: ERROR_HANDLER.Get_Message_List(message_list);
11606: x_msg_data := message_list(message_list.FIRST).message_text;
11607: END;
11601: IF (x_msg_count = 1) THEN
11602: DECLARE
11603: message_list ERROR_HANDLER.Error_Tbl_Type;
11604: BEGIN
11605: ERROR_HANDLER.Get_Message_List(message_list);
11606: x_msg_data := message_list(message_list.FIRST).message_text;
11607: END;
11608: ELSE
11609: x_msg_data := NULL;
11612: WHEN OTHERS THEN
11613: Debug_Msg(l_api_name || ' EXCEPTION OTHERS '||SQLERRM);
11614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11615: DECLARE
11616: l_token_table ERROR_HANDLER.Token_Tbl_Type;
11617: BEGIN
11618: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
11619: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
11620: l_token_table(2).TOKEN_NAME := 'API_NAME';
11621: l_token_table(2).TOKEN_VALUE := l_api_name;
11622: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
11623: l_token_table(3).TOKEN_VALUE := SQLERRM;
11624:
11625: ERROR_HANDLER.Add_Error_Message(
11626: p_message_name => 'EGO_PLSQL_ERR'
11627: ,p_application_id => 'EGO'
11628: ,p_token_tbl => l_token_table
11629: ,p_message_type => FND_API.G_RET_STS_ERROR
11634: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
11635: );
11636: END;
11637:
11638: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11639:
11640: IF (x_msg_count = 1) THEN
11641: DECLARE
11642: message_list ERROR_HANDLER.Error_Tbl_Type;
11638: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11639:
11640: IF (x_msg_count = 1) THEN
11641: DECLARE
11642: message_list ERROR_HANDLER.Error_Tbl_Type;
11643: BEGIN
11644: ERROR_HANDLER.Get_Message_List(message_list);
11645: x_msg_data := message_list(message_list.FIRST).message_text;
11646: END;
11640: IF (x_msg_count = 1) THEN
11641: DECLARE
11642: message_list ERROR_HANDLER.Error_Tbl_Type;
11643: BEGIN
11644: ERROR_HANDLER.Get_Message_List(message_list);
11645: x_msg_data := message_list(message_list.FIRST).message_text;
11646: END;
11647: ELSE
11648: x_msg_data := NULL;
11769: RAISE FND_API.G_EXC_ERROR;
11770: END IF;
11771:
11772: Close_Business_Object_Session(
11773: p_init_error_handler_flag => FALSE
11774: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
11775: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
11776: );
11777:
11788: IF FND_API.To_Boolean(p_commit) THEN
11789: ROLLBACK TO Validate_Row_PUB;
11790: END IF;
11791: Close_Business_Object_Session(
11792: p_init_error_handler_flag => FALSE
11793: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
11794: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
11795: );
11796:
11793: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
11794: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
11795: );
11796:
11797: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11798: IF (x_msg_count = 1) THEN
11799: DECLARE
11800: message_list ERROR_HANDLER.Error_Tbl_Type;
11801: BEGIN
11796:
11797: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11798: IF (x_msg_count = 1) THEN
11799: DECLARE
11800: message_list ERROR_HANDLER.Error_Tbl_Type;
11801: BEGIN
11802: ERROR_HANDLER.Get_Message_List(message_list);
11803: x_msg_data := message_list(message_list.FIRST).message_text;
11804: END;
11798: IF (x_msg_count = 1) THEN
11799: DECLARE
11800: message_list ERROR_HANDLER.Error_Tbl_Type;
11801: BEGIN
11802: ERROR_HANDLER.Get_Message_List(message_list);
11803: x_msg_data := message_list(message_list.FIRST).message_text;
11804: END;
11805: ELSE
11806: x_msg_data := NULL;
11813: END IF;
11814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11815:
11816: DECLARE
11817: l_token_table ERROR_HANDLER.Token_Tbl_Type;
11818: BEGIN
11819: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
11820: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
11821: l_token_table(2).TOKEN_NAME := 'API_NAME';
11822: l_token_table(2).TOKEN_VALUE := l_api_name;
11823: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
11824: l_token_table(3).TOKEN_VALUE := SQLERRM;
11825:
11826: ERROR_HANDLER.Add_Error_Message(
11827: p_message_name => 'EGO_PLSQL_ERR'
11828: ,p_application_id => 'EGO'
11829: ,p_token_tbl => l_token_table
11830: ,p_message_type => FND_API.G_RET_STS_ERROR
11836: );
11837: END;
11838:
11839: Close_Business_Object_Session(
11840: p_init_error_handler_flag => FALSE
11841: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
11842: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
11843: );
11844:
11841: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
11842: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
11843: );
11844:
11845: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11846:
11847: IF (x_msg_count = 1) THEN
11848: DECLARE
11849: message_list ERROR_HANDLER.Error_Tbl_Type;
11845: x_msg_count := ERROR_HANDLER.Get_Message_Count();
11846:
11847: IF (x_msg_count = 1) THEN
11848: DECLARE
11849: message_list ERROR_HANDLER.Error_Tbl_Type;
11850: BEGIN
11851: ERROR_HANDLER.Get_Message_List(message_list);
11852: x_msg_data := message_list(message_list.FIRST).message_text;
11853: END;
11847: IF (x_msg_count = 1) THEN
11848: DECLARE
11849: message_list ERROR_HANDLER.Error_Tbl_Type;
11850: BEGIN
11851: ERROR_HANDLER.Get_Message_List(message_list);
11852: x_msg_data := message_list(message_list.FIRST).message_text;
11853: END;
11854: ELSE
11855: x_msg_data := NULL;
11939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11940: END IF;
11941:
11942: IF (FND_API.To_Boolean(p_init_fnd_msg_list)) THEN
11943: ERROR_HANDLER.Initialize();
11944: END IF;
11945:
11946: G_B_TABLE_DML := '';
11947: G_TL_TABLE_DML := '';
12082: x_b_bind_attr_table := l_b_dml_bind_list;
12083: x_tl_bind_attr_table := l_tl_dml_bind_list;
12084:
12085: Close_Business_Object_Session(
12086: p_init_error_handler_flag => (p_debug_level > 0)
12087: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12088: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12089: );
12090:
12101: WHEN FND_API.G_EXC_ERROR THEN
12102: Debug_Msg(l_api_name || ' EXCEPTION FND_API.G_EXC_ERROR');
12103:
12104: Close_Business_Object_Session(
12105: p_init_error_handler_flag => (p_debug_level > 0)
12106: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12107: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12108: );
12109:
12106: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12107: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12108: );
12109:
12110: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12111: IF (x_msg_count = 1) THEN
12112: DECLARE
12113: message_list ERROR_HANDLER.Error_Tbl_Type;
12114: BEGIN
12109:
12110: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12111: IF (x_msg_count = 1) THEN
12112: DECLARE
12113: message_list ERROR_HANDLER.Error_Tbl_Type;
12114: BEGIN
12115: ERROR_HANDLER.Get_Message_List(message_list);
12116: x_msg_data := message_list(message_list.FIRST).message_text;
12117: END;
12111: IF (x_msg_count = 1) THEN
12112: DECLARE
12113: message_list ERROR_HANDLER.Error_Tbl_Type;
12114: BEGIN
12115: ERROR_HANDLER.Get_Message_List(message_list);
12116: x_msg_data := message_list(message_list.FIRST).message_text;
12117: END;
12118: ELSE
12119: x_msg_data := NULL;
12122: WHEN OTHERS THEN
12123: Debug_Msg(l_api_name || ' EXCEPTION OTHERS '||SQLERRM);
12124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12125: DECLARE
12126: l_token_table ERROR_HANDLER.Token_Tbl_Type;
12127: BEGIN
12128: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
12129: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
12130: l_token_table(2).TOKEN_NAME := 'API_NAME';
12131: l_token_table(2).TOKEN_VALUE := l_api_name;
12132: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
12133: l_token_table(3).TOKEN_VALUE := SQLERRM;
12134:
12135: ERROR_HANDLER.Add_Error_Message(
12136: p_message_name => 'EGO_PLSQL_ERR'
12137: ,p_application_id => 'EGO'
12138: ,p_token_tbl => l_token_table
12139: ,p_message_type => FND_API.G_RET_STS_ERROR
12145: );
12146: END;
12147:
12148: Close_Business_Object_Session(
12149: p_init_error_handler_flag => (p_debug_level > 0)
12150: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12151: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12152: );
12153:
12150: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12151: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12152: );
12153:
12154: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12155:
12156: IF (x_msg_count = 1) THEN
12157: DECLARE
12158: message_list ERROR_HANDLER.Error_Tbl_Type;
12154: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12155:
12156: IF (x_msg_count = 1) THEN
12157: DECLARE
12158: message_list ERROR_HANDLER.Error_Tbl_Type;
12159: BEGIN
12160: ERROR_HANDLER.Get_Message_List(message_list);
12161: x_msg_data := message_list(message_list.FIRST).message_text;
12162: END;
12156: IF (x_msg_count = 1) THEN
12157: DECLARE
12158: message_list ERROR_HANDLER.Error_Tbl_Type;
12159: BEGIN
12160: ERROR_HANDLER.Get_Message_List(message_list);
12161: x_msg_data := message_list(message_list.FIRST).message_text;
12162: END;
12163: ELSE
12164: x_msg_data := NULL;
12395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12396: END IF;
12397:
12398: IF (FND_API.To_Boolean(p_init_fnd_msg_list)) THEN
12399: ERROR_HANDLER.Initialize();
12400: END IF;
12401: G_SYNC_TO_UPDATE := 'N';
12402: l_object_id := p_object_id;
12403: l_attr_name_value_pairs := p_attr_name_value_pairs;
12475: RAISE FND_API.G_EXC_ERROR;
12476: END IF;
12477:
12478: Close_Business_Object_Session(
12479: p_init_error_handler_flag => (p_debug_level > 0)
12480: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12481: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12482: );
12483:
12493: IF FND_API.To_Boolean(p_commit) THEN
12494: ROLLBACK TO Perform_DML_On_Row_PUB;
12495: END IF;
12496: Close_Business_Object_Session(
12497: p_init_error_handler_flag => (p_debug_level > 0)
12498: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12499: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12500: );
12501:
12498: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12499: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12500: );
12501:
12502: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12503: IF (x_msg_count = 1) THEN
12504: DECLARE
12505: message_list ERROR_HANDLER.Error_Tbl_Type;
12506: BEGIN
12501:
12502: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12503: IF (x_msg_count = 1) THEN
12504: DECLARE
12505: message_list ERROR_HANDLER.Error_Tbl_Type;
12506: BEGIN
12507: ERROR_HANDLER.Get_Message_List(message_list);
12508: x_msg_data := message_list(message_list.FIRST).message_text;
12509: END;
12503: IF (x_msg_count = 1) THEN
12504: DECLARE
12505: message_list ERROR_HANDLER.Error_Tbl_Type;
12506: BEGIN
12507: ERROR_HANDLER.Get_Message_List(message_list);
12508: x_msg_data := message_list(message_list.FIRST).message_text;
12509: END;
12510: ELSE
12511: x_msg_data := NULL;
12518: END IF;
12519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12520:
12521: DECLARE
12522: l_token_table ERROR_HANDLER.Token_Tbl_Type;
12523: BEGIN
12524: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
12525: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
12526: l_token_table(2).TOKEN_NAME := 'API_NAME';
12527: l_token_table(2).TOKEN_VALUE := l_api_name;
12528: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
12529: l_token_table(3).TOKEN_VALUE := SQLERRM;
12530:
12531: ERROR_HANDLER.Add_Error_Message(
12532: p_message_name => 'EGO_PLSQL_ERR'
12533: ,p_application_id => 'EGO'
12534: ,p_token_tbl => l_token_table
12535: ,p_message_type => FND_API.G_RET_STS_ERROR
12541: );
12542: END;
12543:
12544: Close_Business_Object_Session(
12545: p_init_error_handler_flag => (p_debug_level > 0)
12546: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12547: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12548: );
12549:
12546: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12547: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12548: );
12549:
12550: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12551:
12552: IF (x_msg_count = 1) THEN
12553: DECLARE
12554: message_list ERROR_HANDLER.Error_Tbl_Type;
12550: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12551:
12552: IF (x_msg_count = 1) THEN
12553: DECLARE
12554: message_list ERROR_HANDLER.Error_Tbl_Type;
12555: BEGIN
12556: ERROR_HANDLER.Get_Message_List(message_list);
12557: x_msg_data := message_list(message_list.FIRST).message_text;
12558: END;
12552: IF (x_msg_count = 1) THEN
12553: DECLARE
12554: message_list ERROR_HANDLER.Error_Tbl_Type;
12555: BEGIN
12556: ERROR_HANDLER.Get_Message_List(message_list);
12557: x_msg_data := message_list(message_list.FIRST).message_text;
12558: END;
12559: ELSE
12560: x_msg_data := NULL;
12606: l_at_start_of_row BOOLEAN;
12607: l_row_index NUMBER := 0;
12608: l_attr_group_metadata_obj EGO_ATTR_GROUP_METADATA_OBJ;
12609: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
12610: l_token_table ERROR_HANDLER.Token_Tbl_Type;
12611: l_attr_name_value_pairs EGO_USER_ATTR_DATA_TABLE;
12612: l_extension_id NUMBER;
12613: l_mode VARCHAR2(10);
12614: l_attr_group_ids_to_exclude VARCHAR2(16000);
12657: ------------------------------------------------------------------
12658: Set_Up_Business_Object_Session(
12659: p_bulkload_flag => FALSE
12660: ,p_debug_level => p_debug_level
12661: ,p_init_error_handler_flag => TRUE
12662: ,p_object_name => p_object_name
12663: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
12664: ,p_class_code_name_value_pairs => p_class_code_name_value_pairs
12665: ,p_init_fnd_msg_list => p_init_fnd_msg_list
13014:
13015: l_token_table(1).TOKEN_NAME := 'AG_ID';
13016: l_token_table(1).TOKEN_VALUE := l_templ_attr_rec.ATTRIBUTE_GROUP_ID;
13017:
13018: ERROR_HANDLER.Add_Error_Message(
13019: p_message_name => 'EGO_EF_ATTR_GROUP_ID_NOT_FOUND'
13020: ,p_application_id => 'EGO'
13021: ,p_token_tbl => l_token_table
13022: ,p_message_type => FND_API.G_RET_STS_ERROR
13039:
13040: l_token_table(1).TOKEN_NAME := 'ATTR_ID';
13041: l_token_table(1).TOKEN_VALUE := l_templ_attr_rec.ATTRIBUTE_ID;
13042:
13043: ERROR_HANDLER.Add_Error_Message(
13044: p_message_name => 'EGO_EF_ATTR_ID_NOT_FOUND'
13045: ,p_application_id => 'EGO'
13046: ,p_token_tbl => l_token_table
13047: ,p_message_type => FND_API.G_RET_STS_ERROR
13170: ROLLBACK TO Perform_DML_From_Template;
13171: END IF;
13172: x_return_status := FND_API.G_RET_STS_ERROR;
13173:
13174: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13175:
13176: IF (x_msg_count > 0) THEN
13177:
13178: ------------------------------------------------------
13178: ------------------------------------------------------
13179: -- We log all errors we got as we close our session --
13180: ------------------------------------------------------
13181: Close_Business_Object_Session(
13182: p_init_error_handler_flag => FALSE
13183: ,p_log_errors => TRUE
13184: ,p_write_to_concurrent_log => FALSE
13185: );
13186:
13185: );
13186:
13187: IF (x_msg_count = 1) THEN
13188: DECLARE
13189: message_list ERROR_HANDLER.Error_Tbl_Type;
13190: BEGIN
13191: ERROR_HANDLER.Get_Message_List(message_list);
13192: x_msg_data := message_list(message_list.FIRST).message_text;
13193: END;
13187: IF (x_msg_count = 1) THEN
13188: DECLARE
13189: message_list ERROR_HANDLER.Error_Tbl_Type;
13190: BEGIN
13191: ERROR_HANDLER.Get_Message_List(message_list);
13192: x_msg_data := message_list(message_list.FIRST).message_text;
13193: END;
13194: ELSE
13195: x_msg_data := NULL;
13209: l_token_table(2).TOKEN_VALUE := l_api_name;
13210: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
13211: l_token_table(3).TOKEN_VALUE := SQLERRM;
13212:
13213: ERROR_HANDLER.Add_Error_Message(
13214: p_message_name => 'EGO_PLSQL_ERR'
13215: ,p_application_id => 'EGO'
13216: ,p_token_tbl => l_token_table
13217: ,p_message_type => FND_API.G_RET_STS_ERROR
13218: ,p_row_identifier => l_row_index
13219: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
13220: );
13221:
13222: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13223:
13224: ------------------------------------------------------
13225: -- We log all errors we got as we close our session --
13226: ------------------------------------------------------
13224: ------------------------------------------------------
13225: -- We log all errors we got as we close our session --
13226: ------------------------------------------------------
13227: Close_Business_Object_Session(
13228: p_init_error_handler_flag => FALSE
13229: ,p_log_errors => TRUE
13230: ,p_write_to_concurrent_log => FALSE
13231: );
13232:
13231: );
13232:
13233: IF (x_msg_count = 1) THEN
13234: DECLARE
13235: message_list ERROR_HANDLER.Error_Tbl_Type;
13236: BEGIN
13237: ERROR_HANDLER.Get_Message_List(message_list);
13238: x_msg_data := message_list(message_list.FIRST).message_text;
13239: END;
13233: IF (x_msg_count = 1) THEN
13234: DECLARE
13235: message_list ERROR_HANDLER.Error_Tbl_Type;
13236: BEGIN
13237: ERROR_HANDLER.Get_Message_List(message_list);
13238: x_msg_data := message_list(message_list.FIRST).message_text;
13239: END;
13240: ELSE
13241: x_msg_data := NULL;
13257: ,p_new_data_level_id IN NUMBER DEFAULT NULL
13258: ,p_new_dtlevel_col_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
13259: ,p_new_cc_col_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
13260: ,p_attr_group_list IN VARCHAR2 DEFAULT NULL
13261: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
13262: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
13263: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
13264: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
13265: ,x_return_status OUT NOCOPY VARCHAR2
13342: IF (FND_API.To_Boolean(p_init_fnd_msg_list)) THEN
13343: FND_MSG_PUB.Initialize;
13344: END IF;
13345:
13346: -- Initialize ERROR_HANDLER if necessary
13347: IF (FND_API.To_Boolean(p_init_error_handler)) THEN
13348: ERROR_HANDLER.Initialize();
13349: END IF;
13350:
13343: FND_MSG_PUB.Initialize;
13344: END IF;
13345:
13346: -- Initialize ERROR_HANDLER if necessary
13347: IF (FND_API.To_Boolean(p_init_error_handler)) THEN
13348: ERROR_HANDLER.Initialize();
13349: END IF;
13350:
13351: -- Check for call compatibility
13344: END IF;
13345:
13346: -- Initialize ERROR_HANDLER if necessary
13347: IF (FND_API.To_Boolean(p_init_error_handler)) THEN
13348: ERROR_HANDLER.Initialize();
13349: END IF;
13350:
13351: -- Check for call compatibility
13352: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
13820: ROLLBACK TO Copy_User_Attrs_Data_PUB;
13821: END IF;
13822: x_return_status := FND_API.G_RET_STS_ERROR;
13823:
13824: ERROR_HANDLER.Add_Error_Message(
13825: p_message_name => x_msg_data
13826: ,p_application_id => 'EGO'
13827: ,p_message_type => FND_API.G_RET_STS_ERROR
13828: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
13835: END IF;
13836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13837:
13838: DECLARE
13839: l_token_table ERROR_HANDLER.Token_Tbl_Type;
13840: BEGIN
13841: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
13842: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
13843: l_token_table(2).TOKEN_NAME := 'API_NAME';
13844: l_token_table(2).TOKEN_VALUE := l_api_name;
13845: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
13846: l_token_table(3).TOKEN_VALUE := SQLERRM;
13847:
13848: ERROR_HANDLER.Add_Error_Message(
13849: p_message_name => 'EGO_PLSQL_ERR'
13850: ,p_application_id => 'EGO'
13851: ,p_token_tbl => l_token_table
13852: ,p_message_type => FND_API.G_RET_STS_ERROR
13913: l_current_pending_ext_id NUMBER;
13914: l_current_column_name VARCHAR2(30);
13915: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
13916: l_dummy_err_msg_name VARCHAR2(30);
13917: l_token_table ERROR_HANDLER.Token_Tbl_Type;
13918: l_attr_name_value_pairs EGO_USER_ATTR_DATA_TABLE := EGO_USER_ATTR_DATA_TABLE();
13919: l_uom_column_nv_pairs LOCAL_COL_NV_PAIR_TABLE;
13920: l_uom_nv_pairs_index NUMBER := 0;
13921: l_current_uom_col_nv_obj EGO_COL_NAME_VALUE_PAIR_OBJ;
13936: IF FND_API.To_Boolean(p_commit) THEN
13937: SAVEPOINT Implement_Change_Line_PUB;
13938: END IF;
13939:
13940: -- Initialize FND_MSG_PUB and ERROR_HANDLER if necessary
13941: IF (FND_API.To_Boolean(p_init_msg_list)) THEN
13942: FND_MSG_PUB.Initialize;
13943: ERROR_HANDLER.Initialize;
13944: END IF;
13939:
13940: -- Initialize FND_MSG_PUB and ERROR_HANDLER if necessary
13941: IF (FND_API.To_Boolean(p_init_msg_list)) THEN
13942: FND_MSG_PUB.Initialize;
13943: ERROR_HANDLER.Initialize;
13944: END IF;
13945:
13946: -- Check for call compatibility
13947: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
14793: -----------------------------------------------------------------
14794: -- If Process_Row didn't return any errors, make one ourselves --
14795: -----------------------------------------------------------------
14796: IF (x_msg_data IS NULL AND x_msg_count = 0) THEN
14797: ERROR_HANDLER.Add_Error_Message(
14798: p_message_name => 'EGO_EF_IMPLEMENT_ERR'
14799: ,p_application_id => 'EGO'
14800: ,p_message_type => FND_API.G_RET_STS_ERROR
14801: ,p_addto_fnd_stack => 'Y'
14803: END IF;
14804:
14805: -------------------------------------------------------------------
14806: -- If Process_Row had more than one error, return the first one --
14807: -- (or else return the one we just added to ERROR_HANDLER above) --
14808: -------------------------------------------------------------------
14809: IF (x_msg_data IS NULL AND x_msg_count > 0) THEN
14810: DECLARE
14811: message_list ERROR_HANDLER.Error_Tbl_Type;
14807: -- (or else return the one we just added to ERROR_HANDLER above) --
14808: -------------------------------------------------------------------
14809: IF (x_msg_data IS NULL AND x_msg_count > 0) THEN
14810: DECLARE
14811: message_list ERROR_HANDLER.Error_Tbl_Type;
14812: BEGIN
14813: ERROR_HANDLER.Get_Message_List(message_list);
14814: x_msg_data := message_list(message_list.FIRST).message_text;
14815: END;
14809: IF (x_msg_data IS NULL AND x_msg_count > 0) THEN
14810: DECLARE
14811: message_list ERROR_HANDLER.Error_Tbl_Type;
14812: BEGIN
14813: ERROR_HANDLER.Get_Message_List(message_list);
14814: x_msg_data := message_list(message_list.FIRST).message_text;
14815: END;
14816: END IF;
14817:
14835: l_token_table(2).TOKEN_VALUE := l_api_name;
14836: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
14837: l_token_table(3).TOKEN_VALUE := SQLERRM;
14838:
14839: ERROR_HANDLER.Add_Error_Message(
14840: p_message_name => 'EGO_PLSQL_ERR'
14841: ,p_application_id => 'EGO'
14842: ,p_token_tbl => l_token_table
14843: ,p_message_type => FND_API.G_RET_STS_ERROR
14843: ,p_message_type => FND_API.G_RET_STS_ERROR
14844: ,p_addto_fnd_stack => 'Y'
14845: );
14846:
14847: ERROR_HANDLER.Get_Message(x_message_text => x_msg_data
14848: ,x_entity_index => l_dummy_entity_index
14849: ,x_entity_id => l_dummy_entity_id
14850: ,x_message_type => l_dummy_message_type);
14851: END;
14890: l_cursor NUMBER;
14891: l_row_count NUMBER;
14892: l_str VARCHAR2(200);
14893:
14894: l_token_table ERROR_HANDLER.Token_Tbl_Type;
14895: l_has_data_level_id BOOLEAN := FALSE; -- TRUE is for R12C
14896:
14897: -- In EGOBETRU.sql, we have the following type declaration:
14898: -- TYPE LOCAL_VARCHAR_TABLE IS TABLE OF VARCHAR2(80)
15025: l_token_table(1).TOKEN_NAME := 'DL_NAME';
15026: l_token_table(1).TOKEN_VALUE := p_data_level;
15027: l_token_table(2).TOKEN_NAME := 'AG_NAME';
15028: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.attr_group_disp_name;
15029: ERROR_HANDLER.Add_Error_Message(
15030: p_message_name => 'EGO_EF_DL_AG_INVALID'
15031: ,p_application_id => 'EGO'
15032: ,p_token_tbl => l_token_table
15033: ,p_message_type => FND_API.G_RET_STS_ERROR
15180: l_return_status VARCHAR2(1);
15181: l_msg_count NUMBER;
15182: l_msg_data VARCHAR2(1000);
15183:
15184: l_token_table ERROR_HANDLER.Token_Tbl_Type;
15185: l_has_data_level_id BOOLEAN := TRUE; -- TRUE is for R12C
15186: l_curr_data_level_metadata EGO_DATA_LEVEL_METADATA_OBJ := NULL;
15187: l_curr_data_level_row_obj EGO_DATA_LEVEL_ROW_OBJ;
15188:
15295: l_token_table(1).TOKEN_NAME := 'DL_NAME';
15296: l_token_table(1).TOKEN_VALUE := p_data_level;
15297: l_token_table(2).TOKEN_NAME := 'AG_NAME';
15298: l_token_table(2).TOKEN_VALUE := l_attr_group_metadata_obj.attr_group_name;
15299: ERROR_HANDLER.Add_Error_Message(
15300: p_message_name => 'EGO_EF_DL_AG_INVALID'
15301: ,p_application_id => 'EGO'
15302: ,p_token_tbl => l_token_table
15303: ,p_message_type => FND_API.G_RET_STS_ERROR
15546: l_error_mesg VARCHAR2(512);
15547:
15548: BEGIN
15549:
15550: IF (ERROR_HANDLER.Get_Debug() = 'N') THEN
15551:
15552: IF (p_debug_level > 0) THEN
15553:
15554: SELECT VALUE
15567: IF (INSTR(l_output_dir, ',') > 0) THEN
15568: l_output_dir := SUBSTR(l_output_dir, 1, INSTR(l_output_dir, ',') - 1);
15569: END IF;
15570:
15571: ERROR_HANDLER.Open_Debug_Session(
15572: p_debug_filename => 'EGO_USER_ATTRS_DATA_PVT-'||TO_CHAR(SYSDATE, 'J.SSSSS')||'.log'
15573: ,p_output_dir => l_output_dir
15574: ,x_return_status => l_return_status
15575: ,x_error_mesg => l_error_mesg
15576: );
15577:
15578: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15579:
15580: ERROR_HANDLER.Add_Error_Message(
15581: p_message_text => l_error_mesg
15582: ,p_message_type => 'E'
15583: ,p_entity_code => p_entity_code
15584: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
16842: ,p_entity_id IN NUMBER DEFAULT NULL
16843: ,p_entity_index IN NUMBER DEFAULT NULL
16844: ,p_entity_code IN VARCHAR2 DEFAULT NULL
16845: ,p_debug_level IN NUMBER DEFAULT 0
16846: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_TRUE
16847: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
16848: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
16849: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
16850: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
16862: -- request table for ALL attribute groups of the object
16863: l_request_table_batch_iter EGO_ATTR_GROUP_REQUEST_TABLE;
16864: -- request table for one batch of attribute groups
16865: l_attributes_req_table EGO_USER_ATTR_TABLE;
16866: l_token_table ERROR_HANDLER.Token_Tbl_Type;
16867:
16868: BEGIN
16869:
16870: Debug_Msg(l_api_name ||' starting', 2);
16940: ,p_entity_id => p_entity_id
16941: ,p_entity_index => p_entity_index
16942: ,p_entity_code => p_entity_code
16943: ,p_debug_level => p_debug_level
16944: ,p_init_error_handler => p_init_error_handler
16945: ,p_init_fnd_msg_list => p_init_fnd_msg_list
16946: ,p_add_errors_to_fnd_stack => p_add_errors_to_fnd_stack
16947: ,x_attributes_row_table => l_attributes_row_table
16948: ,x_attributes_data_table => l_attributes_data_table
17000: l_token_table(2).TOKEN_VALUE := l_api_name;
17001: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
17002: l_token_table(3).TOKEN_VALUE := SQLERRM;
17003:
17004: ERROR_HANDLER.Add_Error_Message(
17005: p_message_name => 'EGO_PLSQL_ERR'
17006: ,p_application_id => 'EGO'
17007: ,p_token_tbl => l_token_table
17008: ,p_message_type => FND_API.G_RET_STS_ERROR
17127: ,p_entity_id IN NUMBER DEFAULT NULL
17128: ,p_entity_index IN NUMBER DEFAULT NULL
17129: ,p_entity_code IN VARCHAR2 DEFAULT NULL
17130: ,p_debug_level IN NUMBER DEFAULT 0
17131: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
17132: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
17133: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
17134: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
17135: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
17225: END IF;
17226: Debug_Msg(l_api_name ||' addl class codes: '||p_additional_class_Code_list);
17227: Debug_Msg(l_api_name ||' entity id: '||p_entity_id||' entity index: '||p_entity_index);
17228: Debug_Msg(l_api_name ||' entity code: '||p_entity_code||' debug level: '||p_debug_level);
17229: Debug_Msg(l_api_name ||' init error handler: '||p_init_error_handler||' write conc log: '||p_write_to_concurrent_log);
17230: Debug_Msg(l_api_name ||' init msg list: '||p_init_fnd_msg_list||' log errors: '||p_log_errors);
17231: Debug_Msg(l_api_name ||' add error to stack: '||p_add_errors_to_fnd_stack||' commit flag: '||p_commit);
17232:
17233: SELECT FLEX.APPLICATION_TABLE_NAME EXT_TABLE_NAME,
17639: ,p_entity_id => p_entity_id
17640: ,p_entity_index => p_entity_index
17641: ,p_entity_code => p_entity_code
17642: ,p_debug_level => p_debug_level
17643: ,p_init_error_handler => p_init_error_handler
17644: ,p_write_to_concurrent_log => p_write_to_concurrent_log
17645: ,p_init_fnd_msg_list => p_init_fnd_msg_list
17646: ,p_log_errors => p_log_errors
17647: ,p_add_errors_to_fnd_stack => p_add_errors_to_fnd_stack