PACKAGE BODY: APPS.IGS_FI_PAY_TERM_INT

Source

1 PACKAGE BODY IGS_FI_PAY_TERM_INT AS
2 /* $Header: IGSFI48B.pls 120.1 2005/09/08 16:12:15 appldev noship $ */
3 
4 PROCEDURE payment_term_int(  errbuf  OUT NOCOPY  VARCHAR2,
5                              retcode OUT NOCOPY  NUMBER ,
6                              p_org_id  NUMBER ) AS
7 BEGIN
8 -- As per the SFCR005, this concurrent program is obsoleted
9 -- and if the user tries to run this program, then an error
10 -- message should be written to the log file that this is obsolete
11   FND_MESSAGE.Set_Name('IGS',
12                        'IGS_GE_OBSOLETE_JOB');
13   FND_FILE.Put_Line(FND_FILE.Log,
14                     FND_MESSAGE.Get);
15   retcode := 0;
16 EXCEPTION
17   WHEN OTHERS THEN
18     retcode := 2;
19     FND_MESSAGE.Set_Name('IGS',
20                          'IGS_GE_UNHANDLED_EXCEPTION');
21     IGS_GE_MSG_STACK.Add;
22     APP_EXCEPTION.Raise_Exception;
23 END payment_term_int;
24 END IGS_FI_PAY_TERM_INT;