1 PACKAGE BODY igf_aw_ext_fund_ld AS
2 /* $Header: IGFAW05B.pls 120.2 2006/01/17 02:40:03 tsailaja noship $ */
3 --
4 -------------------------------------------------------------------------
5 -- Created By : mesriniv
6 -- Date Created By : 2001/15/06
7 -- Purpose : To Upload External Funds from the DataFile
8 -- and Create Awards and Disbursements
9 ------------------------------------------------------------------------
10 -- Who When What
11 ------------------------------------------------------------------------
12 -- veramach 3-NOV-2003 FA 125 Multiple Distr Methods
13 -- Obsoleted the process
14 ------------------------------------------------------------------------
15 -- ugummall 26-SEP-2003 FA 126 - Multiple FA Offices.
16 -- added new parameter assoc_org_num to
17 -- igf_ap_fa_base_rec_pkg TBH calls
18 ------------------------------------------------------------------------
19 -- sjadhav 02-Jul-2003 Re-vamped code logic to create
20 -- external awards. Corrected routines
21 -- added via bug 2863920.
22 ------------------------------------------------------------------------
23 -- sjadhav 24-Jun-2003 Bug 2983181. elig status populated
24 -- with N
25 ------------------------------------------------------------------------
26 -- bkkumar 04-jun-2003 Bug #2858504
27 -- Added legacy_record_flag,award_number_txt
28 -- in the table handler calls for
29 -- igf_aw_award_pkg.insert_row
30 -- Added legacy_record_flag
31 -- in the table handler calls for
32 -- igf_ap_td_item_inst_pkg.insert_row
33 ------------------------------------------------------------------------
34 --rasahoo 23-Apl-2003 Bug # 2860836
35 -- Added exception handling for resolving
36 -- locking problem created by fund manager
37 ------------------------------------------------------------------------
38 --gmuralid 10-Apr-2003 Bug 2863920
39 -- Made the following changes :
40 -- 1) In process_funds procedure
41 -- in check for student cursor, added
42 -- award year join in the where clause.
43 -- 2)The procedures get_disbursements,
44 -- post_award and add_todo initially
45 -- present in the packaging process now
46 -- made local to this package.
47 ------------------------------------------------------------------------
48 -- sjadhav 03-Apr-2003 Bug 2875503
49 -- Added SQLERRM messages
50 ------------------------------------------------------------------------
51 -- sjadhav Jan.08.2003. Bug 2740220.
52 -- Added igf_gr_gen.get_ssn_digits
53 ------------------------------------------------------------------------
54 -- masehgal 11-Nov-2002 FA 101 - SAP Obsoletion
55 -- Removed packaging hold
56 ------------------------------------------------------------------------
57 -- masehgal 03-Nov-2002 # 2613546 FA 105_108 Multi Award
58 -- Years Added pell alt expense in fa
59 -- base call
60 ------------------------------------------------------------------------
61 -- masehgal 25-Sep-2002 FA 104 - To Do Enhancements
62 -- Added manual_disb_hold in FA Base
63 -- insert
64 ------------------------------------------------------------------------
65 -- cdcruz 13-jun-2002 IF Student not found in Base record
66 -- it Creates a Base Record
67 ------------------------------------------------------------------------
68 --
69
70 -- MAIN PROCEDURE
71 PROCEDURE process_ack(errbuf OUT NOCOPY VARCHAR2,
72 retcode OUT NOCOPY NUMBER,
73 p_award_year IN VARCHAR2,
74 p_org_id IN NUMBER)
75 AS
76
77 /***************************************************************
78 Created By : mesriniv
79 Date Created By : 2001/15/06
80 Purpose : To process all the Records in the FlatFile
81 Known Limitations,Enhancements or Remarks
82 Change History :
83 Bug No : 2400442
84 Bug Desc : Import External Awards
85 Who When What
86 mesriniv 7-jun-2002 Added a new parameter p_award_year
87 Who When What
88 tsailaja 13/Jan/2006 Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
89 ***************************************************************/
90
91
92 BEGIN
93 igf_aw_gen.set_org_id(NULL);
94 retcode := 0;
95
96 fnd_message.set_name('IGS','IGS_GE_OBSOLETE_JOB');
97 fnd_file.put_line(fnd_file.log,fnd_message.get);
98
99 END process_ack;
100
101 END igf_aw_ext_fund_ld;