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;