90: /* Added by Ramananda for bug#4407165 */
91: lv_object_name CONSTANT VARCHAR2(61) := 'JAI_FBT_PROCESS_P.currency_conversion';
92:
93: lv_procedure_name VARCHAR2(40) := 'currency_conversion';
94: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
95: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
96:
97: BEGIN
98:
91: lv_object_name CONSTANT VARCHAR2(61) := 'JAI_FBT_PROCESS_P.currency_conversion';
92:
93: lv_procedure_name VARCHAR2(40) := 'currency_conversion';
94: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
95: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
96:
97: BEGIN
98:
99: --logging for debug
98:
99: --logging for debug
100: IF (ln_proc_level >= ln_dbg_level)
101: THEN
102: FND_LOG.STRING( ln_proc_level
103: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
104: , 'Enter Function'
105: );
106:
213:
214: --logging for debug
215: IF (ln_proc_level >= ln_dbg_level)
216: THEN
217: FND_LOG.STRING( ln_proc_level
218: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
219: , 'Enter Function'
220: );
221:
272: ln_total_count NUMBER;
273: ln_validated_cnt NUMBER;
274:
275: lv_procedure_name VARCHAR2(40) := 'Check_Inv_Validation';
276: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
277: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
278:
279: BEGIN
280: --logging for debug
273: ln_validated_cnt NUMBER;
274:
275: lv_procedure_name VARCHAR2(40) := 'Check_Inv_Validation';
276: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
277: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
278:
279: BEGIN
280: --logging for debug
281: IF (ln_proc_level >= ln_dbg_level)
279: BEGIN
280: --logging for debug
281: IF (ln_proc_level >= ln_dbg_level)
282: THEN
283: FND_LOG.STRING( ln_proc_level
284: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
285: , 'Enter Function'
286: );
287: END IF; --l_proc_level>=l_dbg_level
302:
303: --logging for debug
304: IF (ln_proc_level >= ln_dbg_level)
305: THEN
306: FND_LOG.STRING( ln_proc_level
307: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
308: , 'Exit Function'
309: );
310: END IF; -- (ln_proc_level>=ln_dbg_level)
311: RETURN lv_val;
312:
313: EXCEPTION
314: WHEN OTHERS THEN
315: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
316: THEN
317: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
318: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
319: || '.Other_Exception '
313: EXCEPTION
314: WHEN OTHERS THEN
315: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
316: THEN
317: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
318: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
319: || '.Other_Exception '
320: , Sqlcode||Sqlerrm);
321: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
317: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
318: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
319: || '.Other_Exception '
320: , Sqlcode||Sqlerrm);
321: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
322: END Check_Inv_Validation;
323:
324: --==========================================================================
325: -- FUNCTION NAME:
353: --ln_val NUMBER;
354: lv_val VARCHAR2(25);
355:
356: lv_procedure_name VARCHAR2(40) := 'Get_Natural_Acc_Seg';
357: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
358: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
359:
360: BEGIN
361: --logging for debug
354: lv_val VARCHAR2(25);
355:
356: lv_procedure_name VARCHAR2(40) := 'Get_Natural_Acc_Seg';
357: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
358: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
359:
360: BEGIN
361: --logging for debug
362: IF (ln_proc_level >= ln_dbg_level)
360: BEGIN
361: --logging for debug
362: IF (ln_proc_level >= ln_dbg_level)
363: THEN
364: FND_LOG.STRING( ln_proc_level
365: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
366: , 'Enter Function'
367: );
368: END IF; --l_proc_level>=l_dbg_level
383:
384: --logging for debug
385: IF (ln_proc_level >= ln_dbg_level)
386: THEN
387: FND_LOG.STRING( ln_proc_level
388: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
389: , 'Exit Function'
390: );
391: END IF; -- (ln_proc_level>=ln_dbg_level)
394: EXCEPTION
395: WHEN no_data_found THEN
396: RETURN '-999';
397: WHEN OTHERS THEN
398: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
399: THEN
400: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
401: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
402: || '.Other_Exception '
396: RETURN '-999';
397: WHEN OTHERS THEN
398: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
399: THEN
400: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
401: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
402: || '.Other_Exception '
403: , Sqlcode||Sqlerrm);
404: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
400: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
401: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
402: || '.Other_Exception '
403: , Sqlcode||Sqlerrm);
404: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
405: END Get_Natural_Acc_Seg;
406:
407: --==========================================================================
408: -- FUNCTION NAME:
433:
434: lv_val VARCHAR2(25);
435:
436: lv_procedure_name VARCHAR2(40) := 'Get_Balance_Acc_Seg';
437: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
438: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
439:
440: BEGIN
441: --logging for debug
434: lv_val VARCHAR2(25);
435:
436: lv_procedure_name VARCHAR2(40) := 'Get_Balance_Acc_Seg';
437: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
438: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
439:
440: BEGIN
441: --logging for debug
442: IF (ln_proc_level >= ln_dbg_level)
440: BEGIN
441: --logging for debug
442: IF (ln_proc_level >= ln_dbg_level)
443: THEN
444: FND_LOG.STRING( ln_proc_level
445: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
446: , 'Enter Function'
447: );
448: END IF; --l_proc_level>=l_dbg_level
463:
464: --logging for debug
465: IF (ln_proc_level >= ln_dbg_level)
466: THEN
467: FND_LOG.STRING( ln_proc_level
468: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
469: , 'Exit Function'
470: );
471: END IF; -- (ln_proc_level>=ln_dbg_level)
474: EXCEPTION
475: WHEN no_data_found THEN
476: RETURN '-999';
477: WHEN OTHERS THEN
478: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
479: THEN
480: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
481: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
482: || '.Other_Exception '
476: RETURN '-999';
477: WHEN OTHERS THEN
478: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
479: THEN
480: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
481: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
482: || '.Other_Exception '
483: , Sqlcode||Sqlerrm);
484: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
480: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
481: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
482: || '.Other_Exception '
483: , Sqlcode||Sqlerrm);
484: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
485: END Get_Balance_Acc_Seg;
486:
487:
488: --==========================================================================
579: ln_sob_id NUMBER;
580: ln_conv_rate NUMBER;
581:
582: lv_procedure_name VARCHAR2(40) := 'Calculate_Fbt_Amount';
583: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
584: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
585: ln_fbt_cum_amt NUMBER;
586: ln_precision NUMBER;
587:
580: ln_conv_rate NUMBER;
581:
582: lv_procedure_name VARCHAR2(40) := 'Calculate_Fbt_Amount';
583: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
584: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
585: ln_fbt_cum_amt NUMBER;
586: ln_precision NUMBER;
587:
588: --modified by lvxiao to fix bug#7325653 on 14-August-2008, begin
594: BEGIN
595: --logging for debug
596: IF (ln_proc_level >= ln_dbg_level)
597: THEN
598: FND_LOG.STRING( ln_proc_level
599: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
600: , 'Enter procedure'
601: );
602: END IF; --l_proc_level>=l_dbg_level
774:
775: --logging for debug
776: IF (ln_proc_level >= ln_dbg_level)
777: THEN
778: FND_LOG.STRING( ln_proc_level
779: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
780: , 'Exit procedure'
781: );
782: END IF; -- (ln_proc_level>=ln_dbg_level)
782: END IF; -- (ln_proc_level>=ln_dbg_level)
783:
784: EXCEPTION
785: WHEN OTHERS THEN
786: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
787: THEN
788: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
789: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
790: || '.Other_Exception '
784: EXCEPTION
785: WHEN OTHERS THEN
786: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
787: THEN
788: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
789: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
790: || '.Other_Exception '
791: , Sqlcode||Sqlerrm);
792: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
788: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
789: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
790: || '.Other_Exception '
791: , Sqlcode||Sqlerrm);
792: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
793: END Calculate_Fbt_Amount;
794:
795: --==========================================================================
796: -- PROCEDURE NAME:
819: )
820: IS
821: ln_fbt_trans_id NUMBER;
822: lv_procedure_name VARCHAR2(40) := 'Insert_Fbt_Repository';
823: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
824: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
825:
826: BEGIN
827: --logging for debug
820: IS
821: ln_fbt_trans_id NUMBER;
822: lv_procedure_name VARCHAR2(40) := 'Insert_Fbt_Repository';
823: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
824: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
825:
826: BEGIN
827: --logging for debug
828: IF (ln_proc_level >= ln_dbg_level)
826: BEGIN
827: --logging for debug
828: IF (ln_proc_level >= ln_dbg_level)
829: THEN
830: FND_LOG.STRING( ln_proc_level
831: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
832: , 'Enter procedure'
833: );
834: END IF; --l_proc_level>=l_dbg_level
931:
932: --logging for debug
933: IF (ln_proc_level >= ln_dbg_level)
934: THEN
935: FND_LOG.STRING( ln_proc_level
936: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
937: , 'Exit procedure'
938: );
939: END IF; -- (ln_proc_level>=ln_dbg_level)
939: END IF; -- (ln_proc_level>=ln_dbg_level)
940:
941: EXCEPTION
942: WHEN OTHERS THEN
943: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
944: THEN
945: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
946: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
947: || '.Other_Exception '
941: EXCEPTION
942: WHEN OTHERS THEN
943: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
944: THEN
945: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
946: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
947: || '.Other_Exception '
948: , Sqlcode||Sqlerrm);
949: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
945: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
946: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
947: || '.Other_Exception '
948: , Sqlcode||Sqlerrm);
949: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
950: END Insert_Fbt_Repository;
951:
952: --==========================================================================
953: -- PROCEDURE NAME:
1420:
1421: fbt_repository_rec jai_fbt_repository%ROWTYPE;
1422:
1423: lv_procedure_name VARCHAR2(40) := 'Fbt_Inv_Process';
1424: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1425: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1426:
1427: BEGIN
1428: --logging for debug
1421: fbt_repository_rec jai_fbt_repository%ROWTYPE;
1422:
1423: lv_procedure_name VARCHAR2(40) := 'Fbt_Inv_Process';
1424: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1425: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1426:
1427: BEGIN
1428: --logging for debug
1429: IF (ln_proc_level >= ln_dbg_level)
1427: BEGIN
1428: --logging for debug
1429: IF (ln_proc_level >= ln_dbg_level)
1430: THEN
1431: FND_LOG.STRING( ln_proc_level
1432: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
1433: , 'Enter procedure'
1434: );
1435: END IF; --l_proc_level>=l_dbg_level
1656:
1657: --logging for debug
1658: IF (ln_proc_level >= ln_dbg_level)
1659: THEN
1660: FND_LOG.STRING( ln_proc_level
1661: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
1662: , 'Exit procedure'
1663: );
1664: END IF; -- (ln_proc_level>=ln_dbg_level)
1666: EXCEPTION
1667: WHEN OTHERS THEN
1668: pv_errbuf :=SQLERRM;
1669: pv_retcode:=2;
1670: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1671: THEN
1672: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
1673: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
1674: || '.Other_Exception '
1668: pv_errbuf :=SQLERRM;
1669: pv_retcode:=2;
1670: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1671: THEN
1672: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
1673: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
1674: || '.Other_Exception '
1675: , Sqlcode||Sqlerrm);
1676: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1672: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
1673: , GV_MODULE_PREFIX ||'.' || lv_procedure_name
1674: || '.Other_Exception '
1675: , Sqlcode||Sqlerrm);
1676: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1677: END Fbt_Inv_Process;
1678:
1679: END JAI_FBT_PROCESS_P; --END OF PACKAGE
1680: