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';
2599: end Get_Mailer_TOC;
2600:
2601: --
2602: -- Get_Ntf_Msg_From_Out
2603: -- Fetches the notification content from WF_NOTIFICATION_OUT queue
2604: --
2605: procedure Get_Ntf_Msg_From_Out(p_nid in varchar2,
2606: p_corr_id in varchar2,
2607: p_value in out nocopy clob)
2613:
2614:
2615: cursor cout is
2616: select nout.user_data.text_lob lob
2617: from wf_notification_out nout
2618: where instr(nout.user_data.get_string_property('BES_EVENT_KEY'), p_nid) > 0
2619: and (p_corr_id is null or nout.corrid like p_corr_id)
2620: order by ENQ_TIME;
2621:
2626: l_buffer varchar2(32767);
2627:
2628: begin
2629:
2630: l_cells(1) := 'WH:Content from WF_NOTIFICATION_OUT';
2631: Get_Table(l_cells, 1, 'H', l_result);
2632: l_cells.DELETE;
2633:
2634: l_result := l_result||'
Notification Message from WF_NOTIFICATION_OUT |
---|
XML for Summary Message from ' || 2740: ' WF_NOTIFICATION_OUT AQ |
---|
2739: ' color='||th_fontcolor||'>XML for Summary Message from ' ||
2740: ' WF_NOTIFICATION_OUT AQ ';
2741: l_result := l_result||'
2741: l_result := l_result||'
2795: exception
2796: when others then
2797: l_cells(1) := '10%:Note';
2798: l_cells(2) := 'Error when fetching Summary Ntf. Message from ' ||
2799: ' WF_NOTIFICATION_OUT for role '||p_role;
2800: l_cells(3) := '10%:Error';
2801: l_cells(4) := sqlerrm;
2802: Get_Table(l_cells, 2, 'V', l_result);
2803: dbms_lob.WriteAppend(p_value, length(l_result), l_result);
3272: l_temp_result := 'Go to top
3464: '
'||wf_core.newline;
3274: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
3275:
3276: -- XML Message for the notification from WF_NOTIFICATION_OUT
3277: l_temp_result := '
'||wf_core.newline;
3278: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
3279: Get_Ntf_Msg_From_Out(p_nid, l_value);
3280: l_temp_result := '
4571: l_temp_result := '
' ||Get_Summary_Ntf_Role_Info(p_role)||wf_core.newline;
4572: l_temp_result := l_temp_result || '
'||wf_core.newline;
4573: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4574:
4575: -- Queue Statuses : Since summary ntf always enqued in wf_notification_out.
4576: -- If SUMHTML or SUMMARY then contents are fetched from Fwk API :
4577: -- Detail can be seen at WF_NOTIFICATION.getSummaryURL
4578:
4579: -- Notification OUT Queue Status
4576: -- If SUMHTML or SUMMARY then contents are fetched from Fwk API :
4577: -- Detail can be seen at WF_NOTIFICATION.getSummaryURL
4578:
4579: -- Notification OUT Queue Status
4580: -- If a Role has more than one notifications in WF_NOTIFICATION_OUT table
4581: -- then need to show all of them OR XML part of each one.
4582:
4583: -- show number of rows in wf_notification_out AQ
4584: l_temp_result := '
' ||Get_JMS_Queue_Status(p_queue_name => WFD_NTF_OUT,
4579: -- Notification OUT Queue Status
4580: -- If a Role has more than one notifications in WF_NOTIFICATION_OUT table
4581: -- then need to show all of them OR XML part of each one.
4582:
4583: -- show number of rows in wf_notification_out AQ
4584: l_temp_result := '
' ||Get_JMS_Queue_Status(p_queue_name => WFD_NTF_OUT,
4585: p_event_name => 'oracle.apps.wf.notification%',
4586: p_event_key => p_role || '%')||wf_core.newline;
4587:
4599: l_temp_result := '
'||wf_core.newline;
4600: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4601: Get_Summary_Ntf_Message(p_role, l_value );
4602:
4603: -- XML Message for a role from WF_NOTIFICATION_OUT
4604: l_temp_result := '
'||wf_core.newline;
4605: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4606: Get_Summary_Msg_From_Out(p_role, l_value);
4607:
4705:
4706: l_temp_result := '
'||wf_core.newline;
4707: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);
4708:
4709: -- XML Message for the alert from WF_NOTIFICATION_OUT
4710: Get_Ntf_Msg_From_Out(p_idstring, l_user || ':' || p_module || '%', l_value);
4711:
4712: l_temp_result := '
'||wf_core.newline;
4713: dbms_lob.WriteAppend(l_value, length(l_temp_result), l_temp_result);