1: PACKAGE BODY oki_load_etr_pvt AS
2: /* $Header: OKIRETRB.pls 115.8 2002/12/01 17:53:17 rpotnuru noship $ */
3:
4: --------------------------------------------------------------------------------
5: -- Modification History
122: , p_bin_code_seq
123: , p_measure_value1
124: , p_measure_value2
125: , p_measure_value3
126: , oki_load_etr_pvt.g_request_id
127: , oki_load_etr_pvt.g_program_application_id
128: , oki_load_etr_pvt.g_program_id
129: , oki_load_etr_pvt.g_program_update_date ) ;
130:
123: , p_measure_value1
124: , p_measure_value2
125: , p_measure_value3
126: , oki_load_etr_pvt.g_request_id
127: , oki_load_etr_pvt.g_program_application_id
128: , oki_load_etr_pvt.g_program_id
129: , oki_load_etr_pvt.g_program_update_date ) ;
130:
131: EXCEPTION
124: , p_measure_value2
125: , p_measure_value3
126: , oki_load_etr_pvt.g_request_id
127: , oki_load_etr_pvt.g_program_application_id
128: , oki_load_etr_pvt.g_program_id
129: , oki_load_etr_pvt.g_program_update_date ) ;
130:
131: EXCEPTION
132: WHEN OTHERS THEN
125: , p_measure_value3
126: , oki_load_etr_pvt.g_request_id
127: , oki_load_etr_pvt.g_program_application_id
128: , oki_load_etr_pvt.g_program_id
129: , oki_load_etr_pvt.g_program_update_date ) ;
130:
131: EXCEPTION
132: WHEN OTHERS THEN
133: l_sqlcode := SQLCODE ;
186: , measure_code_meaning = p_measure_code_meaning
187: , bin_code_seq = p_bin_code_seq
188: , organization_name = p_organization_name
189: , customer_name = p_customer_name
190: , request_id = oki_load_etr_pvt.g_request_id
191: , program_application_id = oki_load_etr_pvt.g_program_application_id
192: , program_id = oki_load_etr_pvt.g_program_id
193: , program_update_date = oki_load_etr_pvt.g_program_update_date
194: WHERE ROWID = p_etr_rowid ;
187: , bin_code_seq = p_bin_code_seq
188: , organization_name = p_organization_name
189: , customer_name = p_customer_name
190: , request_id = oki_load_etr_pvt.g_request_id
191: , program_application_id = oki_load_etr_pvt.g_program_application_id
192: , program_id = oki_load_etr_pvt.g_program_id
193: , program_update_date = oki_load_etr_pvt.g_program_update_date
194: WHERE ROWID = p_etr_rowid ;
195:
188: , organization_name = p_organization_name
189: , customer_name = p_customer_name
190: , request_id = oki_load_etr_pvt.g_request_id
191: , program_application_id = oki_load_etr_pvt.g_program_application_id
192: , program_id = oki_load_etr_pvt.g_program_id
193: , program_update_date = oki_load_etr_pvt.g_program_update_date
194: WHERE ROWID = p_etr_rowid ;
195:
196: EXCEPTION
189: , customer_name = p_customer_name
190: , request_id = oki_load_etr_pvt.g_request_id
191: , program_application_id = oki_load_etr_pvt.g_program_application_id
192: , program_id = oki_load_etr_pvt.g_program_id
193: , program_update_date = oki_load_etr_pvt.g_program_update_date
194: WHERE ROWID = p_etr_rowid ;
195:
196: EXCEPTION
197: WHEN OTHERS THEN
204: fnd_message.set_name( application => 'OKI'
205: , name => 'OKI_UNEXPECTED_FAILURE' ) ;
206:
207: fnd_message.set_token( token => 'OBJECT_NAME'
208: , value => 'OKI_LOAD_ETR_PVT.UPD_EXP_TO_RNWL' ) ;
209:
210: fnd_file.put_line( which => fnd_file.log
211: , buff => fnd_message.get );
212:
390:
391: -- Get the bin display lookup values
392: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
393: l_measure_type || '.' ;
394: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
395: , oki_load_etr_pvt.g_tactk_code ) ;
396: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
397: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
398: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
391: -- Get the bin display lookup values
392: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
393: l_measure_type || '.' ;
394: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
395: , oki_load_etr_pvt.g_tactk_code ) ;
396: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
397: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
398: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
399: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
446: END IF ;
447:
448: l_loc := 'Inserting / updating ' || l_measure_type || '.' ;
449: -- Determine if the record is a new one or an existing one
450: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
451: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
452: , oki_utl_pub.g_all_k_category_code
453: , oki_load_etr_pvt.g_tactk_code ) ;
454: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
449: -- Determine if the record is a new one or an existing one
450: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
451: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
452: , oki_utl_pub.g_all_k_category_code
453: , oki_load_etr_pvt.g_tactk_code ) ;
454: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
455: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
456: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
457: -- Insert the new record
450: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
451: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
452: , oki_utl_pub.g_all_k_category_code
453: , oki_load_etr_pvt.g_tactk_code ) ;
454: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
455: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
456: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
457: -- Insert the new record
458: oki_load_etr_pvt.ins_exp_to_rnwl(
451: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
452: , oki_utl_pub.g_all_k_category_code
453: , oki_load_etr_pvt.g_tactk_code ) ;
454: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
455: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
456: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
457: -- Insert the new record
458: oki_load_etr_pvt.ins_exp_to_rnwl(
459: p_summary_build_date => oki_utl_pub.g_summary_build_date
454: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
455: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
456: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
457: -- Insert the new record
458: oki_load_etr_pvt.ins_exp_to_rnwl(
459: p_summary_build_date => oki_utl_pub.g_summary_build_date
460: , p_authoring_org_id => rec_g_org_csr.authoring_org_id
461: , p_organization_name => rec_g_org_csr.organization_name
462: , p_customer_party_id => oki_utl_pub.g_all_customer_id
461: , p_organization_name => rec_g_org_csr.organization_name
462: , p_customer_party_id => oki_utl_pub.g_all_customer_id
463: , p_customer_name => oki_utl_pub.g_all_customer_name
464: , p_scs_code => oki_utl_pub.g_all_k_category_code
465: , p_measure_code => oki_load_etr_pvt.g_tactk_code
466: , p_measure_code_meaning => l_bin_code_meaning
467: , p_bin_code_seq => l_bin_code_seq
468: , p_measure_value1 => l_curr_value
469: , p_measure_value2 => l_pct_change
476: ELSE
477: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
478: -- Update the existing record
479:
480: oki_load_etr_pvt.upd_exp_to_rnwl(
481: p_measure_value1 => l_curr_value
482: , p_measure_value2 => l_pct_change
483: , p_measure_value3 => l_status_icon
484: , p_measure_code_meaning => l_bin_code_meaning
492: -- Load failed, exit immediately.
493: RAISE oki_utl_pub.g_excp_exit_immediate ;
494: END IF ;
495: END IF ;
496: CLOSE oki_load_etr_pvt.g_etr_csr ;
497:
498: --
499: -- Process Renewal Rate record
500: --
507:
508: -- Get the bin display lookup values
509: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
510: l_measure_type || '.' ;
511: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
512: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
513: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
514: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
515: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
508: -- Get the bin display lookup values
509: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
510: l_measure_type || '.' ;
511: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
512: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
513: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
514: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
515: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
516: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
562: END IF ;
563:
564: l_loc := 'Inserting / updating ' || l_measure_type || '.' ;
565: -- Determine if the record is a new one or an existing one
566: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
567: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
568: , oki_utl_pub.g_all_k_category_code
569: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
570: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
565: -- Determine if the record is a new one or an existing one
566: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
567: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
568: , oki_utl_pub.g_all_k_category_code
569: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
570: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
571: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
572: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
573: -- Insert the new record
566: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
567: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
568: , oki_utl_pub.g_all_k_category_code
569: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
570: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
571: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
572: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
573: -- Insert the new record
574: oki_load_etr_pvt.ins_exp_to_rnwl(
567: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
568: , oki_utl_pub.g_all_k_category_code
569: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
570: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
571: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
572: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
573: -- Insert the new record
574: oki_load_etr_pvt.ins_exp_to_rnwl(
575: p_summary_build_date => oki_utl_pub.g_summary_build_date
570: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
571: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
572: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
573: -- Insert the new record
574: oki_load_etr_pvt.ins_exp_to_rnwl(
575: p_summary_build_date => oki_utl_pub.g_summary_build_date
576: , p_authoring_org_id => rec_g_org_csr.authoring_org_id
577: , p_organization_name => rec_g_org_csr.organization_name
578: , p_customer_party_id => oki_utl_pub.g_all_customer_id
577: , p_organization_name => rec_g_org_csr.organization_name
578: , p_customer_party_id => oki_utl_pub.g_all_customer_id
579: , p_customer_name => oki_utl_pub.g_all_customer_name
580: , p_scs_code => oki_utl_pub.g_all_k_category_code
581: , p_measure_code => oki_load_etr_pvt.g_rnwl_rate_code
582: , p_measure_code_meaning => l_bin_code_meaning
583: , p_bin_code_seq => l_bin_code_seq
584: , p_measure_value1 => l_curr_value
585: , p_measure_value2 => l_pct_change
591: END IF ;
592: ELSE
593: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
594: -- Update the existing record
595: oki_load_etr_pvt.upd_exp_to_rnwl(
596: p_measure_value1 => l_curr_value
597: , p_measure_value2 => l_pct_change
598: , p_measure_value3 => l_status_icon
599: , p_measure_code_meaning => l_bin_code_meaning
607: -- Load failed, exit immediately.
608: RAISE oki_utl_pub.g_excp_exit_immediate ;
609: END IF ;
610: END IF ;
611: CLOSE oki_load_etr_pvt.g_etr_csr ;
612:
613: --
614: -- Process Sequential Growth Rate record
615: --
622:
623: -- Get the bin display lookup values
624: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
625: l_measure_type || '.' ;
626: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
627: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
628: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
629: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
630: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
623: -- Get the bin display lookup values
624: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
625: l_measure_type || '.' ;
626: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
627: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
628: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
629: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
630: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
631: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
702: END IF ;
703:
704: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
705: -- Determine if the record is a new one or an existing one
706: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
707: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
708: , oki_utl_pub.g_all_k_category_code
709: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
710: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
705: -- Determine if the record is a new one or an existing one
706: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
707: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
708: , oki_utl_pub.g_all_k_category_code
709: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
710: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
711: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
712: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
713: -- Insert the new record
706: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
707: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
708: , oki_utl_pub.g_all_k_category_code
709: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
710: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
711: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
712: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
713: -- Insert the new record
714: oki_load_etr_pvt.ins_exp_to_rnwl(
707: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
708: , oki_utl_pub.g_all_k_category_code
709: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
710: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
711: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
712: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
713: -- Insert the new record
714: oki_load_etr_pvt.ins_exp_to_rnwl(
715: p_summary_build_date => oki_utl_pub.g_summary_build_date
710: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
711: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
712: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
713: -- Insert the new record
714: oki_load_etr_pvt.ins_exp_to_rnwl(
715: p_summary_build_date => oki_utl_pub.g_summary_build_date
716: , p_authoring_org_id => rec_g_org_csr.authoring_org_id
717: , p_organization_name => rec_g_org_csr.organization_name
718: , p_customer_party_id => oki_utl_pub.g_all_customer_id
717: , p_organization_name => rec_g_org_csr.organization_name
718: , p_customer_party_id => oki_utl_pub.g_all_customer_id
719: , p_customer_name => oki_utl_pub.g_all_customer_name
720: , p_scs_code => oki_utl_pub.g_all_k_category_code
721: , p_measure_code => oki_load_etr_pvt.g_seq_grw_rate_code
722: , p_measure_code_meaning => l_bin_code_meaning
723: , p_bin_code_seq => l_bin_code_seq
724: , p_measure_value1 => l_curr_value
725: , p_measure_value2 => l_pct_change
731: END IF ;
732: ELSE
733: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
734: -- Update the existing record
735: oki_load_etr_pvt.upd_exp_to_rnwl(
736: p_measure_value1 => l_curr_value
737: , p_measure_value2 => l_pct_change
738: , p_measure_value3 => l_status_icon
739: , p_measure_code_meaning => l_bin_code_meaning
747: -- Load failed, exit immediately.
748: RAISE oki_utl_pub.g_excp_exit_immediate ;
749: END IF ;
750: END IF ;
751: CLOSE oki_load_etr_pvt.g_etr_csr ;
752:
753: --
754: -- Process Renewal Opportunity Outstanding record
755: --
761:
762: -- Get the bin display lookup values
763: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
764: l_measure_type || '.' ;
765: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
766: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
767: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
768: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
769: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
762: -- Get the bin display lookup values
763: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
764: l_measure_type || '.' ;
765: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
766: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
767: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
768: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
769: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
770: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
817: END IF ;
818:
819: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
820: -- Determine if the record is a new one or an existing one
821: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
822: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
823: , oki_utl_pub.g_all_k_category_code
824: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
825: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
820: -- Determine if the record is a new one or an existing one
821: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
822: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
823: , oki_utl_pub.g_all_k_category_code
824: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
825: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
826: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
827: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
828: -- Insert the new record
821: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
822: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
823: , oki_utl_pub.g_all_k_category_code
824: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
825: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
826: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
827: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
828: -- Insert the new record
829: oki_load_etr_pvt.ins_exp_to_rnwl(
822: , rec_g_org_csr.authoring_org_id, oki_utl_pub.g_all_customer_id
823: , oki_utl_pub.g_all_k_category_code
824: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
825: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
826: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
827: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
828: -- Insert the new record
829: oki_load_etr_pvt.ins_exp_to_rnwl(
830: p_summary_build_date => oki_utl_pub.g_summary_build_date
825: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
826: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
827: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
828: -- Insert the new record
829: oki_load_etr_pvt.ins_exp_to_rnwl(
830: p_summary_build_date => oki_utl_pub.g_summary_build_date
831: , p_authoring_org_id => rec_g_org_csr.authoring_org_id
832: , p_organization_name => rec_g_org_csr.organization_name
833: , p_customer_party_id => oki_utl_pub.g_all_customer_id
832: , p_organization_name => rec_g_org_csr.organization_name
833: , p_customer_party_id => oki_utl_pub.g_all_customer_id
834: , p_customer_name => oki_utl_pub.g_all_customer_name
835: , p_scs_code => oki_utl_pub.g_all_k_category_code
836: , p_measure_code => oki_load_etr_pvt.g_rnwl_oppty_code
837: , p_measure_code_meaning => l_bin_code_meaning
838: , p_bin_code_seq => l_bin_code_seq
839: , p_measure_value1 => l_curr_value
840: , p_measure_value2 => l_pct_change
846: END IF ;
847: ELSE
848: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
849: -- Update the existing record
850: oki_load_etr_pvt.upd_exp_to_rnwl(
851: p_measure_value1 => l_curr_value
852: , p_measure_value2 => l_pct_change
853: , p_measure_value3 => l_status_icon
854: , p_measure_code_meaning => l_bin_code_meaning
862: -- Load failed, exit immediately.
863: RAISE oki_utl_pub.g_excp_exit_immediate ;
864: END IF ;
865: END IF ;
866: CLOSE oki_load_etr_pvt.g_etr_csr ;
867:
868: --------------------------------------------------------------------------------
869: /*
870: --
878:
879: -- Get the bin display lookup values
880: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
881: l_measure_type || '.' ;
882: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
883: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
884: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
885: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
886: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
879: -- Get the bin display lookup values
880: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
881: l_measure_type || '.' ;
882: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
883: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
884: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
885: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
886: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
887: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
897:
898:
899: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
900: -- Determine if the record is a new one or an existing one
901: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
902: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
903: , oki_utl_pub.g_all_k_category_code
904: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
905: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
900: -- Determine if the record is a new one or an existing one
901: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
902: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
903: , oki_utl_pub.g_all_k_category_code
904: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
905: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
906: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
907: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
908: -- Insert the new record
901: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
902: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
903: , oki_utl_pub.g_all_k_category_code
904: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
905: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
906: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
907: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
908: -- Insert the new record
909: oki_load_etr_pvt.ins_exp_to_rnwl(
902: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
903: , oki_utl_pub.g_all_k_category_code
904: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
905: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
906: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
907: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
908: -- Insert the new record
909: oki_load_etr_pvt.ins_exp_to_rnwl(
910: p_summary_build_date => oki_utl_pub.g_summary_build_date
905: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
906: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
907: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
908: -- Insert the new record
909: oki_load_etr_pvt.ins_exp_to_rnwl(
910: p_summary_build_date => oki_utl_pub.g_summary_build_date
911: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
912: , p_organization_name => rec_g_org_csr.organization_name
913: , p_customer_party_id => oki_utl_pub.g_all_customer_id
912: , p_organization_name => rec_g_org_csr.organization_name
913: , p_customer_party_id => oki_utl_pub.g_all_customer_id
914: , p_customer_name => oki_utl_pub.g_all_customer_name
915: , p_scs_code => oki_utl_pub.g_all_k_category_code
916: , p_measure_code => oki_load_etr_pvt.g_auto_rnwl_vol_code
917: , p_measure_code_meaning => l_bin_code_meaning
918: , p_bin_code_seq => l_bin_code_seq
919: , p_measure_value1 => l_curr_value
920: , p_measure_value2 => NULL
926: END IF ;
927: ELSE
928: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
929: -- Update the existing record
930: oki_load_etr_pvt.upd_exp_to_rnwl(
931: p_measure_value1 => l_curr_value
932: , p_measure_value2 => NULL
933: , p_measure_value3 => NULL
934: , p_measure_code_meaning => l_bin_code_meaning
942: -- Load failed, exit immediately.
943: RAISE oki_utl_pub.g_excp_exit_immediate ;
944: END IF ;
945: END IF ;
946: CLOSE oki_load_etr_pvt.g_etr_csr ;
947:
948:
949: --
950: -- Process Auto Renewal Rate record
957:
958: -- Get the bin display lookup values
959: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
960: l_measure_type || '.' ;
961: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
962: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
963: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
964: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
965: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
958: -- Get the bin display lookup values
959: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
960: l_measure_type || '.' ;
961: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
962: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
963: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
964: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
965: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
966: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
974:
975:
976: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
977: -- Determine if the record is a new one or an existing one
978: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
979: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
980: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
981: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
982: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
976: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
977: -- Determine if the record is a new one or an existing one
978: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
979: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
980: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
981: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
982: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
983: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
984: -- Insert the new record
977: -- Determine if the record is a new one or an existing one
978: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
979: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
980: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
981: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
982: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
983: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
984: -- Insert the new record
985: oki_load_etr_pvt.ins_exp_to_rnwl(
978: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
979: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
980: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
981: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
982: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
983: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
984: -- Insert the new record
985: oki_load_etr_pvt.ins_exp_to_rnwl(
986: p_summary_build_date => oki_utl_pub.g_summary_build_date
981: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
982: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
983: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
984: -- Insert the new record
985: oki_load_etr_pvt.ins_exp_to_rnwl(
986: p_summary_build_date => oki_utl_pub.g_summary_build_date
987: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
988: , p_organization_name => rec_g_org_csr.organization_name
989: , p_customer_party_id => oki_utl_pub.g_all_customer_id
988: , p_organization_name => rec_g_org_csr.organization_name
989: , p_customer_party_id => oki_utl_pub.g_all_customer_id
990: , p_customer_name => oki_utl_pub.g_all_customer_name
991: , p_scs_code => oki_utl_pub.g_all_k_category_code
992: , p_measure_code => oki_load_etr_pvt.g_auto_rnwl_rate_code
993: , p_measure_code_meaning => l_bin_code_meaning
994: , p_bin_code_seq => l_bin_code_seq
995: , p_measure_value1 => l_curr_value
996: , p_measure_value2 => NULL
1002: END IF ;
1003: ELSE
1004: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1005: -- Update the existing record
1006: oki_load_etr_pvt.upd_exp_to_rnwl(
1007: p_measure_value1 => l_curr_value
1008: , p_measure_value2 => NULL
1009: , p_measure_value3 => NULL
1010: , p_measure_code_meaning => l_bin_code_meaning
1018: -- Load failed, exit immediately.
1019: RAISE oki_utl_pub.g_excp_exit_immediate ;
1020: END IF ;
1021: END IF ;
1022: CLOSE oki_load_etr_pvt.g_etr_csr ;
1023:
1024:
1025:
1026:
1036:
1037: -- Get the bin display lookup values
1038: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1039: l_measure_type || '.' ;
1040: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1041: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1042: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1043: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1044: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1037: -- Get the bin display lookup values
1038: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1039: l_measure_type || '.' ;
1040: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1041: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1042: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1043: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1044: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1045: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1053:
1054:
1055: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
1056: -- Determine if the record is a new one or an existing one
1057: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
1058: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
1059: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1060: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1061: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1055: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
1056: -- Determine if the record is a new one or an existing one
1057: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
1058: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
1059: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1060: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1061: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1062: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1063: -- Insert the new record
1056: -- Determine if the record is a new one or an existing one
1057: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
1058: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
1059: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1060: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1061: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1062: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1063: -- Insert the new record
1064: oki_load_etr_pvt.ins_exp_to_rnwl(
1057: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date,
1058: oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id,
1059: oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1060: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1061: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1062: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1063: -- Insert the new record
1064: oki_load_etr_pvt.ins_exp_to_rnwl(
1065: p_summary_build_date => oki_utl_pub.g_summary_build_date
1060: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1061: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1062: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1063: -- Insert the new record
1064: oki_load_etr_pvt.ins_exp_to_rnwl(
1065: p_summary_build_date => oki_utl_pub.g_summary_build_date
1066: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
1067: , p_organization_name => rec_g_org_csr.organization_name
1068: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1067: , p_organization_name => rec_g_org_csr.organization_name
1068: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1069: , p_customer_name => oki_utl_pub.g_all_customer_name
1070: , p_scs_code => oki_utl_pub.g_all_k_category_code
1071: , p_measure_code => oki_load_etr_pvt.g_rnwl_prc_uplft_code
1072: , p_measure_code_meaning => l_bin_code_meaning
1073: , p_bin_code_seq => l_bin_code_seq
1074: , p_measure_value1 => l_curr_value
1075: , p_measure_value2 => NULL
1081: END IF ;
1082: ELSE
1083: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1084: -- Update the existing record
1085: oki_load_etr_pvt.upd_exp_to_rnwl(
1086: p_measure_value1 => l_curr_value
1087: , p_measure_value2 => NULL
1088: , p_measure_value3 => NULL
1089: , p_measure_code_meaning => l_bin_code_meaning
1097: -- Load failed, exit immediately.
1098: RAISE oki_utl_pub.g_excp_exit_immediate ;
1099: END IF ;
1100: END IF ;
1101: CLOSE oki_load_etr_pvt.g_etr_csr ;
1102: */
1103: END LOOP g_org_csr_loop ;
1104:
1105: EXCEPTION
1138: fnd_message.set_name( application => 'OKI'
1139: , name => 'OKI_UNEXPECTED_FAILURE');
1140:
1141: fnd_message.set_token( token => 'OBJECT_NAME'
1142: , value => 'OKI_LOAD_ETR_PVT.CALC_ETR_DTL1');
1143:
1144: fnd_file.put_line( which => fnd_file.log
1145: , buff => fnd_message.get);
1146:
1327:
1328: -- Get the bin display lookup values
1329: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1330: l_measure_type || '.' ;
1331: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1332: , oki_load_etr_pvt.g_tactk_code ) ;
1333: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1334: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1335: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1328: -- Get the bin display lookup values
1329: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1330: l_measure_type || '.' ;
1331: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1332: , oki_load_etr_pvt.g_tactk_code ) ;
1333: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1334: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1335: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1336: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1378: END IF ;
1379:
1380: l_loc := 'Inserting / updating ' || l_measure_type || '.' ;
1381: -- Determine if the record is a new one or an existing one
1382: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1383: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1384: , oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_tactk_code ) ;
1385: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1386: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1380: l_loc := 'Inserting / updating ' || l_measure_type || '.' ;
1381: -- Determine if the record is a new one or an existing one
1382: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1383: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1384: , oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_tactk_code ) ;
1385: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1386: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1387: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1388: -- Insert the new record
1381: -- Determine if the record is a new one or an existing one
1382: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1383: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1384: , oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_tactk_code ) ;
1385: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1386: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1387: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1388: -- Insert the new record
1389: oki_load_etr_pvt.ins_exp_to_rnwl(
1382: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1383: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1384: , oki_utl_pub.g_all_k_category_code, oki_load_etr_pvt.g_tactk_code ) ;
1385: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1386: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1387: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1388: -- Insert the new record
1389: oki_load_etr_pvt.ins_exp_to_rnwl(
1390: p_summary_build_date => oki_utl_pub.g_summary_build_date
1385: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1386: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1387: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1388: -- Insert the new record
1389: oki_load_etr_pvt.ins_exp_to_rnwl(
1390: p_summary_build_date => oki_utl_pub.g_summary_build_date
1391: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
1392: , p_organization_name => oki_utl_pub.g_all_organization_name
1393: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1392: , p_organization_name => oki_utl_pub.g_all_organization_name
1393: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1394: , p_customer_name => oki_utl_pub.g_all_customer_name
1395: , p_scs_code => oki_utl_pub.g_all_k_category_code
1396: , p_measure_code => oki_load_etr_pvt.g_tactk_code
1397: , p_measure_code_meaning => l_bin_code_meaning
1398: , p_bin_code_seq => l_bin_code_seq
1399: , p_measure_value1 => l_curr_value
1400: , p_measure_value2 => l_pct_change
1406: END IF ;
1407: ELSE
1408: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1409: -- Update the existing record
1410: oki_load_etr_pvt.upd_exp_to_rnwl(
1411: p_measure_value1 => l_curr_value
1412: , p_measure_value2 => l_pct_change
1413: , p_measure_value3 => l_status_icon
1414: , p_measure_code_meaning => l_bin_code_meaning
1422: -- Load failed, exit immediately.
1423: RAISE oki_utl_pub.g_excp_exit_immediate ;
1424: END IF ;
1425: END IF ;
1426: CLOSE oki_load_etr_pvt.g_etr_csr ;
1427:
1428: --
1429: -- Process Renewal Rate record
1430: --
1438:
1439: -- Get the bin display lookup values
1440: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1441: l_measure_type || '.' ;
1442: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1443: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
1444: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1445: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1446: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1439: -- Get the bin display lookup values
1440: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1441: l_measure_type || '.' ;
1442: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1443: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
1444: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1445: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1446: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1447: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1521: CLOSE l_rnwl_rate_csr ;
1522: */
1523: l_loc := 'Inserting / updating ' || l_measure_type || '.' ;
1524: -- Determine if the record is a new one or an existing one
1525: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1526: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1527: , oki_utl_pub.g_all_k_category_code
1528: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
1529: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1524: -- Determine if the record is a new one or an existing one
1525: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1526: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1527: , oki_utl_pub.g_all_k_category_code
1528: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
1529: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1530: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1531: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1532: -- Insert the new record
1525: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1526: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1527: , oki_utl_pub.g_all_k_category_code
1528: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
1529: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1530: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1531: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1532: -- Insert the new record
1533: oki_load_etr_pvt.ins_exp_to_rnwl(
1526: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1527: , oki_utl_pub.g_all_k_category_code
1528: , oki_load_etr_pvt.g_rnwl_rate_code ) ;
1529: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1530: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1531: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1532: -- Insert the new record
1533: oki_load_etr_pvt.ins_exp_to_rnwl(
1534: p_summary_build_date => oki_utl_pub.g_summary_build_date
1529: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1530: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1531: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1532: -- Insert the new record
1533: oki_load_etr_pvt.ins_exp_to_rnwl(
1534: p_summary_build_date => oki_utl_pub.g_summary_build_date
1535: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
1536: , p_organization_name => oki_utl_pub.g_all_organization_name
1537: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1536: , p_organization_name => oki_utl_pub.g_all_organization_name
1537: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1538: , p_customer_name => oki_utl_pub.g_all_customer_name
1539: , p_scs_code => oki_utl_pub.g_all_k_category_code
1540: , p_measure_code => oki_load_etr_pvt.g_rnwl_rate_code
1541: , p_measure_code_meaning => l_bin_code_meaning
1542: , p_bin_code_seq => l_bin_code_seq
1543: , p_measure_value1 => l_curr_value
1544: , p_measure_value2 => l_pct_change
1550: END IF ;
1551: ELSE
1552: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1553: -- Update the existing record
1554: oki_load_etr_pvt.upd_exp_to_rnwl(
1555: p_measure_value1 => l_curr_value
1556: , p_measure_value2 => l_pct_change
1557: , p_measure_value3 => l_status_icon
1558: , p_measure_code_meaning => l_bin_code_meaning
1566: -- Load failed, exit immediately.
1567: RAISE oki_utl_pub.g_excp_exit_immediate ;
1568: END IF ;
1569: END IF ;
1570: CLOSE oki_load_etr_pvt.g_etr_csr ;
1571:
1572: --
1573: -- Process Sequential Growth Rate record
1574: --
1580:
1581: -- Get the bin display lookup values
1582: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1583: l_measure_type || '.' ;
1584: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1585: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
1586: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1587: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1588: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1581: -- Get the bin display lookup values
1582: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1583: l_measure_type || '.' ;
1584: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1585: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
1586: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1587: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1588: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1589: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1650: END IF ;
1651:
1652: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
1653: -- Determine if the record is a new one or an existing one
1654: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1655: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1656: , oki_utl_pub.g_all_k_category_code
1657: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
1658: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1653: -- Determine if the record is a new one or an existing one
1654: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1655: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1656: , oki_utl_pub.g_all_k_category_code
1657: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
1658: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1659: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1660: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1661: -- Insert the new record
1654: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1655: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1656: , oki_utl_pub.g_all_k_category_code
1657: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
1658: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1659: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1660: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1661: -- Insert the new record
1662: oki_load_etr_pvt.ins_exp_to_rnwl(
1655: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1656: , oki_utl_pub.g_all_k_category_code
1657: , oki_load_etr_pvt.g_seq_grw_rate_code ) ;
1658: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1659: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1660: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1661: -- Insert the new record
1662: oki_load_etr_pvt.ins_exp_to_rnwl(
1663: p_summary_build_date => oki_utl_pub.g_summary_build_date
1658: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1659: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1660: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1661: -- Insert the new record
1662: oki_load_etr_pvt.ins_exp_to_rnwl(
1663: p_summary_build_date => oki_utl_pub.g_summary_build_date
1664: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
1665: , p_organization_name => oki_utl_pub.g_all_organization_name
1666: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1665: , p_organization_name => oki_utl_pub.g_all_organization_name
1666: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1667: , p_customer_name => oki_utl_pub.g_all_customer_name
1668: , p_scs_code => oki_utl_pub.g_all_k_category_code
1669: , p_measure_code => oki_load_etr_pvt.g_seq_grw_rate_code
1670: , p_measure_code_meaning => l_bin_code_meaning
1671: , p_bin_code_seq => l_bin_code_seq
1672: , p_measure_value1 => l_curr_value
1673: , p_measure_value2 => l_pct_change
1679: END IF ;
1680: ELSE
1681: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1682: -- Update the existing record
1683: oki_load_etr_pvt.upd_exp_to_rnwl(
1684: p_measure_value1 => l_curr_value
1685: , p_measure_value2 => l_pct_change
1686: , p_measure_value3 => l_status_icon
1687: , p_measure_code_meaning => l_bin_code_meaning
1695: -- Load failed, exit immediately.
1696: RAISE oki_utl_pub.g_excp_exit_immediate ;
1697: END IF ;
1698: END IF ;
1699: CLOSE oki_load_etr_pvt.g_etr_csr ;
1700:
1701: --
1702: -- Process Renewal Opportunity Outstanding record
1703: --
1709:
1710: -- Get the bin display lookup values
1711: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1712: l_measure_type || '.' ;
1713: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1714: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
1715: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1716: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1717: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1710: -- Get the bin display lookup values
1711: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1712: l_measure_type || '.' ;
1713: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1714: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
1715: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1716: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1717: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1718: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1756: END IF ;
1757:
1758: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
1759: -- Determine if the record is a new one or an existing one
1760: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1761: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1762: , oki_utl_pub.g_all_k_category_code
1763: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
1764: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1759: -- Determine if the record is a new one or an existing one
1760: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1761: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1762: , oki_utl_pub.g_all_k_category_code
1763: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
1764: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1765: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1766: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1767: -- Insert the new record
1760: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1761: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1762: , oki_utl_pub.g_all_k_category_code
1763: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
1764: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1765: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1766: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1767: -- Insert the new record
1768: oki_load_etr_pvt.ins_exp_to_rnwl(
1761: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1762: , oki_utl_pub.g_all_k_category_code
1763: , oki_load_etr_pvt.g_rnwl_oppty_code ) ;
1764: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1765: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1766: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1767: -- Insert the new record
1768: oki_load_etr_pvt.ins_exp_to_rnwl(
1769: p_summary_build_date => oki_utl_pub.g_summary_build_date
1764: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1765: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1766: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1767: -- Insert the new record
1768: oki_load_etr_pvt.ins_exp_to_rnwl(
1769: p_summary_build_date => oki_utl_pub.g_summary_build_date
1770: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
1771: , p_organization_name => oki_utl_pub.g_all_organization_name
1772: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1771: , p_organization_name => oki_utl_pub.g_all_organization_name
1772: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1773: , p_customer_name => oki_utl_pub.g_all_customer_name
1774: , p_scs_code => oki_utl_pub.g_all_k_category_code
1775: , p_measure_code => oki_load_etr_pvt.g_rnwl_oppty_code
1776: , p_measure_code_meaning => l_bin_code_meaning
1777: , p_bin_code_seq => l_bin_code_seq
1778: , p_measure_value1 => l_curr_value
1779: , p_measure_value2 => l_pct_change
1785: END IF ;
1786: ELSE
1787: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1788: -- Update the existing record
1789: oki_load_etr_pvt.upd_exp_to_rnwl(
1790: p_measure_value1 => l_curr_value
1791: , p_measure_value2 => l_pct_change
1792: , p_measure_value3 => l_status_icon
1793: , p_measure_code_meaning => l_bin_code_meaning
1801: -- Load failed, exit immediately.
1802: RAISE oki_utl_pub.g_excp_exit_immediate ;
1803: END IF ;
1804: END IF ;
1805: CLOSE oki_load_etr_pvt.g_etr_csr ;
1806:
1807:
1808: --
1809: -- Process Auto Renewal % By Volume record
1816:
1817: -- Get the bin display lookup values
1818: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1819: l_measure_type || '.' ;
1820: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1821: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
1822: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1823: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1824: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1817: -- Get the bin display lookup values
1818: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1819: l_measure_type || '.' ;
1820: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1821: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
1822: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1823: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1824: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1825: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1832:
1833:
1834: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
1835: -- Determine if the record is a new one or an existing one
1836: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1837: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1838: , oki_utl_pub.g_all_k_category_code
1839: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
1840: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1835: -- Determine if the record is a new one or an existing one
1836: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1837: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1838: , oki_utl_pub.g_all_k_category_code
1839: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
1840: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1841: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1842: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1843: -- Insert the new record
1836: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1837: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1838: , oki_utl_pub.g_all_k_category_code
1839: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
1840: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1841: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1842: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1843: -- Insert the new record
1844: oki_load_etr_pvt.ins_exp_to_rnwl(
1837: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1838: , oki_utl_pub.g_all_k_category_code
1839: , oki_load_etr_pvt.g_auto_rnwl_vol_code ) ;
1840: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1841: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1842: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1843: -- Insert the new record
1844: oki_load_etr_pvt.ins_exp_to_rnwl(
1845: p_summary_build_date => oki_utl_pub.g_summary_build_date
1840: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1841: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1842: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1843: -- Insert the new record
1844: oki_load_etr_pvt.ins_exp_to_rnwl(
1845: p_summary_build_date => oki_utl_pub.g_summary_build_date
1846: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
1847: , p_organization_name => oki_utl_pub.g_all_organization_name
1848: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1849: , p_customer_name => oki_utl_pub.g_all_customer_name
1850: , p_scs_code => oki_utl_pub.g_all_k_category_code
1851: , p_measure_code_meaning => l_bin_code_meaning
1852: , p_bin_code_seq => l_bin_code_seq
1853: , p_measure_code => oki_load_etr_pvt.g_auto_rnwl_vol_code
1854: , p_measure_value1 => l_curr_value
1855: , p_measure_value2 => NULL
1856: , p_measure_value3 => NULL
1857: , x_retcode => l_retcode ) ;
1861: END IF ;
1862: ELSE
1863: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1864: -- Update the existing record
1865: oki_load_etr_pvt.upd_exp_to_rnwl(
1866: p_measure_value1 => l_curr_value
1867: , p_measure_value2 => NULL
1868: , p_measure_value3 => NULL
1869: , p_measure_code_meaning => l_bin_code_meaning
1877: -- Load failed, exit immediately.
1878: RAISE oki_utl_pub.g_excp_exit_immediate ;
1879: END IF ;
1880: END IF ;
1881: CLOSE oki_load_etr_pvt.g_etr_csr ;
1882:
1883:
1884:
1885: --
1893:
1894: -- Get the bin display lookup values
1895: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1896: l_measure_type || '.' ;
1897: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1898: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
1899: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1900: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1901: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1894: -- Get the bin display lookup values
1895: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1896: l_measure_type || '.' ;
1897: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1898: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
1899: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1900: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1901: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1902: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1908: l_curr_value := NULL ;
1909:
1910: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
1911: -- Determine if the record is a new one or an existing one
1912: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1913: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1914: , oki_utl_pub.g_all_k_category_code
1915: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
1916: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1911: -- Determine if the record is a new one or an existing one
1912: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1913: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1914: , oki_utl_pub.g_all_k_category_code
1915: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
1916: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1917: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1918: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1919: -- Insert the new record
1912: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1913: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1914: , oki_utl_pub.g_all_k_category_code
1915: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
1916: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1917: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1918: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1919: -- Insert the new record
1920: oki_load_etr_pvt.ins_exp_to_rnwl(
1913: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1914: , oki_utl_pub.g_all_k_category_code
1915: , oki_load_etr_pvt.g_auto_rnwl_rate_code ) ;
1916: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1917: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1918: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1919: -- Insert the new record
1920: oki_load_etr_pvt.ins_exp_to_rnwl(
1921: p_summary_build_date => oki_utl_pub.g_summary_build_date
1916: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1917: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1918: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1919: -- Insert the new record
1920: oki_load_etr_pvt.ins_exp_to_rnwl(
1921: p_summary_build_date => oki_utl_pub.g_summary_build_date
1922: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
1923: , p_organization_name => oki_utl_pub.g_all_organization_name
1924: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1923: , p_organization_name => oki_utl_pub.g_all_organization_name
1924: , p_customer_party_id => oki_utl_pub.g_all_customer_id
1925: , p_customer_name => oki_utl_pub.g_all_customer_name
1926: , p_scs_code => oki_utl_pub.g_all_k_category_code
1927: , p_measure_code => oki_load_etr_pvt.g_auto_rnwl_rate_code
1928: , p_measure_code_meaning => l_bin_code_meaning
1929: , p_bin_code_seq => l_bin_code_seq
1930: , p_measure_value1 => l_curr_value
1931: , p_measure_value2 => NULL
1937: END IF ;
1938: ELSE
1939: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
1940: -- Update the existing record
1941: oki_load_etr_pvt.upd_exp_to_rnwl(
1942: p_measure_value1 => l_curr_value
1943: , p_measure_value2 => NULL
1944: , p_measure_value3 => NULL
1945: , p_measure_code_meaning => l_bin_code_meaning
1953: -- Load failed, exit immediately.
1954: RAISE oki_utl_pub.g_excp_exit_immediate ;
1955: END IF ;
1956: END IF ;
1957: CLOSE oki_load_etr_pvt.g_etr_csr ;
1958:
1959:
1960: --
1961: -- Process Renewal Price Uplift record
1968:
1969: -- Get the bin display lookup values
1970: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1971: l_measure_type || '.' ;
1972: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1973: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1974: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1975: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1976: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1969: -- Get the bin display lookup values
1970: l_loc := 'Opening cursor to retrieve bin display lookup values for ' ||
1971: l_measure_type || '.' ;
1972: OPEN oki_utl_pvt.g_bin_disp_lkup_csr ( oki_load_etr_pvt.g_bin_id
1973: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1974: FETCH oki_utl_pvt.g_bin_disp_lkup_csr INTO rec_l_bin_disp_lkup_csr ;
1975: IF oki_utl_pvt.g_bin_disp_lkup_csr%FOUND THEN
1976: l_bin_code_meaning := rec_l_bin_disp_lkup_csr.bin_code_meaning ;
1977: l_bin_code_seq := rec_l_bin_disp_lkup_csr.bin_code_seq ;
1985:
1986:
1987: l_loc := 'Inserting / updating total ' || l_measure_type || '.' ;
1988: -- Determine if the record is a new one or an existing one
1989: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1990: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1991: , oki_utl_pub.g_all_k_category_code
1992: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1993: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1988: -- Determine if the record is a new one or an existing one
1989: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1990: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1991: , oki_utl_pub.g_all_k_category_code
1992: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1993: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1994: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1995: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1996: -- Insert the new record
1989: OPEN oki_load_etr_pvt.g_etr_csr ( oki_utl_pub.g_summary_build_date
1990: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1991: , oki_utl_pub.g_all_k_category_code
1992: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1993: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1994: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1995: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1996: -- Insert the new record
1997: oki_load_etr_pvt.ins_exp_to_rnwl(
1990: , oki_utl_pub.g_all_organization_id, oki_utl_pub.g_all_customer_id
1991: , oki_utl_pub.g_all_k_category_code
1992: , oki_load_etr_pvt.g_rnwl_prc_uplft_code ) ;
1993: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1994: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1995: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1996: -- Insert the new record
1997: oki_load_etr_pvt.ins_exp_to_rnwl(
1998: p_summary_build_date => oki_utl_pub.g_summary_build_date
1993: FETCH oki_load_etr_pvt.g_etr_csr INTO rec_g_etr_csr ;
1994: IF oki_load_etr_pvt.g_etr_csr%NOTFOUND THEN
1995: l_loc := 'Insert the new record -- ' || l_measure_type || '.' ;
1996: -- Insert the new record
1997: oki_load_etr_pvt.ins_exp_to_rnwl(
1998: p_summary_build_date => oki_utl_pub.g_summary_build_date
1999: , p_authoring_org_id => oki_utl_pub.g_all_organization_id
2000: , p_organization_name => oki_utl_pub.g_all_organization_name
2001: , p_customer_party_id => oki_utl_pub.g_all_customer_id
2002: , p_customer_name => oki_utl_pub.g_all_customer_name
2003: , p_scs_code => oki_utl_pub.g_all_k_category_code
2004: , p_measure_code_meaning => l_bin_code_meaning
2005: , p_bin_code_seq => l_bin_code_seq
2006: , p_measure_code => oki_load_etr_pvt.g_rnwl_prc_uplft_code
2007: , p_measure_value1 => l_curr_value
2008: , p_measure_value2 => NULL
2009: , p_measure_value3 => NULL
2010: , x_retcode => l_retcode ) ;
2014: END IF ;
2015: ELSE
2016: l_loc := 'Update the record -- ' || l_measure_type || '.' ;
2017: -- Update the existing record
2018: oki_load_etr_pvt.upd_exp_to_rnwl(
2019: p_measure_value1 => l_curr_value
2020: , p_measure_value2 => NULL
2021: , p_measure_value3 => NULL
2022: , p_measure_code_meaning => l_bin_code_meaning
2030: -- Load failed, exit immediately.
2031: RAISE oki_utl_pub.g_excp_exit_immediate ;
2032: END IF ;
2033: END IF ;
2034: CLOSE oki_load_etr_pvt.g_etr_csr ;
2035:
2036: EXCEPTION
2037: WHEN oki_utl_pub.g_excp_exit_immediate THEN
2038: -- Do not log an error ; It has already been logged.
2070: fnd_message.set_name( application => 'OKI'
2071: , name => 'OKI_UNEXPECTED_FAILURE');
2072:
2073: fnd_message.set_token( token => 'OBJECT_NAME'
2074: , value => 'OKI_LOAD_ETR_PVT.CALC_ETR_SUM');
2075:
2076: fnd_file.put_line( which => fnd_file.log
2077: , buff => fnd_message.get);
2078:
2155: RAISE oki_utl_pub.g_excp_exit_immediate ;
2156: END IF ;
2157:
2158: -- Procedure to calculate the amounts for the all level
2159: oki_load_etr_pvt.calc_etr_sum (
2160: x_retcode => l_retcode ) ;
2161:
2162: IF l_retcode = '2' THEN
2163: -- Load failed, exit immediately.
2164: RAISE oki_utl_pub.g_excp_exit_immediate ;
2165: END IF ;
2166:
2167: -- Procedure to calculate the amounts for the organization level
2168: oki_load_etr_pvt.calc_etr_dtl1 (
2169: x_retcode => l_retcode ) ;
2170:
2171: IF l_retcode = '2' THEN
2172: -- Load failed, exit immediately.
2232: fnd_message.set_name( application => 'OKI'
2233: , name => 'OKI_UNEXPECTED_FAILURE' ) ;
2234:
2235: fnd_message.set_token( token => 'OBJECT_NAME'
2236: , value => 'OKI_LOAD_ETR_PVT.CRT_EXP_TO_RNWL' ) ;
2237:
2238: fnd_file.put_line( which => fnd_file.log
2239: , buff => fnd_message.get ) ;
2240:
2251: g_program_application_id := fnd_global.prog_appl_id ;
2252: g_program_id := fnd_global.conc_program_id ;
2253: g_program_update_date := SYSDATE ;
2254:
2255: END oki_load_etr_pvt ;