create or replace package body eft_nom.tamaw030$ is
private_ModuleRef WSGOC.MODULE_REF;
procedure CreateStartupJavaScript;
FUNCTION GetProfName ( p_sypr_id IN system_profiles.sypr_id%TYPE ) RETURN VARCHAR2 IS
-- GetProfName
--
--
--
CURSOR cur_sypr ( p_sypr_id IN system_profiles.sypr_id%TYPE ) IS
SELECT sypr.name
FROM system_profiles sypr
WHERE sypr.sypr_id = p_sypr_id;
--
v_return VARCHAR2(100);
--
BEGIN
--
OPEN cur_sypr(p_sypr_id);
FETCH cur_sypr
INTO v_return;
CLOSE cur_sypr;
--
RETURN NVL(v_return, 'No Profile Name');
--
END;
--------------------------------------------------------------------------------
-- Name: tamaw030$.Startup
--
-- Description: This procedure is the entry point for the 'tamaw030$'
-- module (#Maintain Users#1068#).
--
-- Parameters: None
--
--------------------------------------------------------------------------------
procedure Startup
is
begin
if not caco_security.security_check('tamaw030$') then
return;
end if;
WSGL.RegisterURL('tamaw030$.startup');
if WSGL.NotLowerCase then
return;
end if;
WSGL.StoreURLLink(0, '#Maintain Users#1068#');
tamaw030$syus.startup(
Z_DIRECT_CALL => TRUE
);
exception
when others then
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain Users#1068#',
'', 'tamaw030$.Startup');
end;
--------------------------------------------------------------------------------
-- Name: tamaw030$.firstpage
--
-- Description: This procedure creates the first page for the 'tamaw030$'
-- module (#Maintain Users#1068#).
--
-- Parameters: Z_DIRECT_CALL
--
--------------------------------------------------------------------------------
procedure FirstPage(Z_DIRECT_CALL in boolean
) is
begin
if not caco_security.security_check('tamaw030$') then
return;
end if;
WSGL.OpenPageHead('#Maintain Users#1068#');
WSGL.METATag;
WSGL.ClosePageHead;
WSGL.OpenPageBody(FALSE, p_attributes=>'');
CreateStartupJavaScript;
WSGL.DefaultPageCaption('#Maintain Users#1068#', 1);
htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"');
WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'tamaw030$.showabout', '_top', p_output_line=>FALSE);
WSGL.NavLinks;
htp.formClose;
WSGL.ClosePageBody;
exception
when others then
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain Users#1068#',
'', 'tamaw030$.FirstPage');
end;
--------------------------------------------------------------------------------
-- Name: tamaw030$.showabout
--
-- Description: This procedure is used to display an 'About' page for the
-- 'tamaw030$' module (#Maintain Users#1068#).
--
--------------------------------------------------------------------------------
procedure showabout is
l_usr varchar2(255) := null;
begin
if not caco_security.security_check('tamaw030$') then
return;
end if;
l_usr := caco_security.get_user;
WSGL.RegisterURL('tamaw030$.showabout');
if WSGL.NotLowerCase then
return;
end if;
WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' #Maintain Users#1068#');
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)||' #Maintain Users#1068#');
htp.para;
htp.p('
$Revision: $');
htp.para;
htp.para;
htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '6.5.94.3.12'));
htp.para;
WSGL.Info(FALSE, 'Framework', 'TAMAW030', l_usr);
WSGL.ClosePageBody;
exception
when others then
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain Users#1068#',
'', 'tamaw030$.ShowAbout');
end;
--------------------------------------------------------------------------------
-- Name: tamaw030$.TemplateHeader
--
-- Description:
--
--------------------------------------------------------------------------------
procedure TemplateHeader(Z_DIRECT_CALL in boolean,
Z_TEMPLATE_ID in number) is
begin
if not caco_security.security_check('tamaw030$') then
return;
end if;
if Z_TEMPLATE_ID = 1 then
-- Template defined in \\soas001\framework\css\css_content.htm
htp.p('
');
elsif Z_TEMPLATE_ID = 2 then
-- Template defined in \\soas001\framework\css\css_about.htm
htp.p('
');
elsif Z_TEMPLATE_ID = 3 then
-- Template defined in \\soas001\framework\css\css_query.htm
htp.p('
');
elsif Z_TEMPLATE_ID = 4 then
-- Template defined in \\soas001\framework\css\css_view.htm
htp.p('
');
elsif Z_TEMPLATE_ID = 5 then
-- Template defined in \\soas001\framework\css\css_insert.htm
htp.p('
');
elsif Z_TEMPLATE_ID = 6 then
-- Template defined in \\soas001\framework\css\css_recordlist.htm
htp.p('
');
elsif Z_TEMPLATE_ID = 7 then
-- Template defined in \\soas001\framework\css\css_lov.htm
htp.p('
');
elsif Z_TEMPLATE_ID = 8 then
-- Template defined in \\soas001\framework\css\css_text.htm
htp.p('
');
end if;
exception
when others then
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain Users#1068#',
'', 'tamaw030$.TemplateHeader');
end;
--------------------------------------------------------------------------------
-- Name: tamaw030$.GetRef
--
-- Description: Returns a handle to the display data for the
-- 'tamaw030$' module (#Maintain Users#1068#).
-- 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 => 'tamaw030$'
, pFirstTitle => '#Maintain Users#1068#'
);
end if;
return private_ModuleRef;
exception
when others then
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain Users#1068#',
'', 'tamaw030$.GetRef');
raise;
end;
--------------------------------------------------------------------------------
-- Name: tamaw030$.CreateStartupJavaScript
--
-- Description:
--
-- Parameters:
--
--------------------------------------------------------------------------------
procedure CreateStartupJavaScript is
begin
htp.p(WSGJSL.OpenScript);
htp.p('var FormType = "Startup";');
htp.p(WSGJSL.CloseScript);
end;
end;
/