Files
mip/Data/BulkLoad/EFT/Nominations/plsql/efnow098$.spc

193 lines
7.9 KiB
Plaintext

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$;
/