DBA Data[Home] [Help]

APPS.OKI_LOAD_RAG_PVT dependencies on OKI_LOAD_RAG_PVT

Line 1: PACKAGE BODY oki_load_rag_pvt AS

1: PACKAGE BODY oki_load_rag_pvt AS
2: /* $Header: OKIRRAGB.pls 115.8 2003/11/24 08:25:03 kbajaj ship $ */
3:
4: --------------------------------------------------------------------------------
5: -- Modification History

Line 142: , oki_load_rag_pvt.g_request_id

138: , p_age_group1
139: , p_age_group2
140: , p_age_group3
141: , p_age_group4
142: , oki_load_rag_pvt.g_request_id
143: , oki_load_rag_pvt.g_program_application_id
144: , oki_load_rag_pvt.g_program_id
145: , oki_load_rag_pvt.g_program_update_date ) ;
146:

Line 143: , oki_load_rag_pvt.g_program_application_id

139: , p_age_group2
140: , p_age_group3
141: , p_age_group4
142: , oki_load_rag_pvt.g_request_id
143: , oki_load_rag_pvt.g_program_application_id
144: , oki_load_rag_pvt.g_program_id
145: , oki_load_rag_pvt.g_program_update_date ) ;
146:
147: EXCEPTION

Line 144: , oki_load_rag_pvt.g_program_id

140: , p_age_group3
141: , p_age_group4
142: , oki_load_rag_pvt.g_request_id
143: , oki_load_rag_pvt.g_program_application_id
144: , oki_load_rag_pvt.g_program_id
145: , oki_load_rag_pvt.g_program_update_date ) ;
146:
147: EXCEPTION
148: WHEN OTHERS THEN

Line 145: , oki_load_rag_pvt.g_program_update_date ) ;

141: , p_age_group4
142: , oki_load_rag_pvt.g_request_id
143: , oki_load_rag_pvt.g_program_application_id
144: , oki_load_rag_pvt.g_program_id
145: , oki_load_rag_pvt.g_program_update_date ) ;
146:
147: EXCEPTION
148: WHEN OTHERS THEN
149: l_sqlcode := SQLCODE ;

Line 197: , request_id = oki_load_rag_pvt.g_request_id

193: age_group1 = p_age_group1
194: , age_group2 = p_age_group2
195: , age_group3 = p_age_group3
196: , age_group4 = p_age_group4
197: , request_id = oki_load_rag_pvt.g_request_id
198: , program_application_id = oki_load_rag_pvt.g_program_application_id
199: , program_id = oki_load_rag_pvt.g_program_id
200: , program_update_date = oki_load_rag_pvt.g_program_update_date
201: WHERE ROWID = p_rag_rowid ;

Line 198: , program_application_id = oki_load_rag_pvt.g_program_application_id

194: , age_group2 = p_age_group2
195: , age_group3 = p_age_group3
196: , age_group4 = p_age_group4
197: , request_id = oki_load_rag_pvt.g_request_id
198: , program_application_id = oki_load_rag_pvt.g_program_application_id
199: , program_id = oki_load_rag_pvt.g_program_id
200: , program_update_date = oki_load_rag_pvt.g_program_update_date
201: WHERE ROWID = p_rag_rowid ;
202:

Line 199: , program_id = oki_load_rag_pvt.g_program_id

195: , age_group3 = p_age_group3
196: , age_group4 = p_age_group4
197: , request_id = oki_load_rag_pvt.g_request_id
198: , program_application_id = oki_load_rag_pvt.g_program_application_id
199: , program_id = oki_load_rag_pvt.g_program_id
200: , program_update_date = oki_load_rag_pvt.g_program_update_date
201: WHERE ROWID = p_rag_rowid ;
202:
203: EXCEPTION

Line 200: , program_update_date = oki_load_rag_pvt.g_program_update_date

196: , age_group4 = p_age_group4
197: , request_id = oki_load_rag_pvt.g_request_id
198: , program_application_id = oki_load_rag_pvt.g_program_application_id
199: , program_id = oki_load_rag_pvt.g_program_id
200: , program_update_date = oki_load_rag_pvt.g_program_update_date
201: WHERE ROWID = p_rag_rowid ;
202:
203: EXCEPTION
204: WHEN OTHERS THEN

Line 215: , value => 'OKI_LOAD_RAG_PVT.OKI_UPD_RNWL_AGING' );

211: fnd_message.set_name( application => 'OKI'
212: , name => 'OKI_UNEXPECTED_FAILURE' );
213:
214: fnd_message.set_token( token => 'OBJECT_NAME'
215: , value => 'OKI_LOAD_RAG_PVT.OKI_UPD_RNWL_AGING' );
216:
217: fnd_file.put_line( which => fnd_file.log
218: , buff => fnd_message.get);
219:

Line 291: , value => 'OKI_LOAD_RAG_PVT.CALC_AGE_GROUP');

287: fnd_message.set_name( application => 'OKI'
288: , name => 'OKI_UNEXPECTED_FAILURE');
289:
290: fnd_message.set_token( token => 'OBJECT_NAME'
291: , value => 'OKI_LOAD_RAG_PVT.CALC_AGE_GROUP');
292:
293: fnd_file.put_line( which => fnd_file.log
294: , buff => fnd_message.get);
295:

Line 420: oki_load_rag_pvt.calc_age_group (

416: -- Initialize return code to success
417: l_retcode := '0';
418:
419: -- Get the ranges for the aging buckets
420: oki_load_rag_pvt.calc_age_group (
421: x_start_age_group1 => oki_load_rag_pvt.g_start_age_group1
422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1
423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2

Line 421: x_start_age_group1 => oki_load_rag_pvt.g_start_age_group1

417: l_retcode := '0';
418:
419: -- Get the ranges for the aging buckets
420: oki_load_rag_pvt.calc_age_group (
421: x_start_age_group1 => oki_load_rag_pvt.g_start_age_group1
422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1
423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2
425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3

Line 422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1

418:
419: -- Get the ranges for the aging buckets
420: oki_load_rag_pvt.calc_age_group (
421: x_start_age_group1 => oki_load_rag_pvt.g_start_age_group1
422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1
423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2
425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3
426: , x_end_age_group3 => oki_load_rag_pvt.g_end_age_group3

Line 423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2

419: -- Get the ranges for the aging buckets
420: oki_load_rag_pvt.calc_age_group (
421: x_start_age_group1 => oki_load_rag_pvt.g_start_age_group1
422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1
423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2
425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3
426: , x_end_age_group3 => oki_load_rag_pvt.g_end_age_group3
427: , x_start_age_group4 => oki_load_rag_pvt.g_start_age_group4

Line 424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2

420: oki_load_rag_pvt.calc_age_group (
421: x_start_age_group1 => oki_load_rag_pvt.g_start_age_group1
422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1
423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2
425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3
426: , x_end_age_group3 => oki_load_rag_pvt.g_end_age_group3
427: , x_start_age_group4 => oki_load_rag_pvt.g_start_age_group4
428: , x_retcode => l_retcode );

Line 425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3

421: x_start_age_group1 => oki_load_rag_pvt.g_start_age_group1
422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1
423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2
425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3
426: , x_end_age_group3 => oki_load_rag_pvt.g_end_age_group3
427: , x_start_age_group4 => oki_load_rag_pvt.g_start_age_group4
428: , x_retcode => l_retcode );
429:

Line 426: , x_end_age_group3 => oki_load_rag_pvt.g_end_age_group3

422: , x_end_age_group1 => oki_load_rag_pvt.g_end_age_group1
423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2
425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3
426: , x_end_age_group3 => oki_load_rag_pvt.g_end_age_group3
427: , x_start_age_group4 => oki_load_rag_pvt.g_start_age_group4
428: , x_retcode => l_retcode );
429:
430: IF l_retcode = '2' THEN

Line 427: , x_start_age_group4 => oki_load_rag_pvt.g_start_age_group4

423: , x_start_age_group2 => oki_load_rag_pvt.g_start_age_group2
424: , x_end_age_group2 => oki_load_rag_pvt.g_end_age_group2
425: , x_start_age_group3 => oki_load_rag_pvt.g_start_age_group3
426: , x_end_age_group3 => oki_load_rag_pvt.g_end_age_group3
427: , x_start_age_group4 => oki_load_rag_pvt.g_start_age_group4
428: , x_retcode => l_retcode );
429:
430: IF l_retcode = '2' THEN
431: -- Load failed, exit immediately.

Line 432: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

428: , x_retcode => l_retcode );
429:
430: IF l_retcode = '2' THEN
431: -- Load failed, exit immediately.
432: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
433: END IF ;
434: COMMIT;
435:
436: l_loc := 'Looping through valid organizations.' ;

Line 462: rec_l_org_id_csr.scs_code, oki_load_rag_pvt.g_start_age_group1,

458: l_loc := 'Opening cursor to determine the age.' ;
459: -- Calculate the forecast amount for a given organization
460: OPEN l_rnwl_age_csr (p_summary_build_date,
461: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_id,
462: rec_l_org_id_csr.scs_code, oki_load_rag_pvt.g_start_age_group1,
463: oki_load_rag_pvt.g_end_age_group1,
464: oki_load_rag_pvt.g_start_age_group2,
465: oki_load_rag_pvt.g_end_age_group2,
466: oki_load_rag_pvt.g_start_age_group3,

Line 463: oki_load_rag_pvt.g_end_age_group1,

459: -- Calculate the forecast amount for a given organization
460: OPEN l_rnwl_age_csr (p_summary_build_date,
461: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_id,
462: rec_l_org_id_csr.scs_code, oki_load_rag_pvt.g_start_age_group1,
463: oki_load_rag_pvt.g_end_age_group1,
464: oki_load_rag_pvt.g_start_age_group2,
465: oki_load_rag_pvt.g_end_age_group2,
466: oki_load_rag_pvt.g_start_age_group3,
467: oki_load_rag_pvt.g_end_age_group3,

Line 464: oki_load_rag_pvt.g_start_age_group2,

460: OPEN l_rnwl_age_csr (p_summary_build_date,
461: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_id,
462: rec_l_org_id_csr.scs_code, oki_load_rag_pvt.g_start_age_group1,
463: oki_load_rag_pvt.g_end_age_group1,
464: oki_load_rag_pvt.g_start_age_group2,
465: oki_load_rag_pvt.g_end_age_group2,
466: oki_load_rag_pvt.g_start_age_group3,
467: oki_load_rag_pvt.g_end_age_group3,
468: oki_load_rag_pvt.g_start_age_group4 ) ;

Line 465: oki_load_rag_pvt.g_end_age_group2,

461: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_id,
462: rec_l_org_id_csr.scs_code, oki_load_rag_pvt.g_start_age_group1,
463: oki_load_rag_pvt.g_end_age_group1,
464: oki_load_rag_pvt.g_start_age_group2,
465: oki_load_rag_pvt.g_end_age_group2,
466: oki_load_rag_pvt.g_start_age_group3,
467: oki_load_rag_pvt.g_end_age_group3,
468: oki_load_rag_pvt.g_start_age_group4 ) ;
469: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;

Line 466: oki_load_rag_pvt.g_start_age_group3,

462: rec_l_org_id_csr.scs_code, oki_load_rag_pvt.g_start_age_group1,
463: oki_load_rag_pvt.g_end_age_group1,
464: oki_load_rag_pvt.g_start_age_group2,
465: oki_load_rag_pvt.g_end_age_group2,
466: oki_load_rag_pvt.g_start_age_group3,
467: oki_load_rag_pvt.g_end_age_group3,
468: oki_load_rag_pvt.g_start_age_group4 ) ;
469: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
470: IF l_rnwl_age_csr%FOUND THEN

Line 467: oki_load_rag_pvt.g_end_age_group3,

463: oki_load_rag_pvt.g_end_age_group1,
464: oki_load_rag_pvt.g_start_age_group2,
465: oki_load_rag_pvt.g_end_age_group2,
466: oki_load_rag_pvt.g_start_age_group3,
467: oki_load_rag_pvt.g_end_age_group3,
468: oki_load_rag_pvt.g_start_age_group4 ) ;
469: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
470: IF l_rnwl_age_csr%FOUND THEN
471: l_base_fcst_age_group1 := rec_l_rnwl_age_csr.age_group1 ;

Line 468: oki_load_rag_pvt.g_start_age_group4 ) ;

464: oki_load_rag_pvt.g_start_age_group2,
465: oki_load_rag_pvt.g_end_age_group2,
466: oki_load_rag_pvt.g_start_age_group3,
467: oki_load_rag_pvt.g_end_age_group3,
468: oki_load_rag_pvt.g_start_age_group4 ) ;
469: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
470: IF l_rnwl_age_csr%FOUND THEN
471: l_base_fcst_age_group1 := rec_l_rnwl_age_csr.age_group1 ;
472: l_base_fcst_age_group2 := rec_l_rnwl_age_csr.age_group2 ;

Line 480: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,

476: CLOSE l_rnwl_age_csr ;
477:
478: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
479: -- Determine if the record is a new one or an existing one
480: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
481: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
482: rec_l_org_id_csr.customer_id, rec_l_org_id_csr.scs_code ) ;
483: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
484: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN

Line 483: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;

479: -- Determine if the record is a new one or an existing one
480: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
481: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
482: rec_l_org_id_csr.customer_id, rec_l_org_id_csr.scs_code ) ;
483: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
484: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
485: l_loc := 'Insert the new record.' ;
486:
487: -- Insert the current period data for the period

Line 484: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN

480: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
481: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
482: rec_l_org_id_csr.customer_id, rec_l_org_id_csr.scs_code ) ;
483: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
484: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
485: l_loc := 'Insert the new record.' ;
486:
487: -- Insert the current period data for the period
488: oki_load_rag_pvt.ins_rnwl_aging (

Line 488: oki_load_rag_pvt.ins_rnwl_aging (

484: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
485: l_loc := 'Insert the new record.' ;
486:
487: -- Insert the current period data for the period
488: oki_load_rag_pvt.ins_rnwl_aging (
489: p_period_set_name => rec_g_glpr_csr.period_set_name
490: , p_period_name => rec_g_glpr_csr.period_name
491: , p_period_type => rec_g_glpr_csr.period_type
492: , p_authoring_org_id => rec_l_org_id_csr.org_id

Line 505: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

501: , x_retcode => l_retcode ) ;
502:
503: IF l_retcode = '2' THEN
504: -- Load failed, exit immediately.
505: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
506: END IF ;
507: ELSE
508: l_loc := 'Update the existing record.' ;
509: -- Record already exists, so perform an update

Line 510: oki_load_rag_pvt.upd_rnwl_aging (

506: END IF ;
507: ELSE
508: l_loc := 'Update the existing record.' ;
509: -- Record already exists, so perform an update
510: oki_load_rag_pvt.upd_rnwl_aging (
511: p_age_group1 => l_base_fcst_age_group1
512: , p_age_group2 => l_base_fcst_age_group2
513: , p_age_group3 => l_base_fcst_age_group3
514: , p_age_group4 => l_base_fcst_age_group4

Line 520: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

516: , x_retcode => l_retcode ) ;
517:
518: IF l_retcode = '2' THEN
519: -- Load failed, exit immediately.
520: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
521: END IF ;
522: END IF ;
523: CLOSE oki_load_rag_pvt.g_rag_csr ;
524:

Line 523: CLOSE oki_load_rag_pvt.g_rag_csr ;

519: -- Load failed, exit immediately.
520: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
521: END IF ;
522: END IF ;
523: CLOSE oki_load_rag_pvt.g_rag_csr ;
524:
525: END LOOP g_glpr_csr_loop ;
526: END LOOP l_org_id_csr_loop ;
527:

Line 530: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN

526: END LOOP l_org_id_csr_loop ;
527:
528:
529: EXCEPTION
530: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN
531: -- Do not log an error ; It has already been logged.
532: -- Set return code to error
533: x_retcode := '2' ;
534:

Line 547: , value => 'OKI_LOAD_rag_PVT.CALC_RAG_DTL1');

543: fnd_message.set_name( application => 'OKI'
544: , name => 'OKI_UNEXPECTED_FAILURE');
545:
546: fnd_message.set_token( token => 'OBJECT_NAME'
547: , value => 'OKI_LOAD_rag_PVT.CALC_RAG_DTL1');
548:
549: fnd_file.put_line( which => fnd_file.log
550: , buff => fnd_message.get);
551:

Line 710: oki_load_rag_pvt.g_start_age_group1,

706: l_loc := 'Opening cursor to determine the age.' ;
707: -- Calculate the forecast amount for a given organization
708: OPEN l_rnwl_age_csr (p_summary_build_date,
709: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_party_id,
710: oki_load_rag_pvt.g_start_age_group1,
711: oki_load_rag_pvt.g_end_age_group1,
712: oki_load_rag_pvt.g_start_age_group2,
713: oki_load_rag_pvt.g_end_age_group2,
714: oki_load_rag_pvt.g_start_age_group3,

Line 711: oki_load_rag_pvt.g_end_age_group1,

707: -- Calculate the forecast amount for a given organization
708: OPEN l_rnwl_age_csr (p_summary_build_date,
709: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_party_id,
710: oki_load_rag_pvt.g_start_age_group1,
711: oki_load_rag_pvt.g_end_age_group1,
712: oki_load_rag_pvt.g_start_age_group2,
713: oki_load_rag_pvt.g_end_age_group2,
714: oki_load_rag_pvt.g_start_age_group3,
715: oki_load_rag_pvt.g_end_age_group3,

Line 712: oki_load_rag_pvt.g_start_age_group2,

708: OPEN l_rnwl_age_csr (p_summary_build_date,
709: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_party_id,
710: oki_load_rag_pvt.g_start_age_group1,
711: oki_load_rag_pvt.g_end_age_group1,
712: oki_load_rag_pvt.g_start_age_group2,
713: oki_load_rag_pvt.g_end_age_group2,
714: oki_load_rag_pvt.g_start_age_group3,
715: oki_load_rag_pvt.g_end_age_group3,
716: oki_load_rag_pvt.g_start_age_group4 ) ;

Line 713: oki_load_rag_pvt.g_end_age_group2,

709: rec_l_org_id_csr.org_id, rec_l_org_id_csr.customer_party_id,
710: oki_load_rag_pvt.g_start_age_group1,
711: oki_load_rag_pvt.g_end_age_group1,
712: oki_load_rag_pvt.g_start_age_group2,
713: oki_load_rag_pvt.g_end_age_group2,
714: oki_load_rag_pvt.g_start_age_group3,
715: oki_load_rag_pvt.g_end_age_group3,
716: oki_load_rag_pvt.g_start_age_group4 ) ;
717: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;

Line 714: oki_load_rag_pvt.g_start_age_group3,

710: oki_load_rag_pvt.g_start_age_group1,
711: oki_load_rag_pvt.g_end_age_group1,
712: oki_load_rag_pvt.g_start_age_group2,
713: oki_load_rag_pvt.g_end_age_group2,
714: oki_load_rag_pvt.g_start_age_group3,
715: oki_load_rag_pvt.g_end_age_group3,
716: oki_load_rag_pvt.g_start_age_group4 ) ;
717: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
718: IF l_rnwl_age_csr%FOUND THEN

Line 715: oki_load_rag_pvt.g_end_age_group3,

711: oki_load_rag_pvt.g_end_age_group1,
712: oki_load_rag_pvt.g_start_age_group2,
713: oki_load_rag_pvt.g_end_age_group2,
714: oki_load_rag_pvt.g_start_age_group3,
715: oki_load_rag_pvt.g_end_age_group3,
716: oki_load_rag_pvt.g_start_age_group4 ) ;
717: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
718: IF l_rnwl_age_csr%FOUND THEN
719: l_base_fcst_age_group1 := rec_l_rnwl_age_csr.age_group1 ;

Line 716: oki_load_rag_pvt.g_start_age_group4 ) ;

712: oki_load_rag_pvt.g_start_age_group2,
713: oki_load_rag_pvt.g_end_age_group2,
714: oki_load_rag_pvt.g_start_age_group3,
715: oki_load_rag_pvt.g_end_age_group3,
716: oki_load_rag_pvt.g_start_age_group4 ) ;
717: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
718: IF l_rnwl_age_csr%FOUND THEN
719: l_base_fcst_age_group1 := rec_l_rnwl_age_csr.age_group1 ;
720: l_base_fcst_age_group2 := rec_l_rnwl_age_csr.age_group2 ;

Line 728: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,

724: CLOSE l_rnwl_age_csr ;
725:
726: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
727: -- Determine if the record is a new one or an existing one
728: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
729: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
730: rec_l_org_id_csr.customer_party_id,
731: oki_load_rag_pvt.g_all_scs_code ) ;
732: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;

Line 731: oki_load_rag_pvt.g_all_scs_code ) ;

727: -- Determine if the record is a new one or an existing one
728: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
729: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
730: rec_l_org_id_csr.customer_party_id,
731: oki_load_rag_pvt.g_all_scs_code ) ;
732: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
733: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
734: l_loc := 'Insert the new record.' ;
735:

Line 732: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;

728: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
729: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
730: rec_l_org_id_csr.customer_party_id,
731: oki_load_rag_pvt.g_all_scs_code ) ;
732: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
733: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
734: l_loc := 'Insert the new record.' ;
735:
736: -- Insert the current period data for the period

Line 733: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN

729: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
730: rec_l_org_id_csr.customer_party_id,
731: oki_load_rag_pvt.g_all_scs_code ) ;
732: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
733: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
734: l_loc := 'Insert the new record.' ;
735:
736: -- Insert the current period data for the period
737: oki_load_rag_pvt.ins_rnwl_aging (

Line 737: oki_load_rag_pvt.ins_rnwl_aging (

733: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
734: l_loc := 'Insert the new record.' ;
735:
736: -- Insert the current period data for the period
737: oki_load_rag_pvt.ins_rnwl_aging (
738: p_period_set_name => rec_g_glpr_csr.period_set_name
739: , p_period_name => rec_g_glpr_csr.period_name
740: , p_period_type => rec_g_glpr_csr.period_type
741: , p_authoring_org_id => rec_l_org_id_csr.org_id

Line 745: , p_scs_code => oki_load_rag_pvt.g_all_scs_code

741: , p_authoring_org_id => rec_l_org_id_csr.org_id
742: , p_authoring_org_name => rec_l_org_id_csr.organization_name
743: , p_customer_party_id => rec_l_org_id_csr.customer_party_id
744: , p_customer_name => rec_l_org_id_csr.customer_name
745: , p_scs_code => oki_load_rag_pvt.g_all_scs_code
746: , p_age_group1 => l_base_fcst_age_group1
747: , p_age_group2 => l_base_fcst_age_group2
748: , p_age_group3 => l_base_fcst_age_group3
749: , p_age_group4 => l_base_fcst_age_group4

Line 754: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

750: , x_retcode => l_retcode ) ;
751:
752: IF l_retcode = '2' THEN
753: -- Load failed, exit immediately.
754: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
755: END IF ;
756: ELSE
757: l_loc := 'Update the existing record.' ;
758: -- Record already exists, so perform an update

Line 759: oki_load_rag_pvt.upd_rnwl_aging (

755: END IF ;
756: ELSE
757: l_loc := 'Update the existing record.' ;
758: -- Record already exists, so perform an update
759: oki_load_rag_pvt.upd_rnwl_aging (
760: p_age_group1 => l_base_fcst_age_group1
761: , p_age_group2 => l_base_fcst_age_group2
762: , p_age_group3 => l_base_fcst_age_group3
763: , p_age_group4 => l_base_fcst_age_group4

Line 769: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

765: , x_retcode => l_retcode ) ;
766:
767: IF l_retcode = '2' THEN
768: -- Load failed, exit immediately.
769: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
770: END IF ;
771: END IF ;
772: CLOSE oki_load_rag_pvt.g_rag_csr ;
773:

Line 772: CLOSE oki_load_rag_pvt.g_rag_csr ;

768: -- Load failed, exit immediately.
769: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
770: END IF ;
771: END IF ;
772: CLOSE oki_load_rag_pvt.g_rag_csr ;
773:
774: END LOOP g_glpr_csr_loop ;
775: END LOOP l_org_id_csr_loop ;
776:

Line 779: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN

775: END LOOP l_org_id_csr_loop ;
776:
777:
778: EXCEPTION
779: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN
780: -- Do not log an error ; It has already been logged.
781: -- Set return code to error
782: x_retcode := '2' ;
783:

Line 796: , value => 'OKI_LOAD_rag_PVT.CALC_RAG_DTL2');

792: fnd_message.set_name( application => 'OKI'
793: , name => 'OKI_UNEXPECTED_FAILURE');
794:
795: fnd_message.set_token( token => 'OBJECT_NAME'
796: , value => 'OKI_LOAD_rag_PVT.CALC_RAG_DTL2');
797:
798: fnd_file.put_line( which => fnd_file.log
799: , buff => fnd_message.get);
800:

Line 955: rec_l_org_id_csr.org_id, oki_load_rag_pvt.g_start_age_group1,

951:
952: l_loc := 'Opening cursor to determine the age.' ;
953: -- Calculate the forecast amount for a given organization
954: OPEN l_rnwl_age_csr (p_summary_build_date,
955: rec_l_org_id_csr.org_id, oki_load_rag_pvt.g_start_age_group1,
956: oki_load_rag_pvt.g_end_age_group1,
957: oki_load_rag_pvt.g_start_age_group2,
958: oki_load_rag_pvt.g_end_age_group2,
959: oki_load_rag_pvt.g_start_age_group3,

Line 956: oki_load_rag_pvt.g_end_age_group1,

952: l_loc := 'Opening cursor to determine the age.' ;
953: -- Calculate the forecast amount for a given organization
954: OPEN l_rnwl_age_csr (p_summary_build_date,
955: rec_l_org_id_csr.org_id, oki_load_rag_pvt.g_start_age_group1,
956: oki_load_rag_pvt.g_end_age_group1,
957: oki_load_rag_pvt.g_start_age_group2,
958: oki_load_rag_pvt.g_end_age_group2,
959: oki_load_rag_pvt.g_start_age_group3,
960: oki_load_rag_pvt.g_end_age_group3,

Line 957: oki_load_rag_pvt.g_start_age_group2,

953: -- Calculate the forecast amount for a given organization
954: OPEN l_rnwl_age_csr (p_summary_build_date,
955: rec_l_org_id_csr.org_id, oki_load_rag_pvt.g_start_age_group1,
956: oki_load_rag_pvt.g_end_age_group1,
957: oki_load_rag_pvt.g_start_age_group2,
958: oki_load_rag_pvt.g_end_age_group2,
959: oki_load_rag_pvt.g_start_age_group3,
960: oki_load_rag_pvt.g_end_age_group3,
961: oki_load_rag_pvt.g_start_age_group4 ) ;

Line 958: oki_load_rag_pvt.g_end_age_group2,

954: OPEN l_rnwl_age_csr (p_summary_build_date,
955: rec_l_org_id_csr.org_id, oki_load_rag_pvt.g_start_age_group1,
956: oki_load_rag_pvt.g_end_age_group1,
957: oki_load_rag_pvt.g_start_age_group2,
958: oki_load_rag_pvt.g_end_age_group2,
959: oki_load_rag_pvt.g_start_age_group3,
960: oki_load_rag_pvt.g_end_age_group3,
961: oki_load_rag_pvt.g_start_age_group4 ) ;
962: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;

Line 959: oki_load_rag_pvt.g_start_age_group3,

955: rec_l_org_id_csr.org_id, oki_load_rag_pvt.g_start_age_group1,
956: oki_load_rag_pvt.g_end_age_group1,
957: oki_load_rag_pvt.g_start_age_group2,
958: oki_load_rag_pvt.g_end_age_group2,
959: oki_load_rag_pvt.g_start_age_group3,
960: oki_load_rag_pvt.g_end_age_group3,
961: oki_load_rag_pvt.g_start_age_group4 ) ;
962: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
963: IF l_rnwl_age_csr%FOUND THEN

Line 960: oki_load_rag_pvt.g_end_age_group3,

956: oki_load_rag_pvt.g_end_age_group1,
957: oki_load_rag_pvt.g_start_age_group2,
958: oki_load_rag_pvt.g_end_age_group2,
959: oki_load_rag_pvt.g_start_age_group3,
960: oki_load_rag_pvt.g_end_age_group3,
961: oki_load_rag_pvt.g_start_age_group4 ) ;
962: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
963: IF l_rnwl_age_csr%FOUND THEN
964: l_base_fcst_age_group1 := rec_l_rnwl_age_csr.age_group1 ;

Line 961: oki_load_rag_pvt.g_start_age_group4 ) ;

957: oki_load_rag_pvt.g_start_age_group2,
958: oki_load_rag_pvt.g_end_age_group2,
959: oki_load_rag_pvt.g_start_age_group3,
960: oki_load_rag_pvt.g_end_age_group3,
961: oki_load_rag_pvt.g_start_age_group4 ) ;
962: FETCH l_rnwl_age_csr INTO rec_l_rnwl_age_csr ;
963: IF l_rnwl_age_csr%FOUND THEN
964: l_base_fcst_age_group1 := rec_l_rnwl_age_csr.age_group1 ;
965: l_base_fcst_age_group2 := rec_l_rnwl_age_csr.age_group2 ;

Line 973: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,

969: CLOSE l_rnwl_age_csr ;
970:
971: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
972: -- Determine if the record is a new one or an existing one
973: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
974: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
975: oki_load_rag_pvt.g_all_cst_id, oki_load_rag_pvt.g_all_scs_code ) ;
976: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
977: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN

Line 975: oki_load_rag_pvt.g_all_cst_id, oki_load_rag_pvt.g_all_scs_code ) ;

971: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
972: -- Determine if the record is a new one or an existing one
973: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
974: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
975: oki_load_rag_pvt.g_all_cst_id, oki_load_rag_pvt.g_all_scs_code ) ;
976: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
977: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
978: l_loc := 'Insert the new record.' ;
979:

Line 976: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;

972: -- Determine if the record is a new one or an existing one
973: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
974: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
975: oki_load_rag_pvt.g_all_cst_id, oki_load_rag_pvt.g_all_scs_code ) ;
976: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
977: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
978: l_loc := 'Insert the new record.' ;
979:
980: -- Insert the current period data for the period

Line 977: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN

973: OPEN oki_load_rag_pvt.g_rag_csr ( rec_g_glpr_csr.period_set_name,
974: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
975: oki_load_rag_pvt.g_all_cst_id, oki_load_rag_pvt.g_all_scs_code ) ;
976: FETCH oki_load_rag_pvt.g_rag_csr INTO rec_g_rag_csr ;
977: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
978: l_loc := 'Insert the new record.' ;
979:
980: -- Insert the current period data for the period
981: oki_load_rag_pvt.ins_rnwl_aging (

Line 981: oki_load_rag_pvt.ins_rnwl_aging (

977: IF oki_load_rag_pvt.g_rag_csr%NOTFOUND THEN
978: l_loc := 'Insert the new record.' ;
979:
980: -- Insert the current period data for the period
981: oki_load_rag_pvt.ins_rnwl_aging (
982: p_period_set_name => rec_g_glpr_csr.period_set_name
983: , p_period_name => rec_g_glpr_csr.period_name
984: , p_period_type => rec_g_glpr_csr.period_type
985: , p_authoring_org_id => rec_l_org_id_csr.org_id

Line 987: , p_customer_party_id => oki_load_rag_pvt.g_all_cst_id

983: , p_period_name => rec_g_glpr_csr.period_name
984: , p_period_type => rec_g_glpr_csr.period_type
985: , p_authoring_org_id => rec_l_org_id_csr.org_id
986: , p_authoring_org_name => rec_l_org_id_csr.organization_name
987: , p_customer_party_id => oki_load_rag_pvt.g_all_cst_id
988: , p_customer_name => oki_load_rag_pvt.g_all_cst_name
989: , p_scs_code => oki_load_rag_pvt.g_all_scs_code
990: , p_age_group1 => l_base_fcst_age_group1
991: , p_age_group2 => l_base_fcst_age_group2

Line 988: , p_customer_name => oki_load_rag_pvt.g_all_cst_name

984: , p_period_type => rec_g_glpr_csr.period_type
985: , p_authoring_org_id => rec_l_org_id_csr.org_id
986: , p_authoring_org_name => rec_l_org_id_csr.organization_name
987: , p_customer_party_id => oki_load_rag_pvt.g_all_cst_id
988: , p_customer_name => oki_load_rag_pvt.g_all_cst_name
989: , p_scs_code => oki_load_rag_pvt.g_all_scs_code
990: , p_age_group1 => l_base_fcst_age_group1
991: , p_age_group2 => l_base_fcst_age_group2
992: , p_age_group3 => l_base_fcst_age_group3

Line 989: , p_scs_code => oki_load_rag_pvt.g_all_scs_code

985: , p_authoring_org_id => rec_l_org_id_csr.org_id
986: , p_authoring_org_name => rec_l_org_id_csr.organization_name
987: , p_customer_party_id => oki_load_rag_pvt.g_all_cst_id
988: , p_customer_name => oki_load_rag_pvt.g_all_cst_name
989: , p_scs_code => oki_load_rag_pvt.g_all_scs_code
990: , p_age_group1 => l_base_fcst_age_group1
991: , p_age_group2 => l_base_fcst_age_group2
992: , p_age_group3 => l_base_fcst_age_group3
993: , p_age_group4 => l_base_fcst_age_group4

Line 998: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

994: , x_retcode => l_retcode ) ;
995:
996: IF l_retcode = '2' THEN
997: -- Load failed, exit immediately.
998: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
999: END IF ;
1000: ELSE
1001: l_loc := 'Update the existing record.' ;
1002: -- Record already exists, so perform an update

Line 1003: oki_load_rag_pvt.upd_rnwl_aging (

999: END IF ;
1000: ELSE
1001: l_loc := 'Update the existing record.' ;
1002: -- Record already exists, so perform an update
1003: oki_load_rag_pvt.upd_rnwl_aging (
1004: p_age_group1 => l_base_fcst_age_group1
1005: , p_age_group2 => l_base_fcst_age_group2
1006: , p_age_group3 => l_base_fcst_age_group3
1007: , p_age_group4 => l_base_fcst_age_group4

Line 1013: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

1009: , x_retcode => l_retcode ) ;
1010:
1011: IF l_retcode = '2' THEN
1012: -- Load failed, exit immediately.
1013: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
1014: END IF ;
1015: END IF ;
1016: CLOSE oki_load_rag_pvt.g_rag_csr ;
1017:

Line 1016: CLOSE oki_load_rag_pvt.g_rag_csr ;

1012: -- Load failed, exit immediately.
1013: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
1014: END IF ;
1015: END IF ;
1016: CLOSE oki_load_rag_pvt.g_rag_csr ;
1017:
1018: END LOOP g_glpr_csr_loop ;
1019: END LOOP l_org_id_csr_loop ;
1020:

Line 1023: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN

1019: END LOOP l_org_id_csr_loop ;
1020:
1021:
1022: EXCEPTION
1023: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN
1024: -- Do not log an error ; It has already been logged.
1025: -- Set return code to error
1026: x_retcode := '2' ;
1027:

Line 1040: , value => 'OKI_LOAD_rag_PVT.CALC_RAG_SUM');

1036: fnd_message.set_name( application => 'OKI'
1037: , name => 'OKI_UNEXPECTED_FAILURE');
1038:
1039: fnd_message.set_token( token => 'OBJECT_NAME'
1040: , value => 'OKI_LOAD_rag_PVT.CALC_RAG_SUM');
1041:
1042: fnd_file.put_line( which => fnd_file.log
1043: , buff => fnd_message.get);
1044:

Line 1100: SAVEPOINT oki_load_rag_pvt_crt_rnwl_age ;

1096:
1097:
1098: BEGIN
1099:
1100: SAVEPOINT oki_load_rag_pvt_crt_rnwl_age ;
1101:
1102: -- initialize return code to success
1103: l_retcode := '0' ;
1104: x_retcode := '0' ;

Line 1107: oki_load_rag_pvt.calc_rag_dtl1 (

1103: l_retcode := '0' ;
1104: x_retcode := '0' ;
1105:
1106: -- Procedure to calculate the amounts for each dimension
1107: oki_load_rag_pvt.calc_rag_dtl1 (
1108: p_period_set_name => p_period_set_name
1109: , p_period_type => p_period_type
1110: , p_summary_build_date => p_summary_build_date
1111: , x_retcode => l_retcode ) ;

Line 1115: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

1111: , x_retcode => l_retcode ) ;
1112:
1113: IF l_retcode = '2' THEN
1114: -- Load failed, exit immediately.
1115: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
1116: END IF ;
1117:
1118: -- Procedure to calculate the amounts across subclasses
1119: oki_load_rag_pvt.calc_rag_dtl2 (

Line 1119: oki_load_rag_pvt.calc_rag_dtl2 (

1115: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
1116: END IF ;
1117:
1118: -- Procedure to calculate the amounts across subclasses
1119: oki_load_rag_pvt.calc_rag_dtl2 (
1120: p_period_set_name => p_period_set_name
1121: , p_period_type => p_period_type
1122: , p_summary_build_date => p_summary_build_date
1123: , x_retcode => l_retcode ) ;

Line 1127: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

1123: , x_retcode => l_retcode ) ;
1124:
1125: IF l_retcode = '2' THEN
1126: -- Load failed, exit immediately.
1127: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
1128: END IF ;
1129:
1130: -- Procedure to calculate the amounts across customers
1131: -- and subclasses

Line 1132: oki_load_rag_pvt.calc_rag_sum (

1128: END IF ;
1129:
1130: -- Procedure to calculate the amounts across customers
1131: -- and subclasses
1132: oki_load_rag_pvt.calc_rag_sum (
1133: p_period_set_name => p_period_set_name
1134: , p_period_type => p_period_type
1135: , p_summary_build_date => p_summary_build_date
1136: , x_retcode => l_retcode ) ;

Line 1140: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;

1136: , x_retcode => l_retcode ) ;
1137:
1138: IF l_retcode = '2' THEN
1139: -- Load failed, exit immediately.
1140: RAISE oki_load_rag_pvt.g_excp_exit_immediate ;
1141: END IF ;
1142:
1143: COMMIT;
1144:

Line 1145: SAVEPOINT oki_load_rag_pvt_upd_refresh ;

1141: END IF ;
1142:
1143: COMMIT;
1144:
1145: SAVEPOINT oki_load_rag_pvt_upd_refresh ;
1146:
1147: -- Table loaded successfully. Log message IN concurrent manager
1148: -- log indicating successful load.
1149: fnd_message.set_name( application => 'OKI'

Line 1173: ROLLBACK to oki_load_rag_pvt_upd_refresh ;

1169: -- Do not log error; It has already been logged by the refreshs
1170: -- program
1171: x_retcode := l_retcode ;
1172:
1173: ROLLBACK to oki_load_rag_pvt_upd_refresh ;
1174:
1175: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN
1176: -- Do not log an error ; It has already been logged.
1177: -- Set return code to error

Line 1175: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN

1171: x_retcode := l_retcode ;
1172:
1173: ROLLBACK to oki_load_rag_pvt_upd_refresh ;
1174:
1175: WHEN oki_load_rag_pvt.g_excp_exit_immediate THEN
1176: -- Do not log an error ; It has already been logged.
1177: -- Set return code to error
1178: x_retcode := '2' ;
1179:

Line 1180: ROLLBACK TO oki_load_rag_pvt_crt_rnwl_age ;

1176: -- Do not log an error ; It has already been logged.
1177: -- Set return code to error
1178: x_retcode := '2' ;
1179:
1180: ROLLBACK TO oki_load_rag_pvt_crt_rnwl_age ;
1181:
1182: WHEN OTHERS THEN
1183:
1184: l_sqlcode := SQLCODE ;

Line 1191: ROLLBACK TO oki_load_rag_pvt_crt_rnwl_age ;

1187: -- Set return code to error
1188: x_retcode := '2' ;
1189:
1190: -- Rollback all transactions
1191: ROLLBACK TO oki_load_rag_pvt_crt_rnwl_age ;
1192:
1193:
1194: fnd_message.set_name( application => 'OKI'
1195: , name => 'OKI_UNEXPECTED_FAILURE');

Line 1198: , value => 'OKI_LOAD_RAG_PVT.CRT_RNWL_AGE_BY_ORGS');

1194: fnd_message.set_name( application => 'OKI'
1195: , name => 'OKI_UNEXPECTED_FAILURE');
1196:
1197: fnd_message.set_token( token => 'OBJECT_NAME'
1198: , value => 'OKI_LOAD_RAG_PVT.CRT_RNWL_AGE_BY_ORGS');
1199:
1200: fnd_file.put_line( which => fnd_file.log
1201: , buff => fnd_message.get);
1202:

Line 1215: END oki_load_rag_pvt ;

1211: g_program_application_id := fnd_global.prog_appl_id ;
1212: g_program_id := fnd_global.conc_program_id ;
1213: g_program_update_date := SYSDATE ;
1214:
1215: END oki_load_rag_pvt ;