1: PACKAGE BODY oki_load_yra_pvt AS
2: /* $Header: OKIRYRAB.pls 115.9 2003/11/24 08:25:20 kbajaj ship $ */
3:
4: --------------------------------------------------------------------------------
5: -- Modification History
121: , p_year
122: , p_month
123: , p_scs_code
124: , p_base_contract_amount
125: , oki_load_yra_pvt.g_request_id
126: , oki_load_yra_pvt.g_program_application_id
127: , oki_load_yra_pvt.g_program_id
128: , oki_load_yra_pvt.g_program_update_date ) ;
129:
122: , p_month
123: , p_scs_code
124: , p_base_contract_amount
125: , oki_load_yra_pvt.g_request_id
126: , oki_load_yra_pvt.g_program_application_id
127: , oki_load_yra_pvt.g_program_id
128: , oki_load_yra_pvt.g_program_update_date ) ;
129:
130: EXCEPTION
123: , p_scs_code
124: , p_base_contract_amount
125: , oki_load_yra_pvt.g_request_id
126: , oki_load_yra_pvt.g_program_application_id
127: , oki_load_yra_pvt.g_program_id
128: , oki_load_yra_pvt.g_program_update_date ) ;
129:
130: EXCEPTION
131: WHEN OTHERS THEN
124: , p_base_contract_amount
125: , oki_load_yra_pvt.g_request_id
126: , oki_load_yra_pvt.g_program_application_id
127: , oki_load_yra_pvt.g_program_id
128: , oki_load_yra_pvt.g_program_update_date ) ;
129:
130: EXCEPTION
131: WHEN OTHERS THEN
132: l_sqlcode := SQLCODE ;
171: x_retcode := '0';
172:
173: UPDATE oki_yoy_renewal_amt SET
174: base_contract_amount = p_base_contract_amount
175: , request_id = oki_load_yra_pvt.g_request_id
176: , program_application_id = oki_load_yra_pvt.g_program_application_id
177: , program_id = oki_load_yra_pvt.g_program_id
178: , program_update_date = oki_load_yra_pvt.g_program_update_date
179: WHERE ROWID = p_yra_rowid ;
172:
173: UPDATE oki_yoy_renewal_amt SET
174: base_contract_amount = p_base_contract_amount
175: , request_id = oki_load_yra_pvt.g_request_id
176: , program_application_id = oki_load_yra_pvt.g_program_application_id
177: , program_id = oki_load_yra_pvt.g_program_id
178: , program_update_date = oki_load_yra_pvt.g_program_update_date
179: WHERE ROWID = p_yra_rowid ;
180:
173: UPDATE oki_yoy_renewal_amt SET
174: base_contract_amount = p_base_contract_amount
175: , request_id = oki_load_yra_pvt.g_request_id
176: , program_application_id = oki_load_yra_pvt.g_program_application_id
177: , program_id = oki_load_yra_pvt.g_program_id
178: , program_update_date = oki_load_yra_pvt.g_program_update_date
179: WHERE ROWID = p_yra_rowid ;
180:
181: EXCEPTION
174: base_contract_amount = p_base_contract_amount
175: , request_id = oki_load_yra_pvt.g_request_id
176: , program_application_id = oki_load_yra_pvt.g_program_application_id
177: , program_id = oki_load_yra_pvt.g_program_id
178: , program_update_date = oki_load_yra_pvt.g_program_update_date
179: WHERE ROWID = p_yra_rowid ;
180:
181: EXCEPTION
182: WHEN OTHERS THEN
189: fnd_message.set_name( application => 'OKI'
190: , name => 'OKI_UNEXPECTED_FAILURE' );
191:
192: fnd_message.set_token( token => 'OBJECT_NAME'
193: , value => 'OKI_LOAD_YRA_PVT.UPD_YOY_RNWL' );
194:
195: fnd_file.put_line( which => fnd_file.log
196: , buff => fnd_message.get );
197:
306: l_month := rec_l_yoy_rnwl_csr.month ;
307:
308: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
309: -- Determine if the record is a new one or an existing one
310: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
311: rec_g_glpr_csr.period_name, rec_l_org_id_csr.authoring_org_id,
312: l_year, l_month, rec_l_org_id_csr.scs_code ) ;
313: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
314: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
309: -- Determine if the record is a new one or an existing one
310: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
311: rec_g_glpr_csr.period_name, rec_l_org_id_csr.authoring_org_id,
312: l_year, l_month, rec_l_org_id_csr.scs_code ) ;
313: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
314: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
315: l_loc := 'Insert the new record.' ;
316: -- Insert the current period data for the period
317: oki_load_yra_pvt.ins_yoy_rnwl (
310: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
311: rec_g_glpr_csr.period_name, rec_l_org_id_csr.authoring_org_id,
312: l_year, l_month, rec_l_org_id_csr.scs_code ) ;
313: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
314: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
315: l_loc := 'Insert the new record.' ;
316: -- Insert the current period data for the period
317: oki_load_yra_pvt.ins_yoy_rnwl (
318: p_period_set_name => rec_g_glpr_csr.period_set_name
313: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
314: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
315: l_loc := 'Insert the new record.' ;
316: -- Insert the current period data for the period
317: oki_load_yra_pvt.ins_yoy_rnwl (
318: p_period_set_name => rec_g_glpr_csr.period_set_name
319: , p_period_name => rec_g_glpr_csr.period_name
320: , p_period_type => rec_g_glpr_csr.period_type
321: , p_authoring_org_id => rec_l_org_id_csr.authoring_org_id
326: , p_base_contract_amount => l_base_contract_amount
327: , x_retcode => l_retcode ) ;
328: IF l_retcode = '2' THEN
329: -- Load failed, exit immediately.
330: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
331: END IF ;
332: ELSE
333: l_loc := 'Update the existing record.' ;
334: -- Record already exists, so perform an update
331: END IF ;
332: ELSE
333: l_loc := 'Update the existing record.' ;
334: -- Record already exists, so perform an update
335: oki_load_yra_pvt.upd_yoy_rnwl (
336: p_base_contract_amount => l_base_contract_amount
337: , p_yra_rowid => rec_g_yra_csr.rowid
338: , x_retcode => l_retcode ) ;
339: IF l_retcode = '2' THEN
337: , p_yra_rowid => rec_g_yra_csr.rowid
338: , x_retcode => l_retcode ) ;
339: IF l_retcode = '2' THEN
340: -- Load failed, exit immediately.
341: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
342: END IF ;
343: END IF ;
344: CLOSE oki_load_yra_pvt.g_yra_csr ;
345:
340: -- Load failed, exit immediately.
341: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
342: END IF ;
343: END IF ;
344: CLOSE oki_load_yra_pvt.g_yra_csr ;
345:
346: END LOOP l_yoy_rnwl_csr_loop ;
347: END LOOP g_glpr_csr_loop ;
348: END LOOP l_org_id_csr_loop ;
347: END LOOP g_glpr_csr_loop ;
348: END LOOP l_org_id_csr_loop ;
349:
350: EXCEPTION
351: WHEN oki_load_yra_pvt.g_excp_exit_immediate THEN
352: -- Do not log an error ; It has already been logged.
353: -- Set return code to error
354: x_retcode := '2' ;
355:
364: fnd_message.set_name( application => 'OKI'
365: , name => 'OKI_UNEXPECTED_FAILURE');
366:
367: fnd_message.set_token( token => 'OBJECT_NAME'
368: , value => 'OKI_LOAD_YRA_PVT.CALC_YRA_DTL1');
369:
370: fnd_file.put_line( which => fnd_file.log
371: , buff => fnd_message.get);
372:
488: l_month := rec_l_yoy_rnwl_csr.month ;
489:
490: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
491: -- Determine if the record is a new one or an existing one
492: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
493: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
494: l_year, l_month, rec_l_scs_csr.scs_code ) ;
495: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
496: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
489:
490: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
491: -- Determine if the record is a new one or an existing one
492: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
493: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
494: l_year, l_month, rec_l_scs_csr.scs_code ) ;
495: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
496: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
497: l_loc := 'Insert the new record.' ;
491: -- Determine if the record is a new one or an existing one
492: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
493: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
494: l_year, l_month, rec_l_scs_csr.scs_code ) ;
495: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
496: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
497: l_loc := 'Insert the new record.' ;
498: -- Insert the current period data for the period
499: oki_load_yra_pvt.ins_yoy_rnwl (
492: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
493: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
494: l_year, l_month, rec_l_scs_csr.scs_code ) ;
495: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
496: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
497: l_loc := 'Insert the new record.' ;
498: -- Insert the current period data for the period
499: oki_load_yra_pvt.ins_yoy_rnwl (
500: p_period_set_name => rec_g_glpr_csr.period_set_name
495: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
496: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
497: l_loc := 'Insert the new record.' ;
498: -- Insert the current period data for the period
499: oki_load_yra_pvt.ins_yoy_rnwl (
500: p_period_set_name => rec_g_glpr_csr.period_set_name
501: , p_period_name => rec_g_glpr_csr.period_name
502: , p_period_type => rec_g_glpr_csr.period_type
503: , p_authoring_org_id => oki_load_yra_pvt.g_all_org_id
499: oki_load_yra_pvt.ins_yoy_rnwl (
500: p_period_set_name => rec_g_glpr_csr.period_set_name
501: , p_period_name => rec_g_glpr_csr.period_name
502: , p_period_type => rec_g_glpr_csr.period_type
503: , p_authoring_org_id => oki_load_yra_pvt.g_all_org_id
504: , p_authoring_org_name => oki_load_yra_pvt.g_all_org_name
505: , p_year => l_year
506: , p_month => l_month
507: , p_scs_code => rec_l_scs_csr.scs_code
500: p_period_set_name => rec_g_glpr_csr.period_set_name
501: , p_period_name => rec_g_glpr_csr.period_name
502: , p_period_type => rec_g_glpr_csr.period_type
503: , p_authoring_org_id => oki_load_yra_pvt.g_all_org_id
504: , p_authoring_org_name => oki_load_yra_pvt.g_all_org_name
505: , p_year => l_year
506: , p_month => l_month
507: , p_scs_code => rec_l_scs_csr.scs_code
508: , p_base_contract_amount => l_base_contract_amount
508: , p_base_contract_amount => l_base_contract_amount
509: , x_retcode => l_retcode ) ;
510: IF l_retcode = '2' THEN
511: -- Load failed, exit immediately.
512: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
513: END IF ;
514: ELSE
515: l_loc := 'Update the existing record.' ;
516: -- Record already exists, so perform an update
513: END IF ;
514: ELSE
515: l_loc := 'Update the existing record.' ;
516: -- Record already exists, so perform an update
517: oki_load_yra_pvt.upd_yoy_rnwl (
518: p_base_contract_amount => l_base_contract_amount
519: , p_yra_rowid => rec_g_yra_csr.rowid
520: , x_retcode => l_retcode ) ;
521: IF l_retcode = '2' THEN
519: , p_yra_rowid => rec_g_yra_csr.rowid
520: , x_retcode => l_retcode ) ;
521: IF l_retcode = '2' THEN
522: -- Load failed, exit immediately.
523: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
524: END IF ;
525: END IF ;
526: CLOSE oki_load_yra_pvt.g_yra_csr ;
527:
522: -- Load failed, exit immediately.
523: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
524: END IF ;
525: END IF ;
526: CLOSE oki_load_yra_pvt.g_yra_csr ;
527:
528: END LOOP l_yoy_rnwl_csr_loop ;
529: END LOOP g_glpr_csr_loop ;
530: END LOOP l_org_id_csr_loop ;
529: END LOOP g_glpr_csr_loop ;
530: END LOOP l_org_id_csr_loop ;
531:
532: EXCEPTION
533: WHEN oki_load_yra_pvt.g_excp_exit_immediate THEN
534: -- Do not log an error ; It has already been logged.
535: -- Set return code to error
536: x_retcode := '2' ;
537:
546: fnd_message.set_name( application => 'OKI'
547: , name => 'OKI_UNEXPECTED_FAILURE');
548:
549: fnd_message.set_token( token => 'OBJECT_NAME'
550: , value => 'OKI_LOAD_YRA_PVT.CALC_YRA_DTL2');
551:
552: fnd_file.put_line( which => fnd_file.log
553: , buff => fnd_message.get);
554:
657: l_month := rec_l_yoy_rnwl_csr.month ;
658:
659: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
660: -- Determine if the record is a new one or an existing one
661: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
662: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
663: l_year, l_month, oki_load_yra_pvt.g_all_scs_code ) ;
664: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
665: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
658:
659: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
660: -- Determine if the record is a new one or an existing one
661: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
662: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
663: l_year, l_month, oki_load_yra_pvt.g_all_scs_code ) ;
664: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
665: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
666: l_loc := 'Insert the new record.' ;
659: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
660: -- Determine if the record is a new one or an existing one
661: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
662: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
663: l_year, l_month, oki_load_yra_pvt.g_all_scs_code ) ;
664: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
665: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
666: l_loc := 'Insert the new record.' ;
667: -- Insert the current period data for the period
660: -- Determine if the record is a new one or an existing one
661: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
662: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
663: l_year, l_month, oki_load_yra_pvt.g_all_scs_code ) ;
664: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
665: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
666: l_loc := 'Insert the new record.' ;
667: -- Insert the current period data for the period
668: oki_load_yra_pvt.ins_yoy_rnwl (
661: OPEN oki_load_yra_pvt.g_yra_csr ( rec_g_glpr_csr.period_set_name,
662: rec_g_glpr_csr.period_name, oki_load_yra_pvt.g_all_org_id,
663: l_year, l_month, oki_load_yra_pvt.g_all_scs_code ) ;
664: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
665: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
666: l_loc := 'Insert the new record.' ;
667: -- Insert the current period data for the period
668: oki_load_yra_pvt.ins_yoy_rnwl (
669: p_period_set_name => rec_g_glpr_csr.period_set_name
664: FETCH oki_load_yra_pvt.g_yra_csr INTO rec_g_yra_csr ;
665: IF oki_load_yra_pvt.g_yra_csr%NOTFOUND THEN
666: l_loc := 'Insert the new record.' ;
667: -- Insert the current period data for the period
668: oki_load_yra_pvt.ins_yoy_rnwl (
669: p_period_set_name => rec_g_glpr_csr.period_set_name
670: , p_period_name => rec_g_glpr_csr.period_name
671: , p_period_type => rec_g_glpr_csr.period_type
672: , p_authoring_org_id => oki_load_yra_pvt.g_all_org_id
668: oki_load_yra_pvt.ins_yoy_rnwl (
669: p_period_set_name => rec_g_glpr_csr.period_set_name
670: , p_period_name => rec_g_glpr_csr.period_name
671: , p_period_type => rec_g_glpr_csr.period_type
672: , p_authoring_org_id => oki_load_yra_pvt.g_all_org_id
673: , p_authoring_org_name => oki_load_yra_pvt.g_all_org_name
674: , p_year => l_year
675: , p_month => l_month
676: , p_scs_code => oki_load_yra_pvt.g_all_scs_code
669: p_period_set_name => rec_g_glpr_csr.period_set_name
670: , p_period_name => rec_g_glpr_csr.period_name
671: , p_period_type => rec_g_glpr_csr.period_type
672: , p_authoring_org_id => oki_load_yra_pvt.g_all_org_id
673: , p_authoring_org_name => oki_load_yra_pvt.g_all_org_name
674: , p_year => l_year
675: , p_month => l_month
676: , p_scs_code => oki_load_yra_pvt.g_all_scs_code
677: , p_base_contract_amount => l_base_contract_amount
672: , p_authoring_org_id => oki_load_yra_pvt.g_all_org_id
673: , p_authoring_org_name => oki_load_yra_pvt.g_all_org_name
674: , p_year => l_year
675: , p_month => l_month
676: , p_scs_code => oki_load_yra_pvt.g_all_scs_code
677: , p_base_contract_amount => l_base_contract_amount
678: , x_retcode => l_retcode ) ;
679: IF l_retcode = '2' THEN
680: -- Load failed, exit immediately.
677: , p_base_contract_amount => l_base_contract_amount
678: , x_retcode => l_retcode ) ;
679: IF l_retcode = '2' THEN
680: -- Load failed, exit immediately.
681: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
682: END IF ;
683: ELSE
684: l_loc := 'Update the existing record.' ;
685: -- Record already exists, so perform an update
682: END IF ;
683: ELSE
684: l_loc := 'Update the existing record.' ;
685: -- Record already exists, so perform an update
686: oki_load_yra_pvt.upd_yoy_rnwl (
687: p_base_contract_amount => l_base_contract_amount
688: , p_yra_rowid => rec_g_yra_csr.rowid
689: , x_retcode => l_retcode ) ;
690: IF l_retcode = '2' THEN
688: , p_yra_rowid => rec_g_yra_csr.rowid
689: , x_retcode => l_retcode ) ;
690: IF l_retcode = '2' THEN
691: -- Load failed, exit immediately.
692: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
693: END IF ;
694: END IF ;
695: CLOSE oki_load_yra_pvt.g_yra_csr ;
696:
691: -- Load failed, exit immediately.
692: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
693: END IF ;
694: END IF ;
695: CLOSE oki_load_yra_pvt.g_yra_csr ;
696:
697: END LOOP l_yoy_rnwl_csr_loop ;
698:
699: END LOOP g_glpr_csr_loop ;
699: END LOOP g_glpr_csr_loop ;
700:
701:
702: EXCEPTION
703: WHEN oki_load_yra_pvt.g_excp_exit_immediate THEN
704: -- Do not log an error ; It has already been logged.
705: -- Set return code to error
706: x_retcode := '2' ;
707:
716: fnd_message.set_name( application => 'OKI'
717: , name => 'OKI_UNEXPECTED_FAILURE');
718:
719: fnd_message.set_token( token => 'OBJECT_NAME'
720: , value => 'OKI_LOAD_YRA_PVT.CALC_YRA_SUM');
721:
722: fnd_file.put_line( which => fnd_file.log
723: , buff => fnd_message.get);
724:
774:
775:
776: BEGIN
777:
778: SAVEPOINT oki_load_yra_pvt_crt_yoy_rnwl ;
779:
780: -- initialize return code to success
781: l_retcode := '0' ;
782: x_retcode := '0' ;
781: l_retcode := '0' ;
782: x_retcode := '0' ;
783:
784: -- Procedure to calculate the amounts for each dimension
785: oki_load_yra_pvt.calc_yra_dtl1 (
786: p_period_set_name => p_period_set_name
787: , p_period_type => p_period_type
788: , p_summary_build_date => p_summary_build_date
789: , x_retcode => l_retcode ) ;
789: , x_retcode => l_retcode ) ;
790:
791: IF l_retcode = '2' THEN
792: -- Load failed, exit immediately.
793: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
794: END IF ;
795:
796: -- Procedure to calculate the amounts across organizations
797: oki_load_yra_pvt.calc_yra_dtl2 (
793: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
794: END IF ;
795:
796: -- Procedure to calculate the amounts across organizations
797: oki_load_yra_pvt.calc_yra_dtl2 (
798: p_period_set_name => p_period_set_name
799: , p_period_type => p_period_type
800: , p_summary_build_date => p_summary_build_date
801: , x_retcode => l_retcode ) ;
801: , x_retcode => l_retcode ) ;
802:
803: IF l_retcode = '2' THEN
804: -- Load failed, exit immediately.
805: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
806: END IF ;
807:
808: -- Procedure to calculate the amounts amounts across organizations,
809: -- subclasses
806: END IF ;
807:
808: -- Procedure to calculate the amounts amounts across organizations,
809: -- subclasses
810: oki_load_yra_pvt.calc_yra_sum (
811: p_period_set_name => p_period_set_name
812: , p_period_type => p_period_type
813: , p_summary_build_date => p_summary_build_date
814: , x_retcode => l_retcode ) ;
814: , x_retcode => l_retcode ) ;
815:
816: IF l_retcode = '2' THEN
817: -- Load failed, exit immediately.
818: RAISE oki_load_yra_pvt.g_excp_exit_immediate ;
819: END IF ;
820:
821: COMMIT;
822:
819: END IF ;
820:
821: COMMIT;
822:
823: SAVEPOINT oki_load_yra_pvt_upd_refresh ;
824:
825:
826: -- Table loaded successfully. Log message IN concurrent manager
827: -- log indicating successful load.
848: -- Do not log error; It has already been logged by the refreshs
849: -- program
850: x_retcode := l_retcode ;
851:
852: ROLLBACK to oki_load_yra_pvt_upd_refresh ;
853:
854: WHEN oki_load_yra_pvt.g_excp_exit_immediate THEN
855: -- Do not log an error ; It has already been logged.
856: -- Set return code to error
850: x_retcode := l_retcode ;
851:
852: ROLLBACK to oki_load_yra_pvt_upd_refresh ;
853:
854: WHEN oki_load_yra_pvt.g_excp_exit_immediate THEN
855: -- Do not log an error ; It has already been logged.
856: -- Set return code to error
857: x_retcode := '2' ;
858:
855: -- Do not log an error ; It has already been logged.
856: -- Set return code to error
857: x_retcode := '2' ;
858:
859: ROLLBACK TO oki_load_yra_pvt_crt_yoy_rnwl ;
860:
861: WHEN OTHERS THEN
862:
863: l_sqlcode := SQLCODE ;
866: -- Set return code TO error
867: x_retcode := '2' ;
868:
869: -- ROLLBACK all transactions
870: ROLLBACK TO oki_load_yra_pvt_crt_yoy_rnwl ;
871:
872:
873: fnd_message.set_name( application => 'OKI'
874: , name => 'OKI_UNEXPECTED_FAILURE');
873: fnd_message.set_name( application => 'OKI'
874: , name => 'OKI_UNEXPECTED_FAILURE');
875:
876: fnd_message.set_token( token => 'OBJECT_NAME'
877: , value => 'OKI_LOAD_YRA_PVT.CRT_YOY_RNWL');
878:
879: fnd_file.put_line( which => fnd_file.log
880: , buff => fnd_message.get);
881:
892: g_program_application_id := fnd_global.prog_appl_id ;
893: g_program_id := fnd_global.conc_program_id ;
894: g_program_update_date := SYSDATE ;
895:
896: END oki_load_yra_pvt ;