81: l_full_path VARCHAR2(500) := g_path||'Acct_Line_Copy';--bug 3199488
82:
83: BEGIN
84:
85: x_return_status := FND_API.G_RET_STS_SUCCESS;
86: IF (g_debug_mode = 'Y') THEN
87: Put_Debug_Msg (l_full_path,' IGCCCPCB - Starting to Insert Account Line.');
88: END IF;
89:
116: END IF;
117:
118: IGC_CC_ACCT_LINES_PKG.Insert_Row
119: (p_api_version => 1.0,
120: p_init_msg_list => FND_API.G_FALSE,
121: p_commit => FND_API.G_FALSE,
122: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
123: X_return_status => l_return_status,
124: X_msg_count => l_msg_count,
117:
118: IGC_CC_ACCT_LINES_PKG.Insert_Row
119: (p_api_version => 1.0,
120: p_init_msg_list => FND_API.G_FALSE,
121: p_commit => FND_API.G_FALSE,
122: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
123: X_return_status => l_return_status,
124: X_msg_count => l_msg_count,
125: X_msg_data => l_msg_data,
118: IGC_CC_ACCT_LINES_PKG.Insert_Row
119: (p_api_version => 1.0,
120: p_init_msg_list => FND_API.G_FALSE,
121: p_commit => FND_API.G_FALSE,
122: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
123: X_return_status => l_return_status,
124: X_msg_count => l_msg_count,
125: X_msg_data => l_msg_data,
126: p_Rowid => l_rowid,
183:
184: -- ---------------------------------------------------------------
185: -- Check to make sure that the Access Copy was actually done.
186: -- ---------------------------------------------------------------
187: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
188: IF (g_debug_mode = 'Y') THEN
189: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure Inserting new Account Line ID......');
190: END IF;
191: RAISE FND_API.G_EXC_ERROR ;
187: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
188: IF (g_debug_mode = 'Y') THEN
189: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure Inserting new Account Line ID......');
190: END IF;
191: RAISE FND_API.G_EXC_ERROR ;
192: END IF;
193:
194:
195: IF (g_debug_mode = 'Y') THEN
201: -- --------------------------------------
202: -- Exception Handlers Section
203: -- --------------------------------------
204: EXCEPTION
205: WHEN FND_API.G_EXC_ERROR THEN
206: x_return_status := FND_API.G_RET_STS_ERROR;
207: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
208: p_data => l_msg_data );
209:
202: -- Exception Handlers Section
203: -- --------------------------------------
204: EXCEPTION
205: WHEN FND_API.G_EXC_ERROR THEN
206: x_return_status := FND_API.G_RET_STS_ERROR;
207: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
208: p_data => l_msg_data );
209:
210: IF (g_debug_mode = 'Y') THEN
212: END IF;
213: RETURN;
214:
215: WHEN OTHERS THEN
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
218: p_data => l_msg_data );
219: IF g_unexp_level >= g_debug_level THEN
220: fnd_message.set_name('IGC','IGC_LOGGING_UNEXP_ERROR');
247:
248: l_full_path VARCHAR2(500) := g_path||'Det_Pf_Line_Copy';--bug 3199488
249: BEGIN
250:
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252: IF (g_debug_mode = 'Y') THEN
253: Put_Debug_Msg (l_full_path,' IGCCCPCB - Starting Det PF Line Copy......');
254:
255:
272: END IF;
273:
274: IGC_CC_DET_PF_PKG.Insert_Row
275: (p_api_version => 1.0,
276: p_init_msg_list => FND_API.G_FALSE,
277: p_commit => FND_API.G_FALSE,
278: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
279: X_return_status => l_return_status,
280: X_msg_count => l_msg_count,
273:
274: IGC_CC_DET_PF_PKG.Insert_Row
275: (p_api_version => 1.0,
276: p_init_msg_list => FND_API.G_FALSE,
277: p_commit => FND_API.G_FALSE,
278: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
279: X_return_status => l_return_status,
280: X_msg_count => l_msg_count,
281: X_msg_data => l_msg_data,
274: IGC_CC_DET_PF_PKG.Insert_Row
275: (p_api_version => 1.0,
276: p_init_msg_list => FND_API.G_FALSE,
277: p_commit => FND_API.G_FALSE,
278: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
279: X_return_status => l_return_status,
280: X_msg_count => l_msg_count,
281: X_msg_data => l_msg_data,
282: p_Rowid => l_rowid,
319:
320: -- ---------------------------------------------------------------
321: -- Check to make sure that the Det PF Line was actually done.
322: -- ---------------------------------------------------------------
323: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
324:
325: IF (g_debug_mode = 'Y') THEN
326: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure Inserting Det PF Line ID on Copy.......');
327: END IF;
324:
325: IF (g_debug_mode = 'Y') THEN
326: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure Inserting Det PF Line ID on Copy.......');
327: END IF;
328: RAISE FND_API.G_EXC_ERROR ;
329: END IF;
330:
331:
332: IF (g_debug_mode = 'Y') THEN
338: -- --------------------------------------
339: -- Exception Handlers Section
340: -- --------------------------------------
341: EXCEPTION
342: WHEN FND_API.G_EXC_ERROR THEN
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
345: p_data => l_msg_data );
346: IF (g_debug_mode = 'Y') THEN
339: -- Exception Handlers Section
340: -- --------------------------------------
341: EXCEPTION
342: WHEN FND_API.G_EXC_ERROR THEN
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
345: p_data => l_msg_data );
346: IF (g_debug_mode = 'Y') THEN
347: Put_Debug_Msg (l_full_path,' IGCCCPCB - EXC ERROR Copying new Det PF Line ID.');
348: END IF;
349:
350: RETURN;
351: WHEN OTHERS THEN
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count, p_data => l_msg_data );
354: IF g_unexp_level >= g_debug_level THEN
355: fnd_message.set_name('IGC','IGC_LOGGING_UNEXP_ERROR');
356: fnd_message.set_token('CODE',SQLCODE);
380:
381: l_full_path VARCHAR2(500) := g_path||'Access_Copy';--bug 3199488
382: BEGIN
383:
384: x_return_status := FND_API.G_RET_STS_SUCCESS;
385: IF (g_debug_mode = 'Y') THEN
386: Put_Debug_Msg (l_full_path,' IGCCCPCB - Starting the Access Copy routine..........');
387: END IF;
388:
388:
389:
390: IGC_CC_ACCESS_PKG.Insert_Row
391: (p_api_version => 1.0,
392: p_init_msg_list => FND_API.G_FALSE,
393: p_commit => FND_API.G_FALSE,
394: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
395: x_return_status => l_return_status,
396: x_msg_count => l_msg_count,
389:
390: IGC_CC_ACCESS_PKG.Insert_Row
391: (p_api_version => 1.0,
392: p_init_msg_list => FND_API.G_FALSE,
393: p_commit => FND_API.G_FALSE,
394: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
395: x_return_status => l_return_status,
396: x_msg_count => l_msg_count,
397: x_msg_data => l_msg_data,
390: IGC_CC_ACCESS_PKG.Insert_Row
391: (p_api_version => 1.0,
392: p_init_msg_list => FND_API.G_FALSE,
393: p_commit => FND_API.G_FALSE,
394: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
395: x_return_status => l_return_status,
396: x_msg_count => l_msg_count,
397: x_msg_data => l_msg_data,
398: p_row_id => l_rowid,
411:
412: -- ---------------------------------------------------------------
413: -- Check to make sure that the Access Copy was actually done.
414: -- ---------------------------------------------------------------
415: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
416: RAISE FND_API.G_EXC_ERROR ;
417: END IF;
418:
419:
412: -- ---------------------------------------------------------------
413: -- Check to make sure that the Access Copy was actually done.
414: -- ---------------------------------------------------------------
415: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
416: RAISE FND_API.G_EXC_ERROR ;
417: END IF;
418:
419:
420: IF (g_debug_mode = 'Y') THEN
426: -- --------------------------------------
427: -- Exception Handlers Section
428: -- --------------------------------------
429: EXCEPTION
430: WHEN FND_API.G_EXC_ERROR THEN
431: x_return_status := FND_API.G_RET_STS_ERROR;
432: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
433: p_data => l_msg_data );
434: IF (g_debug_mode = 'Y') THEN
427: -- Exception Handlers Section
428: -- --------------------------------------
429: EXCEPTION
430: WHEN FND_API.G_EXC_ERROR THEN
431: x_return_status := FND_API.G_RET_STS_ERROR;
432: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
433: p_data => l_msg_data );
434: IF (g_debug_mode = 'Y') THEN
435: Put_Debug_Msg (l_full_path,' IGCCCPCB - EXC ERROR in inserting new Access ID........');
436: END IF;
437: RETURN;
438:
439: WHEN OTHERS THEN
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
442: p_data => l_msg_data );
443: IF g_unexp_level >= g_debug_level THEN
444: fnd_message.set_name('IGC','IGC_LOGGING_UNEXP_ERROR');
455: =============================================================================== */
456:
457: PROCEDURE Header_Copy (
458: p_api_version IN NUMBER,
459: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
460: p_commit IN VARCHAR2 := FND_API.G_FALSE,
461: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
462: x_return_status OUT NOCOPY VARCHAR2,
463: x_msg_count OUT NOCOPY NUMBER,
456:
457: PROCEDURE Header_Copy (
458: p_api_version IN NUMBER,
459: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
460: p_commit IN VARCHAR2 := FND_API.G_FALSE,
461: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
462: x_return_status OUT NOCOPY VARCHAR2,
463: x_msg_count OUT NOCOPY NUMBER,
464: x_msg_data OUT NOCOPY VARCHAR2,
457: PROCEDURE Header_Copy (
458: p_api_version IN NUMBER,
459: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
460: p_commit IN VARCHAR2 := FND_API.G_FALSE,
461: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
462: x_return_status OUT NOCOPY VARCHAR2,
463: x_msg_count OUT NOCOPY NUMBER,
464: x_msg_data OUT NOCOPY VARCHAR2,
465: p_old_cc_header_id IN igc_cc_headers.cc_header_id%TYPE,
522: -- ---------------------------------------------------------------------------------------
523: -- Ensure that the arguments passed in match the appropriate version of this
524: -- procedure.
525: -- ---------------------------------------------------------------------------------------
526: IF NOT FND_API.Compatible_API_Call ( l_api_version,
527: p_api_version,
528: l_api_name,
529: G_PKG_NAME )
530: THEN
527: p_api_version,
528: l_api_name,
529: G_PKG_NAME )
530: THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533:
534: IF FND_API.to_Boolean (p_init_msg_list ) THEN
535: FND_MSG_PUB.initialize ;
530: THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533:
534: IF FND_API.to_Boolean (p_init_msg_list ) THEN
535: FND_MSG_PUB.initialize ;
536: END IF;
537:
538: X_return_status := FND_API.G_RET_STS_SUCCESS ;
534: IF FND_API.to_Boolean (p_init_msg_list ) THEN
535: FND_MSG_PUB.initialize ;
536: END IF;
537:
538: X_return_status := FND_API.G_RET_STS_SUCCESS ;
539:
540: -- --------------------------------------------------------------------------------------
541: -- Initialize Global variables that are used by procedure.
542: -- --------------------------------------------------------------------------------------
555: -- --------------------------------------------------------------------------------------
556: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
557:
558: -- IF (l_debug = 'Y') THEN
559: -- l_debug := FND_API.G_TRUE;
560: -- ELSE
561: -- l_debug := FND_API.G_FALSE;
562: -- END IF;
563:
557:
558: -- IF (l_debug = 'Y') THEN
559: -- l_debug := FND_API.G_TRUE;
560: -- ELSE
561: -- l_debug := FND_API.G_FALSE;
562: -- END IF;
563:
564: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN (l_debug);
565: IF (g_debug_mode = 'Y') THEN
560: -- ELSE
561: -- l_debug := FND_API.G_FALSE;
562: -- END IF;
563:
564: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN (l_debug);
565: IF (g_debug_mode = 'Y') THEN
566: Put_Debug_Msg (l_full_path,' IGCCCPCB - Starting Header Copy for New Header : ' || p_new_cc_header_id ||
567: ' from Old Header ID : ' || p_old_cc_header_id);
568: END IF;
580: IGC_MSGS_PKG.message_token (p_tokname => 'CC_HEADER_ID',
581: p_tokval => p_old_cc_header_id);
582: IGC_MSGS_PKG.add_message (p_appname => 'IGC',
583: p_msgname => 'IGC_HEADER_ID_NOT_FOUND');
584: RAISE FND_API.G_EXC_ERROR;
585: END IF;
586:
587: CLOSE c_obtain_cc_header;
588:
591: -- the appropriate MRC records.
592: -- ------------------------------------------------------------------------------------
593: IGC_CC_HEADERS_PKG.Insert_Row
594: (p_api_version => 1.0,
595: p_init_msg_list => FND_API.G_FALSE,
596: p_commit => FND_API.G_FALSE,
597: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
598: X_return_status => l_return_status,
599: X_msg_count => l_msg_count,
592: -- ------------------------------------------------------------------------------------
593: IGC_CC_HEADERS_PKG.Insert_Row
594: (p_api_version => 1.0,
595: p_init_msg_list => FND_API.G_FALSE,
596: p_commit => FND_API.G_FALSE,
597: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
598: X_return_status => l_return_status,
599: X_msg_count => l_msg_count,
600: X_msg_data => l_msg_data,
593: IGC_CC_HEADERS_PKG.Insert_Row
594: (p_api_version => 1.0,
595: p_init_msg_list => FND_API.G_FALSE,
596: p_commit => FND_API.G_FALSE,
597: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
598: X_return_status => l_return_status,
599: X_msg_count => l_msg_count,
600: X_msg_data => l_msg_data,
601: p_Rowid => l_rowid,
655:
656: -- ------------------------------------------------------------------------------------
657: -- Check to make sure that the Header was actually created.
658: -- ------------------------------------------------------------------------------------
659: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
660: IF (g_debug_mode = 'Y') THEN
661: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure inserting New CC Header id.........');
662: END IF;
663: RAISE FND_API.G_EXC_ERROR;
659: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
660: IF (g_debug_mode = 'Y') THEN
661: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure inserting New CC Header id.........');
662: END IF;
663: RAISE FND_API.G_EXC_ERROR;
664: END IF;
665:
666: -- ------------------------------------------------------------------------------------
667: -- Add the Entry into the Actions table indicating that the CC action is a COPY. This
668: -- resolves bug 1518478 and the new ACTION_TYPE added into lookups is "CP"
669: -- ------------------------------------------------------------------------------------
670: IGC_CC_ACTIONS_PKG.Insert_Row(
671: 1.0,
672: FND_API.G_FALSE,
673: FND_API.G_FALSE,
674: FND_API.G_VALID_LEVEL_FULL,
675: l_return_status,
676: l_msg_count,
669: -- ------------------------------------------------------------------------------------
670: IGC_CC_ACTIONS_PKG.Insert_Row(
671: 1.0,
672: FND_API.G_FALSE,
673: FND_API.G_FALSE,
674: FND_API.G_VALID_LEVEL_FULL,
675: l_return_status,
676: l_msg_count,
677: l_msg_data,
670: IGC_CC_ACTIONS_PKG.Insert_Row(
671: 1.0,
672: FND_API.G_FALSE,
673: FND_API.G_FALSE,
674: FND_API.G_VALID_LEVEL_FULL,
675: l_return_status,
676: l_msg_count,
677: l_msg_data,
678: l_action_rowid,
692:
693: -- ------------------------------------------------------------------------------------
694: -- Check to make sure that the Header was actually created.
695: -- ------------------------------------------------------------------------------------
696: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
697: IF (g_debug_mode = 'Y') THEN
698: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure inserting New CC Header id.........');
699: END IF;
700: RAISE FND_API.G_EXC_ERROR;
696: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
697: IF (g_debug_mode = 'Y') THEN
698: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure inserting New CC Header id.........');
699: END IF;
700: RAISE FND_API.G_EXC_ERROR;
701: END IF;
702:
703: -- ------------------------------------------------------------------------------------
704: -- Copy all the corresponding account lines for the CC Header given.
718:
719: -- -----------------------------------------------------------------------------------
720: -- Check to make sure that the Account Line was actually created.
721: -- -----------------------------------------------------------------------------------
722: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
723: IF (g_debug_mode = 'Y') THEN
724: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure returned from Acct_Line_Copy......');
725: END IF;
726: RAISE FND_API.G_EXC_ERROR ;
722: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
723: IF (g_debug_mode = 'Y') THEN
724: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure returned from Acct_Line_Copy......');
725: END IF;
726: RAISE FND_API.G_EXC_ERROR ;
727: END IF;
728:
729: OPEN c_payment_forecast(l_cc_acct_lines_rec.cc_acct_line_id);
730:
741:
742: -- -----------------------------------------------------------------------------------
743: -- Check to make sure that the Det PF Line was actually created.
744: -- -----------------------------------------------------------------------------------
745: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
746: IF (g_debug_mode = 'Y') THEN
747: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure returned from Det_Pf_Line_Copy........');
748: END IF;
749: RAISE FND_API.G_EXC_ERROR ;
745: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
746: IF (g_debug_mode = 'Y') THEN
747: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure returned from Det_Pf_Line_Copy........');
748: END IF;
749: RAISE FND_API.G_EXC_ERROR ;
750: END IF;
751:
752: END LOOP;
753:
773:
774: -- -----------------------------------------------------------------------------------
775: -- Check to make sure that the Access Copy was actually done.
776: -- -----------------------------------------------------------------------------------
777: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
778: IF (g_debug_mode = 'Y') THEN
779: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure returned from Access_Copy.......');
780: END IF;
781: RAISE FND_API.G_EXC_ERROR ;
777: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
778: IF (g_debug_mode = 'Y') THEN
779: Put_Debug_Msg (l_full_path,' IGCCCPCB - Failure returned from Access_Copy.......');
780: END IF;
781: RAISE FND_API.G_EXC_ERROR ;
782: END IF;
783:
784: END LOOP;
785:
792: -- --------------------------------------------------------------------------------------
793: -- If there are no errors and the caller wants the commit to be performed then commit
794: -- since there were no exceptions encountered.
795: -- --------------------------------------------------------------------------------------
796: IF FND_API.To_Boolean(p_commit)
797: THEN
798: IF (g_debug_mode = 'Y') THEN
799: Put_Debug_Msg (l_full_path,' IGCCCPCB - Committing work performed......');
800: END IF;
807: -- Exception Handler section for procedure.
808: -- --------------------------------------------------------------------------------------
809: EXCEPTION
810:
811: WHEN FND_API.G_EXC_ERROR THEN
812: ROLLBACK TO Header_Copy_Pvt;
813: X_return_status := FND_API.G_RET_STS_ERROR;
814: g_new_cc_header_id := NULL;
815: IF (g_debug_mode = 'Y') THEN
809: EXCEPTION
810:
811: WHEN FND_API.G_EXC_ERROR THEN
812: ROLLBACK TO Header_Copy_Pvt;
813: X_return_status := FND_API.G_RET_STS_ERROR;
814: g_new_cc_header_id := NULL;
815: IF (g_debug_mode = 'Y') THEN
816: Put_Debug_Msg (l_full_path,' IGCCCPCB - EXC ERROR encountered in the Header Copy routine.....');
817: END IF;
830: FND_MSG_PUB.Count_And_Get (p_count => X_msg_count,
831: p_data => X_msg_data );
832: RETURN;
833:
834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
835: ROLLBACK TO Header_Copy_Pvt;
836: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: g_new_cc_header_id := NULL;
838: IF (g_debug_mode = 'Y') THEN
832: RETURN;
833:
834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
835: ROLLBACK TO Header_Copy_Pvt;
836: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: g_new_cc_header_id := NULL;
838: IF (g_debug_mode = 'Y') THEN
839: Put_Debug_Msg (l_full_path,' IGCCCPCB - EXC UNEXPECTED ERROR encountered in the Header Copy routine.....');
840: END IF;
855: RETURN;
856:
857: WHEN OTHERS THEN
858: ROLLBACK TO Header_Copy_Pvt;
859: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
860: g_new_cc_header_id := NULL;
861: IF (g_debug_mode = 'Y') THEN
862: Put_Debug_Msg (l_full_path,' IGCCCPCB - OTHERS ERROR encountered in the Header Copy routine.....');
863: END IF;
914: p_filename_val => NULL,
915: x_Return_Status => l_Return_Status
916: );
917:
918: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
919: raise FND_API.G_EXC_ERROR;
920: END IF;
921:
922: RETURN;
915: x_Return_Status => l_Return_Status
916: );
917:
918: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
919: raise FND_API.G_EXC_ERROR;
920: END IF;
921:
922: RETURN;
923:
922: RETURN;
923:
924: EXCEPTION
925:
926: WHEN FND_API.G_EXC_ERROR THEN
927: RETURN;
928:
929: WHEN OTHERS THEN
930: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN