[Home] [Help]
PACKAGE BODY: APPS.PA_VALUE_MAPS_PKG
Source
1 PACKAGE BODY PA_VALUE_MAPS_PKG as
2 /* $Header: PAYMPKGB.pls 120.1 2005/08/19 17:23:19 mwasowic noship $ */
3
4 --
5 -- Procedure : Insert_rows
6 -- Purpose : Create Rows in PA_VALUE_MAPS.
7 --
8 --
9 PROCEDURE insert_rows
10 ( p_value_map_def_id IN NUMBER ,
11 p_source_value_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
12 p_dest_value_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
13 p_source_value_pk1_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
14 p_source_value_pk2_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
15 p_source_value_pk3_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
16 p_source_value_pk4_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
17 p_source_value_pk5_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
18 p_dest_value_pk1_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
19 p_dest_value_pk2_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
20 p_dest_value_pk3_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
21 p_dest_value_pk4_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
22 p_dest_value_pk5_arr IN PA_PLSQL_DATATYPES.Char240TabTyp ,
23 x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
24 x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
25 x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
26 IS
27
28 BEGIN
29
30 x_return_status := FND_API.G_RET_STS_SUCCESS;
31 FORALL j IN p_source_value_arr.FIRST .. p_source_value_arr.LAST
32 INSERT INTO pa_value_maps
33 ( value_map_id ,
34 value_map_def_id ,
35 source_value ,
36 dest_value ,
37 source_value_pk1 ,
38 source_value_pk2 ,
39 source_value_pk3 ,
40 source_value_pk4 ,
41 source_value_pk5 ,
42 dest_value_pk1 ,
43 dest_value_pk2 ,
44 dest_value_pk3 ,
45 dest_value_pk4 ,
46 dest_value_pk5 ,
47 creation_date ,
48 created_by ,
49 last_update_date ,
50 last_updated_by ,
51 last_update_login )
52 VALUES
53 ( pa_value_maps_s.nextval ,
54 p_value_map_def_id ,
55 p_source_value_arr(j) ,
56 p_dest_value_arr(j) ,
57 p_source_value_pk1_arr(j) ,
58 p_source_value_pk2_arr(j) ,
59 p_source_value_pk3_arr(j) ,
60 p_source_value_pk4_arr(j) ,
61 p_source_value_pk5_arr(j) ,
62 p_dest_value_pk1_arr(j) ,
63 p_dest_value_pk2_arr(j) ,
64 p_dest_value_pk3_arr(j) ,
65 p_dest_value_pk4_arr(j) ,
66 p_dest_value_pk5_arr(j) ,
67 sysdate ,
68 fnd_global.user_id ,
69 sysdate ,
70 fnd_global.user_id ,
71 fnd_global.login_id );
72
73 EXCEPTION
74 WHEN OTHERS THEN
75 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_VALUE_MAPS_PKG',
77 p_procedure_name => 'insert_rows');
78 raise;
79
80 END insert_rows;
81
82
83 --
84 -- Procedure : delete_rows
85 -- Purpose : Delete rows in pa_value_maps.
86 --
87 --
88 PROCEDURE delete_rows
89 ( p_value_map_def_id IN NUMBER ,
90 p_value_map_def_type IN VARCHAR2 ,
91 p_probability_list_id IN NUMBER := NULL ,
92 x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
93 x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
94 x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
95 IS
96
97 BEGIN
98 x_return_status := FND_API.G_RET_STS_SUCCESS;
99
100 IF p_value_map_def_type = 'PROBABILITY_OPP_PROJ' THEN
101 DELETE FROM pa_value_maps
102 WHERE value_map_def_id = p_value_map_def_id
103 AND dest_value_pk2 = p_probability_list_id;
104
105 ELSE
106 DELETE FROM pa_value_maps
107 WHERE value_map_def_id = p_value_map_def_id;
108
109 END IF;
110
111 EXCEPTION
112 WHEN OTHERS THEN
113 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
114 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_VALUE_MAPS_PKG',
115 p_procedure_name => 'delete_rows');
116 raise;
117
118 END delete_rows;
119
120
121 END PA_VALUE_MAPS_PKG;