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;
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;
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;
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,
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;
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;
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;
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,
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;
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;
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;
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,
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;
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;
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;
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;