create or replace package body efnow250$ is private_ModuleRef WSGOC.MODULE_REF; procedure CreateStartupJavaScript; PROCEDURE nepg_startup( p_ins_or_upd IN VARCHAR2 DEFAULT 'INSERT' , p_success IN VARCHAR2 DEFAULT NULL , p_nepg_id IN network_point_groups.nepg_id%TYPE DEFAULT 0 , p_nepg_name IN VARCHAR2 DEFAULT NULL , p_nepg_code IN VARCHAR2 DEFAULT NULL , p_nepg_status IN contracts.status%TYPE DEFAULT NULL , p_error IN VARCHAR2 DEFAULT NULL , p_err_msg IN VARCHAR2 DEFAULT NULL , p_nepo_id IN owa_util.vc_arr DEFAULT efnow251$.g_vc_arr ) IS -- nepg_startup -- -- BEGIN -- Check we have permission to be using this module. IF NOT caco_security.security_check('efnow250$') THEN RETURN; END IF; -- -- Set the package name in efnow251$ efnow251$.g_package_name := 'efnow250$'; -- -- Call the contracts startup efnow251$.startup(p_ins_or_upd => p_ins_or_upd, p_success => p_success, p_nepg_id => p_nepg_id, p_nepg_name => p_nepg_name, p_nepg_code => p_nepg_code, p_nepg_status => p_nepg_status, p_error => p_error, p_err_msg => p_err_msg, p_nepo_id => p_nepo_id); -- END nepg_startup; -------------------------------------------------------------------------------- -- Name: efnow250$.Startup -- -- Description: This procedure is the entry point for the 'efnow250$' -- module. -- -- Parameters: None -- -------------------------------------------------------------------------------- procedure Startup is begin if not caco_security.security_check('efnow250$') then return; end if; WSGL.RegisterURL('efnow250$.startup'); if WSGL.NotLowerCase then return; end if; WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); efnow250$nepg.startup( Z_DIRECT_CALL => TRUE ); exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow250$.Startup'); end; -------------------------------------------------------------------------------- -- Name: efnow250$.firstpage -- -- Description: This procedure creates the first page for the 'efnow250$' -- module. -- -- Parameters: Z_DIRECT_CALL -- -------------------------------------------------------------------------------- procedure FirstPage(Z_DIRECT_CALL in boolean ) is begin if not caco_security.security_check('efnow250$') then return; end if; WSGL.OpenPageHead(''); WSGL.METATag; WSGL.ClosePageHead; WSGL.OpenPageBody(FALSE, p_attributes=>''); CreateStartupJavaScript; WSGL.DefaultPageCaption('', 1); htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); WSGL.NavLinks(WSGL.MENU_LONG, 'EFNOW251', 0, 'efnow251$.startup',p_output_line=>FALSE, p_target=>'_top'); WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow250$.showabout', '_top', p_output_line=>FALSE); WSGL.NavLinks; htp.formClose; WSGL.ClosePageBody; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow250$.FirstPage'); end; -------------------------------------------------------------------------------- -- Name: efnow250$.showabout -- -- Description: This procedure is used to display an 'About' page for the -- 'efnow250$' module. -- -------------------------------------------------------------------------------- procedure showabout is l_usr varchar2(255) := null; begin if not caco_security.security_check('efnow250$') then return; end if; l_usr := caco_security.get_user; WSGL.RegisterURL('efnow250$.showabout'); if WSGL.NotLowerCase then return; end if; WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); WSGL.METATag; TemplateHeader(TRUE,2); WSGL.ClosePageHead; WSGL.OpenPageBody(FALSE, p_attributes=>''); htp.p(caco_system.menu); WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' '); htp.para; htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); htp.para; WSGL.Info(FALSE, 'Nominations', 'EFNOW250', l_usr); htp.p(caco_system.footer); WSGL.ClosePageBody; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow250$.ShowAbout'); end; -------------------------------------------------------------------------------- -- Name: efnow250$.TemplateHeader -- -- Description: -- -------------------------------------------------------------------------------- procedure TemplateHeader(Z_DIRECT_CALL in boolean, Z_TEMPLATE_ID in number) is begin if not caco_security.security_check('efnow250$') then return; end if; if Z_TEMPLATE_ID = 1 then -- Template defined in \\loordv01\framework\css2\css_content.htm htp.p(' '); elsif Z_TEMPLATE_ID = 2 then -- Template defined in \\loordv01\framework\css2\css_about.htm htp.p(' '); elsif Z_TEMPLATE_ID = 3 then -- Template defined in \\loordv01\framework\css2\css_query.htm htp.p(' '); elsif Z_TEMPLATE_ID = 4 then -- Template defined in \\loordv01\framework\css2\css_view.htm htp.p(' '); elsif Z_TEMPLATE_ID = 5 then -- Template defined in \\loordv01\framework\css2\css_insert.htm htp.p(' '); elsif Z_TEMPLATE_ID = 6 then -- Template defined in \\loordv01\framework\css2\css_recordlist.htm htp.p(' '); elsif Z_TEMPLATE_ID = 7 then -- Template defined in \\loordv01\framework\css2\css_lov.htm htp.p(' '); elsif Z_TEMPLATE_ID = 8 then -- Template defined in \\loordv01\framework\css2\css_text.htm htp.p(' '); end if; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow250$.TemplateHeader'); end; -------------------------------------------------------------------------------- -- Name: efnow250$.GetRef -- -- Description: Returns a handle to the display data for the -- 'efnow250$' module. -- If the display object does not exist then it creates it first. -- -- Parameters: -- -------------------------------------------------------------------------------- function GetRef return WSGOC.MODULE_REF is begin if ( WSGOC.Is_Null(private_ModuleRef)) then private_ModuleRef := WSGOC.Module ( pShortName => 'efnow250$' , pFirstTitle => '' ); end if; return private_ModuleRef; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow250$.GetRef'); raise; end; -------------------------------------------------------------------------------- -- Name: efnow250$.CreateStartupJavaScript -- -- Description: -- -- Parameters: -- -------------------------------------------------------------------------------- procedure CreateStartupJavaScript is begin htp.p(WSGJSL.OpenScript); htp.p('var FormType = "Startup";'); htp.p(WSGJSL.CloseScript); end; end; /