26: BEGIN
27: -- As per the SFCR005, this concurrent program is obsoleted
28: -- and if the user tries to run this program, then an error
29: -- message should be written to the log file that this is obsolete
30: FND_MESSAGE.Set_Name('IGS',
31: 'IGS_GE_OBSOLETE_JOB');
32: FND_FILE.Put_Line(FND_FILE.Log,
33: FND_MESSAGE.Get);
34: retcode := 0;
29: -- message should be written to the log file that this is obsolete
30: FND_MESSAGE.Set_Name('IGS',
31: 'IGS_GE_OBSOLETE_JOB');
32: FND_FILE.Put_Line(FND_FILE.Log,
33: FND_MESSAGE.Get);
34: retcode := 0;
35: EXCEPTION
36: WHEN Others THEN
37: retcode := 2;
34: retcode := 0;
35: EXCEPTION
36: WHEN Others THEN
37: retcode := 2;
38: FND_MESSAGE.Set_Name('IGS',
39: 'IGS_GE_UNHANDLED_EXCEPTION');
40: errbuf := FND_MESSAGE.Get;
41: IGS_GE_MSG_STACK.Conc_Exception_Hndl;
42: END account_int;
36: WHEN Others THEN
37: retcode := 2;
38: FND_MESSAGE.Set_Name('IGS',
39: 'IGS_GE_UNHANDLED_EXCEPTION');
40: errbuf := FND_MESSAGE.Get;
41: IGS_GE_MSG_STACK.Conc_Exception_Hndl;
42: END account_int;
43: END IGS_FI_ACCOUNT_INT;