PACKAGE BODY: APPS.PA_PROJ_REQ_ASSOCIATIONS_PKG

Source

1 PACKAGE BODY PA_PROJ_REQ_ASSOCIATIONS_PKG as
2 /* $Header: PAYRASSB.pls 120.1 2005/08/19 17:23:58 mwasowic noship $ */
3 
4 --
5 -- Procedure     : Insert_rows
6 -- Purpose       : Create Rows in PA_REQUEST_ASSOC_TEMP.
7 --
8 --
9 PROCEDURE insert_rows
10       ( p_object_type_tbl            IN PA_PLSQL_DATATYPES.Char30TabTyp      ,
11 				p_object_id1_tbl             IN PA_PLSQL_DATATYPES.Char240TabTyp      ,
12 				p_object_id2_tbl             IN PA_PLSQL_DATATYPES.Char240TabTyp      ,
13 				p_object_id3_tbl             IN PA_PLSQL_DATATYPES.Char240TabTyp      ,
14 				p_object_id4_tbl             IN PA_PLSQL_DATATYPES.Char240TabTyp      ,
15 				p_object_id5_tbl             IN PA_PLSQL_DATATYPES.Char240TabTyp      ,
16 				p_object_name_tbl            IN PA_PLSQL_DATATYPES.Char80TabTyp      ,
17 				p_object_number_tbl          IN PA_PLSQL_DATATYPES.Char80TabTyp      ,
18 				p_object_type_name_tbl       IN PA_PLSQL_DATATYPES.Char80TabTyp      ,
19 				p_object_subtype_tbl         IN PA_PLSQL_DATATYPES.Char80TabTyp      ,
20 				p_status_name_tbl            IN PA_PLSQL_DATATYPES.Char80TabTyp      ,
21 				p_description_tbl            IN PA_PLSQL_DATATYPES.Char250TabTyp      ,
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 BEGIN
28 
29   FORALL j IN p_object_type_tbl.FIRST .. p_object_type_tbl.LAST
30 		INSERT INTO PA_REQUEST_ASSOC_TEMP
31 		(
32         object_name             ,
33         object_number           ,
34         object_type             ,
35         object_type_name        ,
36         object_subtype          ,
37         object_id1              ,
38         object_id2              ,
39         object_id3              ,
40         object_id4              ,
41         object_id5              ,
42         status_name             ,
43         description             )
44      VALUES
45 	   (
46        p_object_name_tbl(j)     ,
47        p_object_number_tbl(j)   ,
48        p_object_type_tbl(j)             ,
49        p_object_type_name_tbl(j)        ,
50        p_object_subtype_tbl(j)          ,
51        p_object_id1_tbl(j)              ,
52        p_object_id2_tbl(j)              ,
53        p_object_id3_tbl(j)              ,
54        p_object_id4_tbl(j)              ,
55        p_object_id5_tbl(j)              ,
56        p_status_name_tbl(j)             ,
57        p_description_tbl(j)
58        );
59 
60    x_return_status := FND_API.G_RET_STS_SUCCESS;
61 EXCEPTION
62  WHEN OTHERS THEN
63   x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64  FND_MSG_PUB.add_exc_msg( p_pkg_name         => 'PA_PROJ_REQ_ASSOCIATIONS_PKG',
65                           p_procedure_name   => 'insert_rows');
66  raise;
67 
68 END insert_rows;
69 
70 
71 END PA_PROJ_REQ_ASSOCIATIONS_PKG;