112: -- inserting the data through QWB application
113: --
114: PROCEDURE insert_row (
115: p_api_version IN NUMBER,
116: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
117: p_commit IN VARCHAR2 := FND_API.G_FALSE,
118: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
119: p_plan_id IN NUMBER,
120: p_spec_id IN NUMBER DEFAULT NULL,
113: --
114: PROCEDURE insert_row (
115: p_api_version IN NUMBER,
116: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
117: p_commit IN VARCHAR2 := FND_API.G_FALSE,
118: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
119: p_plan_id IN NUMBER,
120: p_spec_id IN NUMBER DEFAULT NULL,
121: p_org_id IN NUMBER,
114: PROCEDURE insert_row (
115: p_api_version IN NUMBER,
116: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
117: p_commit IN VARCHAR2 := FND_API.G_FALSE,
118: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
119: p_plan_id IN NUMBER,
120: p_spec_id IN NUMBER DEFAULT NULL,
121: p_org_id IN NUMBER,
122: p_transaction_number IN NUMBER DEFAULT NULL,
149:
150: SAVEPOINT insert_row_pub;
151:
152: -- Standard call to check for call compatibility.
153: IF NOT FND_API.Compatible_API_Call (l_api_version,
154: p_api_version,
155: l_api_name,
156: G_PKG_NAME ) THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: IF NOT FND_API.Compatible_API_Call (l_api_version,
154: p_api_version,
155: l_api_name,
156: G_PKG_NAME ) THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160: -- Initialize message list if p_init_msg_list is set to TRUE.
161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160: -- Initialize message list if p_init_msg_list is set to TRUE.
161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
162: FND_MSG_PUB.initialize;
163: END IF;
164:
165:
163: END IF;
164:
165:
166: -- Initialize API return status to success
167: x_return_status := FND_API.G_RET_STS_SUCCESS;
168:
169: -- Bug 2290747.Added parameter p_txn_header_id to enable
170: -- history plan record when parent plan gets updated
171: -- rponnusa Mon Apr 1 22:25:49 PST 2002
183: p_who_last_updated_by,
184: p_who_created_by,
185: p_who_last_update_login,
186: p_enabled_flag,
187: FND_API.To_Boolean(p_commit),
188: l_error_found,
189: x_occurrence,
190: l_action_return,
191: x_message_array,
195: p_last_update_date
196: );
197:
198: IF (l_error_found = TRUE) THEN
199: x_return_status := FND_API.G_RET_STS_ERROR;
200:
201: -- Added the argument p_plan_id.
202: -- Bug 2910202.suramasw.Wed May 14 23:29:55 PDT 2003.
203:
214: -- Bug 5355933. Do not call commit if above returns error
215: -- saugupta Wed, 26 Jul 2006 03:57:30 -0700 PDT
216: ELSE
217: -- Standard check of p_commit.
218: IF FND_API.To_Boolean( p_commit ) THEN
219: COMMIT;
220: END IF;
221: END IF;
222:
222:
223:
224: EXCEPTION
225:
226: WHEN FND_API.G_EXC_ERROR THEN
227: ROLLBACK TO insert_row_pub;
228: x_return_status := FND_API.G_RET_STS_ERROR ;
229: FND_MSG_PUB.Count_And_Get
230: (p_count => x_msg_count,
224: EXCEPTION
225:
226: WHEN FND_API.G_EXC_ERROR THEN
227: ROLLBACK TO insert_row_pub;
228: x_return_status := FND_API.G_RET_STS_ERROR ;
229: FND_MSG_PUB.Count_And_Get
230: (p_count => x_msg_count,
231: p_data => x_msg_data
232: );
230: (p_count => x_msg_count,
231: p_data => x_msg_data
232: );
233:
234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
235: ROLLBACK TO insert_row_pub;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
237: FND_MSG_PUB.Count_And_Get
238: (p_count => x_msg_count,
232: );
233:
234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
235: ROLLBACK TO insert_row_pub;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
237: FND_MSG_PUB.Count_And_Get
238: (p_count => x_msg_count,
239: p_data => x_msg_data
240: );
240: );
241:
242: WHEN OTHERS THEN
243: ROLLBACK TO insert_row_pub;
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
245: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
246: FND_MSG_PUB.Add_Exc_Msg
247: (G_PKG_NAME,
248: l_api_name
266: -- rows through the QWB application.
267: --
268: PROCEDURE update_row (
269: p_api_version IN NUMBER,
270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
273: p_plan_id IN NUMBER,
274: p_spec_id IN NUMBER DEFAULT NULL,
267: --
268: PROCEDURE update_row (
269: p_api_version IN NUMBER,
270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
273: p_plan_id IN NUMBER,
274: p_spec_id IN NUMBER DEFAULT NULL,
275: p_org_id IN NUMBER,
268: PROCEDURE update_row (
269: p_api_version IN NUMBER,
270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
273: p_plan_id IN NUMBER,
274: p_spec_id IN NUMBER DEFAULT NULL,
275: p_org_id IN NUMBER,
276: p_transaction_number IN NUMBER DEFAULT NULL,
304:
305: SAVEPOINT update_row_pub;
306:
307: -- Standard call to check for call compatibility.
308: IF NOT FND_API.Compatible_API_Call (l_api_version,
309: p_api_version,
310: l_api_name,
311: G_PKG_NAME ) THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
308: IF NOT FND_API.Compatible_API_Call (l_api_version,
309: p_api_version,
310: l_api_name,
311: G_PKG_NAME ) THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
313: END IF;
314:
315: -- Initialize message list if p_init_msg_list is set to TRUE.
316: IF FND_API.to_Boolean( p_init_msg_list ) THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
313: END IF;
314:
315: -- Initialize message list if p_init_msg_list is set to TRUE.
316: IF FND_API.to_Boolean( p_init_msg_list ) THEN
317: FND_MSG_PUB.initialize;
318: END IF;
319:
320:
318: END IF;
319:
320:
321: -- Initialize API return status to success
322: x_return_status := FND_API.G_RET_STS_SUCCESS;
323:
324: --
325: -- 12.1 QWB Usability Improvements
326: -- Passing the value for the p_ssqr_operation parameter
336: p_who_last_updated_by,
337: p_who_created_by,
338: p_who_last_update_login,
339: p_enabled_flag,
340: FND_API.To_Boolean(p_commit),
341: l_error_found,
342: p_occurrence,
343: l_action_return,
344: x_message_array,
349: );
350:
351:
352: IF (l_error_found = TRUE) THEN
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: END IF;
355:
356: -- Standard check of p_commit.
357: IF FND_API.To_Boolean( p_commit ) THEN
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: END IF;
355:
356: -- Standard check of p_commit.
357: IF FND_API.To_Boolean( p_commit ) THEN
358: COMMIT;
359: END IF;
360:
361:
360:
361:
362: EXCEPTION
363:
364: WHEN FND_API.G_EXC_ERROR THEN
365: ROLLBACK TO update_row_pub;
366: x_return_status := FND_API.G_RET_STS_ERROR ;
367: FND_MSG_PUB.Count_And_Get
368: (p_count => x_msg_count,
362: EXCEPTION
363:
364: WHEN FND_API.G_EXC_ERROR THEN
365: ROLLBACK TO update_row_pub;
366: x_return_status := FND_API.G_RET_STS_ERROR ;
367: FND_MSG_PUB.Count_And_Get
368: (p_count => x_msg_count,
369: p_data => x_msg_data
370: );
368: (p_count => x_msg_count,
369: p_data => x_msg_data
370: );
371:
372: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
373: ROLLBACK TO update_row_pub;
374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
375: FND_MSG_PUB.Count_And_Get
376: (p_count => x_msg_count,
370: );
371:
372: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
373: ROLLBACK TO update_row_pub;
374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
375: FND_MSG_PUB.Count_And_Get
376: (p_count => x_msg_count,
377: p_data => x_msg_data
378: );
378: );
379:
380: WHEN OTHERS THEN
381: ROLLBACK TO update_row_pub;
382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
383: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
384: FND_MSG_PUB.Add_Exc_Msg
385: (G_PKG_NAME,
386: l_api_name
395:
396:
397: PROCEDURE enable_and_fire_action (
398: p_api_version IN NUMBER,
399: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
400: p_commit IN VARCHAR2 := FND_API.G_FALSE,
401: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
402: p_collection_id IN NUMBER,
403: x_return_status OUT NOCOPY VARCHAR2,
396:
397: PROCEDURE enable_and_fire_action (
398: p_api_version IN NUMBER,
399: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
400: p_commit IN VARCHAR2 := FND_API.G_FALSE,
401: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
402: p_collection_id IN NUMBER,
403: x_return_status OUT NOCOPY VARCHAR2,
404: x_msg_count OUT NOCOPY NUMBER,
397: PROCEDURE enable_and_fire_action (
398: p_api_version IN NUMBER,
399: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
400: p_commit IN VARCHAR2 := FND_API.G_FALSE,
401: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
402: p_collection_id IN NUMBER,
403: x_return_status OUT NOCOPY VARCHAR2,
404: x_msg_count OUT NOCOPY NUMBER,
405: x_msg_data OUT NOCOPY VARCHAR2) IS
415:
416: SAVEPOINT enable_and_fire_actions_pub;
417:
418: -- Standard call to check for call compatibility.
419: IF NOT FND_API.Compatible_API_Call (l_api_version,
420: p_api_version,
421: l_api_name,
422: G_PKG_NAME ) THEN
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
419: IF NOT FND_API.Compatible_API_Call (l_api_version,
420: p_api_version,
421: l_api_name,
422: G_PKG_NAME ) THEN
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: END IF;
425:
426: -- Initialize message list if p_init_msg_list is set to TRUE.
427: IF FND_API.to_Boolean( p_init_msg_list ) THEN
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: END IF;
425:
426: -- Initialize message list if p_init_msg_list is set to TRUE.
427: IF FND_API.to_Boolean( p_init_msg_list ) THEN
428: FND_MSG_PUB.initialize;
429: END IF;
430:
431:
429: END IF;
430:
431:
432: -- Initialize API return status to error
433: x_return_status := FND_API.G_RET_STS_ERROR;
434:
435: qa_results_api.enable_and_fire_action(p_collection_id);
436:
437: x_return_status := FND_API.G_RET_STS_SUCCESS;
433: x_return_status := FND_API.G_RET_STS_ERROR;
434:
435: qa_results_api.enable_and_fire_action(p_collection_id);
436:
437: x_return_status := FND_API.G_RET_STS_SUCCESS;
438:
439: -- Standard check of p_commit.
440: IF FND_API.To_Boolean( p_commit ) THEN
441: COMMIT;
436:
437: x_return_status := FND_API.G_RET_STS_SUCCESS;
438:
439: -- Standard check of p_commit.
440: IF FND_API.To_Boolean( p_commit ) THEN
441: COMMIT;
442: END IF;
443:
444:
443:
444:
445: EXCEPTION
446:
447: WHEN FND_API.G_EXC_ERROR THEN
448: ROLLBACK TO enable_fire_actions_pub;
449: x_return_status := FND_API.G_RET_STS_ERROR ;
450: FND_MSG_PUB.Count_And_Get
451: (p_count => x_msg_count,
445: EXCEPTION
446:
447: WHEN FND_API.G_EXC_ERROR THEN
448: ROLLBACK TO enable_fire_actions_pub;
449: x_return_status := FND_API.G_RET_STS_ERROR ;
450: FND_MSG_PUB.Count_And_Get
451: (p_count => x_msg_count,
452: p_data => x_msg_data
453: );
451: (p_count => x_msg_count,
452: p_data => x_msg_data
453: );
454:
455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: ROLLBACK TO enable_fire_actions_pub;
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
458: FND_MSG_PUB.Count_And_Get
459: (p_count => x_msg_count,
453: );
454:
455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: ROLLBACK TO enable_fire_actions_pub;
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
458: FND_MSG_PUB.Count_And_Get
459: (p_count => x_msg_count,
460: p_data => x_msg_data
461: );
461: );
462:
463: WHEN OTHERS THEN
464: ROLLBACK TO enable_fire_actions_pub;
465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
466: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
467: FND_MSG_PUB.Add_Exc_Msg
468: (G_PKG_NAME,
469: l_api_name
478:
479:
480: PROCEDURE commit_qa_results (
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
483: p_commit IN VARCHAR2 := FND_API.G_FALSE,
484: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
485: p_collection_id IN NUMBER,
486: x_return_status OUT NOCOPY VARCHAR2,
479:
480: PROCEDURE commit_qa_results (
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
483: p_commit IN VARCHAR2 := FND_API.G_FALSE,
484: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
485: p_collection_id IN NUMBER,
486: x_return_status OUT NOCOPY VARCHAR2,
487: x_msg_count OUT NOCOPY NUMBER,
480: PROCEDURE commit_qa_results (
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
483: p_commit IN VARCHAR2 := FND_API.G_FALSE,
484: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
485: p_collection_id IN NUMBER,
486: x_return_status OUT NOCOPY VARCHAR2,
487: x_msg_count OUT NOCOPY NUMBER,
488: x_msg_data OUT NOCOPY VARCHAR2) IS
498:
499: SAVEPOINT commit_qa_results_pub;
500:
501: -- Standard call to check for call compatibility.
502: IF NOT FND_API.Compatible_API_Call (l_api_version,
503: p_api_version,
504: l_api_name,
505: G_PKG_NAME ) THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: IF NOT FND_API.Compatible_API_Call (l_api_version,
503: p_api_version,
504: l_api_name,
505: G_PKG_NAME ) THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
507: END IF;
508:
509: -- Initialize message list if p_init_msg_list is set to TRUE.
510: IF FND_API.to_Boolean( p_init_msg_list ) THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
507: END IF;
508:
509: -- Initialize message list if p_init_msg_list is set to TRUE.
510: IF FND_API.to_Boolean( p_init_msg_list ) THEN
511: FND_MSG_PUB.initialize;
512: END IF;
513:
514:
512: END IF;
513:
514:
515: -- Initialize API return status to error
516: x_return_status := FND_API.G_RET_STS_ERROR;
517:
518: qa_results_api.commit_qa_results(p_collection_id);
519:
520: x_return_status := FND_API.G_RET_STS_SUCCESS;
516: x_return_status := FND_API.G_RET_STS_ERROR;
517:
518: qa_results_api.commit_qa_results(p_collection_id);
519:
520: x_return_status := FND_API.G_RET_STS_SUCCESS;
521:
522: -- Standard check of p_commit.
523: IF FND_API.To_Boolean( p_commit ) THEN
524: COMMIT;
519:
520: x_return_status := FND_API.G_RET_STS_SUCCESS;
521:
522: -- Standard check of p_commit.
523: IF FND_API.To_Boolean( p_commit ) THEN
524: COMMIT;
525: END IF;
526:
527:
526:
527:
528: EXCEPTION
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: ROLLBACK TO commit_qa_results_pub;
532: x_return_status := FND_API.G_RET_STS_ERROR ;
533: FND_MSG_PUB.Count_And_Get
534: (p_count => x_msg_count,
528: EXCEPTION
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: ROLLBACK TO commit_qa_results_pub;
532: x_return_status := FND_API.G_RET_STS_ERROR ;
533: FND_MSG_PUB.Count_And_Get
534: (p_count => x_msg_count,
535: p_data => x_msg_data
536: );
534: (p_count => x_msg_count,
535: p_data => x_msg_data
536: );
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: ROLLBACK TO qa_results_pub;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
541: FND_MSG_PUB.Count_And_Get
542: (p_count => x_msg_count,
536: );
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: ROLLBACK TO qa_results_pub;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
541: FND_MSG_PUB.Count_And_Get
542: (p_count => x_msg_count,
543: p_data => x_msg_data
544: );
544: );
545:
546: WHEN OTHERS THEN
547: ROLLBACK TO commit_qa_results_pub;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
550: FND_MSG_PUB.Add_Exc_Msg
551: (G_PKG_NAME,
552: l_api_name