1 PACKAGE BODY IGS_FI_ACCOUNT_INT AS
2 /* $Header: IGSFI47B.pls 120.1 2005/09/08 14:44:08 appldev noship $ */
3
4 /******************************************************************
5
6 Created By: Lakshmi.Priyadharshini
7
8 Date Created By: 12-05-2000
9
10 Purpose: To interace the Receivables account details with Student System
11
12 Known limitations,enhancements,remarks:
13
14 Change History
15
16 Who When What
17 agairola 04-Oct-2001 Obsoletion Code added
18 vchappid 11-May-01 table handler was modifed for IGS_FI_CONTROL_PKG,
19 changes are incorporated.
20 msrinivi 18-Jul-01 Call to IGS_FI_CONTROL_PKG now takes
21 additional parameter set_of_books_id
22 ******************************************************************/
23 PROCEDURE account_int( errbuf OUT NOCOPY VARCHAR2,
24 retcode OUT NOCOPY NUMBER,
25 p_org_id NUMBER) AS
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;
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;
43 END IGS_FI_ACCOUNT_INT;