1 PACKAGE BODY IGS_FI_INVOICE_PROCESS AS
2 /* $Header: IGSFI49B.pls 120.1 2005/09/08 14:36:35 appldev noship $ */
3
4 PROCEDURE igs_fi_fee_asto_int(errbuf OUT NOCOPY VARCHAR2,
5 retcode OUT NOCOPY NUMBER,
6 p_person_id IN NUMBER DEFAULT NULL,
7 p_course_cd IN VARCHAR2 DEFAULT NULL,
8 p_fee_cat IN VARCHAR2 DEFAULT NULL,
9 p_fee_period IN VARCHAR2 DEFAULT NULL,
10 p_fee_type IN VARCHAR2 DEFAULT NULL,
11 p_org_id IN NUMBER) AS
12 BEGIN
13 -- As per the SFCR005, this concurrent program is obsoleted
14 -- and if the user tries to run this program, then an error
15 -- message should be written to the log file that this is obsolete
16 FND_MESSAGE.Set_Name('IGS',
17 'IGS_GE_OBSOLETE_JOB');
18 FND_FILE.Put_Line(FND_FILE.Log,
19 FND_MESSAGE.Get);
20 retcode := 0;
21 EXCEPTION
22 WHEN Others THEN
23 retcode := 2;
24 FND_MESSAGE.Set_Name('IGS',
25 'IGS_GE_UNHANDLED_EXCEPTION');
26 errbuf := FND_MESSAGE.Get;
27 IGS_GE_MSG_STACK.Conc_Exception_Hndl;
28 END igs_fi_fee_asto_int;
29
30 PROCEDURE IGS_FI_INTTO_OAR(errbuf OUT NOCOPY VARCHAR2,
31 retcode OUT NOCOPY NUMBER,
32 p_person_id IN NUMBER DEFAULT NULL,
33 p_course_cd IN VARCHAR2 DEFAULT NULL,
34 p_fee_cat IN VARCHAR2 DEFAULT NULL,
35 p_fee_period IN VARCHAR2 DEFAULT NULL,
36 p_fee_type IN VARCHAR2 DEFAULT NULL,
37 p_org_id IN NUMBER) AS
38 BEGIN
39 -- As per the SFCR005, this concurrent program is obsoleted
40 -- and if the user tries to run this program, then an error
41 -- message should be written to the log file that this is obsolete
42 FND_MESSAGE.Set_Name('IGS',
43 'IGS_GE_OBSOLETE_JOB');
44 FND_FILE.Put_Line(FND_FILE.Log,
45 FND_MESSAGE.Get);
46 retcode := 0;
47 EXCEPTION
48 WHEN Others THEN
49 retcode := 2;
50 FND_MESSAGE.Set_Name('IGS',
51 'IGS_GE_UNHANDLED_EXCEPTION');
52 errbuf := FND_MESSAGE.Get;
53 IGS_GE_MSG_STACK.Conc_Exception_Hndl;
54 END igs_fi_intto_oar;
55
56 PROCEDURE IGS_FI_OARTO_INVPAY(errbuf OUT NOCOPY VARCHAR2,
57 retcode OUT NOCOPY NUMBER,
58 p_org_id IN NUMBER) AS
59 BEGIN
60 -- As per the SFCR005, this concurrent program is obsoleted
61 -- and if the user tries to run this program, then an error
62 -- message should be written to the log file that this is obsolete
63 FND_MESSAGE.Set_Name('IGS',
64 'IGS_GE_OBSOLETE_JOB');
65 FND_FILE.Put_Line(FND_FILE.Log,
66 FND_MESSAGE.Get);
67 retcode := 0;
68 EXCEPTION
69 WHEN Others THEN
70 retcode := 2;
71 FND_MESSAGE.Set_Name('IGS',
72 'IGS_GE_UNHANDLED_EXCEPTION');
73 errbuf := FND_MESSAGE.Get;
74 IGS_GE_MSG_STACK.Conc_Exception_Hndl;
75 END igs_fi_oarto_invpay;
76
77 PROCEDURE IGS_FI_PER_PAY_SCHED(errbuf OUT NOCOPY VARCHAR2,
78 retcode OUT NOCOPY NUMBER,
79 p_org_id IN NUMBER) AS
80 BEGIN
81 -- As per the SFCR005, this concurrent program is obsoleted
82 -- and if the user tries to run this program, then an error
83 -- message should be written to the log file that this is obsolete
84 FND_MESSAGE.Set_Name('IGS',
85 'IGS_GE_OBSOLETE_JOB');
86 FND_FILE.Put_Line(FND_FILE.Log,
87 FND_MESSAGE.Get);
88 retcode := 0;
89 EXCEPTION
90 WHEN Others THEN
91 retcode := 2;
92 FND_MESSAGE.Set_Name('IGS',
93 'IGS_GE_UNHANDLED_EXCEPTION');
94 errbuf := FND_MESSAGE.Get;
95 IGS_GE_MSG_STACK.Conc_Exception_Hndl;
96 END igs_fi_per_pay_sched;
97
98 END IGS_FI_INVOICE_PROCESS;