[Home] [Help]
PACKAGE BODY: APPS.JAI_CMN_RG_I_TRXS_PKG
Source
1 PACKAGE BODY jai_cmn_rg_i_trxs_pkg AS
2 /* $Header: jai_cmn_rg_i.plb 120.3 2007/08/16 11:20:30 vkaranam ship $ */
3
4 PROCEDURE validate_rg1_balances(
5 P_ORGANIZATION_ID IN NUMBER,
6 P_LOCATION_ID IN NUMBER,
7 P_INVENTORY_ITEM_ID IN NUMBER,
8 P_FIN_YEAR IN NUMBER,
9 P_QUANTITY IN NUMBER,
10 P_TRANSACTION_UOM_CODE IN VARCHAR2,
11 P_TRANSACTION_TYPE IN VARCHAR2,
12 P_ERR_BUF OUT NOCOPY VARCHAR2
13 ) IS
14
15 /* Added by Ramananda for bug#4407165 */
16 lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_rg_i_trxs_pkg.validate_rg1_balances';
17
18 v_primary_uom_code MTL_UNITS_OF_MEASURE.uom_code%TYPE;
19 v_transaction_uom_code MTL_UNITS_OF_MEASURE.uom_code%TYPE;
20 CURSOR c_item_primary_uom(p_organization_id NUMBER, p_inventory_item_id NUMBER) IS
21 SELECT primary_uom_code
22 FROM mtl_system_items
23 WHERE organization_id = p_organization_id
24 AND inventory_item_id = p_inventory_item_id;
25
26 vTransToPrimaryUOMConv NUMBER;
27 vMaxSlno NUMBER;
28
29 -- Quantity field used in the insert statement
30 vBalanceLoose NUMBER;
31 vBalancePacked NUMBER;
32 v_quantity NUMBER ; -- := NVL(p_quantity, 0) File.Sql.35 by Brathod
33 v_manufactured_qty NUMBER;
34
35
36 BEGIN
37
38 /*-------------------------------------------------------------------------------------------------------------
39 Functionality of the Package
40 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
41 - PROCEDURE validate_rg1_balances
42 This procedure is used to validate whether required amount of balances are available to issue the goods.
43 Populates P_ERR_BUF variable with proper message if balances are not sufficient to hit RG1 register
44
45 - FUNCTION get_rg1_transaction_id
46 This function returns a UNIQUE NUMBER used to identify the RG1 transaction type in JAI_CMN_RG_I_TRXS table
47
48 - PROCEDURE create_rg1_entry
49 This procedure takes in all the values that has to be populated into database columns.
50 Generates the sequence no, serial no for REGISTER_ID, SLNO columns. Calculates the quantity balance to
51 be populated into BALANCE_LOOSE column of the table and finally inserts data into JAI_CMN_RG_I_TRXS table.
52
53
54
55 Change History
56 ~~~~~~~~~~~~~~
57
58 S.No DD/MM/YYYY Author and Details
59 ---------------------------------------------------------------------------------------------------------------
60 1 30/04/2004 Nagaraj.s for Bug # 3535729 File Version : 619.1
61 In case of RECEIPTS, and Transaction Type ='CR' transaction_id=18 is set.
62 2. 8-Jun-2005 Version 116.2 jai_cmn_rg_i -Object is Modified to refer to New DB Entity names in place of Old DB Entity Names
63 as required for CASE COMPLAINCE.
64 3. 14/07/2005 4485801 Brathod, File Version 117.1
65 Issue: Inventory Convergence Uptake for R12 Initiative
66 4. 16/04/2007 bduvarag for the Bug#5989740, file version 120.2
67 Forward porting the changes done in 11i bug#5907436
68
69
70 5. 16/08/2007 vkaranam for bug#6030615,File version 120.3
71 forward porting the changes done in 115 bug#2942973(Interorg). -------------------------------------------------------------------------------------------------------------*/
72 v_quantity := NVL(p_quantity, 0); -- File.Sql.35 by Brathod
73 IF p_transaction_type IN ('R', 'RA', 'IOR', 'PR', 'CR') THEN
74 -- No need to test for balances for these transactions types
75 -- as these are receipt transactions which increase the balances
76 RETURN;
77 END IF;
78
79 OPEN c_item_primary_uom(p_organization_id, p_inventory_item_id);
80 FETCH c_item_primary_uom INTO v_primary_uom_code;
81 CLOSE c_item_primary_uom;
82
83 IF p_transaction_uom_code IS NULL THEN
84 v_transaction_uom_code := v_primary_uom_code;
85 ELSE
86 v_transaction_uom_code := p_transaction_uom_code;
87 END IF;
88
89 IF v_transaction_uom_code <> v_primary_uom_code THEN
90 INV_CONVERT.inv_um_conversion(
91 v_transaction_uom_code, v_primary_uom_code,
92 p_inventory_item_id, vTransToPrimaryUOMConv
93 );
94
95 IF nvl(vTransToPrimaryUOMConv, 0) <= 0 THEN
96 INV_CONVERT.inv_um_conversion(
97 v_transaction_uom_code, v_primary_uom_code,
98 0, vTransToPrimaryUOMConv
99 );
100 IF nvl(vTransToPrimaryUOMConv, 0) <= 0 THEN
101 vTransToPrimaryUOMConv := 1;
102 END IF;
103 END IF;
104
105 ELSE
106 vTransToPrimaryUOMConv := 1;
107 END IF;
108
109 v_quantity := nvl(p_quantity, 0) * vTransToPrimaryUOMConv;
110
111 SELECT max(slno) INTO vMaxSlno
112 FROM JAI_CMN_RG_I_TRXS
113 WHERE organization_id = p_organization_id
114 AND location_id = p_location_id
115 AND inventory_item_id = p_inventory_item_id
116 AND fin_year = p_fin_year;
117
118 IF vMaxSlno IS NOT NULL THEN
119 SELECT NVL(balance_packed,0), NVL(balance_loose,0) INTO vBalancePacked, vBalanceLoose
120 FROM JAI_CMN_RG_I_TRXS
121 WHERE organization_id = p_organization_id
122 and location_id = p_location_id
123 and inventory_item_id = p_inventory_item_id
124 AND fin_year = p_fin_year
125 AND slno = vMaxSlno;
126
127 ELSE
128 -- If execution comes here, then it means it is an ISSUE type of transaction and no balances available
129 p_err_buf := 'Enough RG1 balance is not available to Issue the Goods';
130 END IF;
131
132 IF p_transaction_type IN ('I', 'IA', 'IOI', 'PI') THEN
133
134 IF vBalanceLoose < v_quantity THEN
135 p_err_buf := 'Enough RG1 balance is not available to Issue the Goods';
136 END IF;
137 END IF;
138
139 /* Added by Ramananda for bug#4407165 */
140 EXCEPTION
141 WHEN OTHERS THEN
142 P_ERR_BUF := null;
143 FND_MESSAGE.SET_NAME('JA','JAI_EXCEPTION_OCCURED');
144 FND_MESSAGE.SET_TOKEN('JAI_PROCESS_MSG', lv_object_name ||'. Err:'||sqlerrm );
145 app_exception.raise_exception;
146
147 END validate_rg1_balances;
148
149 FUNCTION get_rg1_transaction_id(
150 P_TRANSACTION_TYPE IN VARCHAR2,
151 P_ISSUE_TYPE IN VARCHAR2,
152 P_CALLED_FROM IN VARCHAR2
153 ) RETURN NUMBER IS
154
155 v_transaction_id NUMBER := -1;
156
157 /* Added by Ramananda for bug#4407165 */
158 lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_rg_i_trxs_pkg.get_rg1_transaction_id';
159
160 BEGIN
161 IF p_called_from = 'MANUAL ENTRY' THEN
162 IF p_transaction_type = 'R' THEN
163 v_transaction_id := 91;
164 ELSIF p_transaction_type = 'IOR' THEN
165 v_transaction_id := 92;
166 ELSIF p_transaction_type = 'RA' THEN
167 v_transaction_id := 93;
168 ELSIF p_transaction_type = 'PR' THEN
169 v_transaction_id := 94;
170 ELSIF p_transaction_type = 'CR' THEN
171 v_transaction_id := 95;
172 ELSIF p_transaction_type = 'I' THEN
173 v_transaction_id := 100;
174 ELSIF p_transaction_type = 'IOI' THEN
175 v_transaction_id := 110;
176 ELSIF p_transaction_type = 'IA' THEN
177 v_transaction_id := 120;
178 ELSIF p_transaction_type = 'PI' THEN
179 v_transaction_id := 130;
180 ELSE
181 v_transaction_id := 99;
182 END IF;
183
184 IF p_issue_type = 'HU' THEN
185 v_transaction_id := v_transaction_id + 1;
186 ELSIF p_issue_type = 'EWE' THEN
187 v_transaction_id := v_transaction_id + 2;
188 ELSIF p_issue_type = 'ENE' THEN
189 v_transaction_id := v_transaction_id + 3;
190 ELSIF p_issue_type = 'OF' THEN
191 v_transaction_id := v_transaction_id + 4;
192 ELSIF p_issue_type = 'OPWE' THEN
193 v_transaction_id := v_transaction_id + 5;
194 ELSIF p_issue_type = 'OPNE' THEN
195 v_transaction_id := v_transaction_id + 6;
196 END IF;
197
198 ELSIF p_called_from = 'RECEIPTS' THEN
199 IF p_transaction_type in ( 'R' ,'CR') THEN --3535729
200 v_transaction_id := 18;
201 ELSE
202 v_transaction_id := 98;
203 END IF;
204
205 ELSIF p_called_from = 'AAA' THEN
206 v_transaction_id := 97;
207 -- Added by Brathod, for Inv.Convergence
208 ELSIF p_called_from = 'jai_cmn_rg_opm_pkg.create_rg_i_entry'
209 AND p_transaction_type = 'R' THEN
210 v_transaction_id := 202;
211 ELSIF p_called_from = 'jai_cmn_rg_opm_pkg.create_rg_i_entry'
212 AND p_transaction_type = 'I' THEN
213 v_transaction_id := 201;
214
215 END IF;
216
217 RETURN v_transaction_id;
218
219 /* Added by Ramananda for bug#4407165 */
220 EXCEPTION
221 WHEN OTHERS THEN
222 FND_MESSAGE.SET_NAME('JA','JAI_EXCEPTION_OCCURED');
223 FND_MESSAGE.SET_TOKEN('JAI_PROCESS_MSG', lv_object_name ||'. Err:'||sqlerrm );
224 app_exception.raise_exception;
225
226 END get_rg1_transaction_id;
227
228 PROCEDURE create_rg1_entry(
229 P_REGISTER_ID OUT NOCOPY NUMBER,
230 P_REGISTER_ID_PART_II IN NUMBER,
231 P_FIN_YEAR IN NUMBER,
232 P_SLNO OUT NOCOPY NUMBER,
233 P_TRANSACTION_ID IN NUMBER,
234 P_ORGANIZATION_ID IN NUMBER,
235 P_LOCATION_ID IN NUMBER,
236 P_TRANSACTION_DATE IN DATE,
237 P_INVENTORY_ITEM_ID IN NUMBER,
238 P_TRANSACTION_TYPE IN VARCHAR2,
239 P_REF_DOC_ID IN VARCHAR2,
240 P_QUANTITY IN NUMBER,
241 P_TRANSACTION_UOM_CODE IN VARCHAR2,
242 P_ISSUE_TYPE IN VARCHAR2,
243 P_EXCISE_DUTY_AMOUNT IN NUMBER,
244 P_EXCISE_INVOICE_NUMBER IN VARCHAR2,
245 P_EXCISE_INVOICE_DATE IN DATE,
246 P_PAYMENT_REGISTER IN VARCHAR2,
247 P_CHARGE_ACCOUNT_ID IN NUMBER,
248 P_RANGE_NO IN VARCHAR2,
249 P_DIVISION_NO IN VARCHAR2,
250 P_REMARKS IN VARCHAR2,
251 P_BASIC_ED IN NUMBER,
252 P_ADDITIONAL_ED IN NUMBER,
253 P_OTHER_ED IN NUMBER,
254 P_ASSESSABLE_VALUE IN NUMBER,
255 P_EXCISE_DUTY_RATE IN NUMBER,
256 P_VENDOR_ID IN NUMBER,
257 P_VENDOR_SITE_ID IN NUMBER,
258 P_CUSTOMER_ID IN NUMBER,
259 P_CUSTOMER_SITE_ID IN NUMBER,
260 P_CREATION_DATE IN DATE,
261 P_CREATED_BY IN NUMBER,
262 P_LAST_UPDATE_DATE IN DATE,
263 P_LAST_UPDATED_BY IN NUMBER,
264 P_LAST_UPDATE_LOGIN IN NUMBER,
265 P_CALLED_FROM IN VARCHAR2,
266 P_CESS_AMOUNT IN NUMBER DEFAULT NULL,/*Bug 2942973. To
267 resolve compilation error- bduvarag*/
268 P_SH_CESS_AMOUNT IN NUMBER DEFAULT NULL/*Bug 5989740 bduvarag*/
269 ) IS
270
271 /* Added by Ramananda for bug#4407165 */
272 lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_rg_i_trxs_pkg.create_rg1_entry';
273
274 vMaxSlno NUMBER;
275 v_transaction_id JAI_CMN_RG_I_TRXS.TRANSACTION_SOURCE_NUM%TYPE;
276 v_primary_uom_code MTL_UNITS_OF_MEASURE.uom_code%TYPE;
277 v_transaction_uom_code MTL_UNITS_OF_MEASURE.uom_code%TYPE;
278 vTransToPrimaryUOMConv NUMBER;
279
280 CURSOR c_item_primary_uom(p_organization_id NUMBER, p_inventory_item_id NUMBER) IS
281 SELECT primary_uom_code
282 FROM mtl_system_items
283 WHERE organization_id = p_organization_id
284 AND inventory_item_id = p_inventory_item_id;
285
286 -- Quantity field used in the insert statement
287 v_quantity NUMBER ; --:= NVL(p_quantity, 0); File.Sql.35 by Brathod
288
289 vBalanceLoose NUMBER;
290 vBalancePacked NUMBER;
291 v_manufactured_qty NUMBER;
292 v_manufactured_packed_qty NUMBER;
293 v_manufactured_loose_qty NUMBER;
294 v_for_home_use_pay_ed_qty NUMBER;
295 v_for_home_use_pay_ed_val NUMBER;
296 v_for_export_pay_ed_qty NUMBER;
297 v_for_export_pay_ed_val NUMBER;
298 v_for_export_n_pay_ed_qty NUMBER;
299 v_for_export_n_pay_ed_val NUMBER;
300 v_other_purpose NUMBER;
301 v_to_other_fac_n_pay_ed_qty NUMBER;
302 v_to_other_fac_n_pay_ed_val NUMBER;
303 v_other_purpose_n_pay_ed_qty NUMBER;
304 v_other_purpose_n_pay_ed_val NUMBER;
305 v_other_purpose_pay_ed_qty NUMBER;
306 v_other_purpose_pay_ed_val NUMBER;
307
308 BEGIN
309 v_quantity := NVL(p_quantity, 0); -- File.Sql.35 by Brathod
310 OPEN c_item_primary_uom(p_organization_id, p_inventory_item_id);
311 FETCH c_item_primary_uom INTO v_primary_uom_code;
312 CLOSE c_item_primary_uom;
313
314 IF p_transaction_uom_code IS NULL THEN
315 v_transaction_uom_code := v_primary_uom_code;
316 ELSE
317 v_transaction_uom_code := p_transaction_uom_code;
318 END IF;
319
320 IF v_transaction_uom_code <> v_primary_uom_code THEN
321 INV_CONVERT.inv_um_conversion(
322 v_transaction_uom_code, v_primary_uom_code,
323 p_inventory_item_id, vTransToPrimaryUOMConv
324 );
325
326 IF nvl(vTransToPrimaryUOMConv, 0) <= 0 THEN
327 INV_CONVERT.inv_um_conversion(
328 v_transaction_uom_code, v_primary_uom_code,
329 0, vTransToPrimaryUOMConv
330 );
331 IF nvl(vTransToPrimaryUOMConv, 0) <= 0 THEN
332 vTransToPrimaryUOMConv := 1;
333 END IF;
334 END IF;
335
336 ELSE
337 vTransToPrimaryUOMConv := 1;
338 END IF;
339
340 v_quantity := nvl(p_quantity, 0) * vTransToPrimaryUOMConv;
341
342 SELECT max(slno) INTO vMaxSlno
343 FROM JAI_CMN_RG_I_TRXS
344 WHERE organization_id = p_organization_id
345 AND location_id = p_location_id
346 AND inventory_item_id = p_inventory_item_id
347 AND fin_year = p_fin_year;
348
349 IF vMaxSlno IS NOT NULL THEN
350 SELECT NVL(balance_packed,0), NVL(balance_loose,0) INTO vBalancePacked, vBalanceLoose
351 FROM JAI_CMN_RG_I_TRXS
352 WHERE organization_id = p_organization_id
353 and location_id = p_location_id
354 and inventory_item_id = p_inventory_item_id
355 AND fin_year = p_fin_year
356 AND slno = vMaxSlno;
357
358 ELSE
359 vBalancePacked := 0;
360 vBalanceLoose := 0;
361 END IF;
362
363 IF p_transaction_type IN ('R', 'RA', 'IOR', 'PR', 'CR') THEN
364
365 vBalanceLoose := vBalanceLoose + v_quantity;
366
367 v_manufactured_qty := v_quantity;
368 v_manufactured_loose_qty := v_quantity;
369
370 ELSIF p_transaction_type IN ('I', 'IA', 'IOI', 'PI') THEN
371
372 IF vBalanceLoose >= v_quantity THEN
373 vBalanceLoose := vBalanceLoose - v_quantity;
374
375 ELSE
376 -- p_err_buf := 'Enough RG1 balance is not available to Issue the Goods';
377 RAISE_APPLICATION_ERROR(-20199, 'Enough RG1 balance is not available to Issue the Goods');
378 -- RETURN;
379 END IF;
380
381 IF p_issue_type = 'HU' THEN
382 v_for_home_use_pay_ed_qty := v_quantity;
383 v_for_home_use_pay_ed_val := p_assessable_value;
384 ELSIF p_issue_type = 'EWE' THEN
385 v_for_export_pay_ed_qty := v_quantity;
386 v_for_export_pay_ed_val := p_assessable_value;
387 ELSIF p_issue_type = 'ENE' THEN
388 v_for_export_n_pay_ed_qty := v_quantity;
389 v_for_export_n_pay_ed_val := p_assessable_value;
390 -- v_for_export_n_pay_ed_val := p_excise_duty_amount;
391 ELSIF p_issue_type = 'OF' THEN
392 v_to_other_fac_n_pay_ed_qty := v_quantity;
393 v_to_other_fac_n_pay_ed_val := p_assessable_value;
394 -- v_to_other_fac_n_pay_ed_val := p_excise_duty_amount;
395 ELSIF p_issue_type = 'OPWE' THEN
396 v_other_purpose_pay_ed_qty := v_quantity;
397 v_other_purpose_pay_ed_val := p_assessable_value;
398 ELSIF p_issue_type = 'OPNE' THEN
399 v_other_purpose_n_pay_ed_qty := v_quantity;
400 v_other_purpose_n_pay_ed_val := p_assessable_value;
401 -- v_other_purpose_n_pay_ed_val := p_excise_duty_amount;
402 END IF;
403
404 END IF;
405
406 IF vMaxSlno is NULL THEN
407 P_SLNO := 1;
408 ELSE
409 P_SLNO := vMaxSlno + 1;
410 END IF;
411
412 SELECT JAI_CMN_RG_I_TRXS_S.nextval INTO P_REGISTER_ID FROM DUAL;
413
414 v_transaction_id := get_rg1_transaction_id(
415 p_transaction_type,
416 p_issue_type,
417 p_called_from
418 );
419
420 INSERT INTO JAI_CMN_RG_I_TRXS(
421 REGISTER_ID,
422 REGISTER_ID_PART_II,
423 FIN_YEAR,
424 SLNO,
425 TRANSACTION_SOURCE_NUM,
426 ORGANIZATION_ID,
427 LOCATION_ID,
428 TRANSACTION_DATE,
429 INVENTORY_ITEM_ID,
430 TRANSACTION_TYPE,
431 REF_DOC_NO,
432 MANUFACTURED_QTY,
433 MANUFACTURED_PACKED_QTY,
434 MANUFACTURED_LOOSE_QTY,
435 FOR_HOME_USE_PAY_ED_QTY,
436 FOR_HOME_USE_PAY_ED_VAL,
437 FOR_EXPORT_PAY_ED_QTY,
438 FOR_EXPORT_PAY_ED_VAL,
439 FOR_EXPORT_N_PAY_ED_QTY,
440 FOR_EXPORT_N_PAY_ED_VAL,
441 OTHER_PURPOSE,
442 TO_OTHER_FACTORY_N_PAY_ED_QTY,
443 TO_OTHER_FACTORY_N_PAY_ED_VAL,
444 OTHER_PURPOSE_N_PAY_ED_QTY,
445 OTHER_PURPOSE_N_PAY_ED_VAL,
446 OTHER_PURPOSE_PAY_ED_QTY,
447 OTHER_PURPOSE_PAY_ED_VAL,
448 PRIMARY_UOM_CODE,
449 TRANSACTION_UOM_CODE,
450 BALANCE_PACKED,
451 BALANCE_LOOSE,
452 ISSUE_TYPE,
453 EXCISE_DUTY_AMOUNT,
454 EXCISE_INVOICE_NUMBER,
455 EXCISE_INVOICE_DATE,
456 PAYMENT_REGISTER,
457 CHARGE_ACCOUNT_ID,
458 RANGE_NO,
459 DIVISION_NO,
460 REMARKS,
461 BASIC_ED,
462 ADDITIONAL_ED,
463 OTHER_ED,
464 EXCISE_DUTY_RATE,
465 VENDOR_ID,
466 VENDOR_SITE_ID,
467 CUSTOMER_ID,
468 CUSTOMER_SITE_ID,
469 CREATION_DATE,
470 CREATED_BY,
471 LAST_UPDATE_DATE,
472 LAST_UPDATED_BY,
473 LAST_UPDATE_LOGIN,
474 POSTED_FLAG,
475 MASTER_FLAG,
476 CESS_AMT,/*BUG *6030615*/
477 SH_CESS_AMT/*Bug 5989740 bduvarag*/
478 ) VALUES (
479 P_REGISTER_ID,
480 P_REGISTER_ID_PART_II,
481 P_FIN_YEAR,
482 P_SLNO,
483 V_TRANSACTION_ID,
484 P_ORGANIZATION_ID,
485 P_LOCATION_ID,
486 P_TRANSACTION_DATE,
487 P_INVENTORY_ITEM_ID,
488 P_TRANSACTION_TYPE,
489 P_REF_DOC_ID,
490 V_MANUFACTURED_QTY,
491 V_MANUFACTURED_PACKED_QTY,
492 V_MANUFACTURED_LOOSE_QTY,
493 V_FOR_HOME_USE_PAY_ED_QTY,
494 V_FOR_HOME_USE_PAY_ED_VAL,
495 V_FOR_EXPORT_PAY_ED_QTY,
496 V_FOR_EXPORT_PAY_ED_VAL,
497 V_FOR_EXPORT_N_PAY_ED_QTY,
498 V_FOR_EXPORT_N_PAY_ED_VAL,
499 V_OTHER_PURPOSE,
500 V_TO_OTHER_FAC_N_PAY_ED_QTY,
501 V_TO_OTHER_FAC_N_PAY_ED_VAL,
502 V_OTHER_PURPOSE_N_PAY_ED_QTY,
503 V_OTHER_PURPOSE_N_PAY_ED_VAL,
504 V_OTHER_PURPOSE_PAY_ED_QTY,
505 V_OTHER_PURPOSE_PAY_ED_VAL,
506 V_PRIMARY_UOM_CODE,
507 P_TRANSACTION_UOM_CODE,
508 vBalancePacked,
509 vBalanceLoose,
510 P_ISSUE_TYPE,
511 P_EXCISE_DUTY_AMOUNT,
512 P_EXCISE_INVOICE_NUMBER,
513 P_EXCISE_INVOICE_DATE,
514 P_PAYMENT_REGISTER,
515 P_CHARGE_ACCOUNT_ID,
516 P_RANGE_NO,
517 P_DIVISION_NO,
518 P_REMARKS,
519 P_BASIC_ED,
520 P_ADDITIONAL_ED,
521 P_OTHER_ED,
522 P_EXCISE_DUTY_RATE,
523 P_VENDOR_ID,
524 P_VENDOR_SITE_ID,
525 P_CUSTOMER_ID,
526 P_CUSTOMER_SITE_ID,
527 P_CREATION_DATE,
528 P_CREATED_BY,
529 P_LAST_UPDATE_DATE,
530 P_LAST_UPDATED_BY,
531 P_LAST_UPDATE_LOGIN,
532 'N',
533 'N',
534 P_CESS_AMOUNT,/*BUG *6030615*/
535 P_SH_CESS_AMOUNT/*Bug 5989740 bduvarag*/
536 );
537
538 /* Added by Ramananda for bug#4407165 */
539 EXCEPTION
540 WHEN OTHERS THEN
541 P_REGISTER_ID := null;
542 FND_MESSAGE.SET_NAME('JA','JAI_EXCEPTION_OCCURED');
543 FND_MESSAGE.SET_TOKEN('JAI_PROCESS_MSG', lv_object_name ||'. Err:'||sqlerrm );
544 app_exception.raise_exception;
545
546 END create_rg1_entry;
547
548 END jai_cmn_rg_i_trxs_pkg;