[Home] [Help]
485: P_REQUEST_ID IN NUMBER,
486: X_TOTAL_DOC_TAXAB_AMT_TBL OUT NOCOPY NUMERIC8_TBL
487: );
488:
489: -- Declare global varibles for FND log messages
490:
491: g_current_runtime_level NUMBER;
492: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
493: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
488:
489: -- Declare global varibles for FND log messages
490:
491: g_current_runtime_level NUMBER;
492: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
493: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
494: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
495: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
496: g_error_buffer VARCHAR2(100);
489: -- Declare global varibles for FND log messages
490:
491: g_current_runtime_level NUMBER;
492: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
493: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
494: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
495: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
496: g_error_buffer VARCHAR2(100);
497:
490:
491: g_current_runtime_level NUMBER;
492: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
493: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
494: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
495: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
496: g_error_buffer VARCHAR2(100);
497:
498:
491: g_current_runtime_level NUMBER;
492: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
493: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
494: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
495: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
496: g_error_buffer VARCHAR2(100);
497:
498:
499: -- Public APIs
510: (P_TRL_GLOBAL_VARIABLES_REC IN ZX_EXTRACT_PKG.TRL_GLOBAL_VARIABLES_REC_TYPE
511: ) IS
512: BEGIN
513:
514: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
515:
516: IF (g_level_procedure >= g_current_runtime_level ) THEN
517: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES.BEGIN',
518: 'ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES(+)');
513:
514: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
515:
516: IF (g_level_procedure >= g_current_runtime_level ) THEN
517: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES.BEGIN',
518: 'ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES(+)');
519: END IF;
520:
521: IF ( g_level_statement>= g_current_runtime_level ) THEN
518: 'ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES(+)');
519: END IF;
520:
521: IF ( g_level_statement>= g_current_runtime_level ) THEN
522: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES',
523: 'P_TRL_GLOBAL_VARIABLES_REC.REPORT_NAME : '||P_TRL_GLOBAL_VARIABLES_REC.REPORT_NAME );
524: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES',
525: 'P_TRL_GLOBAL_VARIABLES_REC.VAT_PERCEPTION_TAX : '||P_TRL_GLOBAL_VARIABLES_REC.VAT_PERCEPTION_TAX );
526: END IF;
520:
521: IF ( g_level_statement>= g_current_runtime_level ) THEN
522: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES',
523: 'P_TRL_GLOBAL_VARIABLES_REC.REPORT_NAME : '||P_TRL_GLOBAL_VARIABLES_REC.REPORT_NAME );
524: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES',
525: 'P_TRL_GLOBAL_VARIABLES_REC.VAT_PERCEPTION_TAX : '||P_TRL_GLOBAL_VARIABLES_REC.VAT_PERCEPTION_TAX );
526: END IF;
527:
528: IF P_TRL_GLOBAL_VARIABLES_REC.REPORT_NAME = 'JLARTPFF' THEN
550: AND attcls.tax_attr_class_code = det.TRX_BUSINESS_CATEGORY
551: AND det.tax = P_TRL_GLOBAL_VARIABLES_REC.VAT_PERCEPTION_TAX);
552: */
553: IF ( g_level_statement>= g_current_runtime_level ) THEN
554: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES',
555: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
556: END IF;
557: END IF;
558:
556: END IF;
557: END IF;
558:
559: IF (g_level_procedure >= g_current_runtime_level ) THEN
560: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES.BEGIN',
561: 'ZX_JL_EXTRACT_PKG.FILTER_JL_AR_TAX_LINES(-)');
562: END IF;
563:
564:
672: l_bill_from_tp_id_tbl ZX_EXTRACT_PKG.SHIPPING_TP_ADDRESS_ID_TBL;
673:
674: BEGIN
675:
676: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
677:
678: IF (g_level_procedure >= g_current_runtime_level ) THEN
679: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP.BEGIN',
680: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP(+)');
675:
676: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
677:
678: IF (g_level_procedure >= g_current_runtime_level ) THEN
679: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP.BEGIN',
680: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP(+)');
681: END IF;
682:
683:
704:
705: --added debug messages
706:
707: IF ( g_level_statement>= g_current_runtime_level ) THEN
708: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP','P_REPORT_NAME : '||P_REPORT_NAME);
709: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_FROM :'|| P_TRANSACTION_LETTER_FROM);
710: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_TO :'|| P_TRANSACTION_LETTER_TO );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
705: --added debug messages
706:
707: IF ( g_level_statement>= g_current_runtime_level ) THEN
708: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP','P_REPORT_NAME : '||P_REPORT_NAME);
709: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_FROM :'|| P_TRANSACTION_LETTER_FROM);
710: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_TO :'|| P_TRANSACTION_LETTER_TO );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
706:
707: IF ( g_level_statement>= g_current_runtime_level ) THEN
708: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP','P_REPORT_NAME : '||P_REPORT_NAME);
709: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_FROM :'|| P_TRANSACTION_LETTER_FROM);
710: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_TO :'|| P_TRANSACTION_LETTER_TO );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
707: IF ( g_level_statement>= g_current_runtime_level ) THEN
708: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP','P_REPORT_NAME : '||P_REPORT_NAME);
709: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_FROM :'|| P_TRANSACTION_LETTER_FROM);
710: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_TO :'|| P_TRANSACTION_LETTER_TO );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
708: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP','P_REPORT_NAME : '||P_REPORT_NAME);
709: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_FROM :'|| P_TRANSACTION_LETTER_FROM);
710: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_TO :'|| P_TRANSACTION_LETTER_TO );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
709: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_FROM :'|| P_TRANSACTION_LETTER_FROM);
710: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_TO :'|| P_TRANSACTION_LETTER_TO );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
710: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TRANSACTION_LETTER_TO :'|| P_TRANSACTION_LETTER_TO );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
711: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXCLUDING_TRX_LETTER :'|| P_EXCLUDING_TRX_LETTER );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_FROM :'|| P_MUN_TAX_TYPE_FROM );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_MUN_TAX_TYPE_TO :'|| P_MUN_TAX_TYPE_TO );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
714: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_FROM :'|| P_PROV_TAX_TYPE_FROM );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
715: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_PROV_TAX_TYPE_TO :'|| P_PROV_TAX_TYPE_TO );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
716: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_FROM :'|| P_EXC_TAX_TYPE_FROM );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
724: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_HIGH :'|| P_TAX_TYPE_CODE_HIGH );
717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_EXC_TAX_TYPE_TO :'|| P_EXC_TAX_TYPE_TO );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
724: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_HIGH :'|| P_TAX_TYPE_CODE_HIGH );
725: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_TAX_TYPE :'|| P_VAT_TAX_TYPE );
718: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_NON_TAXAB_TAX_TYPE :'|| P_NON_TAXAB_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
724: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_HIGH :'|| P_TAX_TYPE_CODE_HIGH );
725: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_TAX_TYPE :'|| P_VAT_TAX_TYPE );
726: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_ADDIT_TAX_TYPE :'|| P_VAT_ADDIT_TAX_TYPE );
719: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_FROM :'|| P_VAT_PERC_TAX_TYPE_FROM );
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
724: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_HIGH :'|| P_TAX_TYPE_CODE_HIGH );
725: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_TAX_TYPE :'|| P_VAT_TAX_TYPE );
726: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_ADDIT_TAX_TYPE :'|| P_VAT_ADDIT_TAX_TYPE );
727: END IF;
720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_PERC_TAX_TYPE_TO :'|| P_VAT_PERC_TAX_TYPE_TO );
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
724: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_HIGH :'|| P_TAX_TYPE_CODE_HIGH );
725: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_TAX_TYPE :'|| P_VAT_TAX_TYPE );
726: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_ADDIT_TAX_TYPE :'|| P_VAT_ADDIT_TAX_TYPE );
727: END IF;
728:
721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_FROM :'|| P_FED_PERC_TAX_TYPE_FROM );
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
724: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_HIGH :'|| P_TAX_TYPE_CODE_HIGH );
725: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_TAX_TYPE :'|| P_VAT_TAX_TYPE );
726: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_ADDIT_TAX_TYPE :'|| P_VAT_ADDIT_TAX_TYPE );
727: END IF;
728:
729: IF P_REPORT_NAME = 'JLARPCFF' THEN
722: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_FED_PERC_TAX_TYPE_TO :'|| P_FED_PERC_TAX_TYPE_TO );
723: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_LOW :'|| P_TAX_TYPE_CODE_LOW );
724: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_TAX_TYPE_CODE_HIGH :'|| P_TAX_TYPE_CODE_HIGH );
725: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_TAX_TYPE :'|| P_VAT_TAX_TYPE );
726: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',' P_VAT_ADDIT_TAX_TYPE :'|| P_VAT_ADDIT_TAX_TYPE );
727: END IF;
728:
729: IF P_REPORT_NAME = 'JLARPCFF' THEN
730:
735: -- Get filtered tax lines --
736: -- in this case, you need to group the lines by trx --
737: -- ------------------------------------------------ --
738: IF (g_level_procedure >= g_current_runtime_level ) THEN
739: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
740: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : Filter '||P_REPORT_NAME);
741: END IF;
742:
743: P_TAX_TYPE_CODE := NVL(P_TAX_TYPE_CODE_LOW,P_TAX_TYPE_CODE_HIGH);
759: AND apinv.global_attribute12 <= P_TRANSACTION_LETTER_TO
760: GROUP BY itf.trx_id;
761:
762: IF (g_level_procedure >= g_current_runtime_level ) THEN
763: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
764: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : Bulk Collect Filtered rows '||to_char(l_trx_id_tbl.count));
765: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
766: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : '||P_VAT_TAX_TYPE||P_TRANSACTION_LETTER_FROM||P_TRANSACTION_LETTER_TO);
767: END IF;
761:
762: IF (g_level_procedure >= g_current_runtime_level ) THEN
763: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
764: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : Bulk Collect Filtered rows '||to_char(l_trx_id_tbl.count));
765: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
766: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : '||P_VAT_TAX_TYPE||P_TRANSACTION_LETTER_FROM||P_TRANSACTION_LETTER_TO);
767: END IF;
768:
769:
767: END IF;
768:
769:
770: IF ( g_level_statement>= g_current_runtime_level ) THEN
771: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
772: 'Before Call to GET_VAT_AMOUNT ');
773: END IF;
774:
775: -- Get Vat Amount --
814: sysdate,
815: fnd_global.login_id);
816:
817: IF ( g_level_statement>= g_current_runtime_level ) THEN
818: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
819: 'After insertion into zx_rep_trx_jx_ext_t ');
820: END IF;
821:
822: -- Delete Unwanted lines from Detail ITF
827: FROM zx_rep_trx_jx_ext_t ext
828: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
829:
830: IF ( g_level_statement>= g_current_runtime_level ) THEN
831: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
832: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
833: END IF;
834:
835:
835:
836: EXCEPTION
837: WHEN OTHERS THEN
838: IF ( g_level_statement>= g_current_runtime_level ) THEN
839: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
840: 'Error Message for report '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
841: END IF;
842:
843: END;
875: itf.trx_line_id,
876: itf.trx_id;
877:
878: IF ( g_level_statement>= g_current_runtime_level ) THEN
879: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
880: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
881: END IF;
882:
883: IF ( g_level_statement>= g_current_runtime_level ) THEN
880: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
881: END IF;
882:
883: IF ( g_level_statement>= g_current_runtime_level ) THEN
884: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_DOC_TYPE',
885: 'Before Call to GET_DGI_DOC_TYPE');
886: END IF;
887: GET_DGI_DOC_TYPE(l_trx_id_tbl,
888: l_dgi_doc_type_tbl,
890: l_gdf_ap_inv_att12_tbl
891: );
892:
893: IF ( g_level_statement>= g_current_runtime_level ) THEN
894: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
895: 'Before Call to GET_VAT_AMOUNT');
896: END IF;
897:
898: -- Get Vat amount
906: l_document_sub_type_tbl,
907: l_vat_amt_tbl);
908:
909: IF ( g_level_statement>= g_current_runtime_level ) THEN
910: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
911: 'Before Call to GET_TAXABLE_AMOUNT');
912: END IF;
913:
914: -- Get Taxable Amount
923: l_document_sub_type_tbl,
924: l_taxable_amt_tbl);
925:
926: IF ( g_level_statement>= g_current_runtime_level ) THEN
927: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
928: 'Before Call to GET_NON_TAXABLE_AMOUNT');
929: END IF;
930: -- Get Non Taxable Amount
931: GET_NON_TAXABLE_AMOUNT(P_NON_TAXAB_TAX_TYPE,
941: l_non_taxable_amt_tbl);
942:
943:
944: IF ( g_level_statement>= g_current_runtime_level ) THEN
945: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
946: 'Before Call to GET_VAT_EXEMPT_AMOUNT');
947: END IF;
948:
949: -- Get Vat Exempt Amount
959: l_document_sub_type_tbl,
960: l_vat_exempt_amt_tbl);
961:
962: IF ( g_level_statement>= g_current_runtime_level ) THEN
963: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
964: 'Before Call to GET_VAT_PERCEPTION_AMOUNT');
965: END IF;
966:
967: -- Get Vat Perception Amount
1014: fnd_global.login_id,
1015: p_request_id);
1016:
1017: IF ( g_level_statement>= g_current_runtime_level ) THEN
1018: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1019: 'After insertion into zx_rep_trx_jx_ext_t ');
1020: END IF;
1021:
1022: -- Delete Unwanted lines from Detail ITF
1027: FROM zx_rep_trx_jx_ext_t ext
1028: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
1029:
1030: IF ( g_level_statement>= g_current_runtime_level ) THEN
1031: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JA_EXTRACT_PKG.POPULATE_JL_AP',
1032: 'Deleted Count : '||to_char(SQL%ROWCOUNT) );
1033: END IF;
1034:
1035: IF ( g_level_statement>= g_current_runtime_level ) THEN
1032: 'Deleted Count : '||to_char(SQL%ROWCOUNT) );
1033: END IF;
1034:
1035: IF ( g_level_statement>= g_current_runtime_level ) THEN
1036: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1037: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
1038: END IF;
1039:
1040: EXCEPTION
1041:
1042:
1043: WHEN OTHERS THEN
1044: IF ( g_level_statement>= g_current_runtime_level ) THEN
1045: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1046: 'Error Message for report '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
1047: END IF;
1048:
1049: END;
1052: ELSIF P_REPORT_NAME = 'JLARPPFF' THEN
1053:
1054: BEGIN
1055: IF (g_level_procedure >= g_current_runtime_level ) THEN
1056: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1057: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : Filter '||P_REPORT_NAME);
1058: END IF;
1059: -- ------------------------------------------------ --
1060: -- Get filtered tax lines --
1201: GROUP BY itf2.trx_id
1202: );*/
1203:
1204: IF (g_level_procedure >= g_current_runtime_level ) THEN
1205: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1206: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : Bulk Collect Filtered rows '||to_char(l_trx_id_tbl.count));
1207: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1208: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : '||P_VAT_TAX_TYPE);
1209: END IF;
1203:
1204: IF (g_level_procedure >= g_current_runtime_level ) THEN
1205: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1206: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : Bulk Collect Filtered rows '||to_char(l_trx_id_tbl.count));
1207: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1208: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : '||P_VAT_TAX_TYPE);
1209: END IF;
1210:
1211: IF ( g_level_statement>= g_current_runtime_level ) THEN
1208: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP : '||P_VAT_TAX_TYPE);
1209: END IF;
1210:
1211: IF ( g_level_statement>= g_current_runtime_level ) THEN
1212: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1213: 'Before Call to GET_VAT_AMOUNT');
1214: END IF;
1215:
1216: --GET_DGI_DOC_TYPE(l_trx_id_tbl,
1264: l_document_sub_type_tbl,
1265: l_vat_amt_tbl);
1266:
1267: IF ( g_level_statement>= g_current_runtime_level ) THEN
1268: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1269: 'Before Call to GET_TAXABLE_AMOUNT');
1270: END IF;
1271:
1272: -- Get Taxable Amount
1281: l_document_sub_type_tbl,
1282: l_taxable_amt_tbl);
1283:
1284: IF ( g_level_statement>= g_current_runtime_level ) THEN
1285: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1286: 'Before Call to GET_NON_TAXABLE_AMOUNT');
1287: END IF;
1288: -- Get Non Taxable Amount
1289: GET_NON_TAXABLE_AMOUNT(P_NON_TAXAB_TAX_TYPE,
1298: l_tax_rate_tbl,
1299: l_non_taxable_amt_tbl);
1300:
1301: IF ( g_level_statement>= g_current_runtime_level ) THEN
1302: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1303: 'Before Call to GET_VAT_EXEMPT_AMOUNT');
1304: END IF;
1305: -- Get Vat Exempt Amount
1306: GET_VAT_EXEMPT_AMOUNT(P_VAT_TAX_TYPE,
1315: l_document_sub_type_tbl,
1316: l_vat_exempt_amt_tbl);
1317:
1318: IF ( g_level_statement>= g_current_runtime_level ) THEN
1319: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1320: 'Before Call to GET_VAT_PERCEPTION_AMOUNT');
1321: END IF;
1322: -- Get Vat Perception Amount
1323: GET_VAT_PERCEPTION_AMOUNT(P_VAT_PERC_TAX_TYPE_FROM,
1331: l_tax_rate_tbl,
1332: l_vat_perc_amt_tbl);
1333:
1334: IF ( g_level_statement>= g_current_runtime_level ) THEN
1335: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1336: 'Before Call to GET_OTHER_FED_PERC_AMOUNT');
1337: END IF;
1338: -- Get Other Federal Perception Amount
1339: GET_OTHER_FED_PERC_AMOUNT(P_FED_PERC_TAX_TYPE_FROM,
1346: l_tax_rate_tbl,
1347: l_other_fed_perc_amt_tbl);
1348:
1349: IF ( g_level_statement>= g_current_runtime_level ) THEN
1350: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1351: 'Before Call to GET_PROVINCIAL_PERC_AMOUNT');
1352: END IF;
1353: -- Get Provincial Amount
1354: GET_PROVINCIAL_PERC_AMOUNT(P_PROV_TAX_TYPE_FROM,
1360: l_tax_rate_id_tbl,
1361: l_prov_perc_amt_tbl);
1362:
1363: IF ( g_level_statement>= g_current_runtime_level ) THEN
1364: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1365: 'Before Call to GET_MUNICIPAL_PERC_AMOUNT');
1366: END IF;
1367: -- Get Municipal Perception Amount
1368: GET_MUNICIPAL_PERC_AMOUNT(P_MUN_TAX_TYPE_FROM,
1374: l_tax_rate_id_tbl,
1375: l_munic_perc_amt_tbl);
1376:
1377: IF ( g_level_statement>= g_current_runtime_level ) THEN
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1379: 'Before Call to GET_EXCISE_TAX_AMOUNT');
1380: END IF;
1381: -- Get Excise Tax Amount
1382: GET_EXCISE_TAX_AMOUNT(P_EXC_TAX_TYPE_FROM,
1387: l_trx_id_tbl,
1388: l_excise_amt_tbl);
1389:
1390: IF ( g_level_statement>= g_current_runtime_level ) THEN
1391: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1392: 'Before Call to GET_TOTAL_DOCUMENT_AMOUNT');
1393: END IF;
1394: -- Get Total Document Amount
1395: GET_TOTAL_DOCUMENT_AMOUNT(l_trx_id_tbl,
1452: fnd_global.login_id,
1453: p_request_id);
1454:
1455: IF ( g_level_statement>= g_current_runtime_level ) THEN
1456: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1457: 'After insertion into zx_rep_trx_jx_ext_t ');
1458: END IF;
1459:
1460: -- Delete Unwanted lines from Detail ITF
1470:
1471: EXCEPTION
1472: WHEN OTHERS THEN
1473: IF ( g_level_statement>= g_current_runtime_level ) THEN
1474: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1475: 'Error Message for report '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
1476: END IF;
1477: END;
1478:
1529: 'DOCUMENT TYPE.JL_CL_DEBIT_MEMO')
1530: GROUP BY itf1.trx_id,document_sub_type;
1531: */
1532: IF ( g_level_statement>= g_current_runtime_level ) THEN
1533: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1534: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
1535: END IF;
1536: --Bug 5058043
1537: IF (g_level_procedure >= g_current_runtime_level ) THEN
1534: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
1535: END IF;
1536: --Bug 5058043
1537: IF (g_level_procedure >= g_current_runtime_level ) THEN
1538: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1539: 'Before call to GET_LOOKUP_INFO ');
1540: END IF;
1541: -- Get Lookup Info
1542: GET_LOOKUP_INFO(l_document_sub_type_tbl,
1544: l_order_by_doc_type_tbl);
1545:
1546:
1547: IF (g_level_procedure >= g_current_runtime_level ) THEN
1548: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1549: 'Before call to GET_LOOKUP_INFO ');
1550: END IF;
1551: -- Get Counted sum doc
1552: GET_COUNTED_SUM_DOC(P_REPORT_NAME,
1558: l_cl_total_vat_tax_tbl,
1559: l_cl_total_other_tax_tbl);
1560:
1561: IF (g_level_procedure >= g_current_runtime_level ) THEN
1562: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1563: 'Before call to GET_VAT_AMOUNT ');
1564: END IF;
1565: -- Get Vat Amount
1566: GET_VAT_AMOUNT(P_VAT_TAX_TYPE,
1573: l_document_sub_type_tbl,
1574: l_vat_amt_tbl);
1575:
1576: IF (g_level_procedure >= g_current_runtime_level ) THEN
1577: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1578: 'Before call to GET_TAXABLE_AMOUNT ');
1579: END IF;
1580: -- Get Taxable Amount
1581: GET_TAXABLE_AMOUNT(P_VAT_TAX_TYPE,
1589: l_document_sub_type_tbl,
1590: l_taxable_amt_tbl);
1591:
1592: IF (g_level_procedure >= g_current_runtime_level ) THEN
1593: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1594: 'Before call to GET_VAT_EXEMPT_AMOUNT ');
1595: END IF;
1596: -- Get Vat Exempt Amount
1597: GET_VAT_EXEMPT_AMOUNT(P_VAT_TAX_TYPE,
1606: l_document_sub_type_tbl,
1607: l_vat_exempt_amt_tbl);
1608:
1609: IF (g_level_procedure >= g_current_runtime_level ) THEN
1610: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1611: 'Before call to GET_OTHER_TAX_AMOUNT ');
1612: END IF;
1613: -- Get Other Tax Amount
1614: GET_OTHER_TAX_AMOUNT(P_REPORT_NAME,
1618: l_document_sub_type_tbl,
1619: l_other_tax_amt_tbl);
1620:
1621: IF (g_level_procedure >= g_current_runtime_level ) THEN
1622: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1623: 'Before call to GET_TOTAL_DOC_TAXABLE_AMOUNT ');
1624: END IF;
1625: -- Get Total Doc taxable Amount
1626: GET_TOTAL_DOC_TAXABLE_AMOUNT(l_trx_id_tbl,
1673: sysdate,
1674: fnd_global.login_id);
1675:
1676: IF ( g_level_statement>= g_current_runtime_level ) THEN
1677: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1678: 'After insertion into zx_rep_trx_jx_ext_t ');
1679: END IF;
1680: -- Delete Unwanted lines from Detail ITF
1681:
1687: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
1688:
1689:
1690: IF ( g_level_statement>= g_current_runtime_level ) THEN
1691: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1692: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
1693: END IF;
1694:
1695: EXCEPTION
1696:
1697: WHEN OTHERS THEN
1698: l_err_msg := substrb(SQLERRM,1,120);
1699: IF (g_level_procedure >= g_current_runtime_level ) THEN
1700: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP.END',
1701: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP:'||p_report_name || '.'||l_err_msg);
1702: END IF;
1703:
1704: END;
1764: sysdate,
1765: fnd_global.login_id);
1766:
1767: IF ( g_level_statement>= g_current_runtime_level ) THEN
1768: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
1769: 'After insertion into zx_rep_trx_jx_ext_t ');
1770: END IF;
1771:
1772: END IF; -- End of P_REPORT_NAME = ..
1771:
1772: END IF; -- End of P_REPORT_NAME = ..
1773:
1774: IF (g_level_procedure >= g_current_runtime_level ) THEN
1775: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP.END',
1776: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AP(-)');
1777: END IF;
1778:
1779:
1864: l_tax_catg_desc zx_rep_trx_jx_ext_t.attribute1%type; --bug 5251425
1865: l_extended_amt_tbl NUMERIC10_TBL; --Bug 5396444
1866: BEGIN
1867:
1868: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1869:
1870: IF (g_level_procedure >= g_current_runtime_level ) THEN
1871: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR.BEGIN',
1872: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AR(+)');
1867:
1868: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1869:
1870: IF (g_level_procedure >= g_current_runtime_level ) THEN
1871: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR.BEGIN',
1872: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AR(+)');
1873: END IF;
1874:
1875: -- Get necessary parameters from TRL Global Variables
1889: P_REPORT_NAME := P_TRL_GLOBAL_VARIABLES_REC.REPORT_NAME;
1890: P_REQUEST_ID := P_TRL_GLOBAL_VARIABLES_REC.REQUEST_ID;
1891:
1892: IF ( g_level_statement>= g_current_runtime_level ) THEN
1893: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TAX_REGIME :'||P_TAX_REGIME );
1894: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_MUN_TAX_REGIME :'||P_MUN_TAX_REGIME );
1895: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_PROV_TAX_REGIME :'||P_PROV_TAX_REGIME );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1890: P_REQUEST_ID := P_TRL_GLOBAL_VARIABLES_REC.REQUEST_ID;
1891:
1892: IF ( g_level_statement>= g_current_runtime_level ) THEN
1893: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TAX_REGIME :'||P_TAX_REGIME );
1894: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_MUN_TAX_REGIME :'||P_MUN_TAX_REGIME );
1895: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_PROV_TAX_REGIME :'||P_PROV_TAX_REGIME );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1891:
1892: IF ( g_level_statement>= g_current_runtime_level ) THEN
1893: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TAX_REGIME :'||P_TAX_REGIME );
1894: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_MUN_TAX_REGIME :'||P_MUN_TAX_REGIME );
1895: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_PROV_TAX_REGIME :'||P_PROV_TAX_REGIME );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1892: IF ( g_level_statement>= g_current_runtime_level ) THEN
1893: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TAX_REGIME :'||P_TAX_REGIME );
1894: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_MUN_TAX_REGIME :'||P_MUN_TAX_REGIME );
1895: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_PROV_TAX_REGIME :'||P_PROV_TAX_REGIME );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1893: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TAX_REGIME :'||P_TAX_REGIME );
1894: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_MUN_TAX_REGIME :'||P_MUN_TAX_REGIME );
1895: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_PROV_TAX_REGIME :'||P_PROV_TAX_REGIME );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1894: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_MUN_TAX_REGIME :'||P_MUN_TAX_REGIME );
1895: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_PROV_TAX_REGIME :'||P_PROV_TAX_REGIME );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1895: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_PROV_TAX_REGIME :'||P_PROV_TAX_REGIME );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1896: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_EXC_TAX :'||P_EXC_TAX );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1904: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_TO :'||P_TRX_LETTER_TO );
1897: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_ADDIT_TAX :'||P_VAT_ADDIT_TAX );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1904: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_TO :'||P_TRX_LETTER_TO );
1905: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REPORT_NAME :'||P_REPORT_NAME );
1898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1904: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_TO :'||P_TRX_LETTER_TO );
1905: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REPORT_NAME :'||P_REPORT_NAME );
1906: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REQUEST_ID :'||P_REQUEST_ID );
1899: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NOT_CATEG_TAX :'||P_VAT_NOT_CATEG_TAX);
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1904: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_TO :'||P_TRX_LETTER_TO );
1905: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REPORT_NAME :'||P_REPORT_NAME );
1906: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REQUEST_ID :'||P_REQUEST_ID );
1907: END IF;
1900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_PERC_TAX :'||P_VAT_PERC_TAX );
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1904: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_TO :'||P_TRX_LETTER_TO );
1905: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REPORT_NAME :'||P_REPORT_NAME );
1906: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REQUEST_ID :'||P_REQUEST_ID );
1907: END IF;
1908:
1901: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_TAX :'||P_VAT_TAX );
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1904: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_TO :'||P_TRX_LETTER_TO );
1905: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REPORT_NAME :'||P_REPORT_NAME );
1906: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REQUEST_ID :'||P_REQUEST_ID );
1907: END IF;
1908:
1909:
1902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_VAT_NON_TAXAB_TAX :'||P_VAT_NON_TAXAB_TAX);
1903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_FROM :'||P_TRX_LETTER_FROM );
1904: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_TRX_LETTER_TO :'||P_TRX_LETTER_TO );
1905: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REPORT_NAME :'||P_REPORT_NAME );
1906: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR','P_REQUEST_ID :'||P_REQUEST_ID );
1907: END IF;
1908:
1909:
1910:
1913:
1914: BEGIN
1915:
1916: IF (g_level_procedure >= g_current_runtime_level ) THEN
1917: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
1918: 'JLZZTCFF : Filter ');
1919: END IF;
1920:
1921: /*
1962: GROUP BY itf.internal_organization_id, itf.trx_id,
1963: itf.trx_number ;
1964:
1965: IF ( g_level_statement>= g_current_runtime_level ) THEN
1966: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
1967: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
1968: END IF;
1969:
1970: GET_DGI_CODE(l_trx_number_tbl,
1973: l_dgi_code_tbl);
1974:
1975:
1976: IF ( g_level_statement>= g_current_runtime_level ) THEN
1977: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
1978: 'Before call to GET_VAT_AMOUNT ');
1979: END IF;
1980: -- Get Vat Amount
1981: GET_VAT_AMOUNT(P_VAT_TAX,
2013: fnd_global.login_id,
2014: p_request_id);
2015:
2016: IF ( g_level_statement>= g_current_runtime_level ) THEN
2017: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2018: 'After insertion into zx_rep_trx_jx_ext_t ');
2019: END IF;
2020: -- Delete Unwanted lines from Detail ITF
2021:
2025: FROM zx_rep_trx_jx_ext_t ext
2026: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
2027:
2028: IF ( g_level_statement>= g_current_runtime_level ) THEN
2029: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2030: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
2031: END IF;
2032:
2033: IF (g_level_procedure >= g_current_runtime_level ) THEN
2030: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
2031: END IF;
2032:
2033: IF (g_level_procedure >= g_current_runtime_level ) THEN
2034: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2035: 'JLZZTCFF : Call End ');
2036: END IF;
2037:
2038: EXCEPTION
2038: EXCEPTION
2039: WHEN OTHERS THEN
2040: l_err_msg := substrb(SQLERRM,1,120);
2041: IF (g_level_procedure >= g_current_runtime_level ) THEN
2042: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2043: 'JLZZTCFF : Exception '||p_report_name || '.'||l_err_msg);
2044: END IF;
2045:
2046: END;
2049: ELSIF P_REPORT_NAME = 'JLARTPFF' THEN
2050:
2051: BEGIN
2052: IF (g_level_procedure >= g_current_runtime_level ) THEN
2053: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2054: 'JLARTPFF : Filter ');
2055: END IF;
2056: -- DELETE from ZX_REP_TRX_DETAIL_T DET
2057: -- WHERE DET.REQUEST_ID = P_TRL_GLOBAL_VARIABLES_REC.REQUEST_ID
2081: --AND rct.global_attribute19 is null
2082: --AND itf1.doc_event_status = 'FROZEN_FOR_TAX';
2083:
2084: IF ( g_level_statement>= g_current_runtime_level ) THEN
2085: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2086: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
2087: END IF;
2088:
2089: IF ( g_level_statement>= g_current_runtime_level ) THEN
2086: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
2087: END IF;
2088:
2089: IF ( g_level_statement>= g_current_runtime_level ) THEN
2090: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2091: 'Before call to GET_TAXABLE_AMOUNT ');
2092: END IF;
2093: -- Get Taxable Amount
2094: GET_TAXABLE_AMOUNT(P_VAT_TAX,
2102: l_document_sub_type_tbl,
2103: l_taxable_amt_tbl);
2104:
2105: IF ( g_level_statement>= g_current_runtime_level ) THEN
2106: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2107: 'Before call to GET_VAT_PERCEPTION_AMOUNT ');
2108: END IF;
2109: -- Get Vat Perception Amount
2110: GET_VAT_PERCEPTION_AMOUNT(null, -- P_VAT_PERC_TAX_TYPE_FROM,
2118: l_tax_rate_tbl,
2119: l_vat_perc_amt_tbl);
2120:
2121: IF ( g_level_statement>= g_current_runtime_level ) THEN
2122: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2123: 'Before call to GET_TOTAL_DOCUMENT_AMOUNT ');
2124: END IF;
2125: -- Get Total Document Amount
2126: GET_TOTAL_DOCUMENT_AMOUNT(l_trx_id_tbl,
2128: P_REPORT_NAME,
2129: l_total_doc_amt_tbl);
2130:
2131: IF ( g_level_statement>= g_current_runtime_level ) THEN
2132: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2133: 'Before call to GET_TAX_AUTHORITY_CODE ');
2134: END IF;
2135: -- Get Tax Authority Code
2136: l_tax_authority_code := GET_TAX_AUTHORITY_CODE(P_VAT_PERC_TAX,
2136: l_tax_authority_code := GET_TAX_AUTHORITY_CODE(P_VAT_PERC_TAX,
2137: l_internal_org_id_tbl(1));
2138:
2139: IF ( g_level_statement>= g_current_runtime_level ) THEN
2140: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2141: 'Before call to GET_DGI_TAX_REGIME_CODE ');
2142: END IF;
2143:
2144: GET_DGI_TAX_REGIME_CODE (P_VAT_PERC_TAX,
2148: P_REQUEST_ID,
2149: l_dgi_tax_regime_code_tbl);
2150:
2151: IF ( g_level_statement>= g_current_runtime_level ) THEN
2152: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2153: 'Before call to GET_CUSTOMER_CONDITION_CODE ');
2154: END IF;
2155: -- Get Customer Condition Code
2156: GET_CUSTOMER_CONDITION_CODE(P_VAT_PERC_TAX,
2192: sysdate,
2193: fnd_global.login_id);
2194:
2195: IF ( g_level_statement>= g_current_runtime_level ) THEN
2196: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2197: 'After insertion into zx_rep_trx_jx_ext_t ');
2198: END IF;
2199: -- Delete Unwanted lines from Detail ITF
2200:
2204: FROM zx_rep_trx_jx_ext_t ext
2205: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
2206:
2207: IF ( g_level_statement>= g_current_runtime_level ) THEN
2208: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2209: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
2210: END IF;
2211:
2212: IF (g_level_procedure >= g_current_runtime_level ) THEN
2209: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
2210: END IF;
2211:
2212: IF (g_level_procedure >= g_current_runtime_level ) THEN
2213: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2214: 'JLARTPFF : Call End ');
2215: END IF;
2216:
2217:
2219:
2220: WHEN OTHERS THEN
2221: l_err_msg := substrb(SQLERRM,1,120);
2222: IF (g_level_procedure >= g_current_runtime_level ) THEN
2223: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2224: 'JLARTPFF : Exception '||p_report_name || '.'||l_err_msg);
2225: END IF;
2226: END;
2227:
2228: ELSIF P_REPORT_NAME = 'ZXZZTVSR' THEN
2229:
2230: BEGIN
2231: IF (g_level_procedure >= g_current_runtime_level ) THEN
2232: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2233: 'ZXZZTVSR : Filter ');
2234: END IF;
2235:
2236: SELECT detail_tax_line_id,
2328: AND itf6.request_id = P_REQUEST_ID )
2329: );
2330:
2331: IF ( g_level_statement>= g_current_runtime_level ) THEN
2332: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2333: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
2334: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2335: 'Before call to GET_VAT_AMOUNT ');
2336: END IF;
2330:
2331: IF ( g_level_statement>= g_current_runtime_level ) THEN
2332: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2333: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
2334: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2335: 'Before call to GET_VAT_AMOUNT ');
2336: END IF;
2337: -- Get Vat Amount
2338: GET_VAT_AMOUNT(P_VAT_TAX,
2345: l_document_sub_type_tbl,
2346: l_vat_amt_tbl);
2347:
2348: IF ( g_level_statement>= g_current_runtime_level ) THEN
2349: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2350: 'Before call to GET_TAXABLE_AMOUNT ');
2351: END IF;
2352: -- Get Taxable Amount
2353: GET_TAXABLE_AMOUNT(P_VAT_TAX,
2361: l_document_sub_type_tbl,
2362: l_taxable_amt_tbl);
2363:
2364: IF ( g_level_statement>= g_current_runtime_level ) THEN
2365: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2366: 'Before call to GET_NON_TAXABLE_AMOUNT ');
2367: END IF;
2368: -- Get Non Taxable Amount
2369: GET_NON_TAXABLE_AMOUNT(P_VAT_NON_TAXAB_TAX,
2378: l_tax_rate_tbl,
2379: l_non_taxable_amt_tbl);
2380:
2381: IF ( g_level_statement>= g_current_runtime_level ) THEN
2382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2383: 'Before call to GET_VAT_ADDITIONAL_AMOUNT ');
2384: END IF;
2385: -- Get Vat Additional Amount
2386: GET_VAT_ADDITIONAL_AMOUNT(P_VAT_ADDIT_TAX,
2390: l_tax_rate_id_tbl,
2391: l_vat_additional_amt_tbl);
2392:
2393: IF ( g_level_statement>= g_current_runtime_level ) THEN
2394: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2395: 'Before call to GET_VAT_EXEMPT_AMOUNT ');
2396: END IF;
2397: -- Get Vat Exempt Amount
2398: GET_VAT_EXEMPT_AMOUNT(P_VAT_TAX,
2407: l_document_sub_type_tbl,
2408: l_vat_exempt_amt_tbl);
2409:
2410: IF ( g_level_statement>= g_current_runtime_level ) THEN
2411: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2412: 'Before call to GET_VAT_PERCEPTION_AMOUNT ');
2413: END IF;
2414: -- Get Vat Perception Amount
2415: GET_VAT_PERCEPTION_AMOUNT(null, -- P_VAT_PERC_TAX_TYPE_FROM,
2423: l_tax_rate_tbl,
2424: l_vat_perc_amt_tbl);
2425:
2426: IF ( g_level_statement>= g_current_runtime_level ) THEN
2427: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2428: 'Before call to GET_TOTAL_DOCUMENT_AMOUNT ');
2429: END IF;
2430: -- Get Total Document Amount
2431: GET_TOTAL_DOCUMENT_AMOUNT(l_trx_id_tbl,
2433: P_REPORT_NAME,
2434: l_total_doc_amt_tbl);
2435:
2436: IF ( g_level_statement>= g_current_runtime_level ) THEN
2437: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2438: 'Before call to GET_DGI_CODE ');
2439: END IF;
2440: -- Get DGI Code
2441: GET_DGI_CODE(l_trx_number_tbl,
2478: sysdate,
2479: fnd_global.login_id);
2480:
2481: IF ( g_level_statement>= g_current_runtime_level ) THEN
2482: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2483: 'After insertion into zx_rep_trx_jx_ext_t ');
2484: END IF;
2485: -- Delete Unwanted lines from Detail ITF
2486:
2490: FROM zx_rep_trx_jx_ext_t ext
2491: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
2492:
2493: IF ( g_level_statement>= g_current_runtime_level ) THEN
2494: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2495: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
2496: END IF;
2497:
2498: IF (g_level_procedure >= g_current_runtime_level ) THEN
2495: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
2496: END IF;
2497:
2498: IF (g_level_procedure >= g_current_runtime_level ) THEN
2499: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2500: 'ZXZZTVSR : Call End ');
2501: END IF;
2502:
2503: EXCEPTION
2504:
2505: WHEN OTHERS THEN
2506: l_err_msg := substrb(SQLERRM,1,120);
2507: IF (g_level_procedure >= g_current_runtime_level ) THEN
2508: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2509: 'ZXZZTVSR : Exception '||p_report_name || '.'||l_err_msg);
2510: END IF;
2511: END;
2512:
2514:
2515: BEGIN
2516:
2517: IF (g_level_procedure >= g_current_runtime_level ) THEN
2518: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2519: 'JLARTSFF : Filter ');
2520: END IF;
2521:
2522: IF P_REPORT_NAME = 'JLARTSFF' THEN
2614: itf3.tax_rate_id,
2615: itf3.tax_regime_code);
2616:
2617: IF (g_level_procedure >= g_current_runtime_level ) THEN
2618: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2619: 'Row Count : '||to_char(l_detail_tax_line_id_tbl.count));
2620: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2621: 'p_tax_regime - P_VAT_TAX : '||p_tax_regime||'-'||P_VAT_TAX);
2622: END IF;
2616:
2617: IF (g_level_procedure >= g_current_runtime_level ) THEN
2618: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2619: 'Row Count : '||to_char(l_detail_tax_line_id_tbl.count));
2620: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2621: 'p_tax_regime - P_VAT_TAX : '||p_tax_regime||'-'||P_VAT_TAX);
2622: END IF;
2623:
2624:
2624:
2625: ELSIF P_REPORT_NAME = 'JLARTDFF' THEN
2626:
2627: IF (g_level_procedure >= g_current_runtime_level ) THEN
2628: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2629: 'JLARTDFF : Filter ');
2630: END IF;
2631:
2632: SELECT min(detail_tax_line_id),
2663:
2664: l_count := l_detail_tax_line_id_tbl.count;
2665:
2666: IF ( g_level_statement>= g_current_runtime_level ) THEN
2667: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2668: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
2669: END IF;
2670:
2671:
2693: END LOOP;
2694: -- End of Initialize --
2695:
2696: IF ( g_level_statement>= g_current_runtime_level ) THEN
2697: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2698: 'Before call to GET_VAT_AMOUNT ');
2699: END IF;
2700: -- initialize_variables(l_count);
2701: -- Get Vat Amount
2709: l_document_sub_type_tbl,
2710: l_vat_amt_tbl);
2711:
2712: IF ( g_level_statement>= g_current_runtime_level ) THEN
2713: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2714: 'Before call to GET_TAXABLE_AMOUNT ');
2715: END IF;
2716:
2717: -- Get Taxable Amount
2726: l_document_sub_type_tbl,
2727: l_taxable_amt_tbl);
2728:
2729: IF ( g_level_statement>= g_current_runtime_level ) THEN
2730: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2731: 'Before call to GET_NON_TAXABLE_AMOUNT ');
2732: END IF;
2733:
2734:
2745: l_tax_rate_tbl,
2746: l_non_taxable_amt_tbl);
2747:
2748: IF ( g_level_statement>= g_current_runtime_level ) THEN
2749: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2750: 'Before call to GET_VAT_EXEMPT_AMOUNT ');
2751: END IF;
2752: -- Get Vat Exempt Amount
2753: GET_VAT_EXEMPT_AMOUNT(P_VAT_TAX,
2762: l_document_sub_type_tbl,
2763: l_vat_exempt_amt_tbl);
2764:
2765: IF ( g_level_statement>= g_current_runtime_level ) THEN
2766: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2767: 'Before call to GET_VAT_PERCEPTION_AMOUNT ');
2768: END IF;
2769: -- Get Vat Perception Amount
2770: GET_VAT_PERCEPTION_AMOUNT(null, -- P_VAT_PERC_TAX_TYPE_FROM,
2778: l_tax_rate_tbl,
2779: l_vat_perc_amt_tbl);
2780:
2781: IF ( g_level_statement>= g_current_runtime_level ) THEN
2782: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2783: 'Before call to GET_NOT_REGISTERED_TAX_AMOUNT ');
2784: END IF;
2785: -- Get Not Registered Amount
2786: GET_NOT_REGISTERED_TAX_AMOUNT(P_REPORT_NAME,
2793: l_document_sub_type_tbl,
2794: l_not_reg_tax_amt_tbl);
2795:
2796: IF ( g_level_statement>= g_current_runtime_level ) THEN
2797: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2798: 'Before call to GET_PROVINCIAL_PERC_AMOUNT ');
2799: END IF;
2800: -- Get Provincial Perception Amount
2801: GET_PROVINCIAL_PERC_AMOUNT(null, -- P_PROV_TAX_TYPE_FROM,
2807: l_tax_rate_id_tbl,
2808: l_prov_perc_amt_tbl);
2809:
2810: IF ( g_level_statement>= g_current_runtime_level ) THEN
2811: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2812: 'Before call to GET_MUNICIPAL_PERC_AMOUNT ');
2813: END IF;
2814: -- Get Municipal Perception Amount
2815: GET_MUNICIPAL_PERC_AMOUNT(null, -- P_MUN_TAX_TYPE_FROM,
2821: l_tax_rate_id_tbl,
2822: l_munic_perc_amt_tbl);
2823:
2824: IF ( g_level_statement>= g_current_runtime_level ) THEN
2825: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2826: 'Before call to GET_EXCISE_TAX_AMOUNT ');
2827: END IF;
2828: -- Get Excise Tax Amount
2829: GET_EXCISE_TAX_AMOUNT(null, --P_EXC_TAX_TYPE_FROM,
2834: l_trx_id_tbl,
2835: l_excise_amt_tbl);
2836:
2837: IF ( g_level_statement>= g_current_runtime_level ) THEN
2838: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2839: 'Before call to GET_TOTAL_DOCUMENT_AMOUNT ');
2840: END IF;
2841: -- Get Total Document Amount
2842: GET_TOTAL_DOCUMENT_AMOUNT(l_trx_id_tbl,
2844: P_REPORT_NAME,
2845: l_total_doc_amt_tbl);
2846:
2847: IF ( g_level_statement>= g_current_runtime_level ) THEN
2848: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2849: 'Before call to GET_DGI_CODE ');
2850: END IF;
2851: -- Get DGI Code
2852: GET_DGI_CODE(l_trx_number_tbl,
2854: l_internal_org_id_tbl,
2855: l_dgi_code_tbl);
2856:
2857: IF ( g_level_statement>= g_current_runtime_level ) THEN
2858: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2859: 'Before call to GET_VAT_REG_STAT_CODE ');
2860: END IF;
2861: -- Get Vat Reg Stat Code
2862: GET_VAT_REG_STAT_CODE(P_VAT_TAX,
2866: l_vat_reg_stat_code_tbl);
2867:
2868:
2869: IF ( g_level_statement>= g_current_runtime_level ) THEN
2870: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2871: 'Before call to DGI_TRX_CODE ');
2872: END IF;
2873: -- Get DGI Trx code
2874: DGI_TRX_CODE ( l_trx_id_tbl,
2878:
2879:
2880: -- Fiscal Printer --
2881: IF ( g_level_statement>= g_current_runtime_level ) THEN
2882: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER_AR',
2883: 'Before call to GET_FISCAL_PRINTER_AR ');
2884: END IF;
2885:
2886: -- Fiscal Printer --
2888: l_batch_source_id_tbl,
2889: l_fiscal_printer_tbl);
2890:
2891: IF ( g_level_statement>= g_current_runtime_level ) THEN
2892: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
2893: 'Before call to GET_CAI_NUM ');
2894: END IF;
2895: GET_CAI_NUM_AR
2896: ( l_trx_id_tbl,
2898: l_cai_number_tbl,
2899: l_cai_due_date_tbl);
2900:
2901: IF ( g_level_statement>= g_current_runtime_level ) THEN
2902: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2903: 'Before call to GET_REC_COUNT ');
2904: END IF;
2905: -- Get counted record
2906: GET_REC_COUNT(P_VAT_TAX,
2909: P_REQUEST_ID,
2910: l_rec_count_tbl);
2911:
2912: IF ( g_level_statement>= g_current_runtime_level ) THEN
2913: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2914: 'Before call to GET_VAT_NONVAT_RATE_COUNT ');
2915: END IF;
2916: -- Get Counted VAT or NOVAT Tax Rate
2917: GET_VAT_NONVAT_RATE_COUNT (P_VAT_TAX,
2980: fnd_global.login_id,
2981: p_request_id);
2982:
2983: IF ( g_level_statement>= g_current_runtime_level ) THEN
2984: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
2985: 'After insertion into zx_rep_trx_jx_ext_t ');
2986: END IF;
2987: -- Delete Unwanted lines from Detail ITF
2988:
2995:
2996: UPDATE_DGI_CURR_CODE(p_request_id);
2997:
2998: IF ( g_level_statement>= g_current_runtime_level ) THEN
2999: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3000: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
3001: END IF;
3002:
3003: IF (g_level_procedure >= g_current_runtime_level ) THEN
3000: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
3001: END IF;
3002:
3003: IF (g_level_procedure >= g_current_runtime_level ) THEN
3004: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3005: 'JLARTDFF and JLARTSFF : Call End ');
3006: END IF;
3007:
3008:
3009: EXCEPTION
3010: WHEN OTHERS THEN
3011: l_err_msg := substrb(SQLERRM,1,120);
3012: IF (g_level_procedure >= g_current_runtime_level ) THEN
3013: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3014: 'JLARTDFF and JLARTSFF : Exception '||p_report_name || '.'||l_err_msg);
3015: END IF;
3016: END;
3017:
3019:
3020: BEGIN
3021:
3022: IF (g_level_procedure >= g_current_runtime_level ) THEN
3023: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3024: 'JLARTOFF : Filter ');
3025: END IF;
3026:
3027: SELECT detail_tax_line_id,
3051: P_MUN_TAX_REGIME);
3052:
3053:
3054: IF (g_level_procedure >= g_current_runtime_level ) THEN
3055: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3056: 'JLARTOFF : Bulk collect '||to_char(l_trx_id_tbl.count));
3057: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3058: 'JLARTOFF : Bulk collect '||to_char(l_trx_id_tbl.count));
3059: END IF;
3053:
3054: IF (g_level_procedure >= g_current_runtime_level ) THEN
3055: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3056: 'JLARTOFF : Bulk collect '||to_char(l_trx_id_tbl.count));
3057: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3058: 'JLARTOFF : Bulk collect '||to_char(l_trx_id_tbl.count));
3059: END IF;
3060:
3061: -- Get Provincial Perception Amount
3068: l_tax_rate_id_tbl,
3069: l_prov_perc_amt_tbl);
3070:
3071: IF ( g_level_statement>= g_current_runtime_level ) THEN
3072: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3073: 'Before call to GET_MUNICIPAL_PERC_AMOUNT ');
3074: END IF;
3075: -- Get Municipal Perception Amount
3076: GET_MUNICIPAL_PERC_AMOUNT(null, -- P_MUN_TAX_TYPE_FROM
3082: l_tax_rate_id_tbl,
3083: l_munic_perc_amt_tbl);
3084:
3085: IF ( g_level_statement>= g_current_runtime_level ) THEN
3086: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3087: 'Before call to GET_DGI_CODE ');
3088: END IF;
3089: -- Get DGI Code
3090: GET_DGI_CODE(l_trx_number_tbl,
3143: fnd_global.login_id,
3144: p_request_id);
3145:
3146: IF ( g_level_statement>= g_current_runtime_level ) THEN
3147: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3148: 'After insertion into zx_rep_trx_jx_ext_t ');
3149: END IF;
3150: -- Delete Unwanted lines from Detail ITF
3151:
3155: FROM zx_rep_trx_jx_ext_t ext
3156: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
3157:
3158: IF ( g_level_statement>= g_current_runtime_level ) THEN
3159: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3160: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
3161: END IF;
3162:
3163: IF (g_level_procedure >= g_current_runtime_level ) THEN
3160: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
3161: END IF;
3162:
3163: IF (g_level_procedure >= g_current_runtime_level ) THEN
3164: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3165: 'JLARTOFF : Call End ');
3166: END IF;
3167:
3168:
3170:
3171: WHEN OTHERS THEN
3172: l_err_msg := substrb(SQLERRM,1,120);
3173: IF (g_level_procedure >= g_current_runtime_level ) THEN
3174: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3175: 'JLARTOFF : Exception '||p_report_name || '.'||l_err_msg);
3176: END IF;
3177: END;
3178:
3179: ELSIF P_REPORT_NAME = 'ZXCLRSLL' THEN
3180:
3181: BEGIN
3182: IF (g_level_procedure >= g_current_runtime_level ) THEN
3183: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3184: 'ZXCLRSLL : Filter ');
3185: END IF;
3186:
3187: SELECT min(itf.detail_tax_line_id),
3222: itf.tax_rate_id,
3223: itf.DOC_SEQ_NAME; --Bug 5438742
3224:
3225: IF ( g_level_statement>= g_current_runtime_level ) THEN
3226: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3227: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
3228: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3229: 'Before call to GET_VAT_AMOUNT ');
3230: END IF;
3224:
3225: IF ( g_level_statement>= g_current_runtime_level ) THEN
3226: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3227: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
3228: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3229: 'Before call to GET_VAT_AMOUNT ');
3230: END IF;
3231:
3232: -- Get Vat Amount
3240: l_document_sub_type_tbl,
3241: l_vat_amt_tbl);
3242:
3243: IF ( g_level_statement>= g_current_runtime_level ) THEN
3244: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3245: 'Before call to GET_TAXABLE_AMOUNT ');
3246: END IF;
3247: -- Get Taxable Amount
3248: GET_TAXABLE_AMOUNT(P_VAT_TAX,
3256: l_document_sub_type_tbl,
3257: l_taxable_amt_tbl);
3258:
3259: IF ( g_level_statement>= g_current_runtime_level ) THEN
3260: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3261: 'Before call to GET_VAT_EXEMPT_AMOUNT ');
3262: END IF;
3263: -- Get Vat Exempt Amount
3264: GET_VAT_EXEMPT_AMOUNT(P_VAT_TAX,
3273: l_document_sub_type_tbl,
3274: l_vat_exempt_amt_tbl);
3275:
3276: IF ( g_level_statement>= g_current_runtime_level ) THEN
3277: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3278: 'Before call to GET_OTHER_TAX_AMOUNT ');
3279: END IF;
3280: -- Get Vat Exempt Amount
3281: GET_OTHER_TAX_AMOUNT(P_REPORT_NAME,
3323: sysdate,
3324: fnd_global.login_id);
3325:
3326: IF ( g_level_statement>= g_current_runtime_level ) THEN
3327: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3328: 'After insertion into zx_rep_trx_jx_ext_t ');
3329: END IF;
3330: -- Delete Unwanted lines from Detail ITF
3331:
3335: FROM zx_rep_trx_jx_ext_t ext
3336: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
3337:
3338: IF ( g_level_statement>= g_current_runtime_level ) THEN
3339: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JA_EXTRACT_PKG.POPULATE_JL_AP',
3340: 'Deleted Count : '||to_char(SQL%ROWCOUNT) );
3341: END IF;
3342:
3343: IF (g_level_procedure >= g_current_runtime_level ) THEN
3340: 'Deleted Count : '||to_char(SQL%ROWCOUNT) );
3341: END IF;
3342:
3343: IF (g_level_procedure >= g_current_runtime_level ) THEN
3344: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR.END',
3345: 'ZX_JL_EXTRACT_PKG.POPULATE_JL_AR(-)');
3346: END IF;
3347:
3348: EXCEPTION
3349: WHEN OTHERS THEN
3350:
3351: l_err_msg := substrb(SQLERRM,1,120);
3352: IF (g_level_procedure >= g_current_runtime_level ) THEN
3353: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3354: 'ZXCLRSLL : Exception '||p_report_name || '.'||l_err_msg);
3355: END IF;
3356: END;
3357:
3383: AND dtl.trx_type_id = tt.cust_trx_type_id
3384: AND tt.accounting_affect_flag = 'Y';
3385:
3386: IF ( g_level_statement>= g_current_runtime_level ) THEN
3387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
3388: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
3389: END IF;
3390:
3391: IF ( g_level_statement>= g_current_runtime_level ) THEN
3388: 'Count fetched : '||to_char(nvl(l_detail_tax_line_id_tbl.count,0)) );
3389: END IF;
3390:
3391: IF ( g_level_statement>= g_current_runtime_level ) THEN
3392: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
3393: 'Before call to GET_TOTAL_DOCUMENT_AMOUNT ');
3394: END IF;
3395:
3396: GET_TOTAL_DOCUMENT_AMOUNT(l_trx_id_tbl,
3401: --Bug 5396444 : Added logic for Extended Amount(ext.numeric12) and VAT Amount(ext.numeric9)
3402: -- Get Extended Amount
3403:
3404: IF ( g_level_statement>= g_current_runtime_level ) THEN
3405: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3406: 'Before call to GET_TAXABLE_AMOUNT ');
3407: END IF;
3408:
3409: GET_TAXABLE_AMOUNT(null,
3419:
3420: --Get Vat Amount
3421:
3422: IF ( g_level_statement>= g_current_runtime_level ) THEN
3423: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3424: 'Before call to GET_VAT_AMOUNT ');
3425: END IF;
3426:
3427: GET_VAT_AMOUNT(NULL ,
3457: sysdate,
3458: fnd_global.login_id);
3459:
3460: IF ( g_level_statement>= g_current_runtime_level ) THEN
3461: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
3462: 'After insertion into zx_rep_trx_jx_ext_t ');
3463: END IF;
3464:
3465: -- Delete Unwanted lines from Detail ITF
3470: FROM zx_rep_trx_jx_ext_t ext
3471: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
3472:
3473: IF ( g_level_statement>= g_current_runtime_level ) THEN
3474: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
3475: 'After deletion from zx_rep_trx_detail_t : '||to_char(SQL%ROWCOUNT) );
3476: END IF;
3477: EXCEPTION
3478: WHEN OTHERS THEN
3476: END IF;
3477: EXCEPTION
3478: WHEN OTHERS THEN
3479: IF ( g_level_statement>= g_current_runtime_level ) THEN
3480: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AP',
3481: 'Error Message for report '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
3482: END IF;
3483:
3484: END;
3495: WHEN OTHERS THEN
3496: l_tax_catg_desc := null;
3497: l_err_msg := substrb(SQLERRM,1,120);
3498: IF (g_level_procedure >= g_current_runtime_level ) THEN
3499: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3500: 'ZXCOARSW : Exception '||p_report_name || '.'||l_err_msg);
3501: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3502: 'Assigned tax_category_desc to null');
3503: END IF;
3497: l_err_msg := substrb(SQLERRM,1,120);
3498: IF (g_level_procedure >= g_current_runtime_level ) THEN
3499: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3500: 'ZXCOARSW : Exception '||p_report_name || '.'||l_err_msg);
3501: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3502: 'Assigned tax_category_desc to null');
3503: END IF;
3504: END ;
3505:
3503: END IF;
3504: END ;
3505:
3506: IF ( g_level_statement>= g_current_runtime_level ) THEN
3507: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3508: 'P_TRL_GLOBAL_VARIABLES_REC.VAT_TAX : '||P_TRL_GLOBAL_VARIABLES_REC.VAT_TAX );
3509: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3510: 'l_tax_catg_desc : '||l_tax_catg_desc );
3511: END IF;
3505:
3506: IF ( g_level_statement>= g_current_runtime_level ) THEN
3507: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3508: 'P_TRL_GLOBAL_VARIABLES_REC.VAT_TAX : '||P_TRL_GLOBAL_VARIABLES_REC.VAT_TAX );
3509: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3510: 'l_tax_catg_desc : '||l_tax_catg_desc );
3511: END IF;
3512:
3513: INSERT INTO zx_rep_trx_jx_ext_t
3531: WHERE dtl.request_id = p_request_id
3532: );
3533:
3534: IF ( g_level_statement>= g_current_runtime_level ) THEN
3535: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
3536: 'After insertion into zx_rep_trx_jx_ext_t ');
3537: END IF;
3538:
3539: END IF; -- End of P_REPORT_NAME = ..
3592:
3593: BEGIN
3594:
3595: IF (g_level_procedure >= g_current_runtime_level ) THEN
3596: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
3597: 'ZX_JL_EXTRACT_PKG.get_vat_amount(+)');
3598: END IF;
3599:
3600:
3619:
3620: ELSIF P_REPORT_NAME = 'ZXCLPPLR' THEN
3621:
3622: IF ( g_level_statement>= g_current_runtime_level ) THEN
3623: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
3624: ' Document_Sub_Type : '||P_DOCUMENT_SUB_TYPE_TBL(i) );
3625: END IF;
3626:
3627: IF P_DOCUMENT_SUB_TYPE_TBL(i) = 'JL_CL_CREDIT_MEMO' THEN
3677: EXCEPTION
3678: WHEN OTHERS THEN
3679: l_err_msg := substrb(SQLERRM,1,120);
3680: IF (g_level_procedure >= g_current_runtime_level ) THEN
3681: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
3682: 'ZX_JL_EXTRACT_PKG.get_vat_amount.'|| P_REPORT_NAME ||':'||l_err_msg);
3683: END IF;
3684:
3685: END;
3717: EXCEPTION
3718: WHEN NO_DATA_FOUND THEN
3719: X_VAT_AMT_TBL(i) := 0;
3720: IF (g_level_statement >= g_current_runtime_level ) THEN
3721: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3722: 'No Data Found : Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i)||' tax_rate : '||p_tax_rate_tbl(i));
3723: END IF;
3724:
3725: WHEN OTHERS THEN
3724:
3725: WHEN OTHERS THEN
3726: l_err_msg := substrb(SQLERRM,1,120);
3727: IF (g_level_statement >= g_current_runtime_level ) THEN
3728: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3729: 'Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i)||' tax_rate : '||p_tax_rate_tbl(i)||': '||l_err_msg);
3730: END IF;
3731:
3732: END;
3747: FROM zx_rep_trx_detail_t
3748: WHERE request_id = p_request_id;
3749:
3750: IF ( g_level_statement>= g_current_runtime_level ) THEN
3751: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
3752: ' l_trx_counter : '||l_trx_counter );
3753: END IF;
3754:
3755: EXCEPTION
3756:
3757: WHEN OTHERS THEN
3758: l_err_msg := substrb(SQLERRM,1,120);
3759: IF (g_level_statement >= g_current_runtime_level ) THEN
3760: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
3761: 'ZX_JL_EXTRACT_PKG.get_vat_amount.'|| P_REPORT_NAME ||':'||l_err_msg);
3762: END IF;
3763: END;
3764:
3763: END;
3764:
3765:
3766: IF (g_level_procedure >= g_current_runtime_level ) THEN
3767: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3768: 'Get VAT Amount For LOOP :'||to_char(p_trx_id_tbl.last));
3769: END IF;
3770:
3771:
3772: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
3773:
3774:
3775: IF (g_level_procedure >= g_current_runtime_level ) THEN
3776: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3777: 'Get VAT Amount For LOOP :'||to_char(i));
3778: END IF;
3779:
3780: /* IF l_vat_amt_tbl.EXISTS(p_trx_id_tbl(i)) THEN
3796:
3797: BEGIN
3798:
3799: IF (g_level_procedure >= g_current_runtime_level ) THEN
3800: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3801: 'Get VAT Amount SQL :'||to_char(l_vat_amt_tbl(p_trx_id_tbl(i))));
3802: END IF;
3803:
3804: -- ---------------------------------------------- --
3817: AND itf.reverse_flag is null
3818: AND itf.tax_type_code = p_vat_tax;
3819:
3820: IF (g_level_procedure >= g_current_runtime_level ) THEN
3821: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3822: 'Get VAT Amount SQL : JLARPCFF:'||to_char(l_vat_amt_tbl(p_trx_id_tbl(i))));
3823: END IF;
3824:
3825:
3825:
3826: ELSIF P_REPORT_NAME = 'JLARPPFF' THEN
3827:
3828: IF (g_level_procedure >= g_current_runtime_level ) THEN
3829: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3830: 'Get VAT Amount SQL : JLARPPFF:'||to_char(l_vat_amt_tbl(p_trx_id_tbl(i))));
3831: END IF;
3832:
3833: SELECT sum(itf.tax_amt)
3840: AND itf.tax_type_code = p_vat_tax;
3841:
3842:
3843: IF (g_level_procedure >= g_current_runtime_level ) THEN
3844: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3845: 'Get VAT Amount SQL : JLARPPFF: After SQL'||to_char(l_vat_amt_tbl(p_trx_id_tbl(i))));
3846: END IF;
3847:
3848: -- ---------------------------------------------- --
3865:
3866: ELSIF P_REPORT_NAME = 'JLARTSFF' THEN
3867:
3868: IF (g_level_procedure >= g_current_runtime_level ) THEN
3869: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3870: 'Get VAT Amount : JLARTSFF:');
3871: END IF;
3872:
3873:
3874: IF l_gdf_ra_cust_trx_att19_tbl.EXISTS(p_trx_id_tbl(i)) THEN
3875: null;
3876:
3877: IF (g_level_procedure >= g_current_runtime_level ) THEN
3878: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3879: 'Get VAT Amount : l_gdf_ra_cust_trx_att19_tbl not null:');
3880: END IF;
3881:
3882: ELSE
3882: ELSE
3883: l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) := null;
3884:
3885: IF (g_level_procedure >= g_current_runtime_level ) THEN
3886: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3887: 'Get VAT Amount : l_gdf_ra_cust_trx_att19_tbl null:');
3888: END IF;
3889:
3890: END IF;
3895:
3896: -- IF l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) IS NULL THEN
3897: BEGIN
3898: IF (g_level_procedure >= g_current_runtime_level ) THEN
3899: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3900: 'Get VAT Amount SQL begin : JLARTSFF:');
3901: END IF;
3902:
3903: SELECT decode(global_attribute19,NULL,'IS_NULL','NOT_NULL')
3905: FROM ra_customer_trx_all
3906: WHERE customer_trx_id = p_trx_id_tbl(i);
3907:
3908: IF (g_level_procedure >= g_current_runtime_level ) THEN
3909: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3910: 'Get VAT Amount SQL end: JLARTSFF:');
3911: END IF;
3912:
3913:
3914: EXCEPTION
3915: WHEN OTHERS THEN
3916: l_err_msg := substrb(SQLERRM,1,120);
3917: IF (g_level_procedure >= g_current_runtime_level ) THEN
3918: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
3919: 'ZX_JL_EXTRACT_PKG.get_vat_amount.'|| P_REPORT_NAME ||':'||l_err_msg);
3920: END IF;
3921:
3922: END;
3939: AND itf.tax_rate_id = vat.vat_tax_id;
3940:
3941:
3942: IF (g_level_procedure >= g_current_runtime_level ) THEN
3943: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
3944: 'VAT Amount : '||to_char(l_vat_amt_tbl(p_trx_id_tbl(i))));
3945: END IF;
3946:
3947:
3966: EXCEPTION
3967: WHEN OTHERS THEN
3968: l_err_msg := substrb(SQLERRM,1,120);
3969: IF (g_level_procedure >= g_current_runtime_level ) THEN
3970: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
3971: 'ZX_JL_EXTRACT_PKG.get_vat_amount.'|| P_REPORT_NAME ||':'||l_err_msg);
3972: END IF;
3973: END;
3974:
3997: END IF; -- Match IF P_REPORT_NAME = ...
3998:
3999: X_VAT_AMT_TBL(i) := nvl(l_vat_amt_tbl(p_trx_id_tbl(i)),0);
4000: IF (g_level_procedure >= g_current_runtime_level ) THEN
4001: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount',
4002: 'Get VAT Amount SQL : JLARPPFF: End of Report check'||to_char(l_vat_amt_tbl(p_trx_id_tbl(i))));
4003: END IF;
4004:
4005: EXCEPTION
4004:
4005: EXCEPTION
4006: WHEN NO_DATA_FOUND THEN
4007: IF (g_level_procedure >= g_current_runtime_level ) THEN
4008: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
4009: 'ZX_JL_EXTRACT_PKG.get_vat_amount.'|| P_REPORT_NAME ||':'||l_err_msg);
4010: END IF;
4011: l_vat_amt_tbl(p_trx_id_tbl(i)) := 0;
4012: X_VAT_AMT_TBL(i) := l_vat_amt_tbl(p_trx_id_tbl(i));
4014:
4015: WHEN OTHERS THEN
4016: l_err_msg := substrb(SQLERRM,1,120);
4017: IF (g_level_procedure >= g_current_runtime_level ) THEN
4018: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
4019: 'ZX_JL_EXTRACT_PKG.get_vat_amount.'|| P_REPORT_NAME ||':'||l_err_msg);
4020: END IF;
4021:
4022: END;
4027:
4028: -- END IF;
4029:
4030: IF ( g_level_statement>= g_current_runtime_level ) THEN
4031: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4032: ' Vat Amt for Report Name : '||p_report_name ||' trx_id : '
4033: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_AMT_TBL(i)));
4034: END IF;
4035:
4036: END LOOP;
4037: END IF; -- Two characters Report Name check--
4038:
4039: IF (g_level_procedure >= g_current_runtime_level ) THEN
4040: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_amount.BEGIN',
4041: 'ZX_JL_EXTRACT_PKG.get_vat_amount(-)');
4042: END IF;
4043: END GET_VAT_AMOUNT;
4044:
4097: --INTEGER;
4098:
4099: BEGIN
4100: IF (g_level_procedure >= g_current_runtime_level ) THEN
4101: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount.BEGIN',
4102: 'ZX_JL_EXTRACT_PKG.get_taxable_amount(+)');
4103: END IF;
4104:
4105: -- ------------------------------------------------------------------------------------------ --
4113: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
4114: BEGIN
4115:
4116: IF (g_level_procedure >= g_current_runtime_level ) THEN
4117: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4118: 'ZXARPVBR : For Loop ' );
4119: END IF;
4120: IF (g_level_procedure >= g_current_runtime_level ) THEN
4121: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4117: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4118: 'ZXARPVBR : For Loop ' );
4119: END IF;
4120: IF (g_level_procedure >= g_current_runtime_level ) THEN
4121: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4122: 'p_trx_id_tbl : p_trx_line_id:'||to_char(p_trx_id_tbl(i))||' '||to_char(p_trx_line_id(i)));
4123: END IF;
4124: -- k:= to_number(to_char(p_trx_id_tbl(i))||to_char(p_trx_line_id(i)));
4125:
4132: END IF;
4133: END IF;
4134:
4135: IF (g_level_procedure >= g_current_runtime_level ) THEN
4136: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4137: 'K Value : '||to_char(k));
4138: END IF;
4139:
4140: IF l_taxable_amt_tbl.EXISTS(k) THEN
4139:
4140: IF l_taxable_amt_tbl.EXISTS(k) THEN
4141: null;
4142: IF (g_level_procedure >= g_current_runtime_level ) THEN
4143: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4144: 'taxable_amt_tbl.EXISTS : '||to_char(k));
4145: END IF;
4146: ELSE
4147: l_taxable_amt_tbl(k) := null;
4145: END IF;
4146: ELSE
4147: l_taxable_amt_tbl(k) := null;
4148: IF (g_level_procedure >= g_current_runtime_level ) THEN
4149: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4150: 'taxable_amt_tbl(k) null : '||to_char(k));
4151: END IF;
4152: END IF;
4153:
4151: END IF;
4152: END IF;
4153:
4154: IF (g_level_procedure >= g_current_runtime_level ) THEN
4155: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4156: 'l_taxable_amt_tbl(k) : '||to_char(l_taxable_amt_tbl(k)));
4157: END IF;
4158:
4159: IF l_taxable_amt_tbl(k) is NULL THEN
4173: WHEN NO_DATA_FOUND THEN
4174:
4175: X_TAXABLE_AMT_TBL(i) := 0;
4176: IF (g_level_statement >= g_current_runtime_level ) THEN
4177: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4178: 'No Data Found : Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i));
4179: END IF;
4180:
4181: WHEN OTHERS THEN
4179: END IF;
4180:
4181: WHEN OTHERS THEN
4182: IF (g_level_statement >= g_current_runtime_level ) THEN
4183: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4184: 'Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i)||': '||substr(sqlerrm,1,120));
4185: END IF;
4186: END;
4187: X_TAXABLE_AMT_TBL(i):=l_taxable_amt_tbl(k);
4203:
4204: BEGIN
4205:
4206: IF ( g_level_statement>= g_current_runtime_level ) THEN
4207: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4208: ' p_detail_tax_line_id : '||p_detail_tax_line_id(i));
4209: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4210: ' p_trx_id_tbl : '||p_trx_id_tbl(i));
4211: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4205:
4206: IF ( g_level_statement>= g_current_runtime_level ) THEN
4207: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4208: ' p_detail_tax_line_id : '||p_detail_tax_line_id(i));
4209: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4210: ' p_trx_id_tbl : '||p_trx_id_tbl(i));
4211: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4212: ' p_trx_line_id : '||p_trx_line_id(i));
4213: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4207: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4208: ' p_detail_tax_line_id : '||p_detail_tax_line_id(i));
4209: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4210: ' p_trx_id_tbl : '||p_trx_id_tbl(i));
4211: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4212: ' p_trx_line_id : '||p_trx_line_id(i));
4213: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4214: ' p_tax_rate_tbl : '||p_tax_rate_tbl(i));
4215: END IF ;
4209: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4210: ' p_trx_id_tbl : '||p_trx_id_tbl(i));
4211: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4212: ' p_trx_line_id : '||p_trx_line_id(i));
4213: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4214: ' p_tax_rate_tbl : '||p_tax_rate_tbl(i));
4215: END IF ;
4216:
4217: IF l_taxable_amt_tbl.EXISTS(p_trx_line_id(i)) THEN
4239: WHEN NO_DATA_FOUND THEN
4240:
4241: X_TAXABLE_AMT_TBL(i) := 0;
4242: IF (g_level_statement >= g_current_runtime_level ) THEN
4243: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4244: 'No Data Found : Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i));
4245: END IF;
4246:
4247: WHEN OTHERS THEN
4245: END IF;
4246:
4247: WHEN OTHERS THEN
4248: IF (g_level_statement >= g_current_runtime_level ) THEN
4249: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4250: 'Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i)||': '||substr(sqlerrm,1,120));
4251: END IF;
4252: END;
4253: X_TAXABLE_AMT_TBL(i):=l_taxable_amt_tbl(p_trx_line_id(i));
4258:
4259: END;
4260:
4261: IF ( g_level_statement>= g_current_runtime_level ) THEN
4262: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4263: ' Taxable Amt for Report Name : '||p_report_name ||' trx_id : '
4264: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_TAXABLE_AMT_TBL(i)));
4265: END IF;
4266:
4288:
4289: IF l_taxable_amt_tbl(k) is NULL THEN
4290: BEGIN
4291: IF ( g_level_statement>= g_current_runtime_level ) THEN
4292: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4293: ' Document Sub Type : '||P_DOCUMENT_SUB_TYPE_TBL(i) );
4294: END IF;
4295: IF P_DOCUMENT_SUB_TYPE_TBL(i) = 'JL_CL_CREDIT_MEMO' THEN
4296: SELECT SUM(nvl(itf.taxable_amt_funcl_curr,nvl(itf.taxable_amt,0)))
4314: AND itf.tax_rate_id = P_TAX_RATE_TBL(i) --Bug 5413860
4315: AND itf.tax_rate <> 0;
4316:
4317: IF ( g_level_statement>= g_current_runtime_level ) THEN
4318: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4319: ' get taxable_amount() :l_taxable_amt_tbl: '||to_char(l_taxable_amt_tbl(k)));
4320: END IF;
4321:
4322: END IF;
4366: l_taxable_amt_tbl(p_trx_line_id(i)) := null;
4367: END IF;
4368:
4369: IF (g_level_statement >= g_current_runtime_level ) THEN
4370: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4371: 'Inside Report Name : Taxable amount '||P_REPORT_NAME ||'i : '
4372: ||i||' trx_id : '||p_trx_id_tbl(i)||': ');
4373: END IF;
4374:
4390: FROM ra_customer_trx_all
4391: WHERE customer_trx_id = p_trx_id_tbl(i);
4392:
4393: IF (g_level_statement >= g_current_runtime_level ) THEN
4394: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4395: 'Inside Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i)||': '
4396: ||' ga9 : '||l_gdf_ra_cust_trx_att19_tbl(p_trx_line_id(i)));
4397: END IF;
4398:
4398:
4399: EXCEPTION
4400: WHEN OTHERS THEN
4401: IF (g_level_statement >= g_current_runtime_level ) THEN
4402: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4403: 'Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '
4404: ||p_trx_id_tbl(i)||': '||substr(sqlerrm,1,120));
4405: END IF;
4406: END;
4430: l_taxable_amt_tbl(p_trx_id_tbl(i)) := 0;
4431: X_TAXABLE_AMT_TBL(i) := l_taxable_amt_tbl(p_trx_line_id(i));
4432: NULL;
4433: IF (g_level_statement >= g_current_runtime_level ) THEN
4434: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4435: 'No Data Found : Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i));
4436: END IF;
4437:
4438: WHEN OTHERS THEN
4436: END IF;
4437:
4438: WHEN OTHERS THEN
4439: IF (g_level_statement >= g_current_runtime_level ) THEN
4440: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4441: 'Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i)||': '||substr(sqlerrm,1,120));
4442: END IF;
4443:
4444: END;
4448: END IF;
4449: END;
4450:
4451: IF ( g_level_statement>= g_current_runtime_level ) THEN
4452: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4453: ' Taxable Amt for Report Name : '||p_report_name ||' trx_id : '
4454: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_TAXABLE_AMT_TBL(i)));
4455: END IF;
4456:
4471: FROM zx_rep_trx_detail_t
4472: WHERE request_id = p_request_id;
4473:
4474: IF ( g_level_statement>= g_current_runtime_level ) THEN
4475: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4476: ' l_trx_counter : '||l_trx_counter );
4477: END IF;
4478: EXCEPTION
4479: WHEN OTHERS THEN
4478: EXCEPTION
4479: WHEN OTHERS THEN
4480: l_err_msg := substrb(SQLERRM,1,120);
4481: IF ( g_level_statement>= g_current_runtime_level ) THEN
4482: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount ',
4483: 'ZX_JL_EXTRACT_PKG.get_taxable_amount.'|| P_REPORT_NAME ||':'||l_err_msg);
4484: END IF;
4485: END;
4486:
4498: k:=k+1;
4499: END IF;
4500: END IF;
4501: IF (g_level_procedure >= g_current_runtime_level ) THEN
4502: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount.JLARPPFF',
4503: 'K Value : '||to_char(k));
4504: END IF;
4505:
4506: IF l_taxable_amt_tbl.EXISTS(k) THEN
4527: IF l_taxable_amt_tbl(k) is NULL THEN
4528: BEGIN
4529: IF P_REPORT_NAME = 'JLARPPFF' THEN
4530: IF ( g_level_statement>= g_current_runtime_level ) THEN
4531: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount ',
4532: 'get_taxable : '|| to_char(k)||' '||to_char(p_trx_id_tbl(i))||' '||to_char(p_tax_rate_tbl(i)));
4533: END IF;
4534: SELECT abs(nvl(SUM(itf.taxable_amt),0))
4535: INTO l_taxable_amt_tbl(k)
4571:
4572: EXCEPTION
4573: WHEN OTHERS THEN
4574: IF (g_level_statement >= g_current_runtime_level ) THEN
4575: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4576: 'Report Name : '||P_REPORT_NAME ||'i : '||i||' trx_id : '||p_trx_id_tbl(i)||': '
4577: ||substr(sqlerrm,1,120));
4578: END IF;
4579: END;
4581: END IF;
4582:
4583: IF l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) = 'IS_NULL' THEN
4584: IF (g_level_procedure >= g_current_runtime_level ) THEN
4585: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4586: 'Trx ID : '||to_char(p_trx_id_tbl(i)));
4587: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4588: 'p_tax_rate_tbl : '||to_char(p_tax_rate_tbl(i)));
4589: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4583: IF l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) = 'IS_NULL' THEN
4584: IF (g_level_procedure >= g_current_runtime_level ) THEN
4585: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4586: 'Trx ID : '||to_char(p_trx_id_tbl(i)));
4587: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4588: 'p_tax_rate_tbl : '||to_char(p_tax_rate_tbl(i)));
4589: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4590: 'p_tax_regime : '||p_tax_regime);
4591: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4585: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4586: 'Trx ID : '||to_char(p_trx_id_tbl(i)));
4587: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4588: 'p_tax_rate_tbl : '||to_char(p_tax_rate_tbl(i)));
4589: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4590: 'p_tax_regime : '||p_tax_regime);
4591: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4592: 'p_vat_tax : '||p_vat_tax);
4593: END IF;
4587: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4588: 'p_tax_rate_tbl : '||to_char(p_tax_rate_tbl(i)));
4589: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4590: 'p_tax_regime : '||p_tax_regime);
4591: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4592: 'p_vat_tax : '||p_vat_tax);
4593: END IF;
4594:
4595: SELECT NVL(sum(nvl(itf.taxable_amt_funcl_curr,itf.taxable_amt)),0)
4604: AND itf.tax_rate = p_tax_rate_tbl(i)
4605: AND nvl(itf.tax_rate,0) <> 0;
4606:
4607: IF (g_level_procedure >= g_current_runtime_level ) THEN
4608: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4609: 'Trx ID After query : '||to_char(l_taxable_amt_tbl(k)));
4610: END IF;
4611: ELSE
4612:
4617: END IF;
4618: EXCEPTION
4619: when others then
4620: IF (g_level_procedure >= g_current_runtime_level ) THEN
4621: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount',
4622: 'Trx ID Exemption : '||to_char(p_trx_id_tbl(i)));
4623: END IF;
4624: l_taxable_amt_tbl(k) := 0;
4625:
4632:
4633: END IF;
4634:
4635: IF ( g_level_statement>= g_current_runtime_level ) THEN
4636: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4637: ' Taxable Amt for Report Name : '||p_report_name ||' trx_id : '
4638: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_TAXABLE_AMT_TBL(i)));
4639: END IF;
4640: END;
4641: END LOOP;
4642:
4643: END IF;
4644: IF (g_level_procedure >= g_current_runtime_level ) THEN
4645: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_taxable_amount.BEGIN',
4646: 'ZX_JL_EXTRACT_PKG.get_taxable_amount(-)');
4647: END IF;
4648: END GET_TAXABLE_AMOUNT;
4649:
4696:
4697: BEGIN
4698:
4699: IF (g_level_procedure >= g_current_runtime_level ) THEN
4700: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_non_taxable_amount.BEGIN',
4701: 'ZX_JL_EXTRACT_PKG.get_non_taxable_amount(+)');
4702: END IF;
4703:
4704: BEGIN
4708: FROM zx_rep_trx_detail_t
4709: WHERE request_id = p_request_id;
4710:
4711: IF ( g_level_statement>= g_current_runtime_level ) THEN
4712: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4713: ' l_trx_counter : '||l_trx_counter );
4714: END IF;
4715:
4716: EXCEPTION
4716: EXCEPTION
4717:
4718: WHEN OTHERS THEN
4719: IF ( g_level_statement>= g_current_runtime_level ) THEN
4720: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JA_EXTRACT_PKG.get_non_taxable_amount',
4721: 'Error Message : '||substrb(SQLERRM,1,120) );
4722: END IF;
4723:
4724: END;
4755: /* IF l_non_taxable_amt_tbl.EXISTS(p_trx_id_tbl(i)) THEN
4756: null;
4757: ELSE
4758: IF (g_level_procedure >= g_current_runtime_level ) THEN
4759: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_non_taxable_amount.BEGIN',
4760: 'ZX_JL_EXTRACT_PKG.get_non_taxable_amount - NULL Check ');
4761: END IF;
4762:
4763: l_non_taxable_amt_tbl(p_trx_id_tbl(i)) := null;
4804:
4805: EXCEPTION
4806: WHEN OTHERS THEN
4807: IF ( g_level_statement>= g_current_runtime_level ) THEN
4808: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JA_EXTRACT_PKG.GET_NON_TAXABLE_AMOUNT',
4809: 'Error Message : '||substrb(SQLERRM,1,120) );
4810: END IF;
4811: END;
4812:
4842: NULL;
4843:
4844: WHEN OTHERS THEN
4845: IF ( g_level_statement>= g_current_runtime_level ) THEN
4846: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JA_EXTRACT_PKG.GET_NON_TAXABLE_AMOUNT',
4847: 'Error Message : '||substrb(SQLERRM,1,120) );
4848: END IF;
4849: END;
4850:
4854:
4855: END IF;
4856:
4857: IF ( g_level_statement>= g_current_runtime_level ) THEN
4858: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4859: ' Non Taxable Amt for Report Name : '||p_report_name ||' trx_id : '||to_char(k)||' is : '||to_char(X_NON_TAXABLE_AMT_TBL(i)));
4860: END IF;
4861:
4862: END LOOP;
4861:
4862: END LOOP;
4863:
4864: IF (g_level_procedure >= g_current_runtime_level ) THEN
4865: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_non_taxable_amount.END',
4866: 'ZX_JL_EXTRACT_PKG.get_non_taxable_amount(-)');
4867: END IF;
4868:
4869: END GET_NON_TAXABLE_AMOUNT;
4913:
4914: BEGIN
4915:
4916: IF (g_level_procedure >= g_current_runtime_level ) THEN
4917: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_ADDITIONAL_AMOUNT.BEGIN',
4918: 'ZX_JL_EXTRACT_PKG.GET_VAT_ADDITIONAL_AMOUNT(+)');
4919: END IF;
4920:
4921: BEGIN
4925: FROM zx_rep_trx_detail_t
4926: WHERE request_id = p_request_id;
4927:
4928: IF ( g_level_statement>= g_current_runtime_level ) THEN
4929: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
4930: ' l_trx_counter : '|| l_trx_counter );
4931: END IF;
4932:
4933: EXCEPTION
4934:
4935: WHEN OTHERS THEN
4936:
4937: IF ( g_level_statement>= g_current_runtime_level ) THEN
4938: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_additional_amount',
4939: 'ZX_JL_EXTRACT_PKG.get_vat_additional_amount : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
4940: END IF;
4941:
4942: END;
4951:
4952: IF l_vat_additional_amt_tbl(p_trx_id_tbl(i)) is NULL THEN
4953:
4954: IF ( g_level_statement>= g_current_runtime_level ) THEN
4955: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_additional_amount',
4956: 'ZX_JL_EXTRACT_PKG.get_vat_additional_amount : '||p_report_name
4957: ||' : '||to_char(l_vat_additional_amt_tbl(p_trx_id_tbl(i))));
4958: END IF;
4959:
4970: -- AND itf.tax_rate_id = p_tax_rate_id_tbl(i)
4971: ANd itf.tax = p_vat_addit_tax;
4972:
4973: IF ( g_level_statement>= g_current_runtime_level ) THEN
4974: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_additional_amount',
4975: 'ZX_JL_EXTRACT_PKG.get_vat_additional_amount : '||p_report_name
4976: ||' : '||to_char(l_vat_additional_amt_tbl(p_trx_id_tbl(i))));
4977: END IF;
4978:
4991:
4992: WHEN OTHERS THEN
4993:
4994: IF ( g_level_statement>= g_current_runtime_level ) THEN
4995: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_additional_amount',
4996: 'ZX_JL_EXTRACT_PKG.get_vat_additional_amount : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
4997: END IF;
4998:
4999: END;
5004: X_VAT_ADDITIONAL_AMT_TBL(i) := 0;
5005: END IF;
5006:
5007: IF ( g_level_statement>= g_current_runtime_level ) THEN
5008: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5009: ' Vat Additional Amt for Report Name : '||p_report_name ||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_ADDITIONAL_AMT_TBL(i)));
5010: END IF;
5011:
5012: END LOOP;
5011:
5012: END LOOP;
5013:
5014: IF (g_level_procedure >= g_current_runtime_level ) THEN
5015: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_additional_amount',
5016: 'jl.plsql.ZX_JL_EXTRACT_PKG.get_vat_additional_amount(-)');
5017: END IF;
5018:
5019: END GET_VAT_ADDITIONAL_AMOUNT;
5069: l_gdf_ra_cust_trx_att19_tbl GDF_RA_CUST_TRX_ATT19_TBL;
5070: k NUMBER;
5071: BEGIN
5072:
5073: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5074: --Bug 5058043
5075: IF (g_level_procedure >= g_current_runtime_level ) THEN
5076: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT.BEGIN',
5077: 'GET_VAT_EXEMPT_AMOUNT(+)');
5072:
5073: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5074: --Bug 5058043
5075: IF (g_level_procedure >= g_current_runtime_level ) THEN
5076: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT.BEGIN',
5077: 'GET_VAT_EXEMPT_AMOUNT(+)');
5078: END IF ;
5079:
5080: BEGIN
5084: FROM zx_rep_trx_detail_t
5085: WHERE request_id = p_request_id;
5086:
5087: IF ( g_level_statement>= g_current_runtime_level ) THEN
5088: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5089: ' GET_VAT_EXEMPT_AMOUNT : l_trx_counter : '|| l_trx_counter );
5090: END IF;
5091:
5092: EXCEPTION
5093:
5094: WHEN OTHERS THEN
5095: l_err_msg := substrb(SQLERRM,1,120);
5096: IF (g_level_procedure >= g_current_runtime_level ) THEN
5097: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
5098: 'ZX_JL_EXTRACT_PKG.get_vat_exempt_amount.'||p_report_name || '.'||l_err_msg);
5099:
5100: END IF;
5101:
5149:
5150: IF P_REPORT_NAME in ('ZXARPVBR','JLARPPFF') THEN
5151: BEGIN
5152: IF (g_level_procedure >= g_current_runtime_level ) THEN
5153: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
5154: 'ZX_JL_EXTRACT_PKG.get_vat_exempt_amount : Call for '||p_report_name );
5155:
5156: END IF;
5157:
5168: WHEN NO_DATA_FOUND THEN
5169: l_vat_exempt_amt_tbl(k) := 0;
5170: X_VAT_EXEMPT_AMT_TBL(i) := l_vat_exempt_amt_tbl(k);
5171: IF ( g_level_statement>= g_current_runtime_level ) THEN
5172: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_exempt_amount',
5173: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5174: END IF;
5175: NULL;
5176:
5175: NULL;
5176:
5177: WHEN OTHERS THEN
5178: IF ( g_level_statement>= g_current_runtime_level ) THEN
5179: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_exempt_amount',
5180: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5181: END IF;
5182:
5183: END;
5211:
5212: ELSIF P_REPORT_NAME = 'ZXZZTVSR' THEN
5213:
5214: IF ( g_level_statement>= g_current_runtime_level ) THEN
5215: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5216: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' test : ');
5217: END IF;
5218:
5219:
5223: l_vat_0_amt_tbl(p_trx_id_tbl(i)) := null;
5224: END IF;
5225:
5226: IF ( g_level_statement>= g_current_runtime_level ) THEN
5227: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5228: 'l_vat_0_amt_tbl : '||to_char(l_vat_0_amt_tbl(p_trx_id_tbl(i)))||' : i-'||to_char(i));
5229: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5230: 'Trx ID : '||to_char(p_trx_id_tbl(i)));
5231: END IF;
5225:
5226: IF ( g_level_statement>= g_current_runtime_level ) THEN
5227: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5228: 'l_vat_0_amt_tbl : '||to_char(l_vat_0_amt_tbl(p_trx_id_tbl(i)))||' : i-'||to_char(i));
5229: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5230: 'Trx ID : '||to_char(p_trx_id_tbl(i)));
5231: END IF;
5232:
5233: IF l_vat_0_amt_tbl(p_trx_id_tbl(i)) is NULL THEN
5241: AND itf.tax_rate = 0
5242: AND itf.tax IN (p_vat_tax,p_vat_addit_tax,p_vat_percep_tax);
5243:
5244: IF ( g_level_statement>= g_current_runtime_level ) THEN
5245: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5246: 'l_vat_0_amt_tbl : '||to_char(l_vat_0_amt_tbl(p_trx_id_tbl(i))));
5247: END IF;
5248: END IF;
5249:
5264: AND ( itf.tax_regime_code <> p_tax_regime OR itf.tax <> p_vat_tax )
5265: AND nvl(itf.tax_type_code,'VAT') = 'VAT';
5266:
5267: IF ( g_level_statement>= g_current_runtime_level ) THEN
5268: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5269: 'l_no_vat_amt_tbl : '||to_char(l_no_vat_amt_tbl(p_trx_id_tbl(i))));
5270: END IF;
5271: END IF;
5272:
5273: IF l_vat_exempt_amt_tbl(p_trx_id_tbl(i)) IS NULL THEN
5274: l_vat_exempt_amt_tbl(p_trx_id_tbl(i)) := nvl(l_vat_0_amt_tbl(p_trx_id_tbl(i)),0) +
5275: nvl(l_no_vat_amt_tbl(p_trx_id_tbl(i)),0);
5276: IF ( g_level_statement>= g_current_runtime_level ) THEN
5277: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5278: 'l_vat_exempt_amt_tbl : one '||to_char(l_vat_exempt_amt_tbl(p_trx_id_tbl(i))));
5279: END IF;
5280: ELSE
5281: l_vat_exempt_amt_tbl(p_trx_id_tbl(i)) := 0;
5279: END IF;
5280: ELSE
5281: l_vat_exempt_amt_tbl(p_trx_id_tbl(i)) := 0;
5282: IF ( g_level_statement>= g_current_runtime_level ) THEN
5283: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5284: 'l_vat_exempt_amt_tbl : two '||to_char(l_vat_exempt_amt_tbl(p_trx_id_tbl(i))));
5285: END IF;
5286: END IF;
5287:
5285: END IF;
5286: END IF;
5287:
5288: IF ( g_level_statement>= g_current_runtime_level ) THEN
5289: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5290: 'l_vat_exempt_amt_tbl : '||to_char(l_vat_exempt_amt_tbl(p_trx_id_tbl(i))));
5291: END IF;
5292:
5293: ELSIF P_REPORT_NAME in ('JLARTSFF','JLARTDFF') THEN
5297: ELSE
5298: l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) := null;
5299:
5300: IF ( g_level_statement>= g_current_runtime_level ) THEN
5301: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5302: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '|| 'gdf19 Null ' );
5303: END IF;
5304:
5305: END IF; */
5311: l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) IS NULL THEN
5312:
5313: BEGIN
5314: IF ( g_level_statement>= g_current_runtime_level ) THEN
5315: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5316: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' test : ');
5317: END IF;
5318:
5319: SELECT decode(global_attribute19,NULL,'IS_NULL','NOT_NULL')
5323:
5324: EXCEPTION
5325: WHEN OTHERS THEN
5326: IF ( g_level_statement>= g_current_runtime_level ) THEN
5327: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5328: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5329: END IF;
5330:
5331: END;
5333: END IF;
5334:
5335: IF l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) = 'IS_NULL' THEN
5336: IF ( g_level_statement>= g_current_runtime_level ) THEN
5337: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT',
5338: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' test 1 : ');
5339: END IF;
5340:
5341: SELECT NVL(sum(nvl(itf.taxable_amt_funcl_curr,0)),0)
5377:
5378: WHEN OTHERS THEN
5379: l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) := null;
5380: IF ( g_level_statement>= g_current_runtime_level ) THEN
5381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_additional_amount',
5382: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5383: END IF;
5384: END;
5385: END IF;
5417: l_vat_exempt_amt_tbl(k) :=l_vat_exempt_amt_tbl(p_trx_id_tbl(i));
5418: -- X_VAT_EXEMPT_AMT_TBL(i) := l_vat_exempt_amt_tbl(p_trx_id_tbl(i));
5419: X_VAT_EXEMPT_AMT_TBL(i) := l_vat_exempt_amt_tbl(k);
5420: IF ( g_level_statement>= g_current_runtime_level ) THEN
5421: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_exempt_amount',
5422: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5423: END IF;
5424: NULL;
5425:
5424: NULL;
5425:
5426: WHEN OTHERS THEN
5427: IF ( g_level_statement>= g_current_runtime_level ) THEN
5428: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_exempt_amount',
5429: 'ZX_JL_EXTRACT_PKG.GET_VAT_EXEMPT_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5430: END IF;
5431: END;
5432:
5438:
5439: END IF;
5440:
5441: IF ( g_level_statement>= g_current_runtime_level ) THEN
5442: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5443: ' Vat Exempt Amt for Report Name : '||p_report_name ||' trx_id : '
5444: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_EXEMPT_AMT_TBL(i)));
5445: END IF;
5446:
5446:
5447: END LOOP;
5448:
5449: IF (g_level_procedure >= g_current_runtime_level ) THEN
5450: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.get_vat_exempt_amount.END',
5451: 'ZX_JL_EXTRACT_PKG.get_vat_exempt_amount(-)');
5452: END IF;
5453:
5454: END GET_VAT_EXEMPT_AMOUNT;
5501: l_gdf_ra_cust_trx_att19_tbl GDF_RA_CUST_TRX_ATT19_TBL;
5502: k NUMBER;
5503: BEGIN
5504: IF (g_level_procedure >= g_current_runtime_level ) THEN
5505: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT.END',
5506: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT(+)');
5507: END IF;
5508:
5509: BEGIN
5513: FROM zx_rep_trx_detail_t
5514: WHERE request_id = p_request_id;
5515:
5516: IF ( g_level_statement>= g_current_runtime_level ) THEN
5517: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5518: ' GET_VAT_PERCEPTION_AMOUNT : l_trx_counter : '|| l_trx_counter );
5519: END IF;
5520:
5521: EXCEPTION
5520:
5521: EXCEPTION
5522: WHEN OTHERS THEN
5523: IF ( g_level_statement>= g_current_runtime_level ) THEN
5524: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5525: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5526: END IF;
5527: END;
5528:
5550:
5551: X_VAT_PERCEPTION_AMT_TBL(i) := l_vat_perc_amt_tbl(p_trx_line_id_tbl(i));
5552:
5553: IF ( g_level_statement>= g_current_runtime_level ) THEN
5554: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5555: ' Vat Perception Amt for Report Name : '||p_report_name
5556: ||' trx_id : '||to_char(p_trx_id_tbl(i))||' Trx Line ID '
5557: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_PERCEPTION_AMT_TBL(i)));
5558: END IF;
5562: X_VAT_PERCEPTION_AMT_TBL(i) := l_vat_perc_amt_tbl(p_trx_line_id_tbl(i));
5563: NULL;
5564: WHEN OTHERS THEN
5565: IF ( g_level_statement>= g_current_runtime_level ) THEN
5566: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5567: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5568: END IF;
5569: */
5570: ELSE
5572:
5573: END IF;
5574:
5575: IF ( g_level_statement>= g_current_runtime_level ) THEN
5576: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5577: ' Vat Perception Amt for Report Name : '||p_report_name
5578: ||' trx_id : '||to_char(p_trx_id_tbl(i))||' Trx Line ID '
5579: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_PERCEPTION_AMT_TBL(i)));
5580: END IF;
5652:
5653: EXCEPTION
5654: WHEN OTHERS THEN
5655: IF ( g_level_statement>= g_current_runtime_level ) THEN
5656: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5657: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5658: END IF;
5659: END;
5660:
5664: l_gdf_ra_cust_trx_att19_tbl(k) <> 'NOT_NULL' ) OR
5665: l_gdf_ra_cust_trx_att19_tbl(k) IS NULL THEN
5666:
5667: IF ( g_level_statement>= g_current_runtime_level ) THEN
5668: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5669: 'l_gdf_ra_cust_trx_att19_tbl : '||l_gdf_ra_cust_trx_att19_tbl(k) );
5670: END IF;
5671: -- IF l_gdf_ra_cust_trx_att19_tbl(k) = 'IS_NULL' THEN
5672:
5697: NULL;
5698:
5699: WHEN OTHERS THEN
5700: IF ( g_level_statement>= g_current_runtime_level ) THEN
5701: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5702: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5703: END IF;
5704: END;
5705:
5759:
5760: EXCEPTION
5761: WHEN OTHERS THEN
5762: IF ( g_level_statement>= g_current_runtime_level ) THEN
5763: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5764: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5765: END IF;
5766: END;
5767:
5771: l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) <> 'NOT_NULL' ) OR
5772: l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) IS NULL THEN
5773:
5774: IF ( g_level_statement>= g_current_runtime_level ) THEN
5775: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5776: 'l_gdf_ra_cust_trx_att19_tbl : '||l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) );
5777: END IF;
5778: -- IF l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) = 'IS_NULL' THEN
5779:
5804: NULL;
5805:
5806: WHEN OTHERS THEN
5807: IF ( g_level_statement>= g_current_runtime_level ) THEN
5808: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT',
5809: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5810: END IF;
5811: END;
5812:
5818: END IF;
5819: */
5820:
5821: IF ( g_level_statement>= g_current_runtime_level ) THEN
5822: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5823: ' Vat Perception Amt for Report Name : '||p_report_name
5824: ||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_PERCEPTION_AMT_TBL(i)));
5825: END IF;
5826:
5826:
5827: END LOOP;
5828: END IF; -- Trx line ID check
5829: IF (g_level_procedure >= g_current_runtime_level ) THEN
5830: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT.END',
5831: 'ZX_JL_EXTRACT_PKG.GET_VAT_PERCEPTION_AMOUNT(-)');
5832: END IF;
5833:
5834: END GET_VAT_PERCEPTION_AMOUNT;
5882:
5883: BEGIN
5884: NULL ;
5885: IF (g_level_procedure >= g_current_runtime_level ) THEN
5886: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT.BEGIN',
5887: 'ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT(+)');
5888: END IF;
5889:
5890: BEGIN
5894: FROM zx_rep_trx_detail_t
5895: WHERE request_id = p_request_id;
5896:
5897: IF ( g_level_statement>= g_current_runtime_level ) THEN
5898: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5899: ' GET_OTHER_FED_PERC_AMOUNT : l_trx_counter : '|| l_trx_counter );
5900: END IF;
5901:
5902: EXCEPTION
5902: EXCEPTION
5903:
5904: WHEN OTHERS THEN
5905: IF ( g_level_statement>= g_current_runtime_level ) THEN
5906: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT',
5907: 'ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5908: END IF;
5909: END;
5910:
5949: NULL;
5950:
5951: WHEN OTHERS THEN
5952: IF ( g_level_statement>= g_current_runtime_level ) THEN
5953: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT',
5954: 'ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
5955: END IF;
5956: END;
5957:
5962:
5963: END IF;
5964:
5965: IF ( g_level_statement>= g_current_runtime_level ) THEN
5966: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
5967: ' Other Fed perc amt for Report Name : '||p_report_name ||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_OTHER_FED_PERC_AMT_TBL(i)));
5968: END IF;
5969:
5970: END LOOP;
5969:
5970: END LOOP;
5971:
5972: IF (g_level_procedure >= g_current_runtime_level ) THEN
5973: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT.END',
5974: 'ZX_JL_EXTRACT_PKG.GET_OTHER_FED_PERC_AMOUNT(-)');
5975: END IF;
5976:
5977: END GET_OTHER_FED_PERC_AMOUNT;
6019: l_gdf_ra_cust_trx_att19_tbl GDF_RA_CUST_TRX_ATT19_TBL;
6020:
6021: BEGIN
6022:
6023: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6024: --Bug 5058043
6025: IF (g_level_procedure >= g_current_runtime_level ) THEN
6026: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
6027: 'GET_OTHER_TAX_AMOUNT(+) ');
6022:
6023: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6024: --Bug 5058043
6025: IF (g_level_procedure >= g_current_runtime_level ) THEN
6026: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
6027: 'GET_OTHER_TAX_AMOUNT(+) ');
6028: END IF;
6029:
6030: BEGIN
6034: FROM zx_rep_trx_detail_t
6035: WHERE request_id = p_request_id;
6036:
6037: IF ( g_level_statement>= g_current_runtime_level ) THEN
6038: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6039: ' GET_OTHER_TAX_AMOUNT : l_trx_counter : '|| l_trx_counter );
6040: END IF;
6041:
6042: EXCEPTION
6042: EXCEPTION
6043: WHEN OTHERS THEN
6044: l_err_msg := substrb(SQLERRM,1,120);
6045: IF (g_level_procedure >= g_current_runtime_level ) THEN
6046: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
6047: 'ZX_JL_EXTRACT_PKG.get_other_tax_amount.'||p_report_name || '.'||l_err_msg);
6048: END IF;
6049:
6050: END;
6106: EXCEPTION
6107:
6108: WHEN OTHERS THEN
6109: IF ( g_level_statement>= g_current_runtime_level ) THEN
6110: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_OTHER_TAX_AMOUNT',
6111: 'ZX_JL_EXTRACT_PKG.GET_OTHER_TAX_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6112: END IF;
6113: END;
6114:
6147:
6148: WHEN OTHERS THEN
6149: l_err_msg := substrb(SQLERRM,1,120);
6150: IF (g_level_procedure >= g_current_runtime_level ) THEN
6151: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
6152: 'ZX_JL_EXTRACT_PKG.get_other_tax_amount:'||P_REPORT_NAME||'.'||l_err_msg);
6153: END IF;
6154: END;
6155:
6160:
6161: END IF;
6162:
6163: IF ( g_level_statement>= g_current_runtime_level ) THEN
6164: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6165: ' Other Tax Amt for Report Name : '||p_report_name ||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_OTHER_TAX_AMT_TBL(i)));
6166: END IF;
6167:
6168: END LOOP;
6167:
6168: END LOOP;
6169:
6170: IF (g_level_procedure >= g_current_runtime_level ) THEN
6171: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
6172: 'GET_OTHER_TAX_AMOUNT(-) ');
6173: END IF;
6174:
6175: END GET_OTHER_TAX_AMOUNT;
6228:
6229: BEGIN
6230:
6231: IF (g_level_procedure >= g_current_runtime_level ) THEN
6232: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT.BEGIN',
6233: 'GET_NOT_REGISTERED_TAX_AMOUNT(+)');
6234: END IF;
6235:
6236: BEGIN
6240: FROM zx_rep_trx_detail_t
6241: WHERE request_id = p_request_id;
6242:
6243: IF ( g_level_statement>= g_current_runtime_level ) THEN
6244: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6245: ' GET_NOT_REGISTERED_TAX_AMOUNT : l_trx_counter : '|| l_trx_counter );
6246: END IF;
6247: EXCEPTION
6248: WHEN OTHERS THEN
6246: END IF;
6247: EXCEPTION
6248: WHEN OTHERS THEN
6249: IF ( g_level_statement>= g_current_runtime_level ) THEN
6250: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6251: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6252: END IF;
6253: END;
6254:
6275: l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) IS NULL THEN
6276:
6277: BEGIN
6278: IF ( g_level_statement>= g_current_runtime_level ) THEN
6279: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6280: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT : att19-0 '
6281: ||p_report_name ||' : '||l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)));
6282: END IF;
6283:
6288:
6289: EXCEPTION
6290: WHEN OTHERS THEN
6291: IF ( g_level_statement>= g_current_runtime_level ) THEN
6292: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6293: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT : '
6294: ||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6295: END IF;
6296: END;
6296: END;
6297: END IF;
6298:
6299: IF ( g_level_statement>= g_current_runtime_level ) THEN
6300: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6301: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT : att19 '
6302: ||p_report_name ||' : '||l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)));
6303: END IF;
6304:
6306: IF l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) = 'IS_NULL' THEN
6307: IF l_vat_addit_tax_amt_tbl(p_trx_id_tbl(i)) is NULL THEN
6308:
6309: IF ( g_level_statement>= g_current_runtime_level ) THEN
6310: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6311: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT SQL-1: '||p_tax_regime||p_vat_addit_tax);
6312: END IF;
6313:
6314: SELECT sum(nvl(itf.tax_amt,0))
6321: AND nvl(itf.tax_type_code, 'VAT') = 'VAT';
6322:
6323:
6324: IF ( g_level_statement>= g_current_runtime_level ) THEN
6325: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6326: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT SQL-1: '||to_char(l_vat_addit_tax_amt_tbl(p_trx_id_tbl(i))));
6327: END IF;
6328:
6329: END IF;
6340: AND nvl(itf.tax_type_code, 'VAT') = 'VAT';
6341: EXCEPTION
6342: WHEN OTHERS THEN
6343: IF ( g_level_statement>= g_current_runtime_level ) THEN
6344: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6345: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT : p_vat_not_categ_tax '
6346: ||' : '||substrb(SQLERRM,1,120) );
6347: END IF;
6348:
6349: END;
6350: --END IF;
6351:
6352: IF ( g_level_statement>= g_current_runtime_level ) THEN
6353: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6354: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT SQL-1: '||to_char(l_not_categ_tax_amt_tbl(p_trx_id_tbl(i))));
6355: END IF;
6356:
6357:
6363: END IF;
6364:
6365: X_NOT_REG_TAX_AMT_TBL(i) := l_not_reg_tax_amt_tbl(p_trx_id_tbl(i));
6366: IF ( g_level_statement>= g_current_runtime_level ) THEN
6367: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6368: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT : '||p_report_name ||' : '
6369: ||to_char( X_NOT_REG_TAX_AMT_TBL(i)));
6370: END IF;
6371:
6376: NULL;
6377:
6378: WHEN OTHERS THEN
6379: IF ( g_level_statement>= g_current_runtime_level ) THEN
6380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT',
6381: 'ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT : '||p_report_name
6382: ||' : '||substrb(SQLERRM,1,120) );
6383: END IF;
6384: END;
6390:
6391: END IF;
6392:
6393: IF ( g_level_statement>= g_current_runtime_level ) THEN
6394: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6395: ' Non Registered Tax Amt. for Report Name : '||p_report_name ||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_NOT_REG_TAX_AMT_TBL(i)));
6396: END IF;
6397:
6398: END LOOP;
6397:
6398: END LOOP;
6399:
6400: IF (g_level_procedure >= g_current_runtime_level ) THEN
6401: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_NOT_REGISTERED_TAX_AMOUNT.END',
6402: 'GET_NOT_REGISTERED_TAX_AMOUNT(-)');
6403: END IF;
6404:
6405: END GET_NOT_REGISTERED_TAX_AMOUNT;
6453:
6454: BEGIN
6455:
6456: IF (g_level_procedure >= g_current_runtime_level ) THEN
6457: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT',
6458: 'get_provincial_perc_amount(+) ');
6459: END IF;
6460:
6461:
6469: l_count := p_trx_id_tbl.count;
6470:
6471:
6472: IF (g_level_procedure >= g_current_runtime_level ) THEN
6473: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT',
6474: 'Count : '||to_char(l_count));
6475: END IF;
6476:
6477:
6479:
6480: WHEN OTHERS THEN
6481: l_err_msg := substrb(SQLERRM,1,120);
6482: IF (g_level_procedure >= g_current_runtime_level ) THEN
6483: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT',
6484: 'get_provincial_perc_amount : EXCEPTION '||l_err_msg);
6485: END IF;
6486:
6487: END;
6489: l_count := p_trx_id_tbl.count;
6490: --FOR i in 11..nvl(p_trx_id_tbl.last,0) LOOP
6491: FOR i in 1..l_count LOOP
6492: IF (g_level_procedure >= g_current_runtime_level ) THEN
6493: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT',
6494: 'get_provincial_perc_amount : For Loop ');
6495: END IF;
6496:
6497: IF l_provincial_perc_amt_tbl.EXISTS(p_trx_id_tbl(i)) THEN
6532:
6533: EXCEPTION
6534: WHEN OTHERS THEN
6535: IF ( g_level_statement>= g_current_runtime_level ) THEN
6536: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT',
6537: 'ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6538: END IF;
6539: END;
6540:
6558:
6559: ELSIF P_REPORT_NAME = 'JLARTOFF' THEN
6560:
6561: IF (g_level_procedure >= g_current_runtime_level ) THEN
6562: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT',
6563: 'JLARTOFF:get_provincial_perc_amount ');
6564: END IF;
6565:
6566: SELECT sum(nvl(itf.tax_amt,0))
6576: AND categ.tax_regime = p_prov_tax_regime
6577: AND categ.org_id = itf.internal_organization_id;
6578:
6579: IF (g_level_procedure >= g_current_runtime_level ) THEN
6580: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
6581: 'JLARTOFF: SQL Call in get_provincial_perc_amount '
6582: ||to_char(l_provincial_perc_amt_tbl(p_trx_id_tbl(i))));
6583: END IF;
6584:
6595: NULL;
6596:
6597: WHEN OTHERS THEN
6598: IF ( g_level_statement>= g_current_runtime_level ) THEN
6599: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT',
6600: 'ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6601: END IF;
6602: END;
6603:
6607: X_PROVINCIAL_PERC_AMT_TBL(i) := 0;
6608:
6609: END IF;
6610: IF ( g_level_statement>= g_current_runtime_level ) THEN
6611: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6612: ' PROVINCIAL_PERC_AMOUNT for Report Name : '||p_report_name ||' trx_id : '
6613: ||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_PROVINCIAL_PERC_AMT_TBL(i)));
6614: END IF;
6615:
6615:
6616: END LOOP;
6617:
6618: IF (g_level_procedure >= g_current_runtime_level ) THEN
6619: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_PROVINCIAL_PERC_AMOUNT.END',
6620: 'GET_PROVINCIAL_PERC_AMOUNT(-)');
6621: END IF;
6622:
6623: END GET_PROVINCIAL_PERC_AMOUNT;
6668:
6669: BEGIN
6670:
6671: IF (g_level_procedure >= g_current_runtime_level ) THEN
6672: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT.BEGIN',
6673: 'GET_MUNICIPAL_PERC_AMOUNT(+)');
6674: END IF;
6675:
6676: BEGIN
6680: FROM zx_rep_trx_detail_t
6681: WHERE request_id = p_request_id;
6682:
6683: IF ( g_level_statement>= g_current_runtime_level ) THEN
6684: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6685: ' GET_MUNICIPAL_PERC_AMOUNT : l_trx_counter : '|| l_trx_counter );
6686: END IF;
6687:
6688: EXCEPTION
6689:
6690: WHEN OTHERS THEN
6691:
6692: IF ( g_level_statement>= g_current_runtime_level ) THEN
6693: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT',
6694: 'ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6695: END IF;
6696:
6697: END;
6738:
6739: EXCEPTION
6740: WHEN OTHERS THEN
6741: IF ( g_level_statement>= g_current_runtime_level ) THEN
6742: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT',
6743: 'ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6744: END IF;
6745: END;
6746:
6764:
6765: ELSIF P_REPORT_NAME = 'JLARTOFF' THEN
6766:
6767: IF (g_level_procedure >= g_current_runtime_level ) THEN
6768: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT',
6769: 'JLARTOFF:get_muncipal_perc_amount ');
6770: END IF;
6771: l_municipal_perc_amt_tbl(p_trx_id_tbl(i)):= NULL;
6772:
6783: AND categ.tax_regime = p_mun_tax_regime
6784: AND categ.org_id = itf.internal_organization_id;
6785:
6786: IF (g_level_procedure >= g_current_runtime_level ) THEN
6787: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.POPULATE_JL_AR',
6788: 'JLARTOFF: SQL Call in get_muncipal_perc_amount '
6789: ||to_char(l_municipal_perc_amt_tbl(p_trx_id_tbl(i))));
6790: END IF;
6791:
6813: NULL;
6814:
6815: WHEN OTHERS THEN
6816: IF ( g_level_statement>= g_current_runtime_level ) THEN
6817: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT',
6818: 'ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6819: END IF;
6820: END;
6821:
6826:
6827: END IF;
6828:
6829: IF ( g_level_statement>= g_current_runtime_level ) THEN
6830: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6831: ' X_MUNICIPAL_PERC_AMT_TBL for Report Name : '||p_report_name
6832: ||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_MUNICIPAL_PERC_AMT_TBL(i)));
6833: END IF;
6834:
6834:
6835: END LOOP;
6836:
6837: IF (g_level_procedure >= g_current_runtime_level ) THEN
6838: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_MUNICIPAL_PERC_AMOUNT.END',
6839: 'GET_MUNICIPAL_PERC_AMOUNT(-)');
6840: END IF;
6841:
6842: END GET_MUNICIPAL_PERC_AMOUNT;
6887:
6888: BEGIN
6889:
6890: IF (g_level_procedure >= g_current_runtime_level ) THEN
6891: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT.BEGIN',
6892: 'GET_EXCISE_TAX_AMOUNT(+)');
6893: END IF;
6894:
6895: BEGIN
6899: FROM zx_rep_trx_detail_t
6900: WHERE request_id = p_request_id;
6901:
6902: IF ( g_level_statement>= g_current_runtime_level ) THEN
6903: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
6904: ' GET_EXCISE_TAX_AMOUNT : l_trx_counter : '|| l_trx_counter );
6905: END IF;
6906:
6907: EXCEPTION
6907: EXCEPTION
6908:
6909: WHEN OTHERS THEN
6910: IF ( g_level_statement>= g_current_runtime_level ) THEN
6911: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT',
6912: 'ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6913: END IF;
6914:
6915: END;
6954: FROM ra_customer_trx
6955: WHERE customer_trx_id = p_trx_id_tbl(i);
6956:
6957: IF ( g_level_statement>= g_current_runtime_level ) THEN
6958: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT',
6959: 'l_gdf_ra_cust_trx_att19_tbl : '||l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)) );
6960: END IF;
6961:
6962: EXCEPTION
6962: EXCEPTION
6963: WHEN OTHERS THEN
6964:
6965: IF ( g_level_statement>= g_current_runtime_level ) THEN
6966: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT',
6967: 'ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
6968: END IF;
6969: END;
6970:
7002:
7003: WHEN OTHERS THEN
7004:
7005: IF ( g_level_statement>= g_current_runtime_level ) THEN
7006: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT',
7007: 'ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT : '||p_report_name ||' : '||substrb(SQLERRM,1,120) );
7008: END IF;
7009: END;
7010:
7015:
7016: END IF;
7017:
7018: IF ( g_level_statement>= g_current_runtime_level ) THEN
7019: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7020: ' X_EXCISE_AMT_TBL for Report Name : '||p_report_name ||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_EXCISE_AMT_TBL(i)));
7021: END IF;
7022:
7023: END LOOP;
7022:
7023: END LOOP;
7024:
7025: IF (g_level_procedure >= g_current_runtime_level ) THEN
7026: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_EXCISE_TAX_AMOUNT.END',
7027: 'GET_EXCISE_TAX_AMOUNT(-)');
7028: END IF;
7029:
7030: END GET_EXCISE_TAX_AMOUNT;
7068:
7069: )IS
7070:
7071: BEGIN
7072: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7073: --Bug 5058043
7074: IF (g_level_procedure >= g_current_runtime_level ) THEN
7075: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_COUNTED_SUM_DOC',
7076: 'GET_COUNTED_SUM_DOC(+)');
7071: BEGIN
7072: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7073: --Bug 5058043
7074: IF (g_level_procedure >= g_current_runtime_level ) THEN
7075: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_COUNTED_SUM_DOC',
7076: 'GET_COUNTED_SUM_DOC(+)');
7077: END IF;
7078:
7079: IF P_REPORT_NAME = 'ZXCLPPLR' then
7132: -- X_CL_TOTAL_EXEMPT_TBL(i) := null;
7133: -- X_CL_TOTAL_EFFECTIVE_TBL(i) := null;
7134:
7135: IF (g_level_statement >= g_current_runtime_level ) THEN
7136: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_COUNTED_SUM_DOC',
7137: 'i : '||i||'X_CL_TOTAL_EXEMPT_TBL : '||X_CL_TOTAL_EXEMPT_TBL(i)||'X_CL_TOTAL_EFFECTIVE_TBL : '||X_CL_TOTAL_EFFECTIVE_TBL(i) );
7138: END IF;
7139:
7140: EXCEPTION
7191: AND nvl(det1.trx_line_id,1) = nvl(det.trx_line_id,1) )--check if trx_line_id should be populated at TRANSACTION Level
7192: GROUP BY DET.DOCUMENT_SUB_TYPE;
7193:
7194: IF (g_level_statement >= g_current_runtime_level ) THEN
7195: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_COUNTED_SUM_DOC',
7196: 'i : '||i||'X_CL_TOTAL_EXEMPT_TBL : '||X_CL_TOTAL_EXEMPT_TBL(i)||'X_CL_TOTAL_EFFECTIVE_TBL : '||X_CL_TOTAL_EFFECTIVE_TBL(i) );
7197: END IF;
7198:
7199: EXCEPTION
7207:
7208: END IF;
7209: --Bug 5058043
7210: IF (g_level_procedure >= g_current_runtime_level ) THEN
7211: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_COUNTED_SUM_DOC',
7212: 'GET_COUNTED_SUM_DOC(-)');
7213: END IF;
7214:
7215: END GET_COUNTED_SUM_DOC;
7247: IS
7248:
7249: BEGIN
7250:
7251: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7252: --Bug 5058043
7253: IF (g_level_procedure >= g_current_runtime_level ) THEN
7254: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_LOOKUP_INFO',
7255: 'GET_LOOKUP_INFO(+)');
7250:
7251: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7252: --Bug 5058043
7253: IF (g_level_procedure >= g_current_runtime_level ) THEN
7254: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_LOOKUP_INFO',
7255: 'GET_LOOKUP_INFO(+)');
7256: END IF;
7257:
7258: FOR i in 1..nvl(p_document_sub_type_tbl.last,0) LOOP
7257:
7258: FOR i in 1..nvl(p_document_sub_type_tbl.last,0) LOOP
7259:
7260: IF (g_level_statement >= g_current_runtime_level ) THEN
7261: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_LOOKUP_INFO',
7262: 'i : '||i||'P_DOCUMENT_SUB_TYPE_TBL(i) : '||P_DOCUMENT_SUB_TYPE_TBL(i));
7263: END IF;
7264:
7265: BEGIN
7293:
7294: l_err_msg := substrb(SQLERRM,1,120);
7295: --Bug 5058043
7296: IF (g_level_procedure >= g_current_runtime_level ) THEN
7297: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_LOOKUP_INFO',
7298: 'EXCEPTION raised in ' ||'GET_LOOKUP_INFO: ' ||SQLCODE ||':'||l_err_msg);
7299: END IF;
7300:
7301: END;
7302:
7303: END LOOP;
7304: --Bug 5058043
7305: IF (g_level_procedure >= g_current_runtime_level ) THEN
7306: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_LOOKUP_INFO',
7307: 'GET_LOOKUP_INFO(-)');
7308: END IF;
7309:
7310: END GET_LOOKUP_INFO;
7345: BEGIN
7346:
7347:
7348: IF (g_level_procedure >= g_current_runtime_level ) THEN
7349: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTHORITY_CODE.BEGIN',
7350: 'GET_TAX_AUTHORITY_CODE(+)');
7351: END IF;
7352:
7353: SELECT tax_authority_code
7357: AND org_id = p_org_id;
7358:
7359:
7360: IF ( g_level_statement>= g_current_runtime_level ) THEN
7361: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTHORITY_CODE',
7362: 'l_tax_authority_code : '||l_tax_authority_code);
7363: END IF;
7364:
7365: IF (g_level_procedure >= g_current_runtime_level ) THEN
7363: END IF;
7364:
7365: IF (g_level_procedure >= g_current_runtime_level ) THEN
7366:
7367: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTHORITY_CODE.END',
7368: 'GET_TAX_AUTHORITY_CODE(-)');
7369: END IF;
7370:
7371: RETURN l_tax_authority_code;
7378:
7379: WHEN OTHERS THEN
7380:
7381: IF ( g_level_statement>= g_current_runtime_level ) THEN
7382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTHORITY_CODE',
7383: 'ZX_JL_EXTRACT_PKG.GET_TAX_AUTHORITY_CODE : '||substrb(SQLERRM,1,120) );
7384: END IF;
7385:
7386: END get_tax_authority_code;
7419: l_err_msg VARCHAR2(120);
7420:
7421: BEGIN
7422: IF (g_level_procedure >= g_current_runtime_level ) THEN
7423: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_CODE.BEGIN',
7424: 'GET_DGI_CODE(+)');
7425: END IF;
7426:
7427: FOR i in 1..p_trx_number_tbl.last LOOP
7437: AND rctt.org_id = p_org_id_tbl(i)
7438: AND trx_category = rctt.type;
7439:
7440: IF ( g_level_statement>= g_current_runtime_level ) THEN
7441: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7442: ' GET_DGI_CODE : i : ');
7443: END IF;
7444:
7445: EXCEPTION
7446:
7447: WHEN NO_DATA_FOUND THEN
7448: x_dgi_code_tbl(i) := Null;
7449: IF ( g_level_statement>= g_current_runtime_level ) THEN
7450: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7451: ' GET_DGI_CODE : i : ');
7452: END IF;
7453:
7454:
7454:
7455:
7456: WHEN OTHERS THEN
7457: IF ( g_level_statement>= g_current_runtime_level ) THEN
7458: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_CODE',
7459: 'ZX_JL_EXTRACT_PKG.GET_DGI_CODE : '||substrb(SQLERRM,1,120) );
7460: END IF;
7461: END;
7462:
7462:
7463: END LOOP;
7464:
7465: IF (g_level_procedure >= g_current_runtime_level ) THEN
7466: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_CODE.END',
7467: 'GET_DGI_CODE(-)');
7468: END IF;
7469:
7470: END get_dgi_code;
7513: BEGIN
7514:
7515:
7516: IF (g_level_procedure >= g_current_runtime_level ) THEN
7517: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7518: 'GET_CUSTOMER_CONDITION_CODE(+)');
7519: END IF;
7520:
7521: BEGIN
7528: EXCEPTION
7529:
7530: WHEN OTHERS THEN
7531: IF ( g_level_statement>= g_current_runtime_level ) THEN
7532: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7533: 'ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE : '||substrb(SQLERRM,1,120) );
7534: END IF;
7535:
7536: END;
7535:
7536: END;
7537:
7538: IF (g_level_procedure >= g_current_runtime_level ) THEN
7539: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7540: 'l_counted_trx_number :'||to_char(l_counted_trx_number));
7541: END IF;
7542:
7543: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
7547: ELSE
7548: l_cust_condition_code_tbl(p_trx_id_tbl(i)) := null;
7549: END IF;
7550: IF (g_level_procedure >= g_current_runtime_level ) THEN
7551: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7552: 'l_cust_condition_code_tbl :');
7553: END IF;
7554:
7555:
7554:
7555:
7556: IF l_cust_condition_code_tbl(p_trx_id_tbl(i)) is null THEN
7557: IF (g_level_procedure >= g_current_runtime_level ) THEN
7558: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7559: 'l_cust_condition_code_tbl 1 :');
7560: END IF;
7561:
7562:
7577: AND cust.cust_account_id = add1.cust_account_id
7578: AND site.cust_acct_site_id = add1.cust_acct_site_id
7579: AND site.site_use_id = nvl(trx.bill_to_site_use_id, ship_to_site_use_id);
7580: IF (g_level_procedure >= g_current_runtime_level ) THEN
7581: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7582: 'l_use_site_prof :'||l_use_site_prof);
7583: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7584: 'l_contributor_class :'||l_contributor_class);
7585: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7579: AND site.site_use_id = nvl(trx.bill_to_site_use_id, ship_to_site_use_id);
7580: IF (g_level_procedure >= g_current_runtime_level ) THEN
7581: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7582: 'l_use_site_prof :'||l_use_site_prof);
7583: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7584: 'l_contributor_class :'||l_contributor_class);
7585: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7586: 'l_address_id :'||to_char(l_address_id));
7587: END IF;
7581: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7582: 'l_use_site_prof :'||l_use_site_prof);
7583: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7584: 'l_contributor_class :'||l_contributor_class);
7585: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7586: 'l_address_id :'||to_char(l_address_id));
7587: END IF;
7588:
7589:
7605: CUST.ORG_ID = CATEG.ORG_ID AND
7606: CATEG.ORG_ID = VAL.ORG_ID AND
7607: VAL.ORG_ID = P_INTERNAL_ORG_ID_TBL(I);
7608: IF (g_level_procedure >= g_current_runtime_level ) THEN
7609: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7610: 'l_cust_condition_code_tbl Value 1 :'||to_char(l_cust_condition_code_tbl(p_trx_id_tbl(i))));
7611: END IF;
7612:
7613:
7629: CUST.ORG_ID = CATEG.ORG_ID AND
7630: CATEG.ORG_ID = VAL.ORG_ID AND
7631: VAL.ORG_ID = P_INTERNAL_ORG_ID_TBL(I);
7632: IF (g_level_procedure >= g_current_runtime_level ) THEN
7633: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.BEGIN',
7634: 'l_cust_condition_code_tbl Value 2 :'||to_char(l_cust_condition_code_tbl(p_trx_id_tbl(i))));
7635: END IF;
7636: END IF;
7637:
7641:
7642: WHEN NO_DATA_FOUND THEN
7643: X_CUST_CONDITION_CODE_TBL(i) :=NULL;
7644: IF ( g_level_statement>= g_current_runtime_level ) THEN
7645: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7646: 'ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE : '||substrb(SQLERRM,1,120) );
7647: END IF;
7648: WHEN OTHERS THEN
7649: IF ( g_level_statement>= g_current_runtime_level ) THEN
7646: 'ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE : '||substrb(SQLERRM,1,120) );
7647: END IF;
7648: WHEN OTHERS THEN
7649: IF ( g_level_statement>= g_current_runtime_level ) THEN
7650: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7651: 'ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE : '||substrb(SQLERRM,1,120) );
7652: END IF;
7653:
7654: END;
7658: X_CUST_CONDITION_CODE_TBL(i) := l_cust_condition_code_tbl(p_trx_id_tbl(i));
7659:
7660: END IF;
7661: IF ( g_level_statement>= g_current_runtime_level ) THEN
7662: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7663: ' X_CUST_CONDITION_CODE_TBL (i) for : '||' i: '||i||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_CUST_CONDITION_CODE_TBL(i)));
7664: END IF;
7665:
7666: END LOOP;
7665:
7666: END LOOP;
7667:
7668: IF (g_level_procedure >= g_current_runtime_level ) THEN
7669: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE.END',
7670: 'GET_CUSTOMER_CONDITION_CODE(-)');
7671: END IF;
7672:
7673: END get_customer_condition_code;
7690:
7691: BEGIN
7692:
7693: IF (g_level_procedure >= g_current_runtime_level ) THEN
7694: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE.BEGIN',
7695: 'GET_DGI_TAX_REGIME_CODE(+)');
7696: END IF;
7697:
7698: BEGIN
7702: WHERE request_id = p_request_id;
7703: EXCEPTION
7704: WHEN OTHERS THEN
7705: IF ( g_level_statement>= g_current_runtime_level ) THEN
7706: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7707: 'ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE : '||substrb(SQLERRM,1,120) );
7708: END IF;
7709: END;
7710:
7708: END IF;
7709: END;
7710:
7711: IF (g_level_procedure >= g_current_runtime_level ) THEN
7712: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE',
7713: 'l_counted_trx_number :'||to_char(l_counted_trx_number));
7714: END IF;
7715:
7716: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
7719: ELSE
7720: l_dgi_tax_regime_code_tbl(p_trx_line_id_tbl(i)) := null;
7721: END IF;
7722: IF (g_level_procedure >= g_current_runtime_level ) THEN
7723: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE',
7724: 'p_trx_id_tbl, p_trx_line_id_tbl :'||to_char(p_trx_id_tbl(i))||' '||to_char(p_trx_line_id_tbl(i)));
7725: END IF;
7726: IF l_dgi_tax_regime_code_tbl(p_trx_line_id_tbl(i)) IS NULL THEN
7727: BEGIN
7746: AND lines.internal_organization_id = val.org_id
7747: AND VAL.ORG_ID = P_INTERNAL_ORG_ID_TBL(i);
7748:
7749: IF (g_level_procedure >= g_current_runtime_level ) THEN
7750: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CUSTOMER_CONDITION_CODE',
7751: 'l_dgi_tax_regime_code :'||l_dgi_tax_regime_code_tbl(p_trx_line_id_tbl(i)));
7752: END IF;
7753:
7754: X_DGI_TAX_REGIME_CODE_TBL(i) := l_dgi_tax_regime_code_tbl(p_trx_line_id_tbl(i));
7756: EXCEPTION
7757: WHEN NO_DATA_FOUND THEN
7758: X_DGI_TAX_REGIME_CODE_TBL(i) :=NULL;
7759: IF (g_level_statement>= g_current_runtime_level ) THEN
7760: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7761: 'ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE : '||substrb(SQLERRM,1,120) );
7762: END IF;
7763: WHEN OTHERS THEN
7764: IF ( g_level_statement>= g_current_runtime_level ) THEN
7761: 'ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE : '||substrb(SQLERRM,1,120) );
7762: END IF;
7763: WHEN OTHERS THEN
7764: IF ( g_level_statement>= g_current_runtime_level ) THEN
7765: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7766: 'ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE : '||substrb(SQLERRM,1,120) );
7767: END IF;
7768:
7769: END;
7776:
7777: END LOOP;
7778:
7779: IF (g_level_procedure >= g_current_runtime_level ) THEN
7780: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_TAX_REGIME_CODE.END',
7781: 'GET_DGI_TAX_REGIME_CODE(-)');
7782: END IF;
7783:
7784: END GET_DGI_TAX_REGIME_CODE;
7826:
7827: BEGIN
7828:
7829: IF (g_level_procedure >= g_current_runtime_level ) THEN
7830: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_REG_STAT_CODE.BEGIN',
7831: 'GET_VAT_REG_STAT_CODE(+)');
7832: END IF;
7833:
7834: BEGIN
7838: FROM zx_rep_trx_detail_t
7839: WHERE request_id = p_request_id;
7840:
7841: IF (g_level_procedure >= g_current_runtime_level ) THEN
7842: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_REG_STAT_CODE.BEGIN',
7843: 'GET_VAT_REG_STAT_CODE : transaction count '||to_char(l_counted_trx_number));
7844: END IF;
7845:
7846: EXCEPTION
7846: EXCEPTION
7847:
7848: WHEN OTHERS THEN
7849: IF ( g_level_statement>= g_current_runtime_level ) THEN
7850: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7851: 'ZX_JL_EXTRACT_PKG.GET_VAT_REG_STAT_CODE : '||substrb(SQLERRM,1,120) );
7852: END IF;
7853:
7854: END;
7855:
7856:
7857: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
7858: IF ( g_level_statement>= g_current_runtime_level ) THEN
7859: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7860: ' For Loop 0 : X_VAT_REG_STAT_CODE_TBL for i: ');
7861: END IF;
7862:
7863:
7867: l_vat_reg_stat_code_tbl(p_trx_id_tbl(i)) := null;
7868: END IF;
7869:
7870: IF ( g_level_statement>= g_current_runtime_level ) THEN
7871: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7872: ' For Loop1 : X_VAT_REG_STAT_CODE_TBL for i: ');
7873: END IF;
7874:
7875: IF l_vat_reg_stat_code_tbl(p_trx_id_tbl(i)) is null THEN
7875: IF l_vat_reg_stat_code_tbl(p_trx_id_tbl(i)) is null THEN
7876:
7877: BEGIN
7878: IF ( g_level_statement>= g_current_runtime_level ) THEN
7879: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7880: 'For Loop 1-1: l_use_site_prof : '||l_use_site_prof);
7881: END IF;
7882:
7883: SELECT add1.cust_acct_site_id,
7896: AND site.cust_acct_site_id = add1.cust_acct_site_id
7897: AND site.site_use_id = NVL(trx.bill_to_site_use_id, ship_to_site_use_id);
7898:
7899: IF ( g_level_statement>= g_current_runtime_level ) THEN
7900: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7901: 'For Loop 2: l_use_site_prof : '||l_use_site_prof);
7902: END IF;
7903:
7904: IF l_use_site_prof = 'Y' THEN
7942:
7943:
7944: X_VAT_REG_STAT_CODE_TBL(i) := l_vat_reg_stat_code_tbl(p_trx_id_tbl(i));
7945: IF ( g_level_statement>= g_current_runtime_level ) THEN
7946: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7947: 'For Loop 3: X_VAT_REG_STAT_CODE_TBL for i: '||i||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_REG_STAT_CODE_TBL(i)));
7948: END IF;
7949:
7950:
7951: EXCEPTION
7952:
7953: WHEN NO_DATA_FOUND THEN
7954: IF ( g_level_statement>= g_current_runtime_level ) THEN
7955: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7956: 'ZX_JL_EXTRACT_PKG.GET_VAT_REG_STAT_CODE : No data Found ');
7957: END IF;
7958: X_VAT_REG_STAT_CODE_TBL(i) := NULL;
7959:
7958: X_VAT_REG_STAT_CODE_TBL(i) := NULL;
7959:
7960: WHEN OTHERS THEN
7961: IF ( g_level_statement>= g_current_runtime_level ) THEN
7962: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7963: 'ZX_JL_EXTRACT_PKG.GET_VAT_REG_STAT_CODE : '||substrb(SQLERRM,1,120) );
7964: END IF;
7965:
7966: END;
7971:
7972: END IF;
7973:
7974: IF ( g_level_statement>= g_current_runtime_level ) THEN
7975: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
7976: ' X_VAT_REG_STAT_CODE_TBL for i: '||i||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_VAT_REG_STAT_CODE_TBL(i)));
7977: END IF;
7978:
7979: END LOOP;
7978:
7979: END LOOP;
7980:
7981: IF (g_level_procedure >= g_current_runtime_level ) THEN
7982: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_REG_STAT_CODE.END',
7983: 'GET_VAT_REG_STAT_CODE(-)');
7984: END IF;
7985:
7986: END get_vat_reg_stat_code;
8022: BEGIN
8023:
8024:
8025: IF (g_level_procedure >= g_current_runtime_level ) THEN
8026: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_REC_COUNT.BEGIN',
8027: 'GET_REC_COUNT(+)');
8028: END IF;
8029:
8030: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
8067:
8068: END LOOP;
8069:
8070: IF (g_level_procedure >= g_current_runtime_level ) THEN
8071: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_REC_COUNT.END',
8072: 'GET_REC_COUNT(-)');
8073: END IF;
8074:
8075: END get_rec_count;
8105: BEGIN
8106:
8107:
8108: IF (g_level_procedure >= g_current_runtime_level ) THEN
8109: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_DOC_TYPE.BEGIN',
8110: 'GET_DGI_DOC_TYP(+)');
8111: END IF;
8112:
8113: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
8157:
8158: END LOOP;
8159:
8160: IF (g_level_procedure >= g_current_runtime_level ) THEN
8161: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_DGI_DOC_TYPE.END',
8162: 'GET_DGI_DOC_TYPE(-)');
8163: END IF;
8164:
8165: END GET_DGI_DOC_TYPE;
8171: )
8172: IS
8173: BEGIN
8174: IF (g_level_procedure >= g_current_runtime_level ) THEN
8175: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.UPDATE_DGI_CURR_CODE.END',
8176: 'UPDATE_DGI_CURR_CODE(+)');
8177: END IF;
8178:
8179: UPDATE zx_rep_trx_detail_t dtl
8182: WHERE currency_code = dtl.trx_currency_code)
8183: WHERE request_id = p_request_id;
8184:
8185: IF (g_level_procedure >= g_current_runtime_level ) THEN
8186: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.UPDATE_DGI_CURR_CODE.END',
8187: 'UPDATE_DGI_CURR_CODE(-)');
8188: END IF;
8189:
8190: END;
8228: BEGIN
8229:
8230:
8231: IF (g_level_procedure >= g_current_runtime_level ) THEN
8232: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_NONVAT_RATE_COUNT.BEGIN',
8233: 'GET_VAT_NONVAT_RATE_COUNT(+)');
8234: END IF;
8235:
8236: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
8281:
8282: END LOOP;
8283:
8284: IF (g_level_procedure >= g_current_runtime_level ) THEN
8285: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_VAT_NONVAT_RATE_COUNT.END',
8286: 'GET_VAT_NONVAT_RATE_COUNT(-)');
8287: END IF;
8288:
8289: END get_vat_nonvat_rate_count;
8323:
8324: BEGIN
8325:
8326: IF (g_level_procedure >= g_current_runtime_level ) THEN
8327: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT.BEGIN',
8328: 'GET_TOTAL_DOCUMENT_AMOUNT(+)');
8329: END IF;
8330:
8331:
8332:
8333: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
8334: --Bug 5396444
8335: IF (g_level_statement >= g_current_runtime_level ) THEN
8336: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8337: 'i :'||i);
8338: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8339: 'trx_id :'||P_TRX_ID_TBL(i));
8340: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8334: --Bug 5396444
8335: IF (g_level_statement >= g_current_runtime_level ) THEN
8336: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8337: 'i :'||i);
8338: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8339: 'trx_id :'||P_TRX_ID_TBL(i));
8340: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8341: 'P_EXCHANGE_RATE_TBL :'||P_EXCHANGE_RATE_TBL(i));
8342: END IF;
8336: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8337: 'i :'||i);
8338: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8339: 'trx_id :'||P_TRX_ID_TBL(i));
8340: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT',
8341: 'P_EXCHANGE_RATE_TBL :'||P_EXCHANGE_RATE_TBL(i));
8342: END IF;
8343:
8344: IF l_total_doc_amt_tbl.EXISTS(p_trx_id_tbl(i)) THEN
8374:
8375: ELSIF P_REPORT_NAME in ('JLARTSFF','JLARTDFF') THEN
8376:
8377: IF ( g_level_statement>= g_current_runtime_level ) THEN
8378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
8379: 'ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT : att19 '||P_REPORT_NAME);
8380: END IF;
8381:
8382:
8397: FROM ra_customer_trx_all
8398: WHERE customer_trx_id = p_trx_id_tbl(i);
8399:
8400: IF ( g_level_statement>= g_current_runtime_level ) THEN
8401: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
8402: 'ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT : att19 '||l_gdf_ra_cust_trx_att19_tbl(p_trx_id_tbl(i)));
8403: END IF;
8404:
8405: EXCEPTION
8404:
8405: EXCEPTION
8406: WHEN OTHERS THEN
8407: IF ( g_level_statement>= g_current_runtime_level ) THEN
8408: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
8409: 'ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT : '||substrb(SQLERRM,1,120) );
8410: END IF;
8411: END;
8412:
8423:
8424: ELSIF P_REPORT_NAME = 'JLARTSFF' THEN
8425:
8426: IF ( g_level_statement>= g_current_runtime_level ) THEN
8427: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
8428: 'ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT : exchange rate : '||to_char(p_exchange_rate_tbl(i)));
8429: END IF;
8430:
8431: SELECT (nvl(SUM(NVL(L.GROSS_EXTENDED_AMOUNT, nvl(L.EXTENDED_AMOUNT,0))),0)
8458: END IF;
8459:
8460:
8461: IF ( g_level_statement>= g_current_runtime_level ) THEN
8462: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
8463: ' X_TOTAL_DOC_AMT_TBL for Report Name : '||p_report_name ||' i: '||i||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_TOTAL_DOC_AMT_TBL(i)));
8464: END IF;
8465:
8466: END LOOP;
8464: END IF;
8465:
8466: END LOOP;
8467: IF (g_level_procedure >= g_current_runtime_level ) THEN
8468: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOCUMENT_AMOUNT.END',
8469: 'GET_TOTAL_DOCUMENT_AMOUNT(-)');
8470: END IF;
8471:
8472: END GET_TOTAL_DOCUMENT_AMOUNT;
8488:
8489:
8490: BEGIN
8491: IF (g_level_procedure >= g_current_runtime_level ) THEN
8492: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE.BEGIN',
8493: 'DGI_TRX_CODE(+)');
8494: END IF;
8495:
8496: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8495:
8496: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8497:
8498: IF ( g_level_statement>= g_current_runtime_level ) THEN
8499: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8500: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8501: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8502: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8503: END IF;
8497:
8498: IF ( g_level_statement>= g_current_runtime_level ) THEN
8499: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8500: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8501: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8502: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8503: END IF;
8504:
8505: IF l_dgi_trx_code_tbl.EXISTS(p_tax_rate_id_tbl(i)) THEN
8523:
8524: EXCEPTION
8525: WHEN NO_DATA_FOUND THEN
8526: IF (g_level_procedure >= g_current_runtime_level ) THEN
8527: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8528: 'NO_DATA_FOUND : '||to_char(i));
8529: END IF;
8530: X_DGI_TRX_CODE_TBL(i) := NULL;
8531: --X_DGI_TRX_CODE_TBL(i) := 'T';
8540: ELSE
8541: X_DGI_TRX_CODE_TBL(i) := l_dgi_trx_code_tbl(p_tax_rate_id_tbl(i));
8542: END IF;
8543: IF (g_level_procedure >= g_current_runtime_level ) THEN
8544: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8545: 'l_dgi_trx_code_tbl : '||to_char(i) ||':'|| X_DGI_TRX_CODE_TBL(i));
8546: END IF;
8547: END LOOP;
8548:
8546: END IF;
8547: END LOOP;
8548:
8549: IF (g_level_procedure >= g_current_runtime_level ) THEN
8550: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE.END',
8551: 'DGI_TRX_CODE(-)');
8552: END IF;
8553:
8554:
8554:
8555: EXCEPTION
8556: WHEN NO_DATA_FOUND THEN
8557: IF ( g_level_statement>= g_current_runtime_level ) THEN
8558: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8559: 'ZX_JL_EXTRACT_PKG.DGI_TRX_CODE : '||substrb(SQLERRM,1,120) );
8560: END IF;
8561:
8562: WHEN OTHERS THEN
8561:
8562: WHEN OTHERS THEN
8563:
8564: IF ( g_level_statement>= g_current_runtime_level ) THEN
8565: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8566: 'ZX_JL_EXTRACT_PKG.DGI_TRX_CODE : '||substrb(SQLERRM,1,120) );
8567: END IF;
8568:
8569: END DGI_TRX_CODE;
8584:
8585:
8586: BEGIN
8587: IF (g_level_procedure >= g_current_runtime_level ) THEN
8588: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTH_CATEG.BEGIN',
8589: 'GET_TAX_AUTH_CATEG(+)');
8590: END IF;
8591:
8592: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8591:
8592: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8593:
8594: IF ( g_level_statement>= g_current_runtime_level ) THEN
8595: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8596: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8597: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8598: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8599: END IF;
8593:
8594: IF ( g_level_statement>= g_current_runtime_level ) THEN
8595: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8596: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8597: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8598: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8599: END IF;
8600:
8601: IF l_tax_auth_categ_tbl.EXISTS(p_tax_rate_id_tbl(i)) THEN
8631: END IF;
8632: END LOOP;
8633:
8634: IF (g_level_procedure >= g_current_runtime_level ) THEN
8635: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTH_CATEG.END',
8636: 'GET_TAX_AUTH_CATEG(-)');
8637: END IF;
8638:
8639:
8639:
8640: EXCEPTION
8641: WHEN NO_DATA_FOUND THEN
8642: IF ( g_level_statement>= g_current_runtime_level ) THEN
8643: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTH_CATEG',
8644: 'ZX_JL_EXTRACT_PKG.GET_TAX_AUTH_CATEG : '||substrb(SQLERRM,1,120) );
8645: END IF;
8646:
8647: WHEN OTHERS THEN
8645: END IF;
8646:
8647: WHEN OTHERS THEN
8648: IF ( g_level_statement>= g_current_runtime_level ) THEN
8649: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAX_AUTH_CATEG',
8650: 'ZX_JL_EXTRACT_PKG.GET_TAX_AUTH_CATEG : '||substrb(SQLERRM,1,120) );
8651: END IF;
8652:
8653: END GET_TAX_AUTH_CATEG;
8667:
8668:
8669: BEGIN
8670: IF (g_level_procedure >= g_current_runtime_level ) THEN
8671: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.PROV_JURISDICTION_CODE.BEGIN',
8672: 'PROV_JURISDICTION_CODE(+)');
8673: END IF;
8674:
8675: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8674:
8675: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8676:
8677: IF ( g_level_statement>= g_current_runtime_level ) THEN
8678: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8679: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8680: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8681: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8682: END IF;
8676:
8677: IF ( g_level_statement>= g_current_runtime_level ) THEN
8678: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8679: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8680: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8681: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8682: END IF;
8683:
8684: IF l_prov_juris_code_tbl.EXISTS(p_tax_rate_id_tbl(i)) THEN
8683:
8684: IF l_prov_juris_code_tbl.EXISTS(p_tax_rate_id_tbl(i)) THEN
8685: X_PROV_JURIS_CODE_TBL(i) := l_prov_juris_code_tbl(p_tax_rate_id_tbl(i));
8686: IF ( g_level_statement>= g_current_runtime_level ) THEN
8687: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8688: 'P_TRX_ID_TBL: Not NULL '||to_char(P_TRX_ID_TBL(i))||'-'||to_char(i));
8689: END IF;
8690: IF ( g_level_statement>= g_current_runtime_level ) THEN
8691: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8687: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8688: 'P_TRX_ID_TBL: Not NULL '||to_char(P_TRX_ID_TBL(i))||'-'||to_char(i));
8689: END IF;
8690: IF ( g_level_statement>= g_current_runtime_level ) THEN
8691: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8692: 'X_PROV_JURIS_CODE_TBL: '||l_prov_juris_code_tbl(p_tax_rate_id_tbl(i)));
8693: END IF;
8694:
8695: NULL;
8695: NULL;
8696: ELSE
8697: l_prov_juris_code_tbl(p_tax_rate_id_tbl(i)) := null;
8698: IF ( g_level_statement>= g_current_runtime_level ) THEN
8699: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8700: 'P_TRX_ID_TBL: NULL assign '||to_char(P_TRX_ID_TBL(i))||'-'||to_char(i));
8701: END IF;
8702: END IF;
8703:
8713: AND rep_ass.entity_id =P_TAX_RATE_ID_TBL(i)
8714: AND rep_type.tax_regime_code =P_TAX_REGIME_CODE_TBL(i);
8715:
8716: IF ( g_level_statement>= g_current_runtime_level ) THEN
8717: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8718: 'X_PROV_JURIS_CODE_TBL: '||l_prov_juris_code_tbl(p_tax_rate_id_tbl(i)));
8719: END IF;
8720:
8721: EXCEPTION
8728:
8729: X_PROV_JURIS_CODE_TBL(i) := l_prov_juris_code_tbl(p_tax_rate_id_tbl(i));
8730:
8731: IF ( g_level_statement>= g_current_runtime_level ) THEN
8732: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8733: 'X_PROV_JURIS_CODE_TBL: '||X_PROV_JURIS_CODE_TBL(i));
8734: END IF;
8735:
8736: END;
8743: --END IF;
8744: END LOOP;
8745:
8746: IF (g_level_procedure >= g_current_runtime_level ) THEN
8747: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.PROV_JURISDICTION_CODE.END',
8748: 'PROV_JURISDICTION_CODE(-)');
8749: END IF;
8750:
8751:
8751:
8752: EXCEPTION
8753: WHEN NO_DATA_FOUND THEN
8754: IF ( g_level_statement>= g_current_runtime_level ) THEN
8755: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.PROV_JURISDICTION_CODE',
8756: 'ZX_JL_EXTRACT_PKG.PROV_JURISDICTION_CODE : '||substrb(SQLERRM,1,120) );
8757: END IF;
8758:
8759: WHEN OTHERS THEN
8757: END IF;
8758:
8759: WHEN OTHERS THEN
8760: IF ( g_level_statement>= g_current_runtime_level ) THEN
8761: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.PROV_JURISDICTION_CODE',
8762: 'ZX_JL_EXTRACT_PKG.PROV_JURISDICTION_CODE : '||substrb(SQLERRM,1,120) );
8763: END IF;
8764:
8765: END PROV_JURISDICTION_CODE;
8780:
8781:
8782: BEGIN
8783: IF (g_level_procedure >= g_current_runtime_level ) THEN
8784: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE.BEGIN',
8785: 'MUN_JURISDICTION_CODE(+)');
8786: END IF;
8787:
8788: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8787:
8788: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8789:
8790: IF ( g_level_statement>= g_current_runtime_level ) THEN
8791: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8792: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8793: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8794: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8795: END IF;
8789:
8790: IF ( g_level_statement>= g_current_runtime_level ) THEN
8791: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8792: 'P_TAX_RATE_ID_TBL: '||to_char(P_TAX_RATE_ID_TBL(i)));
8793: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.DGI_TRX_CODE',
8794: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8795: END IF;
8796:
8797: IF l_mun_juris_code_tbl.EXISTS(p_tax_rate_id_tbl(i)) THEN
8814: AND rep_type.tax_regime_code =P_TAX_REGIME_CODE_TBL(i);
8815:
8816:
8817: IF ( g_level_statement>= g_current_runtime_level ) THEN
8818: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE',
8819: 'Reporting Types : X_MUN_JURIS_CODE_TBL: '||l_mun_juris_code_tbl(p_tax_rate_id_tbl(i)));
8820: END IF;
8821:
8822: EXCEPTION
8828: FROM ar_vat_tax_all
8829: WHERE VAT_TAX_ID = P_TAX_RATE_ID_TBL(i);
8830:
8831: IF ( g_level_statement>= g_current_runtime_level ) THEN
8832: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE',
8833: 'Exception : X_MUN_JURIS_CODE_TBL: '||l_mun_juris_code_tbl(p_tax_rate_id_tbl(i)));
8834: END IF;
8835: X_MUN_JURIS_CODE_TBL(i) := l_mun_juris_code_tbl(p_tax_rate_id_tbl(i));
8836:
8841: -- ELSE
8842: X_MUN_JURIS_CODE_TBL(i) := l_mun_juris_code_tbl(p_tax_rate_id_tbl(i));
8843: END IF;
8844: IF ( g_level_statement>= g_current_runtime_level ) THEN
8845: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE',
8846: 'X_MUN_JURIS_CODE_TBL: '||X_MUN_JURIS_CODE_TBL(i));
8847: END IF;
8848:
8849: --END IF;
8849: --END IF;
8850: END LOOP;
8851:
8852: IF (g_level_procedure >= g_current_runtime_level ) THEN
8853: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE.END',
8854: 'MUN_JURISDICTION_CODE(-)');
8855: END IF;
8856:
8857:
8857:
8858: EXCEPTION
8859: WHEN NO_DATA_FOUND THEN
8860: IF ( g_level_statement>= g_current_runtime_level ) THEN
8861: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE',
8862: 'ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE : '||substrb(SQLERRM,1,120) );
8863: END IF;
8864:
8865: WHEN OTHERS THEN
8863: END IF;
8864:
8865: WHEN OTHERS THEN
8866: IF ( g_level_statement>= g_current_runtime_level ) THEN
8867: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE',
8868: 'ZX_JL_EXTRACT_PKG.MUN_JURISDICTION_CODE : '||substrb(SQLERRM,1,120) );
8869: END IF;
8870:
8871: END MUN_JURISDICTION_CODE;
8947:
8948:
8949: BEGIN
8950: IF (g_level_procedure >= g_current_runtime_level ) THEN
8951: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM.BEGIN',
8952: 'GET_CAI_NUM(+)');
8953: END IF;
8954:
8955: IF P_REPORT_NAME = 'JLARPPFF' THEN
8955: IF P_REPORT_NAME = 'JLARPPFF' THEN
8956: FOR i in 1..nvl(P_TRX_ID_TBL.last,0) LOOP
8957:
8958: /* IF ( g_level_statement>= g_current_runtime_level ) THEN
8959: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8960: 'P_BILL_FROM_SITE_ID_TBL : '||to_char(P_BILL_FROM_SITE_ID_TBL(i)));
8961: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8962: 'P_BILL_FROM_SITE_PROF_ID_TBL : '||to_char(P_BILL_FROM_SITE_PROF_ID_TBL(i)));
8963: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8957:
8958: /* IF ( g_level_statement>= g_current_runtime_level ) THEN
8959: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8960: 'P_BILL_FROM_SITE_ID_TBL : '||to_char(P_BILL_FROM_SITE_ID_TBL(i)));
8961: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8962: 'P_BILL_FROM_SITE_PROF_ID_TBL : '||to_char(P_BILL_FROM_SITE_PROF_ID_TBL(i)));
8963: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8964: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8965: END IF; */
8959: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8960: 'P_BILL_FROM_SITE_ID_TBL : '||to_char(P_BILL_FROM_SITE_ID_TBL(i)));
8961: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8962: 'P_BILL_FROM_SITE_PROF_ID_TBL : '||to_char(P_BILL_FROM_SITE_PROF_ID_TBL(i)));
8963: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8964: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8965: END IF; */
8966:
8967: IF l_cai_num_tbl.EXISTS(p_trx_id_tbl(i)) THEN
8973:
8974: IF l_cai_num_tbl(p_trx_id_tbl(i)) is null THEN
8975: BEGIN
8976: IF ( g_level_statement>= g_current_runtime_level ) THEN
8977: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8978: 'P_BILL_FROM_SITE_ID_TBL : '||to_char(P_BILL_FROM_SITE_ID_TBL(i)));
8979: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8980: 'P_BILL_FROM_SITE_PROF_ID_TBL : '||to_char(P_BILL_FROM_SITE_PROF_ID_TBL(i)));
8981: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8975: BEGIN
8976: IF ( g_level_statement>= g_current_runtime_level ) THEN
8977: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8978: 'P_BILL_FROM_SITE_ID_TBL : '||to_char(P_BILL_FROM_SITE_ID_TBL(i)));
8979: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8980: 'P_BILL_FROM_SITE_PROF_ID_TBL : '||to_char(P_BILL_FROM_SITE_PROF_ID_TBL(i)));
8981: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8982: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8983: END IF;
8977: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8978: 'P_BILL_FROM_SITE_ID_TBL : '||to_char(P_BILL_FROM_SITE_ID_TBL(i)));
8979: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8980: 'P_BILL_FROM_SITE_PROF_ID_TBL : '||to_char(P_BILL_FROM_SITE_PROF_ID_TBL(i)));
8981: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
8982: 'P_TAX_REGIME_CODE_TBL : '||P_TAX_REGIME_CODE_TBL(i));
8983: END IF;
8984: SELECT rep_ass.reporting_code_char_value
8985: INTO l_cai_num_tbl(p_trx_id_tbl(i))
8995: EXCEPTION
8996: WHEN NO_DATA_FOUND THEN
8997: -- BEGIN
8998: IF ( g_level_statement>= g_current_runtime_level ) THEN
8999: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
9000: 'l_cai_num : '||l_cai_num_tbl(p_trx_id_tbl(i))||'-'||l_cai_due_date_tbl(p_trx_id_tbl(i)));
9001: END IF;
9002: X_CAI_NUMBER_TBL(i) := NULL;
9003: -- IF l_rep_cai_num_tbl(p_trx_id_tbl(i)) IS NULL THEN
9010:
9011: X_CAI_NUMBER_TBL(i) := nvl(l_cai_num_tbl(p_trx_id_tbl(i)),0);
9012: X_CAI_DUE_DATE_TBL(i) := nvl(l_cai_due_date_tbl(p_trx_id_tbl(i)),' ');
9013: IF ( g_level_statement>= g_current_runtime_level ) THEN
9014: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
9015: 'l_cai_num : '||l_cai_num_tbl(p_trx_id_tbl(i))||'-'||l_cai_due_date_tbl(p_trx_id_tbl(i)));
9016: END IF;
9017: -- END;
9018:
9018:
9019: END;
9020: ELSE
9021: IF ( g_level_statement>= g_current_runtime_level ) THEN
9022: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
9023: 'Else : l_cai_num : '||l_cai_num_tbl(p_trx_id_tbl(i)));
9024: END IF;
9025: X_CAI_NUMBER_TBL(i) := l_cai_num_tbl(p_trx_id_tbl(i));
9026: X_CAI_DUE_DATE_TBL(i) := l_cai_due_date_tbl(p_trx_id_tbl(i));
9036: END LOOP;
9037: ENd IF;
9038:
9039: IF (g_level_procedure >= g_current_runtime_level ) THEN
9040: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM.END',
9041: 'GET_CAI_NUM(-)');
9042: END IF;
9043:
9044:
9044:
9045: EXCEPTION
9046: WHEN NO_DATA_FOUND THEN
9047: IF ( g_level_statement>= g_current_runtime_level ) THEN
9048: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
9049: 'ZX_JL_EXTRACT_PKG.GET_CAI_NUM : '||substrb(SQLERRM,1,120) );
9050: END IF;
9051:
9052: -- X_CAI_NUMBER_TBL(i) := NULL;
9053:
9054: WHEN OTHERS THEN
9055:
9056: IF ( g_level_statement>= g_current_runtime_level ) THEN
9057: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM',
9058: 'ZX_JL_EXTRACT_PKG.GET_CAI_NUM : '||substrb(SQLERRM,1,120) );
9059: END IF;
9060:
9061: END GET_CAI_NUM;
9077:
9078:
9079: BEGIN
9080: IF (g_level_procedure >= g_current_runtime_level ) THEN
9081: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM_AR.BEGIN',
9082: 'GET_CAI_NUM_AR(+)');
9083: END IF;
9084:
9085: IF P_REPORT_NAME IN ('JLARTSFF','JLARTDFF') THEN -- Report Name Check
9119: END IF;
9120: END LOOP;
9121: END IF;
9122: IF (g_level_procedure >= g_current_runtime_level ) THEN
9123: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM_AR.END',
9124: 'GET_CAI_NUM_AR(-)');
9125: END IF;
9126:
9127:
9127:
9128: EXCEPTION
9129: WHEN NO_DATA_FOUND THEN
9130: IF ( g_level_statement>= g_current_runtime_level ) THEN
9131: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM_AR',
9132: 'ZX_JL_EXTRACT_PKG.GET_CAI_NUM_AR : '||substrb(SQLERRM,1,120) );
9133: END IF;
9134:
9135: -- X_CAI_NUMBER_TBL(i) := NULL;
9136:
9137: WHEN OTHERS THEN
9138:
9139: IF ( g_level_statement>= g_current_runtime_level ) THEN
9140: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_CAI_NUM_AR',
9141: 'ZX_JL_EXTRACT_PKG.GET_CAI_NUM_AR : '||substrb(SQLERRM,1,120) );
9142: END IF;
9143:
9144: END GET_CAI_NUM_AR;
9160: BEGIN
9161:
9162:
9163: IF (g_level_procedure >= g_current_runtime_level ) THEN
9164: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER.BEGIN',
9165: 'GET_FISCAL_PRINTER(+)');
9166: END IF;
9167:
9168:
9189: EXCEPTION
9190: WHEN NO_DATA_FOUND THEN
9191: X_FISCAL_PRINTER_TBL(i):=NULL;
9192: IF ( g_level_statement>= g_current_runtime_level ) THEN
9193: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER',
9194: 'EXCEPTION : '||P_BILL_FROM_SITE_ID_TBL(i));
9195: END IF;
9196: -- IF l_rep_fiscal_printer_tbl IS NULL THEN
9197: SELECT global_attribute18
9199: FROM ap_supplier_sites_all
9200: WHERE vendor_site_id = P_BILL_FROM_SITE_ID_TBL(i);
9201: -- END IF;
9202: IF ( g_level_statement>= g_current_runtime_level ) THEN
9203: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER',
9204: 'l_fiscal_printer : '||l_fiscal_printer_tbl(i));
9205: END IF;
9206: X_FISCAL_PRINTER_TBL(i):=l_fiscal_printer_tbl(i);
9207:
9216: END IF;
9217: END LOOP;
9218:
9219: IF (g_level_procedure >= g_current_runtime_level ) THEN
9220: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER.END',
9221: 'GET_FISCAL_PRINTER(-)');
9222: END IF;
9223:
9224: EXCEPTION
9224: EXCEPTION
9225:
9226: WHEN NO_DATA_FOUND THEN
9227: IF ( g_level_statement>= g_current_runtime_level ) THEN
9228: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER',
9229: 'ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER : '||substrb(SQLERRM,1,120) );
9230: END IF;
9231: -- X_FISCAL_PRINTER_TBL(i) := NULL;
9232:
9232:
9233: WHEN OTHERS THEN
9234:
9235: IF ( g_level_statement>= g_current_runtime_level ) THEN
9236: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER',
9237: 'ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER : '||substrb(SQLERRM,1,120) );
9238: END IF;
9239:
9240: END GET_FISCAL_PRINTER;
9258: BEGIN
9259:
9260:
9261: IF (g_level_procedure >= g_current_runtime_level ) THEN
9262: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE.BEGIN',
9263: 'GET_TAXPAYERID_TYPE(+)');
9264: END IF;
9265:
9266:
9281: FROM ap_suppliers
9282: WHERE vendor_id = P_BILL_FROM_TP_ID_TBL(i);
9283:
9284: /* IF ( g_level_statement>= g_current_runtime_level ) THEN
9285: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE',
9286: 'l_taxpayerid_type_tbl : '||l_taxpayerid_type_tbl(p_trx_id_tbl(i)));
9287: END IF; */
9288: X_TAXPAYERID_TYPE_TBL(i):=l_taxpayerid_type_tbl(p_trx_id_tbl(i));
9289: X_REG_STATUS_CODE_TBL(i) := l_reg_status_code_tbl(p_trx_id_tbl(i));
9294: X_TAXPAYERID_TYPE_TBL(i):= NULL;
9295: X_REG_STATUS_CODE_TBL(i) := NULL;
9296: ELSE
9297: IF ( g_level_statement>= g_current_runtime_level ) THEN
9298: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE',
9299: 'l_taxpayerid_type_tbl : '||to_char(i)||'-'||l_taxpayerid_type_tbl(p_trx_id_tbl(i)));
9300: END IF;
9301: X_TAXPAYERID_TYPE_TBL(i):=l_taxpayerid_type_tbl(p_trx_id_tbl(i));
9302: X_REG_STATUS_CODE_TBL(i) := l_reg_status_code_tbl(p_trx_id_tbl(i));
9307: END IF;
9308: END LOOP;
9309:
9310: IF (g_level_procedure >= g_current_runtime_level ) THEN
9311: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE.END',
9312: 'GET_TAXPAYERID_TYPE(-)');
9313: END IF;
9314:
9315: EXCEPTION
9315: EXCEPTION
9316:
9317: WHEN NO_DATA_FOUND THEN
9318: IF ( g_level_statement>= g_current_runtime_level ) THEN
9319: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE',
9320: 'ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE : '||substrb(SQLERRM,1,120) );
9321: END IF;
9322: -- X_FISCAL_PRINTER_TBL(i) := NULL;
9323:
9323:
9324: WHEN OTHERS THEN
9325:
9326: IF ( g_level_statement>= g_current_runtime_level ) THEN
9327: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE',
9328: 'ZX_JL_EXTRACT_PKG.GET_TAXPAYERID_TYPE : '||substrb(SQLERRM,1,120) );
9329: END IF;
9330:
9331: END GET_TAXPAYERID_TYPE;
9343: BEGIN
9344:
9345:
9346: IF (g_level_procedure >= g_current_runtime_level ) THEN
9347: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER_AR.BEGIN',
9348: 'GET_FISCAL_PRINTER_AR(+)');
9349: END IF;
9350:
9351:
9364: FROM ra_batch_sources_all
9365: WHERE batch_source_id = P_BATCH_SOURCE_ID_TBL(i);
9366:
9367: IF ( g_level_statement>= g_current_runtime_level ) THEN
9368: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER_AR',
9369: 'l_fiscal_printer : '||l_fiscal_printer_tbl(i));
9370: END IF;
9371: X_FISCAL_PRINTER_TBL(i):=l_fiscal_printer_tbl(i);
9372:
9381: END IF;
9382: END LOOP;
9383:
9384: IF (g_level_procedure >= g_current_runtime_level ) THEN
9385: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER_AR.END',
9386: 'GET_FISCAL_PRINTER_AR(-)');
9387: END IF;
9388:
9389: EXCEPTION
9389: EXCEPTION
9390:
9391: WHEN NO_DATA_FOUND THEN
9392: IF ( g_level_statement>= g_current_runtime_level ) THEN
9393: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER',
9394: 'ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER_AR : '||substrb(SQLERRM,1,120) );
9395: END IF;
9396:
9397: WHEN OTHERS THEN
9396:
9397: WHEN OTHERS THEN
9398:
9399: IF ( g_level_statement>= g_current_runtime_level ) THEN
9400: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER',
9401: 'ZX_JL_EXTRACT_PKG.GET_FISCAL_PRINTER : '||substrb(SQLERRM,1,120) );
9402: END IF;
9403:
9404: END GET_FISCAL_PRINTER_AR;
9436:
9437: BEGIN
9438:
9439: IF (g_level_procedure >= g_current_runtime_level ) THEN
9440: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOC_TAXABLE_AMOUNT',
9441: 'GET_TOTAL_DOC_TAXABLE_AMOUNT(+) ');
9442: END IF;
9443:
9444: FOR i in 1..nvl(p_trx_id_tbl.last,0) LOOP
9469: null;
9470: WHEN OTHERS THEN
9471: l_err_msg := substrb(SQLERRM,1,120);
9472: IF (g_level_procedure >= g_current_runtime_level ) THEN
9473: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOC_TAXABLE_AMOUNT',
9474: 'EXCEPTION raised in ' ||'GET_TOTAL_DOC_TAXABLE_AMOUNT: ' ||SQLCODE ||':'||l_err_msg);
9475: END IF;
9476:
9477: END;
9482:
9483: END IF;
9484:
9485: IF ( g_level_statement>= g_current_runtime_level ) THEN
9486: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_JL_EXTRACT_PKG',
9487: ' X_TOTAL_DOC_TAXAB_AMT_TBL for i: '||i||' trx_id : '||to_char(p_trx_id_tbl(i))||' is : '||to_char(X_TOTAL_DOC_TAXAB_AMT_TBL(i)));
9488: END IF;
9489:
9490: END LOOP;
9488: END IF;
9489:
9490: END LOOP;
9491: IF (g_level_procedure >= g_current_runtime_level ) THEN
9492: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_JL_EXTRACT_PKG.GET_TOTAL_DOC_TAXABLE_AMOUNT',
9493: 'GET_TOTAL_DOC_TAXABLE_AMOUNT(-) ');
9494: END IF;
9495:
9496: END GET_TOTAL_DOC_TAXABLE_AMOUNT;