CREATE OR REPLACE PACKAGE efnow098$ IS -- g_package_name CONSTANT VARCHAR2(15) := 'efnow098$'; g_title CONSTANT VARCHAR2(50) := caco_utilities.get_module_text(2404); g_header CONSTANT VARCHAR2(160) := '$Header: $'; g_revision CONSTANT VARCHAR2(160) := '$Revision: $'; g_date_format CONSTANT VARCHAR2(20) := nvl(cout_system_configuration.get_configuration_item('g_date_format') ,'DD/MM/YYYY'); -- -- Global arrays -- g_vc_arr owa_util.vc_arr; -- -- Global types -- TYPE gt_nomi_tab IS TABLE OF nominations%ROWTYPE INDEX BY BINARY_INTEGER; TYPE gr_nnpcv_tab IS RECORD( nnpcv_id NUMBER ,VALUE VARCHAR2(100) ,gas_day DATE ,coca_id NUMBER ,nomi_id NUMBER ,conp_id NUMBER ,created_by VARCHAR2(30) ,created_on DATE); TYPE gt_nnpcv_tab IS TABLE OF gr_nnpcv_tab INDEX BY BINARY_INTEGER; -- TYPE gt_row_error IS TABLE OF VARCHAR2(1000) INDEX BY BINARY_INTEGER; TYPE gr_cell_error IS RECORD( conp_id conf_net_point_cat_vals.conp_id%TYPE ,coca_id contract_categories.coca_id%TYPE ,iteration NUMBER ,message VARCHAR2(1000)); TYPE gt_cell_error IS TABLE OF gr_cell_error INDEX BY BINARY_INTEGER; -- g_row_error gt_row_error; g_cell_error gt_cell_error; -- g_empty_nomi_tab gt_nomi_tab; g_empty_nnpcv_tab gt_nnpcv_tab; g_empty_cell_error gt_cell_error; g_empty_row_error gt_row_error; -- -- Global variables of these types -- g_nomi_tab gt_nomi_tab; g_nnpcv_tab gt_nnpcv_tab; g_nom_identifier nominations.identifier%TYPE; g_gas_days owa_util.vc_arr; -- -- Global Error Holder -- g_error_message VARCHAR2(2000) := NULL; -- g_spte_single spreadsheet_templates.NAME%TYPE := 'Single Day'; g_spte_multi spreadsheet_templates.NAME%TYPE := 'Multiple Day'; g_spte_smulti spreadsheet_templates.NAME%TYPE := 'Single-Multi Day'; g_spte_hourly spreadsheet_templates.NAME%TYPE := 'Hourly'; -- gc_suca_msg_group_en CONSTANT VARCHAR2(100) := 'Confirmation'; gc_suca_name_en CONSTANT VARCHAR2(100) := 'Receipt'; -- gc_no_data_found VARCHAR2(100); gc_missing_details VARCHAR2(100); gc_invalid_file_format VARCHAR2(100); gc_no_cont_found VARCHAR2(100); gc_nom_id_null VARCHAR2(100); gc_dup_nom_identifier VARCHAR2(100); -- g_day_at_start_of_week VARCHAR2(1); -- g_perc_split_en module_text.text%TYPE := caco_utilities.get_module_text(3921 ,'EN'); g_perc_split_hu module_text.text%TYPE := caco_utilities.get_module_text(3921 ,'HU'); -- -- Global cursors -- Cursor to get the percentage split total for -- non virtual network points CURSOR c_tot_perc_split(cp_cont_id NUMBER) IS SELECT nvl(SUM(cnppv.VALUE) ,0) FROM PARAMETERS pars ,contract_parameters copa ,cont_net_point_param_vals cnppv ,contracts cont ,cont_network_points conp ,network_points nepo WHERE cont.cont_id = cp_cont_id AND copa.cont_id = cont.cont_id AND cnppv.copa_id = copa.copa_id AND copa.pars_id = pars.pars_id AND cnppv.conp_id = conp.conp_id AND conp.nepo_id = nepo.nepo_id AND nepo.nepo_type <> 'V' AND pars.NAME IN (g_perc_split_en, g_perc_split_hu); -- -- Cursor to get the conp_ids and percentage split values for -- non virtual network points CURSOR c_conp(cp_cont_id NUMBER) IS SELECT cnppv.VALUE perc_split ,conp.conp_id FROM PARAMETERS pars ,contract_parameters copa ,cont_net_point_param_vals cnppv ,contracts cont ,cont_network_points conp ,network_points nepo WHERE cont.cont_id = cp_cont_id AND copa.cont_id = cont.cont_id AND cnppv.copa_id = copa.copa_id AND copa.pars_id = pars.pars_id AND cnppv.conp_id = conp.conp_id AND conp.nepo_id = nepo.nepo_id AND nepo.nepo_type <> 'V' AND pars.NAME IN (g_perc_split_en, g_perc_split_hu) ORDER BY nepo.code; /** -- Generic procedures for the date LOV, same as designer generated code */ FUNCTION get_exception_message(p_exception_number IN NUMBER) RETURN VARCHAR2; FUNCTION get_spte_name(p_cont_id IN contracts.cont_id%TYPE) RETURN VARCHAR2; -- PROCEDURE calendar(z_field_name IN VARCHAR2 ,z_caller_url IN VARCHAR2 ,z_field_value IN VARCHAR2 DEFAULT NULL ,z_field_format IN VARCHAR2 DEFAULT NULL ,z_field_prompt IN VARCHAR2 DEFAULT NULL); -- PROCEDURE format_cal_date(z_field_name IN VARCHAR2 ,z_field_format IN VARCHAR2 ,DAY IN VARCHAR2 ,MONTH IN VARCHAR2 ,YEAR IN VARCHAR2); -- PROCEDURE noms_js(p_cont_id IN contracts.cont_id%TYPE DEFAULT NULL); -- PROCEDURE nomination_css; -- PROCEDURE redisplay(p_contract IN VARCHAR2 DEFAULT NULL ,p_nomination IN VARCHAR2 DEFAULT NULL ,p_spreadsheet IN VARCHAR2 DEFAULT NULL ,p_rb IN VARCHAR2 DEFAULT 1); -- PROCEDURE nomination_lov(z_filter IN VARCHAR2 DEFAULT NULL ,z_mode IN VARCHAR2 DEFAULT NULL ,z_caller_url IN VARCHAR2 DEFAULT NULL ,z_formrow IN NUMBER DEFAULT NULL ,z_long_list IN VARCHAR2 DEFAULT NULL ,z_issue_wait IN VARCHAR2 DEFAULT NULL); -- PROCEDURE submit_nomination(val IN owa_util.vc_arr ,gasday IN owa_util.vc_arr ,coca IN owa_util.vc_arr ,conp IN owa_util.vc_arr ,cv IN owa_util.vc_arr ,cont_id IN contracts.cont_id%TYPE ,action IN VARCHAR2 DEFAULT NULL ,p_gasday_start IN VARCHAR2 DEFAULT NULL ,p_gasday_end IN VARCHAR2 DEFAULT NULL); -- PROCEDURE startup; -- FUNCTION get_receive_before_start( p_cont_id IN contracts.cont_id%TYPE ) RETURN NUMBER; -- PROCEDURE display_nnpcv_tab(p_nnpcv_tab IN gt_nnpcv_tab); -- PROCEDURE display_vc_arr(arr_name IN VARCHAR2, arr IN owa_util.vc_arr); -- FUNCTION check_gate_closure ( p_cont_id IN contracts.cont_id%TYPE , p_date IN DATE , p_message OUT VARCHAR2 ) RETURN BOOLEAN; -- FUNCTION send_nom_notification( p_cont_id IN contracts.cont_id%TYPE , p_cust_id IN customers.cust_id%TYPE , p_nomi_identifier IN nominations.identifier%TYPE DEFAULT NULL , p_gas_day_start IN DATE DEFAULT NULL , p_gas_day_end IN DATE DEFAULT NULL , p_timestamp IN DATE DEFAULT NULL ) RETURN VARCHAR2; -- FUNCTION timestamp_nomi ( p_nomi_id IN nominations.nomi_id%TYPE , p_nomi_details IN VARCHAR2 ) RETURN DATE; -- FUNCTION about RETURN VARCHAR2; -- END efnow098$; /