1: package body WF_MONITOR as
2: /* $Header: wfmonb.pls 120.14 2006/09/19 11:34:35 santosin ship $: */
3:
4: type NameArrayTyp is table of varchar2(240) index by binary_integer;
5:
113: x_status_icons_table(G_SUSPEND).icon_file_name := 'FNDIYLWL.gif';
114:
115: EXCEPTION
116: WHEN OTHERS THEN
117: Wf_Core.Context('wf_monitor',
118: 'create_status_icons_table');
119: Error;
120:
121: END create_status_icons_table;
200: item_type_tl varchar2(80);
201: l_ie_plugin_ver varchar2(80); -- IE version is delimited by ','
202: l_archive varchar2(2000); -- first look for java classes at this archive
203: l_java_loc VARCHAR2(80) := '/OA_JAVA/';
204: l_code varchar2(80) := 'oracle.apps.fnd.wf.Monitor';
205: l_wf_plugin_download varchar2(80);
206: l_wf_plugin_version varchar2(80);
207: l_wf_classid varchar2(80);
208: l_admin varchar(4) := 'no';
275: and item_key = x_item_key;
276:
277: exception
278: when NO_DATA_FOUND then
279: wf_core.Context('Wf_Monitor', 'HTML', x_item_type, x_item_key);
280: wf_core.Token('TYPE', x_item_type);
281: wf_core.Token('KEY', x_item_key);
282: wf_core.Raise('WFENG_ITEM');
283: when OTHERS then
313: wfa_html.create_help_function('wf/links/wfm.htm?WFMON');
314: htp.p('');
315:
316: -- Open body and draw standard header
317: wfa_sec.header(FALSE, 'wf_monitor.find_instance" TARGET="_top',
318: wf_core.translate('WFMON_VIEW_DIAGRAM'), TRUE, pseudo_login);
319:
320: if (l_installType = 'EMBEDDED') then
321: if (instr(UPPER(owa_util.get_cgi_env('HTTP_USER_AGENT')), 'WIN') > 0) then
364: ' installType="' || l_installType || '">'||
365: '
366: else
367: -- Client is not Windows, so we don't want to call Jinitiator.
368: htp.p('369:
370: l_archive := '/OA_JAVA/oracle/apps/fnd/jar/wfmon.jar, ' ||
371: '/OA_JAVA/oracle/apps/fnd/jar/fndewt.jar, ' ||
372: '/OA_JAVA/oracle/apps/fnd/jar/fndswing.jar, ' ||
387: end if;
388:
389: else
390:
391: htp.p('392:
393: -- ### We should have this be under fnd/jar after 2.6
394: -- 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"');
395:
1420: into xnls_lang
1421: from wf_languages
1422: where code=userenv('LANG');
1423:
1424: return(x_agent||'/wf_monitor.html'||
1425: '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
1426: '&'||'x_item_key=' ||wfa_html.conv_special_url_chars(x_item_key)||
1427: '&'||'x_admin_mode='||x_admin_mode||
1428: '&'||'x_access_key='||access_key||
1565: end getFunctionForRegion;
1566:
1567:
1568: /**Gets old Status monitor URL's of the form
1569: host:port/pls/
1571: Status monitor function(digram, activities etc) gets directly accessed
1572: without the using PL/SQL catridge.Returns following error code
1573: 0 - Success
1670:
1671: --
1672: if x_options is not null then
1673:
1674: return(x_agent||'/wf_monitor.envelope'||
1675: '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
1676: '&'||'x_item_key=' ||wfa_html.conv_special_url_chars(x_item_key)||
1677: '&'||'x_admin_mode='||x_admin_mode||
1678: '&'||'x_access_key='||access_key||
1686: '&'||'x_nls_lang='||xnls_lang);
1687:
1688: else
1689:
1690: return(x_agent||'/wf_monitor.envelope'||
1691: '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
1692: '&'||'x_item_key=' ||wfa_html.conv_special_url_chars(x_item_key)||
1693: '&'||'x_admin_mode='||x_admin_mode||
1694: '&'||'x_access_key='||access_key||
1754: into xnls_lang
1755: from wf_languages
1756: where code=userenv('LANG');
1757:
1758: return(x_agent||'/wf_monitor.envelope'||
1759: '?'||'x_item_type=' ||wfa_html.conv_special_url_chars(x_item_type)||
1760: '&'||'x_item_key=' ||wfa_html.conv_special_url_chars(x_item_key)||
1761: '&'||'x_admin_mode='||x_admin_mode||
1762: '&'||'x_access_key='||access_key||
1844: admin_mode VARCHAR2,
1845: access_key VARCHAR2) is
1846: begin
1847: if (item_type is null and item_key is null) then
1848: wf_monitor.Find_Instance();
1849: else
1850: wf_monitor.Envelope(item_type, item_key, admin_mode, access_key);
1851: end if;
1852: end ;
1846: begin
1847: if (item_type is null and item_key is null) then
1848: wf_monitor.Find_Instance();
1849: else
1850: wf_monitor.Envelope(item_type, item_key, admin_mode, access_key);
1851: end if;
1852: end ;
1853:
1854:
1985:
1986: exception
1987: when others then
1988: Wf_Core.Context(
1989: 'Wf_Monitor',
1990: 'createenvsortlink',
1991: x_cur_sort_column ,
1992: x_cur_sort_order ,
1993: x_sort_column );
2030: ** routine that gets passed anywhere you create an
2031: ** envelope url
2032: */
2033: x_standard_url := owa_util.get_owa_service_path||
2034: 'wf_monitor.envelope'||
2035: '?x_item_type='||wfa_html.conv_special_url_chars(x_item_type)||
2036: '&x_item_key='||wfa_html.conv_special_url_chars(x_item_key)||
2037: '&x_admin_mode='||x_admin_mode||
2038: '&x_access_key='||x_access_key||
2161: htp.tableRowClose;
2162:
2163: exception
2164: when others then
2165: Wf_Core.Context('Wf_Monitor', 'ShowColumnHeaders');
2166: raise;
2167: end showColumnHeaders;
2168:
2169: --
2248: htp.tableRowClose;
2249:
2250: exception
2251: when others then
2252: Wf_Core.Context('Wf_Monitor', 'TableRow', itemtype, itemkey, process,
2253: url, startdate);
2254: raise;
2255: end TableRow;
2256:
2373: wfa_html.create_help_function('wf/links/pro.htm?PROLIST');
2374: htp.headClose;
2375:
2376: -- Open body and draw standard header
2377: wfa_sec.header(FALSE, 'wf_monitor.find_instance" TARGET="_top',
2378: wf_core.translate('WFMON_LISTTITLE'), TRUE);
2379:
2380: htp.tableOpen(cattributes=>'border=1 cellpadding=3 bgcolor=WHITE
2381: width=100% summary=""');
2402: fetch status_info into suspend_count;
2403: close status_info;
2404:
2405: begin
2406: envurl :=wf_monitor.GetEnvelopeURL(wfa_html.base_url,
2407: proc.item_type,
2408: proc.item_key,
2409: x_admin_privilege);
2410: exception
2433: wfa_sec.footer;
2434: htp.htmlClose;
2435: exception
2436: when others then
2437: Wf_Core.Context('Wf_Monitor', 'Instance_List', x_active, x_itemtype,
2438: x_ident, x_process, x_status);
2439: Error;
2440: end Instance_List;
2441: