PACKAGE BODY: APPS.PA_REQUESTS_CREATION_PKG

Source

1 PACKAGE BODY PA_REQUESTS_CREATION_PKG as
2 /* $Header: PAYRPK1B.pls 120.2 2005/08/22 05:54:02 sunkalya noship $ */
3 
4 --
5 -- Procedure     : Insert_row
6 -- Purpose       : Create Row in PA_REQ_CREATE_TEMP.
7 --
8 --
9 PROCEDURE insert_row
10       ( p_request_name                    IN PA_REQ_CREATE_TEMP.request_name%TYPE,
11         p_request_number		              IN PA_REQ_CREATE_TEMP.request_number%TYPE,
12         p_request_type                    IN PA_REQ_CREATE_TEMP.request_type%TYPE,
13         p_request_status_name             IN PA_REQ_CREATE_TEMP.request_status_name%TYPE,
14         p_request_customer                IN PA_REQ_CREATE_TEMP.request_customer%TYPE,
15         p_country			                    IN PA_REQ_CREATE_TEMP.country%TYPE,
16         p_state	                          IN PA_REQ_CREATE_TEMP.state%TYPE,
17         p_city				                    IN PA_REQ_CREATE_TEMP.city%TYPE,
18         p_value                           IN PA_REQ_CREATE_TEMP.value%TYPE,
19         p_currency_code                   IN PA_REQ_CREATE_TEMP.currency_code%TYPE,
20         p_expected_proj_approval_date     IN PA_REQ_CREATE_TEMP.expected_project_approval_date%TYPE,
21         p_source_reference                IN PA_REQ_CREATE_TEMP.source_reference%TYPE,
22         x_return_status                   OUT  NOCOPY VARCHAR2                          ,  --File.Sql.39 bug 4440895
23         x_msg_count                       OUT  NOCOPY NUMBER                            ,  --File.Sql.39 bug 4440895
24         x_msg_data                        OUT  NOCOPY VARCHAR2 )  --File.Sql.39 bug 4440895
25 IS
26 
27    l_msg_index_out	     	 NUMBER;
28    -- added for bug: 4537865
29    l_new_msg_data		 VARCHAR2(2000);
30    -- added for bug: 4537865
31 
32 BEGIN
33 
34     x_return_status := FND_API.G_RET_STS_SUCCESS;
35 
36   INSERT INTO PA_REQ_CREATE_TEMP
37    (request_name                          ,
38   	request_number                        ,
39   	request_type                          ,
40   	request_status_name                   ,
41   	request_customer                      ,
42   	country					  ,
43   	state                                 ,
44   	city						  ,
45   	value                                 ,
46   	currency_code                         ,
47  	  expected_project_approval_date        ,
48   	source_reference)
49     VALUES
50      (p_request_name			        ,
51       p_request_number                      ,
52       p_request_type			        ,
53       p_request_status_name                 ,
54       p_request_customer                    ,
55       p_country              		        ,
56       p_state					  ,
57       p_city					  ,
58 	    p_value					  ,
59 			p_currency_code				  ,
60 			p_expected_proj_approval_date		  ,
61 			p_source_reference);
62 
63 
64 EXCEPTION
65    WHEN OTHERS THEN
66       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
67       x_msg_count     := FND_MSG_PUB.Count_Msg;
68       x_msg_data      := substr(SQLERRM,1,240);
69 
70    FND_MSG_PUB.add_exc_msg( p_pkg_name         => 'PA_REQUESTS_CREATION_PKG',
71                           p_procedure_name     => 'insert_row');
72 
73    IF x_msg_count = 1 THEN
74       pa_interface_utils_pub.get_messages
75               (p_encoded        => FND_API.G_TRUE,
76                p_msg_index      => 1,
77                p_msg_count      => x_msg_count,
78                p_msg_data       => x_msg_data,
79              --p_data           => x_msg_data,			* commented for Bug ifx: 4537865
80                p_data		=> l_new_msg_data,		-- added for bug: 4537865
81                p_msg_index_out  => l_msg_index_out );
82 	-- added for bug: 4537865
83         x_msg_data := l_new_msg_data;
84         -- added for bug: 4537865
85    END IF;
86    RAISE;
87 
88 END insert_row;
89 
90 
91 END PA_REQUESTS_CREATION_PKG;