DBA Data[Home] [Help]

APPS.OKI_LOAD_FBO_PVT dependencies on OKI_LOAD_FBO_PVT

Line 1: PACKAGE BODY oki_load_fbo_pvt AS

1: PACKAGE BODY oki_load_fbo_pvt AS
2: /* $Header: OKIRFBOB.pls 115.21 2003/11/24 08:24:48 kbajaj ship $ */
3:
4: --------------------------------------------------------------------------------
5: -- Modification History

Line 125: , oki_load_fbo_pvt.g_request_id

121: , p_authoring_org_name
122: , p_scs_code
123: , p_base_forecast_amount
124: , p_base_booked_amount
125: , oki_load_fbo_pvt.g_request_id
126: , oki_load_fbo_pvt.g_program_application_id
127: , oki_load_fbo_pvt.g_program_id
128: , oki_load_fbo_pvt.g_program_update_date ) ;
129:

Line 126: , oki_load_fbo_pvt.g_program_application_id

122: , p_scs_code
123: , p_base_forecast_amount
124: , p_base_booked_amount
125: , oki_load_fbo_pvt.g_request_id
126: , oki_load_fbo_pvt.g_program_application_id
127: , oki_load_fbo_pvt.g_program_id
128: , oki_load_fbo_pvt.g_program_update_date ) ;
129:
130: EXCEPTION

Line 127: , oki_load_fbo_pvt.g_program_id

123: , p_base_forecast_amount
124: , p_base_booked_amount
125: , oki_load_fbo_pvt.g_request_id
126: , oki_load_fbo_pvt.g_program_application_id
127: , oki_load_fbo_pvt.g_program_id
128: , oki_load_fbo_pvt.g_program_update_date ) ;
129:
130: EXCEPTION
131: WHEN OTHERS THEN

Line 128: , oki_load_fbo_pvt.g_program_update_date ) ;

124: , p_base_booked_amount
125: , oki_load_fbo_pvt.g_request_id
126: , oki_load_fbo_pvt.g_program_application_id
127: , oki_load_fbo_pvt.g_program_id
128: , oki_load_fbo_pvt.g_program_update_date ) ;
129:
130: EXCEPTION
131: WHEN OTHERS THEN
132: l_sqlcode := SQLCODE ;

Line 177: , request_id = oki_load_fbo_pvt.g_request_id

173:
174: UPDATE oki_forecast_by_orgs SET
175: base_forecast_amount = p_base_forecast_amount
176: , base_booked_amount = p_base_booked_amount
177: , request_id = oki_load_fbo_pvt.g_request_id
178: , program_application_id = oki_load_fbo_pvt.g_program_application_id
179: , program_id = oki_load_fbo_pvt.g_program_id
180: , program_update_date = oki_load_fbo_pvt.g_program_update_date
181: WHERE ROWID = p_fbo_rowid ;

Line 178: , program_application_id = oki_load_fbo_pvt.g_program_application_id

174: UPDATE oki_forecast_by_orgs SET
175: base_forecast_amount = p_base_forecast_amount
176: , base_booked_amount = p_base_booked_amount
177: , request_id = oki_load_fbo_pvt.g_request_id
178: , program_application_id = oki_load_fbo_pvt.g_program_application_id
179: , program_id = oki_load_fbo_pvt.g_program_id
180: , program_update_date = oki_load_fbo_pvt.g_program_update_date
181: WHERE ROWID = p_fbo_rowid ;
182:

Line 179: , program_id = oki_load_fbo_pvt.g_program_id

175: base_forecast_amount = p_base_forecast_amount
176: , base_booked_amount = p_base_booked_amount
177: , request_id = oki_load_fbo_pvt.g_request_id
178: , program_application_id = oki_load_fbo_pvt.g_program_application_id
179: , program_id = oki_load_fbo_pvt.g_program_id
180: , program_update_date = oki_load_fbo_pvt.g_program_update_date
181: WHERE ROWID = p_fbo_rowid ;
182:
183: EXCEPTION

Line 180: , program_update_date = oki_load_fbo_pvt.g_program_update_date

176: , base_booked_amount = p_base_booked_amount
177: , request_id = oki_load_fbo_pvt.g_request_id
178: , program_application_id = oki_load_fbo_pvt.g_program_application_id
179: , program_id = oki_load_fbo_pvt.g_program_id
180: , program_update_date = oki_load_fbo_pvt.g_program_update_date
181: WHERE ROWID = p_fbo_rowid ;
182:
183: EXCEPTION
184: WHEN OTHERS THEN

Line 350: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,

346: CLOSE l_org_booked_csr ;
347:
348: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
349: -- Determine if the record is a new one or an existing one
350: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,
351: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
352: rec_l_org_id_csr.scs_code ) ;
353: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
354: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN

Line 353: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;

349: -- Determine if the record is a new one or an existing one
350: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,
351: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
352: rec_l_org_id_csr.scs_code ) ;
353: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
354: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN
355: l_loc := 'Insert the new record.' ;
356: -- Insert the current period data for the period
357: oki_load_fbo_pvt.ins_fcst_by_org (

Line 354: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN

350: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,
351: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
352: rec_l_org_id_csr.scs_code ) ;
353: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
354: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN
355: l_loc := 'Insert the new record.' ;
356: -- Insert the current period data for the period
357: oki_load_fbo_pvt.ins_fcst_by_org (
358: p_period_name => rec_g_glpr_csr.period_name

Line 357: oki_load_fbo_pvt.ins_fcst_by_org (

353: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
354: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN
355: l_loc := 'Insert the new record.' ;
356: -- Insert the current period data for the period
357: oki_load_fbo_pvt.ins_fcst_by_org (
358: p_period_name => rec_g_glpr_csr.period_name
359: , p_period_set_name => rec_g_glpr_csr.period_set_name
360: , p_period_type => rec_g_glpr_csr.period_type
361: , p_authoring_org_id => rec_l_org_id_csr.org_id

Line 370: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;

366: , x_retcode => l_retcode ) ;
367:
368: IF l_retcode = '2' THEN
369: -- Load failed, exit immediately.
370: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
371: END IF ;
372: ELSE
373: l_loc := 'Update the existing record.' ;
374: -- Record already exists, so perform an update

Line 375: oki_load_fbo_pvt.upd_fcst_by_org (

371: END IF ;
372: ELSE
373: l_loc := 'Update the existing record.' ;
374: -- Record already exists, so perform an update
375: oki_load_fbo_pvt.upd_fcst_by_org (
376: p_base_forecast_amount => l_base_forecast_amount
377: , p_base_booked_amount => l_base_booked_amount
378: , p_fbo_rowid => rec_g_fbo_csr.rowid
379: , x_retcode => l_retcode ) ;

Line 383: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;

379: , x_retcode => l_retcode ) ;
380:
381: IF l_retcode = '2' THEN
382: -- Load failed, exit immediately.
383: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
384: END IF ;
385: END IF ;
386: CLOSE oki_load_fbo_pvt.g_fbo_csr ;
387:

Line 386: CLOSE oki_load_fbo_pvt.g_fbo_csr ;

382: -- Load failed, exit immediately.
383: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
384: END IF ;
385: END IF ;
386: CLOSE oki_load_fbo_pvt.g_fbo_csr ;
387:
388: END LOOP g_glpr_csr_loop ;
389: END LOOP l_org_id_csr_loop ;
390:

Line 392: WHEN oki_load_fbo_pvt.g_excp_exit_immediate THEN

388: END LOOP g_glpr_csr_loop ;
389: END LOOP l_org_id_csr_loop ;
390:
391: EXCEPTION
392: WHEN oki_load_fbo_pvt.g_excp_exit_immediate THEN
393: -- Do not log an error ; It has already been logged.
394: -- Set return code to error
395: x_retcode := '2' ;
396:

Line 409: , value => 'OKI_LOAD_FBO_PVT.CALC_FBO_DTL1');

405: fnd_message.set_name( application => 'OKI'
406: , name => 'OKI_UNEXPECTED_FAILURE');
407:
408: fnd_message.set_token( token => 'OBJECT_NAME'
409: , value => 'OKI_LOAD_FBO_PVT.CALC_FBO_DTL1');
410:
411: fnd_file.put_line( which => fnd_file.log
412: , buff => fnd_message.get);
413:

Line 570: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,

566: CLOSE l_org_booked_csr ;
567:
568: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
569: -- Determine if the record is a new one or an existing one
570: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,
571: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
572: oki_load_fbo_pvt.g_all_ctg_code ) ;
573: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
574: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN

Line 572: oki_load_fbo_pvt.g_all_ctg_code ) ;

568: l_loc := 'Opening cursor to determine if insert or update should occur.' ;
569: -- Determine if the record is a new one or an existing one
570: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,
571: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
572: oki_load_fbo_pvt.g_all_ctg_code ) ;
573: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
574: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN
575: l_loc := 'Insert the new record.' ;
576: -- Insert the current period data for the period

Line 573: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;

569: -- Determine if the record is a new one or an existing one
570: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,
571: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
572: oki_load_fbo_pvt.g_all_ctg_code ) ;
573: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
574: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN
575: l_loc := 'Insert the new record.' ;
576: -- Insert the current period data for the period
577: oki_load_fbo_pvt.ins_fcst_by_org (

Line 574: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN

570: OPEN oki_load_fbo_pvt.g_fbo_csr ( rec_g_glpr_csr.period_set_name,
571: rec_g_glpr_csr.period_name, rec_l_org_id_csr.org_id,
572: oki_load_fbo_pvt.g_all_ctg_code ) ;
573: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
574: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN
575: l_loc := 'Insert the new record.' ;
576: -- Insert the current period data for the period
577: oki_load_fbo_pvt.ins_fcst_by_org (
578: p_period_name => rec_g_glpr_csr.period_name

Line 577: oki_load_fbo_pvt.ins_fcst_by_org (

573: FETCH oki_load_fbo_pvt.g_fbo_csr INTO rec_g_fbo_csr ;
574: IF oki_load_fbo_pvt.g_fbo_csr%NOTFOUND THEN
575: l_loc := 'Insert the new record.' ;
576: -- Insert the current period data for the period
577: oki_load_fbo_pvt.ins_fcst_by_org (
578: p_period_name => rec_g_glpr_csr.period_name
579: , p_period_set_name => rec_g_glpr_csr.period_set_name
580: , p_period_type => rec_g_glpr_csr.period_type
581: , p_authoring_org_id => rec_l_org_id_csr.org_id

Line 583: , p_scs_code => oki_load_fbo_pvt.g_all_ctg_code

579: , p_period_set_name => rec_g_glpr_csr.period_set_name
580: , p_period_type => rec_g_glpr_csr.period_type
581: , p_authoring_org_id => rec_l_org_id_csr.org_id
582: , p_authoring_org_name => rec_l_org_id_csr.organization_name
583: , p_scs_code => oki_load_fbo_pvt.g_all_ctg_code
584: , p_base_forecast_amount => l_base_forecast_amount
585: , p_base_booked_amount => l_base_booked_amount
586: , x_retcode => l_retcode ) ;
587:

Line 590: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;

586: , x_retcode => l_retcode ) ;
587:
588: IF l_retcode = '2' THEN
589: -- Load failed, exit immediately.
590: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
591: END IF ;
592: ELSE
593: l_loc := 'Update the existing record.' ;
594: -- Record already exists, so perform an update

Line 595: oki_load_fbo_pvt.upd_fcst_by_org (

591: END IF ;
592: ELSE
593: l_loc := 'Update the existing record.' ;
594: -- Record already exists, so perform an update
595: oki_load_fbo_pvt.upd_fcst_by_org (
596: p_base_forecast_amount => l_base_forecast_amount
597: , p_base_booked_amount => l_base_booked_amount
598: , p_fbo_rowid => rec_g_fbo_csr.rowid
599: , x_retcode => l_retcode ) ;

Line 603: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;

599: , x_retcode => l_retcode ) ;
600:
601: IF l_retcode = '2' THEN
602: -- Load failed, exit immediately.
603: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
604: END IF ;
605: END IF ;
606: CLOSE oki_load_fbo_pvt.g_fbo_csr ;
607:

Line 606: CLOSE oki_load_fbo_pvt.g_fbo_csr ;

602: -- Load failed, exit immediately.
603: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
604: END IF ;
605: END IF ;
606: CLOSE oki_load_fbo_pvt.g_fbo_csr ;
607:
608: END LOOP g_glpr_csr_loop ;
609: END LOOP l_org_id_csr_loop ;
610:

Line 612: WHEN oki_load_fbo_pvt.g_excp_exit_immediate THEN

608: END LOOP g_glpr_csr_loop ;
609: END LOOP l_org_id_csr_loop ;
610:
611: EXCEPTION
612: WHEN oki_load_fbo_pvt.g_excp_exit_immediate THEN
613: -- Do not log an error ; It has already been logged.
614: -- Set return code to error
615: x_retcode := '2' ;
616:

Line 629: , value => 'OKI_LOAD_FBO_PVT.CALC_FBO_SUM');

625: fnd_message.set_name( application => 'OKI'
626: , name => 'OKI_UNEXPECTED_FAILURE');
627:
628: fnd_message.set_token( token => 'OBJECT_NAME'
629: , value => 'OKI_LOAD_FBO_PVT.CALC_FBO_SUM');
630:
631: fnd_file.put_line( which => fnd_file.log
632: , buff => fnd_message.get);
633:

Line 688: SAVEPOINT oki_load_fbo_pvt_crt_fcst_org ;

684:
685:
686: BEGIN
687:
688: SAVEPOINT oki_load_fbo_pvt_crt_fcst_org ;
689:
690: -- initialize return code to success
691: l_retcode := '0' ;
692: x_retcode := '0' ;

Line 696: oki_load_fbo_pvt.calc_fbo_dtl1 (

692: x_retcode := '0' ;
693:
694: -- Procedure to calculate the amounts for each dimension
695: -- and subclass
696: oki_load_fbo_pvt.calc_fbo_dtl1 (
697: p_period_set_name => p_period_set_name
698: , p_period_type => p_period_type
699: , p_summary_build_date => p_summary_build_date
700: , x_retcode => l_retcode ) ;

Line 704: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;

700: , x_retcode => l_retcode ) ;
701:
702: IF l_retcode = '2' THEN
703: -- Load failed, exit immediately.
704: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
705: END IF ;
706:
707: -- Procedure to calculate the amounts across subclasses
708: oki_load_fbo_pvt.calc_fbo_sum (

Line 708: oki_load_fbo_pvt.calc_fbo_sum (

704: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
705: END IF ;
706:
707: -- Procedure to calculate the amounts across subclasses
708: oki_load_fbo_pvt.calc_fbo_sum (
709: p_period_set_name => p_period_set_name
710: , p_period_type => p_period_type
711: , p_summary_build_date => p_summary_build_date
712: , x_retcode => l_retcode ) ;

Line 716: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;

712: , x_retcode => l_retcode ) ;
713:
714: IF l_retcode = '2' THEN
715: -- Load failed, exit immediately.
716: RAISE oki_load_fbo_pvt.g_excp_exit_immediate ;
717: END IF ;
718:
719: COMMIT;
720:

Line 721: SAVEPOINT oki_load_fbo_pvt_upd_refresh ;

717: END IF ;
718:
719: COMMIT;
720:
721: SAVEPOINT oki_load_fbo_pvt_upd_refresh ;
722:
723:
724: -- Table loaded successfully. Log message IN concurrent manager
725: -- log indicating successful load.

Line 750: ROLLBACK to oki_load_fbo_pvt_upd_refresh ;

746: -- Do not log error; It has already been logged by the refreshs
747: -- program
748: x_retcode := l_retcode ;
749:
750: ROLLBACK to oki_load_fbo_pvt_upd_refresh ;
751:
752: WHEN oki_load_fbo_pvt.g_excp_exit_immediate THEN
753: -- Do not log an error ; It has already been logged.
754: -- Set return code to error

Line 752: WHEN oki_load_fbo_pvt.g_excp_exit_immediate THEN

748: x_retcode := l_retcode ;
749:
750: ROLLBACK to oki_load_fbo_pvt_upd_refresh ;
751:
752: WHEN oki_load_fbo_pvt.g_excp_exit_immediate THEN
753: -- Do not log an error ; It has already been logged.
754: -- Set return code to error
755: x_retcode := '2' ;
756:

Line 757: ROLLBACK TO oki_load_fbo_pvt_crt_fcst_org ;

753: -- Do not log an error ; It has already been logged.
754: -- Set return code to error
755: x_retcode := '2' ;
756:
757: ROLLBACK TO oki_load_fbo_pvt_crt_fcst_org ;
758:
759: WHEN OTHERS THEN
760:
761: l_sqlcode := SQLCODE ;

Line 768: ROLLBACK TO oki_load_fbo_pvt_crt_fcst_org ;

764: -- Set return code TO error
765: x_retcode := '2' ;
766:
767: -- ROLLBACK all transactions
768: ROLLBACK TO oki_load_fbo_pvt_crt_fcst_org ;
769:
770:
771: fnd_message.set_name( application => 'OKI'
772: , name => 'OKI_UNEXPECTED_FAILURE');

Line 775: , value => 'OKI_LOAD_FBO_PVT.CRT_FCST_ORG');

771: fnd_message.set_name( application => 'OKI'
772: , name => 'OKI_UNEXPECTED_FAILURE');
773:
774: fnd_message.set_token( token => 'OBJECT_NAME'
775: , value => 'OKI_LOAD_FBO_PVT.CRT_FCST_ORG');
776:
777: fnd_file.put_line( which => fnd_file.log
778: , buff => fnd_message.get);
779:

Line 794: END oki_load_fbo_pvt ;

790: g_program_application_id := fnd_global.prog_appl_id ;
791: g_program_id := fnd_global.conc_program_id ;
792: g_program_update_date := SYSDATE ;
793:
794: END oki_load_fbo_pvt ;