[Home] [Help]
PACKAGE BODY: APPS.PA_ACTION_SETS_PKG
Source
1 PACKAGE BODY pa_action_sets_pkg AS
2 /*$Header: PARASPKB.pls 120.2 2005/08/26 12:14:33 shyugen noship $*/
3 --
4
5 PROCEDURE insert_row
6 (p_action_set_type_code IN pa_action_set_types.action_set_type_code%TYPE
7 ,p_action_set_name IN pa_action_sets.action_set_name%TYPE
8 ,p_object_type IN pa_action_sets.object_type%TYPE := NULL
9 ,p_object_id IN pa_action_sets.object_id%TYPE := NULL
10 ,p_start_date_active IN pa_action_sets.start_date_active%TYPE := NULL
11 ,p_end_date_active IN pa_action_sets.end_date_active%TYPE := NULL
12 ,p_description IN pa_action_sets.description%TYPE := NULL
13 ,p_source_action_set_id IN pa_action_sets.source_action_set_id%TYPE := NULL
14 ,p_status_code IN pa_action_sets.status_code%TYPE
15 ,p_actual_start_date IN pa_action_sets.actual_start_date%TYPE := NULL
16 ,p_action_set_template_flag IN pa_action_sets.action_set_template_flag%TYPE := NULL
17 ,p_attribute_category IN pa_action_sets.attribute_category%TYPE := NULL
18 ,p_attribute1 IN pa_action_sets.attribute1%TYPE := NULL
19 ,p_attribute2 IN pa_action_sets.attribute2%TYPE := NULL
20 ,p_attribute3 IN pa_action_sets.attribute3%TYPE := NULL
21 ,p_attribute4 IN pa_action_sets.attribute4%TYPE := NULL
22 ,p_attribute5 IN pa_action_sets.attribute5%TYPE := NULL
23 ,p_attribute6 IN pa_action_sets.attribute6%TYPE := NULL
24 ,p_attribute7 IN pa_action_sets.attribute7%TYPE := NULL
25 ,p_attribute8 IN pa_action_sets.attribute8%TYPE := NULL
26 ,p_attribute9 IN pa_action_sets.attribute9%TYPE := NULL
27 ,p_attribute10 IN pa_action_sets.attribute10%TYPE := NULL
28 ,p_attribute11 IN pa_action_sets.attribute11%TYPE := NULL
29 ,p_attribute12 IN pa_action_sets.attribute12%TYPE := NULL
30 ,p_attribute13 IN pa_action_sets.attribute13%TYPE := NULL
31 ,p_attribute14 IN pa_action_sets.attribute14%TYPE := NULL
32 ,p_attribute15 IN pa_action_sets.attribute15%TYPE := NULL
33 ,x_action_set_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
34 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
35 )
36 IS
37
38 l_debug_mode VARCHAR2(20) := 'N';
39
40 BEGIN
41
42 -- Initialize the return status to success
43 x_return_status := FND_API.G_RET_STS_SUCCESS;
44
45 -- Bug 4403338
46 fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
47
48 --Log Message: 4403338
49 IF l_debug_mode = 'Y' THEN
50 PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SET_Pkg.insert_row.begin'
51 ,x_msg => 'Beginning of insert row'
52 ,x_log_level => 5);
53 END IF;
54
55 INSERT INTO pa_action_sets
56 (action_set_id
57 ,action_set_type_code
58 ,action_set_name
59 ,object_type
60 ,object_id
61 ,start_date_active
62 ,end_date_active
63 ,description
64 ,source_action_set_id
65 ,status_code
66 ,actual_start_date
67 ,action_set_template_flag
68 ,MOD_SOURCE_ACTION_SET_FLAG
69 ,record_version_number
70 ,attribute_category
71 ,attribute1
72 ,attribute2
73 ,attribute3
74 ,attribute4
75 ,attribute5
76 ,attribute6
77 ,attribute7
78 ,attribute8
79 ,attribute9
80 ,attribute10
81 ,attribute11
82 ,attribute12
83 ,attribute13
84 ,attribute14
85 ,attribute15
86 ,creation_date
87 ,created_by
88 ,last_update_date
89 ,last_updated_by
90 ,last_update_login)
91 VALUES
92 ( pa_action_sets_s.NEXTVAL
93 ,p_action_set_type_code
94 ,p_action_set_name
95 ,p_object_type
96 ,p_object_id
97 ,p_start_date_active
98 ,p_end_date_active
99 ,p_description
100 ,p_source_action_set_id
101 ,p_status_code
102 ,p_actual_start_date
103 ,p_action_set_template_flag
104 ,decode(p_action_set_template_flag,'N','N',null)
105 ,1
106 ,p_attribute_category
107 ,p_attribute1
108 ,p_attribute2
109 ,p_attribute3
110 ,p_attribute4
111 ,p_attribute5
112 ,p_attribute6
113 ,p_attribute7
114 ,p_attribute8
115 ,p_attribute9
116 ,p_attribute10
117 ,p_attribute11
118 ,p_attribute12
119 ,p_attribute13
120 ,p_attribute14
121 ,p_attribute15
122 ,sysdate
123 ,fnd_global.user_id
124 ,sysdate
125 ,fnd_global.user_id
126 ,fnd_global.login_id
127 )
128 RETURNING action_set_id INTO x_action_set_id;
129
130
131 -- Put any message text from message stack into the Message ARRAY
132 EXCEPTION
133 WHEN OTHERS THEN
134 -- Set the excetption Message and the stack
135 FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PKG.Insert_row'
136 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
137 --
138 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
139 RAISE;
140
141 END Insert_Row;
142
143
144 PROCEDURE update_row
145 (p_action_set_id IN pa_action_sets.action_set_id%TYPE
146 ,p_action_set_name IN pa_action_sets.action_set_name%TYPE := FND_API.G_MISS_CHAR
147 ,p_start_date_active IN pa_action_sets.start_date_active%TYPE := FND_API.G_MISS_DATE
148 ,p_end_date_active IN pa_action_sets.end_date_active%TYPE := FND_API.G_MISS_DATE
149 ,p_description IN pa_action_sets.description%TYPE := FND_API.G_MISS_CHAR
150 ,p_source_action_set_id IN pa_action_sets.source_action_set_id%TYPE := FND_API.G_MISS_NUM
151 ,p_status_code IN pa_action_sets.status_code%TYPE := FND_API.G_MISS_CHAR
152 ,p_actual_start_date IN pa_action_sets.actual_start_date%TYPE := FND_API.G_MISS_DATE
153 ,p_record_version_number IN pa_action_sets.record_version_number%TYPE := NULL
154 ,p_attribute_category IN pa_action_sets.attribute_category%TYPE := FND_API.G_MISS_CHAR
155 ,p_attribute1 IN pa_action_sets.attribute1%TYPE := FND_API.G_MISS_CHAR
156 ,p_attribute2 IN pa_action_sets.attribute2%TYPE := FND_API.G_MISS_CHAR
157 ,p_attribute3 IN pa_action_sets.attribute3%TYPE := FND_API.G_MISS_CHAR
158 ,p_attribute4 IN pa_action_sets.attribute4%TYPE := FND_API.G_MISS_CHAR
159 ,p_attribute5 IN pa_action_sets.attribute5%TYPE := FND_API.G_MISS_CHAR
160 ,p_attribute6 IN pa_action_sets.attribute6%TYPE := FND_API.G_MISS_CHAR
161 ,p_attribute7 IN pa_action_sets.attribute7%TYPE := FND_API.G_MISS_CHAR
162 ,p_attribute8 IN pa_action_sets.attribute8%TYPE := FND_API.G_MISS_CHAR
163 ,p_attribute9 IN pa_action_sets.attribute9%TYPE := FND_API.G_MISS_CHAR
164 ,p_attribute10 IN pa_action_sets.attribute10%TYPE := FND_API.G_MISS_CHAR
165 ,p_attribute11 IN pa_action_sets.attribute11%TYPE := FND_API.G_MISS_CHAR
166 ,p_attribute12 IN pa_action_sets.attribute12%TYPE := FND_API.G_MISS_CHAR
167 ,p_attribute13 IN pa_action_sets.attribute13%TYPE := FND_API.G_MISS_CHAR
168 ,p_attribute14 IN pa_action_sets.attribute14%TYPE := FND_API.G_MISS_CHAR
169 ,p_attribute15 IN pa_action_sets.attribute15%TYPE := FND_API.G_MISS_CHAR
170 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
171 )
172 IS
173
174 l_debug_mode VARCHAR2(20) := 'N';
175
176 BEGIN
177
178 -- Initialize the return status to success
179 x_return_status := FND_API.G_RET_STS_SUCCESS;
180
181 -- Bug 4403338
182 fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
183
184 --Log Message: 4403338
185 IF l_debug_mode = 'Y' THEN
186 PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_Pkg.update_row.begin'
187 ,x_msg => 'Beginning of update row'
188 ,x_log_level => 5);
189 END IF;
190
191 UPDATE pa_action_sets
192 SET action_set_name = decode(p_action_set_name, FND_API.G_MISS_CHAR, action_set_name, p_action_set_name)
193 ,start_date_active = decode(p_start_date_active, FND_API.G_MISS_DATE, start_date_active, p_start_date_active)
194 ,end_date_active = decode(p_end_date_active, FND_API.G_MISS_DATE, end_date_active, p_end_date_active)
195 ,description = decode(p_description, FND_API.G_MISS_CHAR, description, p_description)
196 ,status_code = decode(p_status_code, FND_API.G_MISS_CHAR, status_code, p_status_code)
197 ,actual_start_date = decode(p_actual_start_date, FND_API.G_MISS_DATE, actual_start_date, p_actual_start_date)
198 ,record_version_number = record_version_number+1
199 ,attribute_category = decode(p_attribute_category, FND_API.G_MISS_CHAR, attribute_category, p_attribute_category)
200 ,attribute1 = decode(p_attribute1, FND_API.G_MISS_CHAR, attribute1, p_attribute1)
201 ,attribute2 = decode(p_attribute2, FND_API.G_MISS_CHAR, attribute2, p_attribute2)
202 ,attribute3 = decode(p_attribute3, FND_API.G_MISS_CHAR, attribute3, p_attribute3)
203 ,attribute4 = decode(p_attribute4, FND_API.G_MISS_CHAR, attribute4, p_attribute4)
204 ,attribute5 = decode(p_attribute5, FND_API.G_MISS_CHAR, attribute5, p_attribute5)
205 ,attribute6 = decode(p_attribute6, FND_API.G_MISS_CHAR, attribute6, p_attribute6)
206 ,attribute7 = decode(p_attribute7, FND_API.G_MISS_CHAR, attribute7, p_attribute7)
207 ,attribute8 = decode(p_attribute8, FND_API.G_MISS_CHAR, attribute8, p_attribute8)
208 ,attribute9 = decode(p_attribute9, FND_API.G_MISS_CHAR, attribute9, p_attribute9)
209 ,attribute10 = decode(p_attribute10, FND_API.G_MISS_CHAR, attribute10, p_attribute10)
210 ,attribute11 = decode(p_attribute11, FND_API.G_MISS_CHAR, attribute11, p_attribute11)
211 ,attribute12 = decode(p_attribute12, FND_API.G_MISS_CHAR, attribute12, p_attribute12)
212 ,attribute13 = decode(p_attribute13, FND_API.G_MISS_CHAR, attribute13, p_attribute13)
213 ,attribute14 = decode(p_attribute14, FND_API.G_MISS_CHAR, attribute14, p_attribute14)
214 ,attribute15 = decode(p_attribute15, FND_API.G_MISS_CHAR, attribute15, p_attribute15)
215 ,last_update_date = sysdate
216 ,last_updated_by = fnd_global.user_id
217 ,last_update_login = fnd_global.login_id
218 WHERE action_set_id = p_action_set_id
219 AND record_version_number = nvl(p_record_version_number, record_version_number);
220
221 IF (SQL%NOTFOUND) THEN
222
223 PA_UTILS.Add_Message ( p_app_short_name => 'PA'
224 ,p_msg_name => 'PA_XC_RECORD_CHANGED');
225 x_return_status := FND_API.G_RET_STS_ERROR;
226
227 END IF;
228
229 -- Put any message text from message stack into the Message ARRAY
230 EXCEPTION
231 WHEN OTHERS THEN
232 -- Set the excetption Message and the stack
233 FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PKG.update_row'
234 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
235 --
236 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
237 RAISE;
238
239 END update_row;
240
241 PROCEDURE Delete_Row
242 ( p_action_set_id IN pa_action_sets.action_set_id%TYPE
243 ,p_record_version_number IN NUMBER := NULL
244 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
245 )
246 IS
247
248 BEGIN
249
250 x_return_status := FND_API.G_RET_STS_SUCCESS;
251
252 DELETE FROM pa_action_sets
253 WHERE action_set_id = p_action_set_id
254 AND nvl(p_record_version_number, record_version_number) = record_version_number;
255
256 --
257 IF (SQL%NOTFOUND) THEN
258
259 PA_UTILS.Add_Message ( p_app_short_name => 'PA'
260 ,p_msg_name => 'PA_XC_RECORD_CHANGED');
261 x_return_status := FND_API.G_RET_STS_ERROR;
262
263 END IF;
264 --
265 --
266
267 EXCEPTION
268 WHEN OTHERS THEN
269 -- Set the exception Message and the stack
270 FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ACTION_SETS_PKG.Delete_Row'
271 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
272 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
273 RAISE;
274 END Delete_Row;
275
276
277 END pa_action_sets_pkg;