[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_ADJUSTMENTS_PKG
Source
1 PACKAGE BODY igi_iac_adjustments_pkg AS
2 -- $Header: igiiaadb.pls 120.8.12000000.2 2007/10/04 10:54:01 sharoy ship $
3
4 --===========================FND_LOG.START=====================================
5 g_state_level NUMBER;
6 g_proc_level NUMBER;
7 g_event_level NUMBER;
8 g_excep_level NUMBER;
9 g_error_level NUMBER;
10 g_unexp_level NUMBER;
11 g_path VARCHAR2(100);
12 --===========================FND_LOG.END=====================================
13
14 PROCEDURE insert_row (
15 x_rowid IN OUT NOCOPY VARCHAR2,
16 x_adjustment_id IN NUMBER,
17 x_book_type_code IN VARCHAR2,
18 x_code_combination_id IN NUMBER,
19 x_set_of_books_id IN NUMBER,
20 x_dr_cr_flag IN VARCHAR2,
21 x_amount IN NUMBER,
22 x_adjustment_type IN VARCHAR2,
23 x_adjustment_offset_type IN VARCHAR2,
24 x_transfer_to_gl_flag IN VARCHAR2,
25 x_units_assigned IN NUMBER,
26 x_asset_id IN NUMBER,
27 x_distribution_id IN NUMBER,
28 x_period_counter IN NUMBER,
29 x_report_ccid IN NUMBER,
30 x_mode IN VARCHAR2,
31 x_event_id IN NUMBER -- for R12 SLA upgrade
32
33 ) AS
34 /*
35 || Created By :
36 || Created On : 14-APR-2002
37 || Purpose : Handles the INSERT DML logic for the table.
38 || Known limitations, enhancements or remarks :
39 || Change History :
40 || Who When What
41 || (reverse chronological order - newest change first)
42 */
43
44 /* This is commented out NOCOPY as the this table contains multiple rows for the same
45 adjustment id.
46 CURSOR c IS
47 SELECT rowid
48 FROM igi_iac_adjustments
49 WHERE adjustment_id = x_adjustment_id;
50 */
51
52 x_last_update_date DATE;
53 x_last_updated_by NUMBER;
54 x_last_update_login NUMBER;
55 x_creation_date DATE;
56
57 x_created_by NUMBER;
58 x_new_dr_cr_flag VARCHAR2(2);
59 x_new_amount NUMBER;
60 l_mode VARCHAR2(1);
61 BEGIN
62
63 IF x_mode IS NULL THEN
64 l_mode := 'R';
65 ELSE
66 l_mode := x_mode;
67 END IF;
68
69 IF (l_mode = 'R') THEN
70 x_last_update_date := SYSDATE;
71 x_creation_date := SYSDATE;
72 x_created_by := fnd_global.user_id;
73 IF (x_created_by IS NULL) THEN
74 x_created_by := -1;
75 END IF;
76 x_last_updated_by := fnd_global.user_id;
77 IF (x_last_updated_by IS NULL) THEN
78 x_last_updated_by := -1;
79 END IF;
80 x_last_update_login := fnd_global.login_id;
81 IF (x_last_update_login IS NULL) THEN
82 x_last_update_login := -1;
83 END IF;
84 ELSE
85 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
86 igi_iac_debug_pkg.debug_other_msg(g_error_level,g_path||'insert_row',FALSE);
87 app_exception.raise_exception;
88 END IF;
89
90
91
92 /* Bug 2454950 vgadde 10/07/2002 Start */
93 /* Commented the below code as swapping is not required */
94 /* Bug 2462546 Ckappaga 16/07/2002 start*/
95 /* uncommented the code and amde abs amount if negative */
96 IF x_amount < 0 THEN
97 x_new_amount := abs(x_amount);
98 IF x_dr_cr_flag = 'DR' THEN --swap
99 x_new_dr_cr_flag := 'CR';
100 ELSIF x_dr_cr_flag = 'CR' THEN --swap
101 x_new_dr_cr_flag := 'DR';
102 END IF;
103 ELSE
104 x_new_dr_cr_flag := x_dr_cr_flag;
105 x_new_amount := x_amount;
106 END IF;
107 /* Bug 2454950 vgadde 10/07/2002 End */
108 /* Bug 2462546 ckappaga 16/07/2002 End */
109
110 INSERT INTO igi_iac_adjustments (
111 adjustment_id,
112 book_type_code,
113 code_combination_id,
114 set_of_books_id,
115 dr_cr_flag,
116 amount,
117 adjustment_type,
118 adjustment_offset_type,
119 transfer_to_gl_flag,
120 units_assigned,
121 asset_id,
122 distribution_id,
123 period_counter,
124 report_ccid,
125 creation_date,
126 created_by,
127 last_update_date,
128 last_updated_by,
129 last_update_login,
130 event_id -- for R12 SLA upgrade
131 ) VALUES (
132 x_adjustment_id,
133 x_book_type_code,
134 x_code_combination_id,
135 x_set_of_books_id,
136 x_new_dr_cr_flag,
137 x_new_amount,
138 x_adjustment_type,
139 x_adjustment_offset_type,
140 x_transfer_to_gl_flag,
141 x_units_assigned,
142 x_asset_id,
143 x_distribution_id,
144 x_period_counter,
145 x_report_ccid,
146 x_creation_date,
147 x_created_by,
148 x_last_update_date,
149 x_last_updated_by,
150 x_last_update_login,
151 x_event_id -- for R12 SLA upgrade
152 );
153
154
155 /* This is commented out NOCOPY as the this table contains multiple rows for the same
156 adjustment id.
157 OPEN c;
158 FETCH c INTO x_rowid;
159 IF (c%NOTFOUND) THEN
160 CLOSE c;
161 RAISE NO_DATA_FOUND;
162 END IF;
163 CLOSE c;
164 */
165
166
167 END insert_row;
168
169
170
171 PROCEDURE delete_row (
172
173 x_adjustment_id IN NUMBER
174 ) AS
175 /*
176 || Created By :
177 || Created On : 14-APR-2002
178 || Purpose : Handles the DELETE DML logic for the table.
179 || Known limitations, enhancements or remarks :
180 || Change History :
181 || Who When What
182 || (reverse chronological order - newest change first)
183 */
184 BEGIN
185
186 DELETE FROM igi_iac_adjustments
187 WHERE adjustment_id = x_adjustment_id;
188
189 IF (SQL%NOTFOUND) THEN
190 RAISE NO_DATA_FOUND;
191 END IF;
192
193 END delete_row;
194
195 BEGIN
196 --===========================FND_LOG.START=====================================
197 g_state_level := FND_LOG.LEVEL_STATEMENT;
198 g_proc_level := FND_LOG.LEVEL_PROCEDURE;
199 g_event_level := FND_LOG.LEVEL_EVENT;
200 g_excep_level := FND_LOG.LEVEL_EXCEPTION;
201 g_error_level := FND_LOG.LEVEL_ERROR;
202 g_unexp_level := FND_LOG.LEVEL_UNEXPECTED;
203 g_path := 'IGI.PLSQL.igiiaadb.igi_arc_rxi.';
204 --===========================FND_LOG.END=====================================
205
206 END igi_iac_adjustments_pkg;