28: -- Queue owner
29: g_qowner varchar2(30) := Wf_Core.Translate('WF_SCHEMA');
30:
31: -- Queue name constants
32: WFD_NTF_OUT varchar2(30) := 'WF_NOTIFICATION_OUT';
33: WFD_NTF_IN varchar2(30) := 'WF_NOTIFICATION_IN';
34: WFD_DEFERRED varchar2(30) := 'WF_DEFERRED';
35: WFD_ERROR varchar2(30) := 'WF_ERROR';
36: WFD_PROV_OUT varchar2(30) := 'WF_PROV_OUT';
2359: end Get_Mailer_TOC;
2360:
2361: --
2362: -- Get_Ntf_Msg_From_Out
2363: -- Fetches the notification content from WF_NOTIFICATION_OUT queue
2364: --
2365: procedure Get_Ntf_Msg_From_Out(p_nid in varchar2,
2366: p_corr_id in varchar2,
2367: p_value in out nocopy clob)
2373:
2374:
2375: cursor cout is
2376: select nout.user_data.text_lob lob
2377: from wf_notification_out nout
2378: where instr(nout.user_data.get_string_property('BES_EVENT_KEY'), p_nid) > 0
2379: and (p_corr_id is null or nout.corrid like p_corr_id)
2380: order by ENQ_TIME;
2381:
2386: l_buffer varchar2(32767);
2387:
2388: begin
2389:
2390: l_cells(1) := 'WH:Content from WF_NOTIFICATION_OUT';
2391: Get_Table(l_cells, 1, 'H', l_result);
2392: l_cells.DELETE;
2393:
2394: l_result := l_result||'
Notification Message from WF_NOTIFICATION_OUT |
---|
XML for Summary Message from ' || 2500: ' WF_NOTIFICATION_OUT AQ |
---|
2499: ' color='||th_fontcolor||'>XML for Summary Message from ' ||
2500: ' WF_NOTIFICATION_OUT AQ ';
2501: l_result := l_result||'
2501: l_result := l_result||'
2555: exception
2556: when others then
2557: l_cells(1) := '10%:Note';
2558: l_cells(2) := 'Error when fetching Summary Ntf. Message from ' ||
2559: ' WF_NOTIFICATION_OUT for role '||p_role;
2560: l_cells(3) := '10%:Error';
2561: l_cells(4) := sqlerrm;
2562: Get_Table(l_cells, 2, 'V', l_result);
2563: dbms_lob.WriteAppend(p_value, length(l_result), l_result);
2929: l_temp_result := 'Go to top
3113: '
'||wf_core.newline;
2931: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
2932:
2933: -- XML Message for the notification from WF_NOTIFICATION_OUT
2934: l_temp_result := '
'||wf_core.newline;
2935: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
2936: Get_Ntf_Msg_From_Out(p_nid, l_value);
2937: l_temp_result := '
4220: l_temp_result := '
' ||Get_Summary_Ntf_Role_Info(p_role)||wf_core.newline;
4221: l_temp_result := l_temp_result || '
'||wf_core.newline;
4222: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4223:
4224: -- Queue Statuses : Since summary ntf always enqued in wf_notification_out.
4225: -- If SUMHTML or SUMMARY then contents are fetched from Fwk API :
4226: -- Detail can be seen at WF_NOTIFICATION.getSummaryURL
4227:
4228: -- Notification OUT Queue Status
4225: -- If SUMHTML or SUMMARY then contents are fetched from Fwk API :
4226: -- Detail can be seen at WF_NOTIFICATION.getSummaryURL
4227:
4228: -- Notification OUT Queue Status
4229: -- If a Role has more than one notifications in WF_NOTIFICATION_OUT table
4230: -- then need to show all of them OR XML part of each one.
4231:
4232: -- show number of rows in wf_notification_out AQ
4233: l_temp_result := '
' ||Get_JMS_Queue_Status(p_queue_name => WFD_NTF_OUT,
4228: -- Notification OUT Queue Status
4229: -- If a Role has more than one notifications in WF_NOTIFICATION_OUT table
4230: -- then need to show all of them OR XML part of each one.
4231:
4232: -- show number of rows in wf_notification_out AQ
4233: l_temp_result := '
' ||Get_JMS_Queue_Status(p_queue_name => WFD_NTF_OUT,
4234: p_event_name => 'oracle.apps.wf.notification%',
4235: p_event_key => p_role || '%')||wf_core.newline;
4236:
4248: l_temp_result := '
'||wf_core.newline;
4249: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4250: Get_Summary_Ntf_Message(p_role, l_value );
4251:
4252: -- XML Message for a role from WF_NOTIFICATION_OUT
4253: l_temp_result := '
'||wf_core.newline;
4254: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4255: Get_Summary_Msg_From_Out(p_role, l_value);
4256:
4354:
4355: l_temp_result := '
'||wf_core.newline;
4356: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4357:
4358: -- XML Message for the alert from WF_NOTIFICATION_OUT
4359: Get_Ntf_Msg_From_Out(p_idstring, l_user || ':' || p_module || '%', l_value);
4360:
4361: l_temp_result := '
'||wf_core.newline;
4362: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);