[Home] [Help]
PACKAGE BODY: APPS.PV_PARTNER_ACCESSES_PKG
Source
1 PACKAGE BODY PV_Partner_Accesses_PKG as
2 /* $Header: pvxtprab.pls 115.0 2003/10/15 04:13:17 rdsharma noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_Partner_Accesses_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This Api is generated with Latest version of
14 -- Rosetta, where g_miss indicates NULL and
15 -- NULL indicates missing value. Rosetta Version 1.55
16 -- End of Comments
17 -- ===============================================================
18
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_Partner_Accesses_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtprab.pls';
22
23 -- ========================================================
24 --
25 -- NAME
26 -- Insert_Row
27 --
28 -- PURPOSE
29 --
30 -- NOTES
31 --
32 -- HISTORY
33 --
34 -- ========================================================
35 PROCEDURE Insert_Row(
36 px_partner_access_id IN OUT NOCOPY NUMBER,
37 p_partner_id NUMBER,
38 p_resource_id NUMBER,
39 p_keep_flag VARCHAR2,
40 p_created_by_tap_flag VARCHAR2,
41 p_access_type VARCHAR2,
42 p_vad_partner_id NUMBER,
43 p_last_update_date DATE,
44 p_last_updated_by NUMBER,
45 p_creation_date DATE,
46 p_created_by NUMBER,
47 p_last_update_login NUMBER,
48 p_object_version_number NUMBER,
49 p_request_id NUMBER,
50 p_program_application_id NUMBER,
51 p_program_id NUMBER,
52 p_program_update_date DATE,
53 p_attribute_category VARCHAR2,
54 p_attribute1 VARCHAR2,
55 p_attribute2 VARCHAR2,
56 p_attribute3 VARCHAR2,
57 p_attribute4 VARCHAR2,
58 p_attribute5 VARCHAR2,
59 p_attribute6 VARCHAR2,
60 p_attribute7 VARCHAR2,
61 p_attribute8 VARCHAR2,
62 p_attribute9 VARCHAR2,
63 p_attribute10 VARCHAR2,
64 p_attribute11 VARCHAR2,
65 p_attribute12 VARCHAR2,
66 p_attribute13 VARCHAR2,
67 p_attribute14 VARCHAR2,
68 p_attribute15 VARCHAR2,
69 x_return_status IN OUT NOCOPY VARCHAR2
70 )
71
72 IS
73 x_rowid VARCHAR2(30);
74 l_object_version_number NUMBER;
75 L_API_NAME CONSTANT VARCHAR2(30) := 'Insert_Row';
76
77 BEGIN
78
79 -- Standard Start of API savepoint
80 SAVEPOINT Insert_PAccesses_Row ;
81
82 l_object_version_number := nvl(p_object_version_number, 1);
83
84 -- Initialize API return status to SUCCESS
85 x_return_status := FND_API.G_RET_STS_SUCCESS;
86
87 INSERT INTO pv_partner_accesses(
88 partner_access_id,
89 partner_id,
90 resource_id,
91 keep_flag,
92 created_by_tap_flag,
93 access_type,
94 vad_partner_id,
95 last_update_date,
96 last_updated_by,
97 creation_date,
98 created_by,
99 last_update_login,
100 object_version_number,
101 request_id,
102 program_application_id,
103 program_id,
104 program_update_date,
105 attribute_category,
106 attribute1,
107 attribute2,
108 attribute3,
109 attribute4,
110 attribute5,
111 attribute6,
112 attribute7,
113 attribute8,
114 attribute9,
115 attribute10,
116 attribute11,
117 attribute12,
118 attribute13,
119 attribute14,
120 attribute15
121 ) VALUES (
122 DECODE( px_partner_access_id, FND_API.G_MISS_NUM, NULL, px_partner_access_id),
123 DECODE( p_partner_id, FND_API.G_MISS_NUM, NULL, p_partner_id),
124 DECODE( p_resource_id, FND_API.G_MISS_NUM, NULL, p_resource_id),
125 DECODE( p_keep_flag, FND_API.g_miss_char, NULL, p_keep_flag),
126 DECODE( p_created_by_tap_flag, FND_API.g_miss_char, NULL, p_created_by_tap_flag),
127 DECODE( p_access_type, FND_API.g_miss_char, NULL, p_access_type),
128 DECODE( p_vad_partner_id, FND_API.G_MISS_NUM, NULL, p_vad_partner_id),
129 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE,NULL, SYSDATE, p_last_update_date),
130 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, NULL, FND_GLOBAL.USER_ID, p_last_updated_by),
131 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE,NULL, SYSDATE, p_creation_date),
132 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID,NULL, FND_GLOBAL.USER_ID, p_created_by),
133 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, NULL, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
134 DECODE( p_object_version_number,FND_API.G_MISS_NUM, l_object_version_number, NULL, l_object_version_number, p_object_version_number),
135 DECODE( p_request_id, FND_API.G_MISS_NUM, NULL, p_request_id),
136 DECODE( p_program_application_id, FND_API.G_MISS_NUM, NULL, p_program_application_id),
137 DECODE( p_program_id, FND_API.G_MISS_NUM, NULL, p_program_id),
138 DECODE( p_program_update_date, FND_API.G_MISS_DATE, NULL, p_program_update_date),
139 DECODE( p_attribute_category, FND_API.g_miss_char, NULL, p_attribute_category),
140 DECODE( p_attribute1, FND_API.g_miss_char, NULL, p_attribute1),
141 DECODE( p_attribute2, FND_API.g_miss_char, NULL, p_attribute2),
142 DECODE( p_attribute3, FND_API.g_miss_char, NULL, p_attribute3),
143 DECODE( p_attribute4, FND_API.g_miss_char, NULL, p_attribute4),
144 DECODE( p_attribute5, FND_API.g_miss_char, NULL, p_attribute5),
145 DECODE( p_attribute6, FND_API.g_miss_char, NULL, p_attribute6),
146 DECODE( p_attribute7, FND_API.g_miss_char, NULL, p_attribute7),
147 DECODE( p_attribute8, FND_API.g_miss_char, NULL, p_attribute8),
148 DECODE( p_attribute9, FND_API.g_miss_char, NULL, p_attribute9),
149 DECODE( p_attribute10, FND_API.g_miss_char, NULL, p_attribute10),
150 DECODE( p_attribute11, FND_API.g_miss_char, NULL, p_attribute11),
151 DECODE( p_attribute12, FND_API.g_miss_char, NULL, p_attribute12),
152 DECODE( p_attribute13, FND_API.g_miss_char, NULL, p_attribute13),
153 DECODE( p_attribute14, FND_API.g_miss_char, NULL, p_attribute14),
154 DECODE( p_attribute15, FND_API.g_miss_char, NULL, p_attribute15));
155
156 EXCEPTION
157 WHEN OTHERS THEN
158 ROLLBACK TO Insert_PAccesses_Row ;
159 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
160
161 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
162 THEN
163 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
164 END IF;
165 END Insert_Row;
166
167 -- ========================================================
168 --
169 -- NAME
170 -- Update_Row
171 --
172 -- PURPOSE
173 --
174 -- NOTES
175 --
176 -- HISTORY
177 --
178 -- ========================================================
179 PROCEDURE Update_Row(
180 p_partner_access_id NUMBER,
181 p_partner_id NUMBER,
182 p_resource_id NUMBER,
183 p_keep_flag VARCHAR2,
184 p_created_by_tap_flag VARCHAR2,
185 p_access_type VARCHAR2,
186 p_vad_partner_id NUMBER,
187 p_last_update_date DATE,
188 p_last_updated_by NUMBER,
189 p_last_update_login NUMBER,
190 p_object_version_number NUMBER,
191 p_request_id NUMBER,
192 p_program_application_id NUMBER,
193 p_program_id NUMBER,
194 p_program_update_date DATE,
195 p_attribute_category VARCHAR2,
196 p_attribute1 VARCHAR2,
197 p_attribute2 VARCHAR2,
198 p_attribute3 VARCHAR2,
199 p_attribute4 VARCHAR2,
200 p_attribute5 VARCHAR2,
201 p_attribute6 VARCHAR2,
202 p_attribute7 VARCHAR2,
203 p_attribute8 VARCHAR2,
204 p_attribute9 VARCHAR2,
205 p_attribute10 VARCHAR2,
206 p_attribute11 VARCHAR2,
207 p_attribute12 VARCHAR2,
208 p_attribute13 VARCHAR2,
209 p_attribute14 VARCHAR2,
210 p_attribute15 VARCHAR2,
211 x_return_status IN OUT NOCOPY VARCHAR2)
212
213 IS
214 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Row';
215 BEGIN
216
217 -- Standard Start of API savepoint
218 SAVEPOINT Update_PAccesses_Row ;
219
220 -- Initialize API return status to SUCCESS
221 x_return_status := FND_API.G_RET_STS_SUCCESS;
222
223 Update pv_partner_accesses
224 SET
225 partner_access_id = DECODE( p_partner_access_id, null, partner_access_id, FND_API.G_MISS_NUM, null, p_partner_access_id),
226 partner_id = DECODE( p_partner_id, null, partner_id, FND_API.G_MISS_NUM, null, p_partner_id),
227 resource_id = DECODE( p_resource_id, null, resource_id, FND_API.G_MISS_NUM, null, p_resource_id),
228 keep_flag = DECODE( p_keep_flag, null, keep_flag, FND_API.g_miss_char, null, p_keep_flag),
229 created_by_tap_flag = DECODE( p_created_by_tap_flag, null, created_by_tap_flag, FND_API.g_miss_char, null, p_created_by_tap_flag),
230 access_type = DECODE( p_access_type, null, access_type, FND_API.g_miss_char, null, p_access_type),
231 vad_partner_id = DECODE( p_vad_partner_id, null, vad_partner_id, FND_API.G_MISS_NUM, null, p_vad_partner_id),
232 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
233 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
234 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
235 object_version_number = nvl(p_object_version_number,0) + 1 ,
236 request_id = DECODE( p_request_id, null, request_id, FND_API.G_MISS_NUM, null, p_request_id),
237 program_application_id = DECODE( p_program_application_id, null, program_application_id, FND_API.G_MISS_NUM, null, p_program_application_id),
238 program_id = DECODE( p_program_id, null, program_id, FND_API.G_MISS_NUM, null, p_program_id),
239 program_update_date = DECODE( p_program_update_date, null, program_update_date, FND_API.G_MISS_DATE, null, p_program_update_date),
240 attribute_category = DECODE( p_attribute_category, null, attribute_category, FND_API.g_miss_char, null, p_attribute_category),
241 attribute1 = DECODE( p_attribute1, null, attribute1, FND_API.g_miss_char, null, p_attribute1),
242 attribute2 = DECODE( p_attribute2, null, attribute2, FND_API.g_miss_char, null, p_attribute2),
243 attribute3 = DECODE( p_attribute3, null, attribute3, FND_API.g_miss_char, null, p_attribute3),
244 attribute4 = DECODE( p_attribute4, null, attribute4, FND_API.g_miss_char, null, p_attribute4),
245 attribute5 = DECODE( p_attribute5, null, attribute5, FND_API.g_miss_char, null, p_attribute5),
246 attribute6 = DECODE( p_attribute6, null, attribute6, FND_API.g_miss_char, null, p_attribute6),
247 attribute7 = DECODE( p_attribute7, null, attribute7, FND_API.g_miss_char, null, p_attribute7),
248 attribute8 = DECODE( p_attribute8, null, attribute8, FND_API.g_miss_char, null, p_attribute8),
249 attribute9 = DECODE( p_attribute9, null, attribute9, FND_API.g_miss_char, null, p_attribute9),
250 attribute10 = DECODE( p_attribute10, null, attribute10, FND_API.g_miss_char, null, p_attribute10),
251 attribute11 = DECODE( p_attribute11, null, attribute11, FND_API.g_miss_char, null, p_attribute11),
252 attribute12 = DECODE( p_attribute12, null, attribute12, FND_API.g_miss_char, null, p_attribute12),
253 attribute13 = DECODE( p_attribute13, null, attribute13, FND_API.g_miss_char, null, p_attribute13),
254 attribute14 = DECODE( p_attribute14, null, attribute14, FND_API.g_miss_char, null, p_attribute14),
255 attribute15 = DECODE( p_attribute15, null, attribute15, FND_API.g_miss_char, null, p_attribute15)
256 WHERE partner_access_id = p_partner_access_id
257 AND object_version_number = p_object_version_number;
258
259
260 IF (SQL%NOTFOUND) THEN
261 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
262 END IF;
263
264 EXCEPTION
265
266 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
267 ROLLBACK TO Update_PAccesses_Row ;
268 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269
270 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
271 THEN
272 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
273 END IF;
274
275 WHEN OTHERS THEN
276 ROLLBACK TO Update_PAccesses_Row ;
277 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278
279 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
280 THEN
281 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
282 END IF;
283
284 END Update_Row;
285
286 -- ========================================================
287 --
288 -- NAME
289 -- Delete_Row
290 --
291 -- PURPOSE
292 --
293 -- NOTES
294 --
295 -- HISTORY
296 --
297 -- ========================================================
298 PROCEDURE Delete_Row(
299 p_partner_access_id NUMBER,
300 p_object_version_number NUMBER,
301 x_return_status IN OUT NOCOPY VARCHAR2)
302 IS
303 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Row';
304 BEGIN
305
306 -- Standard Start of API savepoint
307 SAVEPOINT Delete_PAccesses_Row;
308
309 -- Initialize API return status to SUCCESS
310 x_return_status := FND_API.G_RET_STS_SUCCESS;
311
312 DELETE FROM pv_partner_accesses
313 WHERE partner_access_id = p_partner_access_id
314 AND object_version_number = p_object_version_number;
315 If (SQL%NOTFOUND) then
316 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317 End If;
318
319 EXCEPTION
320 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321 ROLLBACK TO Delete_PAccesses_Row;
322 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323
324 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
325 THEN
326 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
327 END IF;
328
329 WHEN OTHERS THEN
330 ROLLBACK TO Delete_PAccesses_Row;
331 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
332
333 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
334 THEN
335 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
336 END IF;
337
338 END Delete_Row ;
339
340 -- ========================================================
341 --
342 -- NAME
343 -- Lock_Row
344 --
345 -- PURPOSE
346 --
347 -- NOTES
348 --
349 -- HISTORY
350 --
351 -- ========================================================
352 PROCEDURE Lock_Row(
353 p_partner_access_id NUMBER,
354 p_object_version_number NUMBER,
355 x_return_status IN OUT NOCOPY VARCHAR2)
356 IS
357 CURSOR C IS
358 SELECT *
359 FROM pv_partner_accesses
360 WHERE partner_access_id = p_partner_access_id
361 AND object_version_number = p_object_version_number
362 FOR UPDATE OF partner_access_id NOWAIT;
363 Recinfo C%ROWTYPE;
364
365 L_API_NAME CONSTANT VARCHAR2(30) := 'Lock_Row';
366 BEGIN
367
368 -- Standard Start of API savepoint
369 SAVEPOINT Lock_PAccesses_Row;
370
371 -- Initialize API return status to SUCCESS
372 x_return_status := FND_API.G_RET_STS_SUCCESS;
373
374 OPEN c;
375 FETCH c INTO Recinfo;
376 IF (c%NOTFOUND) THEN
377 CLOSE c;
378 PVX_Utility_PVT.error_message ('PV_API_RECORD_NOT_FOUND');
379 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380 END IF;
381 CLOSE c;
382 EXCEPTION
383 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384 ROLLBACK TO Lock_PAccesses_Row;
385 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386
387 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
388 THEN
389 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
390 END IF;
391 WHEN OTHERS THEN
392 ROLLBACK TO Lock_PAccesses_Row;
393 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394
395 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
396 THEN
397 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
398 END IF;
399 END Lock_Row;
400
401 END PV_Partner_Accesses_PKG;