[Home] [Help]
PACKAGE BODY: APPS.PA_PROJECTS_UPDATE_PKG
Source
1 PACKAGE BODY PA_PROJECTS_UPDATE_PKG as
2 /* $Header: PAYRPK2B.pls 120.2 2005/08/19 17:24:19 mwasowic noship $ */
3
4 --
5 -- Procedure : Insert_row
6 -- Purpose : Create Row in PA_PROJECTS_UPDATE_TEMP.
7 --
8 --
9 PROCEDURE insert_row
10 ( p_project_name IN pa_projects_update_temp.project_name%TYPE,
11 p_project_number IN pa_projects_update_temp.project_number%TYPE,
12 p_project_status_name IN pa_projects_update_temp.project_status_name%TYPE,
13 p_old_probability IN pa_projects_update_temp.old_probability%TYPE,
14 p_new_probability IN pa_projects_update_temp.new_probability%TYPE,
15 p_old_value IN pa_projects_update_temp.old_value%TYPE,
16 p_new_value IN pa_projects_update_temp.new_value%TYPE,
17 p_old_value_currency IN pa_projects_update_temp.old_value_currency%TYPE,
18 p_new_value_currency IN pa_projects_update_temp.new_value_currency%TYPE,
19 p_old_exp_proj_apprvl_date IN pa_projects_update_temp.old_expected_proj_apprvl_date%TYPE,
20 p_new_exp_proj_apprvl_date IN pa_projects_update_temp.new_expected_proj_apprvl_date%TYPE,
21 x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
22 x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
23 x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
24 IS
25
26 l_msg_index_out NUMBER;
27 -- added for bug 4537865
28 l_new_msg_data VARCHAR2(2000);
29 -- added for bug 4537865
30
31 BEGIN
32
33 x_return_status := FND_API.G_RET_STS_SUCCESS;
34
35 INSERT INTO pa_projects_update_temp
36 (project_name ,
37 project_number ,
38 project_status_name ,
39 old_probability ,
40 new_probability ,
41 old_value ,
42 new_value ,
43 old_value_currency ,
44 new_value_currency ,
45 old_expected_proj_apprvl_date ,
46 new_expected_proj_apprvl_date)
47 VALUES
48 (p_project_name ,
49 p_project_number ,
50 p_project_status_name ,
51 p_old_probability ,
52 p_new_probability ,
53 p_old_value ,
54 p_new_value ,
55 p_old_value_currency ,
56 p_new_value_currency ,
57 p_old_exp_proj_apprvl_date ,
58 p_new_exp_proj_apprvl_date);
59
60
61 EXCEPTION
62 WHEN OTHERS THEN
63 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64 x_msg_count := FND_MSG_PUB.Count_Msg;
65 x_msg_data := substr(SQLERRM,1,240);
66
67 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECTS_UPDATE_PKG',
68 p_procedure_name => 'insert_row');
69
70 IF x_msg_count = 1 THEN
71 pa_interface_utils_pub.get_messages
72 (p_encoded => FND_API.G_TRUE,
73 p_msg_index => 1,
74 p_msg_count => x_msg_count,
75 p_msg_data => x_msg_data,
76 --p_data => x_msg_data, * Commmented for NOCOPY mandate changes Bug Fix: 4537865
77 p_data => l_new_msg_data, -- added for bug 4537865
78 p_msg_index_out => l_msg_index_out );
79
80 -- added for bug 4537865
81 x_msg_data := l_new_msg_data;
82 -- added for bug 4537865
83 END IF;
84 RAISE;
85
86 END insert_row;
87
88
89 END PA_PROJECTS_UPDATE_PKG;