[Home] [Help]
33: td_bgcolor varchar2(7) := '#f7f7e7';
34: td_fontcolor varchar2(7) := 'black';
35: td_fontface varchar2(80) := 'Arial, Helvetica, Geneva, sans-serif';
36: td_fontsize varchar2(2) := '2';
37: table_summary WF_RESOURCES.TEXT%TYPE := wf_core.translate('ACTION_HISTORY');
38:
39: -- Session NLS_DATE_FORMAT
40: -- Use this to fulfill the GSCC requirement
41: s_nls_date_format varchar2(120); -- session parameter value has length of 120
| '; 171: 172: if (l_type = 'N') then 173: rs := rs||wf_core.newline||'
266: Line 265: rs := rs||wf_core.newline||' |
228: elsif (l_type = 'H') then
229: rs := rs||wf_core.newline||'
245: rs := rs||'
261: if (modv = 0) then
262: rs := rs||wf_core.newline||'';
263: end if;
264: end loop;
265: rs := rs||wf_core.newline||'
265: rs := rs||wf_core.newline||''||wf_core.newline||'';
266:
267: exception
268: when OTHERS then
269: wf_core.context('Wf_Notification', 'NTF_Table',to_char(col),l_type);
270: raise;
271: end NTF_Table;
272:
273: --
360:
361: if (l_type = 'DATE') then
362: --
363: -- l_format, wf_notification_util.G_NLS_DATE_FORMAT (if nid is provided and matches
364: -- wf_notification_util.G_NID), session user's WFDS preference, wf_core.nls_date_format.
365: l_text := wf_notification_util.GetCalendarDate(nid, l_datev, l_format, false);
366: elsif (l_type = 'NUMBER') then
367: if (l_format is null) then
368: l_text := to_char(l_numberv);
399:
400: -- make sure the text does not carry any HTML chars... though NUMBER is safe
401: -- others possibly could carry.
402: if (disptype = wf_notification.doc_html) then
403: l_text := substrb(Wf_Core.SubstituteSpecialChars(l_text), 1, 4000);
404: end if;
405:
406: -- display
407: if (l_dispname is not null) then
405:
406: -- display
407: if (l_dispname is not null) then
408: if (disptype = wf_notification.doc_html) then
409: l_dispname := substrb(Wf_Core.SubstituteSpecialChars(l_dispname), 1, 80);
410: if (table_type = 'N') then
411: cells(i) := 'E:'||l_dispname;
412: i := i+1;
413: cells(i) := 'S12:';
418: cells(i) := 'S:'||l_text; -- normally align number to the right
419: -- but not in vertical table
420: i := i+1;
421: else
422: result := result||wf_core.newline||l_dispname||l_delim||' '||l_text;
423: end if;
424: end if;
425:
426: p1 := p2+1;
441: return(result);
442:
443: exception
444: when OTHERS then
445: wf_core.context('Wf_Notification','Wf_Msg_Attr',to_char(nid),attrs);
446: raise;
447: end wf_msg_attr;
448:
449:
595: end;
596:
597: j := 1;
598: -- title
599: cells(j) := wf_core.translate('NUM');
600: if (disptype = wf_notification.doc_html) then
601: cells(j) := 'S10%:'||cells(j);
602: end if;
603: j := j+1;
600: if (disptype = wf_notification.doc_html) then
601: cells(j) := 'S10%:'||cells(j);
602: end if;
603: j := j+1;
604: cells(j) := wf_core.translate('NAME');
605: if (disptype = wf_notification.doc_html) then
606: cells(j) := 'S:'||cells(j);
607: end if;
608: j := j+1;
605: if (disptype = wf_notification.doc_html) then
606: cells(j) := 'S:'||cells(j);
607: end if;
608: j := j+1;
609: cells(j) := wf_core.translate('ACTION');
610: if (disptype = wf_notification.doc_html) then
611: cells(j) := 'S:'||cells(j);
612: end if;
613: j := j+1;
610: if (disptype = wf_notification.doc_html) then
611: cells(j) := 'S:'||cells(j);
612: end if;
613: j := j+1;
614: cells(j) := wf_core.translate('ACTION_DATE');
615: if (disptype = wf_notification.doc_html) then
616: cells(j) := 'S:'||cells(j);
617: end if;
618: j := j+1;
615: if (disptype = wf_notification.doc_html) then
616: cells(j) := 'S:'||cells(j);
617: end if;
618: j := j+1;
619: cells(j) := wf_core.translate('NOTE');
620: if (disptype = wf_notification.doc_html) then
621: cells(j) := 'S:'||cells(j);
622: end if;
623: j := j+1;
637: histr.result_type <> l_result_type or
638: histr.activity_result_code <> l_result_code) then
639: l_result_type := histr.result_type;
640: l_result_code := histr.activity_result_code;
641: l_action := wf_core.activity_result(l_result_type, l_result_code);
642: end if;
643: if (disptype = wf_notification.doc_html) then
644: if (l_action is null) then
645: cells(j) := 'S: ';
664: cells(j) := l_note;
665: exception
666: when OTHERS then
667: cells(j) := null;
668: wf_core.clear;
669: end;
670: if (disptype = wf_notification.doc_html) then
671: if (cells(j) is null) then
672: cells(j) := 'S: ';
693: histr.result_type <> l_result_type or
694: histr.activity_result_code <> l_result_code) then
695: l_result_type := histr.result_type;
696: l_result_code := histr.activity_result_code;
697: l_action := wf_core.activity_result(l_result_type, l_result_code);
698: end if;
699: if (disptype = wf_notification.doc_html) then
700: if (l_action is null) then
701: cells(j) := 'S: ';
720: cells(j) := l_note;
721: exception
722: when OTHERS then
723: cells(j) := null;
724: wf_core.clear;
725: end;
726: if (disptype = wf_notification.doc_html) then
727: if (cells(j) is null) then
728: cells(j) := 'S: ';
755: cells(j) := role_info_tbl(1).display_name;
756: end if;
757: j := j+1;
758: if (disptype = wf_notification.doc_html) then
759: cells(j) := 'S:'||wf_core.translate('SUBMIT');
760: else
761: cells(j) := wf_core.translate('SUBMIT');
762: end if;
763: j := j+1;
757: j := j+1;
758: if (disptype = wf_notification.doc_html) then
759: cells(j) := 'S:'||wf_core.translate('SUBMIT');
760: else
761: cells(j) := wf_core.translate('SUBMIT');
762: end if;
763: j := j+1;
764: if (disptype = wf_notification.doc_html) then
765: cells(j) := 'S:'||to_char(l_begin_date);
794: for k in 1..cells.LAST loop
795: if (mod(k, 5) <> 0) then
796: result := result||cells(k)||' '||l_delim||' ';
797: else
798: result := result||cells(k)||wf_core.newline;
799: end if;
800: end loop;
801: end if;
802:
802:
803: return(result);
804: exception
805: when OTHERS then
806: wf_core.context('Wf_Notification', 'Wf_NTF_History', to_char(nid));
807: raise;
808: end wf_ntf_history;
809: **
810: ** End of obsoleted procedure WF_NTF_HISTORY
889: return(l_body);
890:
891: exception
892: when OTHERS then
893: wf_core.context('Wf_Notification', 'runFuncOnBody', to_char(nid), disptype);
894: raise;
895: end runFuncOnBody;
896:
897: -- More Info mailer support
1059: when OTHERS then --no_data_found or invalid_number
1060: itemtype:=null;
1061: itemkey:=null;
1062: actid:=null;
1063: wf_core.context('Wf_Notification', 'validate_context', context);
1064: raise;
1065: end validate_context;
1066:
1067:
1082: is
1083: dummy pls_integer;
1084: begin
1085: if ((nid is null) or (aname is null)) then
1086: wf_core.token('NID', to_char(nid));
1087: wf_core.token('ANAME', aname);
1088: wf_core.raise('WFSQL_ARGS');
1089: end if;
1090:
1083: dummy pls_integer;
1084: begin
1085: if ((nid is null) or (aname is null)) then
1086: wf_core.token('NID', to_char(nid));
1087: wf_core.token('ANAME', aname);
1088: wf_core.raise('WFSQL_ARGS');
1089: end if;
1090:
1091: -- Insure this is a valid notification.
1084: begin
1085: if ((nid is null) or (aname is null)) then
1086: wf_core.token('NID', to_char(nid));
1087: wf_core.token('ANAME', aname);
1088: wf_core.raise('WFSQL_ARGS');
1089: end if;
1090:
1091: -- Insure this is a valid notification.
1092: begin
1095: from WF_NOTIFICATIONS
1096: where NOTIFICATION_ID = nid);
1097: exception
1098: when no_data_found then
1099: wf_core.token('NID', to_char(nid));
1100: wf_core.raise('WFNTF_NID');
1101: end;
1102:
1103: -- Insert new attribute
1096: where NOTIFICATION_ID = nid);
1097: exception
1098: when no_data_found then
1099: wf_core.token('NID', to_char(nid));
1100: wf_core.raise('WFNTF_NID');
1101: end;
1102:
1103: -- Insert new attribute
1104: begin
1116: ''
1117: );
1118: exception
1119: when dup_val_on_index then
1120: wf_core.token('NID', to_char(nid));
1121: wf_core.token('ATTRIBUTE', aname);
1122: wf_core.raise('WFNTF_ATTR_UNIQUE');
1123: end;
1124:
1117: );
1118: exception
1119: when dup_val_on_index then
1120: wf_core.token('NID', to_char(nid));
1121: wf_core.token('ATTRIBUTE', aname);
1122: wf_core.raise('WFNTF_ATTR_UNIQUE');
1123: end;
1124:
1125: exception
1118: exception
1119: when dup_val_on_index then
1120: wf_core.token('NID', to_char(nid));
1121: wf_core.token('ATTRIBUTE', aname);
1122: wf_core.raise('WFNTF_ATTR_UNIQUE');
1123: end;
1124:
1125: exception
1126: when others then
1123: end;
1124:
1125: exception
1126: when others then
1127: wf_core.context('Wf_Notification', 'AddAttr', to_char(nid), aname);
1128: raise;
1129: end AddAttr;
1130:
1131: --
1152: l_recipient_role varchar2(320);
1153:
1154: begin
1155: if ((nid is null) or (aname is null)) then
1156: wf_core.token('NID', to_char(nid));
1157: wf_core.token('ANAME', aname);
1158: wf_core.raise('WFSQL_ARGS');
1159: end if;
1160:
1153:
1154: begin
1155: if ((nid is null) or (aname is null)) then
1156: wf_core.token('NID', to_char(nid));
1157: wf_core.token('ANAME', aname);
1158: wf_core.raise('WFSQL_ARGS');
1159: end if;
1160:
1161: -- Get type and format of attr.
1154: begin
1155: if ((nid is null) or (aname is null)) then
1156: wf_core.token('NID', to_char(nid));
1157: wf_core.token('ANAME', aname);
1158: wf_core.raise('WFSQL_ARGS');
1159: end if;
1160:
1161: -- Get type and format of attr.
1162: -- This is used for translating number/date strings.
1228: AND rownum = 1;
1229: exception
1230: when no_data_found then
1231: -- Not displayed or internal role name, error
1232: wf_core.token('ROLE', avalue);
1233: wf_core.raise('WFNTF_ROLE');
1234: end;
1235: end if;
1236: end if;
1229: exception
1230: when no_data_found then
1231: -- Not displayed or internal role name, error
1232: wf_core.token('ROLE', avalue);
1233: wf_core.raise('WFNTF_ROLE');
1234: end;
1235: end if;
1236: end if;
1237:
1249: and NAME = aname;
1250: end if;
1251:
1252: if (SQL%NOTFOUND) then
1253: wf_core.token('NID', to_char(nid));
1254: wf_core.token('ATTRIBUTE', aname);
1255: wf_core.raise('WFNTF_ATTR');
1256: end if;
1257:
1250: end if;
1251:
1252: if (SQL%NOTFOUND) then
1253: wf_core.token('NID', to_char(nid));
1254: wf_core.token('ATTRIBUTE', aname);
1255: wf_core.raise('WFNTF_ATTR');
1256: end if;
1257:
1258: -- Redenormalize if attribute being updated is #FROM_ROLE
1251:
1252: if (SQL%NOTFOUND) then
1253: wf_core.token('NID', to_char(nid));
1254: wf_core.token('ATTRIBUTE', aname);
1255: wf_core.raise('WFNTF_ATTR');
1256: end if;
1257:
1258: -- Redenormalize if attribute being updated is #FROM_ROLE
1259: if (aname = '#FROM_ROLE') then
1294: end if;
1295:
1296: exception
1297: when others then
1298: wf_core.context('Wf_Notification', 'SetAttrText', to_char(nid),
1299: aname, avalue);
1300: raise;
1301: end SetAttrText;
1302:
1314: avalue in number)
1315: is
1316: begin
1317: if ((nid is null) or (aname is null)) then
1318: wf_core.token('NID', to_char(nid));
1319: wf_core.token('ANAME', aname);
1320: wf_core.raise('WFSQL_ARGS');
1321: end if;
1322:
1315: is
1316: begin
1317: if ((nid is null) or (aname is null)) then
1318: wf_core.token('NID', to_char(nid));
1319: wf_core.token('ANAME', aname);
1320: wf_core.raise('WFSQL_ARGS');
1321: end if;
1322:
1323: -- Update attribute value
1316: begin
1317: if ((nid is null) or (aname is null)) then
1318: wf_core.token('NID', to_char(nid));
1319: wf_core.token('ANAME', aname);
1320: wf_core.raise('WFSQL_ARGS');
1321: end if;
1322:
1323: -- Update attribute value
1324: update WF_NOTIFICATION_ATTRIBUTES
1325: set NUMBER_VALUE = avalue
1326: where NOTIFICATION_ID = nid and NAME = aname;
1327:
1328: if (SQL%NOTFOUND) then
1329: wf_core.token('NID', to_char(nid));
1330: wf_core.token('ATTRIBUTE', aname);
1331: wf_core.raise('WFNTF_ATTR');
1332: end if;
1333:
1326: where NOTIFICATION_ID = nid and NAME = aname;
1327:
1328: if (SQL%NOTFOUND) then
1329: wf_core.token('NID', to_char(nid));
1330: wf_core.token('ATTRIBUTE', aname);
1331: wf_core.raise('WFNTF_ATTR');
1332: end if;
1333:
1334: exception
1327:
1328: if (SQL%NOTFOUND) then
1329: wf_core.token('NID', to_char(nid));
1330: wf_core.token('ATTRIBUTE', aname);
1331: wf_core.raise('WFNTF_ATTR');
1332: end if;
1333:
1334: exception
1335: when others then
1332: end if;
1333:
1334: exception
1335: when others then
1336: wf_core.context('Wf_Notification', 'SetAttrNumber', to_char(nid),
1337: aname, to_char(avalue));
1338: raise;
1339: end SetAttrNumber;
1340:
1352: avalue in date)
1353: is
1354: begin
1355: if ((nid is null) or (aname is null)) then
1356: wf_core.token('NID', to_char(nid));
1357: wf_core.token('ANAME', aname);
1358: wf_core.raise('WFSQL_ARGS');
1359: end if;
1360:
1353: is
1354: begin
1355: if ((nid is null) or (aname is null)) then
1356: wf_core.token('NID', to_char(nid));
1357: wf_core.token('ANAME', aname);
1358: wf_core.raise('WFSQL_ARGS');
1359: end if;
1360:
1361: -- Update attribute value
1354: begin
1355: if ((nid is null) or (aname is null)) then
1356: wf_core.token('NID', to_char(nid));
1357: wf_core.token('ANAME', aname);
1358: wf_core.raise('WFSQL_ARGS');
1359: end if;
1360:
1361: -- Update attribute value
1362: update WF_NOTIFICATION_ATTRIBUTES
1363: set DATE_VALUE = avalue
1364: where NOTIFICATION_ID = nid and NAME = aname;
1365:
1366: if (SQL%NOTFOUND) then
1367: wf_core.token('NID', to_char(nid));
1368: wf_core.token('ATTRIBUTE', aname);
1369: wf_core.raise('WFNTF_ATTR');
1370: end if;
1371:
1364: where NOTIFICATION_ID = nid and NAME = aname;
1365:
1366: if (SQL%NOTFOUND) then
1367: wf_core.token('NID', to_char(nid));
1368: wf_core.token('ATTRIBUTE', aname);
1369: wf_core.raise('WFNTF_ATTR');
1370: end if;
1371:
1372: exception
1365:
1366: if (SQL%NOTFOUND) then
1367: wf_core.token('NID', to_char(nid));
1368: wf_core.token('ATTRIBUTE', aname);
1369: wf_core.raise('WFNTF_ATTR');
1370: end if;
1371:
1372: exception
1373: when others then
1370: end if;
1371:
1372: exception
1373: when others then
1374: wf_core.context('Wf_Notification', 'SetAttrDate', to_char(nid),
1375: aname, to_char(avalue));
1376: raise;
1377: end SetAttrDate;
1378:
1469: buf := replace(buf, '"', l_amp||'quot;');
1470: return buf;
1471: exception
1472: when others then
1473: wf_core.context('Wf_Notification', 'SubstituteSpecialChars');
1474: raise;
1475: end SubstituteSpecialChars;
1476:
1477: --
1577: -- bug 6025162 - SubstituteSpecialChars function substitutes only those
1578: -- characters that really require substitution. Any valid occurences
1579: -- will be retained. No validation required from calling program.
1580:
1581: value := wf_core.SubstituteSpecialChars(value);
1582: end if;
1583:
1584: elsif (not_attr_row.type = 'NUMBER') then
1585: -- NUMBER is number_value, with format if provided.
1728: end if;
1729: return(local_text);
1730: exception
1731: when others then
1732: wf_core.context('Wf_Notification','GetTextInternal', to_char(nid), disptype);
1733: raise;
1734: end GetTextInternal;
1735:
1736:
1761: --If the URL is a javascript function then
1762: --do not prefix the web agent to the URL.
1763: return value;
1764: end if;
1765: if ((wf_core.Translate('WF_INSTALL')='EMBEDDED') AND
1766: (substr(value, 1, 4) = 'JSP:')) then
1767: -- The URL is a APPS Framework reference and will need
1768: -- the JSP Agent rather than the WEB Agent
1769: value := substr(value, 5);
1781: -- CTILLEY: Added additional check to make sure a trailing slash
1782: -- is added to the WF_WEB_AGENT if it isn't the first character
1783: -- in the value. Fix for bug 2207322.
1784: if substr(value,1,1)='/' then
1785: value := wf_core.translate('WF_WEB_AGENT')||value;
1786: else
1787: value := wf_core.translate('WF_WEB_AGENT')||'/'||value;
1788: end if;
1789: end if;
1783: -- in the value. Fix for bug 2207322.
1784: if substr(value,1,1)='/' then
1785: value := wf_core.translate('WF_WEB_AGENT')||value;
1786: else
1787: value := wf_core.translate('WF_WEB_AGENT')||'/'||value;
1788: end if;
1789: end if;
1790: end if;
1791: return value;
1791: return value;
1792:
1793: exception
1794: when others then
1795: wf_core.context('Wf_Notification', 'SetFrameworkAgent', url);
1796: end;
1797:
1798: --
1799: -- GetText
1913: -- bug 6025162 - SubstituteSpecialChars function substitutes only those
1914: -- characters that really require subsstitution. Any valid occurences
1915: -- will be retained. No validation required from calling program.
1916:
1917: value := wf_core.SubstituteSpecialChars(value);
1918:
1919: -- end if;
1920: value := substrb(replace(value, wf_core.newline,
1921: '
'||wf_core.newline),1, 32000);
1916:
1917: value := wf_core.SubstituteSpecialChars(value);
1918:
1919: -- end if;
1920: value := substrb(replace(value, wf_core.newline,
1921: '
'||wf_core.newline),1, 32000);
1922: end if;
1923:
1924: elsif (not_attr_row.type = 'NUMBER') then
1917: value := wf_core.SubstituteSpecialChars(value);
1918:
1919: -- end if;
1920: value := substrb(replace(value, wf_core.newline,
1921: '
'||wf_core.newline),1, 32000);
1922: end if;
1923:
1924: elsif (not_attr_row.type = 'NUMBER') then
1925: -- NUMBER is number_value, with format if provided.
1931: elsif (not_attr_row.type = 'DATE') then
1932: --
1933: -- not_attr_row.format, wf_notification_util.G_NLS_DATE_FORMAT (if nid is provided
1934: -- and matches wf_notification_util.G_NID), session user's WFDS preference,
1935: -- and wf_core.nls_date_format.
1936: value := wf_notification_util.GetCalendarDate(nid, not_attr_row.date_value
1937: , not_attr_row.format, false);
1938:
1939: elsif (not_attr_row.type = 'FORM') then
1951: if (disptype = wf_notification.doc_html) then
1952: -- Bug 4634849
1953: -- Do not display potentially harmful text
1954: begin
1955: l_dummy := wf_core.CheckIllegalChars(value,true,';<>()');
1956: exception
1957: when OTHERS then
1958: wf_core.get_error(error_name, value, error_stack);
1959:
1954: begin
1955: l_dummy := wf_core.CheckIllegalChars(value,true,';<>()');
1956: exception
1957: when OTHERS then
1958: wf_core.get_error(error_name, value, error_stack);
1959:
1960: value :=wf_core.substitutespecialchars(value);
1961: error_stack:= '';
1962:
1956: exception
1957: when OTHERS then
1958: wf_core.get_error(error_name, value, error_stack);
1959:
1960: value :=wf_core.substitutespecialchars(value);
1961: error_stack:= '';
1962:
1963: end;
1964: end if;
1979: if (disptype = wf_notification.doc_html) then
1980: -- Bug 4634849
1981: -- Do not display potentially harmful url
1982: begin
1983: if (not wf_core.CheckIllegalChars(value,true, ';<>"')) then
1984:
1985: -- 4713416 Determine the display formatting for the URI
1986: -- First validate the prefix to the known types.
1987: renderType := upper(substr(value, 1, 4));
2022: end if;
2023: end if;
2024: exception
2025: when OTHERS then
2026: wf_core.get_error(error_name, value, error_stack);
2027:
2028: value :=wf_core.substitutespecialchars(value);
2029: error_stack:= '';
2030:
2024: exception
2025: when OTHERS then
2026: wf_core.get_error(error_name, value, error_stack);
2027:
2028: value :=wf_core.substitutespecialchars(value);
2029: error_stack:= '';
2030:
2031: end;
2032: else
2041: end if;
2042:
2043: --skilaru 28-July-03 fix for bug 3042471
2044: if( instr(not_attr_row.text_value, fwk_region_start) = 1 ) then
2045: wf_core.token('ANAME', not_attr_row.name );
2046: wf_core.token('FWK_CONTENT', not_attr_row.text_value );
2047: value := wf_core.translate('WFUNSUP_FWK_CONTENT');
2048: else
2049: -- DOCUMENT type retrieve document contents
2042:
2043: --skilaru 28-July-03 fix for bug 3042471
2044: if( instr(not_attr_row.text_value, fwk_region_start) = 1 ) then
2045: wf_core.token('ANAME', not_attr_row.name );
2046: wf_core.token('FWK_CONTENT', not_attr_row.text_value );
2047: value := wf_core.translate('WFUNSUP_FWK_CONTENT');
2048: else
2049: -- DOCUMENT type retrieve document contents
2050: -- Bug 2879507 if doc generation fails, let the error propagate
2043: --skilaru 28-July-03 fix for bug 3042471
2044: if( instr(not_attr_row.text_value, fwk_region_start) = 1 ) then
2045: wf_core.token('ANAME', not_attr_row.name );
2046: wf_core.token('FWK_CONTENT', not_attr_row.text_value );
2047: value := wf_core.translate('WFUNSUP_FWK_CONTENT');
2048: else
2049: -- DOCUMENT type retrieve document contents
2050: -- Bug 2879507 if doc generation fails, let the error propagate
2051: -- to the caller.
2076: -- All others default to text_value
2077: value := not_attr_row.text_value;
2078:
2079: if (disptype = wf_notification.doc_html) then
2080: value := wf_core.substitutespecialchars(value);
2081: end if;
2082: end if;
2083:
2084: -- Substitute all occurrences of SEND tokens with values.
2106: to_char(nid)), 1, 32000);
2107: return(local_text);
2108: exception
2109: when others then
2110: wf_core.context('Wf_Notification','GetText2', to_char(nid), disptype);
2111: raise;
2112: -- return(some_text);
2113: end GetText2;
2114:
2137: return(GetTextInternal(some_text, nid, target, TRUE, TRUE, 'text/plain'));
2138: exception
2139: when others then
2140: -- Return the error message with error stack
2141: l_error := wf_core.translate('ERROR') || wf_core.newline;
2142: if (wf_core.error_name is not null) then
2143: l_error := l_error || wf_core.error_message || wf_core.newline;
2144: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2145: wf_core.error_name || wf_core.newline;
2138: exception
2139: when others then
2140: -- Return the error message with error stack
2141: l_error := wf_core.translate('ERROR') || wf_core.newline;
2142: if (wf_core.error_name is not null) then
2143: l_error := l_error || wf_core.error_message || wf_core.newline;
2144: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2145: wf_core.error_name || wf_core.newline;
2146: else
2139: when others then
2140: -- Return the error message with error stack
2141: l_error := wf_core.translate('ERROR') || wf_core.newline;
2142: if (wf_core.error_name is not null) then
2143: l_error := l_error || wf_core.error_message || wf_core.newline;
2144: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2145: wf_core.error_name || wf_core.newline;
2146: else
2147: l_error := l_error || sqlerrm || wf_core.newline;
2140: -- Return the error message with error stack
2141: l_error := wf_core.translate('ERROR') || wf_core.newline;
2142: if (wf_core.error_name is not null) then
2143: l_error := l_error || wf_core.error_message || wf_core.newline;
2144: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2145: wf_core.error_name || wf_core.newline;
2146: else
2147: l_error := l_error || sqlerrm || wf_core.newline;
2148: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2141: l_error := wf_core.translate('ERROR') || wf_core.newline;
2142: if (wf_core.error_name is not null) then
2143: l_error := l_error || wf_core.error_message || wf_core.newline;
2144: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2145: wf_core.error_name || wf_core.newline;
2146: else
2147: l_error := l_error || sqlerrm || wf_core.newline;
2148: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2149: to_char(sqlcode) || wf_core.newline;
2143: l_error := l_error || wf_core.error_message || wf_core.newline;
2144: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2145: wf_core.error_name || wf_core.newline;
2146: else
2147: l_error := l_error || sqlerrm || wf_core.newline;
2148: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2149: to_char(sqlcode) || wf_core.newline;
2150: end if;
2151: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2144: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2145: wf_core.error_name || wf_core.newline;
2146: else
2147: l_error := l_error || sqlerrm || wf_core.newline;
2148: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2149: to_char(sqlcode) || wf_core.newline;
2150: end if;
2151: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2152: wf_core.error_stack || wf_core.newline;
2145: wf_core.error_name || wf_core.newline;
2146: else
2147: l_error := l_error || sqlerrm || wf_core.newline;
2148: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2149: to_char(sqlcode) || wf_core.newline;
2150: end if;
2151: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2152: wf_core.error_stack || wf_core.newline;
2153: return (substrb(l_error, 1, 1950));
2147: l_error := l_error || sqlerrm || wf_core.newline;
2148: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2149: to_char(sqlcode) || wf_core.newline;
2150: end if;
2151: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2152: wf_core.error_stack || wf_core.newline;
2153: return (substrb(l_error, 1, 1950));
2154: end GetUrlText;
2155:
2148: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2149: to_char(sqlcode) || wf_core.newline;
2150: end if;
2151: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2152: wf_core.error_stack || wf_core.newline;
2153: return (substrb(l_error, 1, 1950));
2154: end GetUrlText;
2155:
2156: --
2180: return(GetTextInternal(some_text, nid, target, FALSE, TRUE));
2181: exception
2182: when others then
2183: -- Return the error message with error stack if GetTextInternal raises
2184: l_error := wf_core.translate('ERROR') || wf_core.newline;
2185: if (wf_core.error_name is not null) then
2186: l_error := l_error || wf_core.error_message || wf_core.newline;
2187: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2188: wf_core.error_name || wf_core.newline;
2181: exception
2182: when others then
2183: -- Return the error message with error stack if GetTextInternal raises
2184: l_error := wf_core.translate('ERROR') || wf_core.newline;
2185: if (wf_core.error_name is not null) then
2186: l_error := l_error || wf_core.error_message || wf_core.newline;
2187: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2188: wf_core.error_name || wf_core.newline;
2189: else
2182: when others then
2183: -- Return the error message with error stack if GetTextInternal raises
2184: l_error := wf_core.translate('ERROR') || wf_core.newline;
2185: if (wf_core.error_name is not null) then
2186: l_error := l_error || wf_core.error_message || wf_core.newline;
2187: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2188: wf_core.error_name || wf_core.newline;
2189: else
2190: l_error := l_error || sqlerrm || wf_core.newline;
2183: -- Return the error message with error stack if GetTextInternal raises
2184: l_error := wf_core.translate('ERROR') || wf_core.newline;
2185: if (wf_core.error_name is not null) then
2186: l_error := l_error || wf_core.error_message || wf_core.newline;
2187: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2188: wf_core.error_name || wf_core.newline;
2189: else
2190: l_error := l_error || sqlerrm || wf_core.newline;
2191: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2184: l_error := wf_core.translate('ERROR') || wf_core.newline;
2185: if (wf_core.error_name is not null) then
2186: l_error := l_error || wf_core.error_message || wf_core.newline;
2187: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2188: wf_core.error_name || wf_core.newline;
2189: else
2190: l_error := l_error || sqlerrm || wf_core.newline;
2191: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2192: to_char(sqlcode) || wf_core.newline;
2186: l_error := l_error || wf_core.error_message || wf_core.newline;
2187: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2188: wf_core.error_name || wf_core.newline;
2189: else
2190: l_error := l_error || sqlerrm || wf_core.newline;
2191: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2192: to_char(sqlcode) || wf_core.newline;
2193: end if;
2194: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2187: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2188: wf_core.error_name || wf_core.newline;
2189: else
2190: l_error := l_error || sqlerrm || wf_core.newline;
2191: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2192: to_char(sqlcode) || wf_core.newline;
2193: end if;
2194: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2195: wf_core.error_stack||wf_core.newline;
2188: wf_core.error_name || wf_core.newline;
2189: else
2190: l_error := l_error || sqlerrm || wf_core.newline;
2191: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2192: to_char(sqlcode) || wf_core.newline;
2193: end if;
2194: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2195: wf_core.error_stack||wf_core.newline;
2196: return (substrb(l_error, 1, 1950));
2190: l_error := l_error || sqlerrm || wf_core.newline;
2191: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2192: to_char(sqlcode) || wf_core.newline;
2193: end if;
2194: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2195: wf_core.error_stack||wf_core.newline;
2196: return (substrb(l_error, 1, 1950));
2197:
2198: end GetShortText;
2191: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2192: to_char(sqlcode) || wf_core.newline;
2193: end if;
2194: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2195: wf_core.error_stack||wf_core.newline;
2196: return (substrb(l_error, 1, 1950));
2197:
2198: end GetShortText;
2199:
2215: format out nocopy varchar2)
2216: is
2217: begin
2218: if ((nid is null) or (aname is null)) then
2219: wf_core.token('NID', to_char(nid));
2220: wf_core.token('ANAME', aname);
2221: wf_core.raise('WFSQL_ARGS');
2222: end if;
2223:
2216: is
2217: begin
2218: if ((nid is null) or (aname is null)) then
2219: wf_core.token('NID', to_char(nid));
2220: wf_core.token('ANAME', aname);
2221: wf_core.raise('WFSQL_ARGS');
2222: end if;
2223:
2224: begin
2217: begin
2218: if ((nid is null) or (aname is null)) then
2219: wf_core.token('NID', to_char(nid));
2220: wf_core.token('ANAME', aname);
2221: wf_core.raise('WFSQL_ARGS');
2222: end if;
2223:
2224: begin
2225: select WMA.TYPE, WMA.SUBTYPE, WMA.FORMAT
2233: and WN.MESSAGE_NAME = WMA.MESSAGE_NAME
2234: and WMA.NAME = WNA.NAME;
2235: exception
2236: when no_data_found then
2237: wf_core.token('NID', to_char(nid));
2238: wf_core.token('ATTRIBUTE', aname);
2239: wf_core.raise('WFNTF_ATTR');
2240: end;
2241:
2234: and WMA.NAME = WNA.NAME;
2235: exception
2236: when no_data_found then
2237: wf_core.token('NID', to_char(nid));
2238: wf_core.token('ATTRIBUTE', aname);
2239: wf_core.raise('WFNTF_ATTR');
2240: end;
2241:
2242: exception
2235: exception
2236: when no_data_found then
2237: wf_core.token('NID', to_char(nid));
2238: wf_core.token('ATTRIBUTE', aname);
2239: wf_core.raise('WFNTF_ATTR');
2240: end;
2241:
2242: exception
2243: when others then
2240: end;
2241:
2242: exception
2243: when others then
2244: wf_core.context('Wf_Notification', 'GetAttrInfo', to_char(nid),
2245: aname);
2246: raise;
2247: end GetAttrInfo;
2248:
2268: params pls_integer;
2269: l_valDate date;
2270: begin
2271: if ((nid is null) or (aname is null)) then
2272: wf_core.token('NID', to_char(nid));
2273: wf_core.token('ANAME', aname);
2274: wf_core.raise('WFSQL_ARGS');
2275: end if;
2276:
2269: l_valDate date;
2270: begin
2271: if ((nid is null) or (aname is null)) then
2272: wf_core.token('NID', to_char(nid));
2273: wf_core.token('ANAME', aname);
2274: wf_core.raise('WFSQL_ARGS');
2275: end if;
2276:
2277: -- Get type and format of attr.
2270: begin
2271: if ((nid is null) or (aname is null)) then
2272: wf_core.token('NID', to_char(nid));
2273: wf_core.token('ANAME', aname);
2274: wf_core.raise('WFSQL_ARGS');
2275: end if;
2276:
2277: -- Get type and format of attr.
2278: -- This is used for translating number/date strings.
2345: when no_data_found then
2346: if (ignore_notfound) then
2347: return(null);
2348: else
2349: wf_core.token('NID', to_char(nid));
2350: wf_core.token('ATTRIBUTE', aname);
2351: wf_core.raise('WFNTF_ATTR');
2352: end if;
2353: end;
2346: if (ignore_notfound) then
2347: return(null);
2348: else
2349: wf_core.token('NID', to_char(nid));
2350: wf_core.token('ATTRIBUTE', aname);
2351: wf_core.raise('WFNTF_ATTR');
2352: end if;
2353: end;
2354:
2347: return(null);
2348: else
2349: wf_core.token('NID', to_char(nid));
2350: wf_core.token('ATTRIBUTE', aname);
2351: wf_core.raise('WFNTF_ATTR');
2352: end if;
2353: end;
2354:
2355: return(lvalue);
2354:
2355: return(lvalue);
2356: exception
2357: when others then
2358: wf_core.context('Wf_Notification', 'GetAttrText', to_char(nid), aname);
2359: raise;
2360: end GetAttrText;
2361:
2362: --
2374: return number is
2375: lvalue number;
2376: begin
2377: if ((nid is null) or (aname is null)) then
2378: wf_core.token('NID', to_char(nid));
2379: wf_core.token('ANAME', aname);
2380: wf_core.raise('WFSQL_ARGS');
2381: end if;
2382:
2375: lvalue number;
2376: begin
2377: if ((nid is null) or (aname is null)) then
2378: wf_core.token('NID', to_char(nid));
2379: wf_core.token('ANAME', aname);
2380: wf_core.raise('WFSQL_ARGS');
2381: end if;
2382:
2383: begin
2376: begin
2377: if ((nid is null) or (aname is null)) then
2378: wf_core.token('NID', to_char(nid));
2379: wf_core.token('ANAME', aname);
2380: wf_core.raise('WFSQL_ARGS');
2381: end if;
2382:
2383: begin
2384: select WNA.NUMBER_VALUE
2386: from WF_NOTIFICATION_ATTRIBUTES WNA
2387: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2388: exception
2389: when no_data_found then
2390: wf_core.token('NID', to_char(nid));
2391: wf_core.token('ATTRIBUTE', aname);
2392: wf_core.raise('WFNTF_ATTR');
2393: end;
2394:
2387: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2388: exception
2389: when no_data_found then
2390: wf_core.token('NID', to_char(nid));
2391: wf_core.token('ATTRIBUTE', aname);
2392: wf_core.raise('WFNTF_ATTR');
2393: end;
2394:
2395: return(lvalue);
2388: exception
2389: when no_data_found then
2390: wf_core.token('NID', to_char(nid));
2391: wf_core.token('ATTRIBUTE', aname);
2392: wf_core.raise('WFNTF_ATTR');
2393: end;
2394:
2395: return(lvalue);
2396: exception
2394:
2395: return(lvalue);
2396: exception
2397: when others then
2398: wf_core.context('Wf_Notification', 'GetAttrNumber', to_char(nid), aname);
2399: raise;
2400: end GetAttrNumber;
2401:
2402: --
2414: return date is
2415: lvalue date;
2416: begin
2417: if ((nid is null) or (aname is null)) then
2418: wf_core.token('NID', to_char(nid));
2419: wf_core.token('ANAME', aname);
2420: wf_core.raise('WFSQL_ARGS');
2421: end if;
2422:
2415: lvalue date;
2416: begin
2417: if ((nid is null) or (aname is null)) then
2418: wf_core.token('NID', to_char(nid));
2419: wf_core.token('ANAME', aname);
2420: wf_core.raise('WFSQL_ARGS');
2421: end if;
2422:
2423: begin
2416: begin
2417: if ((nid is null) or (aname is null)) then
2418: wf_core.token('NID', to_char(nid));
2419: wf_core.token('ANAME', aname);
2420: wf_core.raise('WFSQL_ARGS');
2421: end if;
2422:
2423: begin
2424: select WNA.DATE_VALUE
2426: from WF_NOTIFICATION_ATTRIBUTES WNA
2427: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2428: exception
2429: when no_data_found then
2430: wf_core.token('NID', to_char(nid));
2431: wf_core.token('ATTRIBUTE', aname);
2432: wf_core.raise('WFNTF_ATTR');
2433: end;
2434:
2427: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2428: exception
2429: when no_data_found then
2430: wf_core.token('NID', to_char(nid));
2431: wf_core.token('ATTRIBUTE', aname);
2432: wf_core.raise('WFNTF_ATTR');
2433: end;
2434:
2435: return(lvalue);
2428: exception
2429: when no_data_found then
2430: wf_core.token('NID', to_char(nid));
2431: wf_core.token('ATTRIBUTE', aname);
2432: wf_core.raise('WFNTF_ATTR');
2433: end;
2434:
2435: return(lvalue);
2436: exception
2434:
2435: return(lvalue);
2436: exception
2437: when others then
2438: wf_core.context('Wf_Notification', 'GetAttrDate', to_char(nid), aname);
2439: raise;
2440: end GetAttrDate;
2441:
2442: --
2474: return (document);
2475:
2476: exception
2477: when others then
2478: wf_core.context('Wf_Notification', 'GetAttrDoc', to_char(nid), aname,
2479: disptype);
2480: raise;
2481: end GetAttrDoc;
2482:
2507: -- Check args
2508: if ((nid is null) or (aname is null) or
2509: (disptype not in (wf_notification.doc_text,
2510: wf_notification.doc_html))) then
2511: wf_core.token('NID', to_char(nid));
2512: wf_core.token('ANAME', aname);
2513: wf_core.token('DISPTYPE', disptype);
2514: wf_core.raise('WFSQL_ARGS');
2515: end if;
2508: if ((nid is null) or (aname is null) or
2509: (disptype not in (wf_notification.doc_text,
2510: wf_notification.doc_html))) then
2511: wf_core.token('NID', to_char(nid));
2512: wf_core.token('ANAME', aname);
2513: wf_core.token('DISPTYPE', disptype);
2514: wf_core.raise('WFSQL_ARGS');
2515: end if;
2516:
2509: (disptype not in (wf_notification.doc_text,
2510: wf_notification.doc_html))) then
2511: wf_core.token('NID', to_char(nid));
2512: wf_core.token('ANAME', aname);
2513: wf_core.token('DISPTYPE', disptype);
2514: wf_core.raise('WFSQL_ARGS');
2515: end if;
2516:
2517: -- Retrieve key string
2510: wf_notification.doc_html))) then
2511: wf_core.token('NID', to_char(nid));
2512: wf_core.token('ANAME', aname);
2513: wf_core.token('DISPTYPE', disptype);
2514: wf_core.raise('WFSQL_ARGS');
2515: end if;
2516:
2517: -- Retrieve key string
2518: key := GetAttrText(nid, aname);
2586: end if;
2587:
2588: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
2589: -- when an exception occurs while executing the PLSQL Document APIs
2590: WF_CORE.Token('DOC_TYPE', 'PLSQL');
2591: WF_CORE.Token('FUNC_NAME', procname);
2592: WF_CORE.Token('SQLCODE', to_char(sqlcode));
2593: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
2594: WF_CORE.Raise('WFNTF_GEN_DOC');
2587:
2588: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
2589: -- when an exception occurs while executing the PLSQL Document APIs
2590: WF_CORE.Token('DOC_TYPE', 'PLSQL');
2591: WF_CORE.Token('FUNC_NAME', procname);
2592: WF_CORE.Token('SQLCODE', to_char(sqlcode));
2593: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
2594: WF_CORE.Raise('WFNTF_GEN_DOC');
2595: end;
2588: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
2589: -- when an exception occurs while executing the PLSQL Document APIs
2590: WF_CORE.Token('DOC_TYPE', 'PLSQL');
2591: WF_CORE.Token('FUNC_NAME', procname);
2592: WF_CORE.Token('SQLCODE', to_char(sqlcode));
2593: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
2594: WF_CORE.Raise('WFNTF_GEN_DOC');
2595: end;
2596:
2589: -- when an exception occurs while executing the PLSQL Document APIs
2590: WF_CORE.Token('DOC_TYPE', 'PLSQL');
2591: WF_CORE.Token('FUNC_NAME', procname);
2592: WF_CORE.Token('SQLCODE', to_char(sqlcode));
2593: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
2594: WF_CORE.Raise('WFNTF_GEN_DOC');
2595: end;
2596:
2597: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
2590: WF_CORE.Token('DOC_TYPE', 'PLSQL');
2591: WF_CORE.Token('FUNC_NAME', procname);
2592: WF_CORE.Token('SQLCODE', to_char(sqlcode));
2593: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
2594: WF_CORE.Raise('WFNTF_GEN_DOC');
2595: end;
2596:
2597: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
2598: wf_log_pkg.string2(wf_log_pkg.level_statement,
2661: end if;
2662: document := null;
2663: exception
2664: when others then
2665: wf_core.context('wf_notification', 'GetAttrDoc2', to_char(nid), aname, disptype);
2666: raise;
2667: end GetAttrDoc2;
2668:
2669: -- bug 2581129
2705:
2706: exception
2707: when others then
2708: -- Return the error message with error stack
2709: l_error := wf_core.translate('ERROR') || wf_core.newline;
2710: if (wf_core.error_name is not null) then
2711: l_error := l_error || wf_core.error_message || wf_core.newline;
2712: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2713: wf_core.error_name || wf_core.newline;
2706: exception
2707: when others then
2708: -- Return the error message with error stack
2709: l_error := wf_core.translate('ERROR') || wf_core.newline;
2710: if (wf_core.error_name is not null) then
2711: l_error := l_error || wf_core.error_message || wf_core.newline;
2712: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2713: wf_core.error_name || wf_core.newline;
2714: else
2707: when others then
2708: -- Return the error message with error stack
2709: l_error := wf_core.translate('ERROR') || wf_core.newline;
2710: if (wf_core.error_name is not null) then
2711: l_error := l_error || wf_core.error_message || wf_core.newline;
2712: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2713: wf_core.error_name || wf_core.newline;
2714: else
2715: l_error := l_error || sqlerrm || wf_core.newline;
2708: -- Return the error message with error stack
2709: l_error := wf_core.translate('ERROR') || wf_core.newline;
2710: if (wf_core.error_name is not null) then
2711: l_error := l_error || wf_core.error_message || wf_core.newline;
2712: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2713: wf_core.error_name || wf_core.newline;
2714: else
2715: l_error := l_error || sqlerrm || wf_core.newline;
2716: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2709: l_error := wf_core.translate('ERROR') || wf_core.newline;
2710: if (wf_core.error_name is not null) then
2711: l_error := l_error || wf_core.error_message || wf_core.newline;
2712: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2713: wf_core.error_name || wf_core.newline;
2714: else
2715: l_error := l_error || sqlerrm || wf_core.newline;
2716: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2717: to_char(sqlcode) || wf_core.newline;
2711: l_error := l_error || wf_core.error_message || wf_core.newline;
2712: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2713: wf_core.error_name || wf_core.newline;
2714: else
2715: l_error := l_error || sqlerrm || wf_core.newline;
2716: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2717: to_char(sqlcode) || wf_core.newline;
2718: end if;
2719: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2712: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2713: wf_core.error_name || wf_core.newline;
2714: else
2715: l_error := l_error || sqlerrm || wf_core.newline;
2716: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2717: to_char(sqlcode) || wf_core.newline;
2718: end if;
2719: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2720: wf_core.error_stack || wf_core.newline;
2713: wf_core.error_name || wf_core.newline;
2714: else
2715: l_error := l_error || sqlerrm || wf_core.newline;
2716: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2717: to_char(sqlcode) || wf_core.newline;
2718: end if;
2719: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2720: wf_core.error_stack || wf_core.newline;
2721: return (substrb(l_error, 1, 240));
2715: l_error := l_error || sqlerrm || wf_core.newline;
2716: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2717: to_char(sqlcode) || wf_core.newline;
2718: end if;
2719: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2720: wf_core.error_stack || wf_core.newline;
2721: return (substrb(l_error, 1, 240));
2722: end GetSubject;
2723:
2716: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2717: to_char(sqlcode) || wf_core.newline;
2718: end if;
2719: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2720: wf_core.error_stack || wf_core.newline;
2721: return (substrb(l_error, 1, 240));
2722: end GetSubject;
2723:
2724: -- GetSubject
2828: l_cust_hist := Wf_Notification.GetAttrText(nid, '#HISTORY');
2829: exception
2830: when others then
2831: l_cust_hist := '';
2832: Wf_Core.Clear;
2833: end;
2834: -- Validate if l_cust_hist has a valid PLSQL doc api attached to it. If it ever has JSP: we
2835: -- would not be here.
2836: if (l_cust_hist is not null and upper(trim(substr(l_cust_hist, 1, 5))) = 'PLSQL') then
2843: -- So, append Action History
2844: if (local_body is not null and instrb(local_body, 'WF_NOTIFICATION(HISTORY)') = 0 and
2845: instrb(local_body, '&#HISTORY') = 0) then
2846:
2847: local_body := local_body || Wf_Core.newline || l_action_hist;
2848: end if;
2849:
2850: if (local_html_body is not null and instrb(local_html_body, 'WF_NOTIFICATION(HISTORY)') = 0 and
2851: instrb(local_html_body, '&#HISTORY') = 0) then
2864: return(local_body);
2865: else
2866: if (local_html_body is null) then
2867: --use the plain text body but fake it as html by adding
2868: local_body := substrb(replace(local_body, wf_core.newline,
2869: '
'||wf_core.newline),1, 32000);
2870:
2871: -- get the attribute values
2872: local_body := GetText(local_body, nid, disptype);
2865: else
2866: if (local_html_body is null) then
2867: --use the plain text body but fake it as html by adding
2868: local_body := substrb(replace(local_body, wf_core.newline,
2869: '
'||wf_core.newline),1, 32000);
2870:
2871: -- get the attribute values
2872: local_body := GetText(local_body, nid, disptype);
2873:
2889: instr(upper(local_html_body),'
2890: end if;
2891:
2892: if (l_html_hist) then
2893: local_html_body := local_html_body || Wf_Core.newline || l_action_hist;
2894: end if;
2895:
2896: local_html_body := GetText(local_html_body, nid, disptype);
2897:
2903: end if;
2904:
2905: exception
2906: when others then
2907: wf_core.context('Wf_Notification', 'GetBody', to_char(nid), disptype);
2908: raise;
2909: end GetBody;
2910:
2911: --
2944: exception
2945: when others then
2946: -- If there is a failure in GetShortText, the error message is returned
2947: -- Return the error message with error stack
2948: l_error := wf_core.translate('ERROR') || wf_core.newline;
2949: if (wf_core.error_name is not null) then
2950: l_error := l_error || wf_core.error_message || wf_core.newline;
2951: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2952: wf_core.error_name || wf_core.newline;
2945: when others then
2946: -- If there is a failure in GetShortText, the error message is returned
2947: -- Return the error message with error stack
2948: l_error := wf_core.translate('ERROR') || wf_core.newline;
2949: if (wf_core.error_name is not null) then
2950: l_error := l_error || wf_core.error_message || wf_core.newline;
2951: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2952: wf_core.error_name || wf_core.newline;
2953: else
2946: -- If there is a failure in GetShortText, the error message is returned
2947: -- Return the error message with error stack
2948: l_error := wf_core.translate('ERROR') || wf_core.newline;
2949: if (wf_core.error_name is not null) then
2950: l_error := l_error || wf_core.error_message || wf_core.newline;
2951: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2952: wf_core.error_name || wf_core.newline;
2953: else
2954: l_error := l_error || sqlerrm || wf_core.newline;
2947: -- Return the error message with error stack
2948: l_error := wf_core.translate('ERROR') || wf_core.newline;
2949: if (wf_core.error_name is not null) then
2950: l_error := l_error || wf_core.error_message || wf_core.newline;
2951: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2952: wf_core.error_name || wf_core.newline;
2953: else
2954: l_error := l_error || sqlerrm || wf_core.newline;
2955: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2948: l_error := wf_core.translate('ERROR') || wf_core.newline;
2949: if (wf_core.error_name is not null) then
2950: l_error := l_error || wf_core.error_message || wf_core.newline;
2951: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2952: wf_core.error_name || wf_core.newline;
2953: else
2954: l_error := l_error || sqlerrm || wf_core.newline;
2955: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2956: to_char(sqlcode) || wf_core.newline;
2950: l_error := l_error || wf_core.error_message || wf_core.newline;
2951: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2952: wf_core.error_name || wf_core.newline;
2953: else
2954: l_error := l_error || sqlerrm || wf_core.newline;
2955: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2956: to_char(sqlcode) || wf_core.newline;
2957: end if;
2958: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2951: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2952: wf_core.error_name || wf_core.newline;
2953: else
2954: l_error := l_error || sqlerrm || wf_core.newline;
2955: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2956: to_char(sqlcode) || wf_core.newline;
2957: end if;
2958: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2959: wf_core.error_stack || wf_core.newline;
2952: wf_core.error_name || wf_core.newline;
2953: else
2954: l_error := l_error || sqlerrm || wf_core.newline;
2955: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2956: to_char(sqlcode) || wf_core.newline;
2957: end if;
2958: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2959: wf_core.error_stack || wf_core.newline;
2960: return (substrb(l_error, 1, 1950));
2954: l_error := l_error || sqlerrm || wf_core.newline;
2955: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2956: to_char(sqlcode) || wf_core.newline;
2957: end if;
2958: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2959: wf_core.error_stack || wf_core.newline;
2960: return (substrb(l_error, 1, 1950));
2961: end GetShortBody;
2962:
2955: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2956: to_char(sqlcode) || wf_core.newline;
2957: end if;
2958: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2959: wf_core.error_stack || wf_core.newline;
2960: return (substrb(l_error, 1, 1950));
2961: end GetShortBody;
2962:
2963: --
3001: from WF_NOTIFICATIONS N
3002: where N.NOTIFICATION_ID = nid;
3003: exception
3004: when no_data_found then
3005: wf_core.token('NID', to_char(nid));
3006: wf_core.raise('WFNTF_NID');
3007: end;
3008:
3009: exception
3002: where N.NOTIFICATION_ID = nid;
3003: exception
3004: when no_data_found then
3005: wf_core.token('NID', to_char(nid));
3006: wf_core.raise('WFNTF_NID');
3007: end;
3008:
3009: exception
3010: when others then
3007: end;
3008:
3009: exception
3010: when others then
3011: wf_core.context('Wf_Notification', 'GetInfo', to_char(nid));
3012: raise;
3013: end GetInfo;
3014:
3015: --
3027: is
3028: respbuf varchar2(240);
3029: begin
3030: if (nid is null) then
3031: wf_core.token('NID', to_char(nid));
3032: wf_core.raise('WFSQL_ARGS');
3033: end if;
3034:
3035: -- Get responder
3028: respbuf varchar2(240);
3029: begin
3030: if (nid is null) then
3031: wf_core.token('NID', to_char(nid));
3032: wf_core.raise('WFSQL_ARGS');
3033: end if;
3034:
3035: -- Get responder
3036: begin
3039: from WF_NOTIFICATIONS WN
3040: where WN.NOTIFICATION_ID = nid;
3041: exception
3042: when no_data_found then
3043: wf_core.token('NID', to_char(nid));
3044: wf_core.raise('WFNTF_NID');
3045: end;
3046:
3047: return(respbuf);
3040: where WN.NOTIFICATION_ID = nid;
3041: exception
3042: when no_data_found then
3043: wf_core.token('NID', to_char(nid));
3044: wf_core.raise('WFNTF_NID');
3045: end;
3046:
3047: return(respbuf);
3048: exception
3046:
3047: return(respbuf);
3048: exception
3049: when others then
3050: Wf_Core.Context('Wf_Notification', 'Responder', to_char(nid));
3051: raise;
3052: end Responder;
3053:
3054: -- AccessCheck
3141: in out dvalue;
3142: exception
3143: when others then
3144: -- Ignore cases where no attribute is defined
3145: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3146: wf_core.clear;
3147: else
3148: raise;
3149: end if;
3142: exception
3143: when others then
3144: -- Ignore cases where no attribute is defined
3145: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3146: wf_core.clear;
3147: else
3148: raise;
3149: end if;
3150: end;
3158: return mailpref;
3159:
3160: exception
3161: when others then
3162: Wf_Core.Context('Wf_Notification', 'GetMailPreference', role);
3163: raise;
3164: end GetMailPreference;
3165:
3166: --
3226:
3227: o_recip := recip; -- set original recipient
3228: exception
3229: when no_data_found then
3230: wf_core.token('NID', to_char(nid));
3231: wf_core.raise('WFNTF_NID');
3232: end;
3233:
3234: /* implement the above loop recursively */
3227: o_recip := recip; -- set original recipient
3228: exception
3229: when no_data_found then
3230: wf_core.token('NID', to_char(nid));
3231: wf_core.raise('WFNTF_NID');
3232: end;
3233:
3234: /* implement the above loop recursively */
3235: if (cnt > wf_notification.max_forward) then
3233:
3234: /* implement the above loop recursively */
3235: if (cnt > wf_notification.max_forward) then
3236: -- it means max_forward must have been exceeded. Treat as a loop error.
3237: wf_core.token('NID', to_char(nid));
3238: wf_core.raise('WFNTF_ROUTE_LOOP');
3239: end if;
3240:
3241: -- Select one routing rule to execute
3234: /* implement the above loop recursively */
3235: if (cnt > wf_notification.max_forward) then
3236: -- it means max_forward must have been exceeded. Treat as a loop error.
3237: wf_core.token('NID', to_char(nid));
3238: wf_core.raise('WFNTF_ROUTE_LOOP');
3239: end if;
3240:
3241: -- Select one routing rule to execute
3242: open rulecurs;
3250:
3251: -- If rule has a comment append it to the buffer
3252: -- if (rulerec.rule_comment is not null) then
3253: -- if (newcomment is not null) then
3254: -- newcomment := substrb(newcomment||wf_core.newline, 1, 4000);
3255: -- end if;
3256: -- newcomment := substrb(newcomment||recip||': '||rulerec.rule_comment,
3257: -- 1, 4000);
3258: -- end if;
3266: l_hide_reassign := Wf_Notification.GetAttrText(nid, '#HIDE_REASSIGN');
3267: exception
3268: when others then
3269: -- Clear the error stack since we ignore the error
3270: Wf_Core.Clear;
3271: end;
3272: -- Bug 7358225: If the recipient role of the routing rule is inactive then update the user_comment
3273: -- for the notification and return without executing the routing rule
3274: if LENGTH(rulerec.action_argument) > 0 then
3362: when inactive_role then
3363: begin
3364: update WF_NOTIFICATIONS set
3365: USER_COMMENT = substr(USER_COMMENT||decode(nvl(USER_COMMENT,'T'),
3366: 'T', null, wf_core.newline)||wf_core.translate('INACTIVE_ROLE'), 1, 4000)
3367: where NOTIFICATION_ID = nid;
3368: exception
3369: when others then
3370: wf_core.context('Wf_Notification', 'Route (update comment)',to_char(nid));
3366: 'T', null, wf_core.newline)||wf_core.translate('INACTIVE_ROLE'), 1, 4000)
3367: where NOTIFICATION_ID = nid;
3368: exception
3369: when others then
3370: wf_core.context('Wf_Notification', 'Route (update comment)',to_char(nid));
3371: raise;
3372: end;
3373: when badfwd then
3374: Wf_Core.Get_Error(dummy, errmsg, dummy);
3370: wf_core.context('Wf_Notification', 'Route (update comment)',to_char(nid));
3371: raise;
3372: end;
3373: when badfwd then
3374: Wf_Core.Get_Error(dummy, errmsg, dummy);
3375: Wf_Core.Clear;
3376: if (newcomment is not null) then
3377: newcomment := newcomment||wf_core.newline;
3378: end if;
3371: raise;
3372: end;
3373: when badfwd then
3374: Wf_Core.Get_Error(dummy, errmsg, dummy);
3375: Wf_Core.Clear;
3376: if (newcomment is not null) then
3377: newcomment := newcomment||wf_core.newline;
3378: end if;
3379: if recip in (l_wf_owner, l_from_role) then
3373: when badfwd then
3374: Wf_Core.Get_Error(dummy, errmsg, dummy);
3375: Wf_Core.Clear;
3376: if (newcomment is not null) then
3377: newcomment := newcomment||wf_core.newline;
3378: end if;
3379: if recip in (l_wf_owner, l_from_role) then
3380: Wf_Notification.SetComments(nid, o_recip, recip, rulerec.action,
3381: 'RULE', Wf_Core.Translate('OWNER_ROUTE_FAIL'));
3377: newcomment := newcomment||wf_core.newline;
3378: end if;
3379: if recip in (l_wf_owner, l_from_role) then
3380: Wf_Notification.SetComments(nid, o_recip, recip, rulerec.action,
3381: 'RULE', Wf_Core.Translate('OWNER_ROUTE_FAIL'));
3382: else
3383: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3384: newcomment := substrb(newcomment||
3385: Wf_Core.Translate('AUTOROUTE_FAIL')||
3379: if recip in (l_wf_owner, l_from_role) then
3380: Wf_Notification.SetComments(nid, o_recip, recip, rulerec.action,
3381: 'RULE', Wf_Core.Translate('OWNER_ROUTE_FAIL'));
3382: else
3383: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3384: newcomment := substrb(newcomment||
3385: Wf_Core.Translate('AUTOROUTE_FAIL')||
3386: wf_core.newline||errmsg, 1, 4000);
3387: end if;
3381: 'RULE', Wf_Core.Translate('OWNER_ROUTE_FAIL'));
3382: else
3383: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3384: newcomment := substrb(newcomment||
3385: Wf_Core.Translate('AUTOROUTE_FAIL')||
3386: wf_core.newline||errmsg, 1, 4000);
3387: end if;
3388: begin
3389: -- append newcomment to the existing comment.
3382: else
3383: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3384: newcomment := substrb(newcomment||
3385: Wf_Core.Translate('AUTOROUTE_FAIL')||
3386: wf_core.newline||errmsg, 1, 4000);
3387: end if;
3388: begin
3389: -- append newcomment to the existing comment.
3390: -- need to add a newline character if user_comment is not null.
3390: -- need to add a newline character if user_comment is not null.
3391: update WF_NOTIFICATIONS set
3392: USER_COMMENT = substr(USER_COMMENT||
3393: decode(nvl(USER_COMMENT,'T'),
3394: 'T', null, wf_core.newline)||
3395: Route.newcomment, 1, 4000)
3396: where NOTIFICATION_ID = nid;
3397: exception
3398: when OTHERS then
3395: Route.newcomment, 1, 4000)
3396: where NOTIFICATION_ID = nid;
3397: exception
3398: when OTHERS then
3399: wf_core.context('Wf_Notification', 'Route (update comment)',
3400: to_char(nid));
3401: raise;
3402: end;
3403:
3404: when others then
3405: if (rulecurs%isopen) then
3406: close rulecurs;
3407: end if;
3408: wf_core.context('Wf_Notification', 'Route', to_char(nid));
3409: raise;
3410: end Route;
3411:
3412: --
3452: return true;
3453:
3454: exception
3455: when others then
3456: Wf_Core.Context('Wf_Notification', 'First_Execution', p_context);
3457: raise;
3458: end First_Execution;
3459:
3460: -- Denormalize_Columns_Internal(PRIVATE)
3603: where notification_id = p_nid;
3604:
3605: exception
3606: when OTHERS then
3607: wf_core.context('Wf_Notification', 'denormalize_columns_internal',
3608: p_item_key, p_user_key, to_char(p_nid));
3609: raise;
3610: end Denormalize_columns_internal;
3611:
3648:
3649: exception
3650: when others then
3651: -- Retrieve error message into errbuf
3652: wf_core.get_error(errname, errmsg, errstack);
3653: if (errmsg is not null) then
3654: errbuf := errmsg;
3655: else
3656: errbuf := sqlerrm;
3757: sendsingle.msg_name,
3758: sendsingle.role,
3759: sendsingle.role,
3760: 'OPEN',
3761: wf_core.random,
3762: decode(sendsingle.mailpref, 'QUERY', '',
3763: 'SUMMARY', '',
3764: 'SUMHTML', '',
3765: 'DISABLED', 'FAILED',
3837:
3838: exception
3839: when others then
3840: -- Ignore cases where no attribute is defined
3841: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3842: wf_core.clear;
3843: else
3844: -- Bug 2580807 call with original signature for backward
3845: -- compatibility
3838: exception
3839: when others then
3840: -- Ignore cases where no attribute is defined
3841: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3842: wf_core.clear;
3843: else
3844: -- Bug 2580807 call with original signature for backward
3845: -- compatibility
3846: -- ### Review Note 2 - callback is from table
3861: in out attr_nvalue,
3862: in out attr_dvalue;
3863: exception
3864: when others then
3865: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3866: wf_core.clear;
3867: else
3868: raise;
3869: end if;
3862: in out attr_dvalue;
3863: exception
3864: when others then
3865: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3866: wf_core.clear;
3867: else
3868: raise;
3869: end if;
3870: end;
3905: begin
3906: l_send_comment := Wf_Notification.GetAttrText(nid, '#SUBMIT_COMMENTS');
3907: exception
3908: when others then
3909: if(Wf_Core.Error_Name = 'WFNTF_ATTR') then
3910: Wf_Core.Clear();
3911: l_send_comment := '';
3912: else
3913: raise;
3906: l_send_comment := Wf_Notification.GetAttrText(nid, '#SUBMIT_COMMENTS');
3907: exception
3908: when others then
3909: if(Wf_Core.Error_Name = 'WFNTF_ATTR') then
3910: Wf_Core.Clear();
3911: l_send_comment := '';
3912: else
3913: raise;
3914: end if;
3920: begin
3921: l_from_role := Wf_Notification.GetAttrText(nid, '#FROM_ROLE');
3922: exception
3923: when OTHERS then
3924: wf_core.clear;
3925: -- Check if the notification is sent under a valid Fwk Session
3926: l_from_role := Wfa_Sec.GetUser();
3927: end;
3928:
4027: return (nid);
4028:
4029: exception
4030: when others then
4031: wf_core.context('Wf_Notification', 'SendSingle', role, msg_type,
4032: msg_name, due_date, callback);
4033: raise;
4034: end SendSingle;
4035:
4072: prev_nid pls_integer;
4073: l_proc_name varchar2(100) := 'wf.plsql.wf_notification.Send';
4074: begin
4075: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4076: wf_core.token('ROLE', role);
4077: wf_core.token('TYPE', msg_type);
4078: wf_core.token('NAME', msg_name);
4079: wf_core.raise('WFSQL_ARGS');
4080: end if;
4073: l_proc_name varchar2(100) := 'wf.plsql.wf_notification.Send';
4074: begin
4075: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4076: wf_core.token('ROLE', role);
4077: wf_core.token('TYPE', msg_type);
4078: wf_core.token('NAME', msg_name);
4079: wf_core.raise('WFSQL_ARGS');
4080: end if;
4081:
4074: begin
4075: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4076: wf_core.token('ROLE', role);
4077: wf_core.token('TYPE', msg_type);
4078: wf_core.token('NAME', msg_name);
4079: wf_core.raise('WFSQL_ARGS');
4080: end if;
4081:
4082: -- Check message is valid
4075: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4076: wf_core.token('ROLE', role);
4077: wf_core.token('TYPE', msg_type);
4078: wf_core.token('NAME', msg_name);
4079: wf_core.raise('WFSQL_ARGS');
4080: end if;
4081:
4082: -- Check message is valid
4083: begin
4087: where M.TYPE = msg_type
4088: and M.NAME = msg_name);
4089: exception
4090: when no_data_found then
4091: wf_core.token('TYPE', msg_type);
4092: wf_core.token('NAME', msg_name);
4093: wf_core.raise('WFNTF_MESSAGE');
4094: end;
4095:
4088: and M.NAME = msg_name);
4089: exception
4090: when no_data_found then
4091: wf_core.token('TYPE', msg_type);
4092: wf_core.token('NAME', msg_name);
4093: wf_core.raise('WFNTF_MESSAGE');
4094: end;
4095:
4096: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
4089: exception
4090: when no_data_found then
4091: wf_core.token('TYPE', msg_type);
4092: wf_core.token('NAME', msg_name);
4093: wf_core.raise('WFNTF_MESSAGE');
4094: end;
4095:
4096: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
4097:
4096: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
4097:
4098: -- if ORIG_SYSTEM is null, there is no data found for this role
4099: if (rorig_system is null) then
4100: wf_core.token('ROLE', role);
4101: wf_core.raise('WFNTF_ROLE');
4102: end if;
4103:
4104: -- Call SendSingle to complete notification,
4097:
4098: -- if ORIG_SYSTEM is null, there is no data found for this role
4099: if (rorig_system is null) then
4100: wf_core.token('ROLE', role);
4101: wf_core.raise('WFNTF_ROLE');
4102: end if;
4103:
4104: -- Call SendSingle to complete notification,
4105: -- using group_id = null to create group of one.
4148:
4149: return (nid);
4150: exception
4151: when others then
4152: wf_core.context('Wf_Notification', 'Send', role, msg_type,
4153: msg_name, due_date, callback);
4154: raise;
4155: end Send;
4156:
4194: and WUR.ROLE_NAME = role;
4195:
4196: begin
4197: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4198: wf_core.token('ROLE', role);
4199: wf_core.token('TYPE', msg_type);
4200: wf_core.token('NAME', msg_name);
4201: wf_core.raise('WFSQL_ARGS');
4202: end if;
4195:
4196: begin
4197: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4198: wf_core.token('ROLE', role);
4199: wf_core.token('TYPE', msg_type);
4200: wf_core.token('NAME', msg_name);
4201: wf_core.raise('WFSQL_ARGS');
4202: end if;
4203:
4196: begin
4197: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4198: wf_core.token('ROLE', role);
4199: wf_core.token('TYPE', msg_type);
4200: wf_core.token('NAME', msg_name);
4201: wf_core.raise('WFSQL_ARGS');
4202: end if;
4203:
4204: -- Check message is valid
4197: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4198: wf_core.token('ROLE', role);
4199: wf_core.token('TYPE', msg_type);
4200: wf_core.token('NAME', msg_name);
4201: wf_core.raise('WFSQL_ARGS');
4202: end if;
4203:
4204: -- Check message is valid
4205: begin
4209: where M.TYPE = msg_type
4210: and M.NAME = msg_name);
4211: exception
4212: when no_data_found then
4213: wf_core.token('TYPE', msg_type);
4214: wf_core.token('NAME', msg_name);
4215: wf_core.raise('WFNTF_MESSAGE');
4216: end;
4217:
4210: and M.NAME = msg_name);
4211: exception
4212: when no_data_found then
4213: wf_core.token('TYPE', msg_type);
4214: wf_core.token('NAME', msg_name);
4215: wf_core.raise('WFNTF_MESSAGE');
4216: end;
4217:
4218: -- Get the orig system ids for the role.
4211: exception
4212: when no_data_found then
4213: wf_core.token('TYPE', msg_type);
4214: wf_core.token('NAME', msg_name);
4215: wf_core.raise('WFNTF_MESSAGE');
4216: end;
4217:
4218: -- Get the orig system ids for the role.
4219: -- Do this instead of using role_name directly so that indexes on
4221: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
4222:
4223: -- if ORIG_SYSTEM is null, there is no data found for this role
4224: if (rorig_system is null) then
4225: wf_core.token('ROLE', role);
4226: wf_core.raise('WFNTF_ROLE');
4227: end if;
4228:
4229: -- Loop through users of role, sending notification to each one.
4222:
4223: -- if ORIG_SYSTEM is null, there is no data found for this role
4224: if (rorig_system is null) then
4225: wf_core.token('ROLE', role);
4226: wf_core.raise('WFNTF_ROLE');
4227: end if;
4228:
4229: -- Loop through users of role, sending notification to each one.
4230: gid := '';
4244:
4245: -- Raise error if no users found for role.
4246: -- Most probable cause is role argument is invalid.
4247: if (gid is null) then
4248: wf_core.token('ROLE', role);
4249: wf_core.raise('WFNTF_ROLE');
4250: end if;
4251:
4252: return (gid);
4245: -- Raise error if no users found for role.
4246: -- Most probable cause is role argument is invalid.
4247: if (gid is null) then
4248: wf_core.token('ROLE', role);
4249: wf_core.raise('WFNTF_ROLE');
4250: end if;
4251:
4252: return (gid);
4253: exception
4251:
4252: return (gid);
4253: exception
4254: when others then
4255: wf_core.context('Wf_Notification', 'SendGroup', role, msg_type,
4256: msg_name, due_date, callback);
4257: raise;
4258: end SendGroup;
4259:
4326: l_msgName varchar2(30);
4327:
4328: begin
4329: if ((nid is null) or (new_role is null)) then
4330: wf_core.token('NID', to_char(nid));
4331: wf_core.token('NEW_ROLE', new_role);
4332: wf_core.raise('WFSQL_ARGS');
4333: end if;
4334:
4327:
4328: begin
4329: if ((nid is null) or (new_role is null)) then
4330: wf_core.token('NID', to_char(nid));
4331: wf_core.token('NEW_ROLE', new_role);
4332: wf_core.raise('WFSQL_ARGS');
4333: end if;
4334:
4335: -- Check the notification exists and is open
4328: begin
4329: if ((nid is null) or (new_role is null)) then
4330: wf_core.token('NID', to_char(nid));
4331: wf_core.token('NEW_ROLE', new_role);
4332: wf_core.raise('WFSQL_ARGS');
4333: end if;
4334:
4335: -- Check the notification exists and is open
4336: begin
4347: where WN.NOTIFICATION_ID = nid
4348: for update nowait;
4349: exception
4350: when no_data_found then
4351: wf_core.token('NID', to_char(nid));
4352: wf_core.raise('WFNTF_NID');
4353: end;
4354: if (status <> 'OPEN') then
4355: wf_core.token('NID', to_char(nid));
4348: for update nowait;
4349: exception
4350: when no_data_found then
4351: wf_core.token('NID', to_char(nid));
4352: wf_core.raise('WFNTF_NID');
4353: end;
4354: if (status <> 'OPEN') then
4355: wf_core.token('NID', to_char(nid));
4356: wf_core.raise('WFNTF_NID_OPEN');
4351: wf_core.token('NID', to_char(nid));
4352: wf_core.raise('WFNTF_NID');
4353: end;
4354: if (status <> 'OPEN') then
4355: wf_core.token('NID', to_char(nid));
4356: wf_core.raise('WFNTF_NID_OPEN');
4357: end if;
4358:
4359: -- If we are in a different Fwk session, need to clear Workflow PLSQL state
4352: wf_core.raise('WFNTF_NID');
4353: end;
4354: if (status <> 'OPEN') then
4355: wf_core.token('NID', to_char(nid));
4356: wf_core.raise('WFNTF_NID_OPEN');
4357: end if;
4358:
4359: -- If we are in a different Fwk session, need to clear Workflow PLSQL state
4360: if (not Wfa_Sec.CheckSession) then
4365: begin
4366: mailpref := Wf_Notification.GetMailPreference(new_role, cb, context);
4367: exception
4368: when others then
4369: wf_core.token('ROLE', new_role);
4370: if (fmode = 'FORWARD') then
4371: wf_core.raise('WFNTF_DELEGATE_FAIL');
4372: elsif (fmode = 'TRANSFER') then
4373: wf_core.raise('WFNTF_TRANSFER_FAIL');
4367: exception
4368: when others then
4369: wf_core.token('ROLE', new_role);
4370: if (fmode = 'FORWARD') then
4371: wf_core.raise('WFNTF_DELEGATE_FAIL');
4372: elsif (fmode = 'TRANSFER') then
4373: wf_core.raise('WFNTF_TRANSFER_FAIL');
4374: end if;
4375: end;
4369: wf_core.token('ROLE', new_role);
4370: if (fmode = 'FORWARD') then
4371: wf_core.raise('WFNTF_DELEGATE_FAIL');
4372: elsif (fmode = 'TRANSFER') then
4373: wf_core.raise('WFNTF_TRANSFER_FAIL');
4374: end if;
4375: end;
4376:
4377: -- Bug 3065814
4459: where ITEM_TYPE=l_item_type
4460: and ITEM_KEY=l_item_key;
4461:
4462: if new_role in (l_wf_owner, hash_from_role) then
4463: wf_core.raise('WFNTF_OWNER_TRANSFER_FAIL');
4464: end if;
4465:
4466:
4467: --Bug 2474770
4492: 'SUMMARY', '',
4493: 'SUMHTML', '',
4494: 'DISABLED', 'FAILED',
4495: null, '', 'MAIL'),
4496: ACCESS_KEY = wf_core.random,
4497: FROM_ROLE = l_from_role,
4498: MORE_INFO_ROLE = l_more_info_role,
4499: SENT_DATE = SYSDATE
4500: where NOTIFICATION_ID = nid;
4589: p_parameters => l_parameterlist);
4590:
4591: exception
4592: when others then
4593: wf_core.context('Wf_Notification', 'ForwardInternal', to_char(nid),
4594: new_role, fmode, forward_comment);
4595: raise;
4596: end ForwardInternal;
4597:
4617: begin
4618: ForwardInternal(nid, new_role, 'FORWARD', forward_comment, user, cnt, action_source);
4619: exception
4620: when others then
4621: wf_core.context('Wf_Notification', 'Forward', to_char(nid),
4622: new_role, forward_comment);
4623: -- This call is for enhanced error handling with respect to OAFwk
4624: wf_notification.SetUIErrorMessage;
4625: raise;
4647: begin
4648: ForwardInternal(nid, new_role, 'TRANSFER', forward_comment, user, cnt, action_source);
4649: exception
4650: when others then
4651: wf_core.context('Wf_Notification', 'Transfer', to_char(nid),
4652: new_role, forward_comment);
4653: -- This call is for enhanced error handling with respect to OAFwk
4654: wf_notification.SetUIErrorMessage;
4655: raise;
4699: where WN.NOTIFICATION_ID = nid
4700: for update nowait;
4701: exception
4702: when no_data_found then
4703: wf_core.token('NID', to_char(nid));
4704: wf_core.raise('WFNTF_NID');
4705: end;
4706: if (status <> 'OPEN') then
4707: wf_core.token('NID', to_char(nid));
4700: for update nowait;
4701: exception
4702: when no_data_found then
4703: wf_core.token('NID', to_char(nid));
4704: wf_core.raise('WFNTF_NID');
4705: end;
4706: if (status <> 'OPEN') then
4707: wf_core.token('NID', to_char(nid));
4708: wf_core.raise('WFNTF_NID_OPEN');
4703: wf_core.token('NID', to_char(nid));
4704: wf_core.raise('WFNTF_NID');
4705: end;
4706: if (status <> 'OPEN') then
4707: wf_core.token('NID', to_char(nid));
4708: wf_core.raise('WFNTF_NID_OPEN');
4709: end if;
4710:
4711: -- Check role is valid and get mail preference
4704: wf_core.raise('WFNTF_NID');
4705: end;
4706: if (status <> 'OPEN') then
4707: wf_core.token('NID', to_char(nid));
4708: wf_core.raise('WFNTF_NID_OPEN');
4709: end if;
4710:
4711: -- Check role is valid and get mail preference
4712: mailpref := Wf_Notification.GetMailPreference(role, cb, context);
4803:
4804:
4805: exception
4806: when others then
4807: wf_core.context('Wf_Notification', 'CancelSingle', to_char(nid),
4808: role, cancel_comment);
4809: raise;
4810: end CancelSingle;
4811:
4822: status varchar2(8);
4823: role varchar2(320);
4824: begin
4825: if (nid is null) then
4826: wf_core.token('NID', to_char(nid));
4827: wf_core.raise('WFSQL_ARGS');
4828: end if;
4829:
4830: -- Check the notification exists and is open
4823: role varchar2(320);
4824: begin
4825: if (nid is null) then
4826: wf_core.token('NID', to_char(nid));
4827: wf_core.raise('WFSQL_ARGS');
4828: end if;
4829:
4830: -- Check the notification exists and is open
4831: begin
4835: where NOTIFICATION_ID = nid
4836: for update nowait;
4837: exception
4838: when no_data_found then
4839: wf_core.token('NID', to_char(nid));
4840: wf_core.raise('WFNTF_NID');
4841: end;
4842:
4843: if (status <> 'OPEN') then
4836: for update nowait;
4837: exception
4838: when no_data_found then
4839: wf_core.token('NID', to_char(nid));
4840: wf_core.raise('WFNTF_NID');
4841: end;
4842:
4843: if (status <> 'OPEN') then
4844: wf_core.token('NID', to_char(nid));
4840: wf_core.raise('WFNTF_NID');
4841: end;
4842:
4843: if (status <> 'OPEN') then
4844: wf_core.token('NID', to_char(nid));
4845: wf_core.raise('WFNTF_NID_OPEN');
4846: end if;
4847:
4848: -- Call CancelSingle to complete cancellation of single notification
4841: end;
4842:
4843: if (status <> 'OPEN') then
4844: wf_core.token('NID', to_char(nid));
4845: wf_core.raise('WFNTF_NID_OPEN');
4846: end if;
4847:
4848: -- Call CancelSingle to complete cancellation of single notification
4849: CancelSingle(nid, role, cancel_comment, FALSE);
4849: CancelSingle(nid, role, cancel_comment, FALSE);
4850:
4851: exception
4852: when others then
4853: wf_core.context('Wf_Notification', 'Cancel', to_char(nid), cancel_comment);
4854: raise;
4855: end Cancel;
4856:
4857: --
4874: for update nowait;
4875:
4876: begin
4877: if (gid is null) then
4878: wf_core.token('NID', to_char(gid));
4879: wf_core.raise('WFSQL_ARGS');
4880: end if;
4881:
4882: -- Cancel all open notifications in this group
4875:
4876: begin
4877: if (gid is null) then
4878: wf_core.token('NID', to_char(gid));
4879: wf_core.raise('WFSQL_ARGS');
4880: end if;
4881:
4882: -- Cancel all open notifications in this group
4883: for notice in group_curs loop
4886: cancel_comment, timeout);
4887: end loop;
4888: exception
4889: when others then
4890: wf_core.context('Wf_Notification', 'CancelGroup', to_char(gid),
4891: cancel_comment);
4892: raise;
4893: end CancelGroup;
4894:
4919: end if;
4920:
4921: exception
4922: when others then
4923: wf_core.context('Wf_Notification', 'Respond', to_char(nid),
4924: respond_comment, responder);
4925: wf_core.clear;
4926: -- This call is for enhanced error handling with respect to OAFwk
4927: wf_notification.SetUIErrorMessage;
4921: exception
4922: when others then
4923: wf_core.context('Wf_Notification', 'Respond', to_char(nid),
4924: respond_comment, responder);
4925: wf_core.clear;
4926: -- This call is for enhanced error handling with respect to OAFwk
4927: wf_notification.SetUIErrorMessage;
4928: raise;
4929: end Respond;
4953:
4954: l_charcheck boolean;
4955: begin
4956: if (nid is null) then
4957: wf_core.token('NID', to_char(nid));
4958: wf_core.raise('WFSQL_ARGS');
4959: end if;
4960:
4961: -- Get callback, check for valid notification id.
4954: l_charcheck boolean;
4955: begin
4956: if (nid is null) then
4957: wf_core.token('NID', to_char(nid));
4958: wf_core.raise('WFSQL_ARGS');
4959: end if;
4960:
4961: -- Get callback, check for valid notification id.
4962: begin
4965: from WF_NOTIFICATIONS N
4966: where N.NOTIFICATION_ID = nid;
4967: exception
4968: when no_data_found then
4969: wf_core.token('NID', to_char(nid));
4970: wf_core.raise('WFNTF_NID');
4971: end;
4972:
4973: -- If no callback, then nothing to check
4966: where N.NOTIFICATION_ID = nid;
4967: exception
4968: when no_data_found then
4969: wf_core.token('NID', to_char(nid));
4970: wf_core.raise('WFNTF_NID');
4971: end;
4972:
4973: -- If no callback, then nothing to check
4974: if (callback is null) then
5002: end if;
5003:
5004: exception
5005: when others then
5006: wf_core.context('Wf_Notification', 'TestContext', to_char(nid));
5007: raise;
5008: end TestContext;
5009:
5010: --
5081: --
5082: exception
5083: when others then
5084: --
5085: wf_core.context('Wf_Notification', 'VoteCount', to_char(gid), ResultCode );
5086: raise;
5087: --
5088: end VoteCount;
5089: --
5120: return(FALSE);
5121: --
5122: when others then
5123: --
5124: wf_core.context('Wf_Notification', 'OpenNotifications', to_char(gid) );
5125: raise;
5126: --
5127: end OpenNotificationsExist;
5128:
5161:
5162: return(ncount);
5163: exception
5164: when others then
5165: wf_core.context('Wf_Notification', 'WorkCount', username);
5166: raise;
5167: end WorkCount;
5168:
5169: --
5201:
5202: begin
5203:
5204: if (nid is null) then
5205: wf_core.token('NID', to_char(nid));
5206: wf_core.raise('WFSQL_ARGS');
5207: end if;
5208:
5209: -- Get Status
5202: begin
5203:
5204: if (nid is null) then
5205: wf_core.token('NID', to_char(nid));
5206: wf_core.raise('WFSQL_ARGS');
5207: end if;
5208:
5209: -- Get Status
5210: begin
5215: where N.NOTIFICATION_ID = nid
5216: for update nowait;
5217: exception
5218: when no_data_found then
5219: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5220: wf_core.raise('WFNTF_NID');
5221: end;
5222:
5223: -- Check notification is open
5216: for update nowait;
5217: exception
5218: when no_data_found then
5219: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5220: wf_core.raise('WFNTF_NID');
5221: end;
5222:
5223: -- Check notification is open
5224: if (status <> 'OPEN') then
5221: end;
5222:
5223: -- Check notification is open
5224: if (status <> 'OPEN') then
5225: wf_core.token('NID', Wf_Notification.GetSubject(nid) );
5226: wf_core.raise('WFNTF_NID_OPEN');
5227: end if;
5228:
5229:
5222:
5223: -- Check notification is open
5224: if (status <> 'OPEN') then
5225: wf_core.token('NID', Wf_Notification.GetSubject(nid) );
5226: wf_core.raise('WFNTF_NID_OPEN');
5227: end if;
5228:
5229:
5230: open attrs(nid);
5230: open attrs(nid);
5231: fetch attrs into result;
5232: if (attrs%found) then
5233: -- Check response required?
5234: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5235: wf_core.raise('WFNTF_NID_REQUIRE');
5236: end if;
5237:
5238: -- Mark notification STATUS as 'CLOSED' and MAIL_STATUS as NULL
5231: fetch attrs into result;
5232: if (attrs%found) then
5233: -- Check response required?
5234: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5235: wf_core.raise('WFNTF_NID_REQUIRE');
5236: end if;
5237:
5238: -- Mark notification STATUS as 'CLOSED' and MAIL_STATUS as NULL
5239: update WF_NOTIFICATIONS
5272: p_parameters => l_parameterlist);
5273:
5274: exception
5275: when others then
5276: wf_core.context('Wf_Notification', 'Close', to_char(nid), responder);
5277: raise;
5278: end Close;
5279:
5280: --
5338: -- Process special '#' internal tokens. Supported tokens are:
5339: -- &#NID - Notification id
5340: --
5341: local_text := substrb(replace(local_text, '&'||'#NID',
5342: '['||wf_core.translate('WF_NOTIFICATION_ID')||']'), 1, 1950);
5343:
5344:
5345: return(local_text);
5346:
5440: dbms_lob.write(clob_loc,amt,pos,msg_string);
5441:
5442: exception
5443: when others then
5444: wf_core.context('WF_NOTIFICATION','WriteToClob');
5445: raise;
5446: end WriteToClob;
5447:
5448: --Name : GetFullBody (PUBLIC)
5561: end if;
5562:
5563: exception
5564: when others then
5565: wf_core.context('WF_NOTIFICATION','GetFullBody', 'nid => '||to_char(nid),
5566: 'disptype => '||disptype);
5567: raise;
5568: end GetFullBody;
5569:
5626: Wf_Notification.GetAttrClob(nid, astring, disptype, document, doctype, aname);
5627:
5628: exception
5629: when others then
5630: wf_core.context('Wf_Notification', 'oldGetAttrClob', to_char(nid), aname,
5631: disptype);
5632: raise;
5633: end GetAttrClob;
5634:
5680: -- Check args
5681: if ((nid is null) or (astring is null) or
5682: (disptype not in (wf_notification.doc_text,
5683: wf_notification.doc_html))) then
5684: wf_core.token('NID', to_char(nid));
5685: wf_core.token('ASTRING', aname);
5686: wf_core.token('DISPTYPE', disptype);
5687: wf_core.raise('WFSQL_ARGS');
5688: end if;
5681: if ((nid is null) or (astring is null) or
5682: (disptype not in (wf_notification.doc_text,
5683: wf_notification.doc_html))) then
5684: wf_core.token('NID', to_char(nid));
5685: wf_core.token('ASTRING', aname);
5686: wf_core.token('DISPTYPE', disptype);
5687: wf_core.raise('WFSQL_ARGS');
5688: end if;
5689:
5682: (disptype not in (wf_notification.doc_text,
5683: wf_notification.doc_html))) then
5684: wf_core.token('NID', to_char(nid));
5685: wf_core.token('ASTRING', aname);
5686: wf_core.token('DISPTYPE', disptype);
5687: wf_core.raise('WFSQL_ARGS');
5688: end if;
5689:
5690: -- of all the possible Document type matches,
5683: wf_notification.doc_html))) then
5684: wf_core.token('NID', to_char(nid));
5685: wf_core.token('ASTRING', aname);
5686: wf_core.token('DISPTYPE', disptype);
5687: wf_core.raise('WFSQL_ARGS');
5688: end if;
5689:
5690: -- of all the possible Document type matches,
5691: -- make sure its a PLSQLCLOB
5793: end if;
5794:
5795: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
5796: -- when an exception occurs while executing the PLSQL Document APIs
5797: WF_CORE.Token('DOC_TYPE', 'PLSQLCLOB');
5798: WF_CORE.Token('FUNC_NAME', procname);
5799: WF_CORE.Token('SQLCODE', to_char(sqlcode));
5800: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
5801: WF_CORE.Raise('WFNTF_GEN_DOC');
5794:
5795: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
5796: -- when an exception occurs while executing the PLSQL Document APIs
5797: WF_CORE.Token('DOC_TYPE', 'PLSQLCLOB');
5798: WF_CORE.Token('FUNC_NAME', procname);
5799: WF_CORE.Token('SQLCODE', to_char(sqlcode));
5800: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
5801: WF_CORE.Raise('WFNTF_GEN_DOC');
5802: end;
5795: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
5796: -- when an exception occurs while executing the PLSQL Document APIs
5797: WF_CORE.Token('DOC_TYPE', 'PLSQLCLOB');
5798: WF_CORE.Token('FUNC_NAME', procname);
5799: WF_CORE.Token('SQLCODE', to_char(sqlcode));
5800: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
5801: WF_CORE.Raise('WFNTF_GEN_DOC');
5802: end;
5803:
5796: -- when an exception occurs while executing the PLSQL Document APIs
5797: WF_CORE.Token('DOC_TYPE', 'PLSQLCLOB');
5798: WF_CORE.Token('FUNC_NAME', procname);
5799: WF_CORE.Token('SQLCODE', to_char(sqlcode));
5800: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
5801: WF_CORE.Raise('WFNTF_GEN_DOC');
5802: end;
5803:
5804: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
5797: WF_CORE.Token('DOC_TYPE', 'PLSQLCLOB');
5798: WF_CORE.Token('FUNC_NAME', procname);
5799: WF_CORE.Token('SQLCODE', to_char(sqlcode));
5800: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
5801: WF_CORE.Raise('WFNTF_GEN_DOC');
5802: end;
5803:
5804: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
5805: wf_log_pkg.string2(wf_log_pkg.level_statement,
5808: end if;
5809:
5810: exception
5811: when others then
5812: wf_core.context('Wf_Notification', 'GetAttrClob', to_char(nid), aname,
5813: disptype);
5814: raise;
5815: end GetAttrClob;
5816:
5852: end if;
5853:
5854: exception
5855: when others then
5856: wf_core.context('WF_NOTIFICATION','NewClob');
5857: raise;
5858: end NewClob;
5859:
5860: --Name Read_Clob
5881: end if;
5882:
5883: exception
5884: when others then
5885: wf_core.context('Wf_Notification', 'Read_Clob','pos => '||to_char(pos),
5886: 'line => {'||line||'}');
5887: raise;
5888: end Read_Clob;
5889:
5931: end if;
5932:
5933: exception
5934: when others then
5935: wf_core.context('Wf_Notification', 'ReadAttrClob');
5936: raise;
5937: end ReadAttrClob;
5938:
5939: --
6050: -- p_nlsCalendar
6051: );
6052: exception
6053: when others then
6054: Wf_Core.Context('Wf_Notification', 'SetNLSLanguage', p_language, p_territory);
6055: raise;
6056: end SetNLSLanguage;
6057:
6058: --
6197: from WF_NOTIFICATIONS
6198: where NOTIFICATION_ID = nid;
6199: exception
6200: when NO_DATA_FOUND then
6201: wf_core.token('NID', to_char(nid));
6202: wf_core.raise('WFNTF_NID');
6203: end;
6204:
6205: if ( l_logSTMT ) then
6198: where NOTIFICATION_ID = nid;
6199: exception
6200: when NO_DATA_FOUND then
6201: wf_core.token('NID', to_char(nid));
6202: wf_core.raise('WFNTF_NID');
6203: end;
6204:
6205: if ( l_logSTMT ) then
6206: wf_log_pkg.String(wf_log_pkg.LEVEL_STATEMENT, l_module
6305: begin
6306: l_from_role := Wf_Notification.GetAttrText(nid, '#FROM_ROLE');
6307: exception
6308: when OTHERS then
6309: wf_core.clear; -- clear the error stack
6310: l_from_role := NULL;
6311: end;
6312: end if;
6313:
6336: LANGUAGE = userenv('LANG')
6337: where NOTIFICATION_ID = nid;
6338: exception
6339: when OTHERS then
6340: wf_core.token('NID', to_char(nid));
6341: wf_core.raise('WFNTF_DENORM_FAILED');
6342: end;
6343:
6344: if ( l_logPRCD ) then
6337: where NOTIFICATION_ID = nid;
6338: exception
6339: when OTHERS then
6340: wf_core.token('NID', to_char(nid));
6341: wf_core.raise('WFNTF_DENORM_FAILED');
6342: end;
6343:
6344: if ( l_logPRCD ) then
6345: wf_log_pkg.String(wf_log_pkg.LEVEL_PROCEDURE, l_module, 'END');
6345: wf_log_pkg.String(wf_log_pkg.LEVEL_PROCEDURE, l_module, 'END');
6346: end if;
6347: exception
6348: when OTHERS then
6349: wf_core.context('Wf_Notification', 'Denormalize_Notification',
6350: to_char(nid), username);
6351: raise;
6352: end Denormalize_Notification;
6353:
6427: begin
6428: sig_policy := Wf_Notification.GetAttrText(nid, '#WF_SIG_POLICY');
6429: exception
6430: when others then
6431: if (wf_core.error_name = 'WFNTF_ATTR') then
6432: wf_core.clear;
6433: sig_policy := 'DEFAULT';
6434: else
6435: raise;
6428: sig_policy := Wf_Notification.GetAttrText(nid, '#WF_SIG_POLICY');
6429: exception
6430: when others then
6431: if (wf_core.error_name = 'WFNTF_ATTR') then
6432: wf_core.clear;
6433: sig_policy := 'DEFAULT';
6434: else
6435: raise;
6436: end if;
6450: return TRUE;
6451: end if;
6452: exception
6453: when others then
6454: if (wf_core.error_name = 'WFNTF_ATTR') then
6455: wf_core.clear;
6456: else
6457: raise;
6458: end if;
6451: end if;
6452: exception
6453: when others then
6454: if (wf_core.error_name = 'WFNTF_ATTR') then
6455: wf_core.clear;
6456: else
6457: raise;
6458: end if;
6459: end;
6464: -- Eventually should use GetAttrNumber
6465: l_attr_sigid := to_number(Wf_Notification.GetAttrText(nid, '#WF_SIG_ID'));
6466: exception
6467: when others then
6468: if (wf_core.error_name = 'WFNTF_ATTR') then
6469: wf_core.clear;
6470: l_attr_sigid := -1;
6471: else
6472: raise;
6465: l_attr_sigid := to_number(Wf_Notification.GetAttrText(nid, '#WF_SIG_ID'));
6466: exception
6467: when others then
6468: if (wf_core.error_name = 'WFNTF_ATTR') then
6469: wf_core.clear;
6470: l_attr_sigid := -1;
6471: else
6472: raise;
6473: end if;
6489: return TRUE;
6490:
6491: exception
6492: when others then
6493: wf_core.context('Wf_Notification', 'NtfSignRequirementsMet', to_char(nid));
6494: raise;
6495: end NtfSignRequirementsMet;
6496:
6497: --
6615: --Bug 2474770
6616: --If the current user is the same as the one from
6617: --whom more-info is requested then raise the error
6618: --that you cannot ask for more info from yourself.
6619: wf_core.token('USER',username);
6620: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6621: else
6622: -- do not want it hung when some one is doing update.
6623: begin
6616: --If the current user is the same as the one from
6617: --whom more-info is requested then raise the error
6618: --that you cannot ask for more info from yourself.
6619: wf_core.token('USER',username);
6620: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6621: else
6622: -- do not want it hung when some one is doing update.
6623: begin
6624: select MORE_INFO_ROLE
6629: exception
6630: when NO_DATA_FOUND then
6631: null;
6632: when resource_busy then
6633: wf_core.raise('WFNTF_BEING_UPDATED');
6634: -- ### This notification is being updated currently, please
6635: -- ### try again in a brief moment.
6636: end;
6637:
6721: -- where NOTIFICATION_ID = nid;
6722:
6723: -- bug 2474562
6724: -- else
6725: -- wf_core.token('ROLE',username);
6726: -- wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6727: -- end if;
6728: end if;
6729:
6722:
6723: -- bug 2474562
6724: -- else
6725: -- wf_core.token('ROLE',username);
6726: -- wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6727: -- end if;
6728: end if;
6729:
6730: /* implement the above loop recursively */
6729:
6730: /* implement the above loop recursively */
6731: if (cnt > wf_notification.max_forward) then
6732: -- it means max_forward must have been exceeded. Treat as a loop error.
6733: wf_core.token('NID', to_char(nid));
6734: wf_core.raise('WFNTF_ROUTE_LOOP');
6735: end if;
6736:
6737: -- Calling RouteMoreInfo to check and handle if there are any Routing Rules
6730: /* implement the above loop recursively */
6731: if (cnt > wf_notification.max_forward) then
6732: -- it means max_forward must have been exceeded. Treat as a loop error.
6733: wf_core.token('NID', to_char(nid));
6734: wf_core.raise('WFNTF_ROUTE_LOOP');
6735: end if;
6736:
6737: -- Calling RouteMoreInfo to check and handle if there are any Routing Rules
6738: wf_notification.RouteMoreInfo(nid, myusername, action_source, cnt);
6765: -- ### or has already been answered.
6766: WF_MAIL.SendMoreInfoResponseWarning(nid);
6767: return;
6768: when resource_busy then
6769: wf_core.raise('WFNTF_BEING_UPDATED');
6770: -- ### This notification is being updated currently, please
6771: -- ### try again in a brief moment.
6772: end;
6773:
6772: end;
6773:
6774: -- Bug 11893836: Checking whether Workflow Administrator is
6775: --Answering the Question
6776: l_admin_role := WF_CORE.Translate('WF_ADMIN_ROLE');
6777:
6778: if (myusername is not null and l_from_role <> myusername) then
6779: if (not Wf_Directory.IsPerformer(myusername, l_from_role) and not Wf_Directory.IsPerformer(myusername, l_admin_role)) then
6780: wf_core.token('ROLE',myusername);
6776: l_admin_role := WF_CORE.Translate('WF_ADMIN_ROLE');
6777:
6778: if (myusername is not null and l_from_role <> myusername) then
6779: if (not Wf_Directory.IsPerformer(myusername, l_from_role) and not Wf_Directory.IsPerformer(myusername, l_admin_role)) then
6780: wf_core.token('ROLE',myusername);
6781: wf_core.token('MORE_INFO_ROLE', l_from_role);
6782: wf_core.token('NID', to_char(nid));
6783: wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6784: end if;
6777:
6778: if (myusername is not null and l_from_role <> myusername) then
6779: if (not Wf_Directory.IsPerformer(myusername, l_from_role) and not Wf_Directory.IsPerformer(myusername, l_admin_role)) then
6780: wf_core.token('ROLE',myusername);
6781: wf_core.token('MORE_INFO_ROLE', l_from_role);
6782: wf_core.token('NID', to_char(nid));
6783: wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6784: end if;
6785: l_from_role := myusername;
6778: if (myusername is not null and l_from_role <> myusername) then
6779: if (not Wf_Directory.IsPerformer(myusername, l_from_role) and not Wf_Directory.IsPerformer(myusername, l_admin_role)) then
6780: wf_core.token('ROLE',myusername);
6781: wf_core.token('MORE_INFO_ROLE', l_from_role);
6782: wf_core.token('NID', to_char(nid));
6783: wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6784: end if;
6785: l_from_role := myusername;
6786: replyby := mydispname;
6779: if (not Wf_Directory.IsPerformer(myusername, l_from_role) and not Wf_Directory.IsPerformer(myusername, l_admin_role)) then
6780: wf_core.token('ROLE',myusername);
6781: wf_core.token('MORE_INFO_ROLE', l_from_role);
6782: wf_core.token('NID', to_char(nid));
6783: wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6784: end if;
6785: l_from_role := myusername;
6786: replyby := mydispname;
6787: end if;
6899: p_parameters => l_parameterlist);
6900:
6901: exception
6902: when OTHERS then
6903: Wf_Core.Context('Wf_Notification', 'UpdateInfo', to_char(nid), username, wl_user, action_source);
6904: raise;
6905: end UpdateInfo;
6906:
6907: --
7010: if (l_session_user = p_new_user) then
7011: --If the current user is the same as the one from
7012: --whom more-info is requested then raise the error
7013: --that you cannot ask for more info from yourself.
7014: wf_core.token('USER',p_new_user);
7015: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7016: else
7017: -- Check if anyone else is updating the row
7018: begin
7011: --If the current user is the same as the one from
7012: --whom more-info is requested then raise the error
7013: --that you cannot ask for more info from yourself.
7014: wf_core.token('USER',p_new_user);
7015: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7016: else
7017: -- Check if anyone else is updating the row
7018: begin
7019: select MORE_INFO_ROLE
7024: exception
7025: when NO_DATA_FOUND then
7026: null;
7027: when resource_busy then
7028: wf_core.raise('WFNTF_BEING_UPDATED');
7029: -- ### This notification is being updated currently, please
7030: -- ### try again in a brief moment.
7031: end;
7032:
7106: --Calling RouteMoreInfo API to check whether there are any Routing rules for the recipient
7107: -- implement the loop recursively
7108: if (p_count > wf_notification.max_forward) then
7109: -- it means max_forward must have been exceeded. Treat as a loop error.
7110: wf_core.token('NID', to_char(p_nid));
7111: wf_core.raise('WFNTF_ROUTE_LOOP');
7112: end if;
7113: wf_notification.RouteMoreInfo(p_nid, p_wl_user, p_action_source, p_count);
7114: end if;
7107: -- implement the loop recursively
7108: if (p_count > wf_notification.max_forward) then
7109: -- it means max_forward must have been exceeded. Treat as a loop error.
7110: wf_core.token('NID', to_char(p_nid));
7111: wf_core.raise('WFNTF_ROUTE_LOOP');
7112: end if;
7113: wf_notification.RouteMoreInfo(p_nid, p_wl_user, p_action_source, p_count);
7114: end if;
7115:
7150: p_parameters => l_parameterlist);
7151:
7152: exception
7153: when OTHERS then
7154: Wf_Core.Context('Wf_Notification', 'TransferMoreInfo', to_char(p_nid), p_new_user, p_wl_user, p_action_source);
7155: raise;
7156: end TransferMoreInfo;
7157:
7158: --
7216:
7217: -- If there is a vacation rule defined to Reassign a notification
7218: if l_ruleAction IN ('FORWARD','TRANSFER') then
7219: if l_newRole = p_wl_user then
7220: wf_core.token('USER',p_wl_user);
7221: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7222: elsif l_newRole = l_recip_role then
7223: wf_core.token('USER',l_recip_role);
7224: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7217: -- If there is a vacation rule defined to Reassign a notification
7218: if l_ruleAction IN ('FORWARD','TRANSFER') then
7219: if l_newRole = p_wl_user then
7220: wf_core.token('USER',p_wl_user);
7221: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7222: elsif l_newRole = l_recip_role then
7223: wf_core.token('USER',l_recip_role);
7224: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7225: else
7219: if l_newRole = p_wl_user then
7220: wf_core.token('USER',p_wl_user);
7221: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7222: elsif l_newRole = l_recip_role then
7223: wf_core.token('USER',l_recip_role);
7224: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7225: else
7226: -- Routing rule defined
7227: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7220: wf_core.token('USER',p_wl_user);
7221: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7222: elsif l_newRole = l_recip_role then
7223: wf_core.token('USER',l_recip_role);
7224: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7225: else
7226: -- Routing rule defined
7227: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7228: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
7223: wf_core.token('USER',l_recip_role);
7224: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7225: else
7226: -- Routing rule defined
7227: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7228: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
7229:
7230: -- implement the above loop recursively
7231: if (p_count > wf_notification.max_forward) then
7224: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7225: else
7226: -- Routing rule defined
7227: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7228: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
7229:
7230: -- implement the above loop recursively
7231: if (p_count > wf_notification.max_forward) then
7232: -- it means max_forward must have been exceeded. Treat as a loop error.
7229:
7230: -- implement the above loop recursively
7231: if (p_count > wf_notification.max_forward) then
7232: -- it means max_forward must have been exceeded. Treat as a loop error.
7233: wf_core.token('NID', to_char(p_nid));
7234: wf_core.raise('WFNTF_ROUTE_LOOP');
7235: end if;
7236: --Call to TransferMorInfo to implement Transfer Request Information
7237: -- as per the vacation rule
7230: -- implement the above loop recursively
7231: if (p_count > wf_notification.max_forward) then
7232: -- it means max_forward must have been exceeded. Treat as a loop error.
7233: wf_core.token('NID', to_char(p_nid));
7234: wf_core.raise('WFNTF_ROUTE_LOOP');
7235: end if;
7236: --Call to TransferMorInfo to implement Transfer Request Information
7237: -- as per the vacation rule
7238: TransferMoreInfo(p_nid, l_newRole, l_sysComment, p_wl_user, p_action_source, p_count+1, l_more_info_role);
7238: TransferMoreInfo(p_nid, l_newRole, l_sysComment, p_wl_user, p_action_source, p_count+1, l_more_info_role);
7239: end if;
7240: else
7241: if l_ruleAction = 'RESPOND' then -- if there is a vacation rule for Response
7242: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE');
7243: l_more_info_role_display := Wf_Directory.GetRoleDisplayName(l_more_info_role);
7244: -- get mail preference of the user who will respond with more information
7245: l_mail_preference := wf_notification.GetMailPreference (l_recip_role, null, null);
7246:
7261: end if;
7262:
7263: exception
7264: when OTHERS then
7265: Wf_Core.Context('Wf_Notification', 'RouteMoreInfo', to_char(p_nid), l_newRole, p_wl_user, p_action_source);
7266: raise;
7267: end RouteMoreInfo;
7268:
7269: -- bug 2474562
7373: end if;
7374: return(TRUE);
7375: exception
7376: when OTHERS then
7377: Wf_Core.Context('Wf_Notification','IsValidInfoRole',to_char(nid),username);
7378: raise;
7379: end IsValidInfoRole;
7380:
7381: -- UpdateInfo2 - bug 2282139
7515: WHERE upper(display_name) = upper(username)
7516: AND rownum = 1;
7517: exception
7518: when NO_DATA_FOUND then
7519: wf_core.token('ROLE', username);
7520: wf_core.raise('WFNTF_ROLE');
7521: end;
7522: end if;
7523:
7516: AND rownum = 1;
7517: exception
7518: when NO_DATA_FOUND then
7519: wf_core.token('ROLE', username);
7520: wf_core.raise('WFNTF_ROLE');
7521: end;
7522: end if;
7523:
7524: -- If the username was specified as display name, l_username would have the internal name
7524: -- If the username was specified as display name, l_username would have the internal name
7525: if (l_username in (myusername, l_recip_role)) then
7526: -- If the current user is the same as the one from whom more-info is requested
7527: -- requested then raise the error that you cannot ask for more info from yourself.
7528: wf_core.token('USER',username);
7529: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7530: else
7531: open rulecurs;
7532: fetch rulecurs INTO l_ruleAction,l_newRole;
7525: if (l_username in (myusername, l_recip_role)) then
7526: -- If the current user is the same as the one from whom more-info is requested
7527: -- requested then raise the error that you cannot ask for more info from yourself.
7528: wf_core.token('USER',username);
7529: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7530: else
7531: open rulecurs;
7532: fetch rulecurs INTO l_ruleAction,l_newRole;
7533: if rulecurs%NOTFOUND then
7536: close rulecurs;
7537:
7538: if l_ruleAction IN ('FORWARD','TRANSFER') then
7539: if l_newRole = myusername then
7540: wf_core.token('USER',myusername);
7541: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7542: elsif l_newRole = l_recip_role then
7543: wf_core.token('USER',l_recip_role);
7544: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7537:
7538: if l_ruleAction IN ('FORWARD','TRANSFER') then
7539: if l_newRole = myusername then
7540: wf_core.token('USER',myusername);
7541: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7542: elsif l_newRole = l_recip_role then
7543: wf_core.token('USER',l_recip_role);
7544: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7545: else
7539: if l_newRole = myusername then
7540: wf_core.token('USER',myusername);
7541: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7542: elsif l_newRole = l_recip_role then
7543: wf_core.token('USER',l_recip_role);
7544: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7545: else
7546: -- Routing rule defined
7547: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7540: wf_core.token('USER',myusername);
7541: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7542: elsif l_newRole = l_recip_role then
7543: wf_core.token('USER',l_recip_role);
7544: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7545: else
7546: -- Routing rule defined
7547: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7548: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
7543: wf_core.token('USER',l_recip_role);
7544: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7545: else
7546: -- Routing rule defined
7547: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7548: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
7549: if myusername is not null then
7550: wf_notification.SetComments(nid, username, myusername, 'ANSWER', null, l_sysComment);
7551: else
7544: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7545: else
7546: -- Routing rule defined
7547: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
7548: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
7549: if myusername is not null then
7550: wf_notification.SetComments(nid, username, myusername, 'ANSWER', null, l_sysComment);
7551: else
7552: wf_notification.SetComments(nid, username, l_recip_role, 'ANSWER', null, l_sysComment);
7554:
7555: /* implement the above loop recursively */
7556: if (cnt > wf_notification.max_forward) then
7557: -- it means max_forward must have been exceeded. Treat as a loop error.
7558: wf_core.token('NID', to_char(nid));
7559: wf_core.raise('WFNTF_ROUTE_LOOP');
7560: end if;
7561: -- Better to call UpdateInfo. Use myusername instead of wl_user because myusername is the user associated to the responding e-mail address
7562: UpdateInfo(nid,l_newRole,g_context_user_comment,myusername,null, cnt);
7555: /* implement the above loop recursively */
7556: if (cnt > wf_notification.max_forward) then
7557: -- it means max_forward must have been exceeded. Treat as a loop error.
7558: wf_core.token('NID', to_char(nid));
7559: wf_core.raise('WFNTF_ROUTE_LOOP');
7560: end if;
7561: -- Better to call UpdateInfo. Use myusername instead of wl_user because myusername is the user associated to the responding e-mail address
7562: UpdateInfo(nid,l_newRole,g_context_user_comment,myusername,null, cnt);
7563: end if;
7563: end if;
7564: else
7565:
7566: if l_ruleAction = 'RESPOND' then
7567: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE');
7568: if myusername is not null then
7569: wf_notification.SetComments(nid, username, myusername, 'ANSWER', null, l_sysComment);
7570: else
7571: wf_notification.SetComments(nid, username, l_recip_role, 'ANSWER', null, l_sysComment);
7582: exception
7583: when NO_DATA_FOUND then
7584: null;
7585: when resource_busy then
7586: wf_core.raise('WFNTF_BEING_UPDATED');
7587: end;
7588:
7589: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
7590: wf_log_pkg.string(wf_log_pkg.level_statement,
7690: -- ### or has already been answered.
7691: WF_MAIL.SendMoreInfoResponseWarning(nid,from_email);
7692: return;
7693: when resource_busy then
7694: wf_core.raise('WFNTF_BEING_UPDATED');
7695: end;
7696:
7697: -- we donot validate the role, it may be email address. we donot want
7698: -- FROM_ROLE and FROM_USER to be NULL.
7805: p_parameters => l_parameterlist);
7806:
7807: exception
7808: when OTHERS then
7809: Wf_Core.Context('Wf_Notification', 'UpdateInfo2', to_char(nid), username, from_email);
7810: raise;
7811: end UpdateInfo2;
7812:
7813:
7878:
7879: exception
7880: when NO_DATA_FOUND then
7881: -- if it has no row, we cannot reply to this notification
7882: wf_core.raise('WFNTF_CANNOT_REPLY');
7883: -- ### You cannot reply to a question that has not been asked
7884: -- ### or has already been answered.
7885:
7886: when resource_busy then
7883: -- ### You cannot reply to a question that has not been asked
7884: -- ### or has already been answered.
7885:
7886: when resource_busy then
7887: wf_core.raise('WFNTF_BEING_UPDATED');
7888: end;
7889:
7890: if (cb is not null) then
7891: tvalue := moreinforesponder;
7963: p_parameters => l_parameterlist);
7964:
7965: exception
7966: when OTHERS then
7967: Wf_Core.Context('Wf_Notification', 'UpdateInfoGuest', to_char(nid), moreinforesponder);
7968: raise;
7969: end UpdateInfoGuest;
7970:
7971:
7994: exception
7995: when others then
7996: -- Bugfix 2880029 - changed sacsharm - 03/31/03
7997: -- If attribute not defined, do not hide Request More Info.
7998: if (wf_core.error_name = 'WFNTF_ATTR') then
7999: wf_core.clear;
8000: l_hide := 'N';
8001: else
8002: raise;
7995: when others then
7996: -- Bugfix 2880029 - changed sacsharm - 03/31/03
7997: -- If attribute not defined, do not hide Request More Info.
7998: if (wf_core.error_name = 'WFNTF_ATTR') then
7999: wf_core.clear;
8000: l_hide := 'N';
8001: else
8002: raise;
8003: end if;
8004: end;
8005: return (l_hide);
8006: exception
8007: when others then
8008: wf_core.context('Wf_Notification', 'HideMoreInfo', to_char(nid));
8009: raise;
8010: end HideMoreInfo;
8011:
8012: -- GetComments
8048: p_action_history => html_history);
8049:
8050: exception
8051: when others then
8052: wf_core.context('Wf_Notification', 'GetComments', to_char(nid), display_type);
8053: raise;
8054: end GetComments;
8055:
8056: --
8274: if (l_item_type in ('POSCHORD', 'POSUPDNT', 'POSORDNT', 'POSASNNB', 'CREATEPO', 'POAPPRV',
8275: 'POPRICAT', 'PORCOTOL', 'PONGRQCH', 'POERROR', 'POWFDS', 'RCVDMEMO',
8276: 'APVRMDER', 'POREQCHA', 'PORCPT', 'REQAPPRV', 'PORPOCHA')) then
8277: l_suppress_hist := 'Y';
8278: l_title := Wf_Core.Translate('WFNTF_NTF_HISTORY');
8279: else
8280: l_suppress_hist := 'N';
8281: l_title := Wf_Core.Translate('WFNTF_ACTION_HISTORY');
8282: end if;
8277: l_suppress_hist := 'Y';
8278: l_title := Wf_Core.Translate('WFNTF_NTF_HISTORY');
8279: else
8280: l_suppress_hist := 'N';
8281: l_title := Wf_Core.Translate('WFNTF_ACTION_HISTORY');
8282: end if;
8283:
8284: l_wf_system := Wf_Core.Translate('WF_SYSTEM');
8285: l_delim := ':';
8280: l_suppress_hist := 'N';
8281: l_title := Wf_Core.Translate('WFNTF_ACTION_HISTORY');
8282: end if;
8283:
8284: l_wf_system := Wf_Core.Translate('WF_SYSTEM');
8285: l_delim := ':';
8286:
8287: l_table_dir := table_direction;
8288: if (l_table_dir = 'L') then
8292: end if;
8293:
8294: j := 1;
8295: -- Action History Title
8296: cells(j) := wf_core.translate('NUM');
8297: if (p_display_type = wf_notification.doc_html) then
8298: cells(j) := 'S5%:'||cells(j);
8299: end if;
8300:
8298: cells(j) := 'S5%:'||cells(j);
8299: end if;
8300:
8301: j := j+1;
8302: cells(j) := wf_core.translate('ACTION_DATE');
8303: if (p_display_type = wf_notification.doc_html) then
8304: cells(j) := 'S15%:'||cells(j);
8305: end if;
8306:
8304: cells(j) := 'S15%:'||cells(j);
8305: end if;
8306:
8307: j := j+1;
8308: cells(j) := wf_core.translate('ACTION');
8309: if (p_display_type = wf_notification.doc_html) then
8310: cells(j) := 'S10%:'||cells(j);
8311: end if;
8312:
8310: cells(j) := 'S10%:'||cells(j);
8311: end if;
8312:
8313: j := j+1;
8314: cells(j) := wf_core.translate('FROM');
8315: if (p_display_type = wf_notification.doc_html) then
8316: cells(j) := 'S15%:'||cells(j);
8317: end if;
8318:
8316: cells(j) := 'S15%:'||cells(j);
8317: end if;
8318:
8319: j := j+1;
8320: cells(j) := wf_core.translate('TO');
8321: if (p_display_type = wf_notification.doc_html) then
8322: cells(j) := 'S15%:'||cells(j);
8323: end if;
8324:
8322: cells(j) := 'S15%:'||cells(j);
8323: end if;
8324:
8325: j := j+1;
8326: cells(j) := wf_core.translate('DETAILS');
8327: if (p_display_type = wf_notification.doc_html) then
8328: cells(j) := 'S40%:'||cells(j);
8329: end if;
8330:
8359: j := j+1;
8360:
8361: -- If the record is not from WF_COMMENTS, need to resolve the action
8362: if (l_comm_rec.h_action_type <> '#WF_COMMENTS#') then
8363: l_action_str := Wf_Core.Activity_Result(l_comm_rec.h_action_type, l_comm_rec.h_action);
8364: else
8365: l_action := l_comm_rec.h_action;
8366: --l_pos := instr(l_action, '_', 1);
8367: --if (l_pos > 0) then
8366: --l_pos := instr(l_action, '_', 1);
8367: --if (l_pos > 0) then
8368: --l_action := substr(l_action, 1, l_pos-1);
8369: --end if;
8370: l_action_str := Wf_Core.Translate(l_action);
8371: end if;
8372:
8373: if (p_display_type = wf_notification.doc_html) then
8374: cells(j) := 'S:'||l_action_str;
8452: --l_pos := instr(l_action, '_', 1);
8453: --if (l_pos > 0) then
8454: --l_action := substr(l_action, 1, l_pos-1);
8455: --end if;
8456: l_action_str := Wf_Core.Translate(l_action);
8457:
8458: if (p_display_type = wf_notification.doc_html) then
8459: cells(j) := 'S:'||l_action_str;
8460: else
8533: for k in 1..cells.LAST loop
8534: if (mod(k, 6) <> 0) then
8535: l_result := l_result||cells(k)||' '||l_delim||' ';
8536: else
8537: l_result := l_result||cells(k)||wf_core.newline;
8538: end if;
8539: end loop;
8540: l_result := wf_core.translate('WFNTF_ACTION_HISTORY')||wf_core.newline||l_result;
8541: end if;
8536: else
8537: l_result := l_result||cells(k)||wf_core.newline;
8538: end if;
8539: end loop;
8540: l_result := wf_core.translate('WFNTF_ACTION_HISTORY')||wf_core.newline||l_result;
8541: end if;
8542:
8543: p_action_history := l_result;
8544:
8543: p_action_history := l_result;
8544:
8545: exception
8546: when others then
8547: wf_core.context('Wf_Notification', 'GetComments2', to_char(p_nid), p_display_type);
8548: raise;
8549: end GetComments2;
8550:
8551: --
8581: Wf_Notification.GetAttrblob(nid, astring, disptype, document, doctype, aname);
8582:
8583: exception
8584: when others then
8585: wf_core.context('Wf_Notification', 'oldGetAttrblob', to_char(nid), aname,
8586: disptype);
8587: raise;
8588: end GetAttrblob;
8589:
8634: -- Check args
8635: if ((nid is null) or (astring is null) or
8636: (disptype not in (wf_notification.doc_text,
8637: wf_notification.doc_html))) then
8638: wf_core.token('NID', to_char(nid));
8639: wf_core.token('ASTRING', aname);
8640: wf_core.token('DISPTYPE', disptype);
8641: wf_core.raise('WFSQL_ARGS');
8642: end if;
8635: if ((nid is null) or (astring is null) or
8636: (disptype not in (wf_notification.doc_text,
8637: wf_notification.doc_html))) then
8638: wf_core.token('NID', to_char(nid));
8639: wf_core.token('ASTRING', aname);
8640: wf_core.token('DISPTYPE', disptype);
8641: wf_core.raise('WFSQL_ARGS');
8642: end if;
8643:
8636: (disptype not in (wf_notification.doc_text,
8637: wf_notification.doc_html))) then
8638: wf_core.token('NID', to_char(nid));
8639: wf_core.token('ASTRING', aname);
8640: wf_core.token('DISPTYPE', disptype);
8641: wf_core.raise('WFSQL_ARGS');
8642: end if;
8643:
8644: -- of all the possible Document type matches,
8637: wf_notification.doc_html))) then
8638: wf_core.token('NID', to_char(nid));
8639: wf_core.token('ASTRING', aname);
8640: wf_core.token('DISPTYPE', disptype);
8641: wf_core.raise('WFSQL_ARGS');
8642: end if;
8643:
8644: -- of all the possible Document type matches,
8645: -- make sure its a PLSQLBLOB
8739: end if;
8740:
8741: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
8742: -- when an exception occurs while executing the PLSQL Document APIs
8743: WF_CORE.Token('DOC_TYPE', 'PLSQLBLOB');
8744: WF_CORE.Token('FUNC_NAME', procname);
8745: WF_CORE.Token('SQLCODE', to_char(sqlcode));
8746: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
8747: WF_CORE.Raise('WFNTF_GEN_DOC');
8740:
8741: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
8742: -- when an exception occurs while executing the PLSQL Document APIs
8743: WF_CORE.Token('DOC_TYPE', 'PLSQLBLOB');
8744: WF_CORE.Token('FUNC_NAME', procname);
8745: WF_CORE.Token('SQLCODE', to_char(sqlcode));
8746: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
8747: WF_CORE.Raise('WFNTF_GEN_DOC');
8748: end;
8741: -- Bug 10130433: Throwing the WF error 'WFNTF_GEN_DOC' with all the error information
8742: -- when an exception occurs while executing the PLSQL Document APIs
8743: WF_CORE.Token('DOC_TYPE', 'PLSQLBLOB');
8744: WF_CORE.Token('FUNC_NAME', procname);
8745: WF_CORE.Token('SQLCODE', to_char(sqlcode));
8746: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
8747: WF_CORE.Raise('WFNTF_GEN_DOC');
8748: end;
8749:
8742: -- when an exception occurs while executing the PLSQL Document APIs
8743: WF_CORE.Token('DOC_TYPE', 'PLSQLBLOB');
8744: WF_CORE.Token('FUNC_NAME', procname);
8745: WF_CORE.Token('SQLCODE', to_char(sqlcode));
8746: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
8747: WF_CORE.Raise('WFNTF_GEN_DOC');
8748: end;
8749:
8750: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
8743: WF_CORE.Token('DOC_TYPE', 'PLSQLBLOB');
8744: WF_CORE.Token('FUNC_NAME', procname);
8745: WF_CORE.Token('SQLCODE', to_char(sqlcode));
8746: WF_CORE.Token('SQLERRM', DBMS_UTILITY.FORMAT_ERROR_STACK());
8747: WF_CORE.Raise('WFNTF_GEN_DOC');
8748: end;
8749:
8750: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
8751: wf_log_pkg.string2(wf_log_pkg.level_statement,
8754: end if;
8755:
8756: exception
8757: when others then
8758: wf_core.context('Wf_Notification', 'GetAttrblob', to_char(nid), aname,
8759: disptype);
8760: raise;
8761: end GetAttrblob;
8762:
8844: return isFwkBody( nid, content_type);
8845: end if;
8846: exception
8847: when OTHERS then
8848: wf_core.context('Wf_Notification','isFwkRegion',to_char(nid), content_type);
8849: raise;
8850:
8851: End isFwkRegion;
8852:
8946:
8947: return lv_fwk_body;
8948: exception
8949: when OTHERS then
8950: wf_core.context('Wf_Notification','isFwkBody',to_char(nid), content_type);
8951: raise;
8952:
8953: End isFwkBody;
8954:
8997:
8998: return lv_token_exist;
8999: exception
9000: when OTHERS then
9001: wf_core.context('Wf_Notification','fwkTokenExist',to_char(nid));
9002: raise;
9003:
9004: end fwkTokenExist;
9005:
9058: end if;
9059:
9060: exception
9061: when OTHERS then
9062: wf_core.context('Wf_Notification','getNtfActInfo',to_char(nid));
9063: raise;
9064:
9065: End getNtfActInfo;
9066:
9149: 'nid: '||to_char(p_nid)||'; language: '|| p_language);
9150: end;
9151: end if;
9152:
9153: l_nls_calendar := nvl(p_nlsCalendar, wf_core.nls_calendar);
9154: if (l_nls_calendar <> 'GREGORIAN') then
9155: url_value := url_value || '&nlsCalendar='||l_nls_calendar;
9156: end if;
9157:
9164: return url_value;
9165:
9166: exception
9167: when OTHERS then
9168: wf_core.context('Wf_Notification','getFwkBodyURL2',
9169: to_char(p_nid), p_contentType,p_language,p_nlsCalendar );
9170: raise;
9171:
9172: END getFwkBodyURL2;
9255: elsif (p_contentType = wf_notification.doc_text) then
9256: url_value := url_value || '&OALAF=oaText&OARF=email';
9257: end if;
9258:
9259: l_nls_calendar := nvl(p_nlsCalendar, wf_core.nls_calendar);
9260: if (l_nls_calendar <> 'GREGORIAN') then
9261: url_value := url_value || '&nlsCalendar='||l_nls_calendar;
9262: end if;
9263:
9270: return url_value;
9271:
9272: exception
9273: when OTHERS then
9274: wf_core.context('Wf_Notification','getSummaryURL2', p_mailer_role, p_contentType, p_nlsCalendar);
9275: raise;
9276:
9277: END getSummaryURL2;
9278:
9318: --when any exception raise the error with the corresponding notification id
9319:
9320: exception
9321: when others then
9322: wf_core.context('WF_Notification', 'GetSignatureRequired', to_char(p_nid));
9323: wf_core.token('NID', to_char(p_nid));
9324: wf_core.raise('WFMLR_INVALID_SIG_POLICY');
9325: end;
9326:
9319:
9320: exception
9321: when others then
9322: wf_core.context('WF_Notification', 'GetSignatureRequired', to_char(p_nid));
9323: wf_core.token('NID', to_char(p_nid));
9324: wf_core.raise('WFMLR_INVALID_SIG_POLICY');
9325: end;
9326:
9327: -- SetUIErrorMessage
9320: exception
9321: when others then
9322: wf_core.context('WF_Notification', 'GetSignatureRequired', to_char(p_nid));
9323: wf_core.token('NID', to_char(p_nid));
9324: wf_core.raise('WFMLR_INVALID_SIG_POLICY');
9325: end;
9326:
9327: -- SetUIErrorMessage
9328: -- API for Enhanced error handling for OAFwk UI Bug#2845488 grengara
9330:
9331: procedure SetUIErrorMessage
9332: is
9333: begin
9334: if ((wf_core.error_name is null) AND (sqlcode <= -20000) AND (sqlcode >= -20999)) then
9335: -- capture the SQL Error message in this global variable so that it can be propogated
9336: -- back to OAF without the need for an OUT paramter
9337: wf_core.error_message := sqlerrm;
9338: end if;
9333: begin
9334: if ((wf_core.error_name is null) AND (sqlcode <= -20000) AND (sqlcode >= -20999)) then
9335: -- capture the SQL Error message in this global variable so that it can be propogated
9336: -- back to OAF without the need for an OUT paramter
9337: wf_core.error_message := sqlerrm;
9338: end if;
9339: end SetUIErrorMessage;
9340:
9341: --
9381: end if;
9382:
9383: -- Sometimes p_from_role is email address when answering for more info request
9384: if (l_from_role = 'WF_SYSTEM') then
9385: l_from_user := Wf_Core.Translate(l_from_role);
9386: else
9387: l_from_user := nvl(Wf_Directory.GetRoleDisplayName(l_from_role), l_from_role);
9388: end if;
9389: if (p_to_role = 'WF_SYSTEM') then
9386: else
9387: l_from_user := nvl(Wf_Directory.GetRoleDisplayName(l_from_role), l_from_role);
9388: end if;
9389: if (p_to_role = 'WF_SYSTEM') then
9390: l_to_user := Wf_Core.Translate(p_to_role);
9391: else
9392: l_to_user := nvl(Wf_Directory.GetRoleDisplayname(p_to_role), p_to_role);
9393: end if;
9394: l_action := p_action;
9445: );
9446:
9447: exception
9448: when others then
9449: wf_core.context('Wf_Notification', 'SetComments', to_char(p_nid), p_from_role,
9450: p_to_role, p_action, p_action_source);
9451: raise;
9452: end SetComments;
9453:
9487: FROM wf_notifications
9488: WHERE notification_id = p_nid;
9489: exception
9490: when no_data_found then
9491: wf_core.token('NID', to_char(p_nid));
9492: wf_core.raise('WFNTF_NID');
9493: end;
9494:
9495: -- Get recipient information using Dir Service API. Select from WF_ROLES
9488: WHERE notification_id = p_nid;
9489: exception
9490: when no_data_found then
9491: wf_core.token('NID', to_char(p_nid));
9492: wf_core.raise('WFNTF_NID');
9493: end;
9494:
9495: -- Get recipient information using Dir Service API. Select from WF_ROLES
9496: -- may not give the right information
9500:
9501: -- Check if the notification is eligible to be e-mailed. We throw specific error
9502: -- for the UI to display appropriately to the user
9503: if (l_status <> 'OPEN') then
9504: wf_core.token('NID', to_char(p_nid));
9505: wf_core.raise('WFNTF_NID_OPEN');
9506: end if;
9507:
9508: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9501: -- Check if the notification is eligible to be e-mailed. We throw specific error
9502: -- for the UI to display appropriately to the user
9503: if (l_status <> 'OPEN') then
9504: wf_core.token('NID', to_char(p_nid));
9505: wf_core.raise('WFNTF_NID_OPEN');
9506: end if;
9507:
9508: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9509: wf_core.token('NTF_PREF', l_notification_pref);
9505: wf_core.raise('WFNTF_NID_OPEN');
9506: end if;
9507:
9508: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9509: wf_core.token('NTF_PREF', l_notification_pref);
9510: wf_core.token('RECIPIENT', l_recipient_role);
9511: wf_core.raise('WFNTF_INVALID_PREF');
9512: end if;
9513:
9506: end if;
9507:
9508: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9509: wf_core.token('NTF_PREF', l_notification_pref);
9510: wf_core.token('RECIPIENT', l_recipient_role);
9511: wf_core.raise('WFNTF_INVALID_PREF');
9512: end if;
9513:
9514: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9507:
9508: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9509: wf_core.token('NTF_PREF', l_notification_pref);
9510: wf_core.token('RECIPIENT', l_recipient_role);
9511: wf_core.raise('WFNTF_INVALID_PREF');
9512: end if;
9513:
9514: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9515: wf_core.token('MAILSTATUS', l_mail_status);
9511: wf_core.raise('WFNTF_INVALID_PREF');
9512: end if;
9513:
9514: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9515: wf_core.token('MAILSTATUS', l_mail_status);
9516: wf_core.raise('WFNTF_EMAIL_NOTSENT');
9517: end if;
9518:
9519: -- Raise the event to send an e-mail
9512: end if;
9513:
9514: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9515: wf_core.token('MAILSTATUS', l_mail_status);
9516: wf_core.raise('WFNTF_EMAIL_NOTSENT');
9517: end if;
9518:
9519: -- Raise the event to send an e-mail
9520: UPDATE wf_notifications
9547: p_parameters => l_paramlist);
9548:
9549: exception
9550: when others then
9551: wf_core.context('Wf_Notification', 'Resend', to_char(p_nid));
9552: raise;
9553: end Resend;
9554:
9555: --
9600: and PA.ACTIVITY_NAME = A.NAME
9601: and PA.ACTIVITY_ITEM_TYPE = A.ITEM_TYPE;
9602: end;
9603:
9604: p_result_display := wf_core.activity_result( l_result_type, p_result_code );
9605:
9606: exception
9607: when NO_DATA_FOUND then
9608: p_result_code := null;
9607: when NO_DATA_FOUND then
9608: p_result_code := null;
9609: p_result_display := null;
9610: when others then
9611: wf_core.context('Wf_Notification', 'getNtfResponse', to_char(p_nid));
9612: raise;
9613: end getNtfResponse;
9614:
9615: --
9647: p_user_comment => p_user_comment);
9648: end loop;
9649: exception
9650: when others then
9651: wf_core.context('Wf_Notification', 'propagatehistory', p_item_type,p_item_key, p_document_id);
9652: raise;
9653: end;
9654:
9655: --
9730: begin
9731:
9732: -- Convert from varchar2 to date format
9733: if(p_from_date is not null) then
9734: l_from_date := to_date(p_from_date, wf_core.canonical_date_mask);
9735: end if;
9736:
9737: if(p_to_date is not null) then
9738: l_to_date := to_date(p_to_date, wf_core.canonical_date_mask);
9734: l_from_date := to_date(p_from_date, wf_core.canonical_date_mask);
9735: end if;
9736:
9737: if(p_to_date is not null) then
9738: l_to_date := to_date(p_to_date, wf_core.canonical_date_mask);
9739: end if;
9740:
9741: -- if mail status is specified as null, both failed and errored
9742: -- ntfs require to be resent
9751:
9752: exception
9753: when others then
9754: -- ignore any error while enqueing
9755: Wf_Core.Clear();
9756: end;
9757: commit;
9758: end loop;
9759: close c_failed_ntfs;
9771: Wf_Notification.Resend(l_nid);
9772: exception
9773: when others then
9774: -- ignore any error while enqueing
9775: Wf_Core.Clear();
9776: end;
9777: commit;
9778: end loop;
9779: close c_error_fyi_ntfs;
9784: retcode := '0';
9785: exception
9786: when others then
9787: -- get error message into errbuf
9788: wf_core.get_error(l_errname, l_errmsg, l_errstack);
9789: if (l_errmsg is not null) then
9790: errbuf := l_errmsg;
9791: else
9792: errbuf := sqlerrm;
9901: l_charcheck boolean;
9902:
9903: begin
9904: if (nid is null) then
9905: wf_core.token('NID', to_char(nid));
9906: wf_core.raise('WFSQL_ARGS');
9907: end if;
9908:
9909: -- kma bug2376058 digital signature support
9902:
9903: begin
9904: if (nid is null) then
9905: wf_core.token('NID', to_char(nid));
9906: wf_core.raise('WFSQL_ARGS');
9907: end if;
9908:
9909: -- kma bug2376058 digital signature support
9910: begin
9910: begin
9911: proxyuser := Wf_Notification.GetAttrText(nid, '#WF_PROXIED_VIA');
9912: exception
9913: when others then
9914: if (wf_core.error_name = 'WFNTF_ATTR') then
9915: -- Pass null result if no result attribute.
9916: wf_core.clear;
9917: proxyuser := '';
9918: else
9912: exception
9913: when others then
9914: if (wf_core.error_name = 'WFNTF_ATTR') then
9915: -- Pass null result if no result attribute.
9916: wf_core.clear;
9917: proxyuser := '';
9918: else
9919: raise;
9920: end if;
9921: end;
9922: if ((proxyuser is not null) and (proxyuser <> '') and
9923: ((responder is null) or
9924: ((responder is not null) and (proxyuser <> responder)))) then
9925: wf_core.token('NID', to_char(nid));
9926: wf_core.raise('WFNTF_DIGSIG_USER_MISMATCH');
9927: end if;
9928:
9929: -- bug 2698999 Checking if ntf's signature requirements are met
9922: if ((proxyuser is not null) and (proxyuser <> '') and
9923: ((responder is null) or
9924: ((responder is not null) and (proxyuser <> responder)))) then
9925: wf_core.token('NID', to_char(nid));
9926: wf_core.raise('WFNTF_DIGSIG_USER_MISMATCH');
9927: end if;
9928:
9929: -- bug 2698999 Checking if ntf's signature requirements are met
9930: if (NOT Wf_Notification.NtfSignRequirementsMet(nid)) then
9927: end if;
9928:
9929: -- bug 2698999 Checking if ntf's signature requirements are met
9930: if (NOT Wf_Notification.NtfSignRequirementsMet(nid)) then
9931: wf_core.token('NID', to_char(nid));
9932: wf_core.raise('WFNTF_NOT_SIGNED');
9933: end if;
9934:
9935: -- Get callback, check for valid notification id.
9928:
9929: -- bug 2698999 Checking if ntf's signature requirements are met
9930: if (NOT Wf_Notification.NtfSignRequirementsMet(nid)) then
9931: wf_core.token('NID', to_char(nid));
9932: wf_core.raise('WFNTF_NOT_SIGNED');
9933: end if;
9934:
9935: -- Get callback, check for valid notification id.
9936: begin
9942: where N.NOTIFICATION_ID = nid
9943: for update nowait;
9944: exception
9945: when no_data_found then
9946: wf_core.token('NID', to_char(nid));
9947: wf_core.raise('WFNTF_NID');
9948: end;
9949:
9950: -- Check notification is open
9943: for update nowait;
9944: exception
9945: when no_data_found then
9946: wf_core.token('NID', to_char(nid));
9947: wf_core.raise('WFNTF_NID');
9948: end;
9949:
9950: -- Check notification is open
9951: if (status <> 'OPEN') then
9948: end;
9949:
9950: -- Check notification is open
9951: if (status <> 'OPEN') then
9952: wf_core.token('NID', to_char(nid));
9953: wf_core.raise('WFNTF_NID_OPEN');
9954: end if;
9955:
9956: -- Tag the DB session as this function can be call isolatedly
9949:
9950: -- Check notification is open
9951: if (status <> 'OPEN') then
9952: wf_core.token('NID', to_char(nid));
9953: wf_core.raise('WFNTF_NID_OPEN');
9954: end if;
9955:
9956: -- Tag the DB session as this function can be call isolatedly
9957: -- but first needs to find the corresponding item type
9955:
9956: -- Tag the DB session as this function can be call isolatedly
9957: -- but first needs to find the corresponding item type
9958: validate_context(respond2.context, l_item_type, l_item_key, l_act_id);
9959: WF_CORE.TAG_DB_SESSION(WF_CORE.CONN_TAG_WF, l_item_type);
9960:
9961: -- If we are in a different Fwk session, need to clear Workflow PLSQL state
9962: if (not Wfa_Sec.CheckSession) then
9963: Wf_Global.Init;
10054:
10055: -- Append the respond_comment (if any) to the user_comment
10056: -- if (respond_comment is not null) then
10057: -- if (newcomment is not null) then
10058: -- newcomment := substrb(newcomment||wf_core.newline||
10059: -- respond_comment, 1, 4000);
10060: -- else
10061: -- newcomment := respond_comment;
10062: -- end if;
10139: end loop;
10140:
10141: exception
10142: when others then
10143: wf_core.context('Wf_Notification', 'Respond', to_char(nid),
10144: respond_comment, responder);
10145: -- This call is for enhanced error handling with respect to OAFwk
10146: wf_notification.SetUIErrorMessage;
10147: raise;
10243:
10244:
10245: exception
10246: when others then
10247: wf_core.context('Wf_Notification', 'process_response', to_char(nid),
10248: respond_comment, responder);
10249: wf_core.clear;
10250: -- This call is for enhanced error handling with respect to OAFwk
10251: wf_notification.SetUIErrorMessage;
10245: exception
10246: when others then
10247: wf_core.context('Wf_Notification', 'process_response', to_char(nid),
10248: respond_comment, responder);
10249: wf_core.clear;
10250: -- This call is for enhanced error handling with respect to OAFwk
10251: wf_notification.SetUIErrorMessage;
10252: raise;
10253:
10283: tvalue := Wf_Notification.GetAttrText(p_nid, 'RESULT');
10284:
10285: exception
10286: when others then
10287: if (wf_core.error_name = 'WFNTF_ATTR') then
10288: -- Pass null result if no result attribute.
10289: wf_core.clear;
10290: tvalue := '';
10291: else
10285: exception
10286: when others then
10287: if (wf_core.error_name = 'WFNTF_ATTR') then
10288: -- Pass null result if no result attribute.
10289: wf_core.clear;
10290: tvalue := '';
10291: else
10292: raise;
10293: end if;
10303: where N.NOTIFICATION_ID = p_nid
10304: for update nowait;
10305: exception
10306: when no_data_found then
10307: wf_core.token('NID', to_char(p_nid));
10308: wf_core.raise('WFNTF_NID');
10309: end;
10310:
10311: l_charcheck := wf_notification_util.CheckIllegalChar(callback);
10304: for update nowait;
10305: exception
10306: when no_data_found then
10307: wf_core.token('NID', to_char(p_nid));
10308: wf_core.raise('WFNTF_NID');
10309: end;
10310:
10311: l_charcheck := wf_notification_util.CheckIllegalChar(callback);
10312:
10325: exception
10326: --This exception alone raise to caller
10327: when resource_busy then
10328: --Raise this exception to caller
10329: wf_core.context('WF_NOTIFICATION', 'Complete', to_char(p_nid));
10330: raise;
10331:
10332: end Complete;
10333: