[Home] [Help]
185: IF (LENGTH(p_message) > 200) THEN
186: Debug_Msg(SUBSTR(p_message, 1, 200), p_level_of_debug);
187: Debug_Msg(SUBSTR(p_message, 201), p_level_of_debug);
188: ELSIF (LENGTH(p_message) > 0) THEN
189: ERROR_HANDLER.Write_Debug('['||TO_CHAR(SYSDATE, EGO_USER_ATTRS_COMMON_PVT.G_DATE_FORMAT)||'] '||p_message);
190: -- dbms_output.put_line(p_message);
191: END IF;
192: END Debug_Msg;
193:
2558: l_replacement_attr_metadata EGO_ATTR_METADATA_OBJ;
2559: l_replacement_attr_data EGO_USER_ATTR_DATA_OBJ;
2560: l_retrieved_value VARCHAR2(4000); --bug 12979914
2561: l_error_message_name VARCHAR2(30);
2562: l_token_table ERROR_HANDLER.Token_Tbl_Type;
2563: l_cursor_id NUMBER;
2564: l_dynamic_sql VARCHAR2(32767);
2565: l_number_of_rows NUMBER;
2566:
2675: l_token_table(3).TOKEN_VALUE := l_source_of_replacement;
2676: l_token_table(4).TOKEN_NAME := 'OBJ_NAME';
2677: l_token_table(4).TOKEN_VALUE := p_ext_table_metadata_obj.OBJ_NAME;
2678:
2679: ERROR_HANDLER.Add_Error_Message(
2680: p_message_name => l_error_message_name
2681: ,p_application_id => 'EGO'
2682: ,p_token_tbl => l_token_table
2683: ,p_message_type => FND_API.G_RET_STS_ERROR
2719: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
2720: l_token_table(3).TOKEN_NAME := 'BAD_ATTR_NAME';
2721: l_token_table(3).TOKEN_VALUE := l_source_of_replacement;
2722:
2723: ERROR_HANDLER.Add_Error_Message(
2724: p_message_name => l_error_message_name
2725: ,p_application_id => 'EGO'
2726: ,p_token_tbl => l_token_table
2727: ,p_message_type => FND_API.G_RET_STS_ERROR
3662: BEGIN
3663:
3664: --------------------------------------------------------------
3665: -- If there are more than 5 Unique Key Attributes, we try --
3666: -- to make a list of them all; however, since ERROR_HANDLER --
3667: -- tokens can only be 100 bytes, we may well not be able --
3668: -- to provide a complete list. In that case, we tokenize --
3669: -- the message with another message that basically says, --
3670: -- "(the list is too long to display here)" --
3682:
3683: EXCEPTION
3684: WHEN OTHERS THEN
3685: Debug_Msg(' Fetch_UK_Attr_Names_List EXCEPTION OTHERS - '||SQLERRM);
3686: RETURN ERROR_HANDLER.Translate_Message('EGO', 'EGO_UK_TOO_LONG_TO_LIST');
3687:
3688: END Fetch_UK_Attr_Names_List;
3689:
3690: ----------------------------------------------------------------------
3692: PROCEDURE Get_Err_Info_For_UK_Not_Resp (
3693: p_attr_group_metadata_obj IN EGO_ATTR_GROUP_METADATA_OBJ
3694: ,p_is_err_in_production_table IN BOOLEAN
3695: ,x_unique_key_err_msg OUT NOCOPY VARCHAR2
3696: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
3697: ) IS
3698:
3699: l_uk_attr_names_table LOCAL_MEDIUM_VARCHAR_TABLE;
3700:
3791: p_entity_code IN VARCHAR2 DEFAULT NULL,
3792: p_attr_name_value_pairs IN EGO_USER_ATTR_DATA_TABLE,
3793: p_is_err_in_production_table IN BOOLEAN,
3794: x_unique_key_err_msg OUT NOCOPY VARCHAR2,
3795: x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type) IS
3796:
3797: l_uk_attr_names_table LOCAL_MEDIUM_VARCHAR_TABLE;
3798: l_uk_attr_values_table LOCAL_BIG_VARCHAR_TABLE;
3799:
3946: l_extra_pk_present BOOLEAN;
3947: l_production_ext_id NUMBER;
3948: l_pending_ext_id NUMBER;
3949: l_error_message_name VARCHAR2(30);
3950: l_token_table ERROR_HANDLER.Token_Tbl_Type;
3951:
3952: BEGIN
3953:
3954: Debug_Msg('In Get_Extension_Id_And_Mode, starting with p_mode as '||p_mode||' and p_extension_id as '||p_extension_id, 2);
4221: -- Whatever error message we built in the preceding lines, we now log --
4222: ------------------------------------------------------------------------
4223: IF (l_error_message_name IS NOT NULL) THEN
4224:
4225: ERROR_HANDLER.Add_Error_Message(
4226: p_message_name => l_error_message_name
4227: ,p_application_id => 'EGO'
4228: ,p_token_tbl => l_token_table
4229: ,p_message_type => FND_API.G_RET_STS_ERROR
4274:
4275: l_token_table(1).TOKEN_NAME := 'AG_NAME';
4276: l_token_table(1).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
4277:
4278: ERROR_HANDLER.Add_Error_Message(
4279: p_message_name => l_error_message_name
4280: ,p_application_id => 'EGO'
4281: ,p_token_tbl => l_token_table
4282: ,p_message_type => FND_API.G_RET_STS_ERROR
4297:
4298: l_token_table(1).TOKEN_NAME := 'AG_NAME';
4299: l_token_table(1).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
4300:
4301: ERROR_HANDLER.Add_Error_Message(
4302: p_message_name => l_error_message_name
4303: ,p_application_id => 'EGO'
4304: ,p_token_tbl => l_token_table
4305: ,p_message_type => FND_API.G_RET_STS_ERROR
4337:
4338: l_token_table(1).TOKEN_NAME := 'AG_NAME';
4339: l_token_table(1).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
4340:
4341: ERROR_HANDLER.Add_Error_Message(
4342: p_message_name => l_error_message_name
4343: ,p_application_id => 'EGO'
4344: ,p_token_tbl => l_token_table
4345: ,p_message_type => FND_API.G_RET_STS_ERROR
4372: l_token_table(2).TOKEN_VALUE := l_api_name;
4373: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
4374: l_token_table(3).TOKEN_VALUE := SQLERRM;
4375:
4376: ERROR_HANDLER.Add_Error_Message(
4377: p_message_name => 'EGO_PLSQL_ERR'
4378: ,p_application_id => 'EGO'
4379: ,p_token_tbl => l_token_table
4380: ,p_message_type => FND_API.G_RET_STS_ERROR
4398: )
4399: RETURN BOOLEAN
4400: IS
4401:
4402: l_token_table ERROR_HANDLER.Token_Tbl_Type;
4403: l_attr_count NUMBER;
4404: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
4405: l_all_exist BOOLEAN := TRUE;
4406:
4432: l_all_exist := FALSE;
4433:
4434: l_token_table(1).TOKEN_VALUE := p_attr_name_value_pairs(l_attr_count).ATTR_NAME;
4435:
4436: ERROR_HANDLER.Add_Error_Message(
4437: p_message_name => 'EGO_EF_ATTR_DOES_NOT_EXIST'
4438: ,p_application_id => 'EGO'
4439: ,p_token_tbl => l_token_table
4440: ,p_message_type => FND_API.G_RET_STS_ERROR
4582: ,p_data_level IN VARCHAR2 DEFAULT NULL --R12C
4583: ,p_data_level_name_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY
4584: ,p_attr_group_disp_name IN VARCHAR2
4585: ,x_err_msg_name OUT NOCOPY VARCHAR2
4586: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
4587: )
4588: RETURN BOOLEAN IS
4589:
4590: l_api_name VARCHAR2(50) := 'Is_Data_Level_Correct';
5046: ,p_mode IN VARCHAR2
5047: ,p_attr_value_obj IN EGO_USER_ATTR_DATA_OBJ
5048: ,p_attr_group_disp_name IN VARCHAR2
5049: ,x_err_msg_name OUT NOCOPY VARCHAR2
5050: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
5051: )
5052: RETURN BOOLEAN
5053: IS
5054:
5118: p_attr_metadata_obj IN EGO_ATTR_METADATA_OBJ
5119: ,p_attr_value_obj IN EGO_USER_ATTR_DATA_OBJ
5120: ,p_attr_group_disp_name IN VARCHAR2
5121: ,x_err_msg_name OUT NOCOPY VARCHAR2
5122: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
5123: )
5124: RETURN BOOLEAN
5125: IS
5126:
5334: p_attr_metadata_obj IN EGO_ATTR_METADATA_OBJ
5335: ,p_attr_value_obj IN EGO_USER_ATTR_DATA_OBJ
5336: ,p_attr_group_disp_name IN VARCHAR2
5337: ,x_err_msg_name OUT NOCOPY VARCHAR2
5338: ,x_token_table OUT NOCOPY ERROR_HANDLER.Token_Tbl_Type
5339: )
5340: RETURN BOOLEAN
5341: IS
5342:
5474: l_int_value VARCHAR2(4000); -- Bug 8757354
5475: l_disp_value VARCHAR2(4000); -- Bug 8757354
5476: l_is_val_set_respected BOOLEAN := TRUE;
5477: l_err_msg_name VARCHAR2(30);
5478: l_token_table ERROR_HANDLER.Token_Tbl_Type;
5479:
5480: BEGIN
5481:
5482: Debug_Msg('In Is_Value_Set_Respected, starting', 2);
5672: -- functions we called, then we need to log it now --
5673: ----------------------------------------------------------
5674: IF (NOT l_is_val_set_respected AND l_err_msg_name IS NOT NULL) THEN
5675:
5676: ERROR_HANDLER.Add_Error_Message(
5677: p_message_name => l_err_msg_name
5678: ,p_application_id => 'EGO'
5679: ,p_token_tbl => l_token_table
5680: ,p_message_type => FND_API.G_RET_STS_ERROR
5722: l_metadata_table_index NUMBER;
5723: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
5724: l_passed_attrs_table_index NUMBER;
5725: l_already_processed BOOLEAN;
5726: l_token_table ERROR_HANDLER.Token_Tbl_Type;
5727:
5728: BEGIN
5729:
5730: l_token_table(1).TOKEN_NAME := 'ATTR_NAME';
5806: Debug_Msg('In Verify_All_Required_Attrs, non-passed required Attribute '||l_attr_metadata_obj.ATTR_DISP_NAME||' has no default value');
5807:
5808: l_token_table(1).TOKEN_VALUE := l_attr_metadata_obj.ATTR_DISP_NAME;
5809:
5810: ERROR_HANDLER.Add_Error_Message(
5811: p_message_name => 'EGO_EF_NO_VAL_FOR_REQ_ATTR'
5812: ,p_application_id => 'EGO'
5813: ,p_token_tbl => l_token_table
5814: ,p_message_type => FND_API.G_RET_STS_ERROR
5851: l_attr_name_list VARCHAR2(3000) := p_attr_name_list;
5852: l_attr_name_table LOCAL_VARCHAR_TABLE;
5853: l_next_attr_name VARCHAR2(30);
5854: l_candidate_attr EGO_ATTR_METADATA_OBJ;
5855: l_token_table ERROR_HANDLER.Token_Tbl_Type;
5856: l_metadata_table_index NUMBER;
5857: l_found_bad_names BOOLEAN := FALSE;
5858:
5859: BEGIN
5898: l_token_table(1).TOKEN_VALUE := l_next_attr_name;
5899: l_token_table(2).TOKEN_NAME := 'AG_NAME';
5900: l_token_table(2).TOKEN_VALUE := p_attr_group_disp_name;
5901:
5902: ERROR_HANDLER.Add_Error_Message(
5903: p_message_name => 'EGO_EF_ATTR_DOES_NOT_EXIST'
5904: ,p_application_id => 'EGO'
5905: ,p_token_tbl => l_token_table
5906: ,p_message_type => FND_API.G_RET_STS_ERROR
5951: ,px_attr_name_value_pairs IN OUT NOCOPY EGO_USER_ATTR_DATA_TABLE
5952: ,x_return_status OUT NOCOPY VARCHAR2
5953: ) IS
5954:
5955: l_token_table ERROR_HANDLER.Token_Tbl_Type;
5956: l_attr_value_index NUMBER;
5957: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
5958: l_int_value VARCHAR2(4000); -- Bug 8757354
5959: l_err_msg_name VARCHAR2(30);
6095: IF (l_err_msg_name IS NOT NULL) THEN
6096:
6097: 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);
6098:
6099: ERROR_HANDLER.Add_Error_Message(
6100: p_message_name => l_err_msg_name
6101: ,p_application_id => 'EGO'
6102: ,p_token_tbl => l_token_table
6103: ,p_message_type => FND_API.G_RET_STS_ERROR
6519: raise EGO_USER_ATTRS_COMMON_PVT.G_SUBSCRIPTION_EXC;
6520:
6521: WHEN OTHERS THEN
6522: DECLARE
6523: l_token_table ERROR_HANDLER.Token_Tbl_Type;
6524: BEGIN
6525: Debug_Msg('GOT EXCEPTION' || SQLERRM);
6526: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
6527: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
6529: l_token_table(2).TOKEN_VALUE := l_api_name;
6530: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
6531: l_token_table(3).TOKEN_VALUE := SQLERRM;
6532:
6533: ERROR_HANDLER.Add_Error_Message(
6534: p_message_name => 'EGO_PLSQL_ERR'
6535: ,p_application_id => 'EGO'
6536: ,p_token_tbl => l_token_table
6537: ,p_message_type => FND_API.G_RET_STS_ERROR
6564: ,x_return_status OUT NOCOPY VARCHAR2
6565: ) IS
6566:
6567: l_object_id NUMBER;
6568: l_token_table ERROR_HANDLER.Token_Tbl_Type;
6569: l_ext_table_metadata_obj EGO_EXT_TABLE_METADATA_OBJ;
6570: l_err_msg_name VARCHAR2(30);
6571:
6572: BEGIN
6583: l_token_table(1).TOKEN_NAME := 'OBJ_NAME';
6584: l_token_table(1).TOKEN_VALUE := p_object_name;
6585:
6586: l_err_msg_name := 'EGO_EF_NO_OBJ_ID_FOR_NAME';
6587: ERROR_HANDLER.Add_Error_Message(
6588: p_message_name => l_err_msg_name
6589: ,p_application_id => 'EGO'
6590: ,p_token_tbl => l_token_table
6591: ,p_message_type => FND_API.G_RET_STS_ERROR
6612:
6613: IF (l_ext_table_metadata_obj IS NULL) THEN
6614: l_token_table(1).TOKEN_NAME := 'OBJECT_NAME';
6615: l_token_table(1).TOKEN_VALUE := p_object_name;
6616: ERROR_HANDLER.Add_Error_Message(
6617: p_message_name => 'EGO_EF_EXT_TABLE_METADATA_ERR'
6618: ,p_application_id => 'EGO'
6619: ,p_token_tbl => l_token_table
6620: ,p_message_type => FND_API.G_RET_STS_ERROR
6632: ,p_class_code_name_value_pairs)) THEN
6633: l_token_table(1).TOKEN_NAME := 'OBJ_NAME';
6634: l_token_table(1).TOKEN_VALUE := p_object_name;
6635: l_err_msg_name := 'EGO_EF_EXT_TBL_COL_NAME_ERR';
6636: ERROR_HANDLER.Add_Error_Message(
6637: p_message_name => l_err_msg_name
6638: ,p_application_id => 'EGO'
6639: ,p_token_tbl => l_token_table
6640: ,p_message_type => FND_API.G_RET_STS_ERROR
6704: l_token_table(5).TOKEN_VALUE := l_ext_table_metadata_obj.pk_column_metadata(5).COL_NAME;
6705: l_token_table(6).TOKEN_NAME := 'OBJ_NAME';
6706: l_token_table(6).TOKEN_VALUE := p_object_name;
6707: END IF;
6708: ERROR_HANDLER.Add_Error_Message(
6709: p_message_name => l_err_msg_name
6710: ,p_application_id => 'EGO'
6711: ,p_token_tbl => l_token_table
6712: ,p_message_type => FND_API.G_RET_STS_ERROR
6747: l_privilege_table_index NUMBER;
6748: l_has_view_privilege BOOLEAN := FALSE;
6749: l_has_edit_privilege BOOLEAN := FALSE;
6750: l_error_message_name VARCHAR2(30);
6751: l_token_table ERROR_HANDLER.Token_Tbl_Type;
6752: l_view_privilege fnd_form_functions.function_name%TYPE;
6753: l_edit_privilege fnd_form_functions.function_name%TYPE;
6754:
6755: BEGIN
6864: l_token_table(1).TOKEN_VALUE := FND_GLOBAL.USER_NAME;
6865: l_token_table(2).TOKEN_NAME := 'AG_NAME';
6866: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
6867:
6868: ERROR_HANDLER.Add_Error_Message(
6869: p_message_name => l_error_message_name
6870: ,p_application_id => 'EGO'
6871: ,p_token_tbl => l_token_table
6872: ,p_message_type => FND_API.G_RET_STS_ERROR
6892: ,p_entity_id IN NUMBER DEFAULT NULL
6893: ,p_entity_index IN NUMBER DEFAULT NULL
6894: ,p_entity_code IN VARCHAR2 DEFAULT NULL
6895: ,p_debug_level IN NUMBER
6896: ,p_init_error_handler_flag IN BOOLEAN
6897: ,p_object_name IN VARCHAR2
6898: ,p_pk_column_name_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY
6899: ,p_class_code_name_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY
6900: ,p_init_fnd_msg_list IN VARCHAR2
6967:
6968: END IF;
6969:
6970: ---------------------------------------
6971: -- Set up ERROR_HANDLER if necessary --
6972: ---------------------------------------
6973: IF (p_init_error_handler_flag) THEN
6974:
6975: ERROR_HANDLER.Initialize();
6969:
6970: ---------------------------------------
6971: -- Set up ERROR_HANDLER if necessary --
6972: ---------------------------------------
6973: IF (p_init_error_handler_flag) THEN
6974:
6975: ERROR_HANDLER.Initialize();
6976:
6977: ----------------------------------------------------------
6971: -- Set up ERROR_HANDLER if necessary --
6972: ---------------------------------------
6973: IF (p_init_error_handler_flag) THEN
6974:
6975: ERROR_HANDLER.Initialize();
6976:
6977: ----------------------------------------------------------
6978: -- If we're debugging we have to set up a Debug session --
6979: ----------------------------------------------------------
7009:
7010: ----------------------------------------------------------------------
7011:
7012: PROCEDURE Close_Business_Object_Session (
7013: p_init_error_handler_flag IN BOOLEAN
7014: ,p_log_errors IN BOOLEAN
7015: ,p_write_to_concurrent_log IN BOOLEAN
7016: ) IS
7017:
7021: -- We log errors if we were told to do so --
7022: --------------------------------------------
7023: IF (p_log_errors) THEN
7024: IF (p_write_to_concurrent_log) THEN
7025: ERROR_HANDLER.Log_Error(
7026: p_write_err_to_inttable => 'Y'
7027: ,p_write_err_to_conclog => 'Y'
7028: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
7029: );
7024: IF (p_write_to_concurrent_log) THEN
7025: ERROR_HANDLER.Log_Error(
7026: p_write_err_to_inttable => 'Y'
7027: ,p_write_err_to_conclog => 'Y'
7028: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
7029: );
7030: ELSE
7031: ERROR_HANDLER.Log_Error(
7032: p_write_err_to_inttable => 'Y'
7027: ,p_write_err_to_conclog => 'Y'
7028: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
7029: );
7030: ELSE
7031: ERROR_HANDLER.Log_Error(
7032: p_write_err_to_inttable => 'Y'
7033: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
7034: );
7035: END IF;
7029: );
7030: ELSE
7031: ERROR_HANDLER.Log_Error(
7032: p_write_err_to_inttable => 'Y'
7033: ,p_write_err_to_debugfile => ERROR_HANDLER.Get_Debug()
7034: );
7035: END IF;
7036: END IF;
7037:
7063:
7064: --------------------------------------------------------------
7065: -- If we were debugging, we have to close the debug session --
7066: --------------------------------------------------------------
7067: IF (p_init_error_handler_flag AND
7068: G_DEBUG_OUTPUT_LEVEL > 0 AND
7069: ERROR_HANDLER.Get_Debug() = 'Y') THEN
7070:
7071: ERROR_HANDLER.Close_Debug_Session();
7065: -- If we were debugging, we have to close the debug session --
7066: --------------------------------------------------------------
7067: IF (p_init_error_handler_flag AND
7068: G_DEBUG_OUTPUT_LEVEL > 0 AND
7069: ERROR_HANDLER.Get_Debug() = 'Y') THEN
7070:
7071: ERROR_HANDLER.Close_Debug_Session();
7072: G_DEBUG_OUTPUT_LEVEL := 0;
7073:
7067: IF (p_init_error_handler_flag AND
7068: G_DEBUG_OUTPUT_LEVEL > 0 AND
7069: ERROR_HANDLER.Get_Debug() = 'Y') THEN
7070:
7071: ERROR_HANDLER.Close_Debug_Session();
7072: G_DEBUG_OUTPUT_LEVEL := 0;
7073:
7074: END IF;
7075:
7076: EXCEPTION
7077: WHEN OTHERS THEN
7078:
7079: ----------------------------------------------------------
7080: -- The ERROR_HANDLER call may fail for various reasons, --
7081: -- but we don't want that to halt our processing --
7082: ----------------------------------------------------------
7083: NULL;
7084:
8148: END IF;
8149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8150:
8151: DECLARE
8152: l_token_table ERROR_HANDLER.Token_Tbl_Type;
8153: BEGIN
8154: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
8155: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
8156: l_token_table(2).TOKEN_NAME := 'API_NAME';
8157: l_token_table(2).TOKEN_VALUE := l_api_name;
8158: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
8159: l_token_table(3).TOKEN_VALUE := SQLERRM;
8160:
8161: ERROR_HANDLER.Add_Error_Message(
8162: p_message_name => 'EGO_PLSQL_ERR'
8163: ,p_application_id => 'EGO'
8164: ,p_token_tbl => l_token_table
8165: ,p_message_type => FND_API.G_RET_STS_ERROR
8796: END IF;
8797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8798:
8799: DECLARE
8800: l_token_table ERROR_HANDLER.Token_Tbl_Type;
8801: BEGIN
8802: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
8803: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
8804: l_token_table(2).TOKEN_NAME := 'API_NAME';
8805: l_token_table(2).TOKEN_VALUE := l_api_name;
8806: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
8807: l_token_table(3).TOKEN_VALUE := SQLERRM;
8808:
8809: ERROR_HANDLER.Add_Error_Message(
8810: p_message_name => 'EGO_PLSQL_ERR'
8811: ,p_application_id => 'EGO'
8812: ,p_token_tbl => l_token_table
8813: ,p_message_type => FND_API.G_RET_STS_ERROR
9136: END IF;
9137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9138:
9139: DECLARE
9140: l_token_table ERROR_HANDLER.Token_Tbl_Type;
9141: BEGIN
9142: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
9143: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
9144: l_token_table(2).TOKEN_NAME := 'API_NAME';
9145: l_token_table(2).TOKEN_VALUE := l_api_name;
9146: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
9147: l_token_table(3).TOKEN_VALUE := SQLERRM;
9148:
9149: ERROR_HANDLER.Add_Error_Message(
9150: p_message_name => 'EGO_PLSQL_ERR'
9151: ,p_application_id => 'EGO'
9152: ,p_token_tbl => l_token_table
9153: ,p_message_type => FND_API.G_RET_STS_ERROR
9190: l_api_version CONSTANT NUMBER := 1.0;
9191:
9192: l_is_valid_row BOOLEAN := TRUE;
9193: l_err_msg_name VARCHAR2(30);
9194: l_token_table ERROR_HANDLER.Token_Tbl_Type;
9195: l_is_duplicate_attr BOOLEAN;
9196: l_duplicate_attr_index NUMBER;
9197: l_attr_value_index NUMBER;
9198: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
9222: ,x_err_msg_name => l_err_msg_name
9223: ,x_token_table => l_token_table)
9224: ) THEN
9225:
9226: ERROR_HANDLER.Add_Error_Message(
9227: p_message_name => l_err_msg_name
9228: ,p_application_id => 'EGO'
9229: ,p_token_tbl => l_token_table
9230: ,p_message_type => FND_API.G_RET_STS_ERROR
9287: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.ATTR_GROUP_DISP_NAME;
9288:
9289: 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);
9290:
9291: ERROR_HANDLER.Add_Error_Message(
9292: p_message_name => l_err_msg_name
9293: ,p_application_id => 'EGO'
9294: ,p_token_tbl => l_token_table
9295: ,p_message_type => FND_API.G_RET_STS_ERROR
9327: ,l_token_table)) THEN
9328:
9329: 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);
9330:
9331: ERROR_HANDLER.Add_Error_Message(
9332: p_message_name => l_err_msg_name
9333: ,p_application_id => 'EGO'
9334: ,p_token_tbl => l_token_table
9335: ,p_message_type => FND_API.G_RET_STS_ERROR
9360: ,l_token_table)) THEN
9361:
9362: 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);
9363:
9364: ERROR_HANDLER.Add_Error_Message(
9365: p_message_name => l_err_msg_name
9366: ,p_application_id => 'EGO'
9367: ,p_token_tbl => l_token_table
9368: ,p_message_type => FND_API.G_RET_STS_ERROR
9393: ,l_token_table)) THEN
9394:
9395: 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);
9396:
9397: ERROR_HANDLER.Add_Error_Message(
9398: p_message_name => l_err_msg_name
9399: ,p_application_id => 'EGO'
9400: ,p_token_tbl => l_token_table
9401: ,p_message_type => FND_API.G_RET_STS_ERROR
9431: l_err_msg_name := 'EGO_EF_UOM_NOT_IN_UOM_CLASS';
9432:
9433: 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);
9434:
9435: ERROR_HANDLER.Add_Error_Message(
9436: p_message_name => l_err_msg_name
9437: ,p_application_id => 'EGO'
9438: ,p_token_tbl => l_token_table
9439: ,p_message_type => FND_API.G_RET_STS_ERROR
9498: -- ERROR! TODO: handle this correctly
9499: l_err_msg_name := 'HIERARCHY SECURITY VALIDATION';
9500: 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);
9501:
9502: ERROR_HANDLER.Add_Error_Message(
9503: p_message_name => l_err_msg_name
9504: ,p_application_id => 'EGO'
9505: ,p_token_tbl => l_token_table
9506: ,p_message_type => FND_API.G_RET_STS_ERROR
9525: -- ERROR! TODO: handle this correctly
9526: l_err_msg_name := 'HIERARCHY SECURITY VALIDATION';
9527: 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);
9528:
9529: ERROR_HANDLER.Add_Error_Message(
9530: p_message_name => l_err_msg_name
9531: ,p_application_id => 'EGO'
9532: ,p_token_tbl => l_token_table
9533: ,p_message_type => FND_API.G_RET_STS_ERROR
9606: l_token_table(2).TOKEN_VALUE := l_api_name;
9607: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
9608: l_token_table(3).TOKEN_VALUE := SQLERRM;
9609:
9610: ERROR_HANDLER.Add_Error_Message(
9611: p_message_name => 'EGO_PLSQL_ERR'
9612: ,p_application_id => 'EGO'
9613: ,p_token_tbl => l_token_table
9614: ,p_message_type => FND_API.G_RET_STS_ERROR
9795: END IF;
9796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9797:
9798: DECLARE
9799: l_token_table ERROR_HANDLER.Token_Tbl_Type;
9800: BEGIN
9801: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
9802: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
9803: l_token_table(2).TOKEN_NAME := 'API_NAME';
9804: l_token_table(2).TOKEN_VALUE := l_api_name;
9805: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
9806: l_token_table(3).TOKEN_VALUE := SQLERRM;
9807:
9808: ERROR_HANDLER.Add_Error_Message(
9809: p_message_name => 'EGO_PLSQL_ERR'
9810: ,p_application_id => 'EGO'
9811: ,p_token_tbl => l_token_table
9812: ,p_message_type => FND_API.G_RET_STS_ERROR
9976: ,x_return_status OUT NOCOPY VARCHAR2
9977: ) IS
9978:
9979: l_api_name CONSTANT VARCHAR2(30) := 'Perform_Setup_Operations';
9980: l_token_table ERROR_HANDLER.Token_Tbl_Type;
9981: l_err_msg_name VARCHAR2(30);
9982:
9983: BEGIN
9984:
10007: ,p_entity_id => p_entity_id
10008: ,p_entity_index => p_entity_index
10009: ,p_entity_code => p_entity_code
10010: ,p_debug_level => p_debug_level
10011: ,p_init_error_handler_flag => (p_debug_level > 0)
10012: ,p_object_name => p_object_name
10013: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
10014: ,p_class_code_name_value_pairs => p_class_code_name_value_pairs
10015: ,p_init_fnd_msg_list => p_init_fnd_msg_list
10069: l_token_table(1).TOKEN_VALUE := p_attr_group_id;
10070:
10071: END IF;
10072:
10073: ERROR_HANDLER.Add_Error_Message(
10074: p_message_name => l_err_msg_name
10075: ,p_application_id => 'EGO'
10076: ,p_token_tbl => l_token_table
10077: ,p_message_type => FND_API.G_RET_STS_ERROR
10104: l_token_table.DELETE();
10105: l_token_table(1).TOKEN_NAME := 'OBJECT_NAME';
10106: l_token_table(1).TOKEN_VALUE := p_object_name;
10107:
10108: ERROR_HANDLER.Add_Error_Message(
10109: p_message_name => 'EGO_EF_EXT_TABLE_METADATA_ERR'
10110: ,p_application_id => 'EGO'
10111: ,p_token_tbl => l_token_table
10112: ,p_message_type => FND_API.G_RET_STS_ERROR
10214: l_token_table(2).TOKEN_VALUE := l_api_name;
10215: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
10216: l_token_table(3).TOKEN_VALUE := SQLERRM;
10217:
10218: ERROR_HANDLER.Add_Error_Message(
10219: p_message_name => 'EGO_PLSQL_ERR'
10220: ,p_application_id => 'EGO'
10221: ,p_token_tbl => l_token_table
10222: ,p_message_type => FND_API.G_RET_STS_ERROR
10256: ,p_entity_code IN VARCHAR2 DEFAULT NULL
10257: ,p_debug_level IN NUMBER DEFAULT 0
10258: ,p_validate_only IN VARCHAR2 DEFAULT FND_API.G_FALSE
10259: ,p_validate_hierarchy IN VARCHAR2 DEFAULT FND_API.G_TRUE
10260: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
10261: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
10262: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
10263: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
10264: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
10289: ,p_entity_code => p_entity_code
10290: ,p_debug_level => p_debug_level
10291: ,p_validate_only => p_validate_only --bug 5122295
10292: ,p_validate_hierarchy => p_validate_hierarchy
10293: ,p_init_error_handler => p_init_error_handler
10294: ,p_write_to_concurrent_log => p_write_to_concurrent_log
10295: ,p_init_fnd_msg_list => p_init_fnd_msg_list
10296: ,p_log_errors => p_log_errors
10297: ,p_add_errors_to_fnd_stack => p_add_errors_to_fnd_stack
10326: ,p_entity_code IN VARCHAR2 DEFAULT NULL
10327: ,p_debug_level IN NUMBER DEFAULT 0
10328: ,p_validate_only IN VARCHAR2 DEFAULT FND_API.G_FALSE
10329: ,p_validate_hierarchy IN VARCHAR2 DEFAULT FND_API.G_TRUE
10330: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
10331: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
10332: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
10333: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
10334: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
10398: ,p_entity_id => p_entity_id
10399: ,p_entity_index => p_entity_index
10400: ,p_entity_code => p_entity_code
10401: ,p_debug_level => p_debug_level
10402: ,p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10403: ,p_object_name => p_object_name
10404: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
10405: ,p_class_code_name_value_pairs => p_class_code_name_value_pairs
10406: ,p_init_fnd_msg_list => p_init_fnd_msg_list
10623: -- Trim the trailing ',' from x_failed_row_id_list if necessary --
10624: ------------------------------------------------------------------
10625: x_failed_row_id_list := RTRIM(x_failed_row_id_list, ',');
10626:
10627: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10628:
10629: IF (x_msg_count > 0) THEN
10630:
10631: RAISE FND_API.G_EXC_ERROR;
10634:
10635: Debug_Msg('In Process_User_Attrs_Data, done', 1);
10636:
10637: Close_Business_Object_Session(
10638: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10639: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10640: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10641: );
10642:
10671: --bug 9559993
10672: x_return_status := FND_API.G_RET_STS_ERROR;
10673:
10674: Close_Business_Object_Session(
10675: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10676: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10677: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10678: );
10679:
10676: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10677: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10678: );
10679:
10680: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10681:
10682: IF (x_msg_count = 1) THEN
10683: DECLARE
10684: message_list ERROR_HANDLER.Error_Tbl_Type;
10680: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10681:
10682: IF (x_msg_count = 1) THEN
10683: DECLARE
10684: message_list ERROR_HANDLER.Error_Tbl_Type;
10685: BEGIN
10686: ERROR_HANDLER.Get_Message_List(message_list);
10687: x_msg_data := message_list(message_list.FIRST).message_text;
10688: END;
10682: IF (x_msg_count = 1) THEN
10683: DECLARE
10684: message_list ERROR_HANDLER.Error_Tbl_Type;
10685: BEGIN
10686: ERROR_HANDLER.Get_Message_List(message_list);
10687: x_msg_data := message_list(message_list.FIRST).message_text;
10688: END;
10689: ELSE
10690: x_msg_data := NULL;
10702:
10703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10704:
10705: DECLARE
10706: l_token_table ERROR_HANDLER.Token_Tbl_Type;
10707: BEGIN
10708: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
10709: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
10710: l_token_table(2).TOKEN_NAME := 'API_NAME';
10711: l_token_table(2).TOKEN_VALUE := l_api_name;
10712: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
10713: l_token_table(3).TOKEN_VALUE := SQLERRM;
10714:
10715: ERROR_HANDLER.Add_Error_Message(
10716: p_message_name => 'EGO_PLSQL_ERR'
10717: ,p_application_id => 'EGO'
10718: ,p_token_tbl => l_token_table
10719: ,p_message_type => FND_API.G_RET_STS_ERROR
10725: );
10726: END;
10727:
10728: Close_Business_Object_Session(
10729: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
10730: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10731: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10732: );
10733:
10730: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
10731: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
10732: );
10733:
10734: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10735:
10736: IF (x_msg_count = 1) THEN
10737: DECLARE
10738: message_list ERROR_HANDLER.Error_Tbl_Type;
10734: x_msg_count := ERROR_HANDLER.Get_Message_Count();
10735:
10736: IF (x_msg_count = 1) THEN
10737: DECLARE
10738: message_list ERROR_HANDLER.Error_Tbl_Type;
10739: BEGIN
10740: ERROR_HANDLER.Get_Message_List(message_list);
10741: x_msg_data := message_list(message_list.FIRST).message_text;
10742: END;
10736: IF (x_msg_count = 1) THEN
10737: DECLARE
10738: message_list ERROR_HANDLER.Error_Tbl_Type;
10739: BEGIN
10740: ERROR_HANDLER.Get_Message_List(message_list);
10741: x_msg_data := message_list(message_list.FIRST).message_text;
10742: END;
10743: ELSE
10744: x_msg_data := NULL;
11203: ,p_entity_id IN NUMBER DEFAULT NULL
11204: ,p_entity_index IN NUMBER DEFAULT NULL
11205: ,p_entity_code IN VARCHAR2 DEFAULT NULL
11206: ,p_debug_level IN NUMBER DEFAULT 0
11207: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
11208: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
11209: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
11210: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
11211: ,x_attributes_row_table OUT NOCOPY EGO_USER_ATTR_ROW_TABLE
11271: l_has_attrs VARCHAR2(1) :='N';
11272: l_curr_ag_vl_name VARCHAR2(30);
11273: l_curr_ag_table_name VARCHAR2(30);
11274:
11275: l_token_table ERROR_HANDLER.Token_Tbl_Type;
11276: l_curr_data_level_metadata EGO_DATA_LEVEL_METADATA_OBJ;
11277: l_curr_data_level_row_obj EGO_DATA_LEVEL_ROW_OBJ;
11278: l_has_data_level_col BOOLEAN := FALSE; -- TRUE is for R12C
11279: l_dl_view_privilege fnd_form_functions.function_name%TYPE;
11319: Debug_Msg(l_api_name||' p_entity_id => ' || p_entity_id, 3);
11320: Debug_Msg(l_api_name||' p_entity_index => ' || p_entity_index, 3);
11321: Debug_Msg(l_api_name||' p_entity_code => ' || p_entity_code, 3);
11322: Debug_Msg(l_api_name||' p_debug_level => ' || p_debug_level, 3);
11323: Debug_Msg(l_api_name||' p_init_error_handler_flag => ' || p_init_error_handler, 3);
11324: Debug_Msg(l_api_name||' p_object_name => ' || p_object_name, 3);
11325: Debug_Msg(l_api_name||' p_pk_column_name_value_pairs =>
11326: Debug_Msg(l_api_name||' p_class_code_name_value_pairs => NULL', 3);
11327: Debug_Msg(l_api_name||' p_init_fnd_msg_list => ' || p_init_fnd_msg_list, 3);
11338: ,p_entity_id => p_entity_id
11339: ,p_entity_index => p_entity_index
11340: ,p_entity_code => p_entity_code
11341: ,p_debug_level => p_debug_level
11342: ,p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
11343: ,p_object_name => p_object_name
11344: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
11345: ,p_class_code_name_value_pairs => NULL -- SSARNOBA - I'm not sure if this should be null
11346: ,p_init_fnd_msg_list => p_init_fnd_msg_list
11478: l_token_table(2).TOKEN_VALUE := l_curr_ag_metadata_obj.attr_group_disp_name;
11479:
11480: -- The data level XXX is not associated with the attribute
11481: -- group XXX
11482: ERROR_HANDLER.Add_Error_Message(
11483: p_message_name => 'EGO_EF_DL_AG_INVALID'
11484: ,p_application_id => 'EGO'
11485: ,p_token_tbl => l_token_table
11486: ,p_message_type => FND_API.G_RET_STS_ERROR
11817: ------------------------------------------------------
11818: -- We log all errors we got as we close our session --
11819: ------------------------------------------------------
11820: Close_Business_Object_Session(
11821: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
11822: ,p_log_errors => TRUE
11823: ,p_write_to_concurrent_log => FALSE
11824: );
11825:
12213: ------------------------------------------------------
12214: -- We log all errors we got as we close our session --
12215: ------------------------------------------------------
12216: Close_Business_Object_Session(
12217: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
12218: ,p_log_errors => TRUE
12219: ,p_write_to_concurrent_log => FALSE
12220: );
12221:
12236: ------------------------------------------------------
12237: -- We log all errors we got as we close our session --
12238: ------------------------------------------------------
12239: Close_Business_Object_Session(
12240: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
12241: ,p_log_errors => TRUE
12242: ,p_write_to_concurrent_log => FALSE
12243: );
12244:
12243: );
12244:
12245: x_return_status := FND_API.G_RET_STS_ERROR;
12246:
12247: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12248: IF (x_msg_count = 1) THEN
12249: DECLARE
12250: message_list ERROR_HANDLER.Error_Tbl_Type;
12251: BEGIN
12246:
12247: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12248: IF (x_msg_count = 1) THEN
12249: DECLARE
12250: message_list ERROR_HANDLER.Error_Tbl_Type;
12251: BEGIN
12252: ERROR_HANDLER.Get_Message_List(message_list);
12253: x_msg_data := message_list(message_list.FIRST).message_text;
12254: END;
12248: IF (x_msg_count = 1) THEN
12249: DECLARE
12250: message_list ERROR_HANDLER.Error_Tbl_Type;
12251: BEGIN
12252: ERROR_HANDLER.Get_Message_List(message_list);
12253: x_msg_data := message_list(message_list.FIRST).message_text;
12254: END;
12255: ELSE
12256: x_msg_data := NULL;
12269: ------------------------------------------------------
12270: -- We log all errors we got as we close our session --
12271: ------------------------------------------------------
12272: Close_Business_Object_Session(
12273: p_init_error_handler_flag => FND_API.To_Boolean(p_init_error_handler)
12274: ,p_log_errors => TRUE
12275: ,p_write_to_concurrent_log => FALSE
12276: );
12277:
12282: l_token_table(2).TOKEN_VALUE := l_api_name;
12283: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
12284: l_token_table(3).TOKEN_VALUE := SQLERRM;
12285:
12286: ERROR_HANDLER.Add_Error_Message(
12287: p_message_name => 'EGO_PLSQL_ERR'
12288: ,p_application_id => 'EGO'
12289: ,p_token_tbl => l_token_table
12290: ,p_message_type => FND_API.G_RET_STS_ERROR
12294: ,p_entity_code => p_entity_code
12295: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
12296: );
12297: l_token_table.DELETE();
12298: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12299:
12300: IF (x_msg_count = 1) THEN
12301: DECLARE
12302: message_list ERROR_HANDLER.Error_Tbl_Type;
12298: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12299:
12300: IF (x_msg_count = 1) THEN
12301: DECLARE
12302: message_list ERROR_HANDLER.Error_Tbl_Type;
12303: BEGIN
12304: ERROR_HANDLER.Get_Message_List(message_list);
12305: IF message_list IS NOT NULL AND message_list.count > 0 THEN
12306: x_msg_data := message_list(message_list.FIRST).message_text;
12300: IF (x_msg_count = 1) THEN
12301: DECLARE
12302: message_list ERROR_HANDLER.Error_Tbl_Type;
12303: BEGIN
12304: ERROR_HANDLER.Get_Message_List(message_list);
12305: IF message_list IS NOT NULL AND message_list.count > 0 THEN
12306: x_msg_data := message_list(message_list.FIRST).message_text;
12307: ELSE
12308: x_msg_data := 'Where from did I come here?? ';
12616:
12617: IF FND_API.To_Boolean(p_commit) THEN
12618: COMMIT WORK;
12619: END IF;
12620: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12621: IF (x_msg_count = 1) THEN
12622: DECLARE
12623: message_list ERROR_HANDLER.Error_Tbl_Type;
12624: BEGIN
12619: END IF;
12620: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12621: IF (x_msg_count = 1) THEN
12622: DECLARE
12623: message_list ERROR_HANDLER.Error_Tbl_Type;
12624: BEGIN
12625: ERROR_HANDLER.Get_Message_List(message_list);
12626: x_msg_data := message_list(message_list.FIRST).message_text;
12627: END;
12621: IF (x_msg_count = 1) THEN
12622: DECLARE
12623: message_list ERROR_HANDLER.Error_Tbl_Type;
12624: BEGIN
12625: ERROR_HANDLER.Get_Message_List(message_list);
12626: x_msg_data := message_list(message_list.FIRST).message_text;
12627: END;
12628: ELSE
12629: x_msg_data := NULL;
12632: WHEN OTHERS THEN
12633: Debug_Msg(l_api_name || ' EXCEPTION OTHERS '||SQLERRM);
12634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12635: DECLARE
12636: l_token_table ERROR_HANDLER.Token_Tbl_Type;
12637: BEGIN
12638: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
12639: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
12640: l_token_table(2).TOKEN_NAME := 'API_NAME';
12641: l_token_table(2).TOKEN_VALUE := l_api_name;
12642: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
12643: l_token_table(3).TOKEN_VALUE := SQLERRM;
12644:
12645: ERROR_HANDLER.Add_Error_Message(
12646: p_message_name => 'EGO_PLSQL_ERR'
12647: ,p_application_id => 'EGO'
12648: ,p_token_tbl => l_token_table
12649: ,p_message_type => FND_API.G_RET_STS_ERROR
12654: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
12655: );
12656: END;
12657:
12658: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12659:
12660: IF (x_msg_count = 1) THEN
12661: DECLARE
12662: message_list ERROR_HANDLER.Error_Tbl_Type;
12658: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12659:
12660: IF (x_msg_count = 1) THEN
12661: DECLARE
12662: message_list ERROR_HANDLER.Error_Tbl_Type;
12663: BEGIN
12664: ERROR_HANDLER.Get_Message_List(message_list);
12665: x_msg_data := message_list(message_list.FIRST).message_text;
12666: END;
12660: IF (x_msg_count = 1) THEN
12661: DECLARE
12662: message_list ERROR_HANDLER.Error_Tbl_Type;
12663: BEGIN
12664: ERROR_HANDLER.Get_Message_List(message_list);
12665: x_msg_data := message_list(message_list.FIRST).message_text;
12666: END;
12667: ELSE
12668: x_msg_data := NULL;
12789: RAISE FND_API.G_EXC_ERROR;
12790: END IF;
12791:
12792: Close_Business_Object_Session(
12793: p_init_error_handler_flag => FALSE
12794: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12795: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12796: );
12797:
12808: IF FND_API.To_Boolean(p_commit) THEN
12809: ROLLBACK TO Validate_Row_PUB;
12810: END IF;
12811: Close_Business_Object_Session(
12812: p_init_error_handler_flag => FALSE
12813: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12814: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12815: );
12816:
12813: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12814: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12815: );
12816:
12817: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12818: IF (x_msg_count = 1) THEN
12819: DECLARE
12820: message_list ERROR_HANDLER.Error_Tbl_Type;
12821: BEGIN
12816:
12817: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12818: IF (x_msg_count = 1) THEN
12819: DECLARE
12820: message_list ERROR_HANDLER.Error_Tbl_Type;
12821: BEGIN
12822: ERROR_HANDLER.Get_Message_List(message_list);
12823: x_msg_data := message_list(message_list.FIRST).message_text;
12824: END;
12818: IF (x_msg_count = 1) THEN
12819: DECLARE
12820: message_list ERROR_HANDLER.Error_Tbl_Type;
12821: BEGIN
12822: ERROR_HANDLER.Get_Message_List(message_list);
12823: x_msg_data := message_list(message_list.FIRST).message_text;
12824: END;
12825: ELSE
12826: x_msg_data := NULL;
12833: END IF;
12834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12835:
12836: DECLARE
12837: l_token_table ERROR_HANDLER.Token_Tbl_Type;
12838: BEGIN
12839: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
12840: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
12841: l_token_table(2).TOKEN_NAME := 'API_NAME';
12842: l_token_table(2).TOKEN_VALUE := l_api_name;
12843: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
12844: l_token_table(3).TOKEN_VALUE := SQLERRM;
12845:
12846: ERROR_HANDLER.Add_Error_Message(
12847: p_message_name => 'EGO_PLSQL_ERR'
12848: ,p_application_id => 'EGO'
12849: ,p_token_tbl => l_token_table
12850: ,p_message_type => FND_API.G_RET_STS_ERROR
12856: );
12857: END;
12858:
12859: Close_Business_Object_Session(
12860: p_init_error_handler_flag => FALSE
12861: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12862: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12863: );
12864:
12861: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
12862: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
12863: );
12864:
12865: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12866:
12867: IF (x_msg_count = 1) THEN
12868: DECLARE
12869: message_list ERROR_HANDLER.Error_Tbl_Type;
12865: x_msg_count := ERROR_HANDLER.Get_Message_Count();
12866:
12867: IF (x_msg_count = 1) THEN
12868: DECLARE
12869: message_list ERROR_HANDLER.Error_Tbl_Type;
12870: BEGIN
12871: ERROR_HANDLER.Get_Message_List(message_list);
12872: x_msg_data := message_list(message_list.FIRST).message_text;
12873: END;
12867: IF (x_msg_count = 1) THEN
12868: DECLARE
12869: message_list ERROR_HANDLER.Error_Tbl_Type;
12870: BEGIN
12871: ERROR_HANDLER.Get_Message_List(message_list);
12872: x_msg_data := message_list(message_list.FIRST).message_text;
12873: END;
12874: ELSE
12875: x_msg_data := NULL;
12959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12960: END IF;
12961:
12962: IF (FND_API.To_Boolean(p_init_fnd_msg_list)) THEN
12963: ERROR_HANDLER.Initialize();
12964: END IF;
12965:
12966: G_B_TABLE_DML := '';
12967: G_TL_TABLE_DML := '';
13102: x_b_bind_attr_table := l_b_dml_bind_list;
13103: x_tl_bind_attr_table := l_tl_dml_bind_list;
13104:
13105: Close_Business_Object_Session(
13106: p_init_error_handler_flag => (p_debug_level > 0)
13107: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13108: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13109: );
13110:
13121: WHEN FND_API.G_EXC_ERROR THEN
13122: Debug_Msg(l_api_name || ' EXCEPTION FND_API.G_EXC_ERROR');
13123:
13124: Close_Business_Object_Session(
13125: p_init_error_handler_flag => (p_debug_level > 0)
13126: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13127: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13128: );
13129:
13126: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13127: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13128: );
13129:
13130: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13131: IF (x_msg_count = 1) THEN
13132: DECLARE
13133: message_list ERROR_HANDLER.Error_Tbl_Type;
13134: BEGIN
13129:
13130: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13131: IF (x_msg_count = 1) THEN
13132: DECLARE
13133: message_list ERROR_HANDLER.Error_Tbl_Type;
13134: BEGIN
13135: ERROR_HANDLER.Get_Message_List(message_list);
13136: x_msg_data := message_list(message_list.FIRST).message_text;
13137: END;
13131: IF (x_msg_count = 1) THEN
13132: DECLARE
13133: message_list ERROR_HANDLER.Error_Tbl_Type;
13134: BEGIN
13135: ERROR_HANDLER.Get_Message_List(message_list);
13136: x_msg_data := message_list(message_list.FIRST).message_text;
13137: END;
13138: ELSE
13139: x_msg_data := NULL;
13142: WHEN OTHERS THEN
13143: Debug_Msg(l_api_name || ' EXCEPTION OTHERS '||SQLERRM);
13144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13145: DECLARE
13146: l_token_table ERROR_HANDLER.Token_Tbl_Type;
13147: BEGIN
13148: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
13149: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
13150: l_token_table(2).TOKEN_NAME := 'API_NAME';
13151: l_token_table(2).TOKEN_VALUE := l_api_name;
13152: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
13153: l_token_table(3).TOKEN_VALUE := SQLERRM;
13154:
13155: ERROR_HANDLER.Add_Error_Message(
13156: p_message_name => 'EGO_PLSQL_ERR'
13157: ,p_application_id => 'EGO'
13158: ,p_token_tbl => l_token_table
13159: ,p_message_type => FND_API.G_RET_STS_ERROR
13165: );
13166: END;
13167:
13168: Close_Business_Object_Session(
13169: p_init_error_handler_flag => (p_debug_level > 0)
13170: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13171: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13172: );
13173:
13170: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13171: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13172: );
13173:
13174: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13175:
13176: IF (x_msg_count = 1) THEN
13177: DECLARE
13178: message_list ERROR_HANDLER.Error_Tbl_Type;
13174: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13175:
13176: IF (x_msg_count = 1) THEN
13177: DECLARE
13178: message_list ERROR_HANDLER.Error_Tbl_Type;
13179: BEGIN
13180: ERROR_HANDLER.Get_Message_List(message_list);
13181: x_msg_data := message_list(message_list.FIRST).message_text;
13182: END;
13176: IF (x_msg_count = 1) THEN
13177: DECLARE
13178: message_list ERROR_HANDLER.Error_Tbl_Type;
13179: BEGIN
13180: ERROR_HANDLER.Get_Message_List(message_list);
13181: x_msg_data := message_list(message_list.FIRST).message_text;
13182: END;
13183: ELSE
13184: x_msg_data := NULL;
13421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13422: END IF;
13423:
13424: IF (FND_API.To_Boolean(p_init_fnd_msg_list)) THEN
13425: ERROR_HANDLER.Initialize();
13426: END IF;
13427: G_SYNC_TO_UPDATE := 'N';
13428: l_object_id := p_object_id;
13429: l_attr_name_value_pairs := p_attr_name_value_pairs;
13501: RAISE FND_API.G_EXC_ERROR;
13502: END IF;
13503:
13504: Close_Business_Object_Session(
13505: p_init_error_handler_flag => (p_debug_level > 0)
13506: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13507: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13508: );
13509:
13519: IF FND_API.To_Boolean(p_commit) THEN
13520: ROLLBACK TO Perform_DML_On_Row_PUB;
13521: END IF;
13522: Close_Business_Object_Session(
13523: p_init_error_handler_flag => (p_debug_level > 0)
13524: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13525: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13526: );
13527:
13524: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13525: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13526: );
13527:
13528: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13529: IF (x_msg_count = 1) THEN
13530: DECLARE
13531: message_list ERROR_HANDLER.Error_Tbl_Type;
13532: BEGIN
13527:
13528: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13529: IF (x_msg_count = 1) THEN
13530: DECLARE
13531: message_list ERROR_HANDLER.Error_Tbl_Type;
13532: BEGIN
13533: ERROR_HANDLER.Get_Message_List(message_list);
13534: x_msg_data := message_list(message_list.FIRST).message_text;
13535: END;
13529: IF (x_msg_count = 1) THEN
13530: DECLARE
13531: message_list ERROR_HANDLER.Error_Tbl_Type;
13532: BEGIN
13533: ERROR_HANDLER.Get_Message_List(message_list);
13534: x_msg_data := message_list(message_list.FIRST).message_text;
13535: END;
13536: ELSE
13537: x_msg_data := NULL;
13544: END IF;
13545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13546:
13547: DECLARE
13548: l_token_table ERROR_HANDLER.Token_Tbl_Type;
13549: BEGIN
13550: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
13551: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
13552: l_token_table(2).TOKEN_NAME := 'API_NAME';
13553: l_token_table(2).TOKEN_VALUE := l_api_name;
13554: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
13555: l_token_table(3).TOKEN_VALUE := SQLERRM;
13556:
13557: ERROR_HANDLER.Add_Error_Message(
13558: p_message_name => 'EGO_PLSQL_ERR'
13559: ,p_application_id => 'EGO'
13560: ,p_token_tbl => l_token_table
13561: ,p_message_type => FND_API.G_RET_STS_ERROR
13567: );
13568: END;
13569:
13570: Close_Business_Object_Session(
13571: p_init_error_handler_flag => (p_debug_level > 0)
13572: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13573: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13574: );
13575:
13572: ,p_log_errors => FND_API.To_Boolean(p_log_errors)
13573: ,p_write_to_concurrent_log => FND_API.To_Boolean(p_write_to_concurrent_log)
13574: );
13575:
13576: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13577:
13578: IF (x_msg_count = 1) THEN
13579: DECLARE
13580: message_list ERROR_HANDLER.Error_Tbl_Type;
13576: x_msg_count := ERROR_HANDLER.Get_Message_Count();
13577:
13578: IF (x_msg_count = 1) THEN
13579: DECLARE
13580: message_list ERROR_HANDLER.Error_Tbl_Type;
13581: BEGIN
13582: ERROR_HANDLER.Get_Message_List(message_list);
13583: x_msg_data := message_list(message_list.FIRST).message_text;
13584: END;
13578: IF (x_msg_count = 1) THEN
13579: DECLARE
13580: message_list ERROR_HANDLER.Error_Tbl_Type;
13581: BEGIN
13582: ERROR_HANDLER.Get_Message_List(message_list);
13583: x_msg_data := message_list(message_list.FIRST).message_text;
13584: END;
13585: ELSE
13586: x_msg_data := NULL;
13632: l_at_start_of_row BOOLEAN;
13633: l_row_index NUMBER := 0;
13634: l_attr_group_metadata_obj EGO_ATTR_GROUP_METADATA_OBJ;
13635: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
13636: l_token_table ERROR_HANDLER.Token_Tbl_Type;
13637: l_attr_name_value_pairs EGO_USER_ATTR_DATA_TABLE;
13638: l_extension_id NUMBER;
13639: l_mode VARCHAR2(10);
13640: l_attr_group_ids_to_exclude VARCHAR2(16000);
13683: ------------------------------------------------------------------
13684: Set_Up_Business_Object_Session(
13685: p_bulkload_flag => FALSE
13686: ,p_debug_level => p_debug_level
13687: ,p_init_error_handler_flag => TRUE
13688: ,p_object_name => p_object_name
13689: ,p_pk_column_name_value_pairs => p_pk_column_name_value_pairs
13690: ,p_class_code_name_value_pairs => p_class_code_name_value_pairs
13691: ,p_init_fnd_msg_list => p_init_fnd_msg_list
14040:
14041: l_token_table(1).TOKEN_NAME := 'AG_ID';
14042: l_token_table(1).TOKEN_VALUE := l_templ_attr_rec.ATTRIBUTE_GROUP_ID;
14043:
14044: ERROR_HANDLER.Add_Error_Message(
14045: p_message_name => 'EGO_EF_ATTR_GROUP_ID_NOT_FOUND'
14046: ,p_application_id => 'EGO'
14047: ,p_token_tbl => l_token_table
14048: ,p_message_type => FND_API.G_RET_STS_ERROR
14065:
14066: l_token_table(1).TOKEN_NAME := 'ATTR_ID';
14067: l_token_table(1).TOKEN_VALUE := l_templ_attr_rec.ATTRIBUTE_ID;
14068:
14069: ERROR_HANDLER.Add_Error_Message(
14070: p_message_name => 'EGO_EF_ATTR_ID_NOT_FOUND'
14071: ,p_application_id => 'EGO'
14072: ,p_token_tbl => l_token_table
14073: ,p_message_type => FND_API.G_RET_STS_ERROR
14199: ROLLBACK TO Perform_DML_From_Template;
14200: END IF;
14201: x_return_status := FND_API.G_RET_STS_ERROR;
14202:
14203: x_msg_count := ERROR_HANDLER.Get_Message_Count();
14204:
14205: IF (x_msg_count > 0) THEN
14206:
14207: ------------------------------------------------------
14207: ------------------------------------------------------
14208: -- We log all errors we got as we close our session --
14209: ------------------------------------------------------
14210: Close_Business_Object_Session(
14211: p_init_error_handler_flag => FALSE
14212: ,p_log_errors => TRUE
14213: ,p_write_to_concurrent_log => FALSE
14214: );
14215:
14214: );
14215:
14216: IF (x_msg_count = 1) THEN
14217: DECLARE
14218: message_list ERROR_HANDLER.Error_Tbl_Type;
14219: BEGIN
14220: ERROR_HANDLER.Get_Message_List(message_list);
14221: x_msg_data := message_list(message_list.FIRST).message_text;
14222: END;
14216: IF (x_msg_count = 1) THEN
14217: DECLARE
14218: message_list ERROR_HANDLER.Error_Tbl_Type;
14219: BEGIN
14220: ERROR_HANDLER.Get_Message_List(message_list);
14221: x_msg_data := message_list(message_list.FIRST).message_text;
14222: END;
14223: ELSE
14224: x_msg_data := NULL;
14238: l_token_table(2).TOKEN_VALUE := l_api_name;
14239: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
14240: l_token_table(3).TOKEN_VALUE := SQLERRM;
14241:
14242: ERROR_HANDLER.Add_Error_Message(
14243: p_message_name => 'EGO_PLSQL_ERR'
14244: ,p_application_id => 'EGO'
14245: ,p_token_tbl => l_token_table
14246: ,p_message_type => FND_API.G_RET_STS_ERROR
14247: ,p_row_identifier => l_row_index
14248: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
14249: );
14250:
14251: x_msg_count := ERROR_HANDLER.Get_Message_Count();
14252:
14253: ------------------------------------------------------
14254: -- We log all errors we got as we close our session --
14255: ------------------------------------------------------
14253: ------------------------------------------------------
14254: -- We log all errors we got as we close our session --
14255: ------------------------------------------------------
14256: Close_Business_Object_Session(
14257: p_init_error_handler_flag => FALSE
14258: ,p_log_errors => TRUE
14259: ,p_write_to_concurrent_log => FALSE
14260: );
14261:
14260: );
14261:
14262: IF (x_msg_count = 1) THEN
14263: DECLARE
14264: message_list ERROR_HANDLER.Error_Tbl_Type;
14265: BEGIN
14266: ERROR_HANDLER.Get_Message_List(message_list);
14267: x_msg_data := message_list(message_list.FIRST).message_text;
14268: END;
14262: IF (x_msg_count = 1) THEN
14263: DECLARE
14264: message_list ERROR_HANDLER.Error_Tbl_Type;
14265: BEGIN
14266: ERROR_HANDLER.Get_Message_List(message_list);
14267: x_msg_data := message_list(message_list.FIRST).message_text;
14268: END;
14269: ELSE
14270: x_msg_data := NULL;
14286: ,p_new_data_level_id IN NUMBER DEFAULT NULL
14287: ,p_new_dtlevel_col_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
14288: ,p_new_cc_col_value_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
14289: ,p_attr_group_list IN VARCHAR2 DEFAULT NULL
14290: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
14291: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
14292: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
14293: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
14294: ,x_return_status OUT NOCOPY VARCHAR2
14383: IF (FND_API.To_Boolean(p_init_fnd_msg_list)) THEN
14384: FND_MSG_PUB.Initialize;
14385: END IF;
14386:
14387: -- Initialize ERROR_HANDLER if necessary
14388: IF (FND_API.To_Boolean(p_init_error_handler)) THEN
14389: ERROR_HANDLER.Initialize();
14390: END IF;
14391:
14384: FND_MSG_PUB.Initialize;
14385: END IF;
14386:
14387: -- Initialize ERROR_HANDLER if necessary
14388: IF (FND_API.To_Boolean(p_init_error_handler)) THEN
14389: ERROR_HANDLER.Initialize();
14390: END IF;
14391:
14392: -- Check for call compatibility
14385: END IF;
14386:
14387: -- Initialize ERROR_HANDLER if necessary
14388: IF (FND_API.To_Boolean(p_init_error_handler)) THEN
14389: ERROR_HANDLER.Initialize();
14390: END IF;
14391:
14392: -- Check for call compatibility
14393: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
14967: ROLLBACK TO Copy_User_Attrs_Data_PUB;
14968: END IF;
14969: x_return_status := FND_API.G_RET_STS_ERROR;
14970:
14971: ERROR_HANDLER.Add_Error_Message(
14972: p_message_name => x_msg_data
14973: ,p_application_id => 'EGO'
14974: ,p_message_type => FND_API.G_RET_STS_ERROR
14975: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
14985: END IF;
14986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14987:
14988: DECLARE
14989: l_token_table ERROR_HANDLER.Token_Tbl_Type;
14990: BEGIN
14991: l_token_table(1).TOKEN_NAME := 'PKG_NAME';
14992: l_token_table(1).TOKEN_VALUE := G_PKG_NAME;
14993: l_token_table(2).TOKEN_NAME := 'API_NAME';
14994: l_token_table(2).TOKEN_VALUE := l_api_name;
14995: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
14996: l_token_table(3).TOKEN_VALUE := SQLERRM;
14997:
14998: ERROR_HANDLER.Add_Error_Message(
14999: p_message_name => 'EGO_PLSQL_ERR'
15000: ,p_application_id => 'EGO'
15001: ,p_token_tbl => l_token_table
15002: ,p_message_type => FND_API.G_RET_STS_ERROR
15063: l_current_pending_ext_id NUMBER;
15064: l_current_column_name VARCHAR2(30);
15065: l_attr_metadata_obj EGO_ATTR_METADATA_OBJ;
15066: l_dummy_err_msg_name VARCHAR2(30);
15067: l_token_table ERROR_HANDLER.Token_Tbl_Type;
15068: l_attr_name_value_pairs EGO_USER_ATTR_DATA_TABLE := EGO_USER_ATTR_DATA_TABLE();
15069: l_uom_column_nv_pairs LOCAL_COL_NV_PAIR_TABLE;
15070: l_uom_nv_pairs_index NUMBER := 0;
15071: l_current_uom_col_nv_obj EGO_COL_NAME_VALUE_PAIR_OBJ;
15086: IF FND_API.To_Boolean(p_commit) THEN
15087: SAVEPOINT Implement_Change_Line_PUB;
15088: END IF;
15089:
15090: -- Initialize FND_MSG_PUB and ERROR_HANDLER if necessary
15091: IF (FND_API.To_Boolean(p_init_msg_list)) THEN
15092: FND_MSG_PUB.Initialize;
15093: ERROR_HANDLER.Initialize;
15094: END IF;
15089:
15090: -- Initialize FND_MSG_PUB and ERROR_HANDLER if necessary
15091: IF (FND_API.To_Boolean(p_init_msg_list)) THEN
15092: FND_MSG_PUB.Initialize;
15093: ERROR_HANDLER.Initialize;
15094: END IF;
15095:
15096: -- Check for call compatibility
15097: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
15943: -----------------------------------------------------------------
15944: -- If Process_Row didn't return any errors, make one ourselves --
15945: -----------------------------------------------------------------
15946: IF (x_msg_data IS NULL AND x_msg_count = 0) THEN
15947: ERROR_HANDLER.Add_Error_Message(
15948: p_message_name => 'EGO_EF_IMPLEMENT_ERR'
15949: ,p_application_id => 'EGO'
15950: ,p_message_type => FND_API.G_RET_STS_ERROR
15951: ,p_addto_fnd_stack => 'Y'
15953: END IF;
15954:
15955: -------------------------------------------------------------------
15956: -- If Process_Row had more than one error, return the first one --
15957: -- (or else return the one we just added to ERROR_HANDLER above) --
15958: -------------------------------------------------------------------
15959: IF (x_msg_data IS NULL AND x_msg_count > 0) THEN
15960: DECLARE
15961: message_list ERROR_HANDLER.Error_Tbl_Type;
15957: -- (or else return the one we just added to ERROR_HANDLER above) --
15958: -------------------------------------------------------------------
15959: IF (x_msg_data IS NULL AND x_msg_count > 0) THEN
15960: DECLARE
15961: message_list ERROR_HANDLER.Error_Tbl_Type;
15962: BEGIN
15963: ERROR_HANDLER.Get_Message_List(message_list);
15964: x_msg_data := message_list(message_list.FIRST).message_text;
15965: END;
15959: IF (x_msg_data IS NULL AND x_msg_count > 0) THEN
15960: DECLARE
15961: message_list ERROR_HANDLER.Error_Tbl_Type;
15962: BEGIN
15963: ERROR_HANDLER.Get_Message_List(message_list);
15964: x_msg_data := message_list(message_list.FIRST).message_text;
15965: END;
15966: END IF;
15967:
15985: l_token_table(2).TOKEN_VALUE := l_api_name;
15986: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
15987: l_token_table(3).TOKEN_VALUE := SQLERRM;
15988:
15989: ERROR_HANDLER.Add_Error_Message(
15990: p_message_name => 'EGO_PLSQL_ERR'
15991: ,p_application_id => 'EGO'
15992: ,p_token_tbl => l_token_table
15993: ,p_message_type => FND_API.G_RET_STS_ERROR
15993: ,p_message_type => FND_API.G_RET_STS_ERROR
15994: ,p_addto_fnd_stack => 'Y'
15995: );
15996:
15997: ERROR_HANDLER.Get_Message(x_message_text => x_msg_data
15998: ,x_entity_index => l_dummy_entity_index
15999: ,x_entity_id => l_dummy_entity_id
16000: ,x_message_type => l_dummy_message_type);
16001: END;
16040: l_cursor NUMBER;
16041: l_row_count NUMBER;
16042: l_str VARCHAR2(200);
16043:
16044: l_token_table ERROR_HANDLER.Token_Tbl_Type;
16045: l_has_data_level_id BOOLEAN := FALSE; -- TRUE is for R12C
16046:
16047: -- In EGOBETRU.sql, we have the following type declaration:
16048: -- TYPE LOCAL_VARCHAR_TABLE IS TABLE OF VARCHAR2(80)
16175: l_token_table(1).TOKEN_NAME := 'DL_NAME';
16176: l_token_table(1).TOKEN_VALUE := p_data_level;
16177: l_token_table(2).TOKEN_NAME := 'AG_NAME';
16178: l_token_table(2).TOKEN_VALUE := p_attr_group_metadata_obj.attr_group_disp_name;
16179: ERROR_HANDLER.Add_Error_Message(
16180: p_message_name => 'EGO_EF_DL_AG_INVALID'
16181: ,p_application_id => 'EGO'
16182: ,p_token_tbl => l_token_table
16183: ,p_message_type => FND_API.G_RET_STS_ERROR
16330: l_return_status VARCHAR2(1);
16331: l_msg_count NUMBER;
16332: l_msg_data VARCHAR2(1000);
16333:
16334: l_token_table ERROR_HANDLER.Token_Tbl_Type;
16335: l_has_data_level_id BOOLEAN := TRUE; -- TRUE is for R12C
16336: l_curr_data_level_metadata EGO_DATA_LEVEL_METADATA_OBJ := NULL;
16337: l_curr_data_level_row_obj EGO_DATA_LEVEL_ROW_OBJ;
16338:
16445: l_token_table(1).TOKEN_NAME := 'DL_NAME';
16446: l_token_table(1).TOKEN_VALUE := p_data_level;
16447: l_token_table(2).TOKEN_NAME := 'AG_NAME';
16448: l_token_table(2).TOKEN_VALUE := l_attr_group_metadata_obj.attr_group_name;
16449: ERROR_HANDLER.Add_Error_Message(
16450: p_message_name => 'EGO_EF_DL_AG_INVALID'
16451: ,p_application_id => 'EGO'
16452: ,p_token_tbl => l_token_table
16453: ,p_message_type => FND_API.G_RET_STS_ERROR
16707: l_error_mesg VARCHAR2(512);
16708:
16709: BEGIN
16710:
16711: IF (ERROR_HANDLER.Get_Debug() = 'N') THEN
16712:
16713: IF (p_debug_level > 0) THEN
16714:
16715: SELECT VALUE
16728: IF (INSTR(l_output_dir, ',') > 0) THEN
16729: l_output_dir := SUBSTR(l_output_dir, 1, INSTR(l_output_dir, ',') - 1);
16730: END IF;
16731:
16732: ERROR_HANDLER.Open_Debug_Session(
16733: p_debug_filename => 'EGO_USER_ATTRS_DATA_PVT-'||TO_CHAR(SYSDATE, 'J.SSSSS')||'.log'
16734: ,p_output_dir => l_output_dir
16735: ,x_return_status => l_return_status
16736: ,x_error_mesg => l_error_mesg
16737: );
16738:
16739: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16740:
16741: ERROR_HANDLER.Add_Error_Message(
16742: p_message_text => l_error_mesg
16743: ,p_message_type => 'E'
16744: ,p_entity_code => p_entity_code
16745: ,p_addto_fnd_stack => G_ADD_ERRORS_TO_FND_STACK
18003: ,p_entity_id IN NUMBER DEFAULT NULL
18004: ,p_entity_index IN NUMBER DEFAULT NULL
18005: ,p_entity_code IN VARCHAR2 DEFAULT NULL
18006: ,p_debug_level IN NUMBER DEFAULT 0
18007: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_TRUE
18008: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
18009: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
18010: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
18011: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
18023: -- request table for ALL attribute groups of the object
18024: l_request_table_batch_iter EGO_ATTR_GROUP_REQUEST_TABLE;
18025: -- request table for one batch of attribute groups
18026: l_attributes_req_table EGO_USER_ATTR_TABLE;
18027: l_token_table ERROR_HANDLER.Token_Tbl_Type;
18028:
18029: BEGIN
18030:
18031: Debug_Msg(l_api_name ||' starting', 2);
18101: ,p_entity_id => p_entity_id
18102: ,p_entity_index => p_entity_index
18103: ,p_entity_code => p_entity_code
18104: ,p_debug_level => p_debug_level
18105: ,p_init_error_handler => p_init_error_handler
18106: ,p_init_fnd_msg_list => p_init_fnd_msg_list
18107: ,p_add_errors_to_fnd_stack => p_add_errors_to_fnd_stack
18108: ,x_attributes_row_table => l_attributes_row_table
18109: ,x_attributes_data_table => l_attributes_data_table
18161: l_token_table(2).TOKEN_VALUE := l_api_name;
18162: l_token_table(3).TOKEN_NAME := 'SQL_ERR_MSG';
18163: l_token_table(3).TOKEN_VALUE := SQLERRM;
18164:
18165: ERROR_HANDLER.Add_Error_Message(
18166: p_message_name => 'EGO_PLSQL_ERR'
18167: ,p_application_id => 'EGO'
18168: ,p_token_tbl => l_token_table
18169: ,p_message_type => FND_API.G_RET_STS_ERROR
18288: ,p_entity_id IN NUMBER DEFAULT NULL
18289: ,p_entity_index IN NUMBER DEFAULT NULL
18290: ,p_entity_code IN VARCHAR2 DEFAULT NULL
18291: ,p_debug_level IN NUMBER DEFAULT 0
18292: ,p_init_error_handler IN VARCHAR2 DEFAULT FND_API.G_FALSE
18293: ,p_write_to_concurrent_log IN VARCHAR2 DEFAULT FND_API.G_FALSE
18294: ,p_init_fnd_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
18295: ,p_log_errors IN VARCHAR2 DEFAULT FND_API.G_FALSE
18296: ,p_add_errors_to_fnd_stack IN VARCHAR2 DEFAULT FND_API.G_FALSE
18386: END IF;
18387: Debug_Msg(l_api_name ||' addl class codes: '||p_additional_class_Code_list);
18388: Debug_Msg(l_api_name ||' entity id: '||p_entity_id||' entity index: '||p_entity_index);
18389: Debug_Msg(l_api_name ||' entity code: '||p_entity_code||' debug level: '||p_debug_level);
18390: Debug_Msg(l_api_name ||' init error handler: '||p_init_error_handler||' write conc log: '||p_write_to_concurrent_log);
18391: Debug_Msg(l_api_name ||' init msg list: '||p_init_fnd_msg_list||' log errors: '||p_log_errors);
18392: Debug_Msg(l_api_name ||' add error to stack: '||p_add_errors_to_fnd_stack||' commit flag: '||p_commit);
18393:
18394: SELECT FLEX.APPLICATION_TABLE_NAME EXT_TABLE_NAME,
18802: ,p_entity_id => p_entity_id
18803: ,p_entity_index => p_entity_index
18804: ,p_entity_code => p_entity_code
18805: ,p_debug_level => p_debug_level
18806: ,p_init_error_handler => p_init_error_handler
18807: ,p_write_to_concurrent_log => p_write_to_concurrent_log
18808: ,p_init_fnd_msg_list => p_init_fnd_msg_list
18809: ,p_log_errors => p_log_errors
18810: ,p_add_errors_to_fnd_stack => p_add_errors_to_fnd_stack