[Home] [Help]
PACKAGE BODY: APPS.PA_PROJECTS_UPDATE_WARN_PKG
Source
1 PACKAGE BODY PA_PROJECTS_UPDATE_WARN_PKG as
2 /* $Header: PAYRPK3B.pls 120.2 2005/08/19 17:24:28 mwasowic noship $ */
3
4 --
5 -- Procedure : Insert_row
6 -- Purpose : Create Row in PA_PROJ_UPD_WARN_TEMP.
7 --
8 --
9 PROCEDURE insert_row
10 ( p_project_name IN PA_PROJ_UPD_WARN_TEMP.project_name%TYPE,
11 p_warning IN PA_PROJ_UPD_WARN_TEMP.warning%TYPE,
12 x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
13 x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
14 x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
15 IS
16
17 l_msg_index_out NUMBER;
18 -- added for bug 4537865
19 l_new_msg_data VARCHAR2(2000);
20 -- added for bug 4537865
21
22 BEGIN
23
24 x_return_status := FND_API.G_RET_STS_SUCCESS;
25
26 INSERT INTO PA_PROJ_UPD_WARN_TEMP
27 (project_name ,
28 warning)
29 VALUES
30 (p_project_name ,
31 p_warning);
32
33
34 EXCEPTION
35 WHEN OTHERS THEN
36 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37 x_msg_count := FND_MSG_PUB.Count_Msg;
38 x_msg_data := substr(SQLERRM,1,240);
39
40 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECTS_UPDATE_WARN_PKG',
41 p_procedure_name => 'insert_row');
42
43 IF x_msg_count = 1 THEN
44 pa_interface_utils_pub.get_messages
45 (p_encoded => FND_API.G_TRUE,
46 p_msg_index => 1,
47 p_msg_count => x_msg_count,
48 p_msg_data => x_msg_data,
49 --p_data => x_msg_data, * Commented for NOCOPY mandate changes bug fix: 4537865
50 p_data => l_new_msg_data, -- added for Bug: 4537865
51 p_msg_index_out => l_msg_index_out );
52 -- added for Bug: 4537865
53 x_msg_data := l_new_msg_data;
54 -- added for Bug: 4537865
55 END IF;
56 RAISE;
57
58 END insert_row;
59
60
61 END PA_PROJECTS_UPDATE_WARN_PKG;