1: PACKAGE BODY OKI_DBI_LOAD_CLEB_PVT AS
2: /* $Header: OKIRILEB.pls 120.28 2008/01/10 19:08:30 syeddana ship $ */
3:
4: g_debug BOOLEAN;
5: g_4712_date date;
34: bis_collection_utilities.put_line(sqlerrm || '' || sqlcode ) ;
35: fnd_message.set_name( application => 'FND'
36: , name => 'CRM-DEBUG ERROR' ) ;
37: fnd_message.set_token( token => 'ROUTINE'
38: , value => 'OKI_DBI_LOAD_CLEB_PVT.log' ) ;
39: bis_collection_utilities.put_line(fnd_message.get) ;
40: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
41: END rlog;
42:
55: bis_collection_utilities.put_line(sqlerrm || '' || sqlcode ) ;
56: fnd_message.set_name( application => 'FND'
57: , name => 'CRM-DEBUG ERROR' ) ;
58: fnd_message.set_token( token => 'ROUTINE'
59: , value => 'OKI_DBI_LOAD_CLEB_PVT.out ' ) ;
60: bis_collection_utilities.put_line(fnd_message.get) ;
61: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: END rout;
63:
128: -- Lesters feedback 5/19/04
129: l_sql_string := 'alter session set workarea_size_policy = manual';
130: EXECUTE IMMEDIATE l_sql_string;
131:
132: OKI_DBI_LOAD_CLEB_PVT.g_load_type := 'INITIAL LOAD';
133: rlog( 'Resetting base tables and BIS log file ' ||
134: fnd_date.date_to_displayDT(sysdate),1);
135: reset_base_tables(errbuf, retcode);
136:
186: fnd_message.set_name( application => 'FND'
187: , name => 'CRM-DEBUG ERROR' ) ;
188: fnd_message.set_token(
189: token => 'ROUTINE'
190: , value => 'OKI_DBI_LOAD_CLEB_PVT.INITIAL_LOAD ' ) ;
191: bis_collection_utilities.put_line(fnd_message.get) ;
192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
193: END initial_load;
194:
255: fnd_message.set_name( application => 'FND'
256: , name => 'CRM-DEBUG ERROR' ) ;
257: fnd_message.set_token(
258: token => 'ROUTINE'
259: , value => 'OKI_DBI_LOAD_CLEB_PVT.RESET_BASE_TABLES ' ) ;
260: bis_collection_utilities.put_line(fnd_message.get) ;
261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: END reset_base_tables;
263:
306: l_run_date := sysdate;
307: g_global_start_date := bis_common_parameters.get_global_start_date;
308: g_no_of_workers := p_no_of_workers;
309:
310: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD')
311: THEN
312: l_setup_ok := BIS_COLLECTION_UTILITIES.setup('OKIDBICLEB');
313: IF (NOT l_setup_ok) THEN
314: errbuf := fnd_message.get;
324:
325: -- Check to see if User entered the start date for incremental load as param.
326: -- if not default to previous last refresh of load date.(from bis_refresh_log)
327:
328: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD')
329: THEN
330: IF(p_start_date IS NULL )
331: THEN
332: l_start_date := fnd_date.displaydt_to_date(BIS_COLLECTION_UTILITIES.get_last_refresh_period('OKIDBICLEB'))
346: ELSE
347: l_end_date := to_date(p_end_date,'YYYY/MM/DD HH24:MI:SS');
348: END IF;
349:
350: OKI_DBI_LOAD_CLEB_PVT.g_start_date := l_start_date;
351: OKI_DBI_LOAD_CLEB_PVT.g_end_date := l_end_date;
352: OKI_DBI_LOAD_CLEB_PVT.g_run_date := l_run_date;
353:
354: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD')
347: l_end_date := to_date(p_end_date,'YYYY/MM/DD HH24:MI:SS');
348: END IF;
349:
350: OKI_DBI_LOAD_CLEB_PVT.g_start_date := l_start_date;
351: OKI_DBI_LOAD_CLEB_PVT.g_end_date := l_end_date;
352: OKI_DBI_LOAD_CLEB_PVT.g_run_date := l_run_date;
353:
354: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD')
355: THEN
348: END IF;
349:
350: OKI_DBI_LOAD_CLEB_PVT.g_start_date := l_start_date;
351: OKI_DBI_LOAD_CLEB_PVT.g_end_date := l_end_date;
352: OKI_DBI_LOAD_CLEB_PVT.g_run_date := l_run_date;
353:
354: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD')
355: THEN
356: rlog( 'Start date - '|| fnd_date.date_to_displayDT(l_start_date),1);
350: OKI_DBI_LOAD_CLEB_PVT.g_start_date := l_start_date;
351: OKI_DBI_LOAD_CLEB_PVT.g_end_date := l_end_date;
352: OKI_DBI_LOAD_CLEB_PVT.g_run_date := l_run_date;
353:
354: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD')
355: THEN
356: rlog( 'Start date - '|| fnd_date.date_to_displayDT(l_start_date),1);
357: rlog( 'End date - '|| fnd_date.date_to_displayDT(l_end_date),1);
358: rlog( 'Processing Deletes ' || fnd_date.date_to_displayDT(sysdate),1);
355: THEN
356: rlog( 'Start date - '|| fnd_date.date_to_displayDT(l_start_date),1);
357: rlog( 'End date - '|| fnd_date.date_to_displayDT(l_end_date),1);
358: rlog( 'Processing Deletes ' || fnd_date.date_to_displayDT(sysdate),1);
359: OKI_DBI_LOAD_CLEB_PVT.process_deletes;
360: OKI_DBI_LOAD_CLEB_PVT.populate_inc_table_inc;
361: ELSE
362: OKI_DBI_LOAD_CLEB_PVT.populate_inc_table_init;
363: END IF;
356: rlog( 'Start date - '|| fnd_date.date_to_displayDT(l_start_date),1);
357: rlog( 'End date - '|| fnd_date.date_to_displayDT(l_end_date),1);
358: rlog( 'Processing Deletes ' || fnd_date.date_to_displayDT(sysdate),1);
359: OKI_DBI_LOAD_CLEB_PVT.process_deletes;
360: OKI_DBI_LOAD_CLEB_PVT.populate_inc_table_inc;
361: ELSE
362: OKI_DBI_LOAD_CLEB_PVT.populate_inc_table_init;
363: END IF;
364:
358: rlog( 'Processing Deletes ' || fnd_date.date_to_displayDT(sysdate),1);
359: OKI_DBI_LOAD_CLEB_PVT.process_deletes;
360: OKI_DBI_LOAD_CLEB_PVT.populate_inc_table_inc;
361: ELSE
362: OKI_DBI_LOAD_CLEB_PVT.populate_inc_table_init;
363: END IF;
364:
365: rlog( 'Populating Currencies Table OKI_DBI_CURR_CONV - ' || fnd_date.date_to_displayDT(sysdate),1);
366: OKI_DBI_LOAD_CLEB_PVT.load_currencies;
362: OKI_DBI_LOAD_CLEB_PVT.populate_inc_table_init;
363: END IF;
364:
365: rlog( 'Populating Currencies Table OKI_DBI_CURR_CONV - ' || fnd_date.date_to_displayDT(sysdate),1);
366: OKI_DBI_LOAD_CLEB_PVT.load_currencies;
367: rlog( 'Load of Currencies Table OKI_DBI_CURR_CONV completed - ' || fnd_date.date_to_displayDT(sysdate),1);
368:
369: rlog( 'Checking negative rates in Table OKI_DBI_CURR_CONV - ' ||
370: fnd_date.date_to_displayDT(sysdate),1);
376:
377: IF(nvl(l_missing_flag,0) > 0) -- There are missing currencies
378: THEN
379: rlog( 'Reporting Missing Currencies ' || fnd_date.date_to_displayDT(sysdate),1);
380: OKI_DBI_LOAD_CLEB_PVT.report_missing_currencies;
381:
382: errbuf := 'There are missing currencies';
383: rlog( 'ERROR : Missing Currencies, view output file for details',0);
384: retcode := 2;
385: RAISE_APPLICATION_ERROR (-20000, 'Error in INC table collection: ' || errbuf);
386: COMMIT ;
387: END IF ;
388:
389: IF( OKI_DBI_LOAD_CLEB_PVT.g_load_type = 'INITIAL LOAD')
390: THEN
391: OKI_DBI_LOAD_CLEB_PVT.direct_load(l_recs_processed);
392: ELSE
393:
387: END IF ;
388:
389: IF( OKI_DBI_LOAD_CLEB_PVT.g_load_type = 'INITIAL LOAD')
390: THEN
391: OKI_DBI_LOAD_CLEB_PVT.direct_load(l_recs_processed);
392: ELSE
393:
394: IF ( g_contracts_count > 0 OR g_del_count > 0 ) THEN
395: OKI_DBI_LOAD_CLEB_PVT.incr_load(l_recs_processed);
391: OKI_DBI_LOAD_CLEB_PVT.direct_load(l_recs_processed);
392: ELSE
393:
394: IF ( g_contracts_count > 0 OR g_del_count > 0 ) THEN
395: OKI_DBI_LOAD_CLEB_PVT.incr_load(l_recs_processed);
396: ELSE
397: rlog ('No contracts are identified for update/delete',1);
398: END IF;
399:
406:
407: BIS_COLLECTION_UTILITIES.wrapup(TRUE,
408: l_count,
409: 'OKI DBI COV LINES COLLECTION SUCCEEDED',
410: OKI_DBI_LOAD_CLEB_PVT.g_start_date,
411: OKI_DBI_LOAD_CLEB_PVT.g_end_date
412: );
413:
414: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD') THEN
407: BIS_COLLECTION_UTILITIES.wrapup(TRUE,
408: l_count,
409: 'OKI DBI COV LINES COLLECTION SUCCEEDED',
410: OKI_DBI_LOAD_CLEB_PVT.g_start_date,
411: OKI_DBI_LOAD_CLEB_PVT.g_end_date
412: );
413:
414: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD') THEN
415: rlog('SUCCESS: Load Program Successfully completed ' || fnd_date.date_to_displayDT(SYSDATE),0);
410: OKI_DBI_LOAD_CLEB_PVT.g_start_date,
411: OKI_DBI_LOAD_CLEB_PVT.g_end_date
412: );
413:
414: IF( NVL(OKI_DBI_LOAD_CLEB_PVT.g_load_type,'INC LOAD') <> 'INITIAL LOAD') THEN
415: rlog('SUCCESS: Load Program Successfully completed ' || fnd_date.date_to_displayDT(SYSDATE),0);
416: DECLARE
417: l_days NUMBER;
418: l_hours NUMBER;
464: errbuf := SQLERRM ;
465: BIS_COLLECTION_UTILITIES.wrapup(FALSE,
466: l_count,
467: errbuf || ': ' || retcode,
468: OKI_DBI_LOAD_CLEB_PVT.g_start_date,
469: OKI_DBI_LOAD_CLEB_PVT.g_end_date
470: ) ;
471: fnd_message.set_name( application => 'FND'
472: , name => 'CRM-DEBUG ERROR' ) ;
465: BIS_COLLECTION_UTILITIES.wrapup(FALSE,
466: l_count,
467: errbuf || ': ' || retcode,
468: OKI_DBI_LOAD_CLEB_PVT.g_start_date,
469: OKI_DBI_LOAD_CLEB_PVT.g_end_date
470: ) ;
471: fnd_message.set_name( application => 'FND'
472: , name => 'CRM-DEBUG ERROR' ) ;
473: fnd_message.set_token(
471: fnd_message.set_name( application => 'FND'
472: , name => 'CRM-DEBUG ERROR' ) ;
473: fnd_message.set_token(
474: token => 'ROUTINE'
475: , value => 'OKI_DBI_LOAD_CLEB_PVT.populate_base_tables ' ) ;
476: bis_collection_utilities.put_line(fnd_message.get) ;
477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: END populate_base_tables;
479:
507:
508: BEGIN
509:
510:
511: l_start_date := OKI_DBI_LOAD_CLEB_PVT.G_Start_Date;
512: l_end_date := OKI_DBI_LOAD_CLEB_PVT.G_End_Date;
513: l_global_curr := BIS_COMMON_PARAMETERS.Get_Currency_Code;
514: l_sysdate := OKI_DBI_LOAD_CLEB_PVT.G_Run_Date;
515: l_rate_type := BIS_COMMON_PARAMETERS.Get_Rate_Type;
508: BEGIN
509:
510:
511: l_start_date := OKI_DBI_LOAD_CLEB_PVT.G_Start_Date;
512: l_end_date := OKI_DBI_LOAD_CLEB_PVT.G_End_Date;
513: l_global_curr := BIS_COMMON_PARAMETERS.Get_Currency_Code;
514: l_sysdate := OKI_DBI_LOAD_CLEB_PVT.G_Run_Date;
515: l_rate_type := BIS_COMMON_PARAMETERS.Get_Rate_Type;
516: l_srate_type := bis_common_parameters.get_secondary_rate_type ;
510:
511: l_start_date := OKI_DBI_LOAD_CLEB_PVT.G_Start_Date;
512: l_end_date := OKI_DBI_LOAD_CLEB_PVT.G_End_Date;
513: l_global_curr := BIS_COMMON_PARAMETERS.Get_Currency_Code;
514: l_sysdate := OKI_DBI_LOAD_CLEB_PVT.G_Run_Date;
515: l_rate_type := BIS_COMMON_PARAMETERS.Get_Rate_Type;
516: l_srate_type := bis_common_parameters.get_secondary_rate_type ;
517: l_annu_curr_code := CASE bis_common_parameters.get_annualized_currency_code
518: WHEN 'PRIMARY' THEN 'Primary'
1040: fnd_message.set_name( application => 'FND'
1041: , name => 'CRM-DEBUG ERROR' ) ;
1042: fnd_message.set_token(
1043: token => 'ROUTINE'
1044: , value => 'OKI_DBI_LOAD_CLEB_PVT.POPULATE_INC_TABLE_INIT ' ) ;
1045: bis_collection_utilities.put_line(fnd_message.get) ;
1046: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
1047: END populate_inc_table_init ;
1048:
1083: AND clsop.opn_code in ('RENEWAL','REN_CON')
1084: );
1085:
1086:
1087: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
1088: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
1089: l_global_curr := bis_common_parameters.get_currency_code ;
1090: l_sysdate := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
1091:
1084: );
1085:
1086:
1087: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
1088: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
1089: l_global_curr := bis_common_parameters.get_currency_code ;
1090: l_sysdate := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
1091:
1092: -- Added by Arun for secondary global currency conversion changes
1086:
1087: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
1088: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
1089: l_global_curr := bis_common_parameters.get_currency_code ;
1090: l_sysdate := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
1091:
1092: -- Added by Arun for secondary global currency conversion changes
1093: IF(POA_CURRENCY_PKG.display_secondary_currency_yn)
1094: THEN
1702: fnd_message.set_name( application => 'FND'
1703: , name => 'CRM-DEBUG ERROR' ) ;
1704: fnd_message.set_token(
1705: token => 'ROUTINE'
1706: , value => 'OKI_DBI_LOAD_CLEB_PVT.POPULATE_INC_TABLE_INC ' ) ;
1707: bis_collection_utilities.put_line(fnd_message.get) ;
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
1709: END populate_inc_table_inc ;
1710:
1782: bis_collection_utilities.put_line(sqlerrm || '' || sqlcode ) ;
1783: fnd_message.set_name( application => 'FND'
1784: , name => 'CRM-DEBUG ERROR' ) ;
1785: fnd_message.set_token( token => 'ROUTINE'
1786: , value => 'OKI_DBI_LOAD_CLEB_PVT.load_currencies' ) ;
1787: bis_collection_utilities.put_line(fnd_message.get) ;
1788: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1789:
1790: END load_currencies;
2105: fnd_message.set_name( application => 'FND'
2106: , name => 'CRM-DEBUG ERROR' ) ;
2107: fnd_message.set_token(
2108: token => 'ROUTINE'
2109: , value => 'OKI_DBI_LOAD_CLEB_PVT.report_missing_currencies ' ) ;
2110: bis_collection_utilities.put_line(fnd_message.get) ;
2111: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
2112: END report_missing_currencies ;
2113:
2171: fnd_message.set_name( application => 'FND'
2172: , name => 'CRM-DEBUG ERROR' ) ;
2173: fnd_message.set_token(
2174: token => 'ROUTINE'
2175: , value => 'OKI_DBI_LOAD_CLEB_PVT.PROCESS_DELETES ' ) ;
2176: bis_collection_utilities.put_line(fnd_message.get) ;
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: END process_deletes;
2179:
2980: rlog(l_location , 0) ;
2981: fnd_message.set_name( application => 'FND'
2982: , name => 'CRM-DEBUG ERROR' ) ;
2983: fnd_message.set_token( token => 'ROUTINE'
2984: , value => 'OKI_DBI_LOAD_CLEB_PVT.LOAD_STAGING ' ) ;
2985: bis_collection_utilities.put_line(fnd_message.get) ;
2986: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
2987: END load_staging;
2988:
3011: l_count NUMBER;
3012: l_location VARCHAR2(1000);
3013:
3014: BEGIN
3015: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
3016: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
3017: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
3018:
3019: rlog('Populating table OKI_DBI_REN_INC due to ''Operation Lines Changes'': '
3012: l_location VARCHAR2(1000);
3013:
3014: BEGIN
3015: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
3016: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
3017: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
3018:
3019: rlog('Populating table OKI_DBI_REN_INC due to ''Operation Lines Changes'': '
3020: ||fnd_date.date_to_displayDT(sysdate), 1) ;
3013:
3014: BEGIN
3015: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
3016: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
3017: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
3018:
3019: rlog('Populating table OKI_DBI_REN_INC due to ''Operation Lines Changes'': '
3020: ||fnd_date.date_to_displayDT(sysdate), 1) ;
3021: /* Changes to operation_lines */
3204: fnd_message.set_name( application => 'FND'
3205: , name => 'CRM-DEBUG ERROR' ) ;
3206: fnd_message.set_token(
3207: token => 'ROUTINE'
3208: , value => 'OKI_DBI_LOAD_CLEB_PVT.POPULATE_REN_REL' ) ;
3209: bis_collection_utilities.put_line(fnd_message.get) ;
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: END populate_ren_rel;
3212:
3281: fnd_message.set_name( application => 'FND'
3282: , name => 'CRM-DEBUG ERROR' ) ;
3283: fnd_message.set_token(
3284: token => 'ROUTINE'
3285: , value => 'OKI_DBI_LOAD_CLEB_PVT.Update_RHS ' ) ;
3286: bis_collection_utilities.put_line(fnd_message.get) ;
3287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
3288: END update_RHS ;
3289:
3405: fnd_message.set_name( application => 'FND'
3406: , name => 'CRM-DEBUG ERROR' ) ;
3407: fnd_message.set_token(
3408: token => 'ROUTINE'
3409: , value => 'OKI_DBI_LOAD_CLEB_PVT.Update_LHS ' ) ;
3410: bis_collection_utilities.put_line(fnd_message.get) ;
3411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
3412: END Update_LHS;
3413:
3446: l_request_id := FND_GLOBAL.conc_request_id;
3447: l_program_application_id := FND_GLOBAL.prog_appl_id;
3448: l_program_id := FND_GLOBAL.conc_program_id;
3449: l_program_login_id := FND_GLOBAL.conc_login_id;
3450: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
3451: l_oki_schema :='OKI';
3452: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
3453: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
3454:
3448: l_program_id := FND_GLOBAL.conc_program_id;
3449: l_program_login_id := FND_GLOBAL.conc_login_id;
3450: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
3451: l_oki_schema :='OKI';
3452: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
3453: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
3454:
3455:
3456: /* Contracts count may be less than the no of workers. */
3449: l_program_login_id := FND_GLOBAL.conc_login_id;
3450: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
3451: l_oki_schema :='OKI';
3452: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
3453: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
3454:
3455:
3456: /* Contracts count may be less than the no of workers. */
3457: l_location := 'Deriving No of workers';
3585: ||TO_CHAR(l_count),2);
3586: rlog('Load of table OKI_DBI_REN_INC from OKI_DBI_PREV_INC completed: '
3587: ||fnd_date.date_to_displayDT(sysdate), 1) ;
3588: COMMIT;
3589: OKI_DBI_LOAD_CLEB_PVT.populate_ren_rel(l_no_of_workers);
3590:
3591: ELSIF( l_phase = 3 ) THEN
3592:
3593: GATHER_TABLE_STATS(TABNAME=>'OKI_DBI_PREV_INC');
4505: fnd_message.set_name( application => 'FND'
4506: , name => 'CRM-DEBUG ERROR' ) ;
4507: fnd_message.set_token(
4508: token => 'ROUTINE'
4509: , value => 'OKI_DBI_LOAD_CLEB_PVT.INCR_LOAD' ) ;
4510: bis_collection_utilities.put_line(fnd_message.get) ;
4511: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
4512: END incr_load;
4513:
4560: l_program_application_id := fnd_global.PROG_APPL_ID;
4561: l_program_id := fnd_global.CONC_PROGRAM_ID;
4562: l_program_login_id := fnd_global.conc_login_id;
4563:
4564: l_sysdate := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
4565: l_annu_curr_code := bis_common_parameters. get_annualized_currency_code;
4566: l_glob_curr_code := 'PRIMARY';/* BUg 4015406 bis_common_parameters.get_currency_code; */
4567: l_sglob_curr_code := 'SECONDARY';/*bis_common_parameters.get_secondary_currency_code;*/
4568:
4565: l_annu_curr_code := bis_common_parameters. get_annualized_currency_code;
4566: l_glob_curr_code := 'PRIMARY';/* BUg 4015406 bis_common_parameters.get_currency_code; */
4567: l_sglob_curr_code := 'SECONDARY';/*bis_common_parameters.get_secondary_currency_code;*/
4568:
4569: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
4570: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
4571: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
4572: l_dop := 1 ;
4573:
4566: l_glob_curr_code := 'PRIMARY';/* BUg 4015406 bis_common_parameters.get_currency_code; */
4567: l_sglob_curr_code := 'SECONDARY';/*bis_common_parameters.get_secondary_currency_code;*/
4568:
4569: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
4570: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
4571: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
4572: l_dop := 1 ;
4573:
4574: l_salesperson_code := fnd_profile.value('OKS_ENABLE_SALES_CREDIT');
4567: l_sglob_curr_code := 'SECONDARY';/*bis_common_parameters.get_secondary_currency_code;*/
4568:
4569: l_start_date := OKI_DBI_LOAD_CLEB_PVT.g_start_date ;
4570: l_end_date := OKI_DBI_LOAD_CLEB_PVT.g_end_date ;
4571: l_run_date := OKI_DBI_LOAD_CLEB_PVT.g_run_date ;
4572: l_dop := 1 ;
4573:
4574: l_salesperson_code := fnd_profile.value('OKS_ENABLE_SALES_CREDIT');
4575: IF l_salesperson_code IN ('YES', 'DRT') THEN /* Added 'DRT' filter condition, Please refer Bug#5978601 */
5672: bis_collection_utilities.put_line(sqlerrm || '' || sqlcode ) ;
5673: fnd_message.set_name( application => 'FND'
5674: , name => 'CRM-DEBUG ERROR' ) ;
5675: fnd_message.set_token( token => 'ROUTINE'
5676: , value => 'OKI_DBI_LOAD_CLEB_PVT.direct_load ' ) ;
5677: bis_collection_utilities.put_line(fnd_message.get) ;
5678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5679: END direct_load;
5680:
5953: fnd_message.set_name( application => 'FND'
5954: , name => 'CRM-DEBUG ERROR' ) ;
5955: fnd_message.set_token(
5956: token => 'ROUTINE'
5957: , value => 'OKI_DBI_LOAD_CLEB_PVT.delta_changes ' ) ;
5958: bis_collection_utilities.put_line(fnd_message.get) ;
5959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
5960:
5961: END;
6356: fnd_message.set_name( application => 'FND'
6357: , name => 'CRM-DEBUG ERROR' ) ;
6358: fnd_message.set_token(
6359: token => 'ROUTINE'
6360: , value => 'OKI_DBI_LOAD_CLEB_PVT.update_staging ' ) ;
6361: bis_collection_utilities.put_line(fnd_message.get) ;
6362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
6363: END ;
6364:
6484: fnd_message.set_name( application => 'FND'
6485: , name => 'CRM-DEBUG ERROR' ) ;
6486: fnd_message.set_token(
6487: token => 'ROUTINE'
6488: , value => 'OKI_DBI_LOAD_CLEB_PVT.populate_prev_inc ' ) ;
6489: bis_collection_utilities.put_line(fnd_message.get) ;
6490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
6491: END;
6492:
6491: END;
6492:
6493:
6494:
6495: END OKI_DBI_LOAD_CLEB_PVT;