9: -- PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
10: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
11:
12: PROCEDURE Add_rec (p_api_version IN NUMBER ,
13: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
14: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
15: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
16: x_return_status OUT NOCOPY VARCHAR2 ,
17: x_msg_count OUT NOCOPY NUMBER ,
10: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
11:
12: PROCEDURE Add_rec (p_api_version IN NUMBER ,
13: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
14: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
15: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
16: x_return_status OUT NOCOPY VARCHAR2 ,
17: x_msg_count OUT NOCOPY NUMBER ,
18: x_msg_data OUT NOCOPY VARCHAR2 ,
11:
12: PROCEDURE Add_rec (p_api_version IN NUMBER ,
13: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
14: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
15: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
16: x_return_status OUT NOCOPY VARCHAR2 ,
17: x_msg_count OUT NOCOPY NUMBER ,
18: x_msg_data OUT NOCOPY VARCHAR2 ,
19: p_source_module IN VARCHAR2 ,
31: -- Standard Start of API savepoint
32: SAVEPOINT Add_Rec;
33:
34: -- Standard call to check for call compatibility.
35: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
36: p_api_version,
37: l_api_name,
38: G_PKG_NAME)
39: THEN
36: p_api_version,
37: l_api_name,
38: G_PKG_NAME)
39: THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: -- Initialize message list if p_init_msg_list is set to TRUE.
44: IF FND_API.to_Boolean(p_init_msg_list)
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: -- Initialize message list if p_init_msg_list is set to TRUE.
44: IF FND_API.to_Boolean(p_init_msg_list)
45: THEN
46: FND_MSG_PUB.initialize;
47: END IF;
48:
46: FND_MSG_PUB.initialize;
47: END IF;
48:
49: -- Initialize API return status to SUCCESS
50: x_return_status := FND_API.G_RET_STS_SUCCESS;
51:
52: --
53: -- Beginning of API body
54: --
104: IEX_DEBUG_PUB.LOGMESSAGE
105: ('Add_rec: ' || '[ ' || p_source_module ||' ] - ADD Records Exception - INSERT >>
106: ' || SQLCODE || ' >> ' || SQLERRM);
107: END IF;
108: x_return_status := FND_API.G_RET_STS_ERROR;
109: RollBack to Add_Rec;
110: END;
111: END IF;
112:
118: IEX_DEBUG_PUB.LOGMESSAGE
119: ('Add_rec: ' || '[ ' || p_source_module ||' ] - ADD Records Exception - UPDATE >>
120: ' || SQLCODE || ' >> ' || SQLERRM);
121: END IF;
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: RollBack to Add_Rec ;
124: END;
125: END LOOP;
126:
172: IEX_DEBUG_PUB.LOGMESSAGE
173: ('Add_rec: ' || '[ ' || p_source_module ||' ] - ADD Records Exception - INSERT >>
174: ' || SQLCODE || ' >> ' || SQLERRM);
175: END IF;
176: x_return_status := FND_API.G_RET_STS_ERROR;
177: RollBack to Add_rec ;
178: END;
179: END IF;
180: Exception
185: IEX_DEBUG_PUB.LOGMESSAGE
186: ('Add_rec: ' || '[ ' || p_source_module ||' ] - ADD Records Exception - UPDATE >>
187: ' || SQLCODE || ' >> ' || SQLERRM);
188: END IF;
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: RollBack to Add_rec ;
191: END;
192:
193: END LOOP;
240: IEX_DEBUG_PUB.LOGMESSAGE
241: ('Add_rec: ' || '[ ' || p_source_module ||' ] - ADD Records Exception - INSERT >>
242: ' || SQLCODE || ' >> ' || SQLERRM);
243: END IF;
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: RollBack to Add_rec;
246: END;
247: END IF;
248:
254: IEX_DEBUG_PUB.LOGMESSAGE
255: ('Add_rec: ' || '[ ' || p_source_module ||' ] - ADD Records Exception - INSERT >>
256: ' || SQLCODE || ' >> ' || SQLERRM);
257: END IF;
258: x_return_status := FND_API.G_RET_STS_ERROR;
259: RollBack to Add_rec;
260: END;
261:
262: END LOOP;
262: END LOOP;
263: END IF; -- p_object_type
264:
265: -- Standard check for p_commit
266: IF FND_API.to_Boolean(p_commit)
267: THEN
268: COMMIT WORK;
269: ELSE
270: ROLLBACK TO ADD_REC ;
275: IEX_DEBUG_PUB.LogMessage('End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
276: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
277:
278: EXCEPTION
279: WHEN FND_API.G_EXC_ERROR THEN
280: as_utility_pvt.HANDLE_EXCEPTIONS(
281: P_API_NAME => L_API_NAME
282: ,P_PKG_NAME => G_PKG_NAME
283: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
285: ,X_MSG_COUNT => X_MSG_COUNT
286: ,X_MSG_DATA => X_MSG_DATA
287: ,X_RETURN_STATUS => X_RETURN_STATUS);
288:
289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290: as_utility_pvt.HANDLE_EXCEPTIONS(
291: P_API_NAME => L_API_NAME
292: ,P_PKG_NAME => G_PKG_NAME
293: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
311: /* ------------------------------------------------------------------------------
312: PROCEDURE REMOVE_REC
313: ------------------------------------------------------------------------------ */
314: PROCEDURE Remove_rec(p_api_version IN NUMBER,
315: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
316: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
317: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
318: x_return_status OUT NOCOPY VARCHAR2,
319: x_msg_count OUT NOCOPY NUMBER,
312: PROCEDURE REMOVE_REC
313: ------------------------------------------------------------------------------ */
314: PROCEDURE Remove_rec(p_api_version IN NUMBER,
315: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
316: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
317: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
318: x_return_status OUT NOCOPY VARCHAR2,
319: x_msg_count OUT NOCOPY NUMBER,
320: x_msg_data OUT NOCOPY VARCHAR2,
313: ------------------------------------------------------------------------------ */
314: PROCEDURE Remove_rec(p_api_version IN NUMBER,
315: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
316: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
317: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
318: x_return_status OUT NOCOPY VARCHAR2,
319: x_msg_count OUT NOCOPY NUMBER,
320: x_msg_data OUT NOCOPY VARCHAR2,
321: p_source_module IN VARCHAR2,
330: -- Standard Start of API savepoint
331: SAVEPOINT remove_Rec;
332:
333: -- Standard call to check for call compatibility.
334: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
335: p_api_version,
336: l_api_name,
337: G_PKG_NAME)
338: THEN
335: p_api_version,
336: l_api_name,
337: G_PKG_NAME)
338: THEN
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
342: -- Initialize message list if p_init_msg_list is set to TRUE.
343: IF FND_API.to_Boolean(p_init_msg_list)
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
342: -- Initialize message list if p_init_msg_list is set to TRUE.
343: IF FND_API.to_Boolean(p_init_msg_list)
344: THEN
345: FND_MSG_PUB.initialize;
346: END IF;
347:
345: FND_MSG_PUB.initialize;
346: END IF;
347:
348: -- Initialize API return status to SUCCESS
349: x_return_status := FND_API.G_RET_STS_SUCCESS;
350:
351: nCount := p_id_tbl.count ;
352:
353: -- Delinquency Assets Form
371:
372: End If ;
373:
374: -- Standard check for p_commit
375: IF FND_API.to_Boolean(p_commit)
376: THEN
377: COMMIT WORK;
378: ELSE
379: ROLLBACK TO REMOVE_REC ;
384: IEX_DEBUG_PUB.LogMessage('End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
385: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
386:
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
389: as_utility_pvt.HANDLE_EXCEPTIONS(
390: P_API_NAME => L_API_NAME
391: ,P_PKG_NAME => G_PKG_NAME
392: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
394: ,X_MSG_COUNT => X_MSG_COUNT
395: ,X_MSG_DATA => X_MSG_DATA
396: ,X_RETURN_STATUS => X_RETURN_STATUS);
397:
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: as_utility_pvt.HANDLE_EXCEPTIONS(
400: P_API_NAME => L_API_NAME
401: ,P_PKG_NAME => G_PKG_NAME
402: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
427: /* ------------------------------------------------------------------------------
428: PROCEDURE ADD_ALL_REC
429: ------------------------------------------------------------------------------ */
430: PROCEDURE Add_All_rec(p_api_version IN NUMBER ,
431: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
432: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
433: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
434: x_return_status OUT NOCOPY VARCHAR2 ,
435: x_msg_count OUT NOCOPY NUMBER ,
428: PROCEDURE ADD_ALL_REC
429: ------------------------------------------------------------------------------ */
430: PROCEDURE Add_All_rec(p_api_version IN NUMBER ,
431: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
432: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
433: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
434: x_return_status OUT NOCOPY VARCHAR2 ,
435: x_msg_count OUT NOCOPY NUMBER ,
436: x_msg_data OUT NOCOPY VARCHAR2 ,
429: ------------------------------------------------------------------------------ */
430: PROCEDURE Add_All_rec(p_api_version IN NUMBER ,
431: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
432: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
433: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
434: x_return_status OUT NOCOPY VARCHAR2 ,
435: x_msg_count OUT NOCOPY NUMBER ,
436: x_msg_data OUT NOCOPY VARCHAR2 ,
437: p_source_module IN VARCHAR2 ,
446: -- Standard Start of API savepoint
447: SAVEPOINT add_all_Rec;
448:
449: -- Standard call to check for call compatibility.
450: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
451: p_api_version,
452: l_api_name,
453: G_PKG_NAME)
454: THEN
451: p_api_version,
452: l_api_name,
453: G_PKG_NAME)
454: THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
459: IF FND_API.to_Boolean(p_init_msg_list)
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
459: IF FND_API.to_Boolean(p_init_msg_list)
460: THEN
461: FND_MSG_PUB.initialize;
462: END IF;
463:
461: FND_MSG_PUB.initialize;
462: END IF;
463:
464: -- Initialize API return status to SUCCESS
465: x_return_status := FND_API.G_RET_STS_SUCCESS;
466:
467: -- Delinquency Assets Form
468: If p_source_module = 'IEXDLAST' then
469: -- Bulk Collect all the Asset Ids and call add lines
508: IEX_DEBUG_PUB.LogMessage('End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
509: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
510:
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: as_utility_pvt.HANDLE_EXCEPTIONS(
514: P_API_NAME => L_API_NAME
515: ,P_PKG_NAME => G_PKG_NAME
516: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
518: ,X_MSG_COUNT => X_MSG_COUNT
519: ,X_MSG_DATA => X_MSG_DATA
520: ,X_RETURN_STATUS => X_RETURN_STATUS);
521:
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: as_utility_pvt.HANDLE_EXCEPTIONS(
524: P_API_NAME => L_API_NAME
525: ,P_PKG_NAME => G_PKG_NAME
526: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
552: PROCEDURE REMOVE_ALL_REC
553: ------------------------------------------------------------------------------ */
554: PROCEDURE Remove_All_rec(
555: p_api_version IN NUMBER ,
556: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
557: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
558: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
559: x_return_status OUT NOCOPY VARCHAR2 ,
560: x_msg_count OUT NOCOPY NUMBER ,
553: ------------------------------------------------------------------------------ */
554: PROCEDURE Remove_All_rec(
555: p_api_version IN NUMBER ,
556: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
557: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
558: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
559: x_return_status OUT NOCOPY VARCHAR2 ,
560: x_msg_count OUT NOCOPY NUMBER ,
561: x_msg_data OUT NOCOPY VARCHAR2 ,
554: PROCEDURE Remove_All_rec(
555: p_api_version IN NUMBER ,
556: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
557: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
558: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
559: x_return_status OUT NOCOPY VARCHAR2 ,
560: x_msg_count OUT NOCOPY NUMBER ,
561: x_msg_data OUT NOCOPY VARCHAR2 ,
562: p_source_module IN VARCHAR2 ,
569: -- Standard Start of API savepoint
570: SAVEPOINT remove_all_Rec;
571:
572: -- Standard call to check for call compatibility.
573: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
574: p_api_version,
575: l_api_name,
576: G_PKG_NAME)
577: THEN
574: p_api_version,
575: l_api_name,
576: G_PKG_NAME)
577: THEN
578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
579: END IF;
580:
581: -- Initialize message list if p_init_msg_list is set to TRUE.
582: IF FND_API.to_Boolean(p_init_msg_list)
578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
579: END IF;
580:
581: -- Initialize message list if p_init_msg_list is set to TRUE.
582: IF FND_API.to_Boolean(p_init_msg_list)
583: THEN
584: FND_MSG_PUB.initialize;
585: END IF;
586:
584: FND_MSG_PUB.initialize;
585: END IF;
586:
587: -- Initialize API return status to SUCCESS
588: x_return_status := FND_API.G_RET_STS_SUCCESS;
589:
590:
591: If p_source_module = 'IEXDLAST' then
592: UPDATE IEX_DEL_ASSETS
604: WHERE DELINQUENCY_ID = p_del_id ;
605:
606: End IF ;
607: -- Standard check for p_commit
608: IF FND_API.to_Boolean(p_commit)
609: THEN
610: COMMIT WORK;
611: ELSE
612: ROLLBACK TO REMOVE_ALL_REC ;
617: IEX_DEBUG_PUB.LogMessage('End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
618: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
619:
620: EXCEPTION
621: WHEN FND_API.G_EXC_ERROR THEN
622: as_utility_pvt.HANDLE_EXCEPTIONS(
623: P_API_NAME => L_API_NAME
624: ,P_PKG_NAME => G_PKG_NAME
625: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
627: ,X_MSG_COUNT => X_MSG_COUNT
628: ,X_MSG_DATA => X_MSG_DATA
629: ,X_RETURN_STATUS => X_RETURN_STATUS);
630:
631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
632: as_utility_pvt.HANDLE_EXCEPTIONS(
633: P_API_NAME => L_API_NAME
634: ,P_PKG_NAME => G_PKG_NAME
635: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
660:
661:
662: PROCEDURE Start_Workflow(
663: p_api_version IN NUMBER := 1.0,
664: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
665: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
666: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
667: x_return_status OUT NOCOPY VARCHAR2 ,
668: x_msg_count OUT NOCOPY NUMBER ,
661:
662: PROCEDURE Start_Workflow(
663: p_api_version IN NUMBER := 1.0,
664: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
665: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
666: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
667: x_return_status OUT NOCOPY VARCHAR2 ,
668: x_msg_count OUT NOCOPY NUMBER ,
669: x_msg_data OUT NOCOPY VARCHAR2 ,
662: PROCEDURE Start_Workflow(
663: p_api_version IN NUMBER := 1.0,
664: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
665: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
666: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
667: x_return_status OUT NOCOPY VARCHAR2 ,
668: x_msg_count OUT NOCOPY NUMBER ,
669: x_msg_data OUT NOCOPY VARCHAR2 ,
670: p_user_id IN NUMBER ,
724: -- Standard Start of API savepoint
725: SAVEPOINT DEL_ASSET;
726:
727: -- Standard call to check for call compatibility.
728: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
729: p_api_version,
730: l_api_name,
731: G_PKG_NAME)
732: THEN
729: p_api_version,
730: l_api_name,
731: G_PKG_NAME)
732: THEN
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735:
736: -- IF PG_DEBUG < 10 THEN
737: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
738: IEX_DEBUG_PUB.LOGMESSAGE('Start_Workflow: ' || 'Stage 1');
739: END IF;
740:
741: -- Initialize message list if p_init_msg_list is set to TRUE.
742: IF FND_API.to_Boolean( p_init_msg_list )
743: THEN
744: FND_MSG_PUB.initialize;
745: END IF;
746:
752: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
753: IEX_DEBUG_PUB.LOGMESSAGE('Start_Workflow: ' || 'Stage 2');
754: END IF;
755: -- Initialize API return status to SUCCESS
756: x_return_status := FND_API.G_RET_STS_SUCCESS;
757:
758: itemtype := 'IEXDLAST';
759: workflowprocess := 'DELINQUENCY_ASSET';
760:
914: IEX_DEBUG_PUB.LOGMESSAGE('Start_Workflow: ' || '************ Start Workflow Message Log End **********');
915: END IF;
916:
917: EXCEPTION
918: WHEN FND_API.G_EXC_ERROR THEN
919: as_utility_pvt.HANDLE_EXCEPTIONS(
920: P_API_NAME => L_API_NAME
921: ,P_PKG_NAME => G_PKG_NAME
922: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
924: ,X_MSG_COUNT => X_MSG_COUNT
925: ,X_MSG_DATA => X_MSG_DATA
926: ,X_RETURN_STATUS => X_RETURN_STATUS);
927:
928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
929: as_utility_pvt.HANDLE_EXCEPTIONS(
930: P_API_NAME => L_API_NAME
931: ,P_PKG_NAME => G_PKG_NAME
932: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR