create or replace package body efnow055$ is private_ModuleRef WSGOC.MODULE_REF; procedure CreateStartupJavaScript; PROCEDURE contract_values_ro( p_contract_id IN NUMBER , p_page_no IN NUMBER DEFAULT 1 , p_success IN VARCHAR2 DEFAULT 'N' , p_error IN VARCHAR2 DEFAULT 'N' , p_err_msg IN VARCHAR2 DEFAULT NULL , p_cnppv_id IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr , p_value IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr , p_data_error IN owa_util.vc_arr DEFAULT efnow092$.g_vc_arr ) IS -- contract_values_ro -- -- BEGIN -- Check we have permission to be using this module. IF NOT caco_security.security_check('efnow050$') THEN RETURN; END IF; -- -- Set the package name efnow092$.g_package_name := 'efnow050$'; -- -- Call efno092$ efnow092$.contract_values_ro( p_contract_id => p_contract_id , p_page_no => p_page_no , p_success => p_success , p_error => p_error , p_err_msg => p_err_msg , p_cnppv_id => p_cnppv_id , p_value => p_value , p_data_error => p_data_error ); -- END; -------------------------------------------------------------------------------- -- Name: efnow055$.Startup -- -- Description: This procedure is the entry point for the 'efnow055$' -- module. -- -- Parameters: None -- -------------------------------------------------------------------------------- procedure Startup is begin if not caco_security.security_check('efnow055$') then return; end if; WSGL.RegisterURL('efnow055$.startup'); if WSGL.NotLowerCase then return; end if; WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL)); efnow055$cont.startup( Z_DIRECT_CALL => TRUE ); exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow055$.Startup'); end; -------------------------------------------------------------------------------- -- Name: efnow055$.firstpage -- -- Description: This procedure creates the first page for the 'efnow055$' -- module. -- -- Parameters: Z_DIRECT_CALL -- -------------------------------------------------------------------------------- procedure FirstPage(Z_DIRECT_CALL in boolean ) is begin if not caco_security.security_check('efnow055$') 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, 'EFNOW092', 0, 'efnow092$.startup',p_output_line=>FALSE, p_target=>'_top'); WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow055$.showabout', '_top', p_output_line=>FALSE); WSGL.NavLinks; htp.formClose; WSGL.ClosePageBody; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow055$.FirstPage'); end; -------------------------------------------------------------------------------- -- Name: efnow055$.showabout -- -- Description: This procedure is used to display an 'About' page for the -- 'efnow055$' module. -- -------------------------------------------------------------------------------- procedure showabout is l_usr varchar2(255) := null; begin if not caco_security.security_check('efnow055$') then return; end if; l_usr := caco_security.get_user; WSGL.RegisterURL('efnow055$.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', 'EFNOW055', l_usr); htp.p(caco_system.footer); WSGL.ClosePageBody; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow055$.ShowAbout'); end; -------------------------------------------------------------------------------- -- Name: efnow055$.TemplateHeader -- -- Description: -- -------------------------------------------------------------------------------- procedure TemplateHeader(Z_DIRECT_CALL in boolean, Z_TEMPLATE_ID in number) is begin if not caco_security.security_check('efnow055$') 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, '', '', 'efnow055$.TemplateHeader'); end; -------------------------------------------------------------------------------- -- Name: efnow055$.GetRef -- -- Description: Returns a handle to the display data for the -- 'efnow055$' 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 => 'efnow055$' , pFirstTitle => '' ); end if; return private_ModuleRef; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '', '', 'efnow055$.GetRef'); raise; end; -------------------------------------------------------------------------------- -- Name: efnow055$.CreateStartupJavaScript -- -- Description: -- -- Parameters: -- -------------------------------------------------------------------------------- procedure CreateStartupJavaScript is begin htp.p(WSGJSL.OpenScript); htp.p('var FormType = "Startup";'); htp.p(WSGJSL.CloseScript); end; end; /