REM dbdrv: sql ~PROD ~PATH ~FILE none none none package &phase=plb \
REM dbdrv: checkfile:~PROD:~PATH:~FILE
REM +=======================================================================+
REM |    Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA     |
REM |                         All rights reserved.                          |
REM +=======================================================================+
REM | FILENAME
REM |   wfmonb.pls
REM |
REM | DESCRIPTION
REM |   Java Monitor Tool
REM |
REM | HISTORY
REM |   30 OCT 1996  Created from rou.pls
REM |   14 MAY 2001  JWSMITH, BUG 1708024 - changed tokenized_value from
REM |                         VARCHAR2(2100) to VARCHAR2(4000)
REM |   06 JUN 2001  JWSMITH  BUG 1819232 ADA ENHANCEMENT 
REM |                        - Added ALTS for img tags 
REM |                        - Added ID attr to TD tags 
REM |                        - Added summary attr for table tag 
REM |                        - Added label to form input fields & select fields
REM |   02 JAN 2002  JWSMITH BUG 2001012 - Increased username, admin_role,
REM |                 owner, l_process_owner, l_person, role_name,
REM |                 email_address to varchar2(320),role display_name 360
REM +=======================================================================+
 
SET VERIFY OFF
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
WHENEVER OSERROR EXIT FAILURE ROLLBACK;

set array 1
set scan off

create or replace package body WF_MONITOR as
/* $Header: wfmonb.pls 26.30 2005/03/11 06:18:33 anachatt ship $: */

type NameArrayTyp is table of varchar2(240) index by binary_integer;

 /*
 ** Set up a table for the list of activity status and there associated
 ** icons.  This is used for the advanced activity filtering capability
 ** as well as the listing of the activity statuses
 */
 /*
 ** Here is the list of status subscripts that are used to reference the table
 ** elements
 */
 G_FIRST_STATUS   PLS_INTEGER := 1;
 G_ACTIVE         PLS_INTEGER := 1;
 G_COMPLETE       PLS_INTEGER := 2;
 G_ERROR          PLS_INTEGER := 3;
 G_SUSPEND        PLS_INTEGER := 4;
 G_LAST_STATUS    PLS_INTEGER := 4;
 /*
 ** Here is the record definition that holds the
 ** list of status_codes and their associated icons
 */
 TYPE wf_status_icons_record IS RECORD (
    status_code         VARCHAR2(8),
    icon_file_name      VARCHAR2(30)
);

 /*
 ** Here is the table that is populated with the appropriate icon information
 */
 TYPE wf_status_icons_table IS TABLE OF wf_status_icons_record
    INDEX BY BINARY_INTEGER;


--
-- Error (PRIVATE)
--   Print a page with an error message.
--   Errors are retrieved from these sources in order:
--     1. wf_core errors
--     2. Oracle errors
--     3. Unspecified INTERNAL error
--
procedure Error
as
  error_name      varchar2(30);
  error_message   varchar2(2000);
  error_stack     varchar2(32000);
begin
    htp.htmlOpen;
    htp.headOpen;
    htp.title(wf_core.translate('ERROR'));
    htp.headClose;

    begin
      wfa_sec.Header(background_only=>TRUE, inc_lov_applet=>FALSE);
    exception
      when others then
        htp.bodyOpen;
    end;

    htp.header(nsize=>1, cheader=>wf_core.translate('ERROR'));

    wf_core.get_error(error_name, error_message, error_stack);
    --Bug 4215720
    error_message:=wf_core.substitutespecialchars(error_message);
    error_stack:=wf_core.substitutespecialchars(error_stack);
    
    if (error_name is not null) then
        htp.p(error_message);
    else
        htp.p(sqlerrm);
    end if;

    htp.hr;
    htp.p(wf_core.translate('WFENG_ERRNAME')||':  '||error_name);
    htp.br;
    htp.p(wf_core.translate('WFENG_ERRSTACK')||': '||
          replace(error_stack,wf_core.newline,'<br>'));

    wfa_sec.Footer;
    htp.htmlClose;
end Error;


/*
** Create the status icons table.  This table is
** used to draw to advanced options list and the
** status column in the activities list when youre 
** in advanced mode 
*/
procedure create_status_icons_table (
x_status_icons_table IN OUT NOCOPY wf_status_icons_table
)
IS

BEGIN

   x_status_icons_table(G_ACTIVE).status_code       := 'ACTIVE';
   x_status_icons_table(G_ACTIVE).icon_file_name    := 'FNDIACTV.gif';

   x_status_icons_table(G_COMPLETE).status_code     := 'COMPLETE';
   x_status_icons_table(G_COMPLETE).icon_file_name  := 'FNDIDONE.gif';

   x_status_icons_table(G_ERROR).status_code        := 'ERROR';
   x_status_icons_table(G_ERROR).icon_file_name     := 'FNDIREDL.gif';

   x_status_icons_table(G_SUSPEND).status_code      := 'SUSPEND';
   x_status_icons_table(G_SUSPEND).icon_file_name   := 'FNDIYLWL.gif';

  EXCEPTION
  WHEN OTHERS THEN
     Wf_Core.Context('wf_monitor', 
        'create_status_icons_table');

     wf_monitor.error;

END create_status_icons_table;


-- GetAccessKey
function GetAccessKey(
    x_item_type  varchar2,
    x_item_key   varchar2,
    x_admin_mode varchar2) return varchar2 is

  access_key varchar2(2000);
begin

  if (upper(substr(x_admin_mode, 1, 1)) <> 'Y') then
    access_key := Wf_Engine.GetItemAttrText(x_item_type, 
                                            x_item_key, '.MONITOR_KEY');
  else
    access_key := Wf_Engine.GetItemAttrText(x_item_type, 
                                            x_item_key, '.ADMIN_KEY');
  end if;
    
  return access_key;
   
  exception
    when others then
      raise;
end;

-- AccessKeyCheck
function AccessKeyCheck(
    x_item_type  varchar2,
    x_item_key   varchar2,
    x_admin_mode varchar2,
    x_access_key varchar2) return boolean is

  access_key varchar2(2000);
begin

  if (x_access_key is null) then
    return(false);
  end if;

  -- Check for access key
  begin 
    if (GetAccessKey(x_item_type,x_item_key,x_admin_mode) <> x_access_key) then
      return(false);
    end if;

    return(true);

    exception
      when others then
        wf_monitor.Error;
        return(false);
  end;
end;

-- Html
--   Sends back a very simple dynamic HTML page to tell the browser what
--   applet to run.
-- IN
--   x_item_type
--   x_item_key
--   x_admin_mode
procedure Html(
    x_item_type  in varchar2,
    x_item_key   in varchar2,
    x_admin_mode in varchar2,
    x_access_key in varchar2,
    x_nls_lang   in varchar2) is

 username varchar2(320);
 rt_activity varchar2(30) := '';
 rt_activity_version pls_integer;
 bg_date date;
 access_key varchar2(30);
 lang_codeset varchar2(50);
 admin_role varchar2(320);
 admin_privilege boolean := FALSE;
 pseudo_login BOOLEAN := FALSE;
 item_type_tl varchar2(80);
 l_ie_plugin_ver varchar2(80);  -- IE version is delimited by ','
 l_archive varchar2(2000);      -- first look for java classes at this archive
 l_java_loc VARCHAR2(80) := '/OA_JAVA/';
 l_code varchar2(80) :=  'oracle.apps.fnd.wf.Monitor';
 l_wf_plugin_download varchar2(80);
 l_wf_plugin_version varchar2(80);
 l_wf_classid varchar2(80);
 l_admin varchar(4) := 'no';
 l_installType varchar2(30);

begin

 -- We will check the installation type to be passed to the monitor applet.
  l_installType := WF_CORE.Translate('WF_INSTALL');

  /*
  ** Hide any session creation issues for now and depend on the 
  ** access key to prevent a user from running this function without
  ** logging in. 
  */
  begin 

     -- set the validate_only flag to true so you don't throw up the login
     -- page and you have a chance to check the access key.
     wfa_sec.validate_only := TRUE;

     wfa_sec.GetSession(username);

     -- Security checking
     admin_role := wf_core.Translate('WF_ADMIN_ROLE');
     if (admin_role <> '*')  then
        if (wf_directory.IsPerformer(username, admin_role)) then
           admin_privilege := true;
           if (upper(substr(x_admin_mode, 1, 1)) = 'Y') then
              l_admin := 'yes';
           end if;
        else
           admin_privilege := false;
        end if;
     else
        -- no security. Eveybody is admin
        admin_privilege := true;
        if (upper(substr(x_admin_mode, 1, 1)) = 'Y') then
           l_admin := 'yes';
        end if;
     end if;
  exception
     when others then
        -- If AccessKeyCheck will return "ERROR" directly if failed
        if (not(AccessKeyCheck(x_item_type, x_item_key, x_admin_mode, 
                x_access_key))) then
           htp.p(wf_core.translate('WRONG_ACCESS_KEY'));
           return;
        else 
           dbms_session.set_nls('NLS_LANGUAGE', ''''||x_nls_lang||'''');
           pseudo_login := TRUE;
           if (upper(substr(x_admin_mode, 1, 1)) = 'Y') then
              admin_privilege := TRUE;
              l_admin := 'yes';
           else
              admin_privilege := FALSE;
           end if;
        end if;
  end;

  begin
    select root_activity,
           root_activity_version,
           begin_date
    into rt_activity,
         rt_activity_version,
         bg_date
    from wf_items
    where item_type = x_item_type
    and item_key = x_item_key;

  exception
    when NO_DATA_FOUND then
      wf_core.Context('Wf_Monitor', 'HTML', x_item_type, x_item_key);
      wf_core.Token('TYPE', x_item_type);
      wf_core.Token('KEY', x_item_key);
      wf_core.Raise('WFENG_ITEM');
    when OTHERS then
      htp.p(sqlerrm);
      return;
  end;

  lang_codeset := substr(userenv('LANGUAGE'),instr(userenv('LANGUAGE'),'.')+1, 
                         length(userenv('LANGUAGE')));

  begin
    select display_name
    into item_type_tl
    from wf_item_types_vl
    where name = x_item_type;

  exception
    when OTHERS then
      htp.p(sqlerrm);
      return;
  end;

  -- Otherwise, we can continue our work here
  -- Generate the html page
  htp.p('<html>');
  if (admin_privilege) then
      htp.p('<head><title> ' || item_type_tl || ', ' || x_item_type 
            || ', ' || x_item_key || ' </title>');
  else
     htp.p('<head><title> ' || item_type_tl || ', ' || x_item_key || ' </title>');
  end if;

  wfa_html.create_help_function('wf/links/wfm.htm?WFMON');
  htp.p('</head>');

  -- Open body and draw standard header
  wfa_sec.header(FALSE, 'wf_monitor.find_instance" TARGET="_top',
         wf_core.translate('WFMON_VIEW_DIAGRAM'), TRUE, pseudo_login);

  if (l_installType = 'EMBEDDED') then 
    if (instr(UPPER(owa_util.get_cgi_env('HTTP_USER_AGENT')), 'WIN') > 0) then
      l_archive := '/OA_JAVA/oracle/apps/fnd/jar/wfmon.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndewt.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndswing.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndbalishare.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndctx.jar';

      l_wf_plugin_download := Wf_Core.translate('WF_PLUGIN_DOWNLOAD');
      l_wf_plugin_version := Wf_Core.translate('WF_PLUGIN_VERSION');
      l_wf_classid := Wf_Core.translate('WF_CLASSID');
      l_ie_plugin_ver := replace(Wf_Core.translate('WF_PLUGIN_VERSION'), '.', ',');

      htp.p('<OBJECT classid="clsid:'||l_wf_classid||'" '||
            'WIDTH=100% HEIGHT=90% '||
            'CODEBASE="'||l_wf_plugin_download||
            '#Version='||l_ie_plugin_ver||'">'||
            '<PARAM NAME="jinit_appletcache" VALUE="off">'||
            '<PARAM NAME="CODE"     VALUE="'||l_code||'">'||
            '<PARAM NAME="CODEBASE" VALUE="'||'/OA_JAVA/'||'">'||
            '<PARAM NAME="ARCHIVE"  VALUE="'||l_archive||'">' ||
            '<PARAM NAME="itemtype"  VALUE="'||x_item_type||'">' ||
            '<PARAM NAME="itemkey"  VALUE="'||x_item_key||'">' ||
            '<PARAM NAME="langcodeset"  VALUE="'||lang_codeset||'">' ||
            '<PARAM NAME="accesskey"  VALUE="'||x_access_key||'">' ||
            '<PARAM NAME="admin"  VALUE="'||l_admin||'">' ||
            '<PARAM NAME="type"     VALUE="'||
                        'application/x-jinit-applet;version='||
                        l_wf_plugin_version||'">' ||
            '<PARAM NAME="installType"  VALUE="' || l_installType || '">');
      htp.p('<COMMENT>'||
            '<EMBED type="application/x-jinit-applet;version='||
             l_wf_plugin_version||'"'||
            ' WIDTH="100%" HEIGHT="90%"'||
            ' jinit_appletcache="off"'||
            ' java_CODE="'||l_code||'"'||
            ' java_CODEBASE="'||l_java_loc||'"'||
            ' java_ARCHIVE="'||l_archive||'"');
      htp.p(' itemtype="'||x_item_type||'"' ||
            ' itemkey="'||x_item_key||'"' ||
            ' langcodeset="'||lang_codeset||'"' ||
            ' accesskey="'||x_access_key||'"' ||
            ' admin="'||l_admin||'"' ||
            ' pluginurl="'|| l_wf_plugin_download||'"' ||
            ' installType="' || l_installType || '">'||
            '<NOEMBED></COMMENT></NOEMBED></EMBED></OBJECT>');
    else
      -- Client is not Windows, so we don't want to call Jinitiator.
      htp.p('<applet code=oracle.apps.fnd.wf.Monitor.class codebase="/OA_JAVA"');

      l_archive := '/OA_JAVA/oracle/apps/fnd/jar/wfmon.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndewt.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndswing.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndbalishare.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndctx.jar';

      htp.p(' archive="' || l_archive || '"');

      htp.p(' width=100% height=90%>');
      htp.p('<param name=itemtype value="' || x_item_type || '">');
      htp.p('<param name=itemkey value="' || x_item_key || '">');
      htp.p('<param name=langcodeset value="' || lang_codeset || '">');
      htp.p('<param name=admin value="' || l_admin || '">');
      htp.p('<param name=accesskey value="' || x_access_key || '">');
      htp.p('<param name=installType value="' || l_installType || '">');
      htp.p('</applet>');

    end if;

  else

    htp.p('<applet code=oracle.apps.fnd.wf.Monitor.class codebase="/OA_JAVA"');

    -- ### We should have this be under fnd/jar after 2.6
    -- htp.p(' archive="/OA_JAVA/oracle/apps/fnd/wf/jar/wfmon.jar, /OA_JAVA/oracle/apps/fnd/wf/jar/fndewt.jar, /OA_JAVA/oracle/apps/fnd/wf/jar/fndswing.jar, /OA_JAVA/oracle/apps/fnd/wf/jar/fndbalishare.jar"');

    -- Path for 9i, OA_JAVA sets to ORACLE_HOME/jlib, where all needed jar file locates
    htp.p(' archive="/OA_JAVA/wfmon.jar, /OA_JAVA/ewt3.jar, /OA_JAVA/ewt3-nls.jar, /OA_JAVA/swingall-1_1_1.jar, /OA_JAVA/share.jar, /OA_JAVA/fndctx.jar"');

    htp.p(' width=100% height=90%>');
    htp.p('<param name=itemtype value="' || x_item_type || '">');
    htp.p('<param name=itemkey value="' || x_item_key || '">');
    htp.p('<param name=langcodeset value="' || lang_codeset || '">');
    htp.p('<param name=admin value="' || l_admin || '">');
    htp.p('<param name=accesskey value="' || x_access_key || '">');
    htp.p('<param name=installType value="' || l_installType || '">');
    htp.p('</applet>');
  end if;

  htp.p('</body>');

exception
   when others then
        wf_monitor.Error;
        return;
end html;

-- GetRootInfo (Private Procedure)
--   Gets the root process information about the item key.
-- IN
--  x_item_type
--  x_item_key
--  x_proc_name varchar2,
--  x_proc_type varchar2,
--  x_version   number,
--  x_begin_date varchar2);
procedure GetRootInfo(
    x_item_type varchar2,
    x_item_key  varchar2,
    x_proc_parent varchar2,
    x_proc_name varchar2,
    x_proc_type varchar2,
    x_version   number,
    x_begin_date varchar2) is

  -- To find info about the "root" process, we first figure out
  -- what its parent process is, then perform the same select we
  -- use in the 'GetProcessInfo' procedure.

  cursor rootproc_info is
   select a.item_type,          /* activity definition */
          ait.display_name item_type_disp,
          a.name,
          a1.display_name,
          a1.description,
          a.type,
          l1.meaning  type_disp,
          a.function,
          a.result_type,
          art.display_name result_type_disp,
          a.cost,
          a.rerun,
          a.icon_name,
          a.message,
          to_char(s.due_date)||' '||to_char(s.due_date, 'HH24:MI:SS') due_date,
          a.error_item_type||'/'||a.error_process error_process,
          a.expand_role,
          p.instance_id,        /* activity usage */
          p.instance_label,     /* activity usage */
          '' timeout, 
          p.start_end,
          p.default_result,
          wf_core.activity_result(a.result_type, p.default_result)
            activity_usage_result,
          p.icon_geometry,
          p.perform_role,
          p.user_comment,
          s.activity_status,    /* activity status */
          l2.meaning  activity_status_disp,      
          s.activity_result_code,
          wf_core.activity_result(a.result_type, s.activity_result_code)
            activity_status_result,
          s.assigned_user,
          wf_directory.getroledisplayname(s.assigned_user) rolename,
          s.notification_id,
          /* date conversion is ok */
          /* BINDVAR_SCAN_IGNORE */
          to_char(s.begin_date) || ' ' || to_char(s.begin_date, 'HH24:MI:SS')
            begin_date,
          /* date conversion is ok */
          /* BINDVAR_SCAN_IGNORE */
          to_char(s.end_date) || ' ' || to_char(s.end_date, 'HH24:MI:SS')
            end_date,
          s.execution_time,
          s.error_name,
          s.error_message,
          s.error_stack,
          n.recipient_role,
          n.status not_status,
          n.due_date not_due_date,
          n.begin_date not_begin_date,
          n.end_date not_end_date
   from   wf_activities pd,
          wf_process_activities p,
          wf_activities a,
          wf_activities_tl a1,
          wf_item_types_vl ait,
          wf_item_activity_statuses s,
          wf_lookups l1,
          wf_lookups l2,
          wf_lookup_types art,
          wf_notifications n
   where  pd.item_type = x_item_type
     and  pd.name = x_proc_parent
     and  pd.begin_date <= to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS')
     and (pd.end_date is null or
          pd.end_date > to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS'))
     and  p.process_version = pd.version
     and  p.process_name = pd.name
     and  p.process_item_type = pd.item_type
     and  p.activity_name = x_proc_name
     and  a.item_type = p.activity_item_type
     and  a.name = p.activity_name
     and  a.begin_date <= to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS')
     and (a.end_date is null or
          a.end_date > to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS'))
     and  a1.item_type = a.item_type
     and  a1.name = a.name
     and  a1.version = a.version
     and  a1.language = userenv('LANG')
     and  ait.name = a.item_type
     and  s.item_type (+) = x_item_type
     and  s.item_key (+) = x_item_key
     and  s.process_activity (+) = p.instance_id
     and art.lookup_type(+) = a.result_type
     and l1.lookup_code (+) = a.type
     and l1.lookup_type (+) = 'WFENG_ACTIVITY_TYPE'
     and l2.lookup_code (+) = s.activity_status
     and l2.lookup_type (+) = 'WFENG_STATUS'
     and s.notification_id = n.notification_id(+);

  cursor act_result(act_result_type varchar2) is
    select l.lookup_code,
           l.meaning
    from wf_lookups l
    where l.lookup_type = act_result_type;

  rc rootproc_info%rowtype;

  tokenized_mesg  VARCHAR2(10000);
  tokenized_stack  VARCHAR2(10000);
  tokenized_description  VARCHAR2(10000);
  return_token  VARCHAR2(9) := '@#@';
  l_tab varchar2(30) := wf_core.tab;

begin

  open rootproc_info;

  fetch rootproc_info into rc;

  if (rootproc_info%notfound) then
    htp.p('ERROR:' || 'Internal Error in GetRootProcess');
    return;
  end if;

   -- The htp.p proc does not handle returns well, replace them
   -- with the value <RET_TOK>, will resubstitute later on.
--   tokenized_mesg := substr((replace (rc.error_message, wf_core.newline, return_token)), 1, 220);
   tokenized_mesg := replace (rc.error_message, wf_core.newline, 
                              return_token);
   tokenized_stack := replace (rc.error_stack, wf_core.newline, 
                               return_token);
   tokenized_description := replace (rc.description, wf_core.newline, 
                                     return_token);

  -- The format we use is to list all the fields,
  -- delineated by tabs (wf_core.tab).  We place a space after each
  -- field, in case the value returned is null (then the space
  -- acts as a 'placeholder'), making sure to strip those spaces
  -- off when we read this into our javacode.

   htp.p('ROOT:' || rc.item_type        || ' ' || l_tab
                 || rc.item_type_disp   || ' ' || l_tab
                 || rc.name     || ' ' || l_tab
                 || rc.display_name     || ' ' || l_tab
                 || tokenized_description       || ' ' || l_tab
                 || rc.type     || ' ' || l_tab
                 || rc.type_disp        || ' ' || l_tab
                 || rc.function || ' ' || l_tab
                 || rc.result_type      || ' ' || l_tab
                 || rc.result_type_disp || ' ' || l_tab
                 || rc.cost     || ' ' || l_tab
                 || rc.rerun    || ' ' || l_tab
                 || rc.icon_name        || ' ' || l_tab
                 || rc.message  || ' ' || l_tab
                 || rc.due_date|| ' ' || l_tab
                 || rc.error_process    || ' ' || l_tab
                 || rc.expand_role      || ' ' || l_tab
                 || rc.instance_id      || ' ' || l_tab
                 || rc.instance_label   || ' ' || l_tab
                 || rc.timeout  || ' ' || l_tab
                 || rc.start_end        || ' ' || l_tab
                 || rc.default_result   || ' ' || l_tab
                 || rc.activity_usage_result    || ' ' || l_tab
                 || rc.icon_geometry    || ' ' || l_tab
                 || rc.perform_role     || ' ' || l_tab
                 || rc.user_comment     || ' ' || l_tab
                 || rc.activity_status  || ' ' || l_tab
                 || rc.activity_status_disp     || ' ' || l_tab
                 || rc.activity_result_code     || ' ' || l_tab
                 || rc.activity_status_result   || ' ' || l_tab
                 || rc.assigned_user    || ' ' || l_tab
                 || rc.rolename || ' ' || l_tab
                 || rc.notification_id  || ' ' || l_tab
                 || rc.begin_date       || ' ' || l_tab
                 || rc.end_date || ' ' || l_tab
                 || rc.execution_time   || ' ' || l_tab
                 || rc.error_name       || ' ' || l_tab
                 || rc.recipient_role   || ' ' || l_tab
                 || rc.not_status       || ' ' || l_tab
                 || rc.not_due_date     || ' ' || l_tab
                 || rc.not_begin_date   || ' ' || l_tab
                 || rc.not_end_date     || ' ' || l_tab
                 || tokenized_mesg      || ' ' || l_tab
                 || tokenized_stack || ' ');

    if (rc.result_type <> '*') then
      for code in act_result(rc.result_type) loop
        htp.p('ROOT_ACTIVITY_RESULT:' || code.lookup_code || ' ' || l_tab
                                      || code.meaning || ' ');
    
      end loop;
    end if;

end GetRootInfo;


-- GetItemInfo (Private Procedure)
--   Gets the item information.
-- IN
--   x_item_type
--   x_item_key
procedure GetItemInfo(
    x_item_type varchar2,
    x_item_key  varchar2,
    x_admin_mode varchar2) is

  cursor item_info is
   select ia.name,
          ia.display_name,
          ia.type,
          ia.format,
          decode(ia.type, 
                 'NUMBER', to_char(iav.number_value),
                 'DATE', to_char(iav.date_value, nvl(ia.format, 
                                                    'DD-MON-YYYY HH24:MI:SS')),
                  'LOOKUP', wf_core.activity_result(ia.format, iav.text_value),
                 iav.text_value) value
   from wf_item_attributes_vl ia,
        wf_item_attribute_values iav
   where iav.item_type = x_item_type
     and iav.item_key = x_item_key
     and ia.item_type = iav.item_type
     and ia.name = iav.name
     and substr(ia.name, 1, 1) <> '.'
   order by ia.sequence;

  item_rec item_info%rowtype;

  /* 05/14/01 JWSMITH BUG1708024 - CHANGED tokenized_value from */
  /* VARCHAR2(2100) to VARCHAR2(4000) */
  tokenized_value  VARCHAR2(4000);
  return_token  VARCHAR2(9) := '@#@';
  l_tab varchar2(30) := wf_core.tab;

  begin

  open item_info;

  loop
   fetch item_info into item_rec;
   exit when item_info%notfound;

   if ( (upper(substr(x_admin_mode, 1, 1)) = 'Y') or
        (substr(item_rec.name, 1, 1) <> '.') ) then
   tokenized_value := replace (item_rec.value, wf_core.newline, 
                               return_token);
   htp.p('ITEM_ATTRIBUTE:' || item_rec.name     || ' ' || l_tab
                           || item_rec.display_name     || ' ' || l_tab
                           || item_rec.type     || ' ' || l_tab
                           || item_rec.format   || ' ' || l_tab
                           || tokenized_value   || ' ');
   end if;

  end loop;

end GetItemInfo;

-- GetProcessInfo (Private Procedure)
--   Gets process activity information.
-- IN
--   x_item_type
--   x_item_key
--   x_proc_name
--   x_proc_type
--   x_begin_date
--   x_admin_mode
procedure GetProcessInfo(
    x_item_type varchar2,
    x_item_key varchar2,
    x_proc_name varchar2,
    x_proc_type varchar2,
    x_begin_date varchar2,
    x_admin_mode varchar2) is

  cursor proc_info is
   select a.item_type,          /* activity definition */
          ait.display_name item_type_disp,
          a.name,
          a1.display_name,
          a.version,
          a1.description,
          a.type,
          l1.meaning type_disp,
          a.function,
          a.result_type,
          art.display_name result_type_disp,
          a.cost,
          a.rerun,
          a.icon_name,
          a.message,
          to_char(s.due_date)||' '||to_char(s.due_date, 'HH24:MI:SS') due_date,
          a.error_item_type||'/'||a.error_process error_process,
          a.expand_role,
          p.instance_id,        /* activity usage */
          p.instance_label,     /* activity usage */
          wf_engine_util.activity_timeout(p.instance_id) timeout, 
          p.start_end,
          p.default_result,
          wf_core.activity_result(pd.result_type, p.default_result)
            activity_usage_result,
          p.icon_geometry,
          p.perform_role,
          p.user_comment,
          s.activity_status,    /* activity status */
          l2.meaning  activity_status_disp,      
          s.activity_result_code,
          wf_core.activity_result(a.result_type, s.activity_result_code)
            activity_status_result,
          s.assigned_user,
          wf_directory.getroledisplayname(s.assigned_user) rolename,
          s.notification_id,
          to_char(s.begin_date) || ' ' || to_char(s.begin_date, 'HH24:MI:SS')
            begin_date,
          to_char(s.end_date) || ' ' || to_char(s.end_date, 'HH24:MI:SS')
            end_date,
          s.execution_time,
          s.error_name,
          s.error_message,
          s.error_stack,
          n.recipient_role,
          n.status not_status,
          to_char(n.due_date) || ' '|| to_char(n.due_date, 'HH24:MI:SS')
            not_due_date,
          to_char(n.begin_date) || ' '|| to_char(n.begin_date, 'HH24:MI:SS')
            not_begin_date,
          to_char(n.end_date) || ' '|| to_char(n.end_date, 'HH24:MI:SS')
            not_end_date
   from   wf_activities pd,
          wf_process_activities p,
          wf_activities a,
          wf_activities_tl a1,
          wf_item_types_vl ait,
          wf_item_activity_statuses s,
          wf_notifications n,
          wf_lookups l1,
          wf_lookups l2,
          wf_lookup_types art
   where  pd.item_type = x_proc_type
     and  pd.name = x_proc_name
     and  pd.begin_date <= to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS')
     and (pd.end_date is null or
          pd.end_date > to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS'))
     and  p.process_item_type = pd.item_type
     and  p.process_name = pd.name
     and  p.process_version = pd.version
     and  a.item_type = p.activity_item_type
     and  a.name = p.activity_name
     and  a.begin_date <= to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS')
     and (a.end_date is null or
          a.end_date > to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS'))
     and  a1.item_type = a.item_type
     and  a1.name = a.name
     and  a1.version = a.version
     and  a1.language = userenv('LANG')
     and  ait.name = a.item_type
     and  s.item_type (+) = x_item_type
     and  s.item_key (+) = x_item_key
     and  s.process_activity (+) = p.instance_id
     and art.lookup_type(+) = a.result_type
     and l1.lookup_code (+) = a.type
     and l1.lookup_type (+) = 'WFENG_ACTIVITY_TYPE'
     and l2.lookup_code (+) = s.activity_status
     and l2.lookup_type (+) = 'WFENG_STATUS'
     and s.notification_id = n.notification_id(+);

  cursor act_result(act_result_type varchar2) is
    select l.lookup_code,
           l.meaning
    from wf_lookups l
    where l.lookup_type = act_result_type;

  cursor act_attr(act_item_type varchar2, act_name varchar2, 
                  act_version number, act_instance_id number) is
    select aa.name,
           aa.display_name,
           aa.type,
           aa.format,
           decode(aa.type,
                  'NUMBER', to_char(aav.number_value),
                  'DATE', to_char(aav.date_value, nvl(aa.format, 
                                                    'DD-MON-YYYY HH24:MI:SS')),
                  'LOOKUP', wf_core.activity_result(aa.format, aav.text_value),
                  aav.text_value) value
    from wf_activity_attributes_vl aa,
         wf_activity_attr_values aav
    where aa.activity_item_type = act_item_type
    and   aa.activity_name = act_name
    and   aa.activity_version = act_version
    and   aav.process_activity_id = act_instance_id
    and   aa.name = aav.name
    and   aa.name not like '#%';

  cursor not_attr(nid pls_integer) is
    select n.notification_id,
           n.recipient_role,
           n.status,
           to_char(n.due_date) || ' ' || to_char(n.due_date, 'HH24:MI:SS')
            due_date,
           to_char(n.begin_date) || ' ' || to_char(n.begin_date, 'HH24:MI:SS')
            begin_date,
           to_char(n.end_date) || ' ' || to_char(n.end_date, 'HH24:MI:SS')
            end_date,
           ma.name, 
           ma.display_name,
           ma.type,
           ma.format,
           decode(ma.type,
                  'NUMBER', to_char(na.number_value),
                  'DATE', to_char(na.date_value, nvl(ma.format, 
                                                    'DD-MON-YYYY HH24:MI:SS')),
                  'LOOKUP', wf_core.activity_result(ma.format, na.text_value),
                  na.text_value) value
    from wf_notifications n,
         wf_notification_attributes na,
         wf_message_attributes_vl ma
    where n.group_id = nid
    and   n.message_type = ma.message_type
    and   n.message_name = ma.message_name
    and   ma.name = na.name
    and   na.notification_id = n.notification_id;


  prc proc_info%rowtype;

  tokenized_mesg  VARCHAR2(10000);
  tokenized_stack  VARCHAR2(10000);
  /* JWSMITH, BUG1708024M CHANGED tokenized_value VARCHAR2(2100) */
  /* to tokenized_value  VARCHAR2(4000) */
  tokenized_value  VARCHAR2(4000);
  tokenized_description  VARCHAR2(1000);
  return_token  VARCHAR2(9) := '@#@';
  l_tab varchar2(30) := wf_core.tab;

begin
  open proc_info;

  loop
   fetch proc_info into prc;
   exit when proc_info%notfound;

   -- The htp.p proc does not handle returns well, replace them
   -- with the value <RET_TOK>, will resubstitute later on.
--   tokenized_mesg := substr((replace (prc.error_message, wf_core.newline, return_token)), 1, 220);
   tokenized_mesg := replace (prc.error_message, wf_core.newline, 
                              return_token);
   tokenized_stack := replace (prc.error_stack, wf_core.newline, 
                               return_token);
   tokenized_description := replace (prc.description, wf_core.newline, 
                                     return_token);

  -- The format we use is to list all the fields,
  -- delineated by tabs (wf_core.tab).  We place a space after each
  -- field, in case the value returned is null (then the space
  -- acts as a 'placeholder'), making sure to strip those spaces
  -- off when we read this into our javacode.

    
   htp.p('ACTIVITY:' || prc.item_type   || ' ' || l_tab
                     || prc.item_type_disp      || ' ' || l_tab
                     || prc.name        || ' ' || l_tab
                     || prc.display_name        || ' ' || l_tab
                     || tokenized_description   || ' ' || l_tab
                     || prc.type        || ' ' || l_tab
                     || prc.type_disp   || ' ' || l_tab
                     || prc.function    || ' ' || l_tab
                     || prc.result_type || ' ' || l_tab
                     || prc.result_type_disp    || ' ' || l_tab
                     || prc.cost        || ' ' || l_tab
                     || prc.rerun       || ' ' || l_tab
                     || prc.icon_name   || ' ' || l_tab
                     || prc.message     || ' ' || l_tab
                     || prc.due_date|| ' ' || l_tab
                     || prc.error_process       || ' ' || l_tab
                     || prc.expand_role || ' ' || l_tab
                     || prc.instance_id || ' ' || l_tab
                     || prc.instance_label || ' ' || l_tab
                     || prc.timeout || ' ' || l_tab
                     || prc.start_end   || ' ' || l_tab
                     || prc.default_result      || ' ' || l_tab
                     || prc.activity_usage_result       || ' ' || l_tab
                     || prc.icon_geometry       || ' ' || l_tab
                     || prc.perform_role        || ' ' || l_tab
                     || prc.user_comment        || ' ' || l_tab
                     || prc.activity_status     || ' ' || l_tab
                     || prc.activity_status_disp        || ' ' || l_tab
                     || prc.activity_result_code        || ' ' || l_tab
                     || prc.activity_status_result      || ' ' || l_tab
                     || prc.assigned_user       || ' ' || l_tab
                     || prc.rolename    || ' ' || l_tab
                     || prc.notification_id     || ' ' || l_tab
                     || prc.begin_date  || ' ' || l_tab
                     || prc.end_date    || ' ' || l_tab
                     || prc.execution_time      || ' ' || l_tab
                     || prc.error_name  || ' ' || l_tab
                     || prc.recipient_role      || ' ' || l_tab
                     || prc.not_status  || ' ' || l_tab
                     || prc.not_due_date        || ' ' || l_tab
                     || prc.not_begin_date      || ' ' || l_tab
                     || prc.not_end_date        || ' ' || l_tab
                     || tokenized_mesg  || ' ' || l_tab
                     || tokenized_stack || ' ');

    if (prc.result_type <> '*') then
      for code in act_result(prc.result_type) loop
        htp.p('ACTIVITY_RESULT:' || code.lookup_code || ' ' || l_tab
                                 || code.meaning || ' ');
    
      end loop;
    end if;

    -- Fetch activity attributes
    for attr_value in act_attr(prc.item_type, prc.name, prc.version, prc.instance_id) loop
      if ( (upper(substr(x_admin_mode, 1, 1)) = 'Y') or
           (substr(attr_value.name, 1, 1) <> '.') ) then
      tokenized_value := replace (attr_value.value, wf_core.newline, 
                                  return_token);

      htp.p('ACTIVITY_ATTRIBUTE:' || attr_value.name          || ' ' || l_tab
                                  || attr_value.display_name  || ' ' || l_tab
                                  || attr_value.type          || ' ' || l_tab
                                  || attr_value.format        || ' ' || l_tab
                                  || tokenized_value         || ' ');
      end if;
    end loop;

    if (prc.notification_id is not null) then
      -- Fetch notification attributes
      for not_attr_value in not_attr(prc.notification_id) loop
        if ( (upper(substr(x_admin_mode, 1, 1)) = 'Y') or
           (substr(not_attr_value.name, 1, 1) <> '.') ) then
        tokenized_value := replace (not_attr_value.value,
                                    wf_core.newline, return_token);
        htp.p('NOTIFICATION_ATTRIBUTE:' 
                         || not_attr_value.notification_id || ' ' || l_tab
                         || not_attr_value.recipient_role   || ' ' || l_tab
                         || not_attr_value.status   || ' ' || l_tab
                         || not_attr_value.due_date   || ' ' || l_tab
                         || not_attr_value.begin_date   || ' ' || l_tab
                         || not_attr_value.end_date   || ' ' || l_tab
                         || not_attr_value.name      || ' ' || l_tab
                         || not_attr_value.display_name || ' ' || l_tab
                         || not_attr_value.type || ' ' || l_tab
                         || not_attr_value.format    || ' ' || l_tab
                         || tokenized_value        || ' ');
        end if;
      end loop;
    end if;


  end loop;

end GetProcessInfo;


-- GetTransitionInfo (Private Procedure)
--   Gets the transition information for each process activity.
-- IN
--   x_item_type
--   x_item_key
--   x_proc_name
--   x_proc_type
--   x_begin_date
procedure GetTransitionInfo(
    x_item_type varchar2,
    x_item_key varchar2,
    x_proc_name varchar2,
    x_proc_type varchar2,
    x_begin_date varchar2) is

cursor trans is
   select p1.icon_geometry from_icon_geometry,  /* from activity */
          p1.instance_id from_instance_id,
          t.result_code,                        /* transition info */
          decode((wf_core.activity_result(a.result_type, t.result_code)),
                 '*', wf_core.translate('DEFAULT'),
                 '#ANY', wf_core.translate('WFMON_ANYRESULT'),
                 wf_core.activity_result(a.result_type, t.result_code))
            activity_result,
          t.arrow_geometry,
          s.activity_status,            /* transition status */
          s.activity_result_code,
          l.lookup_code,
          p2.icon_geometry to_icon_geometry,    /* to activity */
          p2.instance_id to_instance_id
   from   wf_activities pd,
          wf_process_activities p1,
          wf_activities a,
          wf_activity_transitions t,
          wf_item_activity_statuses s,
          wf_lookups l,
          wf_process_activities p2
   where  pd.item_type = x_proc_type
     and  pd.name = x_proc_name
     and  pd.begin_date <= to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS')
     and (pd.end_date is null or
          pd.end_date > to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS'))
     and  p1.process_item_type = pd.item_type
     and  p1.process_name = pd.name
     and  p1.process_version = pd.version
     and  a.item_type = p1.activity_item_type
     and  a.name = p1.activity_name
     and  a.begin_date <= to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS')
     and (a.end_date is null or
          a.end_date > to_date(x_begin_date, 'DD/MM/YYYY HH24:MI:SS'))
     and  t.from_process_activity = p1.instance_id
     and  s.item_type (+) = x_item_type
     and  s.item_key (+) = x_item_key
     and  s.process_activity (+) = p1.instance_id
     and  l.lookup_type = 'WFSTD_BOOLEAN'
     and ((s.activity_status = 'COMPLETE' and
           (t.result_code in (nvl(s.activity_result_code, '#NULL'), 
                              wf_engine.eng_trans_any) or
            t.result_code = wf_engine.eng_trans_default and not exists
              (select null from wf_activity_transitions tr
               where  tr.from_process_activity = p1.instance_id
               and  tr.result_code = nvl(s.activity_result_code, '#NULL'))) and
            l.lookup_code = 'T') or
          (not (s.activity_status = 'COMPLETE' and
           (t.result_code in (nvl(s.activity_result_code, '#NULL'),
                              wf_engine.eng_trans_any) or
            t.result_code = wf_engine.eng_trans_default and not exists
               (select null from wf_activity_transitions tr
                where tr.from_process_activity = p1.instance_id
                and  tr.result_code = nvl(s.activity_result_code, '#NULL')))) or
            s.activity_status is null) and
           l.lookup_code = 'F')
     and  p2.instance_id = t.to_process_activity;

  tr trans%rowtype;
  l_tab varchar2(30) := wf_core.tab;

begin
  open trans;
  loop
   fetch trans into tr;
   exit when trans%notfound;

   htp.p('TRANSITION:'|| tr.from_icon_geometry  || ' ' || l_tab
                      || tr.from_instance_id    || ' ' || l_tab
                      || tr.result_code || ' ' || l_tab
                      || tr.activity_result     || ' ' || l_tab
                      || tr.arrow_geometry      || ' ' || l_tab
                      || tr.activity_status     || ' ' || l_tab
                      || tr.activity_result_code        || ' ' || l_tab
                      || tr.lookup_code || ' ' || l_tab
                      || tr.to_icon_geometry    || ' ' || l_tab
                      || tr.to_instance_id || ' ');

  end loop;

end GetTransitionInfo;

-- GetResource
--   Called by Monitor.class.
--   Printf's all the role information back to the
--   Monitor applet, which reads them a line at a time, interpreting them.
-- IN
--  x_filter
procedure GetResource(x_restype varchar2,
                      x_resname varchar2) is 

 res_name varchar2(30);
 res_text varchar2(2000);
 res_id number;
 username varchar2(320);
 l_tab varchar2(30);
begin
  wfa_sec.validate_only := TRUE;
  wfa_sec.GetSession(username);

  l_tab := wf_core.tab;

  begin

  select NAME, TEXT, ID 
  into res_name, res_text, res_id
  from WF_RESOURCES
  where TYPE = x_restype
  and NAME = x_resname
  and NAME <> 'WF_ADMIN_ROLE'
  and LANGUAGE = userenv('LANG');
  
  exception
  when OTHERS then
    res_name := x_resname;
    res_text := x_resname;
    res_id := 999;
  end;

  htp.p('RESOURCE:'|| res_name  || ' ' || l_tab
                   || res_text || ' ' || l_tab
                   || to_char(res_id) || ' ');
end GetResource;

-- GetResources
--   Called by Monitor.class.
--   Printf's all the role information back to the
--   Monitor applet, which reads them a line at a time, interpreting them.
-- IN
--  x_filter
procedure GetResources(x_restype varchar2,
                       x_respattern varchar2) is 

  cursor matched_resource is
    select NAME, TEXT, ID 
    from WF_RESOURCES
    where TYPE = x_restype
    and NAME like x_respattern||'%'
    and NAME <> 'WF_ADMIN_ROLE'
    and LANGUAGE = userenv('LANG')
    order by NAME;

  res_name varchar2(30);
  res_text varchar2(2000);
  res_id number;
  pattern varchar2(30);
  username varchar2(320);
  l_tab varchar2(30);
begin
  wfa_sec.validate_only := TRUE;
  wfa_sec.GetSession(username);

  l_tab := wf_core.tab;

  if (x_respattern is null)  then
    pattern := '%';
  end if;

  for r in matched_resource loop
    htp.p('RESOURCE:' || r.name || ' ' || l_tab
                  || r.text || ' ' || l_tab
                  || to_char(r.id) || ' ');

  end loop;

end GetResources;

procedure GetRole(p_titles_only varchar2,
                  P_FIND_CRITERIA varchar2) is

    username varchar2(320);

    cursor role(tmpbuf1 varchar2, tmpbuf2 varchar2, 
             tmpbuf3 varchar2, tmpbuf4 varchar2) is

    select r.name,
           r.display_name
    from wf_roles r
    where display_name not like '~WF_ADHOC-%'
    and (display_name like tmpbuf1 or
          display_name like tmpbuf2 or
          display_name like tmpbuf3 or
          display_name like tmpbuf4) and
          upper(display_name) like upper(P_FIND_CRITERIA)||'%'
    order by r.display_name;
    first_char varchar2(1) := null;
    second_char varchar2(1) := null;
    tmpbuf1 varchar2(10);
    tmpbuf2 varchar2(10);
    tmpbuf3 varchar2(10);
    tmpbuf4 varchar2(10);
    cnt number;
begin
   -- Authenticate user
   wfa_sec.GetSession(username);

  if (P_FIND_CRITERIA is null)  then
    first_char := null;
    second_char := null;
  else
    first_char := substr(P_FIND_CRITERIA, 1, 1);
    second_char := substr(P_FIND_CRITERIA, 2, 1);
  end if;
  tmpbuf1 := upper(first_char)||upper(second_char)||'%';
  tmpbuf2 := upper(first_char)||lower(second_char)||'%';
  tmpbuf3 := lower(first_char)||upper(second_char)||'%';
  tmpbuf4 := lower(first_char)||lower(second_char)||'%';
  select count(*) into cnt
  from wf_roles
  where display_name not like '~WF_ADHOC-%'
  and (display_name like tmpbuf1 or
       display_name like tmpbuf2 or
       display_name like tmpbuf3 or
       display_name like tmpbuf4) and
       upper(display_name) like upper(P_FIND_CRITERIA) ||'%';
  htp.p(wf_core.translate('WFMON_REASSIGN_TO'));
  htp.p('2');
  htp.p(to_char(cnt));
  htp.p(wf_core.translate('WFITD_ATTR_TYPE_ROLE'));
  htp.p('50');
  htp.p(wf_core.translate('WFITD_INTERNAL_NAME'));
  htp.p('50');
  if (upper(substr(p_titles_only, 1, 1)) <> 'Y') then
  for r in role(tmpbuf1, tmpbuf2, tmpbuf3, tmpbuf4) loop
    htp.p(r.display_name);
    htp.p(r.name);
  end loop;
  end if;
end GetRole;

-- GetProcess
--   Called by Monitor.class.
--   Printf's all the information about the workflow objects back to the
--   Monitor applet, which reads them a line at a time, interpreting them.
procedure GetProcess(
    x_item_type varchar2,
    x_item_key  varchar2,
    x_admin_mode varchar2,
    x_access_key varchar2,
    x_proc_name varchar2,
    x_proc_type varchar2) is

  cursor role is
    select r.name,
           r.display_name
    from wf_roles r
    order by r.display_name;
    

 username varchar2(320);
 rt_activity varchar2(30);
 rt_activity_version pls_integer;
 bg_date date;
 ed_date date;
 ukey varchar2(240);
 owner varchar2(320);
 parent_activity varchar2(30);
 l_tab varchar2(30);
begin
  l_tab := wf_core.tab;

  /*
  ** Hide any session creation issues for now and depend on the 
  ** access key to prevent a user from running this function without
  ** logging in. 
  */
  begin 

     -- set the validate_only flag to true so you don't throw up the login
     -- page and you have a chance to check the access key.
     wfa_sec.validate_only := TRUE;

     wfa_sec.GetSession(username);

     exception
       when others then
           -- If AccessKeyCheck will return "ERROR" directly if failed
           if (not(AccessKeyCheck(x_item_type, x_item_key, x_admin_mode, 
                x_access_key))) then

               htp.p(wf_core.translate('WRONG_ACCESS_KEY'));

               return;
 
           end if;
  end;

  begin
    select root_activity,
           root_activity_version,
           begin_date, 
           end_date,
           user_key,
           owner_role
    into rt_activity,
         rt_activity_version,
         bg_date,
         ed_date,
         ukey,
         owner
    from wf_items
    where item_type = x_item_type
    and item_key = x_item_key;

    exception
      when NO_DATA_FOUND then
        htp.p(wf_core.translate('WRONG_TYPE_OR_KEY'));
        return;
      when OTHERS then
        htp.p(wf_core.translate('ERROR'));
        return;
  end;

  -- Otherwise, we can continue our work here
  htp.p('ITEM:' || owner|| ' ' || l_tab
                || ukey || ' ' || l_tab
                || bg_date || ' ' || l_tab
                || ed_date || ' ');
  if (x_proc_name is null) then

    GetRootInfo(x_item_type, x_item_key,
                  'ROOT', rt_activity, x_item_type,
                  rt_activity_version,
                  to_char(bg_date, 'DD/MM/YYYY HH24:MI:SS'));

    GetItemInfo (x_item_type, x_item_key, x_admin_mode);

    GetProcessInfo(x_item_type, x_item_key,
                     rt_activity, x_item_type,
                     to_char(bg_date, 'DD/MM/YYYY HH24:MI:SS'), x_admin_mode);

    GetTransitionInfo(x_item_type, x_item_key,
                        rt_activity, x_item_type,
                        to_char(bg_date, 'DD/MM/YYYY HH24:MI:SS'));

  else

    GetProcessInfo(x_item_type, x_item_key,
                     x_proc_name, x_proc_type,
                     to_char(bg_date, 'DD/MM/YYYY HH24:MI:SS'), x_admin_mode);

    GetTransitionInfo(x_item_type, x_item_key,
                        x_proc_name, x_proc_type,
                        to_char(bg_date, 'DD/MM/YYYY HH24:MI:SS'));

  end if;

end GetProcess;

function GetUrl (x_agent in varchar2,
                 x_item_type in varchar2,
                 x_item_key in varchar2,
                 x_admin_mode in varchar2) return varchar2 is

begin

  return (GetDiagramUrl(x_agent,x_item_type, x_item_key, x_admin_mode));
  exception
    when others then
     raise;
end;

function GetDiagramURL (x_agent in varchar2,
                 x_item_type in varchar2,
                 x_item_key in varchar2,
                 x_admin_mode in varchar2) return varchar2 is

  access_key varchar2(2000);
  l_item_key      varchar2(30);
  xnls_lang       varchar2(60);

begin

  access_key := GetAccessKey(x_item_type, x_item_key, x_admin_mode);
  select replace(nls_language,' ','%20') 
  into xnls_lang
  from wf_languages 
  where code=userenv('LANG');

  return(x_agent||'/wf_monitor.html'||
         '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
         '&'||'x_item_key='  ||wfa_html.conv_special_url_chars(x_item_key)||
         '&'||'x_admin_mode='||x_admin_mode||
         '&'||'x_access_key='||access_key||
         '&'||'x_nls_lang='||xnls_lang);

  exception
    when others then
     raise;
end;

function GetAdvancedEnvelopeURL (
  x_agent               IN VARCHAR2,
  x_item_type           IN VARCHAR2,
  x_item_key            IN VARCHAR2,
  x_admin_mode          IN VARCHAR2,
  x_options             IN VARCHAR2
) return varchar2 is

  access_key      varchar2(2000);
  xnls_lang       varchar2(60);

begin
  --
  access_key := GetAccessKey(x_item_type, x_item_key, x_admin_mode);

  select replace(nls_language,' ','%20') 
  into xnls_lang
  from wf_languages 
  where code=userenv('LANG');

  --
  if x_options is not null then 

     return(x_agent||'/wf_monitor.envelope'||
         '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
         '&'||'x_item_key='  ||wfa_html.conv_special_url_chars(x_item_key)||
         '&'||'x_admin_mode='||x_admin_mode||
         '&'||'x_access_key='||access_key||
         '&'||'x_advanced=TRUE'||
         '&'||'x_active=ACTIVE'||
         '&'||'x_complete=COMPLETE&x_error=ERROR'||
         '&'||'x_suspend=SUSPEND&x_proc_func=Y'||
         '&'||'x_note_resp=Y&x_note_noresp=Y'||
         '&'||'x_func_std=Y&x_event=Y&x_sort_column=STARTDATE'||
         '&'||'x_sort_order=ASC'||
         '&'||'x_nls_lang='||xnls_lang);

  else

     return(x_agent||'/wf_monitor.envelope'||
         '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
         '&'||'x_item_key='  ||wfa_html.conv_special_url_chars(x_item_key)||
         '&'||'x_admin_mode='||x_admin_mode||
         '&'||'x_access_key='||access_key||
         '&'||'x_advanced=TRUE'||
         '&'||'x_nls_lang='||xnls_lang);

  end if;
  exception
    when others then
     raise;
end;



function GetEnvelopeURL (
  x_agent               IN VARCHAR2,
  x_item_type           IN VARCHAR2,
  x_item_key            IN VARCHAR2,
  x_admin_mode          IN VARCHAR2
) return varchar2 is

  access_key      varchar2(2000);
  xnls_lang       varchar2(60);

begin
  access_key := GetAccessKey(x_item_type, x_item_key, x_admin_mode);

  select replace(nls_language,' ','%20') 
  into xnls_lang
  from wf_languages 
  where code=userenv('LANG');

  return(x_agent||'/wf_monitor.envelope'||
         '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
         '&'||'x_item_key='  ||wfa_html.conv_special_url_chars(x_item_key)||
         '&'||'x_admin_mode='||x_admin_mode||
         '&'||'x_access_key='||access_key||
         '&'||'x_advanced=FALSE'||
         '&'||'x_nls_lang='||xnls_lang);

  exception
    when others then
     raise;
end;

procedure EngApi (api_name in varchar2,
                  x_item_type in varchar2,
                  x_item_key in varchar2,
                  x_access_key in varchar2,
                  third_arg in varchar2,
                  forth_arg in varchar2,
                  fifth_arg in varchar2) is

  username varchar2(320);

begin

  -- Security check
  if (x_access_key <> GetAccessKey(x_item_type, x_item_key, 'Y')) then
    htp.p('ENG_API_ACCESS_DENIED:');
  end if;

  begin
    -- Validate the session that comes from monitor
    wfa_sec.validate_only := TRUE;
    wfa_sec.GetSession(username);
  exception
    when OTHERS then
      null;      -- ignore any error
  end;


  if (api_name = 'AbortProcess') then
    Wf_Engine.AbortProcess(x_item_type, x_item_key, third_arg, forth_arg);

  elsif (api_name = 'SuspendProcess') then
    Wf_Engine.SuspendProcess(x_item_type, x_item_key, third_arg);

  elsif (api_name = 'ResumeProcess') then
    Wf_Engine.ResumeProcess(x_item_type, x_item_key, third_arg);

  elsif (api_name = 'AssignActivity') then
    Wf_Engine.AssignActivity(x_item_type, x_item_key, third_arg, forth_arg);

  elsif (api_name = 'HandleError') then
    Wf_Engine.HandleError(x_item_type, x_item_key, third_arg, forth_arg,
                          fifth_arg);

  elsif (api_name = 'SetItemAttrText') then
    Wf_Engine.SetItemAttrText(x_item_type, x_item_key, third_arg, forth_arg);
  end if;

  htp.p('ENG_API_SUCC:');
  return;

exception
   when others then
        wf_monitor.Error;
        return;
end;


 /**********************************************************************
  *
  *  Find window procedures
  *
  **********************************************************************/

-- Show
--   This is to be called by forms when people want to link to workflow.
--   If nothing to be passed, this will take you to Find_Instance().
--   Otherwise, this will take you to the envelope() page.
procedure Show (
  item_type              VARCHAR2,
  item_key               VARCHAR2,
  admin_mode             VARCHAR2,
  access_key             VARCHAR2) is
begin
  if (item_type is null and item_key is null) then
    wf_monitor.Find_Instance();
  else
    wf_monitor.Envelope(item_type, item_key, admin_mode, access_key);
  end if;
end ;


--
-- Find_Instance
--   Query page to find processes
--
-- MODIFICATION LOG:
-- 06-JUN-2001 JWSMITH BUG 1819232 - added alt attrib for the following gifs
--             FNDIACTV,FNDIDONE,FNDIYLWL, FNDIREDL for ADA ENHANCEMENT 
procedure Find_Instance
is
  username varchar2(320);
  admin_role varchar2(320);
  admin_privilege boolean;
  l_url         varchar2(1000);
  l_media       varchar2(240) := wfa_html.image_loc;
  l_icon        varchar2(30) := 'FNDILOV.gif';
  l_onmouseover varchar2(240) := wfa_html.replace_onMouseOver_quotes(wf_core.translate('WFA_FIND_USER'));
  username_display_name varchar2(360);
  s0            varchar2(2000);

  cursor admin_itemtypes is 
  select display_name, name
  from wf_item_types_vl
  order by 1;

  cursor user_itemtypes is 
  select distinct wit.display_name, wit.name
  from wf_item_types_vl wit, wf_items wik
  where wik.owner_role = username
  and   wik.item_type = wit.name
  order by 1;

  cursor all_users is 
  select distinct wik.owner_role owner_role
  from wf_items wik
  order by 1;

begin

  wfa_sec.GetSession(username);

  -- Security checking
  admin_role := wf_core.Translate('WF_ADMIN_ROLE');
  if (admin_role <> '*')  then
    if (wf_directory.IsPerformer(username, admin_role)) then
      admin_privilege := true;
    else
      admin_privilege := false;
    end if;
  else
    -- no security. Eveybody is admin
    admin_privilege := true;
  end if;

  -- Window title
  htp.htmlOpen;
  htp.headOpen;
  htp.title(wf_core.translate('WFMON_FINDTITLE'));
  fnd_document_management.get_open_dm_display_window;
  wfa_html.create_help_function('wf/links/wfi.htm?WFINDPR');
  wf_lov.OpenLovWinHtml;

  htp.headClose;

  -- Open body and draw standard header
  wfa_sec.header(FALSE, '', wf_core.translate('WFMON_FINDTITLE'), TRUE);

  --
  -- We use the simple GET method, when the form is submitted it 
  -- generates a URL of the form 
  --
  --    http://...wf_monitor.instance_list?x_process=<name>&x_ident= ...
  --
  -- which is what our instance_list procedure (defined later) is
  -- expecting to get passed.
  --
  -- MODIFICATION LOG:
  -- 06-JUN-2001 JWSMITH BUG 1819232 - added ID attrib for TD tag for ADA
  --             - Added summary attribute for table tag for ADA
  --             - Added alt attr for IMG tags
  --             - Added LABEL to form input fields and select fields
  --
  htp.formOpen(curl=>'wf_monitor.instance_list',
               cmethod=>'GET', cattributes=>'NAME="WF_FIND"');
  htp.tableOpen(calign=>'CENTER', cattributes=>'border=0 cellpadding=2 cellspacing=0 summary=""');

    -- Active/Complete Radio Group
    htp.tableRowOpen;
    htp.tableData(htf.br, cattributes=>'id=""');
    htp.tableData(cvalue=>'<LABEL>' || 
                    htf.formRadio('x_active', 'ALL', 'CHECKED')||
                    '&nbsp;'||wf_core.translate('WFMON_ANYSTATUS')||
                    '&nbsp;&nbsp;&nbsp;'|| '</LABEL>' ||
                    '<LABEL>' ||
                    htf.formRadio('x_active', 'ACTIVE')||
                    '&nbsp;'||htf.img(wfa_html.image_loc||'FNDIACTV.gif',
                            'absmiddle', wf_core.translate('ACTIVE'), null, 
                            'height=26')||
                    '&nbsp;'||wf_core.translate('ACTIVE')||
                    '&nbsp;&nbsp;&nbsp;'|| '</LABEL>' ||
                    '<LABEL>' ||
                    htf.formRadio('x_active', 'COMPLETE')||
                    '&nbsp;'||htf.img(wfa_html.image_loc||'FNDIDONE.gif',
                            'absmiddle', wf_core.translate('COMPLETE'), 
                             null, 'height=26')||
                    '&nbsp;'||wf_core.translate('COMPLETE')|| '</LABEL>', 
                  calign=>'left',
                  ccolspan=>'3',
                  cattributes=>'id=""');
    htp.tableRowClose;

    -- Item Type
    htp.tableRowOpen;
    htp.tableData(cvalue=>'<LABEL FOR="i_itemtype">' ||
                  wf_core.translate('ITEMTYPE') || '</LABEL>', 
                  calign=>'right', 
                  cattributes=>'valign=middle id=""');
    htp.p('<TD ID="' || wf_core.translate('ITEMTYPE') || '">');
    htp.formSelectOpen(cname=>'x_itemtype',
                  cattributes=>'id="i_itemtype"');
    htp.formSelectOption(cvalue=>wf_core.translate('ALL'),
                         cattributes=>'value=*');
    if (admin_privilege) then
      for it in admin_itemtypes loop
        htp.formSelectOption(cvalue=>it.display_name,
                             cattributes=>'value='||'"'||it.name||'"');
      end loop;
    else
      for it in user_itemtypes loop
        htp.formSelectOption(cvalue=>it.display_name,
                             cattributes=>'value='||'"'||it.name||'"');
      end loop;
    end if;
    htp.formSelectClose;
    htp.p('</TD>');

    htp.tableRowClose;
    -- Item Key
    htp.tableRowOpen;
    htp.tableData(cvalue=>'<LABEL FOR="i_ident">' ||
                  wf_core.translate('ITEMKEY') || '</LABEL>', 
                  calign=>'right', 
                  cattributes=>'valign=middle, id=""');
    htp.tableData(cvalue=>htf.formText(cname=>'x_ident', 
                                       csize=>'30',
                                       cmaxlength=>'240',
                                       cattributes=>'id="i_ident"'),
                  calign=>'left',
                  cattributes=>'id=""');
    htp.tableRowClose;

    -- User Item Key
    htp.tableRowOpen;
    htp.tableData(cvalue=>'<LABEL FOR="i_user_ident">' ||
                  wf_core.translate('USER_ITEMKEY') || '</LABEL>', 
                  calign=>'right', 
                  cattributes=>'valign=middle, id=""');
    htp.tableData(cvalue=>htf.formText(cname=>'x_user_ident', 
                                       csize=>'30',
                                       cmaxlength=>'240',
                                       cattributes=>'id="i_user_ident"'),
                  calign=>'left',
                  cattributes=>'id=""');
    htp.tableRowClose;

    -- Process Name
    htp.tableRowOpen;
    htp.tableData(cvalue=>'<LABEL FOR="i_process">' ||
                  wf_core.translate('PROCESS_NAME') || '</LABEL>', 
                  calign=>'right',
                  cattributes=>'valign=middle id=""');
    htp.tableData(cvalue=>htf.formText(cname=>'x_process', 
                                       csize=>'30',
                                       cmaxlength=>'80',
                                       cattributes=>'id="i_process"'),
                  calign=>'left', 
                  ccolspan=>3,
                  cattributes=>'id=""');

    htp.formHidden('x_process_owner', null);

    -- add LOV here: Note:bottom is name of frame.
    -- Note: The REPLACE function replaces all the space characters with
    -- the proper escape sequence.
    l_url := 'javascript:fnd_open_dm_display_window('||''''||
             REPLACE('wf_lov.display_lov?p_lov_name='||'owner'||
             '&p_display_name='||'WFA_FIND_USER'||
             '&p_validation_callback=wfa_html.wf_user_val'||
             '&p_dest_hidden_field=top.opener.parent.document.WF_FIND.x_process_owner.value'||
             '&p_current_value=top.opener.parent.document.WF_FIND.x_display_process_owner.value'||
             '&p_display_key='||'Y'||
             '&p_dest_display_field=top.opener.parent.document.WF_FIND.x_display_process_owner.value',
               ' ', '%20')||''''||',500,500)';

    htp.tableRowOpen;

    htp.tableData(cvalue=>'<LABEL FOR="i_display_process_owner">' ||
                  wf_core.translate('PROCESS_OWNER') || '</LABEL>', 
                  calign=>'right',
                  cattributes=>'valign=middle id=""');

    if (admin_privilege) then

      htp.tableData(cvalue=>htf.formText(cname=>'x_display_process_owner',
                                         csize=>'30',
                                         cmaxlength=>'360',
                                 cattributes=>'id="i_display_process_owner"')||
                               '<A href='||l_url|| ' '||l_onmouseover||'>'||
                               '<IMG src="'||l_media||l_icon||
                               '" alt="'||wf_core.translate('PROCESS_OWNER') ||  '"border=0></A>', cattributes=>'id=""');

      htp.tableData(cvalue=>htf.formHidden(cname=>'x_admin_privilege',
                                         cvalue=>'Y'),
                            cattributes=>'id=""');
    else

      wf_directory.getroleinfo(username, username_display_name, 
                   s0, s0, s0, s0);

      htp.tableData(cvalue=>'<B>'||username_display_name||'</B>',
                  calign=>'left',
                  ccolspan=>3,
                  cattributes=>'valign=middle id=""');
 
      htp.tableData(cvalue=>htf.formHidden(cname=>'x_display_process_owner',
                                         cvalue=>username),
                                         cattributes=>'id=""');
      htp.tableData(cvalue=>htf.formHidden(cname=>'x_admin_privilege',
                                         cvalue=>'N'),
                                         cattributes=>'id=""');
    end if;

    htp.tableRowClose;

    -- Blank line
    htp.tableRowOpen;
    htp.tableData(cvalue=>htf.br, ccolspan=>'4',cattributes=>'id=""');
    htp.tableRowClose;

    -- 'With Activities:' section header
    htp.tableRowOpen;
    htp.tableData(cvalue=>htf.bold(wf_core.translate('WFMON_WITHTITLE'))||':',
                  calign=>'right',
                  cattributes=>'id=""');
    htp.tableRowClose;

    -- Error/Suspend Radio Group
    htp.tableRowOpen;
    htp.tableData(htf.br, cattributes=>'id=""');
    htp.tableData(cvalue=>'<LABEL>' ||
                    htf.formRadio('x_status', 'ALL', 'CHECKED')||
                    '&nbsp;'||wf_core.translate('WFMON_ANYSTATUS')||
                    '&nbsp;&nbsp;&nbsp;'|| '</LABEL>' ||
                    '<LABEL>' ||
                    htf.formRadio('x_status', 'SUSPEND')||
                    '&nbsp;'||htf.img(wfa_html.image_loc||'FNDIYLWL.gif',
                              'absmiddle', wf_core.translate('SUSPENDED'), 
                               null, 'height=26')||
                    '&nbsp;'||wf_core.translate('SUSPENDED')||
                    '&nbsp;&nbsp;&nbsp;'|| '</LABEL>' ||
                    '<LABEL>' ||
                    htf.formRadio('x_status', 'ERROR')||
                    '&nbsp;'||htf.img(wfa_html.image_loc||'FNDIREDL.gif',
                              'absmiddle', wf_core.translate('IN_ERROR'), 
                               null, 'height=26')||
                    '&nbsp;'||wf_core.translate('IN_ERROR')|| '</LABEL>', 
                  calign=>'left',
                  ccolspan=>'3',
                  cattributes=>'id=""');
    htp.tableRowClose;

    -- Waiting for notifications line
    htp.tableRowOpen;
    htp.tableData(cvalue=>'<LABEL FOR="i_display_person">' ||
                  wf_core.translate('WFMON_WAITINGFOR') || '</LABEL>',
                  calign=>'right', 
                  cattributes=>'valign=middle id=""');

    htp.formHidden('x_person', null);

     -- add LOV here: Note:bottom is name of frame.
    -- Note: The REPLACE function replaces all the space characters with
    -- the proper escape sequence.
    l_url := 'javascript:fnd_open_dm_display_window('||''''||
             REPLACE('wf_lov.display_lov?p_lov_name='||'owner'||
             '&p_display_name='||'WFA_FIND_USER'||
             '&p_validation_callback=wfa_html.wf_user_val'||
             '&p_dest_hidden_field=top.opener.parent.document.WF_FIND.x_person.value'||
             '&p_current_value=top.opener.parent.document.WF_FIND.x_display_person.value'||
             '&p_display_key='||'Y'||
             '&p_dest_display_field=top.opener.parent.document.WF_FIND.x_display_person.value',
               ' ', '%20')||''''||',500,500)';

    htp.tableData(cvalue=>htf.formText(cname=>'x_display_person', 
                                       csize=>'30',
                                       cmaxlength=>'360',
                                       cattributes=>'id="i_display_person"')||
                               '<A href='||l_url|| ' '||l_onmouseover||'>'||
                               '<IMG src="'||l_media||l_icon||
                               '" alt="' ||
                            wf_core.translate('WFA_FIND_USER') || '" border=0></A>', cattributes=>'id=""');
    htp.tableRowClose;

    -- No progress in x days line
    htp.tableRowOpen;
    htp.tableData(cvalue=>'<LABEL FOR="i_numdays">' ||
                  wf_core.translate('WFMON_NOPROGRESS') || '</LABEL>',
                  calign=>'right', 
                  cattributes=>'valign=middle id=""');
    htp.tableData(cvalue=>htf.formText(cname=>'x_numdays', 
                                       csize=>'3',
                                       cmaxlength=>'15',
                                       cattributes=>'id="i_numdays"')||
                  '&nbsp;'||wf_core.translate('DAYS'),
                  calign=>'left', 
                  ccolspan=>3, cattributes=>'id=""');
    htp.tableRowClose;

  htp.tableClose;

  htp.br;

  -- Add submit button
  htp.tableopen(calign=>'CENTER',cattributes=>'summary=""');
  htp.tableRowOpen;

  htp.p('<TD ID="">');

  wfa_html.create_reg_button ('javascript:document.WF_FIND.submit()',
                              wf_core.translate ('FIND'), 
                              wfa_html.image_loc,
                              'fndfind.gif',
                              wf_core.translate ('FIND'));

  htp.p('</TD>');

  htp.tableRowClose;
  htp.tableClose;

  wfa_sec.footer;
  htp.htmlClose;

exception
 when others then
   Wf_Core.Context('Wf_Monitor', 'Find_Instance');
   wf_monitor.Error;
end Find_Instance;


--
-- createenvsortlink (PRIVATE)
--   Print a single column header in Envelope page
/* 
** x_cur_sort_column     = Current column that the activity list is sorted by
** x_cur_sort_order      = Is the list currently sorted ASC or DESC
** x_sort_column         = What is the current column header to display
** x_advanced            = Are you in advanced mode
** x_column_title        = What is the display text for the column header
** x_column_title_not_adv= What is the display text for the column header
**                         when youre not in advanced mode (Done vs Status)
** x_show_when_not_adv   = Do you display this column if youre not in 
**                         advanced mode (Parent_activity)
** x_standard_url        = The fixed set of parameters for the envelope
**                         routine
*/
procedure createenvsortlink (

x_cur_sort_column        VARCHAR2,
x_cur_sort_order         VARCHAR2,
x_sort_column            VARCHAR2,
x_advanced               VARCHAR2,
x_column_title           VARCHAR2,
x_column_title_not_adv   VARCHAR2,
x_show_when_not_adv      BOOLEAN,
x_standard_url           VARCHAR2) IS

BEGIN

   /*
   ** If youre supposed to show this column when youre in advanced mode
   ** or youre only supposed to show it in advanced mode and you're in
   ** advanced mode then determine how to draw the column title.
   */
   IF (x_show_when_not_adv = TRUE OR
        (x_show_when_not_adv = FALSE AND
           x_advanced IN  ('FIRST', 'TRUE'))) THEN

      /*
      ** If the current column to display matches the current sort column
      ** and the current order is ascending and youre in advanced mode
      ** then show the column header as a soft link with 'Header*'to resort
      ** the list DESC
      */
      IF (NVL(x_cur_sort_column, 'UNSET') = x_sort_column  AND 
           NVL(x_cur_sort_order, 'ASC') = 'ASC' AND
                x_advanced IN ('FIRST', 'TRUE')) THEN 

             htp.tableHeader(
                cvalue=>'<A HREF="'||x_standard_url||
                     '&x_sort_column='||x_sort_column||
                     '&x_sort_order='||'DESC'||
                     '" onMouseOver="window.status='||''''||
      /* Token and text controlled by us */
      /* BINDVAR_SCAN_IGNORE[2] */
                     wfa_html.replace_onMouseOver_quotes(wf_core.translate('WFMON_REVERSE_SORT_PROMPT'))||' '||
                     x_column_title||''''||
                     '; return true"'||
                     ' TARGET="_top">'||
                     '<font color=#FFFFFF>'||x_column_title||'*'||'</font>'||
                     '</A>',
                calign=>'Center');
   
      /*
      ** If the current column to display matches the current sort column
      ** and the current order is descending and youre in advanced mode
      ** then show the column header as a soft link with '*Header'to resort
      ** the list DESC
      */
      ELSIF (NVL(x_cur_sort_column, 'UNSET') = x_sort_column  AND 
                NVL(x_cur_sort_order, 'ASC') = 'DESC'  AND
                   x_advanced IN ('FIRST', 'TRUE')) THEN 

             htp.tableHeader(
                cvalue=>'<A HREF="'||x_standard_url||
                     '&x_sort_column='||x_sort_column||
                     '&x_sort_order='||'ASC'||
                     '" onMouseOver="window.status='||''''||
                     wfa_html.replace_onMouseOver_quotes(wf_core.translate('WFMON_REVERSE_SORT_PROMPT'))||' '||
                     x_column_title||''''||
                     '; return true"'||
                     ' TARGET="_top">'||
                     '<font color=#FFFFFF>'||'*'|| x_column_title||'</font>'||
                     '</A>',
                calign=>'Center');
   
      /*
      ** If the current column to display does not match the current sort column
      ** and youre in advanced mode then show the column header as a soft link
      ** with 'Header'to sort the list ASC by this column
      */
      ELSIF (NVL(x_cur_sort_column, 'UNSET') <> x_sort_column AND 
                 x_advanced IN ('FIRST', 'TRUE')) THEN 

          htp.tableHeader(
             cvalue=>'<A HREF="'||x_standard_url||
                  '&x_sort_column='||x_sort_column||
                  '" onMouseOver="window.status='||''''||
                  wfa_html.replace_onMouseOver_quotes(wf_core.translate('WFMON_SORT_PROMPT'))||' '||
                  x_column_title||''''||
                  '; return true"'||
                  ' TARGET="_top">'||
                  '<font color=#FFFFFF>'||x_column_title||'</font>'||
                  '</A>',
             calign=>'Center');

      /*
      ** If this is not an applicable sort column or your not
      ** in advanced mode then just show the header normally.
      */
      ELSE
 
         htp.tableHeader('<font color=#FFFFFF>'||x_column_title_not_adv||'</font>', 'Center');

      END IF;

   END IF;

exception
  when others then
    Wf_Core.Context(
          'Wf_Monitor', 
          'createenvsortlink',
          x_cur_sort_column        ,
          x_cur_sort_order         ,
          x_sort_column           );

    raise;

END createenvsortlink;

--
-- ShowEnvColumnHeaders (PRIVATE)
--   Print column header in Envelope page
--
procedure showEnvColumnHeaders (  
  x_item_type              varchar2,
  x_item_key               varchar2,
  x_admin_mode             varchar2,
  x_access_key             varchar2,
  x_advanced               varchar2,
  x_active                 varchar2,
  x_complete               varchar2,
  x_error                  varchar2,
  x_suspend                varchar2,
  x_proc_func              varchar2,
  x_note_resp              varchar2,
  x_note_noresp            varchar2,
  x_func_std               varchar2,
  x_event                  varchar2,
  x_sort_column            varchar2,
  x_sort_order             varchar2,
  x_nls_lang               varchar2)

is

x_standard_url    VARCHAR2(2000);

begin

   /*
   ** Create the fixed set of parameters for the envelope
   ** routine that gets passed anywhere you create an 
   ** envelope url
   */
   x_standard_url := owa_util.get_owa_service_path||
                  'wf_monitor.envelope'||
                  '?x_item_type='||wfa_html.conv_special_url_chars(x_item_type)||
                  '&x_item_key='||wfa_html.conv_special_url_chars(x_item_key)||
                  '&x_admin_mode='||x_admin_mode||
                  '&x_access_key='||x_access_key||
                  '&x_advanced='||x_advanced||
                  '&x_active='||x_active||
                  '&x_complete='||x_complete||
                  '&x_error='||x_error||
                  '&x_suspend='||x_suspend||
                  '&x_proc_func='||x_proc_func||
                  '&x_note_resp='||x_note_resp||
                  '&x_note_noresp='||x_note_noresp||
                  '&x_func_std='||x_func_std ||
                  '&x_event='||x_event ||
                  '&x_nls_lang='||x_nls_lang;

   htp.tableRowOpen(cattributes=>'BGCOLOR=#006699');

   /*
   ** Create the done or status column header depending on whether
   ** you're in advanced mode or not
   */
   createenvsortlink(x_sort_column,
                     x_sort_order,
                     'STATUS',
                     x_advanced,
                     wf_core.translate('WFMON_STATUS'),
                     wf_core.translate('WFMON_DONE'),
                     TRUE,
                     x_standard_url);

   /*
   ** Create the WHO column header
   */
   createenvsortlink(x_sort_column,
                     x_sort_order,
                     'WHO',
                     x_advanced,
                     wf_core.translate('WFMON_WHO'),
                     wf_core.translate('WFMON_WHO'),
                     TRUE,
                     x_standard_url);

   /*
   ** Create the PARENT activity column header depending on whether
   ** you're in advanced mode or not
   */
   createenvsortlink(x_sort_column,
                     x_sort_order,
                     'PARENT',
                     x_advanced,
                     wf_core.translate('WFMON_PARENT_ACTIVITY'),
                     NULL,
                     FALSE,
                     x_standard_url);

   /*
   ** Create the ACTIVITY column header
   */
   createenvsortlink(x_sort_column,
                     x_sort_order,
                     'ACTIVITY',
                     x_advanced,
                     wf_core.translate('WFMON_ACTIVITY'),
                     wf_core.translate('WFMON_ACTIVITY'),
                     TRUE,
                     x_standard_url);

   /*
   ** Create the STARTDATE column header
   */
   createenvsortlink(x_sort_column,
                     x_sort_order,
                     'STARTDATE',
                     x_advanced,
                     wf_core.translate('WFMON_STARTED'),
                     wf_core.translate('WFMON_STARTED'),
                     TRUE,
                     x_standard_url);

   /*
   ** Create the DURATION column header
   */
   createenvsortlink(x_sort_column,
                     x_sort_order,
                     'DURATION',
                     x_advanced,
                     wf_core.translate('WFMON_DURATION'),
                     wf_core.translate('WFMON_DURATION'),
                     TRUE,
                     x_standard_url);

   /*
   ** Create the RESULT column header
   */
   createenvsortlink(x_sort_column,
                     x_sort_order,
                     'RESULT',
                     x_advanced,
                     wf_core.translate('WFMON_RESULT'),
                     wf_core.translate('WFMON_RESULT'),
                     TRUE,
                     x_standard_url);

   htp.tableRowClose;
 
end showEnvColumnHeaders;

--
-- ShowColumnHeaders (PRIVATE)
--   Print column header in InstanceList page
--
procedure showColumnHeaders 
is
begin
   htp.tableRowOpen(cattributes=>'BGCOLOR=#006699');

   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('ITEMTYPE')||'</font>', 'Center');
   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('ITEMKEY')||'</font>', 'Center');
   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('USER_ITEMKEY')||'</font>', 'Center');
   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('PROCESS_NAME')||'</font>', 'Center');
   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('COMPLETE')||'</font>', 'Center');
   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('IN_ERROR')||'</font>', 'Center');
   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('SUSPENDED')||'</font>', 'Center');
   htp.tableHeader('<font color=#FFFFFF>'||wf_core.translate('WFENG_BEGINDATE')||'</font>', 'Center');

   htp.tableRowClose;

exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'ShowColumnHeaders');
    raise;
end showColumnHeaders;

--
-- TableRow (PRIVATE)
--   Show a row in the Instance_List table
-- IN
--   itemtype - item type
--   itemkey - item key
--   process - process name
--   url - url for monitor page
--   active - active or completed flag
--   error - errors exist flag
--   suspend - suspensions exist flag
--   startdate - date process started
--
-- MODIFICATION LOG:
-- 06-JUN-2001 JWSMITH 1819232 - added alt attribute to img tags for 
--              following gifs: FNDIDONE, FNDIREDL, FNDIYLWL for ADA
--
procedure tableRow(itemtype     varchar2,
                   itemkey      varchar2,
                   userkey      varchar2,
                   process      varchar2,
                   url          varchar2,
                   active       boolean,
                   error        boolean,
                   suspend      boolean,
                   startdate    varchar2)
is
begin

  htp.tableRowOpen(calign=>'middle');
  htp.tableData(itemtype, 'Left', cattributes=>'id=""');
  htp.tableData(itemkey, 'Left', cattributes=>'id=""');
  if (userkey is not null) then
    htp.tableData(userkey, 'Left',cattributes=>'id=""');
  else
    htp.tableData(htf.br,cattributes=>'id=""');
  end if;

  if (url is not null) then
    htp.tableData(htf.anchor2(curl=>url, ctext=>process, ctarget=>'_top'),
                  'Left',
                  cattributes=>'id=""');
  else
    htp.tableData(process, 'Left', cattributes=>'id=""');
  end if;

  -- Active/Complete icon
  if (active) then
    htp.tableData(htf.br,cattributes=>'id=""');
  else
    htp.tableData(cvalue=>htf.img(curl=>wfa_html.image_loc||'FNDIDONE.gif',
                                  calt=>wf_core.translate('COMPLETE'),
                                  cattributes=>'border=no height=26'), 
                  calign=>'center',
                  cattributes=>'id=""');
  end if;

  -- Error icon if error
  if (error) then
    htp.tableData(cvalue=>htf.img(curl=>wfa_html.image_loc||'FNDIREDL.gif',
                                  calt=>wf_core.translate('IN_ERROR'),
                                  cattributes=>'border=no height=26'), 
                  calign=>'center',
                  cattributes=>'id=""');
  else
    htp.tableData(htf.br,cattributes=>'id=""');
  end if;

  -- Suspend icon if suspended
  if (suspend) then
    htp.tableData(cvalue=>htf.img(curl=>wfa_html.image_loc||'FNDIYLWL.gif',
                                  calt=>wf_core.translate('SUSPEND'),
                                  cattributes=>'border=no height=26'), 
                  calign=>'center', cattributes=>'id=""');
  else
    htp.tableData(htf.br,cattributes=>'id=""');
  end if;

  htp.tableData(startdate, 'Left', cattributes=>'id=""');
  htp.tableRowClose;

exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'TableRow', itemtype, itemkey, process,
                    url, startdate);
    raise;
end TableRow;

--
-- Instance_List
--   Produce list of processes matching criteria
-- IN
--   x_active - Item active or complete (ACTIVE, COMPLETE, ALL)
--   x_itemtype - Itemtype (null for all)
--   x_ident - Itemkey (null for all)
--   x_user_ident - User Itemkey (null for all)
--   x_process - Root process name (null for all)
--   x_status - Only with activities of status (SUSPEND, ERROR, ALL)
--   x_person - Only waiting for reponse from
--   x_numdays - No progress in x days
--
-- MODIFICATION LOG:
-- 06-JUN-2001 JWSMITH BUG 1819232 -Added summary attr for table tag for ADA
--
procedure Instance_List (
  x_active      VARCHAR2,
  x_itemtype    VARCHAR2,
  x_ident       VARCHAR2,
  x_user_ident  VARCHAR2,
  x_process     VARCHAR2,
  x_process_owner       VARCHAR2,
  x_display_process_owner       VARCHAR2,
  x_admin_privilege     VARCHAR2,
  x_status      VARCHAR2,
  x_person      VARCHAR2,
  x_display_person      VARCHAR2,
  x_numdays     VARCHAR2)
is
  -- Select items matching criteria
  cursor proc_info (c_process_owner IN VARCHAR2,
                    c_person IN VARCHAR2)is
  select wit.display_name,
         wi.item_key,
         wi.user_key,
         wi.begin_date,
         wi.item_type,
         wi.end_date,
         wa.display_name process_name
  from   wf_items wi,
         wf_item_types_vl wit,
         wf_activities_vl wa
  where  wi.item_type = wit.name
    and  wa.item_type = wi.item_type
    and  wa.name = wi.root_activity
    and  wa.version = wi.root_activity_version
    and  wi.item_type like decode(x_itemtype, 
                                  '', '%',
                                  'ALL', '%',
                                  '*', '%',
                                  x_itemtype)
    and  wi.item_key like x_ident||'%'
    and  (wi.owner_role like upper(c_process_owner)||'%' or
          c_process_owner is null)
    and  (wi.user_key like x_user_ident||'%' or
          x_user_ident is null)
    and  (wa.display_name like x_process||'%')
    and (((wi.end_date is null) and (x_active in ('ACTIVE', 'ALL'))) or
         ((wi.end_date is not null) and (x_active in ('COMPLETE', 'ALL'))))
    and  ((x_numdays is null) or 
          (wi.end_date is null and not exists
              (select null
               from wf_item_activity_statuses ias
               where ias.item_type = wi.item_type
               and ias.item_key = wi.item_key
               and ias.end_date > sysdate - x_numdays)))
    and  ((c_person is null) or exists
              (select null
               from wf_item_activity_statuses ias,
                    wf_notifications ntf
               where wi.end_date is null
               and ias.item_type = wi.item_type
               and ias.item_key = wi.item_key
               and ias.activity_status||'' = 'NOTIFIED'
               and ntf.group_id = ias.notification_id
               and ntf.recipient_role||'' = upper(c_person)))
    and  ((x_status = 'ALL') or exists 
              (select null
               from wf_item_activity_statuses ias
               where ias.item_type = wi.item_type
               and ias.item_key = wi.item_key
               and ias.activity_status||'' = x_status))
    order by 1,2;

   proc proc_info%rowtype;

   cursor status_info(itype varchar2, ikey varchar2, status varchar2) is
   select count(1)
   from wf_item_activity_statuses wias
   where wias.item_type = itype
   and wias.item_key = ikey
   and wias.activity_status = status;

   error_count pls_integer;
   suspend_count pls_integer;

   envurl   varchar2(2000);
   
   username varchar2(320);
   admin_role varchar2(320);
   l_process_owner       VARCHAR2(320) := x_process_owner;
   l_person              VARCHAR2(320) := x_person; 

begin

  wfa_sec.GetSession(username);

  -- Get all the username find criteria resolved
  wfa_html.validate_display_name (x_display_process_owner, l_process_owner);
  wfa_html.validate_display_name (x_display_person, l_person);

  -- Window title
  htp.htmlOpen;
  htp.headOpen;
  htp.title(wf_core.translate('WFMON_LISTTITLE'));
  wfa_html.create_help_function('wf/links/pro.htm?PROLIST');
  htp.headClose;

  -- Open body and draw standard header
  wfa_sec.header(FALSE, 'wf_monitor.find_instance" TARGET="_top',
         wf_core.translate('WFMON_LISTTITLE'), TRUE);

  htp.tableOpen(cattributes=>'border=1 cellpadding=3 bgcolor=WHITE 
                width=100% summary=""');

  showColumnHeaders;

  -- Security checking 1364970

  admin_role := wf_core.Translate('WF_ADMIN_ROLE');
  if (admin_role <> '*')  then
    if not (wf_directory.IsPerformer(username, admin_role)) then
	    l_process_owner := username; 
    end if;
  end if;

  for proc in proc_info (l_process_owner, l_person) loop
    -- Check for errors
    open status_info(proc.item_type, proc.item_key, 'ERROR');
    fetch status_info into error_count;
    close status_info;

    -- Check for suspensions
    open status_info(proc.item_type, proc.item_key, 'SUSPEND');
    fetch status_info into suspend_count;
    close status_info;

    begin
      envurl :=wf_monitor.GetEnvelopeURL(wfa_html.base_url,
                                         proc.item_type, 
                                         proc.item_key, 
                                         x_admin_privilege);
    exception
      when others then
      -- ### In case there are any exceptions raised.  Happens
      --     right now for older workflows which have not yet
      --     had access keys assigned, although all new ones shouled.
      envurl := null;
    end;

    tableRow(proc.display_name,
             proc.item_key,
             proc.user_key,
             proc.process_name,
             envurl,
             (proc.end_date is null),
             (error_count <> 0),
             (suspend_count <> 0),
             to_char(proc.begin_date) || ' ' 
              || to_char(proc.begin_date, 'HH24:MI:SS'));
  end loop;

  htp.tableClose;


  wfa_sec.footer;
  htp.htmlClose;
exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'Instance_List', x_active, x_itemtype, 
                    x_ident, x_process, x_status);
    wf_monitor.Error;
end Instance_List;

/*===========================================================================
  PROCEDURE NAME:       draw_advanced_controls

  DESCRIPTION:          

  -- MODIFICATION LOG:
  -- 06-JUN-2001 JWSMITH BUG 1819232 - added ID attrib for HD tag for ADA
                 - Added summary attr for table tag for ADA
============================================================================*/
procedure draw_advanced_controls (  
  x_item_type              VARCHAR2,
  x_item_key               VARCHAR2,
  x_admin_mode             VARCHAR2,
  x_access_key             VARCHAR2,
  x_advanced               VARCHAR2,
  x_active                 VARCHAR2,
  x_complete               VARCHAR2,
  x_error                  VARCHAR2,
  x_suspend                VARCHAR2,
  x_proc_func              VARCHAR2,
  x_note_resp              VARCHAR2,
  x_note_noresp            VARCHAR2,
  x_func_std               VARCHAR2,
  x_event                  VARCHAR2,
  x_sort_column            VARCHAR2,
  x_sort_order             VARCHAR2,
  x_nls_lang               VARCHAR2) 

IS
l_record_num           PLS_INTEGER;
l_status_icons_table   wf_status_icons_table;

BEGIN

  htp.p('<FORM NAME="controls" ACTION="wf_monitor.envelope_frame" METHOD="GET" TARGET="DETAILS">');

  /*
  ** Skip a line
  */
  wf_item_definition_util_pub.draw_summary_section_title (
     wf_core.translate('WFMON_STATUS_OPTIONS'),
     0);

  /*
  ** Open a new table for the list of checkboxes that show what 
  ** statuses are currently displayed on the form
  */
  htp.tableOpen(cattributes=>'border=0 cellpadding=0 cellspacing=0
                              summary=""');

  /*
  ** Create the checkbox for each activity status.  
  */
  /* 
  ** Open the checkboxes row
  */
  htp.tableRowOpen;

  /*
  ** Create the icon filename list for the different statuses
  */
  create_status_icons_table (l_status_icons_table);

  /*
  ** Create the active activity checkbox
  */
  wf_item_definition_util_pub.create_checkbox(
        'x_active', 
        'ACTIVE',
        x_active,
        wf_core.translate ('ACTIVE'),
        l_status_icons_table(G_ACTIVE).icon_file_name,
        FALSE);


  /*
  ** Create the completed activity checkbox
  */
  wf_item_definition_util_pub.create_checkbox(
        'x_complete', 
        'COMPLETE',
        x_complete,
        wf_core.translate ('COMPLETE'),
        l_status_icons_table(G_COMPLETE).icon_file_name,
        FALSE);

  /*
  ** Create the error activity checkbox
  */
  wf_item_definition_util_pub.create_checkbox(
        'x_error', 
        'ERROR',
        x_error,
        wf_core.translate ('ERROR'),
        l_status_icons_table(G_ERROR).icon_file_name,
        FALSE);

  /*
  ** Create the suspended activity checkbox
  */
  wf_item_definition_util_pub.create_checkbox(
        'x_suspend', 
        'SUSPEND',
        x_suspend,
        wf_core.translate ('SUSPENDED'),
        l_status_icons_table(G_SUSPEND).icon_file_name,
        FALSE);

  /* 
  ** Close the checkboxes row
  */
  htp.tableRowClose;

  /* 
  ** Close the checkboxes table
  */
  htp.tableClose;

  /*
  ** Skip a line
  */
  htp.p('<BR>');

  /*
  ** Show the Processes activity options header
  */
  wf_item_definition_util_pub.draw_summary_section_title (
     wf_core.translate('WFMON_ACTIVITY_TYPE'),
     0);

  /*
  ** Open a new table for the list of checkboxes that show what 
  ** statuses are currently displayed on the form
  */
  htp.tableOpen(cattributes=>'border=0 cellpadding=0 cellspacing=0
                              summary=""');

  /*
  ** Create the checkbox for each activity status.  
  */
  /* 
  ** Open the checkboxes row
  */
  htp.tableRowOpen;

  /*
  ** Create the checkbox for Notifications With Responses
  */
  wf_item_definition_util_pub.create_checkbox(
             'x_note_resp', 
             'Y',
             x_note_resp,
              wf_core.translate('WFMON_NOTIF_RESPONSE'),
             null,
             FALSE);

  /*
  ** Create the checkbox for Notifications Without Responses
  */
  wf_item_definition_util_pub.create_checkbox(
             'x_note_noresp', 
             'Y',
             x_note_noresp,
              wf_core.translate('WFMON_NOTIF_NO_RESPONSE'),
             null,
             FALSE);

  /*
  ** Create the checkbox for Processes with results
  */
  wf_item_definition_util_pub.create_checkbox(
             'x_proc_func', 
             'Y',
             x_proc_func,
              wf_core.translate('WFMON_PROCESS_FUNCTION'),
             null,
             FALSE);

  /*
  ** Create the checkbox for Standard Workflow Functions
  */
  wf_item_definition_util_pub.create_checkbox(
             'x_func_std', 
             'Y',
             x_func_std,
              wf_core.translate('WFMON_FUNCTION_STANDARD'),
             null,
             FALSE);


  /*
  ** Create the checkbox for Event Activity
  */
  wf_item_definition_util_pub.create_checkbox(
             'x_event', 
             'Y',
             x_event,
              wf_core.translate('WFMON_EVENT')||
                 '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;',
             null,
             FALSE);

  htp.p('<TD ID="">');

  wfa_html.create_reg_button ('javascript:document.controls.submit()',
                              wf_core.translate ('WFMON_REQUERY'), 
                              wfa_html.image_loc,
                              'fndfind.gif',
                              wf_core.translate ('WFMON_REQUERY'));

  htp.p('</TD>');

  /* 
  ** Close the checkboxes row
  */
  htp.tableRowClose;

  /* 
  ** Close the checkboxes table
  */
  htp.tableClose;

  htp.p(htf.formHidden('x_item_type', x_item_type));
  htp.p(htf.formHidden('x_item_key', x_item_key));
  htp.p(htf.formHidden('x_admin_mode', x_admin_mode));
  htp.p(htf.formHidden('x_access_key', x_access_key));
  htp.p(htf.formHidden('x_advanced', 'TRUE'));
  htp.p(htf.formHidden('x_sort_column', x_sort_column));
  htp.p(htf.formHidden('x_sort_order', x_sort_order));
  htp.p(htf.formHidden('x_nls_lang', x_nls_lang));

  htp.formClose;

  EXCEPTION
  WHEN OTHERS THEN
     Wf_Core.Context('wf_monitor', 
        'draw_advanced_controls',
        x_advanced);

     wf_monitor.error;

END draw_advanced_controls;

PROCEDURE draw_header (
    x_item_type  varchar2,
    x_item_key   varchar2,
    x_admin_mode varchar2,
    x_access_key varchar2,
    x_advanced   varchar2,
    x_nls_lang   varchar2) IS

  username       varchar2(320);
  l_agent        varchar2(100) := owa_util.get_cgi_env('SCRIPT_NAME');
  pseudo_login   BOOLEAN := FALSE;
BEGIN
 
  /*
  ** Hide any session creation issues for now and depend on the 
  ** access key to prevent a user from running this function without
  ** logging in. 
  */
  begin 

     -- set the validate_only flag to true so you don't throw up the login
     -- page and you have a chance to check the access key.
     wfa_sec.validate_only := TRUE;

     wfa_sec.GetSession(username);

     exception
       when others then
           -- If AccessKeyCheck will return "ERROR" directly if failed
           if (not(AccessKeyCheck(x_item_type, x_item_key, x_admin_mode, 
                x_access_key))) then

               htp.p(wf_core.translate('WRONG_ACCESS_KEY'));

               return;
 
           else 

             dbms_session.set_nls('NLS_LANGUAGE', ''''||x_nls_lang||'''');
             pseudo_login := TRUE;
           end if;
  end;

  -- Window title
  htp.htmlOpen;
  htp.headOpen;

  /* 
  ** If you are not in advanced mode then make the window title the
  ** standard Notifications List.  Otherwise make it Activities List
  */
  IF (x_advanced = 'FALSE') THEN

     htp.title(wf_core.translate('WFMON_ENVELOPE_LIST'));
     wfa_html.create_help_function('wf/links/nfl.htm?NFLIST');

  ELSE

     htp.title(wf_core.translate('WFMON_ACTIVITIES_LIST'));
     wfa_html.create_help_function('wf/links/aal.htm?AALIST');

  END IF;

  htp.headClose;

  -- Open body and draw standard header
  IF (x_advanced = 'FALSE') THEN

     wfa_sec.header(FALSE, 'wf_monitor.find_instance" TARGET="_top', wf_core.translate('WFMON_ENVELOPE_LIST'), TRUE, pseudo_login);

  else

     wfa_sec.header(FALSE, 'wf_monitor.find_instance" TARGET="_top', wf_core.translate('WFMON_ACTIVITIES_LIST'), TRUE, pseudo_login);

  end if;

exception
when others then
     Wf_Core.Context('wf_monitor', 
        'draw_header',
        x_item_type,
        x_item_key,
        x_admin_mode,
        x_access_key,
        x_advanced);

     wf_monitor.error;

end draw_header;

procedure Envelope (
  x_item_type              VARCHAR2,
  x_item_key               VARCHAR2,
  x_admin_mode             VARCHAR2,
  x_access_key             VARCHAR2,
  x_advanced               VARCHAR2,
  x_active                 VARCHAR2,
  x_complete               VARCHAR2,
  x_error                  VARCHAR2,
  x_suspend                VARCHAR2,
  x_proc_func              VARCHAR2,
  x_note_resp              VARCHAR2,
  x_note_noresp            VARCHAR2,
  x_func_std               VARCHAR2,
  x_event                  VARCHAR2,
  x_sort_column            VARCHAR2,
  x_sort_order             VARCHAR2,
  x_nls_lang               VARCHAR2
  ) is

  username              varchar2(320);
  l_child_item_list     wf_monitor.wf_items_tbl_type;
  l_number_of_children  NUMBER :=0;
  begin

  /*
  ** Hide any session creation issues for now and depend on the 
  ** access key to prevent a user from running this function without
  ** logging in. 
  */
  begin 

     -- set the validate_only flag to true so you don't throw up the login
     -- page and you have a chance to check the access key.
     wfa_sec.validate_only := TRUE;

     wfa_sec.GetSession(username);

     exception
       when others then
           -- If AccessKeyCheck will return "ERROR" directly if failed
           if (not(AccessKeyCheck(x_item_type, x_item_key, x_admin_mode, 
                x_access_key))) then

               htp.p(wf_core.translate('WRONG_ACCESS_KEY'));

               return;
 
           else 

             dbms_session.set_nls('NLS_LANGUAGE', ''''||x_nls_lang||'''');

           end if;
  end;

  -- Window title
  htp.htmlOpen;
  htp.headOpen;

  /* 
  ** If you are not in advanced mode then make the window title the
  ** standard Notifications List.  Otherwise make it Activities List
  */
  htp.title(wf_core.translate('WFMON_ENVELOPE_LIST'));

  wfa_html.create_help_function('wf/links/nfl.htm?NFLIST');

  htp.headClose;

  htp.htmlOpen;


  -- Open frameset
  htp.p('<FRAMESET ROWS="15%,85%" frameborder=no border=0
           TITLE="' || WF_CORE.Translate('WFMON_ENVELOPE_LIST') || '" LON
GDESC="' ||           owa_util.get_owa_service_path ||
           'wfa_html.LongDesc?p_token=WFMON_ENVELOPE_LIST">');

  htp.p('<FRAME NAME="header_bar" MARGINHEIGHT=10 MARGINWIDTH=10 ' ||
        'scrolling=no frameborder=no framespacing=noresize '||
        'src="'||owa_util.get_owa_service_path||
        'wf_monitor.draw_header'||
        '?x_item_type='||wfa_html.conv_special_url_chars(x_item_type)||
        '&x_item_key='||wfa_html.conv_special_url_chars(x_item_key)||
        '&x_admin_mode='||x_admin_mode||
        '&x_access_key='||x_access_key||
        '&x_advanced='||x_advanced||
        '&x_nls_lang='||x_nls_lang||
        '" TITLE="' ||
         WF_CORE.Translate('WFMON_ENVELOPE_LIST') || '" LONGDESC="' ||
         owa_util.get_owa_service_path ||
         'wfa_html.LongDesc?p_token=WFMON_ENVELOPE_LIST">');

  /*
  ** Check if there are any children for this process.  If there are
  ** then show a two frame set.  One frame for the process hierarchy the other
  ** with the envelope list.  If there are no children then just have a single
  ** frame for the envelope list details.
  */

  /*
  ** Get the process children for this row
  */   
  wf_monitor.get_process_children(X_item_type,
                                  X_item_key,
                                  l_child_item_list,
                                  l_number_of_children);

  IF (l_number_of_children > 0) THEN
 
     htp.p('<FRAMESET COLS="25%,75%" frameborder=no border=1
           TITLE="' || WF_CORE.Translate('WFMON_ENVELOPE_LIST') || '" LON
GDESC="' ||           owa_util.get_owa_service_path ||
           'wfa_html.LongDesc?p_token=WFMON_ENVELOPE_LIST">');

     htp.p('<FRAME NAME="CHILDREN" scrolling=yes frameborder=no framespacing=noresize ' ||
           'src="'||owa_util.get_owa_service_path||
                 'wf_monitor.process_children'||
                 '?x_item_type='||wfa_html.conv_special_url_chars(x_item_type)||
                 '&x_item_key='||wfa_html.conv_special_url_chars(x_item_key)||
                 '&x_admin_mode='||x_admin_mode||
                 '&x_nls_lang='||x_nls_lang||'" WRAP=OFF "' ||
                  '" TITLE="' ||
           WF_CORE.Translate('WFMON_ENVELOPE_LIST') || '" LONGDESC="' ||
           owa_util.get_owa_service_path ||
           'wfa_html.LongDesc?p_token=WFMON_ENVELOPE_LIST">');

     htp.p('<FRAME NAME="DETAILS"  frameborder=no framespacing=0 '||
           'src="'||owa_util.get_owa_service_path||
           'wf_monitor.envelope_frame'||
           '?x_item_type='||wfa_html.conv_special_url_chars(x_item_type)||
           '&x_item_key='||wfa_html.conv_special_url_chars(x_item_key)||
           '&x_admin_mode='||wfa_html.conv_special_url_chars(x_admin_mode)||
           '&x_access_key='||wfa_html.conv_special_url_chars(x_access_key)||
           '&x_advanced='||wfa_html.conv_special_url_chars(x_advanced)||
           '&x_active='||wfa_html.conv_special_url_chars(x_active)||
           '&x_complete='||x_complete||
           '&x_error='||x_error||
           '&x_suspend='||x_suspend||
           '&x_proc_func='||x_proc_func||
           '&x_note_resp='||x_note_resp||
           '&x_note_noresp='||x_note_noresp||
           '&x_func_std='||x_func_std||
           '&x_event='||x_event||
           '&x_sort_column='||x_sort_column||
           '&x_sort_order='||x_sort_column||
           '&x_nls_lang='||x_nls_lang||
            '" TITLE="' ||
           WF_CORE.Translate('WFMON_ENVELOPE_LIST') || '" LONGDESC="' ||
           owa_util.get_owa_service_path ||
           'wfa_html.LongDesc?p_token=WFMON_ENVELOPE_LIST">');

  ELSE

     htp.p('<FRAMESET COLS="100%" frameborder=no border=0
            TITLE="' || WF_CORE.Translate('WFMON_ENVELOPE_LIST') || '" LON
GDESC="' ||           owa_util.get_owa_service_path ||
           'wfa_html.LongDesc?p_token=WFMON_ENVELOPE_LIST">');

     htp.p('<FRAME NAME="DETAILS"  frameborder=no framespacing=0 '||
           'src="'||owa_util.get_owa_service_path||
           'wf_monitor.envelope_frame'||
           '?x_item_type='||wfa_html.conv_special_url_chars(x_item_type)||
           '&x_item_key='||wfa_html.conv_special_url_chars(x_item_key)||
           '&x_admin_mode='||x_admin_mode||
           '&x_access_key='||x_access_key||
           '&x_advanced='||x_advanced||
           '&x_active='||x_active||
           '&x_complete='||x_complete||
           '&x_error='||x_error||
           '&x_suspend='||x_suspend||
           '&x_proc_func='||x_proc_func||
           '&x_note_resp='||x_note_resp||
           '&x_note_noresp='||x_note_noresp||
           '&x_func_std='||x_func_std||
           '&x_event='||x_event||
           '&x_sort_column='||x_sort_column||
           '&x_sort_order='||x_sort_order||
           '&x_nls_lang='||x_nls_lang||
           '" TITLE="' ||
           WF_CORE.Translate('WFITD_ITEM_TYPE_DEFINITION') || '" LONGDESC="' ||
           owa_util.get_owa_service_path ||
           'wfa_html.LongDesc?p_token=WFITD_ITEM_TYPE_DEFINITION">'); 

  END IF;

  htp.p('</FRAMESET>');

  htp.p('</FRAMESET>');

  htp.htmlClose;

exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'Envelope', x_item_type, x_item_key);
    wf_monitor.Error;
end envelope;

--
-- Envelope_Frame 
--
-- MODIFICATION LOG:
-- 06-JUN-2001 JWSMITH BUG 1819232 - added alt attrib for the following gifs
--             FNDIACTV,FNDIDONE,FNDIYLWL, FNDIREDL for ADA
--             - Also added ID attrib for HD tag for ADA
--             - Also added summary attri for table tag for ADA
--
procedure Envelope_Frame (
  x_item_type              VARCHAR2,
  x_item_key               VARCHAR2,
  x_admin_mode             VARCHAR2,
  x_access_key             VARCHAR2,
  x_advanced               VARCHAR2,
  x_active                 VARCHAR2,
  x_complete               VARCHAR2,
  x_error                  VARCHAR2,
  x_suspend                VARCHAR2,
  x_proc_func              VARCHAR2,
  x_note_resp              VARCHAR2,
  x_note_noresp            VARCHAR2,
  x_func_std               VARCHAR2,
  x_event                  VARCHAR2,
  x_sort_column            VARCHAR2,
  x_sort_order             VARCHAR2,
  x_nls_lang               VARCHAR2
  ) is
 
  username varchar2(320);
  role_name varchar2(320);
  email_address varchar2(320);
  buf varchar2(2000);
  url  varchar2(2000);
  mlrurl varchar2(2000);
  status_options varchar2(2000);
  x_begin_date date;
  x_end_date date := null;
  proc_dispname varchar2(80);
  item_type_dispname varchar2(80);
  proc_duration varchar2(30);
  x_root_activity varchar2(30);
  x_font_color varchar2(30);
  x_font_color_end varchar2(30);
  title_info varchar2(4000);
  status_flag varchar2(15);
  x_show_activity              BOOLEAN := FALSE;
  x_valid_status               BOOLEAN := FALSE;
  l_agent                      VARCHAR2(100) := owa_util.get_cgi_env('SCRIPT_NAME');
  l_duration_days              NUMBER := 0;
  l_duration_hours             NUMBER := 0;
  l_duration_minutes           NUMBER := 0;
  l_duration_seconds           NUMBER := 0;
  l_record_num                 PLS_INTEGER;
  x_notification_id            PLS_INTEGER := NULL;
  x_notification_result        VARCHAR2(80) := NULL;
  x_notification_response      INTEGER := 0;
  x_icon_name                  VARCHAR2(30);
  x_duration_str               VARCHAR2(80);
  l_date_date                  DATE;
  l_valid_date                 BOOLEAN;
  l_expected_format            VARCHAR2(80);
  u_key                        VARCHAR2(240);
  l_status_icons_table         wf_status_icons_table;
  x_activity_cursor            wf_monitor.wf_activity_cursor;
  x_activity_record            wf_monitor.wf_activity_record;
  pseudo_login                 BOOLEAN := FALSE;

  cursor attrs(mnid in number) is
    select MA.NAME
    from WF_NOTIFICATION_ATTRIBUTES NA,
         WF_MESSAGE_ATTRIBUTES_VL MA,
         WF_NOTIFICATIONS N
    where N.NOTIFICATION_ID = mnid
    and NA.NOTIFICATION_ID = N.NOTIFICATION_ID
    and MA.MESSAGE_NAME = N.MESSAGE_NAME
    and MA.MESSAGE_TYPE = N.MESSAGE_TYPE
    and MA.NAME = NA.NAME
    and MA.SUBTYPE = 'RESPOND'
    and MA.TYPE <> 'FORM'
    and MA.NAME = 'RESULT';

  result attrs%rowtype;
  n_response varchar2(3200);  -- required response icon

BEGIN

  /*
  ** Hide any session creation issues for now and depend on the 
  ** access key to prevent a user from running this function without
  ** logging in. 
  */
  begin 

     -- set the validate_only flag to true so you don't throw up the login
     -- page and you have a chance to check the access key.
     wfa_sec.validate_only := TRUE;

     wfa_sec.GetSession(username);

     exception
       when others then
           -- If AccessKeyCheck will return "ERROR" directly if failed
           if (not(AccessKeyCheck(x_item_type, x_item_key, x_admin_mode, 
                x_access_key))) then

               htp.p(wf_core.translate('WRONG_ACCESS_KEY'));

               return;
 
           else 

             dbms_session.set_nls('NLS_LANGUAGE', ''''||x_nls_lang||'''');
             pseudo_login := TRUE;

           end if;
  end;


  -- To avoid having Instance_List() send the begin_date of item_key,
  -- do the fetch here.
  -- This is to avoid sending spaces throught web server
  select i.begin_date, i.end_date, a.display_name, it.display_name, i.root_activity
  into  x_begin_date, x_end_date, proc_dispname, item_type_dispname, x_root_activity
  from  wf_items i, wf_activities_vl a, wf_item_types_vl it
  where i.item_type = x_item_type
  and   i.item_key = x_item_key
  and   i.item_type = it.name
  and   i.root_activity = a.name
  and   i.item_type = a.item_type
  and   a.begin_date <= i.begin_date
  and   (a.end_date is null or a.end_date > i.begin_date);

  if (x_end_date is null) then
    proc_duration := to_char(sysdate,'J') - to_char(x_begin_date, 'J');
    status_flag := 'FNDIACTV.gif';
  else
    proc_duration := to_char(x_end_date,'J') - to_char(x_begin_date, 'J');
    status_flag := 'FNDIDONE.gif';
  end if;

  -- Get User Key
  select user_key into u_key from wf_items 
  where item_type=x_item_type and item_key = x_item_key;
  if u_key is null then
    u_key := x_item_key;
  end if;


  htp.htmlOpen;

  -- use onload to redraw the header with new title when moving to detail screen 
  htp.p('<body bgcolor="#CCCCCC" onLoad="'||
        'open('||''''||'wf_monitor.draw_header'||
        '?x_item_type='||wfa_html.conv_special_url_chars(x_item_type)||
        '&x_item_key='||wfa_html.conv_special_url_chars(x_item_key)||
        '&x_admin_mode='||x_admin_mode||
        '&x_access_key='||x_access_key||
        '&x_advanced='||x_advanced||
        '&x_nls_lang='||x_nls_lang|| ''''||', '||
        ''''||'header_bar'||''''||')">');

  if (status_flag = 'FNDIACTV.gif') then
      htp.p(htf.img(wfa_html.image_loc||status_flag,'left',
                wf_core.translate('ACTIVE'), null, 'height=40 width=35'));
  else
      htp.p(htf.img(wfa_html.image_loc||status_flag,'left',
                wf_core.translate('COMPLETE'), null, 'height=40 width=35'));
  end if;

  title_info := proc_dispname||': '||item_type_dispname||', '||u_key;
  htp.p(title_info); 

  htp.p(htf.br);
  title_info := wf_core.translate('WFMON_STARTED')||':  '||
                x_begin_date||'  ( '||
                proc_duration||' '||wf_core.translate('WFMON_DAYS')||' )';
  htp.p(title_info); 
  htp.p(htf.br(cclear=>'clear=left'));
  htp.p('<P>');
 

  /*
  ** Get the NLS Date format that is currently set.  All to_char of
  ** date values should use the l_expected_format
  */
  wf_item_definition_util_pub.validate_date (
     TO_CHAR(x_begin_date, 'DD-MON-RRRR HH24:MI:SS'),
     l_date_date,
     l_valid_date,
     l_expected_format);

  /*
  **
  ** I've created an argument for the envelope procedure for each of the 
  ** possible statuses.  If the checkbox is checked then the
  ** lookup code value will be passed through this argument.  I will concatenate
  ** all these arguments together into a single string so that I can use
  ** INSTR to determine if the status of a given activity has been requested
  ** as one of the activities that have been checked. 
  */
  status_options :=
     x_active   ||'-'||
     x_complete ||'-'||
     x_error    ||'-'|| 
     x_suspend;

  /*
  ** Create the icon filename list for the different statuses
  */
  create_status_icons_table (l_status_icons_table);

  /*
  ** Create the advanced controls for the activities list.
  **If youre coming into this procedure from the process list
  ** then the x_advanced variable will be set to FALSE. If
  ** youre coming from the notifications list and select the
  ** advanced search option for the first time then the
  ** x_advanced variable will be set to FIRST.  All other
  ** times it will be set to true
  */
  IF (x_advanced in ('FIRST', 'TRUE')) THEN  

     /*
     ** Create the controls frame
     */
     wf_monitor.draw_advanced_controls(
        x_item_type,
        x_item_key,
        x_admin_mode,
        x_access_key,
        'TRUE',
        x_active,
        x_complete,
        x_error,
        x_suspend,
        x_proc_func,
        x_note_resp,
        x_note_noresp,
        x_func_std,
        x_event,
        x_sort_column,
        x_sort_order,
        x_nls_lang);

  END IF;

  /*
  ** Create the envelope form.  The envelope form is under the advanced_controls
  ** form and is implemented as a separate form so that you can have the 
  ** diffent submit controls for View Monitor vs. Show Activities.
  */
  htp.p('<FORM NAME="envelope" ACTION="wf_monitor.html" METHOD="GET" TARGET="_top">');

  /*
  ** Open the main table for the list of activities
  */
  htp.tableOpen(calign=>'CENTER', cattributes=>'border=1 cellpadding=3 bgcolor=WHITE width=100% summary=""');
 
  /* 
  ** Show the Envelope column headers.  All the parameters being passed
  ** around is required so that I can create soft links that cause the
  ** sorting on different columns to be set up.  We also need to pass
  ** the current sort options so we can let the user know what is the
  ** current sort column.  We pass the x_advanced parameter to tell the
  ** column header routine whether or not to enable the sorting option
  ** and whether or not to show the parent activity column or not. 
  */
  showEnvColumnHeaders(  
     x_item_type,
     x_item_key,
     x_admin_mode,
     x_access_key,
     x_advanced,
     x_active,
     x_complete,
     x_error,
     x_suspend,
     x_proc_func,
     x_note_resp,
     x_note_noresp,
     x_func_std,
     x_event,
     x_sort_column,
     x_sort_order,
     x_nls_lang);
 
  /*
  ** Open the appropriate cursor for the requested sort
  ** order.  We currently fetch all the activity rows for
  ** the given process and then programatically determine
  ** which rows to display based on your activity list
  ** filters.  You can see these down below.
  */

  /*
  ** The sorting issues are fairly complicated.
  ** You cannot use a decode statement to identify
  ** the direction of your sort only the column that
  ** will be used for the sort.  To get around this 
  ** I've had to copy
  ** the select statement twice.  The first is the sort
  ** for the ascending list.  The second is the list
  ** for the descending sort.  The x_activity_cursor is
  ** defined in wfmons and can be shared across multiple
  ** selects as long as the select list matches the 
  ** wf_activity_record definition
  */
  IF (NVL(x_sort_order, 'ASC') = 'ASC') THEN 

     OPEN  x_activity_cursor FOR
     select item_type,
            item_key,
            begin_date,
            execution_time,
            end_date,
            begin_date_time,
            duration,
            activity_item_type,
            activity_type,
            parent_activity_name,
            activity_name,
            activity_display_name,
            parent_display_name,
            activity_status,
            notification_status,
            notification_id,
            recipient_role,
            recipient_role_name,
            activity_status_display,
            result
     from  wf_item_activities_history_v wfhist
     where wfhist.item_type = x_item_type
     and   wfhist.item_key = x_item_key
     and   wfhist.activity_def_begin_date <= x_begin_date
     and   (wfhist.activity_def_end_date is null or wfhist.activity_def_end_date > x_begin_date)
     order by
           DECODE(x_sort_column, 'STATUS',       activity_status_display,
                                 'WHO',          recipient_role_name,
                                 'PARENT',       parent_display_name,
                                 'ACTIVITY',     activity_display_name,
                                 'STARTDATE',    to_char(begin_date, 'J.SSSSS'), 
                                 'DURATION',     to_char(duration, '00000000'),
                                 'RESULT',       result,
                                                 to_char(begin_date, 'J.SSSSS')),
           begin_date,
           execution_time;

  ELSE

     OPEN  x_activity_cursor FOR
     select item_type,
            item_key,
            begin_date,
            execution_time,
            end_date,
            begin_date_time,
            duration,
            activity_item_type,
            activity_type,
            parent_activity_name,
            activity_name,
            activity_display_name,
            parent_display_name,
            activity_status,
            notification_status,
            notification_id,
            recipient_role,
            recipient_role_name,
            activity_status_display,
            result
     from  wf_item_activities_history_v wfhist
     where wfhist.item_type = x_item_type
     and   wfhist.item_key = x_item_key
     and   wfhist.activity_def_begin_date <= x_begin_date
     and   (wfhist.activity_def_end_date is null or wfhist.activity_def_end_date > x_begin_date)
     order by
           DECODE(x_sort_column, 'STATUS',       activity_status_display,
                                 'WHO',          recipient_role_name,
                                 'PARENT',       parent_display_name,
                                 'ACTIVITY',     activity_display_name,
                                 'STARTDATE',    to_char(begin_date, 'J.SSSSS'), 
                                 'DURATION',     to_char(duration, '00000000'),
                                 'RESULT',       result,
                                                 to_char(begin_date, 'J.SSSSS')) desc,
           begin_date desc,
           execution_time desc;

  END IF;

  /*
  ** Go fetch all the rows that were selected in the above cursor
  */
  LOOP 

    FETCH x_activity_cursor INTO x_activity_record;

    EXIT WHEN x_activity_cursor%NOTFOUND;

    x_notification_id := x_activity_record.notification_id;

    /*
    ** Get the result for a notification
    */
    BEGIN

       SELECT decode(ma.type,
                  'NUMBER', to_char(na.number_value),
                  'DATE',   to_char(na.date_value,
                                 nvl(ma.format, 'DD/MON/YYYY HH24:MI:SS')),
                  'LOOKUP', wf_core.activity_result(ma.format, na.text_value),
                     na.text_value) result,
               1
        INTO   x_notification_result,
               x_notification_response
        FROM   wf_notification_attributes na,
               wf_message_attributes_vl ma,
               wf_notifications n
        WHERE  n.group_id = x_notification_id
        AND    n.message_type = ma.message_type
        AND    n.message_name = ma.message_name
        AND    ma.name = na.name
        AND    ma.name = 'RESULT'
        AND    na.notification_id = n.notification_id;

    EXCEPTION 
        WHEN NO_DATA_FOUND THEN
           x_notification_result := 'WF_NOTFOUND';
           x_notification_response := 0;
        
        /*
        ** The other exceptions that could occur are that more than one
        ** row was fetched into a single row select which is the case 
        ** for a notification that was 
        ** sent to a role with multiple receipients.  (Expand Roles is
        ** turned on.  In these cases use the result that was selected
        ** from the activity that was fetched above.
        */
        WHEN OTHERS THEN 
           x_notification_result := x_activity_record.result;
           x_notification_response := 0;
    END;
  /*
    ** If the outcome for locating the RESULT is WF_NOTFOUND, then
    ** check to see if there are any RESPOND attributes other than
    ** RESULT.
    */
    IF x_notification_result = 'WF_NOTFOUND' THEN
       BEGIN
          SELECT count(*)
           INTO   x_notification_response
           FROM   wf_notification_attributes na,
                  wf_message_attributes_vl ma,
                  wf_notifications n
           WHERE  n.group_id = x_notification_id
           AND    n.message_type = ma.message_type
           AND    n.message_name = ma.message_name
           AND    ma.name = na.name
           AND    ma.subtype = 'RESPOND'
           AND    na.notification_id = n.notification_id;
       EXCEPTION
          WHEN OTHERS THEN
             x_notification_response := 0;

       END;
    END IF;

    /*
    ** Determine if the status of the activity has been requested on one of 
    ** the checkboxes.  If the x_advanced is set to FALSE then you
    ** know you are calling this function from the main process list and not
    ** the framed list so just show the notifications with responses.
    */
    IF (INSTR(status_options, x_activity_record.activity_status) <> 0 OR 
        x_advanced IN ('FALSE', 'FIRST')) THEN 

       x_valid_status := TRUE;

    ELSE

       x_valid_status := FALSE;

    END IF;

    /*
    ** Now determine if the activity type matches what was checked in the 
    ** activity options checkbox
    */
    x_show_activity := FALSE;

    /*
    ** Show the default list of open or closed notifications as it
    ** had done in the original monitor.  The criteria that the original
    ** monitor had was that the activity be a notification with a result
    ** value and that the notification status was either OPEN or CLOSED
    ** The x_advanced parameter tells the envelope function whether this
    ** is being called from the process list or the advanced query 
    ** frame
    */
    IF (x_activity_record.activity_type = 'NOTICE' AND
        x_activity_record.notification_id IS NOT NULL AND
        NVL(x_notification_result,'UNSET') <> 'WF_NOTFOUND' AND
        NVL(x_activity_record.notification_status, 'OTHER') IN ('OPEN', 'CLOSED') AND
        (x_advanced = 'FALSE' OR
         x_advanced = 'FIRST')) THEN

        x_show_activity := TRUE;

    /* 
    ** If the notification has a response and the Notification Option
    ** with responses has been checked or if you are in single frame mode
    ** which is the case when you first open the window then show the acitivity or
    ** If you've just started the multi frame mode in which case the x_advanced is
    ** set to FIRST then show the notification
    */
    ELSIF (x_activity_record.activity_type = 'NOTICE' AND 
        x_activity_record.notification_id IS NOT NULL AND
        x_notification_response <> 0 AND
        NVL(x_activity_record.notification_status, 'OTHER') IN ('OPEN', 'CLOSED') AND
        x_note_resp IS NOT NULL AND
        (x_advanced = 'TRUE' OR
         x_advanced = 'FIRST')) THEN

        x_show_activity := TRUE;

    ELSIF (x_activity_record.activity_type = 'NOTICE' AND 
         x_advanced = 'TRUE' AND x_note_noresp IS NOT NULL AND
         x_notification_response = 0 AND
        (x_activity_record.notification_id IS NULL OR
        NVL(x_notification_result, 'UNSET') = 'WF_NOTFOUND' OR
        NVL(x_activity_record.notification_status, 'OTHER') NOT IN ('OPEN', 'CLOSED'))) THEN

        x_show_activity := TRUE;

    ELSIF (x_activity_record.activity_type IN  ('FUNCTION', 'PROCESS') AND
        x_proc_func IS NOT NULL AND
        x_advanced = 'TRUE') THEN

        x_show_activity := TRUE;

    ELSIF (x_activity_record.activity_type = 'EVENT' AND
        x_event IS NOT NULL AND
        x_advanced = 'TRUE') THEN

        x_show_activity := TRUE;

    /*
    ** Check if you satisfy the show standard activities
    ** checkbox.  If the checkbox is set then we should show all 
    ** standard activities.  We later check to see if the checkbox 
    ** is not checked and eliminate all standard activities even if
    ** all the other criteria are met.
    */
    ELSIF (x_activity_record.activity_item_type = 'WFSTD' AND
           x_func_std IS NOT NULL) THEN

        x_show_activity := TRUE;

    END IF;

    /*
    ** Check if you satisfy the show standard activities
    ** checkbox.  If the checkbox is not set the don't show
    ** the activity under any circumstances.
    */
    IF (x_activity_record.activity_item_type = 'WFSTD' AND
           x_func_std IS NULL) THEN

        x_show_activity := FALSE;

    END IF;

    /*
    ** If the status of the activity matches the activity filter
    ** checkboxes and the activity options are satisfied then
    ** create the row on the html page.
    */
    IF (x_valid_status = TRUE AND x_show_activity = TRUE) THEN

       htp.tableRowOpen(calign=>'middle');
 
       /*
       ** If you are viewing the standard activity listing with the
       ** with the notifications with responses then use the DONE column
       ** to tell the user that this notification is completed or not.
       ** If you are viewing the Filtered Activity Listing then show the
       ** status of each activity rather than just if it's done or not
       */
       IF (x_advanced IN ('FIRST', 'TRUE')) THEN 
     
           /* 
           ** Get the appropriate icon for the given status
           */
           FOR l_record_num IN G_FIRST_STATUS..G_LAST_STATUS LOOP

             /*
             ** Check for the matching status_code
             */     
             IF (x_activity_record.activity_status 
                  = l_status_icons_table(l_record_num).status_code) THEN

                 x_icon_name :=l_status_icons_table(l_record_num).icon_file_name;

                 EXIT;
 
             END IF;
                
           END LOOP;

           if (x_icon_name = 'FNDIACTV.gif') then
                 htp.tableData(
                 htf.img(wfa_html.image_loc||x_icon_name, 'absmiddle', 
                    wf_core.translate('ACTIVE'),
                    null, 'height=26')||
                 '&nbsp;'||
                 x_activity_record.activity_status_display,
                 cattributes=>'id=""');
           elsif (x_icon_name = 'FNDIDONE.gif') then
                 htp.tableData(
                 htf.img(wfa_html.image_loc||x_icon_name, 'absmiddle', 
                    wf_core.translate('COMPLETE'),
                    null, 'height=26')||
                 '&nbsp;'||
                 x_activity_record.activity_status_display,
                 cattributes=>'id=""');
           elsif (x_icon_name = 'FNDIREDL.gif') then
                 htp.tableData(
                 htf.img(wfa_html.image_loc||x_icon_name, 'absmiddle', 
                    wf_core.translate('ERROR'),
                    null, 'height=26')||
                 '&nbsp;'||
                 x_activity_record.activity_status_display,
                 cattributes=>'id=""');
           else
                 htp.tableData(
                 htf.img(wfa_html.image_loc||x_icon_name, 'absmiddle', 
                    wf_core.translate('SUSPEND'),
                    null, 'height=26')||
                 '&nbsp;'||
                 x_activity_record.activity_status_display,
                 cattributes=>'id=""');
            end if;


       /*
       ** If you are still just looking at the notifications list
       ** and you are not in advanced mode then just show a DONE
       ** checkmark if the activity meets the criteria for being
       ** considered completed.
       */
       ELSE

          IF (x_activity_record.activity_status = 'COMPLETE' OR 
              NVL(x_activity_record.notification_status, 'OPEN') = 
                 'CLOSED') THEN

             htp.tableData(
                htf.img(wfa_html.image_loc||'chckmark.gif', 'absmiddle', 
                    wf_core.translate('COMPLETE'), null, 'height=26'),
                    cattributes=>'id=""');

          ELSE

              htp.tableData(htf.br,cattributes=>'id=""');

          END IF;

       END IF;
       /*
       ** If this activity has completed with status of ERROR then set
       ** the font color to red for any column that is not a soft link.
       ** If this activity has not completed in error then the string is
       ** set to null so that the default color is used.
       */
       IF (x_activity_record.activity_status = 'ERROR') THEN 

          x_font_color := '<font color=#FF0000>';
          x_font_color_end := '</font>';

       ELSE

          x_font_color := null;
          x_font_color_end := null;

       END IF;

       /*
       ** Check to see if the activity you're about to list is a notification.  
       ** If it is a notification then get the full name of the role that 
       ** received the notification.
       ** If the activity is a process or a function then then use workflow
       ** engine for the who column.
       */
       IF (x_activity_record.activity_type = 'NOTICE') THEN
   
          /*
          ** Retrieve role information.  This has to be selected separately
          ** instead of joining into main select so the orig_system_ids can
          ** be used on wf_roles to preserve indexes over the view.
          */
          if (x_activity_record.recipient_role is not null) then
             wf_directory.getroleinfo(x_activity_record.recipient_role, 
                role_name, email_address, buf, buf, buf);
          end if;

          /* 
          ** Default role info to recipient if role cannot be found
          */
          role_name := nvl(role_name, x_activity_record.recipient_role);
          email_address := nvl(email_address, x_activity_record.recipient_role);
 
          mlrurl := null;
          if (email_address is not null) then
            mlrurl := 'mailto:'||email_address;
          end if;

       ELSE

          mlrurl := NULL;
          role_name := wf_core.translate('WFMON_WF_ENGINE');

       END IF;

       /*
       ** Create the WHO column.  If the activity is a notification then
       ** the WHO column is based on the role that a notification was sent 
       ** to.  If it is any other type of activity then the WHO column is
       ** set to Workflow engine.
       */
       if (mlrurl is not null) then
         htp.tableData(htf.anchor2(mlrurl, role_name, 'anchor_text', '_top'),
                    'Left',cattributes=>'id=""');
       else
         htp.tableData(x_font_color||role_name||x_font_color_end, 'Left',
             cattributes=>'id=""');
       end if;
 
       /*
       ** Only show the parent activity column if you are showing the
       ** advanced list .  Only create a hotlink in the parent activity
       ** column if the activity is not the ROOT activity.
       */
       IF (x_activity_record.parent_activity_name <> 'ROOT' AND 
           x_advanced IN ('FIRST','TRUE')and not (pseudo_login)) THEN

          htp.tableData(
             cvalue=>'<A HREF="'||
                  owa_util.get_owa_service_path||
                  'wf_activities_vl_pub.fetch_draw_activity_details?p_item_type='||
                  wfa_html.conv_special_url_chars(x_item_type)||
                  '&p_activity_type='||
                  'PROCESS'||
                  '&p_effective_date='||
                  TO_CHAR(x_activity_record.begin_date, 'YYYY/MM/DD+HH24:MI:SS')||
                  '&p_name='||
                  wfa_html.conv_special_url_chars(x_activity_record.parent_activity_name)||
                  '" onMouseOver="window.status='||''''||
                  wfa_html.replace_onMouseOver_quotes(wf_core.translate('WFMON_VIEW_ACTIVITY_DETAILS'))||''''||
                  '; return true"'||
                  ' TARGET="_top">'||
                  x_activity_record.parent_display_name||
                  '</A>',
             calign=>'Left', cattributes=>'id=""');

       ELSIF (x_advanced in ('FIRST', 'TRUE')) THEN

            htp.tableData('<BR>', 'Left',cattributes=>'id=""');

       END IF;

       /*
       ** Only create a hotlink in the activity column if this is not a folder
       ** activity type
       */
       IF (x_activity_record.activity_type <> 'FOLDER' and not (pseudo_login)) THEN 

          -- add this response to point to the notification detail screen
          -- so that admin/user can response to a notification.
          n_response := null;
          if (x_activity_record.notification_status = 'OPEN') then
            open attrs(x_activity_record.notification_id);
            fetch attrs into result;
            if (attrs%found) then
              n_response := 
                htf.anchor2(curl=>Wfa_Sec.DetailURL(
                                   x_activity_record.notification_id),
                           ctarget=>'_top',
                           ctext=>htf.img(
                                    curl=>wfa_html.image_loc||'reqresp.gif',
                        calt=>wf_core.translate('WFSRV_RECIPIENT_MUST_RESPOND'),
                                    cattributes=>'BORDER=0'));
            end if;
            close attrs;
          end if;
          
             htp.tableData(
             cvalue=>'<A HREF="'||
                     owa_util.get_owa_service_path||
                     'wf_activities_vl_pub.fetch_draw_activity_details?p_item_type='||
                     wfa_html.conv_special_url_chars(x_activity_record.activity_item_type)||
                     '&p_activity_type='||
                     x_activity_record.activity_type||
                     '&p_effective_date='||
                     TO_CHAR(x_activity_record.begin_date, 'YYYY/MM/DD+HH24:MI:SS')||
                     '&p_name='||
                     wfa_html.conv_special_url_chars(x_activity_record.activity_name)||
                     '" onMouseOver="window.status='||''''||
                     wfa_html.replace_onMouseOver_quotes(wf_core.translate('WFMON_VIEW_ACTIVITY_DETAILS'))||''''||
                     '; return true"'||
                     ' TARGET="_top">'||
                     x_activity_record.activity_display_name||
                     '</A>'||n_response,
             calign=>'Left',cattributes=>'id=""');

       ELSE

          htp.tableData(x_font_color||
              x_activity_record.activity_display_name||
              x_font_color_end, 'Left',cattributes=>'id=""');

       END IF;

       /*
       ** Show the begin date column
       */
       htp.tableData(x_font_color||x_activity_record.begin_date_time||x_font_color_end, 'Left',cattributes=>'id=""');

       /*
       ** The x_activity_record.duration is based on the difference between
       ** the activity end_date or sysdate if the end_date is null minus the
       ** begin_date multiplied by 86400. (The number of seconds in a day.)
       ** Thus the x_activity_record.duration is defined in seconds.  We 
       ** then calculate how many days, hours, minutes, and seconds that 
       ** equates to.  The duration column is displayed in the most significant
       ** unit plus one lower unit.  Therefore if the the duration is more than
       ** a day the duration would show days and hours.  If the duration was
       ** just over a minute then we would show minutes and seconds.  If it were
       ** just a couple of seconds then thats all we show.
       */
       l_duration_seconds := x_activity_record.duration;
       l_duration_days := TRUNC(l_duration_seconds/86400);
       l_duration_hours :=  
          TRUNC((l_duration_seconds - (l_duration_days * 86400))/3600);
       l_duration_minutes :=  
          TRUNC((l_duration_seconds - (l_duration_days * 86400) -  
             (l_duration_hours * 3600))/60);
       l_duration_seconds :=  
          TRUNC(l_duration_seconds - (l_duration_days * 86400) -  
             (l_duration_hours * 3600) - (l_duration_minutes * 60));

       IF (l_duration_days > 0) THEN

          x_duration_str := 
             TO_CHAR(l_duration_days)||' '||
                wf_core.translate('WFMON_DAYS')||' '||
             TO_CHAR(l_duration_hours + (ROUND(l_duration_minutes/60)))||' '||
                wf_core.translate('WFMON_HOURS');

       ELSIF (l_duration_hours > 0) THEN
             
          x_duration_str := 
             TO_CHAR(l_duration_hours)||' '||
                wf_core.translate('WFMON_HOURS')||' '||
             TO_CHAR(l_duration_minutes +(ROUND(l_duration_seconds/60)))||' '||
                wf_core.translate('WFMON_MINUTES');

       ELSIF (l_duration_minutes > 0) THEN
             
          x_duration_str := 
             TO_CHAR(l_duration_minutes)||' '||
                wf_core.translate('WFMON_MINUTES')||' '||
             TO_CHAR(l_duration_seconds)||' '||
                wf_core.translate('WFMON_SECONDS');

       ELSIF (l_duration_seconds >= 0) THEN
             
          x_duration_str := 
             TO_CHAR(l_duration_seconds)||' '||
                wf_core.translate('WFMON_SECONDS');


       ELSE

          x_duration_str := 
             '0'||' '||wf_core.translate('WFMON_SECONDS');

       END IF;

       /*
       ** Show the duration string that we just constructed
       */
       htp.tableData(x_font_color||x_duration_str||x_font_color_end, 
          'Left',cattributes=>'id=""');
 
       /*
       ** Show the result column value if the activity is completed or has
       ** exited with an error or its a notification and the notification is
       ** closed.
       */
       if (x_activity_record.activity_status IN ('COMPLETE', 'ERROR') OR
           NVL(x_activity_record.notification_status, 'OPEN') = 'CLOSED') then
       
         /*
         ** If this is a notification then show the result for that 
         ** notification otherwise show the display name for the 
         ** activity result
         */
         if (x_activity_record.activity_type = 'NOTICE' AND
             x_notification_result <> 'WF_NOTFOUND') THEN

            x_activity_record.result :=  x_notification_result;

         end if;
 
         /*
         ** If this is an activity that has exited with an error
         ** then create a hotlink in this column to be able to navigate
         ** to the error view. 
         */
         IF (x_activity_record.activity_status = 'ERROR') THEN

            IF NOT (pseudo_login) then
             htp.tableData(
                cvalue=>'<A TARGET="_top" HREF="'||
                        owa_util.get_owa_service_path||
                        'wf_monitor.draw_activity_error?x_item_type='||
                        wfa_html.conv_special_url_chars(x_item_type)||
                        '&x_item_key='||
                        wfa_html.conv_special_url_chars(x_item_key)||
                        '" onMouseOver="window.status='||''''||
                        wfa_html.replace_onMouseOver_quotes(wf_core.translate('WFMON_VIEW_ERROR_DETAILS'))||' '||
                        wfa_html.conv_special_url_chars(x_activity_record.result)||''''||
                        '; return true"'||
                        '>'||
                        x_activity_record.result||
                        '</A>',
                calign=>'Left',
                cattributes=>'id=""');
              ELSE
               htp.tableData(x_font_color||x_activity_record.result||x_font_color_end, 'Left',cattributes=>'id=""');
              END IF;

         ELSE

            IF (x_activity_record.result IS NOT NULL) THEN 

               htp.tableData(x_font_color||x_activity_record.result||x_font_color_end, 'Left',cattributes=>'id=""');

            ELSE

               htp.tableData(htf.br,cattributes=>'id=""');

            END IF;

         END IF;

       else

         htp.tableData(htf.br,cattributes=>'id=""');

       end if;
 
       htp.tableRowClose;

    end if;

  end loop;

  CLOSE x_activity_cursor;
 
  htp.tableClose;

  htp.p(htf.formHidden('x_item_type', x_item_type));
  htp.p(htf.formHidden('x_item_key', x_item_key));
  htp.p(htf.formHidden('x_admin_mode', x_admin_mode));
  htp.p(htf.formHidden('x_access_key', x_access_key));
  htp.p(htf.formHidden('x_nls_lang', x_nls_lang));

  htp.formClose;

  htp.tableOpen(cattributes=>'border=0 cellpadding=5 cellspacing=0 
                       ALIGN=CENTER summary=""');

  htp.tableRowOpen;

  htp.p('<TD ID="">');

  wfa_html.create_reg_button ('javascript:document.envelope.submit()',
                              wf_core.translate ('WFMON_VIEW_DIAGRAM'), 
                              wfa_html.image_loc,
                              null,
                              wf_core.translate ('WFMON_VIEW_DIAGRAM'));

  htp.p('</TD>');


  /*
  ** If the envelope function is being called from the main process
  ** window then there will always be FALSE in the activity
  ** options parameter so you want to show the advanced options button.  
  */
  IF (x_advanced = 'FALSE') THEN

     htp.p('<FORM NAME="advanced" ACTION="wf_monitor.envelope_frame" METHOD="GET" TARGET="DETAILS">');

     htp.p(htf.formHidden('x_advanced', 'FIRST'));
     htp.p(htf.formHidden('x_item_type', x_item_type));
     htp.p(htf.formHidden('x_item_key', x_item_key));
     htp.p(htf.formHidden('x_admin_mode', x_admin_mode));
     htp.p(htf.formHidden('x_access_key', x_access_key));
     htp.p(htf.formHidden('x_active','ACTIVE'));
     htp.p(htf.formHidden('x_complete','COMPLETE'));
     htp.p(htf.formHidden('x_error','ERROR'));
     htp.p(htf.formHidden('x_suspend','SUSPEND'));
     htp.p(htf.formHidden('x_proc_func',null));
     htp.p(htf.formHidden('x_note_resp','Y'));
     htp.p(htf.formHidden('x_note_noresp',null));
     htp.p(htf.formHidden('x_func_std',null));
     htp.p(htf.formHidden('x_event',null));
     htp.p(htf.formHidden('x_sort_column','STARTDATE'));
     htp.p(htf.formHidden('x_sort_order', 'ASC'));
     htp.p(htf.formHidden('x_nls_lang', x_nls_lang));


     htp.p('<TD ID="">');

     wfa_html.create_reg_button ('javascript:document.advanced.submit()',
                                 wf_core.translate ('WFMON_REPORT_OPTIONS'), 
                                 wfa_html.image_loc,
                                 null,
                                 wf_core.translate ('WFMON_REPORT_OPTIONS'));

     htp.p('</TD>');

     htp.formClose;

  END IF;

  htp.tableRowClose;

  htp.tableClose;

  wfa_sec.footer;

  htp.htmlClose;

exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'Envelope_Frame', x_item_type, x_item_key);
    wf_monitor.Error;
end envelope_frame;

-- MODIFICATION LOG:
-- 06-JUN-2001 JWSMITH BUG 1819232 -Added summary attr for table tag for ADA
--
procedure draw_activity_error (
 x_item_type IN VARCHAR2,
 x_item_key  IN VARCHAR2
) IS

CURSOR fetch_errors (c_item_type VARCHAR2,
                     c_item_key  VARCHAR2) IS
select  ac.display_name,
        wf_core.activity_result(ac.result_type, ias.activity_result_code) result,
        ias.error_name, 
        ias.error_message,
        ias.error_stack
from    wf_item_activity_statuses ias,
        wf_process_activities pa,
        wf_activities_vl ac,
        wf_activities_vl ap,
        wf_items i
where   ias.item_type = c_item_type
and     ias.item_key  = c_item_key
and     ias.activity_status     = 'ERROR'
and     ias.process_activity    = pa.instance_id
and     pa.activity_name        = ac.name
and     pa.activity_item_type   = ac.item_type
and     pa.process_name         = ap.name
and     pa.process_item_type    = ap.item_type
and     pa.process_version      = ap.version
and     i.item_type             = c_item_type
and     i.item_key              = ias.item_key
and     i.begin_date            >= ac.begin_date 
and     i.begin_date            < nvl(ac.end_date, i.begin_date+1)
order by ias.begin_date, ias.execution_time;

l_title          VARCHAR2(240) := wf_core.translate ('WFMON_ERROR_TITLE');
username varchar2(320);

BEGIN

  /*
  ** Create the  Window title
  */
  htp.htmlOpen;
  htp.headOpen;
  htp.title(l_title);
  wfa_html.create_help_function('wf/links/wfm.htm?WFMON');

  -- call getsession to set context else header will print 
  -- differently in apps.

  wfa_sec.GetSession(username);

  /*
  ** Open body and draw standard header
  */
  wfa_sec.header;

  htp.p('</BODY><BR>');
 
  /*
  ** Draw the section title for the lookup detail section
  */
  wf_item_definition_util_pub.draw_detail_section_title (
     l_title,
     0);


  FOR l_error_rec IN fetch_errors(x_item_type, x_item_key) LOOP

     /*
     ** Open a new table for each lookup so you can control the spacing
     ** between each attribute
     */
     htp.tableOpen(cattributes=>'border=0 cellpadding=0 cellspacing=0
                       summary=""');

     wf_item_definition_util_pub.draw_detail_prompt_value_pair (
        wf_core.translate('WFMON_ACTIVITY'),
        l_error_rec.display_name);

     wf_item_definition_util_pub.draw_detail_prompt_value_pair (
        wf_core.translate('WFMON_RESULT'),
        l_error_rec.result);

     wf_item_definition_util_pub.draw_detail_prompt_value_pair (
        wf_core.translate('WFMON_ERROR_NAME'),
        l_error_rec.error_name);

     wf_item_definition_util_pub.draw_detail_prompt_value_pair (
        wf_core.translate('WFMON_ERROR_MESSAGE'),
        l_error_rec.error_message);

     wf_item_definition_util_pub.draw_detail_prompt_value_pair (
        wf_core.translate('WFMON_ERROR_STACK'),
        l_error_rec.error_stack);

     /* 
     ** Table is created so close it out
     */
     htp.tableClose;

  END LOOP;

exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'Draw_Activity_Error', x_item_type, x_item_key);
    wf_monitor.Error;

END draw_activity_error;


procedure get_process_children (
p_parent_item_type IN VARCHAR2,
p_parent_item_key  IN VARCHAR2,
p_child_item_list  OUT NOCOPY wf_monitor.wf_items_tbl_type,
p_number_of_children OUT NOCOPY NUMBER) IS

cursor c_get_process_children IS
SELECT item_type,
       item_key,
       root_activity,
       root_activity_version,
       user_key,
       owner_role,
       begin_date,
       end_date
FROM   wf_items
WHERE  parent_item_type = p_parent_item_type
AND    parent_item_key  = p_parent_item_key;

l_record_num   NUMBER := 0;

BEGIN

    OPEN c_get_process_children;

    /*
    ** Loop through all the lookup_code rows for the given lookup_type
    ** filling in the p_wf_lookups_tbl
    */
    LOOP 

       l_record_num := l_record_num + 1;

       FETCH c_get_process_children INTO 
             p_child_item_list (l_record_num);

       EXIT WHEN c_get_process_children%NOTFOUND;

    END LOOP;

    CLOSE c_get_process_children;
    p_number_of_children := l_record_num - 1;
    

exception
  when no_data_found THEN
     CLOSE c_get_process_children;
     p_number_of_children := 0;
     return;
  when others then
    Wf_Core.Context('Wf_Monitor', 'get_process_children', 
           p_parent_item_type, p_parent_item_key);
    wf_monitor.Error;

END get_process_children;

procedure draw_process_children (
p_parent_item_type IN VARCHAR2,
p_parent_item_key  IN VARCHAR2,
p_admin_mode       IN VARCHAR2,
p_indent_level     IN NUMBER,
p_nls_lang         IN VARCHAR2) IS

username              VARCHAR2(320);
access_key            VARCHAR2(240);
l_child_item_list     wf_monitor.wf_items_tbl_type;
l_number_of_children  NUMBER :=0;
l_record_num          NUMBER := 0;
ii                    NUMBER := 0;
l_indent_str          VARCHAR2(240) := NULL;
l_item_type_disp_name VARCHAR2(80);

BEGIN

  access_key := GetAccessKey(p_parent_item_type, p_parent_item_key, p_admin_mode);

   /*
   ** Get the display name for the item type
   */
   BEGIN
 
   SELECT display_name 
   INTO   l_item_type_disp_name
   FROM   wf_item_types_vl
   WHERE  name = p_parent_item_type;

   exception
   when no_data_found THEN
      l_item_type_disp_name := NULL;
   when others THEN
      raise;

   END;

   /*
   ** Create the indent string
   */
   for ii in 1..p_indent_level LOOP

      l_indent_str := l_indent_str || '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';

   END LOOP;

   /*
   ** Create the link for the current item
   */
   htp.tableRowOpen;
   htp.p ('<TD ID="" NOWRAP>');

   htp.p ('<FONT SIZE=-1>');

   htp.p(l_indent_str||'<A HREF="'||
         wfa_html.base_url||
         '/wf_monitor.envelope_frame'||
         '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(p_parent_item_type)||
         '&'||'x_item_key='  ||wfa_html.conv_special_url_chars(p_parent_item_key)||
         '&'||'x_admin_mode='||p_admin_mode||
         '&'||'x_access_key='||access_key||
         '&'||'x_advanced=FALSE'||
         '&'||'x_nls_lang='||p_nls_lang||
     '" TARGET="DETAILS">'||
     l_item_type_disp_name||' - '||p_parent_item_key||'</A>');

   htp.p ('</FONT>');

   htp.tableRowClose;
   htp.p ('</TD>');

   /*
   ** Get the process children for this row
   */   
   wf_monitor.get_process_children(p_parent_item_type,
                                   p_parent_item_key,
                                   l_child_item_list,
                                   l_number_of_children);


   /*
   ** Loop through the children and print their children recursively
   */
   FOR l_record_num IN 1..l_number_of_children LOOP

       wf_monitor.draw_process_children (l_child_item_list(l_record_num).item_type,
                                         l_child_item_list(l_record_num).item_key,
                                         p_admin_mode,
                                         p_indent_level+1,
                                         p_nls_lang);

   END LOOP;

exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'draw_process_children', 
           p_parent_item_type, p_parent_item_key,
           p_admin_mode , p_indent_level, p_nls_lang);

    wf_monitor.Error;

END draw_process_children;

-- MODIFICATION LOG:
-- 06-JUN-2001 JWSMITH BUG 1819232 - Added summary attr for table tag for ADA
--
procedure process_children (
x_item_type        IN VARCHAR2,
x_item_key         IN VARCHAR2,
x_admin_mode       IN VARCHAR2,
x_nls_lang         IN varchar2) IS
BEGIN
   
   wfa_sec.header(background_only=>TRUE);

   htp.tableopen(cattributes=>'summary=""');

   wf_monitor.draw_process_children (x_item_type,
                                     x_item_key,
                                     x_admin_mode,
                                     0,x_nls_lang);


   htp.tableclose;

   wfa_sec.footer;

exception
  when others then
    Wf_Core.Context('Wf_Monitor', 'process_children', 
           x_item_type, x_item_key);
    wf_monitor.Error;

END process_children;

--   Sends back a very simple dynamic HTML page to tell the browser what
--   applet to run.
-- IN
--   x_item_type
--   x_item_key
--   x_admin_mode
function createapplettags(
    x_item_type  in varchar2,
    x_item_key   in varchar2,
    x_admin_mode in varchar2,
    x_access_key in varchar2,
    x_nls_lang   in varchar2,
    x_browser    in varchar2) return varchar2 is

 lang_codeset varchar2(50);
 l_code varchar2(80) :=  'oracle.apps.fnd.wf.Monitor';
 l_archive varchar2(2000);      -- first look for java classes at this archive
 l_wf_plugin_download varchar2(80);
 l_wf_plugin_version varchar2(80);
 l_wf_classid varchar2(80);
 l_ie_plugin_ver varchar2(80);  -- IE version is delimited by ','
 l_admin varchar(4) := 'no';
 l_installType varchar2(30) := 'EMBEDDED';
 l_java_loc VARCHAR2(80) := '/OA_JAVA/';
 l_return_buffer varchar2(32000) := '';
 username varchar2(320);
 admin_role varchar2(320);

begin

   lang_codeset := substr(userenv('LANGUAGE'),instr(userenv('LANGUAGE'),'.')+1, 
                         length(userenv('LANGUAGE')));

   -- this portion of the code wil not be executed now as this API is called
   -- with x_admin_mode = 'N' all the time.
   if (upper(substr(x_admin_mode, 1, 1)) = 'Y') then
      -- wfa_sec.GetSession commented out for the time being. we need to 
      -- reimplement this in Framework in the future
      -- wfa_sec.GetSession(username);
      -- Security checking
      admin_role := wf_core.Translate('WF_ADMIN_ROLE');
      if (admin_role <> '*')  then
         if (wf_directory.IsPerformer(username, admin_role)) then
            l_admin := 'yes';
         end if;
      else
         -- no security. Eveybody is admin
         l_admin := 'yes';
      end if;
   end if;
   
   if ( x_browser = 'WIN') then

      l_archive := '/OA_JAVA/oracle/apps/fnd/jar/wfmon.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndewt.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndswing.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndbalishare.jar, ' ||
                   '/OA_JAVA/oracle/apps/fnd/jar/fndctx.jar';

      l_wf_plugin_download := Wf_Core.translate('WF_PLUGIN_DOWNLOAD');
      l_wf_plugin_version := Wf_Core.translate('WF_PLUGIN_VERSION');
      l_wf_classid := Wf_Core.translate('WF_CLASSID');
      l_ie_plugin_ver := replace(Wf_Core.translate('WF_PLUGIN_VERSION'), '.', ',');

       l_return_buffer := l_return_buffer || 
             '<OBJECT classid="clsid:'||l_wf_classid||'" '||
             'WIDTH=100% HEIGHT=400 '||
             'CODEBASE="'||l_wf_plugin_download||
             '#Version='||l_ie_plugin_ver||'">'||
           '<PARAM NAME="jinit_appletcache" VALUE="off">'||
           '<PARAM NAME="CODE"     VALUE="'||l_code||'">'||
           '<PARAM NAME="CODEBASE" VALUE="'||'/OA_JAVA/'||'">'||
           '<PARAM NAME="ARCHIVE"  VALUE="'||l_archive||'">' ||
           '<PARAM NAME="itemtype"  VALUE="'||x_item_type||'">' ||
           '<PARAM NAME="itemkey"  VALUE="'||x_item_key||'">' ||
           '<PARAM NAME="docbase"  VALUE="'|| fnd_web_config.plsql_agent || '">' ||
           '<PARAM NAME="langcodeset"  VALUE="'||lang_codeset||'">' ||
           '<PARAM NAME="accesskey"  VALUE="'||x_access_key||'">' ||
           '<PARAM NAME="admin"  VALUE="'||l_admin||'">' ||
           '<PARAM NAME="type"     VALUE="'||
                        'application/x-jinit-applet;version='||
                        l_wf_plugin_version||'">' ||
           '<PARAM NAME="installType"  VALUE="' || l_installType || '">';

       l_return_buffer := l_return_buffer || 
             '<COMMENT>'||
             '<EMBED type="application/x-jinit-applet;version='||
               l_wf_plugin_version||'"'||
             ' WIDTH="100%" HEIGHT="90%"'||
             ' jinit_appletcache="off"'||
             ' java_CODE="'||l_code||'"'||
             ' java_CODEBASE="'||l_java_loc||'"'||
             ' java_ARCHIVE="'||l_archive||'"'||
             ' itemtype="'||x_item_type||'"' ||
             ' itemkey="'||x_item_key||'"' ||
             ' langcodeset="'||lang_codeset||'"' ||
             ' accesskey="'||x_access_key||'"' ||
             ' admin="'||l_admin||'"' ||
             ' pluginurl="'|| l_wf_plugin_download||'"' ||
             ' installType="' || l_installType || '">'||
             '<NOEMBED></COMMENT></NOEMBED></EMBED></OBJECT>';
    else

     -- Client is not Windows, so we don't want to call Jinitiator.
      l_return_buffer := l_return_buffer || 
        '<applet code=oracle.apps.fnd.wf.Monitor.class codebase="/OA_JAVA"';

      l_archive :=  '/OA_JAVA/oracle/apps/fnd/jar/wfmon.jar, ' ||
                    '/OA_JAVA/oracle/apps/fnd/jar/fndewt.jar, ' ||
                    '/OA_JAVA/oracle/apps/fnd/jar/fndswing.jar, ' ||
                    '/OA_JAVA/oracle/apps/fnd/jar/fndbalishare.jar, ' ||
                    '/OA_JAVA/oracle/apps/fnd/jar/fndctx.jar';

      l_return_buffer := l_return_buffer || 
        ' archive="' || l_archive || '"';

      l_return_buffer := l_return_buffer || 
         ' width=800 height=400> '||
         ' <param name=itemtype value="' || x_item_type || '">' ||
         ' <param name=itemkey value="' || x_item_key || '">'||
         ' <param name=langcodeset value="' || lang_codeset || '">' || 
         ' <param name=docbase value="' || fnd_web_config.plsql_agent || '">' ||
         ' <param name=admin value="' || l_admin || '">' ||
         ' <param name=accesskey value="' || x_access_key || '">' ||
         ' <param name=installType value="' || l_installType || '">' ||
         ' </applet>';

    end if;

    return l_return_buffer;

end createapplettags;


end WF_MONITOR;
/
commit;
exit;