[Home] [Help]
37: wf_resourceList_rec_t INDEX BY BINARY_INTEGER;
38:
39: cursor g_urls(p_nid varchar2) is
40: select WMA.TYPE, WMA.DISPLAY_NAME, WNA.TEXT_VALUE, WNA.NAME
41: from WF_NOTIFICATION_ATTRIBUTES WNA, WF_NOTIFICATIONS WN,
42: WF_MESSAGE_ATTRIBUTES_VL WMA
43: where WNA.NOTIFICATION_ID = p_nid
44: and WN.NOTIFICATION_ID = WNA.NOTIFICATION_ID
45: and WN.MESSAGE_TYPE = WMA.MESSAGE_TYPE
59: g_webAgent varchar2(200) := wf_core.translate('WF_WEB_AGENT');
60: g_wfSchema varchar2(200) := wf_core.translate('WF_SCHEMA');
61: g_fndapi_misschr varchar2(1) := FND_API.G_MISS_CHAR;
62:
63: g_ntfDocText varchar2(30) := wf_notification.doc_text;
64: g_ntfDocHtml varchar2(30) := wf_notification.doc_html;
65:
66: -- <
67: g_base_language v$nls_parameters.value%TYPE ;
60: g_wfSchema varchar2(200) := wf_core.translate('WF_SCHEMA');
61: g_fndapi_misschr varchar2(1) := FND_API.G_MISS_CHAR;
62:
63: g_ntfDocText varchar2(30) := wf_notification.doc_text;
64: g_ntfDocHtml varchar2(30) := wf_notification.doc_html;
65:
66: -- <
67: g_base_language v$nls_parameters.value%TYPE ;
68: g_base_territory v$nls_parameters.value%TYPE ;
70:
71: -- << sstomar>> : Initialization can be done by using
72: -- variables from wf_core.nls_date_format,
73: -- wf_core.nls_date_language etc. but since
74: -- when calling WF_NOTIFICATION_UTIL.set/getNLSContext to retrieve
75: -- defaul NLS Language etc. we can define vars. here also.
76: g_base_nlsDateFormat v$nls_parameters.value%TYPE := wf_core.nls_date_format;
77: g_base_nlsDateLanguage v$nls_parameters.value%TYPE := wf_core.nls_date_language;
78: g_base_nlsCalendar v$nls_parameters.value%TYPE := wf_core.nls_calendar;
284: buf := replace(buf, l_amp||'amp;', l_amp);
285: return buf;
286: exception
287: when others then
288: wf_core.context('Wf_Notification', 'DecodeEntityReference');
289: raise;
290: end DecodeEntityReference;
291:
292: -- EnqueueLOBMessage
1028: l_err_stack varchar2(4000);
1029:
1030: cursor c_attr(p_nid varchar2) is
1031: select WMA.TYPE, WMA.DISPLAY_NAME,
1032: decode(WMA.TYPE, 'URL', WF_NOTIFICATION.GetUrlText(WNA.TEXT_VALUE,
1033: p_nid), WNA.TEXT_VALUE) URL, WNA.NAME
1034: from WF_NOTIFICATION_ATTRIBUTES WNA, WF_NOTIFICATIONS WN,
1035: WF_MESSAGE_ATTRIBUTES_VL WMA
1036: where WNA.NOTIFICATION_ID = p_nid
1030: cursor c_attr(p_nid varchar2) is
1031: select WMA.TYPE, WMA.DISPLAY_NAME,
1032: decode(WMA.TYPE, 'URL', WF_NOTIFICATION.GetUrlText(WNA.TEXT_VALUE,
1033: p_nid), WNA.TEXT_VALUE) URL, WNA.NAME
1034: from WF_NOTIFICATION_ATTRIBUTES WNA, WF_NOTIFICATIONS WN,
1035: WF_MESSAGE_ATTRIBUTES_VL WMA
1036: where WNA.NOTIFICATION_ID = p_nid
1037: and WN.NOTIFICATION_ID = WNA.NOTIFICATION_ID
1038: and WN.MESSAGE_TYPE = WMA.MESSAGE_TYPE
1075: if upper(substr(l_crec.url,1, 6)) = 'PLSQL:' then
1076:
1077: -- wf_mail.getDocContent(p_nid, l_crec.name, l_display_type,
1078: -- l_tmpcontent, l_error_result);
1079: -- bug 2879507. call wf_notification.GetAttrDoc2 to get the
1080: -- doc content as well as the document type
1081: wf_notification.GetAttrDoc2(p_nid, l_crec.name, l_display_type,
1082: l_tmpcontent, l_content_type);
1083: l_tmpContent := replace(l_tmpContent, g_fndapi_misschr);
1077: -- wf_mail.getDocContent(p_nid, l_crec.name, l_display_type,
1078: -- l_tmpcontent, l_error_result);
1079: -- bug 2879507. call wf_notification.GetAttrDoc2 to get the
1080: -- doc content as well as the document type
1081: wf_notification.GetAttrDoc2(p_nid, l_crec.name, l_display_type,
1082: l_tmpcontent, l_content_type);
1083: l_tmpContent := replace(l_tmpContent, g_fndapi_misschr);
1084: -- default to display type if no document type specified
1085: if (l_content_type is null) then
1163: -- First the BODYPART structure to take the MESSAGE
1164: AddElementAttribute('content-type',l_mimeType, l_attrlist);
1165: l_pos := NewLOBTag(p_doc, l_pos, 'BODYPART', '', l_attrlist);
1166: l_attrlist.DELETE;
1167: l_attr_url := Wf_Notification.GetText(l_crec.URL, p_nid, l_display_type);
1168: AddElementAttribute('src', l_attr_url, l_attrlist);
1169: AddElementAttribute('content-type',l_mimeType, l_attrlist);
1170: AddElementAttribute('content-disposition',p_disposition,
1171: l_attrlist);
1233: -- content and then we fetch the content into
1234: -- the new structure.
1235: --
1236: begin
1237: Wf_Notification.GetAttrBLOB(p_nid, l_crec.name,
1238: l_display_type,
1239: l_blob, l_content_type,
1240: l_aname);
1241: exception
1265: -- First the BODYPART structure to take the MESSAGE
1266: AddElementAttribute('content-type',l_mimeType, l_attrlist);
1267: l_pos := NewLOBTag(p_doc, l_pos, 'BODYPART', '', l_attrlist);
1268: l_attrlist.DELETE;
1269: l_attr_url := Wf_Notification.GetText(l_crec.URL, p_nid, l_display_type);
1270: AddElementAttribute('src', l_attr_url, l_attrlist);
1271: AddElementAttribute('content-type',l_mimeType, l_attrlist);
1272: AddElementAttribute('content-disposition',p_disposition,
1273: l_attrlist);
1285:
1286: -- BUG 3285943 - If this is for a framework notification
1287: -- then we don't need the attached URLs.
1288: -- Bug 5456241 : Pick html / text msg body based on content-type.
1289: if (WF_NOTIFICATION.isFwkRegion(p_nid, l_display_type)='Y' and g_install='EMBEDDED') then
1290: l_isURLAttrs := FALSE;
1291: end if;
1292:
1293: if l_isURLAttrs then
1387: '', to_char(WNA.DATE_VALUE),
1388: to_char(WNA.DATE_VALUE, WMA.FORMAT)),
1389: 'LOOKUP', WNA.TEXT_VALUE,
1390: WNA.TEXT_VALUE) VALUE
1391: from WF_NOTIFICATION_ATTRIBUTES WNA,
1392: WF_NOTIFICATIONS WN,
1393: WF_MESSAGE_ATTRIBUTES_VL WMA
1394: where WNA.NOTIFICATION_ID = p_nid
1395: and WN.NOTIFICATION_ID = WNA.NOTIFICATION_ID
1388: to_char(WNA.DATE_VALUE, WMA.FORMAT)),
1389: 'LOOKUP', WNA.TEXT_VALUE,
1390: WNA.TEXT_VALUE) VALUE
1391: from WF_NOTIFICATION_ATTRIBUTES WNA,
1392: WF_NOTIFICATIONS WN,
1393: WF_MESSAGE_ATTRIBUTES_VL WMA
1394: where WNA.NOTIFICATION_ID = p_nid
1395: and WN.NOTIFICATION_ID = WNA.NOTIFICATION_ID
1396: and WN.MESSAGE_TYPE = WMA.MESSAGE_TYPE
1460: l_pos integer;
1461: l_occurance integer := 1;
1462: l_item_type wf_items.item_type%TYPE;
1463: l_item_key wf_items.item_key%TYPE;
1464: l_priority wf_notifications.priority%TYPE;
1465: l_access_key wf_notifications.access_key%TYPE;
1466:
1467: l_response integer;
1468:
1461: l_occurance integer := 1;
1462: l_item_type wf_items.item_type%TYPE;
1463: l_item_key wf_items.item_key%TYPE;
1464: l_priority wf_notifications.priority%TYPE;
1465: l_access_key wf_notifications.access_key%TYPE;
1466:
1467: l_response integer;
1468:
1469: l_attrlist wf_xml_attr_table_type;
1547:
1548: begin
1549: select priority, access_key, status
1550: into l_priority, l_access_key, l_status
1551: from wf_notifications_view
1552: where notification_id = p_nid;
1553: exception
1554: when NO_DATA_FOUND then
1555: wf_core.raise('WFNTFGM_FAILED');
1624: select 1 into l_response
1625: from dual
1626: where exists (select NULL
1627: from WF_MESSAGE_ATTRIBUTES MA,
1628: WF_NOTIFICATIONS N
1629: where N.NOTIFICATION_ID = p_nid
1630: and MA.MESSAGE_TYPE = N.MESSAGE_TYPE
1631: and MA.MESSAGE_NAME = N.MESSAGE_NAME
1632: and MA.SUBTYPE = 'RESPOND');
1679: -- l_doc CLOB;
1680: l_docIdx pls_integer;
1681: l_pos integer;
1682: l_occurance integer := 1;
1683: l_priority wf_notifications.priority%TYPE;
1684: l_status wf_notifications.status%TYPE;
1685: l_recipient wf_notifications.recipient_role%TYPE;
1686:
1687: l_attrlist wf_xml_attr_table_type;
1680: l_docIdx pls_integer;
1681: l_pos integer;
1682: l_occurance integer := 1;
1683: l_priority wf_notifications.priority%TYPE;
1684: l_status wf_notifications.status%TYPE;
1685: l_recipient wf_notifications.recipient_role%TYPE;
1686:
1687: l_attrlist wf_xml_attr_table_type;
1688: l_str varchar2 (250);
1681: l_pos integer;
1682: l_occurance integer := 1;
1683: l_priority wf_notifications.priority%TYPE;
1684: l_status wf_notifications.status%TYPE;
1685: l_recipient wf_notifications.recipient_role%TYPE;
1686:
1687: l_attrlist wf_xml_attr_table_type;
1688: l_str varchar2 (250);
1689:
1726:
1727: begin
1728: select recipient_role, priority, status, more_info_role
1729: into l_recipient, l_priority, l_status, l_more_info_role
1730: from wf_notifications
1731: where notification_id = p_nid;
1732: exception
1733: when NO_DATA_FOUND then
1734: wf_core.raise('WFNTFGM_FAILED');
1787: p_message in out NOCOPY VARCHAR2)
1788: is
1789: l_pos integer;
1790: l_occurance integer := 1;
1791: l_priority wf_notifications.priority%TYPE;
1792: l_status wf_notifications.status%TYPE;
1793: l_recipient wf_notifications.recipient_role%TYPE;
1794:
1795: l_attrlist wf_xml_attr_table_type;
1788: is
1789: l_pos integer;
1790: l_occurance integer := 1;
1791: l_priority wf_notifications.priority%TYPE;
1792: l_status wf_notifications.status%TYPE;
1793: l_recipient wf_notifications.recipient_role%TYPE;
1794:
1795: l_attrlist wf_xml_attr_table_type;
1796: l_str varchar2 (250);
1789: l_pos integer;
1790: l_occurance integer := 1;
1791: l_priority wf_notifications.priority%TYPE;
1792: l_status wf_notifications.status%TYPE;
1793: l_recipient wf_notifications.recipient_role%TYPE;
1794:
1795: l_attrlist wf_xml_attr_table_type;
1796: l_str varchar2 (250);
1797:
1829:
1830: begin
1831: select recipient_role, priority, status, more_info_role
1832: into l_recipient, l_priority, l_status, l_more_info_role
1833: from wf_notifications
1834: where notification_id = p_nid;
1835: exception
1836: when NO_DATA_FOUND then
1837: wf_core.raise('WFNTFGM_FAILED');
1898: -- indicates that a notification should be sent.
1899: begin
1900: select recipient_role
1901: into l_recipient_role
1902: from wf_notifications
1903: where notification_id = p_nid
1904: and ((MAIL_STATUS = 'MAIL' and STATUS <> 'CLOSED')
1905: or (MAIL_STATUS = 'INVALID'));
1906: exception
2016: -- indicates that a notification should be sent.
2017: begin
2018: select recipient_role
2019: into l_recipient_role
2020: from wf_notifications
2021: where notification_id = p_nid
2022: and MAIL_STATUS in ('MAIL', 'INVALID');
2023: exception
2024: when NO_DATA_FOUND then
2080: -- indicates that a notification should be sent.
2081: begin
2082: select recipient_role, more_info_role
2083: into l_recipient_role, l_more_info_role
2084: from wf_notifications
2085: where notification_id = p_nid
2086: and MAIL_STATUS in ('MAIL', 'INVALID')
2087: and STATUS <> 'CLOSED';
2088: exception
2388: l_nid number;
2389: l_queue_name varchar2(255);
2390: l_status varchar2(8) := NULL;
2391: l_currstatus varchar2(8);
2392: l_recipient WF_NOTIFICATIONS.RECIPIENT_ROLE%TYPE := NULL;
2393: l_attrlist wf_xml_attr_table_type;
2394: l_timeout BOOLEAN;
2395: l_pos integer;
2396: l_statusOK boolean;
2433: -- Verify that the status of the notification is
2434: -- still OK.
2435: begin
2436: select status into l_currstatus
2437: from wf_notifications
2438: where notification_id = l_nid
2439: and status in ('OPEN','CANCELED', 'CLOSED')
2440: and mail_status in ('MAIL','INVALID','FAILED');
2441: l_statusOK := TRUE;
2733:
2734: tmpIdx := wf_temp_lob.getLob(g_LOBTable);
2735: for url in g_urls(nid) loop
2736: value := url.text_value;
2737: value := wf_notification.SetFrameworkAgent(value);
2738:
2739: -- Check if there is a render type specification on the URL
2740: -- Remove it and set the renderType appropriately.
2741: renderType := substr(value, 1, 4);
3199: select ACCESS_KEY, PRIORITY, STATUS, MESSAGE_TYPE,
3200: MESSAGE_NAME, MORE_INFO_ROLE
3201: into access_key, priority, status, messageType,
3202: messageName, moreInfoRole
3203: from WF_NOTIFICATIONS
3204: where NOTIFICATION_ID = nid;
3205: exception
3206: when no_data_found then
3207: -- 4104735 Empty documents now provide a document type and
3335: -- interface.
3336: -- The precedence will be only for normal notifications. Requests
3337: -- for more information will not be subject to the cc and bcc
3338: -- handling.
3339: -- moreInfoRole is null : either FIRST_SEND or wf.notification.answer event.
3340: if (moreInfoRole is null) then
3341: begin
3342: cc_list := upper(Wf_Notification.GetAttrText(nid, '#WFM_CC'));
3343: exception
3338: -- handling.
3339: -- moreInfoRole is null : either FIRST_SEND or wf.notification.answer event.
3340: if (moreInfoRole is null) then
3341: begin
3342: cc_list := upper(Wf_Notification.GetAttrText(nid, '#WFM_CC'));
3343: exception
3344: when others then
3345: if (wf_core.error_name = 'WFNTF_ATTR') then
3346: wf_core.clear();
3350: end if;
3351: end;
3352:
3353: begin
3354: bcc_list := upper(Wf_Notification.GetAttrText(nid, '#WFM_BCC'));
3355: exception
3356: when others then
3357: if (wf_core.error_name = 'WFNTF_ATTR') then
3358: wf_core.clear();
3406: doctype := g_ntfDocHtml;
3407: end if;
3408:
3409: -- bug 5456241 : Passing doctype parameter
3410: if (WF_NOTIFICATION.isFwkRegion(nid, doctype)='Y' and
3411: g_install ='EMBEDDED') then
3412:
3413: frameworkContent := TRUE;
3414: -- 3803327 Text email with framework is currently disabled
3455: nvl(l_nlsSort, wf_core.nls_sort) <> g_base_nlsSort ) then
3456:
3457: -- nid, l_nlsCalendar, just set here only.
3458: -- at other places pass value as null.
3459: WF_NOTIFICATION_UTIL.SetNLSContext(nid,
3460: l_nlsLanguage ,
3461: l_nlsTerritory ,
3462: l_nlsDateFormat ,
3463: l_nlsDateLanguage ,
3468: l_context_changed := true;
3469: else
3470:
3471: -- No need to SET context but set NID, Calendar as these two parameters
3472: -- are being used in WF_NOTIFICATION_UTIL.GetCalendarDate
3473: WF_NOTIFICATION_UTIL.setCurrentNID(nid);
3474: WF_NOTIFICATION_UTIL.setCurrentCalendar(l_nlsCalendar);
3475:
3476: END if;
3469: else
3470:
3471: -- No need to SET context but set NID, Calendar as these two parameters
3472: -- are being used in WF_NOTIFICATION_UTIL.GetCalendarDate
3473: WF_NOTIFICATION_UTIL.setCurrentNID(nid);
3474: WF_NOTIFICATION_UTIL.setCurrentCalendar(l_nlsCalendar);
3475:
3476: END if;
3477:
3470:
3471: -- No need to SET context but set NID, Calendar as these two parameters
3472: -- are being used in WF_NOTIFICATION_UTIL.GetCalendarDate
3473: WF_NOTIFICATION_UTIL.setCurrentNID(nid);
3474: WF_NOTIFICATION_UTIL.setCurrentCalendar(l_nlsCalendar);
3475:
3476: END if;
3477:
3478:
3535: -- TODO : need to check above case.
3536: if(l_context_changed ) then
3537:
3538: -- set nid, calendar once only.
3539: -- <
3541: WF_NOTIFICATION_UTIL.SetNLSContext(
3542: nid,
3543: g_base_language ,
3537:
3538: -- set nid, calendar once only.
3539: -- <
3540: -- during life-life cycle of this API.
3541: WF_NOTIFICATION_UTIL.SetNLSContext(
3542: nid,
3543: g_base_language ,
3544: g_base_territory ,
3545: g_base_nlsDateFormat ,
3568: -- <
3569: AddElementAttribute('nlsDateformat', l_nlsDateFormat, attrlist);
3570:
3571: -- << REMOVE validation later> we can validate if date_language is installed or not.
3572: if(WF_NOTIFICATION_UTIL.isLanguageInstalled(l_nlsDateLanguage)) then
3573: AddElementAttribute('nlsDateLanguage', l_nlsDateLanguage, attrlist);
3574: else
3575: AddElementAttribute('nlsDateLanguage', l_nlsLanguage, attrlist);
3576: end if;
3705: -- Build the resource section of the XML so that the
3706: -- java layer can locate the notification body to
3707: -- merge into the template.
3708:
3709: ntfURL := wf_mail.urlEncode(wf_notification.getFwkBodyURL2(nid,
3710: g_ntfDocText,
3711: l_nlsLanguage,
3712: l_nlsCalendar));
3713:
3883: -- Build the resource section of the XML so that the
3884: -- java layer can locate the notification body to
3885: -- merge into the template.
3886:
3887: ntfURL := wf_mail.urlEncode(wf_notification.getFwkBodyURL2(nid,
3888: g_ntfDocHtml,
3889: l_nlsLanguage,
3890: l_nlsCalendar));
3891:
3953: -- SetNLS(l_nlsLanguage, l_nlsTerritory);
3954: if(l_context_changed ) then
3955:
3956: -- l_nlsCalendar only will be stored in global variable
3957: WF_NOTIFICATION_UTIL.SetNLSContext(
3958: nid,
3959: l_nlsLanguage ,
3960: l_nlsTerritory ,
3961: l_nlsDateFormat ,
4004: -- SetNLS(g_base_language, g_base_territory);
4005: -- Reset base language
4006: if( l_context_changed ) then
4007:
4008: WF_NOTIFICATION_UTIL.SetNLSContext
4009: (null, -- Resetting null for Nid is fine.
4010: g_base_language ,
4011: g_base_territory ,
4012: g_base_nlsDateFormat ,
4047:
4048: -- Reset base language, in case of exception.
4049: -- SetNLS(g_base_language, g_base_territory);
4050: -- Reset base language
4051: WF_NOTIFICATION_UTIL.SetNLSContext(
4052: null,
4053: g_base_language ,
4054: g_base_territory ,
4055: g_base_nlsDateFormat ,
4235: begin -- 3741599 If there is no notification, exit gracefully
4236: select NVL(MORE_INFO_ROLE, RECIPIENT_ROLE), STATUS, MAIL_STATUS,
4237: MESSAGE_TYPE, MESSAGE_NAME
4238: into recipient_role, status, mail_status, messageType, messageName
4239: from WF_NOTIFICATIONS
4240: where NOTIFICATION_ID = nid;
4241: exception
4242: when no_data_found then
4243: str := '';
4606: nvl(l_nlsNumericCharacters, wf_core.nls_numeric_characters) <> g_base_nlsNumericCharacters or
4607: nvl(l_nlsSort, wf_core.nls_sort) <> g_base_nlsSort ) then
4608:
4609:
4610: WF_NOTIFICATION_UTIL.SetNLSContext(0,
4611: l_nlsLanguage ,
4612: l_nlsTerritory ,
4613: l_nlsDateFormat ,
4614: l_nlsDateLanguage ,
4646:
4647: -- Reset base NLS Context
4648: if( l_context_changed ) then
4649:
4650: WF_NOTIFICATION_UTIL.SetNLSContext(
4651: null,
4652: g_base_language ,
4653: g_base_territory ,
4654: g_base_nlsDateFormat ,
4779: if l_renderBody = 'N' then
4780: -- If this is a HTML summary notification then
4781: -- create a RESOURCE tag to obtain the content from
4782: -- the Applications Framework
4783: resourceSrc := wf_mail.urlEncode(wf_notification.getSummaryUrl2(
4784: recipient_role, docType, l_nlsCalendar));
4785: AddElementAttribute('page-type','fwk', attrlist);
4786: AddElementAttribute('src', resourceSrc, attrlist);
4787:
4814: wf_temp_lob.releaseLob(g_LOBTable, messageIdx);
4815: end if;
4816:
4817: -- Reset base NLS Context in case of any EXCEPTION
4818: WF_NOTIFICATION_UTIL.SetNLSContext(
4819: null,
4820: g_base_language ,
4821: g_base_territory ,
4822: g_base_nlsDateFormat ,
5064: g_base_nlsNumericCharacters is NULL OR
5065: g_base_nlsSort is NULL
5066: ) then
5067:
5068: WF_NOTIFICATION_UTIL.getNLSContext(
5069: g_base_language ,
5070: g_base_territory ,
5071: g_base_codeset ,
5072: g_base_nlsDateFormat ,
5100: when others then
5101: wf_core.context('WF_XML','Generate',p_event_name, p_event_key);
5102:
5103: -- RESET BASSE LANGUAGE
5104: WF_NOTIFICATION_UTIL.SetNLSContext(null,
5105: g_base_language ,
5106: g_base_territory ,
5107: g_base_nlsDateFormat ,
5108: g_base_nlsDateLanguage ,
5131: begin
5132: begin
5133: select 1
5134: into l_open
5135: from wf_notifications
5136: where notification_id = nid
5137: and status = 'OPEN';
5138: exception
5139: when others then l_open := 0;
5444: -- sendNotification
5445: -- This API is a wrapper to the wf_xml.enqueueNotification. It is provided
5446: -- as forward compatabilty for the original mailer since the call to
5447: -- wf_xml.enqueueNotification has been removed from
5448: -- wf_notification.sendSingle.
5449: -- To use the original mailer, one must enable the subscription that will
5450: -- call this rule function.
5451: -- IN
5452: -- p_subscription
5533: wf_log_pkg.string(WF_LOG_PKG.LEVEL_EXCEPTION,
5534: 'WF_XML.handleReceiveEvent',
5535: 'Notification is not OPEN. Submitting response '||
5536: 'to provide user feedback');
5537: Wf_Notification.Respond(l_nid, NULL, 'email:'||l_fromAddr);
5538: exception
5539: when others then
5540: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
5541: wf_log_pkg.string(WF_LOG_PKG.level_statement,
5539: when others then
5540: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
5541: wf_log_pkg.string(WF_LOG_PKG.level_statement,
5542: 'wf.plsql.WF_XML.handleReceiveEvent',
5543: 'Exception on call to Wf_Notification.Respond NID['||l_nid||'] '||
5544: 'Error Msg '||sqlerrm);
5545: end if;
5546:
5547: wf_core.Context('WF_XML','handleReceiveEvent',
5618: end if;
5619: if l_responses(i).type = 'MOREINFO' then
5620: null; -- discard these responses
5621: else
5622: wf_notification.setAttrText(l_nid, l_responses(i).name,
5623: lk_code);
5624: end if;
5625: end if;
5626:
5672: wf_core.raise('WFNTF_NO_ROLE');
5673: elsif(l_comment is null or length(trim(l_comment)) = 0) then
5674: wf_core.raise('WFNTF_NO_QUESTION');
5675: else
5676: wf_notification.UpdateInfo2(l_nid, l_user, l_fromAddr,
5677: l_comment);
5678: end if;
5679: elsif l_version = 4 then
5680: -- Answer mode
5681: l_user := null;
5682: if(l_comment is null or length(trim(l_comment)) = 0) then
5683: wf_core.raise('WFNTF_NO_ANSWER');
5684: else
5685: wf_notification.UpdateInfo2(l_nid, l_user, l_fromAddr,
5686: l_comment);
5687: end if;
5688: else
5689: -- Do not need to preserve context
5691:
5692: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
5693: wf_log_pkg.string(WF_LOG_PKG.level_statement,
5694: 'wf.plsql.WF_XML.handleReceiveEvent',
5695: 'Calling Wf_Notification.Respond');
5696: end if;
5697:
5698: Wf_Notification.Respond(nid => l_nid,
5699: responder => 'email:'||l_fromAddr);
5694: 'wf.plsql.WF_XML.handleReceiveEvent',
5695: 'Calling Wf_Notification.Respond');
5696: end if;
5697:
5698: Wf_Notification.Respond(nid => l_nid,
5699: responder => 'email:'||l_fromAddr);
5700: end if;
5701: exception
5702: when others then
5820: -- to recepient_role if notification more_info_role is not null.
5821: CURSOR c_get_summary_roles is
5822: SELECT recipient from
5823: (SELECT distinct nvl(more_info_role,recipient_role) recipient
5824: FROM wf_notifications
5825: WHERE mail_status is null
5826: AND status = 'OPEN'
5827: AND rownum > 0)
5828: WHERE Wf_Directory.GetRoleNtfPref(recipient) in ('SUMMARY', 'SUMHTML');
6064: error_stack := p_event.getErrorStack;
6065: begin
6066: select MESSAGE_TYPE, CALLBACK, CONTEXT, STATUS
6067: into itemType, cb, ctx, status
6068: from WF_NOTIFICATIONS
6069: where NOTIFICATION_ID = nid;
6070:
6071: -- If the notification is closed, then do not bother
6072: -- to process any errors.
6073: if status = 'CLOSED' then
6074: return 'SUCCESS';
6075: end if;
6076:
6077: update wf_notifications
6078: set mail_status = 'ERROR'
6079: where notification_id = nid;
6080:
6081: if ctx is not null then
6203:
6204: if (procarg is null) then
6205: procarg := '-dummy-';
6206: elsif pNid > 0 then
6207: procarg := Wf_Notification.GetText(procarg, pNid, disptype);
6208: end if;
6209:
6210: sqlbuf := 'begin '||procname||'(:p1, :p2, :p3, :p4); end;';
6211: execute immediate sqlbuf using
6251:
6252: if (procarg is null) then
6253: procarg := '-dummy-';
6254: elsif pNid > 0 then
6255: procarg := Wf_Notification.GetText(procarg, pNid, disptype);
6256: end if;
6257:
6258: sqlbuf := 'begin '||procname||'(:p1, :p2, :p3, :p4); end;';
6259: execute immediate sqlbuf using