create or replace package body amadw025$ is
   private_ModuleRef WSGOC.MODULE_REF;


   procedure CreateStartupJavaScript;
--------------------------------------------------------------------------------
-- Name:        amadw025$.Startup
--
-- Description: This procedure is the entry point for the 'amadw025$'
--              module.
--
-- Parameters:  None
--
--------------------------------------------------------------------------------
   procedure Startup
   is
   begin
      if not caco_security.security_check('amadw025$') then
         return;
      end if;

      WSGL.RegisterURL('amadw025$.startup');
      if WSGL.NotLowerCase then
         return;
      end if;
      WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL));
      amadw025$appa.startup(
         Z_DIRECT_CALL => TRUE
      );

   exception
      when others then
         WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
                             '', 'amadw025$.Startup');
   end;
--------------------------------------------------------------------------------
-- Name:        amadw025$.firstpage
--
-- Description: This procedure creates the first page for the 'amadw025$'
--              module.
--
-- Parameters:  Z_DIRECT_CALL

--
--------------------------------------------------------------------------------
   procedure FirstPage(Z_DIRECT_CALL in boolean

) is
   begin
      if not caco_security.security_check('amadw025$') 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, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'amadw025$.showabout', '_top', p_output_line=>FALSE);
      WSGL.NavLinks;
      htp.formClose;

      WSGL.ClosePageBody;

   exception
      when others then
         WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
                             '', 'amadw025$.FirstPage');
   end;


--------------------------------------------------------------------------------
-- Name:        amadw025$.showabout
--
-- Description: This procedure is used to display an 'About' page for the
--		'amadw025$' module.
--
--------------------------------------------------------------------------------
   procedure showabout is
      l_usr  varchar2(255) := null;
   begin
      if not caco_security.security_check('amadw025$') then
         return;
      end if;
      l_usr := caco_security.get_user;

      WSGL.RegisterURL('amadw025$.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, 'Access Manager Framework', 'AMADW025', l_usr);


      WSGL.ClosePageBody;

   exception
      when others then
         WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
                             '', 'amadw025$.ShowAbout');
   end;
--------------------------------------------------------------------------------
-- Name:        amadw025$.TemplateHeader
--
-- Description:
--
--------------------------------------------------------------------------------
   procedure TemplateHeader(Z_DIRECT_CALL in boolean,
                            Z_TEMPLATE_ID in number) is
   begin
      if not caco_security.security_check('amadw025$') then
         return;
      end if;

      if Z_TEMPLATE_ID = 1 then
         -- Template defined in \\loordv01\framework\css2\css_content.htm
         htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<link rel=stylesheet href="caco_system.css?p_type=content" >
');
      elsif Z_TEMPLATE_ID = 2 then
         -- Template defined in \\loordv01\framework\css2\css_about.htm
         htp.p('<title></title> <link rel="stylesheet" href="wwv_flow_file_mgr.get_file?p_security_group_id=11019802792885519&p_fname=common.css" type="text/css" /> <script src="/i/javascript/apex_ns_3_1.js" type="text/javascript"></script> <script src="/i/javascript/apex_3_1.js" type="text/javascript"></script> <script src="/i/javascript/apex_get_3_1.js" type="text/javascript"></script> <script src="/i/javascript/apex_builder.js" type="text/javascript"></script> <script type="text/javascript"> <!-- /*Global JS Variables*/ var htmldb_Img_Dir = "/i/"; //--> </script> <link rel="stylesheet" href="/i/css/apex_3_1.css" type="text/css" /> <!--[if IE]><link rel="stylesheet" href="/i/css/apex_ie_3_1.css" type="text/css" /><![endif]--> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />');
      elsif Z_TEMPLATE_ID = 3 then
         -- Template defined in \\loordv01\framework\css2\css_query.htm
         htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<link rel=stylesheet href="caco_system.css?p_type=query" >
');
      elsif Z_TEMPLATE_ID = 4 then
         -- Template defined in \\loordv01\framework\css2\css_view.htm
         htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<link rel=stylesheet href="caco_system.css?p_type=view" >
');
      elsif Z_TEMPLATE_ID = 5 then
         -- Template defined in \\loordv01\framework\css2\css_insert.htm
         htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<link rel=stylesheet href="caco_system.css?p_type=insert" >
');
      elsif Z_TEMPLATE_ID = 6 then
         -- Template defined in \\loordv01\framework\css2\css_recordlist.htm
         htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<link rel=stylesheet href="caco_system.css?p_type=recordlist" >
');
      elsif Z_TEMPLATE_ID = 7 then
         -- Template defined in \\loordv01\framework\css2\css_lov.htm
         htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<link rel=stylesheet href="caco_system.css?p_type=lov" >
');
      elsif Z_TEMPLATE_ID = 8 then
         -- Template defined in \\loordv01\framework\css2\css_text.htm
         htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<link rel=stylesheet href="caco_system.css?p_type=text" >
');
      end if;

   exception
      when others then
         WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
                             '', 'amadw025$.TemplateHeader');
   end;
--------------------------------------------------------------------------------
-- Name:        amadw025$.GetRef
--
-- Description: Returns a handle to the display data for the
--	             'amadw025$' 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           => 'amadw025$'
            , pFirstTitle          => ''
            );
      end if;
      return private_ModuleRef;
   exception
      when others then
         WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
                             '', 'amadw025$.GetRef');
         raise;
   end;



--------------------------------------------------------------------------------
-- Name:        amadw025$.CreateStartupJavaScript
--
-- Description:
--
-- Parameters:
--
--------------------------------------------------------------------------------
   procedure CreateStartupJavaScript is
   begin
      htp.p(WSGJSL.OpenScript);
      htp.p('var FormType = "Startup";');
      htp.p(WSGJSL.CloseScript);
   end;
end;
/