748: AND lng.language_id = x_lang_id;
749: BEGIN
750: FOR l_count IN 1..NVL(p_message_count,0) LOOP
751: l_temp_msg := Fnd_Msg_Pub.get(Fnd_Msg_Pub.g_next, Fnd_Api.g_true);
752: Fnd_Message.parse_encoded(l_temp_msg, l_appl_short_name, l_message_name);
753: OPEN Get_Appl_Id (l_appl_short_name);
754: FETCH Get_Appl_Id INTO l_id;
755: CLOSE Get_Appl_Id;
756:
840: ELSIF p_exception_level = G_EXC_OTHERS
841: THEN
842: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
843:
844: Fnd_Message.Set_Name('IBC', 'IBC_ERROR_RETURNED');
845: Fnd_Message.Set_token('PKG_NAME' , p_pkg_name);
846: Fnd_Message.Set_token('API_NAME' , p_api_name);
847: Fnd_Msg_Pub.ADD;
848:
841: THEN
842: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
843:
844: Fnd_Message.Set_Name('IBC', 'IBC_ERROR_RETURNED');
845: Fnd_Message.Set_token('PKG_NAME' , p_pkg_name);
846: Fnd_Message.Set_token('API_NAME' , p_api_name);
847: Fnd_Msg_Pub.ADD;
848:
849: l_len_sqlerrm := LENGTH(P_SQLERRM) ;
842: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
843:
844: Fnd_Message.Set_Name('IBC', 'IBC_ERROR_RETURNED');
845: Fnd_Message.Set_token('PKG_NAME' , p_pkg_name);
846: Fnd_Message.Set_token('API_NAME' , p_api_name);
847: Fnd_Msg_Pub.ADD;
848:
849: l_len_sqlerrm := LENGTH(P_SQLERRM) ;
850: WHILE l_len_sqlerrm >= i LOOP
847: Fnd_Msg_Pub.ADD;
848:
849: l_len_sqlerrm := LENGTH(P_SQLERRM) ;
850: WHILE l_len_sqlerrm >= i LOOP
851: Fnd_Message.Set_Name('IBC', 'IBC_SQLERRM');
852: Fnd_Message.Set_token('ERR_TEXT' , SUBSTR(P_SQLERRM,i,240));
853: i := i + 240;
854: Fnd_Msg_Pub.ADD;
855: END LOOP;
848:
849: l_len_sqlerrm := LENGTH(P_SQLERRM) ;
850: WHILE l_len_sqlerrm >= i LOOP
851: Fnd_Message.Set_Name('IBC', 'IBC_SQLERRM');
852: Fnd_Message.Set_token('ERR_TEXT' , SUBSTR(P_SQLERRM,i,240));
853: i := i + 240;
854: Fnd_Msg_Pub.ADD;
855: END LOOP;
856:
922: -- *** VALIDATION OF VALUES ******
923: -- file format
924: IF ((p_file_format <> 'text') AND (p_file_format <> 'binary')) THEN
925: x_return_status := Fnd_Api.G_RET_STS_ERROR;
926: Fnd_Message.Set_Name('IBC', 'BAD_INPUT_VALUE');
927: Fnd_Message.Set_Token('INPUT', 'p_file_format', FALSE);
928: Fnd_Msg_Pub.ADD;
929: END IF;
930: -- mime type
923: -- file format
924: IF ((p_file_format <> 'text') AND (p_file_format <> 'binary')) THEN
925: x_return_status := Fnd_Api.G_RET_STS_ERROR;
926: Fnd_Message.Set_Name('IBC', 'BAD_INPUT_VALUE');
927: Fnd_Message.Set_Token('INPUT', 'p_file_format', FALSE);
928: Fnd_Msg_Pub.ADD;
929: END IF;
930: -- mime type
931: IF (p_mime_type IS NULL) THEN
929: END IF;
930: -- mime type
931: IF (p_mime_type IS NULL) THEN
932: x_return_status := Fnd_Api.G_RET_STS_ERROR;
933: Fnd_Message.Set_Name('IBC', 'BAD_INPUT_VALUE');
934: Fnd_Message.Set_Token('INPUT', 'p_mime_type', FALSE);
935: Fnd_Msg_Pub.ADD;
936: END IF;
937:
930: -- mime type
931: IF (p_mime_type IS NULL) THEN
932: x_return_status := Fnd_Api.G_RET_STS_ERROR;
933: Fnd_Message.Set_Name('IBC', 'BAD_INPUT_VALUE');
934: Fnd_Message.Set_Token('INPUT', 'p_mime_type', FALSE);
935: Fnd_Msg_Pub.ADD;
936: END IF;
937:
938: -- Getting next fnd_lobs sequence number
967:
968: EXCEPTION
969: WHEN OTHERS THEN
970: x_return_status := Fnd_Api.G_RET_STS_ERROR;
971: Fnd_Message.Set_Name('IBC', 'LOB_INSERT_ERROR');
972: Fnd_Msg_Pub.ADD;
973: END;
974:
975:
1062: );
1063: EXCEPTION
1064: WHEN OTHERS THEN
1065: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1066: Fnd_Message.Set_Name('IBC', 'LOB_INSERT_ERROR');
1067: Fnd_Msg_Pub.ADD;
1068: END;
1069:
1070:
1128:
1129: EXCEPTION
1130: WHEN OTHERS THEN
1131: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1132: Fnd_Message.Set_Name('IBC', 'LOB_INSERT_ERROR');
1133: Fnd_Msg_Pub.ADD;
1134: END;
1135:
1136:
1556:
1557: EXCEPTION
1558: WHEN OTHERS THEN
1559: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1560: Fnd_Message.Set_Name('IBC', 'LOB_INSERT_ERROR');
1561: Fnd_Msg_Pub.ADD;
1562:
1563: END Create_Autonomous_Upload;
1564: