[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: -- ### implement as generic log in the future
446: return(result);
447:
448: exception
449: when OTHERS then
450: wf_core.context('Wf_Notification','Wf_Msg_Attr',to_char(nid),attrs);
451: raise;
452: end wf_msg_attr;
453:
454:
600: end;
601:
602: j := 1;
603: -- title
604: cells(j) := wf_core.translate('NUM');
605: if (disptype = wf_notification.doc_html) then
606: cells(j) := 'S10%:'||cells(j);
607: end if;
608: j := j+1;
605: if (disptype = wf_notification.doc_html) then
606: cells(j) := 'S10%:'||cells(j);
607: end if;
608: j := j+1;
609: cells(j) := wf_core.translate('NAME');
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');
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('ACTION_DATE');
620: if (disptype = wf_notification.doc_html) then
621: cells(j) := 'S:'||cells(j);
622: end if;
623: j := j+1;
620: if (disptype = wf_notification.doc_html) then
621: cells(j) := 'S:'||cells(j);
622: end if;
623: j := j+1;
624: cells(j) := wf_core.translate('NOTE');
625: if (disptype = wf_notification.doc_html) then
626: cells(j) := 'S:'||cells(j);
627: end if;
628: j := j+1;
642: histr.result_type <> l_result_type or
643: histr.activity_result_code <> l_result_code) then
644: l_result_type := histr.result_type;
645: l_result_code := histr.activity_result_code;
646: l_action := wf_core.activity_result(l_result_type, l_result_code);
647: end if;
648: if (disptype = wf_notification.doc_html) then
649: if (l_action is null) then
650: cells(j) := 'S: ';
669: cells(j) := l_note;
670: exception
671: when OTHERS then
672: cells(j) := null;
673: wf_core.clear;
674: end;
675: if (disptype = wf_notification.doc_html) then
676: if (cells(j) is null) then
677: cells(j) := 'S: ';
698: histr.result_type <> l_result_type or
699: histr.activity_result_code <> l_result_code) then
700: l_result_type := histr.result_type;
701: l_result_code := histr.activity_result_code;
702: l_action := wf_core.activity_result(l_result_type, l_result_code);
703: end if;
704: if (disptype = wf_notification.doc_html) then
705: if (l_action is null) then
706: cells(j) := 'S: ';
725: cells(j) := l_note;
726: exception
727: when OTHERS then
728: cells(j) := null;
729: wf_core.clear;
730: end;
731: if (disptype = wf_notification.doc_html) then
732: if (cells(j) is null) then
733: cells(j) := 'S: ';
760: cells(j) := role_info_tbl(1).display_name;
761: end if;
762: j := j+1;
763: if (disptype = wf_notification.doc_html) then
764: cells(j) := 'S:'||wf_core.translate('SUBMIT');
765: else
766: cells(j) := wf_core.translate('SUBMIT');
767: end if;
768: j := j+1;
762: j := j+1;
763: if (disptype = wf_notification.doc_html) then
764: cells(j) := 'S:'||wf_core.translate('SUBMIT');
765: else
766: cells(j) := wf_core.translate('SUBMIT');
767: end if;
768: j := j+1;
769: if (disptype = wf_notification.doc_html) then
770: cells(j) := 'S:'||to_char(l_begin_date);
805: for k in 1..cells.LAST loop
806: if (mod(k, 5) <> 0) then
807: result := result||cells(k)||' '||l_delim||' ';
808: else
809: result := result||cells(k)||wf_core.newline;
810: end if;
811: end loop;
812: end if;
813:
813:
814: return(result);
815: exception
816: when OTHERS then
817: wf_core.context('Wf_Notification', 'Wf_NTF_History', to_char(nid));
818: raise;
819: end wf_ntf_history;
820: **
821: ** End of obsoleted procedure WF_NTF_HISTORY
905: return(l_body);
906:
907: exception
908: when OTHERS then
909: wf_core.context('Wf_Notification', 'runFuncOnBody', to_char(nid), disptype);
910: raise;
911: end runFuncOnBody;
912:
913: -- More Info mailer support
1020: when OTHERS then --no_data_found or invalid_number
1021: itemtype:=null;
1022: itemkey:=null;
1023: actid:=null;
1024: wf_core.context('Wf_Notification', 'validate_context', context);
1025: raise;
1026: end validate_context;
1027:
1028:
1043: is
1044: dummy pls_integer;
1045: begin
1046: if ((nid is null) or (aname is null)) then
1047: wf_core.token('NID', to_char(nid));
1048: wf_core.token('ANAME', aname);
1049: wf_core.raise('WFSQL_ARGS');
1050: end if;
1051:
1044: dummy pls_integer;
1045: begin
1046: if ((nid is null) or (aname is null)) then
1047: wf_core.token('NID', to_char(nid));
1048: wf_core.token('ANAME', aname);
1049: wf_core.raise('WFSQL_ARGS');
1050: end if;
1051:
1052: -- Insure this is a valid notification.
1045: begin
1046: if ((nid is null) or (aname is null)) then
1047: wf_core.token('NID', to_char(nid));
1048: wf_core.token('ANAME', aname);
1049: wf_core.raise('WFSQL_ARGS');
1050: end if;
1051:
1052: -- Insure this is a valid notification.
1053: begin
1056: from WF_NOTIFICATIONS
1057: where NOTIFICATION_ID = nid);
1058: exception
1059: when no_data_found then
1060: wf_core.token('NID', to_char(nid));
1061: wf_core.raise('WFNTF_NID');
1062: end;
1063:
1064: -- Insert new attribute
1057: where NOTIFICATION_ID = nid);
1058: exception
1059: when no_data_found then
1060: wf_core.token('NID', to_char(nid));
1061: wf_core.raise('WFNTF_NID');
1062: end;
1063:
1064: -- Insert new attribute
1065: begin
1077: ''
1078: );
1079: exception
1080: when dup_val_on_index then
1081: wf_core.token('NID', to_char(nid));
1082: wf_core.token('ATTRIBUTE', aname);
1083: wf_core.raise('WFNTF_ATTR_UNIQUE');
1084: end;
1085:
1078: );
1079: exception
1080: when dup_val_on_index then
1081: wf_core.token('NID', to_char(nid));
1082: wf_core.token('ATTRIBUTE', aname);
1083: wf_core.raise('WFNTF_ATTR_UNIQUE');
1084: end;
1085:
1086: exception
1079: exception
1080: when dup_val_on_index then
1081: wf_core.token('NID', to_char(nid));
1082: wf_core.token('ATTRIBUTE', aname);
1083: wf_core.raise('WFNTF_ATTR_UNIQUE');
1084: end;
1085:
1086: exception
1087: when others then
1084: end;
1085:
1086: exception
1087: when others then
1088: wf_core.context('Wf_Notification', 'AddAttr', to_char(nid), aname);
1089: raise;
1090: end AddAttr;
1091:
1092: --
1113: l_recipient_role varchar2(320);
1114:
1115: begin
1116: if ((nid is null) or (aname is null)) then
1117: wf_core.token('NID', to_char(nid));
1118: wf_core.token('ANAME', aname);
1119: wf_core.raise('WFSQL_ARGS');
1120: end if;
1121:
1114:
1115: begin
1116: if ((nid is null) or (aname is null)) then
1117: wf_core.token('NID', to_char(nid));
1118: wf_core.token('ANAME', aname);
1119: wf_core.raise('WFSQL_ARGS');
1120: end if;
1121:
1122: -- Get type and format of attr.
1115: begin
1116: if ((nid is null) or (aname is null)) then
1117: wf_core.token('NID', to_char(nid));
1118: wf_core.token('ANAME', aname);
1119: wf_core.raise('WFSQL_ARGS');
1120: end if;
1121:
1122: -- Get type and format of attr.
1123: -- This is used for translating number/date strings.
1189: AND rownum = 1;
1190: exception
1191: when no_data_found then
1192: -- Not displayed or internal role name, error
1193: wf_core.token('ROLE', avalue);
1194: wf_core.raise('WFNTF_ROLE');
1195: end;
1196: end if;
1197: end if;
1190: exception
1191: when no_data_found then
1192: -- Not displayed or internal role name, error
1193: wf_core.token('ROLE', avalue);
1194: wf_core.raise('WFNTF_ROLE');
1195: end;
1196: end if;
1197: end if;
1198:
1210: and NAME = aname;
1211: end if;
1212:
1213: if (SQL%NOTFOUND) then
1214: wf_core.token('NID', to_char(nid));
1215: wf_core.token('ATTRIBUTE', aname);
1216: wf_core.raise('WFNTF_ATTR');
1217: end if;
1218:
1211: end if;
1212:
1213: if (SQL%NOTFOUND) then
1214: wf_core.token('NID', to_char(nid));
1215: wf_core.token('ATTRIBUTE', aname);
1216: wf_core.raise('WFNTF_ATTR');
1217: end if;
1218:
1219: -- Redenormalize if attribute being updated is #FROM_ROLE
1212:
1213: if (SQL%NOTFOUND) then
1214: wf_core.token('NID', to_char(nid));
1215: wf_core.token('ATTRIBUTE', aname);
1216: wf_core.raise('WFNTF_ATTR');
1217: end if;
1218:
1219: -- Redenormalize if attribute being updated is #FROM_ROLE
1220: if (aname = '#FROM_ROLE') then
1255: end if;
1256:
1257: exception
1258: when others then
1259: wf_core.context('Wf_Notification', 'SetAttrText', to_char(nid),
1260: aname, avalue);
1261: raise;
1262: end SetAttrText;
1263:
1275: avalue in number)
1276: is
1277: begin
1278: if ((nid is null) or (aname is null)) then
1279: wf_core.token('NID', to_char(nid));
1280: wf_core.token('ANAME', aname);
1281: wf_core.raise('WFSQL_ARGS');
1282: end if;
1283:
1276: is
1277: begin
1278: if ((nid is null) or (aname is null)) then
1279: wf_core.token('NID', to_char(nid));
1280: wf_core.token('ANAME', aname);
1281: wf_core.raise('WFSQL_ARGS');
1282: end if;
1283:
1284: -- Update attribute value
1277: begin
1278: if ((nid is null) or (aname is null)) then
1279: wf_core.token('NID', to_char(nid));
1280: wf_core.token('ANAME', aname);
1281: wf_core.raise('WFSQL_ARGS');
1282: end if;
1283:
1284: -- Update attribute value
1285: update WF_NOTIFICATION_ATTRIBUTES
1286: set NUMBER_VALUE = avalue
1287: where NOTIFICATION_ID = nid and NAME = aname;
1288:
1289: if (SQL%NOTFOUND) then
1290: wf_core.token('NID', to_char(nid));
1291: wf_core.token('ATTRIBUTE', aname);
1292: wf_core.raise('WFNTF_ATTR');
1293: end if;
1294:
1287: where NOTIFICATION_ID = nid and NAME = aname;
1288:
1289: if (SQL%NOTFOUND) then
1290: wf_core.token('NID', to_char(nid));
1291: wf_core.token('ATTRIBUTE', aname);
1292: wf_core.raise('WFNTF_ATTR');
1293: end if;
1294:
1295: exception
1288:
1289: if (SQL%NOTFOUND) then
1290: wf_core.token('NID', to_char(nid));
1291: wf_core.token('ATTRIBUTE', aname);
1292: wf_core.raise('WFNTF_ATTR');
1293: end if;
1294:
1295: exception
1296: when others then
1293: end if;
1294:
1295: exception
1296: when others then
1297: wf_core.context('Wf_Notification', 'SetAttrNumber', to_char(nid),
1298: aname, to_char(avalue));
1299: raise;
1300: end SetAttrNumber;
1301:
1313: avalue in date)
1314: is
1315: begin
1316: if ((nid is null) or (aname is null)) then
1317: wf_core.token('NID', to_char(nid));
1318: wf_core.token('ANAME', aname);
1319: wf_core.raise('WFSQL_ARGS');
1320: end if;
1321:
1314: is
1315: begin
1316: if ((nid is null) or (aname is null)) then
1317: wf_core.token('NID', to_char(nid));
1318: wf_core.token('ANAME', aname);
1319: wf_core.raise('WFSQL_ARGS');
1320: end if;
1321:
1322: -- Update attribute value
1315: begin
1316: if ((nid is null) or (aname is null)) then
1317: wf_core.token('NID', to_char(nid));
1318: wf_core.token('ANAME', aname);
1319: wf_core.raise('WFSQL_ARGS');
1320: end if;
1321:
1322: -- Update attribute value
1323: update WF_NOTIFICATION_ATTRIBUTES
1324: set DATE_VALUE = avalue
1325: where NOTIFICATION_ID = nid and NAME = aname;
1326:
1327: if (SQL%NOTFOUND) then
1328: wf_core.token('NID', to_char(nid));
1329: wf_core.token('ATTRIBUTE', aname);
1330: wf_core.raise('WFNTF_ATTR');
1331: end if;
1332:
1325: where NOTIFICATION_ID = nid and NAME = aname;
1326:
1327: if (SQL%NOTFOUND) then
1328: wf_core.token('NID', to_char(nid));
1329: wf_core.token('ATTRIBUTE', aname);
1330: wf_core.raise('WFNTF_ATTR');
1331: end if;
1332:
1333: exception
1326:
1327: if (SQL%NOTFOUND) then
1328: wf_core.token('NID', to_char(nid));
1329: wf_core.token('ATTRIBUTE', aname);
1330: wf_core.raise('WFNTF_ATTR');
1331: end if;
1332:
1333: exception
1334: when others then
1331: end if;
1332:
1333: exception
1334: when others then
1335: wf_core.context('Wf_Notification', 'SetAttrDate', to_char(nid),
1336: aname, to_char(avalue));
1337: raise;
1338: end SetAttrDate;
1339:
1430: buf := replace(buf, '"', l_amp||'quot;');
1431: return buf;
1432: exception
1433: when others then
1434: wf_core.context('Wf_Notification', 'SubstituteSpecialChars');
1435: raise;
1436: end SubstituteSpecialChars;
1437:
1438: --
1537: -- bug 6025162 - SubstituteSpecialChars function substitutes only those
1538: -- characters that really require substitution. Any valid occurences
1539: -- will be retained. No validation required from calling program.
1540:
1541: value := wf_core.SubstituteSpecialChars(value);
1542: end if;
1543:
1544: elsif (not_attr_row.type = 'NUMBER') then
1545: -- NUMBER is number_value, with format if provided.
1681: end if;
1682: return(local_text);
1683: exception
1684: when others then
1685: wf_core.context('Wf_Notification','GetTextInternal', to_char(nid), disptype);
1686: raise;
1687: end GetTextInternal;
1688:
1689:
1714: --If the URL is a javascript function then
1715: --do not prefix the web agent to the URL.
1716: return value;
1717: end if;
1718: if ((wf_core.Translate('WF_INSTALL')='EMBEDDED') AND
1719: (substr(value, 1, 4) = 'JSP:')) then
1720: -- The URL is a APPS Framework reference and will need
1721: -- the JSP Agent rather than the WEB Agent
1722: value := substr(value, 5);
1734: -- CTILLEY: Added additional check to make sure a trailing slash
1735: -- is added to the WF_WEB_AGENT if it isn't the first character
1736: -- in the value. Fix for bug 2207322.
1737: if substr(value,1,1)='/' then
1738: value := wf_core.translate('WF_WEB_AGENT')||value;
1739: else
1740: value := wf_core.translate('WF_WEB_AGENT')||'/'||value;
1741: end if;
1742: end if;
1736: -- in the value. Fix for bug 2207322.
1737: if substr(value,1,1)='/' then
1738: value := wf_core.translate('WF_WEB_AGENT')||value;
1739: else
1740: value := wf_core.translate('WF_WEB_AGENT')||'/'||value;
1741: end if;
1742: end if;
1743: end if;
1744: return value;
1744: return value;
1745:
1746: exception
1747: when others then
1748: wf_core.context('Wf_Notification', 'SetFrameworkAgent', url);
1749: end;
1750:
1751:
1752:
1854: -- bug 6025162 - SubstituteSpecialChars function substitutes only those
1855: -- characters that really require subsstitution. Any valid occurences
1856: -- will be retained. No validation required from calling program.
1857:
1858: value := wf_core.SubstituteSpecialChars(value);
1859:
1860: -- end if;
1861: value := substrb(replace(value, wf_core.newline,
1862: '
'||wf_core.newline),1, 32000);
1857:
1858: value := wf_core.SubstituteSpecialChars(value);
1859:
1860: -- end if;
1861: value := substrb(replace(value, wf_core.newline,
1862: '
'||wf_core.newline),1, 32000);
1863: end if;
1864:
1865: elsif (not_attr_row.type = 'NUMBER') then
1858: value := wf_core.SubstituteSpecialChars(value);
1859:
1860: -- end if;
1861: value := substrb(replace(value, wf_core.newline,
1862: '
'||wf_core.newline),1, 32000);
1863: end if;
1864:
1865: elsif (not_attr_row.type = 'NUMBER') then
1866: -- NUMBER is number_value, with format if provided.
1872: elsif (not_attr_row.type = 'DATE') then
1873: --
1874: -- not_attr_row.format, wf_notification_util.G_NLS_DATE_FORMAT (if nid is provided
1875: -- and matches wf_notification_util.G_NID), session user's WFDS preference,
1876: -- and wf_core.nls_date_format.
1877: value := wf_notification_util.GetCalendarDate(nid, not_attr_row.date_value
1878: , not_attr_row.format, false);
1879:
1880: elsif (not_attr_row.type = 'FORM') then
1892: if (disptype = wf_notification.doc_html) then
1893: -- Bug 4634849
1894: -- Do not display potentially harmful text
1895: begin
1896: l_dummy := wf_core.CheckIllegalChars(value,true,';<>()');
1897: exception
1898: when OTHERS then
1899: wf_core.get_error(error_name, value, error_stack);
1900:
1895: begin
1896: l_dummy := wf_core.CheckIllegalChars(value,true,';<>()');
1897: exception
1898: when OTHERS then
1899: wf_core.get_error(error_name, value, error_stack);
1900:
1901: value :=wf_core.substitutespecialchars(value);
1902: error_stack:= '';
1903:
1897: exception
1898: when OTHERS then
1899: wf_core.get_error(error_name, value, error_stack);
1900:
1901: value :=wf_core.substitutespecialchars(value);
1902: error_stack:= '';
1903:
1904: end;
1905: end if;
1920: if (disptype = wf_notification.doc_html) then
1921: -- Bug 4634849
1922: -- Do not display potentially harmful url
1923: begin
1924: if (not wf_core.CheckIllegalChars(value,true, ';<>"')) then
1925:
1926: -- 4713416 Determine the display formatting for the URI
1927: -- First validate the prefix to the known types.
1928: renderType := upper(substr(value, 1, 4));
1963: end if;
1964: end if;
1965: exception
1966: when OTHERS then
1967: wf_core.get_error(error_name, value, error_stack);
1968:
1969: value :=wf_core.substitutespecialchars(value);
1970: error_stack:= '';
1971:
1965: exception
1966: when OTHERS then
1967: wf_core.get_error(error_name, value, error_stack);
1968:
1969: value :=wf_core.substitutespecialchars(value);
1970: error_stack:= '';
1971:
1972: end;
1973: else
1977:
1978: elsif (not_attr_row.type = 'DOCUMENT') then
1979: --skilaru 28-July-03 fix for bug 3042471
1980: if( instr(not_attr_row.text_value, fwk_region_start) = 1 ) then
1981: wf_core.token('ANAME', not_attr_row.name );
1982: wf_core.token('FWK_CONTENT', not_attr_row.text_value );
1983: value := wf_core.translate('WFUNSUP_FWK_CONTENT');
1984: else
1985: -- DOCUMENT type retrieve document contents
1978: elsif (not_attr_row.type = 'DOCUMENT') then
1979: --skilaru 28-July-03 fix for bug 3042471
1980: if( instr(not_attr_row.text_value, fwk_region_start) = 1 ) then
1981: wf_core.token('ANAME', not_attr_row.name );
1982: wf_core.token('FWK_CONTENT', not_attr_row.text_value );
1983: value := wf_core.translate('WFUNSUP_FWK_CONTENT');
1984: else
1985: -- DOCUMENT type retrieve document contents
1986: -- Bug 2879507 if doc generation fails, let the error propagate
1979: --skilaru 28-July-03 fix for bug 3042471
1980: if( instr(not_attr_row.text_value, fwk_region_start) = 1 ) then
1981: wf_core.token('ANAME', not_attr_row.name );
1982: wf_core.token('FWK_CONTENT', not_attr_row.text_value );
1983: value := wf_core.translate('WFUNSUP_FWK_CONTENT');
1984: else
1985: -- DOCUMENT type retrieve document contents
1986: -- Bug 2879507 if doc generation fails, let the error propagate
1987: -- to the caller
2012: -- All others default to text_value
2013: value := not_attr_row.text_value;
2014:
2015: if (disptype = wf_notification.doc_html) then
2016: value := wf_core.substitutespecialchars(value);
2017: end if;
2018: end if;
2019:
2020: -- Substitute all occurrences of SEND tokens with values.
2039: to_char(nid)), 1, 32000);
2040: return(local_text);
2041: exception
2042: when others then
2043: wf_core.context('Wf_Notification','GetText', to_char(nid), disptype);
2044: raise;
2045: -- return(some_text);
2046: end GetText;
2047:
2070: return(GetTextInternal(some_text, nid, target, TRUE, TRUE, 'text/plain'));
2071: exception
2072: when others then
2073: -- Return the error message with error stack
2074: l_error := wf_core.translate('ERROR') || wf_core.newline;
2075: if (wf_core.error_name is not null) then
2076: l_error := l_error || wf_core.error_message || wf_core.newline;
2077: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2078: wf_core.error_name || wf_core.newline;
2071: exception
2072: when others then
2073: -- Return the error message with error stack
2074: l_error := wf_core.translate('ERROR') || wf_core.newline;
2075: if (wf_core.error_name is not null) then
2076: l_error := l_error || wf_core.error_message || wf_core.newline;
2077: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2078: wf_core.error_name || wf_core.newline;
2079: else
2072: when others then
2073: -- Return the error message with error stack
2074: l_error := wf_core.translate('ERROR') || wf_core.newline;
2075: if (wf_core.error_name is not null) then
2076: l_error := l_error || wf_core.error_message || wf_core.newline;
2077: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2078: wf_core.error_name || wf_core.newline;
2079: else
2080: l_error := l_error || sqlerrm || wf_core.newline;
2073: -- Return the error message with error stack
2074: l_error := wf_core.translate('ERROR') || wf_core.newline;
2075: if (wf_core.error_name is not null) then
2076: l_error := l_error || wf_core.error_message || wf_core.newline;
2077: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2078: wf_core.error_name || wf_core.newline;
2079: else
2080: l_error := l_error || sqlerrm || wf_core.newline;
2081: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2074: l_error := wf_core.translate('ERROR') || wf_core.newline;
2075: if (wf_core.error_name is not null) then
2076: l_error := l_error || wf_core.error_message || wf_core.newline;
2077: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2078: wf_core.error_name || wf_core.newline;
2079: else
2080: l_error := l_error || sqlerrm || wf_core.newline;
2081: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2082: to_char(sqlcode) || wf_core.newline;
2076: l_error := l_error || wf_core.error_message || wf_core.newline;
2077: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2078: wf_core.error_name || wf_core.newline;
2079: else
2080: l_error := l_error || sqlerrm || wf_core.newline;
2081: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2082: to_char(sqlcode) || wf_core.newline;
2083: end if;
2084: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2077: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2078: wf_core.error_name || wf_core.newline;
2079: else
2080: l_error := l_error || sqlerrm || wf_core.newline;
2081: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2082: to_char(sqlcode) || wf_core.newline;
2083: end if;
2084: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2085: wf_core.error_stack || wf_core.newline;
2078: wf_core.error_name || wf_core.newline;
2079: else
2080: l_error := l_error || sqlerrm || wf_core.newline;
2081: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2082: to_char(sqlcode) || wf_core.newline;
2083: end if;
2084: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2085: wf_core.error_stack || wf_core.newline;
2086: return (substrb(l_error, 1, 1950));
2080: l_error := l_error || sqlerrm || wf_core.newline;
2081: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2082: to_char(sqlcode) || wf_core.newline;
2083: end if;
2084: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2085: wf_core.error_stack || wf_core.newline;
2086: return (substrb(l_error, 1, 1950));
2087: end GetUrlText;
2088:
2081: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2082: to_char(sqlcode) || wf_core.newline;
2083: end if;
2084: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2085: wf_core.error_stack || wf_core.newline;
2086: return (substrb(l_error, 1, 1950));
2087: end GetUrlText;
2088:
2089: --
2113: return(GetTextInternal(some_text, nid, target, FALSE, TRUE));
2114: exception
2115: when others then
2116: -- Return the error message with error stack if GetTextInternal raises
2117: l_error := wf_core.translate('ERROR') || wf_core.newline;
2118: if (wf_core.error_name is not null) then
2119: l_error := l_error || wf_core.error_message || wf_core.newline;
2120: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2121: wf_core.error_name || wf_core.newline;
2114: exception
2115: when others then
2116: -- Return the error message with error stack if GetTextInternal raises
2117: l_error := wf_core.translate('ERROR') || wf_core.newline;
2118: if (wf_core.error_name is not null) then
2119: l_error := l_error || wf_core.error_message || wf_core.newline;
2120: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2121: wf_core.error_name || wf_core.newline;
2122: else
2115: when others then
2116: -- Return the error message with error stack if GetTextInternal raises
2117: l_error := wf_core.translate('ERROR') || wf_core.newline;
2118: if (wf_core.error_name is not null) then
2119: l_error := l_error || wf_core.error_message || wf_core.newline;
2120: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2121: wf_core.error_name || wf_core.newline;
2122: else
2123: l_error := l_error || sqlerrm || wf_core.newline;
2116: -- Return the error message with error stack if GetTextInternal raises
2117: l_error := wf_core.translate('ERROR') || wf_core.newline;
2118: if (wf_core.error_name is not null) then
2119: l_error := l_error || wf_core.error_message || wf_core.newline;
2120: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2121: wf_core.error_name || wf_core.newline;
2122: else
2123: l_error := l_error || sqlerrm || wf_core.newline;
2124: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2117: l_error := wf_core.translate('ERROR') || wf_core.newline;
2118: if (wf_core.error_name is not null) then
2119: l_error := l_error || wf_core.error_message || wf_core.newline;
2120: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2121: wf_core.error_name || wf_core.newline;
2122: else
2123: l_error := l_error || sqlerrm || wf_core.newline;
2124: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2125: to_char(sqlcode) || wf_core.newline;
2119: l_error := l_error || wf_core.error_message || wf_core.newline;
2120: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2121: wf_core.error_name || wf_core.newline;
2122: else
2123: l_error := l_error || sqlerrm || wf_core.newline;
2124: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2125: to_char(sqlcode) || wf_core.newline;
2126: end if;
2127: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2120: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2121: wf_core.error_name || wf_core.newline;
2122: else
2123: l_error := l_error || sqlerrm || wf_core.newline;
2124: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2125: to_char(sqlcode) || wf_core.newline;
2126: end if;
2127: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2128: wf_core.error_stack||wf_core.newline;
2121: wf_core.error_name || wf_core.newline;
2122: else
2123: l_error := l_error || sqlerrm || wf_core.newline;
2124: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2125: to_char(sqlcode) || wf_core.newline;
2126: end if;
2127: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2128: wf_core.error_stack||wf_core.newline;
2129: return (substrb(l_error, 1, 1950));
2123: l_error := l_error || sqlerrm || wf_core.newline;
2124: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2125: to_char(sqlcode) || wf_core.newline;
2126: end if;
2127: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2128: wf_core.error_stack||wf_core.newline;
2129: return (substrb(l_error, 1, 1950));
2130:
2131: end GetShortText;
2124: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2125: to_char(sqlcode) || wf_core.newline;
2126: end if;
2127: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2128: wf_core.error_stack||wf_core.newline;
2129: return (substrb(l_error, 1, 1950));
2130:
2131: end GetShortText;
2132:
2148: format out nocopy varchar2)
2149: is
2150: begin
2151: if ((nid is null) or (aname is null)) then
2152: wf_core.token('NID', to_char(nid));
2153: wf_core.token('ANAME', aname);
2154: wf_core.raise('WFSQL_ARGS');
2155: end if;
2156:
2149: is
2150: begin
2151: if ((nid is null) or (aname is null)) then
2152: wf_core.token('NID', to_char(nid));
2153: wf_core.token('ANAME', aname);
2154: wf_core.raise('WFSQL_ARGS');
2155: end if;
2156:
2157: begin
2150: begin
2151: if ((nid is null) or (aname is null)) then
2152: wf_core.token('NID', to_char(nid));
2153: wf_core.token('ANAME', aname);
2154: wf_core.raise('WFSQL_ARGS');
2155: end if;
2156:
2157: begin
2158: select WMA.TYPE, WMA.SUBTYPE, WMA.FORMAT
2166: and WN.MESSAGE_NAME = WMA.MESSAGE_NAME
2167: and WMA.NAME = WNA.NAME;
2168: exception
2169: when no_data_found then
2170: wf_core.token('NID', to_char(nid));
2171: wf_core.token('ATTRIBUTE', aname);
2172: wf_core.raise('WFNTF_ATTR');
2173: end;
2174:
2167: and WMA.NAME = WNA.NAME;
2168: exception
2169: when no_data_found then
2170: wf_core.token('NID', to_char(nid));
2171: wf_core.token('ATTRIBUTE', aname);
2172: wf_core.raise('WFNTF_ATTR');
2173: end;
2174:
2175: exception
2168: exception
2169: when no_data_found then
2170: wf_core.token('NID', to_char(nid));
2171: wf_core.token('ATTRIBUTE', aname);
2172: wf_core.raise('WFNTF_ATTR');
2173: end;
2174:
2175: exception
2176: when others then
2173: end;
2174:
2175: exception
2176: when others then
2177: wf_core.context('Wf_Notification', 'GetAttrInfo', to_char(nid),
2178: aname);
2179: raise;
2180: end GetAttrInfo;
2181:
2201: params pls_integer;
2202: l_valDate date;
2203: begin
2204: if ((nid is null) or (aname is null)) then
2205: wf_core.token('NID', to_char(nid));
2206: wf_core.token('ANAME', aname);
2207: wf_core.raise('WFSQL_ARGS');
2208: end if;
2209:
2202: l_valDate date;
2203: begin
2204: if ((nid is null) or (aname is null)) then
2205: wf_core.token('NID', to_char(nid));
2206: wf_core.token('ANAME', aname);
2207: wf_core.raise('WFSQL_ARGS');
2208: end if;
2209:
2210: -- Get type and format of attr.
2203: begin
2204: if ((nid is null) or (aname is null)) then
2205: wf_core.token('NID', to_char(nid));
2206: wf_core.token('ANAME', aname);
2207: wf_core.raise('WFSQL_ARGS');
2208: end if;
2209:
2210: -- Get type and format of attr.
2211: -- This is used for translating number/date strings.
2278: when no_data_found then
2279: if (ignore_notfound) then
2280: return(null);
2281: else
2282: wf_core.token('NID', to_char(nid));
2283: wf_core.token('ATTRIBUTE', aname);
2284: wf_core.raise('WFNTF_ATTR');
2285: end if;
2286: end;
2279: if (ignore_notfound) then
2280: return(null);
2281: else
2282: wf_core.token('NID', to_char(nid));
2283: wf_core.token('ATTRIBUTE', aname);
2284: wf_core.raise('WFNTF_ATTR');
2285: end if;
2286: end;
2287:
2280: return(null);
2281: else
2282: wf_core.token('NID', to_char(nid));
2283: wf_core.token('ATTRIBUTE', aname);
2284: wf_core.raise('WFNTF_ATTR');
2285: end if;
2286: end;
2287:
2288: return(lvalue);
2287:
2288: return(lvalue);
2289: exception
2290: when others then
2291: wf_core.context('Wf_Notification', 'GetAttrText', to_char(nid), aname);
2292: raise;
2293: end GetAttrText;
2294:
2295: --
2307: return number is
2308: lvalue number;
2309: begin
2310: if ((nid is null) or (aname is null)) then
2311: wf_core.token('NID', to_char(nid));
2312: wf_core.token('ANAME', aname);
2313: wf_core.raise('WFSQL_ARGS');
2314: end if;
2315:
2308: lvalue number;
2309: begin
2310: if ((nid is null) or (aname is null)) then
2311: wf_core.token('NID', to_char(nid));
2312: wf_core.token('ANAME', aname);
2313: wf_core.raise('WFSQL_ARGS');
2314: end if;
2315:
2316: begin
2309: begin
2310: if ((nid is null) or (aname is null)) then
2311: wf_core.token('NID', to_char(nid));
2312: wf_core.token('ANAME', aname);
2313: wf_core.raise('WFSQL_ARGS');
2314: end if;
2315:
2316: begin
2317: select WNA.NUMBER_VALUE
2319: from WF_NOTIFICATION_ATTRIBUTES WNA
2320: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2321: exception
2322: when no_data_found then
2323: wf_core.token('NID', to_char(nid));
2324: wf_core.token('ATTRIBUTE', aname);
2325: wf_core.raise('WFNTF_ATTR');
2326: end;
2327:
2320: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2321: exception
2322: when no_data_found then
2323: wf_core.token('NID', to_char(nid));
2324: wf_core.token('ATTRIBUTE', aname);
2325: wf_core.raise('WFNTF_ATTR');
2326: end;
2327:
2328: return(lvalue);
2321: exception
2322: when no_data_found then
2323: wf_core.token('NID', to_char(nid));
2324: wf_core.token('ATTRIBUTE', aname);
2325: wf_core.raise('WFNTF_ATTR');
2326: end;
2327:
2328: return(lvalue);
2329: exception
2327:
2328: return(lvalue);
2329: exception
2330: when others then
2331: wf_core.context('Wf_Notification', 'GetAttrNumber', to_char(nid), aname);
2332: raise;
2333: end GetAttrNumber;
2334:
2335: --
2347: return date is
2348: lvalue date;
2349: begin
2350: if ((nid is null) or (aname is null)) then
2351: wf_core.token('NID', to_char(nid));
2352: wf_core.token('ANAME', aname);
2353: wf_core.raise('WFSQL_ARGS');
2354: end if;
2355:
2348: lvalue date;
2349: begin
2350: if ((nid is null) or (aname is null)) then
2351: wf_core.token('NID', to_char(nid));
2352: wf_core.token('ANAME', aname);
2353: wf_core.raise('WFSQL_ARGS');
2354: end if;
2355:
2356: begin
2349: begin
2350: if ((nid is null) or (aname is null)) then
2351: wf_core.token('NID', to_char(nid));
2352: wf_core.token('ANAME', aname);
2353: wf_core.raise('WFSQL_ARGS');
2354: end if;
2355:
2356: begin
2357: select WNA.DATE_VALUE
2359: from WF_NOTIFICATION_ATTRIBUTES WNA
2360: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2361: exception
2362: when no_data_found then
2363: wf_core.token('NID', to_char(nid));
2364: wf_core.token('ATTRIBUTE', aname);
2365: wf_core.raise('WFNTF_ATTR');
2366: end;
2367:
2360: where WNA.NOTIFICATION_ID = nid and WNA.NAME = aname;
2361: exception
2362: when no_data_found then
2363: wf_core.token('NID', to_char(nid));
2364: wf_core.token('ATTRIBUTE', aname);
2365: wf_core.raise('WFNTF_ATTR');
2366: end;
2367:
2368: return(lvalue);
2361: exception
2362: when no_data_found then
2363: wf_core.token('NID', to_char(nid));
2364: wf_core.token('ATTRIBUTE', aname);
2365: wf_core.raise('WFNTF_ATTR');
2366: end;
2367:
2368: return(lvalue);
2369: exception
2367:
2368: return(lvalue);
2369: exception
2370: when others then
2371: wf_core.context('Wf_Notification', 'GetAttrDate', to_char(nid), aname);
2372: raise;
2373: end GetAttrDate;
2374:
2375: --
2407: return (document);
2408:
2409: exception
2410: when others then
2411: wf_core.context('Wf_Notification', 'GetAttrDoc', to_char(nid), aname,
2412: disptype);
2413: raise;
2414: end GetAttrDoc;
2415:
2441: -- Check args
2442: if ((nid is null) or (aname is null) or
2443: (disptype not in (wf_notification.doc_text,
2444: wf_notification.doc_html))) then
2445: wf_core.token('NID', to_char(nid));
2446: wf_core.token('ANAME', aname);
2447: wf_core.token('DISPTYPE', disptype);
2448: wf_core.raise('WFSQL_ARGS');
2449: end if;
2442: if ((nid is null) or (aname is null) or
2443: (disptype not in (wf_notification.doc_text,
2444: wf_notification.doc_html))) then
2445: wf_core.token('NID', to_char(nid));
2446: wf_core.token('ANAME', aname);
2447: wf_core.token('DISPTYPE', disptype);
2448: wf_core.raise('WFSQL_ARGS');
2449: end if;
2450:
2443: (disptype not in (wf_notification.doc_text,
2444: wf_notification.doc_html))) then
2445: wf_core.token('NID', to_char(nid));
2446: wf_core.token('ANAME', aname);
2447: wf_core.token('DISPTYPE', disptype);
2448: wf_core.raise('WFSQL_ARGS');
2449: end if;
2450:
2451: -- Retrieve key string
2444: wf_notification.doc_html))) then
2445: wf_core.token('NID', to_char(nid));
2446: wf_core.token('ANAME', aname);
2447: wf_core.token('DISPTYPE', disptype);
2448: wf_core.raise('WFSQL_ARGS');
2449: end if;
2450:
2451: -- Retrieve key string
2452: key := GetAttrText(nid, aname);
2575: end if;
2576: document := null;
2577: exception
2578: when others then
2579: wf_core.context('wf_notification', 'GetAttrDoc2', to_char(nid), aname, disptype);
2580: raise;
2581: end GetAttrDoc2;
2582:
2583: -- bug 2581129
2619:
2620: exception
2621: when others then
2622: -- Return the error message with error stack
2623: l_error := wf_core.translate('ERROR') || wf_core.newline;
2624: if (wf_core.error_name is not null) then
2625: l_error := l_error || wf_core.error_message || wf_core.newline;
2626: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2627: wf_core.error_name || wf_core.newline;
2620: exception
2621: when others then
2622: -- Return the error message with error stack
2623: l_error := wf_core.translate('ERROR') || wf_core.newline;
2624: if (wf_core.error_name is not null) then
2625: l_error := l_error || wf_core.error_message || wf_core.newline;
2626: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2627: wf_core.error_name || wf_core.newline;
2628: else
2621: when others then
2622: -- Return the error message with error stack
2623: l_error := wf_core.translate('ERROR') || wf_core.newline;
2624: if (wf_core.error_name is not null) then
2625: l_error := l_error || wf_core.error_message || wf_core.newline;
2626: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2627: wf_core.error_name || wf_core.newline;
2628: else
2629: l_error := l_error || sqlerrm || wf_core.newline;
2622: -- Return the error message with error stack
2623: l_error := wf_core.translate('ERROR') || wf_core.newline;
2624: if (wf_core.error_name is not null) then
2625: l_error := l_error || wf_core.error_message || wf_core.newline;
2626: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2627: wf_core.error_name || wf_core.newline;
2628: else
2629: l_error := l_error || sqlerrm || wf_core.newline;
2630: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2623: l_error := wf_core.translate('ERROR') || wf_core.newline;
2624: if (wf_core.error_name is not null) then
2625: l_error := l_error || wf_core.error_message || wf_core.newline;
2626: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2627: wf_core.error_name || wf_core.newline;
2628: else
2629: l_error := l_error || sqlerrm || wf_core.newline;
2630: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2631: to_char(sqlcode) || wf_core.newline;
2625: l_error := l_error || wf_core.error_message || wf_core.newline;
2626: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2627: wf_core.error_name || wf_core.newline;
2628: else
2629: l_error := l_error || sqlerrm || wf_core.newline;
2630: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2631: to_char(sqlcode) || wf_core.newline;
2632: end if;
2633: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2626: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2627: wf_core.error_name || wf_core.newline;
2628: else
2629: l_error := l_error || sqlerrm || wf_core.newline;
2630: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2631: to_char(sqlcode) || wf_core.newline;
2632: end if;
2633: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2634: wf_core.error_stack || wf_core.newline;
2627: wf_core.error_name || wf_core.newline;
2628: else
2629: l_error := l_error || sqlerrm || wf_core.newline;
2630: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2631: to_char(sqlcode) || wf_core.newline;
2632: end if;
2633: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2634: wf_core.error_stack || wf_core.newline;
2635: return (substrb(l_error, 1, 240));
2629: l_error := l_error || sqlerrm || wf_core.newline;
2630: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2631: to_char(sqlcode) || wf_core.newline;
2632: end if;
2633: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2634: wf_core.error_stack || wf_core.newline;
2635: return (substrb(l_error, 1, 240));
2636: end GetSubject;
2637:
2630: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2631: to_char(sqlcode) || wf_core.newline;
2632: end if;
2633: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2634: wf_core.error_stack || wf_core.newline;
2635: return (substrb(l_error, 1, 240));
2636: end GetSubject;
2637:
2638: -- GetSubject
2742: l_cust_hist := Wf_Notification.GetAttrText(nid, '#HISTORY');
2743: exception
2744: when others then
2745: l_cust_hist := '';
2746: Wf_Core.Clear;
2747: end;
2748: -- Validate if l_cust_hist has a valid PLSQL doc api attached to it. If it ever has JSP: we
2749: -- would not be here.
2750: if (l_cust_hist is not null and upper(trim(substr(l_cust_hist, 1, 5))) = 'PLSQL') then
2757: -- So, append Action History
2758: if (local_body is not null and instrb(local_body, 'WF_NOTIFICATION(HISTORY)') = 0 and
2759: instrb(local_body, '&#HISTORY') = 0) then
2760:
2761: local_body := local_body || Wf_Core.newline || l_action_hist;
2762: end if;
2763:
2764: if (local_html_body is not null and instrb(local_html_body, 'WF_NOTIFICATION(HISTORY)') = 0 and
2765: instrb(local_html_body, '&#HISTORY') = 0) then
2778: return(local_body);
2779: else
2780: if (local_html_body is null) then
2781: --use the plain text body but fake it as html by adding
2782: local_body := substrb(replace(local_body, wf_core.newline,
2783: '
'||wf_core.newline),1, 32000);
2784:
2785: -- get the attribute values
2786: local_body := GetText(local_body, nid, disptype);
2779: else
2780: if (local_html_body is null) then
2781: --use the plain text body but fake it as html by adding
2782: local_body := substrb(replace(local_body, wf_core.newline,
2783: '
'||wf_core.newline),1, 32000);
2784:
2785: -- get the attribute values
2786: local_body := GetText(local_body, nid, disptype);
2787:
2803: instr(upper(local_html_body),'
2804: end if;
2805:
2806: if (l_html_hist) then
2807: local_html_body := local_html_body || Wf_Core.newline || l_action_hist;
2808: end if;
2809:
2810: local_html_body := GetText(local_html_body, nid, disptype);
2811:
2817: end if;
2818:
2819: exception
2820: when others then
2821: wf_core.context('Wf_Notification', 'GetBody', to_char(nid), disptype);
2822: raise;
2823: end GetBody;
2824:
2825: --
2858: exception
2859: when others then
2860: -- If there is a failure in GetShortText, the error message is returned
2861: -- Return the error message with error stack
2862: l_error := wf_core.translate('ERROR') || wf_core.newline;
2863: if (wf_core.error_name is not null) then
2864: l_error := l_error || wf_core.error_message || wf_core.newline;
2865: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2866: wf_core.error_name || wf_core.newline;
2859: when others then
2860: -- If there is a failure in GetShortText, the error message is returned
2861: -- Return the error message with error stack
2862: l_error := wf_core.translate('ERROR') || wf_core.newline;
2863: if (wf_core.error_name is not null) then
2864: l_error := l_error || wf_core.error_message || wf_core.newline;
2865: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2866: wf_core.error_name || wf_core.newline;
2867: else
2860: -- If there is a failure in GetShortText, the error message is returned
2861: -- Return the error message with error stack
2862: l_error := wf_core.translate('ERROR') || wf_core.newline;
2863: if (wf_core.error_name is not null) then
2864: l_error := l_error || wf_core.error_message || wf_core.newline;
2865: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2866: wf_core.error_name || wf_core.newline;
2867: else
2868: l_error := l_error || sqlerrm || wf_core.newline;
2861: -- Return the error message with error stack
2862: l_error := wf_core.translate('ERROR') || wf_core.newline;
2863: if (wf_core.error_name is not null) then
2864: l_error := l_error || wf_core.error_message || wf_core.newline;
2865: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2866: wf_core.error_name || wf_core.newline;
2867: else
2868: l_error := l_error || sqlerrm || wf_core.newline;
2869: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2862: l_error := wf_core.translate('ERROR') || wf_core.newline;
2863: if (wf_core.error_name is not null) then
2864: l_error := l_error || wf_core.error_message || wf_core.newline;
2865: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2866: wf_core.error_name || wf_core.newline;
2867: else
2868: l_error := l_error || sqlerrm || wf_core.newline;
2869: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2870: to_char(sqlcode) || wf_core.newline;
2864: l_error := l_error || wf_core.error_message || wf_core.newline;
2865: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2866: wf_core.error_name || wf_core.newline;
2867: else
2868: l_error := l_error || sqlerrm || wf_core.newline;
2869: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2870: to_char(sqlcode) || wf_core.newline;
2871: end if;
2872: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2865: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2866: wf_core.error_name || wf_core.newline;
2867: else
2868: l_error := l_error || sqlerrm || wf_core.newline;
2869: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2870: to_char(sqlcode) || wf_core.newline;
2871: end if;
2872: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2873: wf_core.error_stack || wf_core.newline;
2866: wf_core.error_name || wf_core.newline;
2867: else
2868: l_error := l_error || sqlerrm || wf_core.newline;
2869: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2870: to_char(sqlcode) || wf_core.newline;
2871: end if;
2872: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2873: wf_core.error_stack || wf_core.newline;
2874: return (substrb(l_error, 1, 1950));
2868: l_error := l_error || sqlerrm || wf_core.newline;
2869: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2870: to_char(sqlcode) || wf_core.newline;
2871: end if;
2872: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2873: wf_core.error_stack || wf_core.newline;
2874: return (substrb(l_error, 1, 1950));
2875: end GetShortBody;
2876:
2869: l_error := l_error || wf_core.translate('WFENG_ERRNAME') || ': ' ||
2870: to_char(sqlcode) || wf_core.newline;
2871: end if;
2872: l_error := l_error || wf_core.translate('WFENG_ERRSTACK') || ': ' ||
2873: wf_core.error_stack || wf_core.newline;
2874: return (substrb(l_error, 1, 1950));
2875: end GetShortBody;
2876:
2877: --
2915: from WF_NOTIFICATIONS N
2916: where N.NOTIFICATION_ID = nid;
2917: exception
2918: when no_data_found then
2919: wf_core.token('NID', to_char(nid));
2920: wf_core.raise('WFNTF_NID');
2921: end;
2922:
2923: exception
2916: where N.NOTIFICATION_ID = nid;
2917: exception
2918: when no_data_found then
2919: wf_core.token('NID', to_char(nid));
2920: wf_core.raise('WFNTF_NID');
2921: end;
2922:
2923: exception
2924: when others then
2921: end;
2922:
2923: exception
2924: when others then
2925: wf_core.context('Wf_Notification', 'GetInfo', to_char(nid));
2926: raise;
2927: end GetInfo;
2928:
2929: --
2941: is
2942: respbuf varchar2(240);
2943: begin
2944: if (nid is null) then
2945: wf_core.token('NID', to_char(nid));
2946: wf_core.raise('WFSQL_ARGS');
2947: end if;
2948:
2949: -- Get responder
2942: respbuf varchar2(240);
2943: begin
2944: if (nid is null) then
2945: wf_core.token('NID', to_char(nid));
2946: wf_core.raise('WFSQL_ARGS');
2947: end if;
2948:
2949: -- Get responder
2950: begin
2953: from WF_NOTIFICATIONS WN
2954: where WN.NOTIFICATION_ID = nid;
2955: exception
2956: when no_data_found then
2957: wf_core.token('NID', to_char(nid));
2958: wf_core.raise('WFNTF_NID');
2959: end;
2960:
2961: return(respbuf);
2954: where WN.NOTIFICATION_ID = nid;
2955: exception
2956: when no_data_found then
2957: wf_core.token('NID', to_char(nid));
2958: wf_core.raise('WFNTF_NID');
2959: end;
2960:
2961: return(respbuf);
2962: exception
2960:
2961: return(respbuf);
2962: exception
2963: when others then
2964: Wf_Core.Context('Wf_Notification', 'Responder', to_char(nid));
2965: raise;
2966: end Responder;
2967:
2968: -- AccessCheck
3055: in out dvalue;
3056: exception
3057: when others then
3058: -- Ignore cases where no attribute is defined
3059: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3060: wf_core.clear;
3061: else
3062: raise;
3063: end if;
3056: exception
3057: when others then
3058: -- Ignore cases where no attribute is defined
3059: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3060: wf_core.clear;
3061: else
3062: raise;
3063: end if;
3064: end;
3072: return mailpref;
3073:
3074: exception
3075: when others then
3076: Wf_Core.Context('Wf_Notification', 'GetMailPreference', role);
3077: raise;
3078: end GetMailPreference;
3079:
3080: --
3135:
3136: o_recip := recip; -- set original recipient
3137: exception
3138: when no_data_found then
3139: wf_core.token('NID', to_char(nid));
3140: wf_core.raise('WFNTF_NID');
3141: end;
3142:
3143: /* implement the above loop recursively */
3136: o_recip := recip; -- set original recipient
3137: exception
3138: when no_data_found then
3139: wf_core.token('NID', to_char(nid));
3140: wf_core.raise('WFNTF_NID');
3141: end;
3142:
3143: /* implement the above loop recursively */
3144: if (cnt > wf_notification.max_forward) then
3142:
3143: /* implement the above loop recursively */
3144: if (cnt > wf_notification.max_forward) then
3145: -- it means max_forward must have been exceeded. Treat as a loop error.
3146: wf_core.token('NID', to_char(nid));
3147: wf_core.raise('WFNTF_ROUTE_LOOP');
3148: end if;
3149:
3150: -- Select one routing rule to execute
3143: /* implement the above loop recursively */
3144: if (cnt > wf_notification.max_forward) then
3145: -- it means max_forward must have been exceeded. Treat as a loop error.
3146: wf_core.token('NID', to_char(nid));
3147: wf_core.raise('WFNTF_ROUTE_LOOP');
3148: end if;
3149:
3150: -- Select one routing rule to execute
3151: open rulecurs;
3159:
3160: -- If rule has a comment append it to the buffer
3161: -- if (rulerec.rule_comment is not null) then
3162: -- if (newcomment is not null) then
3163: -- newcomment := substrb(newcomment||wf_core.newline, 1, 4000);
3164: -- end if;
3165: -- newcomment := substrb(newcomment||recip||': '||rulerec.rule_comment,
3166: -- 1, 4000);
3167: -- end if;
3175: l_hide_reassign := Wf_Notification.GetAttrText(nid, '#HIDE_REASSIGN');
3176: exception
3177: when others then
3178: -- Clear the error stack since we ignore the error
3179: Wf_Core.Clear;
3180: end;
3181: -- Bug 7358225: If the recipient role of the routing rule is inactive then update the user_comment
3182: -- for the notification and return without executing the routing rule
3183: if LENGTH(rulerec.action_argument) > 0 then
3252: when inactive_role then
3253: begin
3254: update WF_NOTIFICATIONS set
3255: USER_COMMENT = substr(USER_COMMENT||decode(nvl(USER_COMMENT,'T'),
3256: 'T', null, wf_core.newline)||wf_core.translate('INACTIVE_ROLE'), 1, 4000)
3257: where NOTIFICATION_ID = nid;
3258: exception
3259: when others then
3260: wf_core.context('Wf_Notification', 'Route (update comment)',to_char(nid));
3256: 'T', null, wf_core.newline)||wf_core.translate('INACTIVE_ROLE'), 1, 4000)
3257: where NOTIFICATION_ID = nid;
3258: exception
3259: when others then
3260: wf_core.context('Wf_Notification', 'Route (update comment)',to_char(nid));
3261: raise;
3262: end;
3263: when badfwd then
3264: Wf_Core.Get_Error(dummy, errmsg, dummy);
3260: wf_core.context('Wf_Notification', 'Route (update comment)',to_char(nid));
3261: raise;
3262: end;
3263: when badfwd then
3264: Wf_Core.Get_Error(dummy, errmsg, dummy);
3265: Wf_Core.Clear;
3266: if (newcomment is not null) then
3267: newcomment := newcomment||wf_core.newline;
3268: end if;
3261: raise;
3262: end;
3263: when badfwd then
3264: Wf_Core.Get_Error(dummy, errmsg, dummy);
3265: Wf_Core.Clear;
3266: if (newcomment is not null) then
3267: newcomment := newcomment||wf_core.newline;
3268: end if;
3269: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3263: when badfwd then
3264: Wf_Core.Get_Error(dummy, errmsg, dummy);
3265: Wf_Core.Clear;
3266: if (newcomment is not null) then
3267: newcomment := newcomment||wf_core.newline;
3268: end if;
3269: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3270: newcomment := substrb(newcomment||
3271: Wf_Core.Translate('AUTOROUTE_FAIL')||
3265: Wf_Core.Clear;
3266: if (newcomment is not null) then
3267: newcomment := newcomment||wf_core.newline;
3268: end if;
3269: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3270: newcomment := substrb(newcomment||
3271: Wf_Core.Translate('AUTOROUTE_FAIL')||
3272: wf_core.newline||errmsg,
3273: 1, 4000);
3267: newcomment := newcomment||wf_core.newline;
3268: end if;
3269: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3270: newcomment := substrb(newcomment||
3271: Wf_Core.Translate('AUTOROUTE_FAIL')||
3272: wf_core.newline||errmsg,
3273: 1, 4000);
3274: begin
3275: -- append newcomment to the existing comment.
3268: end if;
3269: Wf_Core.Token('TO_ROLE', WF_Directory.GetRoleDisplayName(recip));
3270: newcomment := substrb(newcomment||
3271: Wf_Core.Translate('AUTOROUTE_FAIL')||
3272: wf_core.newline||errmsg,
3273: 1, 4000);
3274: begin
3275: -- append newcomment to the existing comment.
3276: -- need to add a newline character if user_comment is not null.
3276: -- need to add a newline character if user_comment is not null.
3277: update WF_NOTIFICATIONS set
3278: USER_COMMENT = substr(USER_COMMENT||
3279: decode(nvl(USER_COMMENT,'T'),
3280: 'T', null, wf_core.newline)||
3281: Route.newcomment, 1, 4000)
3282: where NOTIFICATION_ID = nid;
3283: exception
3284: when OTHERS then
3281: Route.newcomment, 1, 4000)
3282: where NOTIFICATION_ID = nid;
3283: exception
3284: when OTHERS then
3285: wf_core.context('Wf_Notification', 'Route (update comment)',
3286: to_char(nid));
3287: raise;
3288: end;
3289:
3290: when others then
3291: if (rulecurs%isopen) then
3292: close rulecurs;
3293: end if;
3294: wf_core.context('Wf_Notification', 'Route', to_char(nid));
3295: raise;
3296: end Route;
3297:
3298: --
3338: return true;
3339:
3340: exception
3341: when others then
3342: Wf_Core.Context('Wf_Notification', 'First_Execution', p_context);
3343: raise;
3344: end First_Execution;
3345:
3346: -- Denormalize_Columns_Internal(PRIVATE)
3489: where notification_id = p_nid;
3490:
3491: exception
3492: when OTHERS then
3493: wf_core.context('Wf_Notification', 'denormalize_columns_internal',
3494: p_item_key, p_user_key, to_char(p_nid));
3495: raise;
3496: end Denormalize_columns_internal;
3497:
3534:
3535: exception
3536: when others then
3537: -- Retrieve error message into errbuf
3538: wf_core.get_error(errname, errmsg, errstack);
3539: if (errmsg is not null) then
3540: errbuf := errmsg;
3541: else
3542: errbuf := sqlerrm;
3641: sendsingle.msg_name,
3642: sendsingle.role,
3643: sendsingle.role,
3644: 'OPEN',
3645: wf_core.random,
3646: decode(sendsingle.mailpref, 'QUERY', '',
3647: 'SUMMARY', '',
3648: 'SUMHTML', '',
3649: 'DISABLED', 'FAILED',
3717:
3718: exception
3719: when others then
3720: -- Ignore cases where no attribute is defined
3721: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3722: wf_core.clear;
3723: else
3724: -- Bug 2580807 call with original signature for backward
3725: -- compatibility
3718: exception
3719: when others then
3720: -- Ignore cases where no attribute is defined
3721: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3722: wf_core.clear;
3723: else
3724: -- Bug 2580807 call with original signature for backward
3725: -- compatibility
3726: -- ### Review Note 2 - callback is from table
3741: in out attr_nvalue,
3742: in out attr_dvalue;
3743: exception
3744: when others then
3745: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3746: wf_core.clear;
3747: else
3748: raise;
3749: end if;
3742: in out attr_dvalue;
3743: exception
3744: when others then
3745: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3746: wf_core.clear;
3747: else
3748: raise;
3749: end if;
3750: end;
3785: begin
3786: l_send_comment := Wf_Notification.GetAttrText(nid, '#SUBMIT_COMMENTS');
3787: exception
3788: when others then
3789: if(Wf_Core.Error_Name = 'WFNTF_ATTR') then
3790: Wf_Core.Clear();
3791: l_send_comment := '';
3792: else
3793: raise;
3786: l_send_comment := Wf_Notification.GetAttrText(nid, '#SUBMIT_COMMENTS');
3787: exception
3788: when others then
3789: if(Wf_Core.Error_Name = 'WFNTF_ATTR') then
3790: Wf_Core.Clear();
3791: l_send_comment := '';
3792: else
3793: raise;
3794: end if;
3800: begin
3801: l_from_role := Wf_Notification.GetAttrText(nid, '#FROM_ROLE');
3802: exception
3803: when OTHERS then
3804: wf_core.clear;
3805: -- Check if the notification is sent under a valid Fwk Session
3806: l_from_role := Wfa_Sec.GetUser();
3807: end;
3808:
3897: return (nid);
3898:
3899: exception
3900: when others then
3901: wf_core.context('Wf_Notification', 'SendSingle', role, msg_type,
3902: msg_name, due_date, callback);
3903: raise;
3904: end SendSingle;
3905:
3941: col2 pls_integer;
3942: prev_nid pls_integer;
3943: begin
3944: if ((role is null) or (msg_type is null) or (msg_name is null)) then
3945: wf_core.token('ROLE', role);
3946: wf_core.token('TYPE', msg_type);
3947: wf_core.token('NAME', msg_name);
3948: wf_core.raise('WFSQL_ARGS');
3949: end if;
3942: prev_nid pls_integer;
3943: begin
3944: if ((role is null) or (msg_type is null) or (msg_name is null)) then
3945: wf_core.token('ROLE', role);
3946: wf_core.token('TYPE', msg_type);
3947: wf_core.token('NAME', msg_name);
3948: wf_core.raise('WFSQL_ARGS');
3949: end if;
3950:
3943: begin
3944: if ((role is null) or (msg_type is null) or (msg_name is null)) then
3945: wf_core.token('ROLE', role);
3946: wf_core.token('TYPE', msg_type);
3947: wf_core.token('NAME', msg_name);
3948: wf_core.raise('WFSQL_ARGS');
3949: end if;
3950:
3951: -- Check message is valid
3944: if ((role is null) or (msg_type is null) or (msg_name is null)) then
3945: wf_core.token('ROLE', role);
3946: wf_core.token('TYPE', msg_type);
3947: wf_core.token('NAME', msg_name);
3948: wf_core.raise('WFSQL_ARGS');
3949: end if;
3950:
3951: -- Check message is valid
3952: begin
3956: where M.TYPE = msg_type
3957: and M.NAME = msg_name);
3958: exception
3959: when no_data_found then
3960: wf_core.token('TYPE', msg_type);
3961: wf_core.token('NAME', msg_name);
3962: wf_core.raise('WFNTF_MESSAGE');
3963: end;
3964:
3957: and M.NAME = msg_name);
3958: exception
3959: when no_data_found then
3960: wf_core.token('TYPE', msg_type);
3961: wf_core.token('NAME', msg_name);
3962: wf_core.raise('WFNTF_MESSAGE');
3963: end;
3964:
3965: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
3958: exception
3959: when no_data_found then
3960: wf_core.token('TYPE', msg_type);
3961: wf_core.token('NAME', msg_name);
3962: wf_core.raise('WFNTF_MESSAGE');
3963: end;
3964:
3965: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
3966:
3965: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
3966:
3967: -- if ORIG_SYSTEM is null, there is no data found for this role
3968: if (rorig_system is null) then
3969: wf_core.token('ROLE', role);
3970: wf_core.raise('WFNTF_ROLE');
3971: end if;
3972:
3973: -- Call SendSingle to complete notification,
3966:
3967: -- if ORIG_SYSTEM is null, there is no data found for this role
3968: if (rorig_system is null) then
3969: wf_core.token('ROLE', role);
3970: wf_core.raise('WFNTF_ROLE');
3971: end if;
3972:
3973: -- Call SendSingle to complete notification,
3974: -- using group_id = null to create group of one.
4013:
4014: return (nid);
4015: exception
4016: when others then
4017: wf_core.context('Wf_Notification', 'Send', role, msg_type,
4018: msg_name, due_date, callback);
4019: raise;
4020: end Send;
4021:
4059: and WUR.ROLE_NAME = role;
4060:
4061: begin
4062: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4063: wf_core.token('ROLE', role);
4064: wf_core.token('TYPE', msg_type);
4065: wf_core.token('NAME', msg_name);
4066: wf_core.raise('WFSQL_ARGS');
4067: end if;
4060:
4061: begin
4062: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4063: wf_core.token('ROLE', role);
4064: wf_core.token('TYPE', msg_type);
4065: wf_core.token('NAME', msg_name);
4066: wf_core.raise('WFSQL_ARGS');
4067: end if;
4068:
4061: begin
4062: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4063: wf_core.token('ROLE', role);
4064: wf_core.token('TYPE', msg_type);
4065: wf_core.token('NAME', msg_name);
4066: wf_core.raise('WFSQL_ARGS');
4067: end if;
4068:
4069: -- Check message is valid
4062: if ((role is null) or (msg_type is null) or (msg_name is null)) then
4063: wf_core.token('ROLE', role);
4064: wf_core.token('TYPE', msg_type);
4065: wf_core.token('NAME', msg_name);
4066: wf_core.raise('WFSQL_ARGS');
4067: end if;
4068:
4069: -- Check message is valid
4070: begin
4074: where M.TYPE = msg_type
4075: and M.NAME = msg_name);
4076: exception
4077: when no_data_found then
4078: wf_core.token('TYPE', msg_type);
4079: wf_core.token('NAME', msg_name);
4080: wf_core.raise('WFNTF_MESSAGE');
4081: end;
4082:
4075: and M.NAME = msg_name);
4076: exception
4077: when no_data_found then
4078: wf_core.token('TYPE', msg_type);
4079: wf_core.token('NAME', msg_name);
4080: wf_core.raise('WFNTF_MESSAGE');
4081: end;
4082:
4083: -- Get the orig system ids for the role.
4076: exception
4077: when no_data_found then
4078: wf_core.token('TYPE', msg_type);
4079: wf_core.token('NAME', msg_name);
4080: wf_core.raise('WFNTF_MESSAGE');
4081: end;
4082:
4083: -- Get the orig system ids for the role.
4084: -- Do this instead of using role_name directly so that indexes on
4086: Wf_Directory.GetRoleOrigSysInfo(role,rorig_system,rorig_system_id);
4087:
4088: -- if ORIG_SYSTEM is null, there is no data found for this role
4089: if (rorig_system is null) then
4090: wf_core.token('ROLE', role);
4091: wf_core.raise('WFNTF_ROLE');
4092: end if;
4093:
4094: -- Loop through users of role, sending notification to each one.
4087:
4088: -- if ORIG_SYSTEM is null, there is no data found for this role
4089: if (rorig_system is null) then
4090: wf_core.token('ROLE', role);
4091: wf_core.raise('WFNTF_ROLE');
4092: end if;
4093:
4094: -- Loop through users of role, sending notification to each one.
4095: gid := '';
4109:
4110: -- Raise error if no users found for role.
4111: -- Most probable cause is role argument is invalid.
4112: if (gid is null) then
4113: wf_core.token('ROLE', role);
4114: wf_core.raise('WFNTF_ROLE');
4115: end if;
4116:
4117: return (gid);
4110: -- Raise error if no users found for role.
4111: -- Most probable cause is role argument is invalid.
4112: if (gid is null) then
4113: wf_core.token('ROLE', role);
4114: wf_core.raise('WFNTF_ROLE');
4115: end if;
4116:
4117: return (gid);
4118: exception
4116:
4117: return (gid);
4118: exception
4119: when others then
4120: wf_core.context('Wf_Notification', 'SendGroup', role, msg_type,
4121: msg_name, due_date, callback);
4122: raise;
4123: end SendGroup;
4124:
4184: l_msgName varchar2(30);
4185:
4186: begin
4187: if ((nid is null) or (new_role is null)) then
4188: wf_core.token('NID', to_char(nid));
4189: wf_core.token('NEW_ROLE', new_role);
4190: wf_core.raise('WFSQL_ARGS');
4191: end if;
4192:
4185:
4186: begin
4187: if ((nid is null) or (new_role is null)) then
4188: wf_core.token('NID', to_char(nid));
4189: wf_core.token('NEW_ROLE', new_role);
4190: wf_core.raise('WFSQL_ARGS');
4191: end if;
4192:
4193: -- Check the notification exists and is open
4186: begin
4187: if ((nid is null) or (new_role is null)) then
4188: wf_core.token('NID', to_char(nid));
4189: wf_core.token('NEW_ROLE', new_role);
4190: wf_core.raise('WFSQL_ARGS');
4191: end if;
4192:
4193: -- Check the notification exists and is open
4194: begin
4205: where WN.NOTIFICATION_ID = nid
4206: for update nowait;
4207: exception
4208: when no_data_found then
4209: wf_core.token('NID', to_char(nid));
4210: wf_core.raise('WFNTF_NID');
4211: end;
4212: if (status <> 'OPEN') then
4213: wf_core.token('NID', to_char(nid));
4206: for update nowait;
4207: exception
4208: when no_data_found then
4209: wf_core.token('NID', to_char(nid));
4210: wf_core.raise('WFNTF_NID');
4211: end;
4212: if (status <> 'OPEN') then
4213: wf_core.token('NID', to_char(nid));
4214: wf_core.raise('WFNTF_NID_OPEN');
4209: wf_core.token('NID', to_char(nid));
4210: wf_core.raise('WFNTF_NID');
4211: end;
4212: if (status <> 'OPEN') then
4213: wf_core.token('NID', to_char(nid));
4214: wf_core.raise('WFNTF_NID_OPEN');
4215: end if;
4216:
4217: -- If we are in a different Fwk session, need to clear Workflow PLSQL state
4210: wf_core.raise('WFNTF_NID');
4211: end;
4212: if (status <> 'OPEN') then
4213: wf_core.token('NID', to_char(nid));
4214: wf_core.raise('WFNTF_NID_OPEN');
4215: end if;
4216:
4217: -- If we are in a different Fwk session, need to clear Workflow PLSQL state
4218: if (not Wfa_Sec.CheckSession) then
4223: begin
4224: mailpref := Wf_Notification.GetMailPreference(new_role, cb, context);
4225: exception
4226: when others then
4227: wf_core.token('ROLE', new_role);
4228: if (fmode = 'FORWARD') then
4229: wf_core.raise('WFNTF_DELEGATE_FAIL');
4230: elsif (fmode = 'TRANSFER') then
4231: wf_core.raise('WFNTF_TRANSFER_FAIL');
4225: exception
4226: when others then
4227: wf_core.token('ROLE', new_role);
4228: if (fmode = 'FORWARD') then
4229: wf_core.raise('WFNTF_DELEGATE_FAIL');
4230: elsif (fmode = 'TRANSFER') then
4231: wf_core.raise('WFNTF_TRANSFER_FAIL');
4232: end if;
4233: end;
4227: wf_core.token('ROLE', new_role);
4228: if (fmode = 'FORWARD') then
4229: wf_core.raise('WFNTF_DELEGATE_FAIL');
4230: elsif (fmode = 'TRANSFER') then
4231: wf_core.raise('WFNTF_TRANSFER_FAIL');
4232: end if;
4233: end;
4234:
4235: -- Bug 3065814
4329: 'SUMMARY', '',
4330: 'SUMHTML', '',
4331: 'DISABLED', 'FAILED',
4332: null, '', 'MAIL'),
4333: ACCESS_KEY = wf_core.random,
4334: FROM_ROLE = l_from_role,
4335: MORE_INFO_ROLE = l_more_info_role
4336: where NOTIFICATION_ID = nid;
4337:
4424: p_parameters => l_parameterlist);
4425:
4426: exception
4427: when others then
4428: wf_core.context('Wf_Notification', 'ForwardInternal', to_char(nid),
4429: new_role, fmode, forward_comment);
4430: raise;
4431: end ForwardInternal;
4432:
4452: begin
4453: ForwardInternal(nid, new_role, 'FORWARD', forward_comment, user, cnt, action_source);
4454: exception
4455: when others then
4456: wf_core.context('Wf_Notification', 'Forward', to_char(nid),
4457: new_role, forward_comment);
4458: -- This call is for enhanced error handling with respect to OAFwk
4459: wf_notification.SetUIErrorMessage;
4460: raise;
4482: begin
4483: ForwardInternal(nid, new_role, 'TRANSFER', forward_comment, user, cnt, action_source);
4484: exception
4485: when others then
4486: wf_core.context('Wf_Notification', 'Transfer', to_char(nid),
4487: new_role, forward_comment);
4488: -- This call is for enhanced error handling with respect to OAFwk
4489: wf_notification.SetUIErrorMessage;
4490: raise;
4534: where WN.NOTIFICATION_ID = nid
4535: for update nowait;
4536: exception
4537: when no_data_found then
4538: wf_core.token('NID', to_char(nid));
4539: wf_core.raise('WFNTF_NID');
4540: end;
4541: if (status <> 'OPEN') then
4542: wf_core.token('NID', to_char(nid));
4535: for update nowait;
4536: exception
4537: when no_data_found then
4538: wf_core.token('NID', to_char(nid));
4539: wf_core.raise('WFNTF_NID');
4540: end;
4541: if (status <> 'OPEN') then
4542: wf_core.token('NID', to_char(nid));
4543: wf_core.raise('WFNTF_NID_OPEN');
4538: wf_core.token('NID', to_char(nid));
4539: wf_core.raise('WFNTF_NID');
4540: end;
4541: if (status <> 'OPEN') then
4542: wf_core.token('NID', to_char(nid));
4543: wf_core.raise('WFNTF_NID_OPEN');
4544: end if;
4545:
4546: -- Check role is valid and get mail preference
4539: wf_core.raise('WFNTF_NID');
4540: end;
4541: if (status <> 'OPEN') then
4542: wf_core.token('NID', to_char(nid));
4543: wf_core.raise('WFNTF_NID_OPEN');
4544: end if;
4545:
4546: -- Check role is valid and get mail preference
4547: mailpref := Wf_Notification.GetMailPreference(role, cb, context);
4638:
4639:
4640: exception
4641: when others then
4642: wf_core.context('Wf_Notification', 'CancelSingle', to_char(nid),
4643: role, cancel_comment);
4644: raise;
4645: end CancelSingle;
4646:
4657: status varchar2(8);
4658: role varchar2(320);
4659: begin
4660: if (nid is null) then
4661: wf_core.token('NID', to_char(nid));
4662: wf_core.raise('WFSQL_ARGS');
4663: end if;
4664:
4665: -- Check the notification exists and is open
4658: role varchar2(320);
4659: begin
4660: if (nid is null) then
4661: wf_core.token('NID', to_char(nid));
4662: wf_core.raise('WFSQL_ARGS');
4663: end if;
4664:
4665: -- Check the notification exists and is open
4666: begin
4670: where NOTIFICATION_ID = nid
4671: for update nowait;
4672: exception
4673: when no_data_found then
4674: wf_core.token('NID', to_char(nid));
4675: wf_core.raise('WFNTF_NID');
4676: end;
4677:
4678: if (status <> 'OPEN') then
4671: for update nowait;
4672: exception
4673: when no_data_found then
4674: wf_core.token('NID', to_char(nid));
4675: wf_core.raise('WFNTF_NID');
4676: end;
4677:
4678: if (status <> 'OPEN') then
4679: wf_core.token('NID', to_char(nid));
4675: wf_core.raise('WFNTF_NID');
4676: end;
4677:
4678: if (status <> 'OPEN') then
4679: wf_core.token('NID', to_char(nid));
4680: wf_core.raise('WFNTF_NID_OPEN');
4681: end if;
4682:
4683: -- Call CancelSingle to complete cancellation of single notification
4676: end;
4677:
4678: if (status <> 'OPEN') then
4679: wf_core.token('NID', to_char(nid));
4680: wf_core.raise('WFNTF_NID_OPEN');
4681: end if;
4682:
4683: -- Call CancelSingle to complete cancellation of single notification
4684: CancelSingle(nid, role, cancel_comment, FALSE);
4684: CancelSingle(nid, role, cancel_comment, FALSE);
4685:
4686: exception
4687: when others then
4688: wf_core.context('Wf_Notification', 'Cancel', to_char(nid), cancel_comment);
4689: raise;
4690: end Cancel;
4691:
4692: --
4709: for update nowait;
4710:
4711: begin
4712: if (gid is null) then
4713: wf_core.token('NID', to_char(gid));
4714: wf_core.raise('WFSQL_ARGS');
4715: end if;
4716:
4717: -- Cancel all open notifications in this group
4710:
4711: begin
4712: if (gid is null) then
4713: wf_core.token('NID', to_char(gid));
4714: wf_core.raise('WFSQL_ARGS');
4715: end if;
4716:
4717: -- Cancel all open notifications in this group
4718: for notice in group_curs loop
4721: cancel_comment, timeout);
4722: end loop;
4723: exception
4724: when others then
4725: wf_core.context('Wf_Notification', 'CancelGroup', to_char(gid),
4726: cancel_comment);
4727: raise;
4728: end CancelGroup;
4729:
4793: l_charcheck boolean;
4794:
4795: begin
4796: if (nid is null) then
4797: wf_core.token('NID', to_char(nid));
4798: wf_core.raise('WFSQL_ARGS');
4799: end if;
4800:
4801: -- kma bug2376058 digital signature support
4794:
4795: begin
4796: if (nid is null) then
4797: wf_core.token('NID', to_char(nid));
4798: wf_core.raise('WFSQL_ARGS');
4799: end if;
4800:
4801: -- kma bug2376058 digital signature support
4802: begin
4802: begin
4803: proxyuser := Wf_Notification.GetAttrText(nid, '#WF_PROXIED_VIA');
4804: exception
4805: when others then
4806: if (wf_core.error_name = 'WFNTF_ATTR') then
4807: -- Pass null result if no result attribute.
4808: wf_core.clear;
4809: proxyuser := '';
4810: else
4804: exception
4805: when others then
4806: if (wf_core.error_name = 'WFNTF_ATTR') then
4807: -- Pass null result if no result attribute.
4808: wf_core.clear;
4809: proxyuser := '';
4810: else
4811: raise;
4812: end if;
4813: end;
4814: if ((proxyuser is not null) and (proxyuser <> '') and
4815: ((responder is null) or
4816: ((responder is not null) and (proxyuser <> responder)))) then
4817: wf_core.token('NID', to_char(nid));
4818: wf_core.raise('WFNTF_DIGSIG_USER_MISMATCH');
4819: end if;
4820:
4821: -- bug 2698999 Checking if ntf's signature requirements are met
4814: if ((proxyuser is not null) and (proxyuser <> '') and
4815: ((responder is null) or
4816: ((responder is not null) and (proxyuser <> responder)))) then
4817: wf_core.token('NID', to_char(nid));
4818: wf_core.raise('WFNTF_DIGSIG_USER_MISMATCH');
4819: end if;
4820:
4821: -- bug 2698999 Checking if ntf's signature requirements are met
4822: if (NOT Wf_Notification.NtfSignRequirementsMet(nid)) then
4819: end if;
4820:
4821: -- bug 2698999 Checking if ntf's signature requirements are met
4822: if (NOT Wf_Notification.NtfSignRequirementsMet(nid)) then
4823: wf_core.token('NID', to_char(nid));
4824: wf_core.raise('WFNTF_NOT_SIGNED');
4825: end if;
4826:
4827: -- Get callback, check for valid notification id.
4820:
4821: -- bug 2698999 Checking if ntf's signature requirements are met
4822: if (NOT Wf_Notification.NtfSignRequirementsMet(nid)) then
4823: wf_core.token('NID', to_char(nid));
4824: wf_core.raise('WFNTF_NOT_SIGNED');
4825: end if;
4826:
4827: -- Get callback, check for valid notification id.
4828: begin
4834: where N.NOTIFICATION_ID = nid
4835: for update nowait;
4836: exception
4837: when no_data_found then
4838: wf_core.token('NID', to_char(nid));
4839: wf_core.raise('WFNTF_NID');
4840: end;
4841:
4842: -- Check notification is open
4835: for update nowait;
4836: exception
4837: when no_data_found then
4838: wf_core.token('NID', to_char(nid));
4839: wf_core.raise('WFNTF_NID');
4840: end;
4841:
4842: -- Check notification is open
4843: if (status <> 'OPEN') then
4840: end;
4841:
4842: -- Check notification is open
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: -- If we are in a different Fwk session, need to clear Workflow PLSQL state
4841:
4842: -- Check notification is open
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: -- If we are in a different Fwk session, need to clear Workflow PLSQL state
4849: if (not Wfa_Sec.CheckSession) then
4941:
4942: -- Append the respond_comment (if any) to the user_comment
4943: -- if (respond_comment is not null) then
4944: -- if (newcomment is not null) then
4945: -- newcomment := substrb(newcomment||wf_core.newline||
4946: -- respond_comment, 1, 4000);
4947: -- else
4948: -- newcomment := respond_comment;
4949: -- end if;
5042: tvalue := Wf_Notification.GetAttrText(nid, 'RESULT');
5043:
5044: exception
5045: when others then
5046: if (wf_core.error_name = 'WFNTF_ATTR') then
5047: -- Pass null result if no result attribute.
5048: wf_core.clear;
5049: tvalue := '';
5050: else
5044: exception
5045: when others then
5046: if (wf_core.error_name = 'WFNTF_ATTR') then
5047: -- Pass null result if no result attribute.
5048: wf_core.clear;
5049: tvalue := '';
5050: else
5051: raise;
5052: end if;
5079: -- user goes in and does an action from the worklist.
5080: -- wf_xml.RemoveNotification(nid);
5081: exception
5082: when others then
5083: wf_core.context('Wf_Notification', 'Respond', to_char(nid),
5084: respond_comment, responder);
5085: -- This call is for enhanced error handling with respect to OAFwk
5086: wf_notification.SetUIErrorMessage;
5087: raise;
5112:
5113: l_charcheck boolean;
5114: begin
5115: if (nid is null) then
5116: wf_core.token('NID', to_char(nid));
5117: wf_core.raise('WFSQL_ARGS');
5118: end if;
5119:
5120: -- Get callback, check for valid notification id.
5113: l_charcheck boolean;
5114: begin
5115: if (nid is null) then
5116: wf_core.token('NID', to_char(nid));
5117: wf_core.raise('WFSQL_ARGS');
5118: end if;
5119:
5120: -- Get callback, check for valid notification id.
5121: begin
5124: from WF_NOTIFICATIONS N
5125: where N.NOTIFICATION_ID = nid;
5126: exception
5127: when no_data_found then
5128: wf_core.token('NID', to_char(nid));
5129: wf_core.raise('WFNTF_NID');
5130: end;
5131:
5132: -- If no callback, then nothing to check
5125: where N.NOTIFICATION_ID = nid;
5126: exception
5127: when no_data_found then
5128: wf_core.token('NID', to_char(nid));
5129: wf_core.raise('WFNTF_NID');
5130: end;
5131:
5132: -- If no callback, then nothing to check
5133: if (callback is null) then
5161: end if;
5162:
5163: exception
5164: when others then
5165: wf_core.context('Wf_Notification', 'TestContext', to_char(nid));
5166: raise;
5167: end TestContext;
5168:
5169: --
5240: --
5241: exception
5242: when others then
5243: --
5244: wf_core.context('Wf_Notification', 'VoteCount', to_char(gid), ResultCode );
5245: raise;
5246: --
5247: end VoteCount;
5248: --
5279: return(FALSE);
5280: --
5281: when others then
5282: --
5283: wf_core.context('Wf_Notification', 'OpenNotifications', to_char(gid) );
5284: raise;
5285: --
5286: end OpenNotificationsExist;
5287:
5325:
5326: return(ncount);
5327: exception
5328: when others then
5329: wf_core.context('Wf_Notification', 'WorkCount', username);
5330: raise;
5331: end WorkCount;
5332:
5333: --
5365:
5366: begin
5367:
5368: if (nid is null) then
5369: wf_core.token('NID', to_char(nid));
5370: wf_core.raise('WFSQL_ARGS');
5371: end if;
5372:
5373: -- Get Status
5366: begin
5367:
5368: if (nid is null) then
5369: wf_core.token('NID', to_char(nid));
5370: wf_core.raise('WFSQL_ARGS');
5371: end if;
5372:
5373: -- Get Status
5374: begin
5379: where N.NOTIFICATION_ID = nid
5380: for update nowait;
5381: exception
5382: when no_data_found then
5383: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5384: wf_core.raise('WFNTF_NID');
5385: end;
5386:
5387: -- Check notification is open
5380: for update nowait;
5381: exception
5382: when no_data_found then
5383: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5384: wf_core.raise('WFNTF_NID');
5385: end;
5386:
5387: -- Check notification is open
5388: if (status <> 'OPEN') then
5385: end;
5386:
5387: -- Check notification is open
5388: if (status <> 'OPEN') then
5389: wf_core.token('NID', Wf_Notification.GetSubject(nid) );
5390: wf_core.raise('WFNTF_NID_OPEN');
5391: end if;
5392:
5393:
5386:
5387: -- Check notification is open
5388: if (status <> 'OPEN') then
5389: wf_core.token('NID', Wf_Notification.GetSubject(nid) );
5390: wf_core.raise('WFNTF_NID_OPEN');
5391: end if;
5392:
5393:
5394: open attrs(nid);
5394: open attrs(nid);
5395: fetch attrs into result;
5396: if (attrs%found) then
5397: -- Check response required?
5398: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5399: wf_core.raise('WFNTF_NID_REQUIRE');
5400: end if;
5401:
5402: -- Mark notification closed
5395: fetch attrs into result;
5396: if (attrs%found) then
5397: -- Check response required?
5398: wf_core.token('NID', Wf_Notification.GetSubject(nid));
5399: wf_core.raise('WFNTF_NID_REQUIRE');
5400: end if;
5401:
5402: -- Mark notification closed
5403: update WF_NOTIFICATIONS
5435: p_parameters => l_parameterlist);
5436:
5437: exception
5438: when others then
5439: wf_core.context('Wf_Notification', 'Close', to_char(nid), responder);
5440: raise;
5441: end Close;
5442:
5443: --
5501: -- Process special '#' internal tokens. Supported tokens are:
5502: -- &#NID - Notification id
5503: --
5504: local_text := substrb(replace(local_text, '&'||'#NID',
5505: '['||wf_core.translate('WF_NOTIFICATION_ID')||']'), 1, 1950);
5506:
5507:
5508: return(local_text);
5509:
5603: dbms_lob.write(clob_loc,amt,pos,msg_string);
5604:
5605: exception
5606: when others then
5607: wf_core.context('WF_NOTIFICATION','WriteToClob');
5608: raise;
5609: end WriteToClob;
5610:
5611: --Name : GetFullBody (PUBLIC)
5719: end if;
5720:
5721: exception
5722: when others then
5723: wf_core.context('WF_NOTIFICATION','GetFullBody', 'nid => '||to_char(nid),
5724: 'disptype => '||disptype);
5725: raise;
5726: end GetFullBody;
5727:
5784: Wf_Notification.GetAttrClob(nid, astring, disptype, document, doctype, aname);
5785:
5786: exception
5787: when others then
5788: wf_core.context('Wf_Notification', 'oldGetAttrClob', to_char(nid), aname,
5789: disptype);
5790: raise;
5791: end GetAttrClob;
5792:
5838: -- Check args
5839: if ((nid is null) or (astring is null) or
5840: (disptype not in (wf_notification.doc_text,
5841: wf_notification.doc_html))) then
5842: wf_core.token('NID', to_char(nid));
5843: wf_core.token('ASTRING', aname);
5844: wf_core.token('DISPTYPE', disptype);
5845: wf_core.raise('WFSQL_ARGS');
5846: end if;
5839: if ((nid is null) or (astring is null) or
5840: (disptype not in (wf_notification.doc_text,
5841: wf_notification.doc_html))) then
5842: wf_core.token('NID', to_char(nid));
5843: wf_core.token('ASTRING', aname);
5844: wf_core.token('DISPTYPE', disptype);
5845: wf_core.raise('WFSQL_ARGS');
5846: end if;
5847:
5840: (disptype not in (wf_notification.doc_text,
5841: wf_notification.doc_html))) then
5842: wf_core.token('NID', to_char(nid));
5843: wf_core.token('ASTRING', aname);
5844: wf_core.token('DISPTYPE', disptype);
5845: wf_core.raise('WFSQL_ARGS');
5846: end if;
5847:
5848: -- of all the possible Document type matches,
5841: wf_notification.doc_html))) then
5842: wf_core.token('NID', to_char(nid));
5843: wf_core.token('ASTRING', aname);
5844: wf_core.token('DISPTYPE', disptype);
5845: wf_core.raise('WFSQL_ARGS');
5846: end if;
5847:
5848: -- of all the possible Document type matches,
5849: -- make sure its a PLSQLCLOB
5978: /* if (dbms_sql.is_open(curs)) then
5979: dbms_sql.close_cursor(curs);
5980: end if; */
5981:
5982: wf_core.context('Wf_Notification', 'GetAttrClob', to_char(nid), aname,
5983: disptype);
5984: raise;
5985: end GetAttrClob;
5986:
6022: end if;
6023:
6024: exception
6025: when others then
6026: wf_core.context('WF_NOTIFICATION','NewClob');
6027: raise;
6028: end NewClob;
6029:
6030: --Name Read_Clob
6051: end if;
6052:
6053: exception
6054: when others then
6055: wf_core.context('Wf_Notification', 'Read_Clob','pos => '||to_char(pos),
6056: 'line => {'||line||'}');
6057: raise;
6058: end Read_Clob;
6059:
6101: end if;
6102:
6103: exception
6104: when others then
6105: wf_core.context('Wf_Notification', 'ReadAttrClob');
6106: raise;
6107: end ReadAttrClob;
6108:
6109: --
6220: -- p_nlsCalendar
6221: );
6222: exception
6223: when others then
6224: Wf_Core.Context('Wf_Notification', 'SetNLSLanguage', p_language, p_territory);
6225: raise;
6226: end SetNLSLanguage;
6227:
6228: --
6367: from WF_NOTIFICATIONS
6368: where NOTIFICATION_ID = nid;
6369: exception
6370: when NO_DATA_FOUND then
6371: wf_core.token('NID', to_char(nid));
6372: wf_core.raise('WFNTF_NID');
6373: end;
6374:
6375: if ( l_logSTMT ) then
6368: where NOTIFICATION_ID = nid;
6369: exception
6370: when NO_DATA_FOUND then
6371: wf_core.token('NID', to_char(nid));
6372: wf_core.raise('WFNTF_NID');
6373: end;
6374:
6375: if ( l_logSTMT ) then
6376: wf_log_pkg.String(wf_log_pkg.LEVEL_STATEMENT, l_module
6475: begin
6476: l_from_role := Wf_Notification.GetAttrText(nid, '#FROM_ROLE');
6477: exception
6478: when OTHERS then
6479: wf_core.clear; -- clear the error stack
6480: l_from_role := NULL;
6481: end;
6482: end if;
6483:
6506: LANGUAGE = userenv('LANG')
6507: where NOTIFICATION_ID = nid;
6508: exception
6509: when OTHERS then
6510: wf_core.token('NID', to_char(nid));
6511: wf_core.raise('WFNTF_DENORM_FAILED');
6512: end;
6513:
6514: if ( l_logPRCD ) then
6507: where NOTIFICATION_ID = nid;
6508: exception
6509: when OTHERS then
6510: wf_core.token('NID', to_char(nid));
6511: wf_core.raise('WFNTF_DENORM_FAILED');
6512: end;
6513:
6514: if ( l_logPRCD ) then
6515: wf_log_pkg.String(wf_log_pkg.LEVEL_PROCEDURE, l_module, 'END');
6515: wf_log_pkg.String(wf_log_pkg.LEVEL_PROCEDURE, l_module, 'END');
6516: end if;
6517: exception
6518: when OTHERS then
6519: wf_core.context('Wf_Notification', 'Denormalize_Notification',
6520: to_char(nid), username);
6521: raise;
6522: end Denormalize_Notification;
6523:
6597: begin
6598: sig_policy := Wf_Notification.GetAttrText(nid, '#WF_SIG_POLICY');
6599: exception
6600: when others then
6601: if (wf_core.error_name = 'WFNTF_ATTR') then
6602: wf_core.clear;
6603: sig_policy := 'DEFAULT';
6604: else
6605: raise;
6598: sig_policy := Wf_Notification.GetAttrText(nid, '#WF_SIG_POLICY');
6599: exception
6600: when others then
6601: if (wf_core.error_name = 'WFNTF_ATTR') then
6602: wf_core.clear;
6603: sig_policy := 'DEFAULT';
6604: else
6605: raise;
6606: end if;
6620: return TRUE;
6621: end if;
6622: exception
6623: when others then
6624: if (wf_core.error_name = 'WFNTF_ATTR') then
6625: wf_core.clear;
6626: else
6627: raise;
6628: end if;
6621: end if;
6622: exception
6623: when others then
6624: if (wf_core.error_name = 'WFNTF_ATTR') then
6625: wf_core.clear;
6626: else
6627: raise;
6628: end if;
6629: end;
6634: -- Eventually should use GetAttrNumber
6635: l_attr_sigid := to_number(Wf_Notification.GetAttrText(nid, '#WF_SIG_ID'));
6636: exception
6637: when others then
6638: if (wf_core.error_name = 'WFNTF_ATTR') then
6639: wf_core.clear;
6640: l_attr_sigid := -1;
6641: else
6642: raise;
6635: l_attr_sigid := to_number(Wf_Notification.GetAttrText(nid, '#WF_SIG_ID'));
6636: exception
6637: when others then
6638: if (wf_core.error_name = 'WFNTF_ATTR') then
6639: wf_core.clear;
6640: l_attr_sigid := -1;
6641: else
6642: raise;
6643: end if;
6659: return TRUE;
6660:
6661: exception
6662: when others then
6663: wf_core.context('Wf_Notification', 'NtfSignRequirementsMet', to_char(nid));
6664: raise;
6665: end NtfSignRequirementsMet;
6666:
6667: --
6792: --Bug 2474770
6793: --If the current user is the same as the one from
6794: --whom more-info is requested then raise the error
6795: --that you cannot ask for more info from yourself.
6796: wf_core.token('USER',username);
6797: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6798: else
6799: open rulecurs;
6800: fetch rulecurs INTO l_ruleAction,l_newRole;
6793: --If the current user is the same as the one from
6794: --whom more-info is requested then raise the error
6795: --that you cannot ask for more info from yourself.
6796: wf_core.token('USER',username);
6797: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6798: else
6799: open rulecurs;
6800: fetch rulecurs INTO l_ruleAction,l_newRole;
6801: if rulecurs%NOTFOUND then
6805:
6806: if l_ruleAction IN ('FORWARD','TRANSFER') then
6807:
6808: if l_newRole = myusername then
6809: wf_core.token('USER',myusername);
6810: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6811: elsif l_newRole = l_recip_role then
6812: wf_core.token('USER',l_recip_role);
6813: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6806: if l_ruleAction IN ('FORWARD','TRANSFER') then
6807:
6808: if l_newRole = myusername then
6809: wf_core.token('USER',myusername);
6810: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6811: elsif l_newRole = l_recip_role then
6812: wf_core.token('USER',l_recip_role);
6813: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6814: else
6808: if l_newRole = myusername then
6809: wf_core.token('USER',myusername);
6810: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6811: elsif l_newRole = l_recip_role then
6812: wf_core.token('USER',l_recip_role);
6813: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6814: else
6815: -- Routing rule defined
6816: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
6809: wf_core.token('USER',myusername);
6810: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6811: elsif l_newRole = l_recip_role then
6812: wf_core.token('USER',l_recip_role);
6813: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6814: else
6815: -- Routing rule defined
6816: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
6817: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
6812: wf_core.token('USER',l_recip_role);
6813: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6814: else
6815: -- Routing rule defined
6816: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
6817: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
6818:
6819: if myusername is not null then
6820: wf_notification.SetComments(nid, username, myusername, 'ANSWER', action_source, l_sysComment);
6813: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
6814: else
6815: -- Routing rule defined
6816: wf_core.token('ROLE', WF_Directory.GetRoleDisplayName(l_newRole));
6817: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE_TO_ROLE');
6818:
6819: if myusername is not null then
6820: wf_notification.SetComments(nid, username, myusername, 'ANSWER', action_source, l_sysComment);
6821: else
6824:
6825: /* implement the above loop recursively */
6826: if (cnt > wf_notification.max_forward) then
6827: -- it means max_forward must have been exceeded. Treat as a loop error.
6828: wf_core.token('NID', to_char(nid));
6829: wf_core.raise('WFNTF_ROUTE_LOOP');
6830: end if;
6831: UpdateInfo(nid,l_newRole,comment,wl_user,action_source,cnt+1);
6832: end if;
6825: /* implement the above loop recursively */
6826: if (cnt > wf_notification.max_forward) then
6827: -- it means max_forward must have been exceeded. Treat as a loop error.
6828: wf_core.token('NID', to_char(nid));
6829: wf_core.raise('WFNTF_ROUTE_LOOP');
6830: end if;
6831: UpdateInfo(nid,l_newRole,comment,wl_user,action_source,cnt+1);
6832: end if;
6833: else
6832: end if;
6833: else
6834:
6835: if l_ruleAction = 'RESPOND' then
6836: l_sysComment := wf_core.translate('WFNTF_AUTO_RESPONSE');
6837: if myusername is not null then
6838: wf_notification.SetComments(nid, username, myusername, 'ANSWER', action_source, l_sysComment);
6839: else
6840: wf_notification.SetComments(nid, username, l_recip_role, 'ANSWER', action_source, l_sysComment);
6850: exception
6851: when NO_DATA_FOUND then
6852: null;
6853: when resource_busy then
6854: wf_core.raise('WFNTF_BEING_UPDATED');
6855: -- ### This notification is being updated currently, please
6856: -- ### try again in a brief moment.
6857: end;
6858:
6940: -- where NOTIFICATION_ID = nid;
6941:
6942: -- bug 2474562
6943: -- else
6944: -- wf_core.token('ROLE',username);
6945: -- wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6946: -- end if;
6947: end if;
6948: end if;
6941:
6942: -- bug 2474562
6943: -- else
6944: -- wf_core.token('ROLE',username);
6945: -- wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6946: -- end if;
6947: end if;
6948: end if;
6949:
6975: -- ### or has already been answered.
6976: WF_MAIL.SendMoreInfoResponseWarning(nid);
6977: return;
6978: when resource_busy then
6979: wf_core.raise('WFNTF_BEING_UPDATED');
6980: -- ### This notification is being updated currently, please
6981: -- ### try again in a brief moment.
6982: end;
6983:
6982: end;
6983:
6984: if (myusername is not null and l_from_role <> myusername) then
6985: if (not Wf_Directory.IsPerformer(myusername, l_from_role)) then
6986: wf_core.token('ROLE',myusername);
6987: wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6988: end if;
6989: l_from_role := myusername;
6990: replyby := mydispname;
6983:
6984: if (myusername is not null and l_from_role <> myusername) then
6985: if (not Wf_Directory.IsPerformer(myusername, l_from_role)) then
6986: wf_core.token('ROLE',myusername);
6987: wf_core.raise('WFNTF_NOT_PARTICIPANTS');
6988: end if;
6989: l_from_role := myusername;
6990: replyby := mydispname;
6991: end if;
7099: p_parameters => l_parameterlist);
7100:
7101: exception
7102: when OTHERS then
7103: Wf_Core.Context('Wf_Notification', 'UpdateInfo', to_char(nid), username, wl_user, action_source);
7104: raise;
7105: end UpdateInfo;
7106:
7107: -- bug 2474562
7211: end if;
7212: return(TRUE);
7213: exception
7214: when OTHERS then
7215: Wf_Core.Context('Wf_Notification','IsValidInfoRole',to_char(nid),username);
7216: raise;
7217: end IsValidInfoRole;
7218:
7219: -- UpdateInfo2 - bug 2282139
7336: WHERE upper(display_name) = upper(username)
7337: AND rownum = 1;
7338: exception
7339: when NO_DATA_FOUND then
7340: wf_core.token('ROLE', username);
7341: wf_core.raise('WFNTF_ROLE');
7342: end;
7343: end if;
7344:
7337: AND rownum = 1;
7338: exception
7339: when NO_DATA_FOUND then
7340: wf_core.token('ROLE', username);
7341: wf_core.raise('WFNTF_ROLE');
7342: end;
7343: end if;
7344:
7345: -- If the username was specified as display name, l_username would have the internal name
7345: -- If the username was specified as display name, l_username would have the internal name
7346: if (l_username in (myusername, l_recip_role)) then
7347: -- If the current user is the same as the one from whom more-info is requested
7348: -- requested then raise the error that you cannot ask for more info from yourself.
7349: wf_core.token('USER',username);
7350: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7351: else
7352: -- do not want it hung when some one is doing update.
7353: begin
7346: if (l_username in (myusername, l_recip_role)) then
7347: -- If the current user is the same as the one from whom more-info is requested
7348: -- requested then raise the error that you cannot ask for more info from yourself.
7349: wf_core.token('USER',username);
7350: wf_core.raise('WFNTF_INVALID_MOREINFO_REQUEST');
7351: else
7352: -- do not want it hung when some one is doing update.
7353: begin
7354: select MORE_INFO_ROLE, MESSAGE_TYPE, MESSAGE_NAME, GROUP_ID
7359: exception
7360: when NO_DATA_FOUND then
7361: null;
7362: when resource_busy then
7363: wf_core.raise('WFNTF_BEING_UPDATED');
7364: end;
7365:
7366: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
7367: wf_log_pkg.string(wf_log_pkg.level_statement,
7465: -- ### or has already been answered.
7466: WF_MAIL.SendMoreInfoResponseWarning(nid,from_email);
7467: return;
7468: when resource_busy then
7469: wf_core.raise('WFNTF_BEING_UPDATED');
7470: end;
7471:
7472: -- we donot validate the role, it may be email address. we donot want
7473: -- FROM_ROLE and FROM_USER to be NULL.
7579: p_parameters => l_parameterlist);
7580:
7581: exception
7582: when OTHERS then
7583: Wf_Core.Context('Wf_Notification', 'UpdateInfo2', to_char(nid), username, from_email);
7584: raise;
7585: end UpdateInfo2;
7586:
7587:
7652:
7653: exception
7654: when NO_DATA_FOUND then
7655: -- if it has no row, we cannot reply to this notification
7656: wf_core.raise('WFNTF_CANNOT_REPLY');
7657: -- ### You cannot reply to a question that has not been asked
7658: -- ### or has already been answered.
7659:
7660: when resource_busy then
7657: -- ### You cannot reply to a question that has not been asked
7658: -- ### or has already been answered.
7659:
7660: when resource_busy then
7661: wf_core.raise('WFNTF_BEING_UPDATED');
7662: end;
7663:
7664: if (cb is not null) then
7665: tvalue := moreinforesponder;
7737: p_parameters => l_parameterlist);
7738:
7739: exception
7740: when OTHERS then
7741: Wf_Core.Context('Wf_Notification', 'UpdateInfoGuest', to_char(nid), moreinforesponder);
7742: raise;
7743: end UpdateInfoGuest;
7744:
7745:
7768: exception
7769: when others then
7770: -- Bugfix 2880029 - changed sacsharm - 03/31/03
7771: -- If attribute not defined, do not hide Request More Info.
7772: if (wf_core.error_name = 'WFNTF_ATTR') then
7773: wf_core.clear;
7774: l_hide := 'N';
7775: else
7776: raise;
7769: when others then
7770: -- Bugfix 2880029 - changed sacsharm - 03/31/03
7771: -- If attribute not defined, do not hide Request More Info.
7772: if (wf_core.error_name = 'WFNTF_ATTR') then
7773: wf_core.clear;
7774: l_hide := 'N';
7775: else
7776: raise;
7777: end if;
7778: end;
7779: return (l_hide);
7780: exception
7781: when others then
7782: wf_core.context('Wf_Notification', 'HideMoreInfo', to_char(nid));
7783: raise;
7784: end HideMoreInfo;
7785:
7786: -- GetComments
7822: p_action_history => html_history);
7823:
7824: exception
7825: when others then
7826: wf_core.context('Wf_Notification', 'GetComments', to_char(nid), display_type);
7827: raise;
7828: end GetComments;
7829:
7830: --
8048: if (l_item_type in ('POSCHORD', 'POSUPDNT', 'POSORDNT', 'POSASNNB', 'CREATEPO', 'POAPPRV',
8049: 'POPRICAT', 'PORCOTOL', 'PONGRQCH', 'POERROR', 'POWFDS', 'RCVDMEMO',
8050: 'APVRMDER', 'POREQCHA', 'PORCPT', 'REQAPPRV', 'PORPOCHA')) then
8051: l_suppress_hist := 'Y';
8052: l_title := Wf_Core.Translate('WFNTF_NTF_HISTORY');
8053: else
8054: l_suppress_hist := 'N';
8055: l_title := Wf_Core.Translate('WFNTF_ACTION_HISTORY');
8056: end if;
8051: l_suppress_hist := 'Y';
8052: l_title := Wf_Core.Translate('WFNTF_NTF_HISTORY');
8053: else
8054: l_suppress_hist := 'N';
8055: l_title := Wf_Core.Translate('WFNTF_ACTION_HISTORY');
8056: end if;
8057:
8058: l_wf_system := Wf_Core.Translate('WF_SYSTEM');
8059: l_delim := ':';
8054: l_suppress_hist := 'N';
8055: l_title := Wf_Core.Translate('WFNTF_ACTION_HISTORY');
8056: end if;
8057:
8058: l_wf_system := Wf_Core.Translate('WF_SYSTEM');
8059: l_delim := ':';
8060:
8061: l_table_dir := table_direction;
8062: if (l_table_dir = 'L') then
8066: end if;
8067:
8068: j := 1;
8069: -- Action History Title
8070: cells(j) := wf_core.translate('NUM');
8071: if (p_display_type = wf_notification.doc_html) then
8072: cells(j) := 'S5%:'||cells(j);
8073: end if;
8074:
8072: cells(j) := 'S5%:'||cells(j);
8073: end if;
8074:
8075: j := j+1;
8076: cells(j) := wf_core.translate('ACTION_DATE');
8077: if (p_display_type = wf_notification.doc_html) then
8078: cells(j) := 'S15%:'||cells(j);
8079: end if;
8080:
8078: cells(j) := 'S15%:'||cells(j);
8079: end if;
8080:
8081: j := j+1;
8082: cells(j) := wf_core.translate('ACTION');
8083: if (p_display_type = wf_notification.doc_html) then
8084: cells(j) := 'S10%:'||cells(j);
8085: end if;
8086:
8084: cells(j) := 'S10%:'||cells(j);
8085: end if;
8086:
8087: j := j+1;
8088: cells(j) := wf_core.translate('FROM');
8089: if (p_display_type = wf_notification.doc_html) then
8090: cells(j) := 'S15%:'||cells(j);
8091: end if;
8092:
8090: cells(j) := 'S15%:'||cells(j);
8091: end if;
8092:
8093: j := j+1;
8094: cells(j) := wf_core.translate('TO');
8095: if (p_display_type = wf_notification.doc_html) then
8096: cells(j) := 'S15%:'||cells(j);
8097: end if;
8098:
8096: cells(j) := 'S15%:'||cells(j);
8097: end if;
8098:
8099: j := j+1;
8100: cells(j) := wf_core.translate('DETAILS');
8101: if (p_display_type = wf_notification.doc_html) then
8102: cells(j) := 'S40%:'||cells(j);
8103: end if;
8104:
8128: j := j+1;
8129:
8130: -- If the record is not from WF_COMMENTS, need to resolve the action
8131: if (l_comm_rec.h_action_type <> '#WF_COMMENTS#') then
8132: l_action_str := Wf_Core.Activity_Result(l_comm_rec.h_action_type, l_comm_rec.h_action);
8133: else
8134: l_action := l_comm_rec.h_action;
8135: l_pos := instr(l_action, '_', 1);
8136: if (l_pos > 0) then
8135: l_pos := instr(l_action, '_', 1);
8136: if (l_pos > 0) then
8137: l_action := substr(l_action, 1, l_pos-1);
8138: end if;
8139: l_action_str := Wf_Core.Translate(l_action);
8140: end if;
8141:
8142: if (p_display_type = wf_notification.doc_html) then
8143: cells(j) := 'S:'||l_action_str;
8216: l_pos := instr(l_action, '_', 1);
8217: if (l_pos > 0) then
8218: l_action := substr(l_action, 1, l_pos-1);
8219: end if;
8220: l_action_str := Wf_Core.Translate(l_action);
8221:
8222: if (p_display_type = wf_notification.doc_html) then
8223: cells(j) := 'S:'||l_action_str;
8224: else
8297: for k in 1..cells.LAST loop
8298: if (mod(k, 6) <> 0) then
8299: l_result := l_result||cells(k)||' '||l_delim||' ';
8300: else
8301: l_result := l_result||cells(k)||wf_core.newline;
8302: end if;
8303: end loop;
8304: l_result := wf_core.translate('WFNTF_ACTION_HISTORY')||wf_core.newline||l_result;
8305: end if;
8300: else
8301: l_result := l_result||cells(k)||wf_core.newline;
8302: end if;
8303: end loop;
8304: l_result := wf_core.translate('WFNTF_ACTION_HISTORY')||wf_core.newline||l_result;
8305: end if;
8306:
8307: p_action_history := l_result;
8308:
8307: p_action_history := l_result;
8308:
8309: exception
8310: when others then
8311: wf_core.context('Wf_Notification', 'GetComments2', to_char(p_nid), p_display_type);
8312: raise;
8313: end GetComments2;
8314:
8315: --
8345: Wf_Notification.GetAttrblob(nid, astring, disptype, document, doctype, aname);
8346:
8347: exception
8348: when others then
8349: wf_core.context('Wf_Notification', 'oldGetAttrblob', to_char(nid), aname,
8350: disptype);
8351: raise;
8352: end GetAttrblob;
8353:
8398: -- Check args
8399: if ((nid is null) or (astring is null) or
8400: (disptype not in (wf_notification.doc_text,
8401: wf_notification.doc_html))) then
8402: wf_core.token('NID', to_char(nid));
8403: wf_core.token('ASTRING', aname);
8404: wf_core.token('DISPTYPE', disptype);
8405: wf_core.raise('WFSQL_ARGS');
8406: end if;
8399: if ((nid is null) or (astring is null) or
8400: (disptype not in (wf_notification.doc_text,
8401: wf_notification.doc_html))) then
8402: wf_core.token('NID', to_char(nid));
8403: wf_core.token('ASTRING', aname);
8404: wf_core.token('DISPTYPE', disptype);
8405: wf_core.raise('WFSQL_ARGS');
8406: end if;
8407:
8400: (disptype not in (wf_notification.doc_text,
8401: wf_notification.doc_html))) then
8402: wf_core.token('NID', to_char(nid));
8403: wf_core.token('ASTRING', aname);
8404: wf_core.token('DISPTYPE', disptype);
8405: wf_core.raise('WFSQL_ARGS');
8406: end if;
8407:
8408: -- of all the possible Document type matches,
8401: wf_notification.doc_html))) then
8402: wf_core.token('NID', to_char(nid));
8403: wf_core.token('ASTRING', aname);
8404: wf_core.token('DISPTYPE', disptype);
8405: wf_core.raise('WFSQL_ARGS');
8406: end if;
8407:
8408: -- of all the possible Document type matches,
8409: -- make sure its a PLSQLBLOB
8504: /* if (dbms_sql.is_open(curs)) then
8505: dbms_sql.close_cursor(curs);
8506: end if; */
8507:
8508: wf_core.context('Wf_Notification', 'GetAttrblob', to_char(nid), aname,
8509: disptype);
8510: raise;
8511: end GetAttrblob;
8512:
8594: return isFwkBody( nid, content_type);
8595: end if;
8596: exception
8597: when OTHERS then
8598: wf_core.context('Wf_Notification','isFwkRegion',to_char(nid), content_type);
8599: raise;
8600:
8601: End isFwkRegion;
8602:
8696:
8697: return lv_fwk_body;
8698: exception
8699: when OTHERS then
8700: wf_core.context('Wf_Notification','isFwkBody',to_char(nid), content_type);
8701: raise;
8702:
8703: End isFwkBody;
8704:
8747:
8748: return lv_token_exist;
8749: exception
8750: when OTHERS then
8751: wf_core.context('Wf_Notification','fwkTokenExist',to_char(nid));
8752: raise;
8753:
8754: end fwkTokenExist;
8755:
8808: end if;
8809:
8810: exception
8811: when OTHERS then
8812: wf_core.context('Wf_Notification','getNtfActInfo',to_char(nid));
8813: raise;
8814:
8815: End getNtfActInfo;
8816:
8901:
8902: -- Append the NLS_CALENDAR to the fwk URL only for 12.1.0 or above
8903: if (fnd_release.major_version = 12 and fnd_release.minor_version >= 1
8904: and fnd_release.point_version>=1) or (fnd_release.major_version > 12) then
8905: url_value := url_value || '&nlsCalendar='|| nvl(p_nlsCalendar, wf_core.nls_calendar);
8906: end if;
8907:
8908: if (WF_LOG_PKG.LEVEL_PROCEDURE >= fnd_log.g_current_runtime_level) then
8909: wf_log_pkg.String(WF_LOG_PKG.LEVEL_PROCEDURE, l_api,'p_nlsCalendar: '||p_nlsCalendar);
8914: return url_value;
8915:
8916: exception
8917: when OTHERS then
8918: wf_core.context('Wf_Notification','getFwkBodyURL2',
8919: to_char(p_nid), p_contentType,p_language,p_nlsCalendar );
8920: raise;
8921:
8922: END getFwkBodyURL2;
9009: if (fnd_release.major_version = 12 and fnd_release.minor_version >= 1
9010: and fnd_release.point_version>=1) or (fnd_release.major_version > 12) then
9011:
9012: url_value := url_value || '&nlsCalendar='|| nvl(p_nlsCalendar,
9013: wf_core.nls_calendar);
9014: end if;
9015:
9016: if (WF_LOG_PKG.LEVEL_PROCEDURE >= fnd_log.g_current_runtime_level) then
9017: wf_log_pkg.String(WF_LOG_PKG.LEVEL_PROCEDURE, l_api,'p_nlsCalendar: '||p_nlsCalendar);
9022: return url_value;
9023:
9024: exception
9025: when OTHERS then
9026: wf_core.context('Wf_Notification','getSummaryURL2', p_mailer_role, p_contentType, p_nlsCalendar);
9027: raise;
9028:
9029: END getSummaryURL2;
9030:
9070: --when any exception raise the error with the corresponding notification id
9071:
9072: exception
9073: when others then
9074: wf_core.context('WF_Notification', 'GetSignatureRequired', to_char(p_nid));
9075: wf_core.token('NID', to_char(p_nid));
9076: wf_core.raise('WFMLR_INVALID_SIG_POLICY');
9077: end;
9078:
9071:
9072: exception
9073: when others then
9074: wf_core.context('WF_Notification', 'GetSignatureRequired', to_char(p_nid));
9075: wf_core.token('NID', to_char(p_nid));
9076: wf_core.raise('WFMLR_INVALID_SIG_POLICY');
9077: end;
9078:
9079: -- SetUIErrorMessage
9072: exception
9073: when others then
9074: wf_core.context('WF_Notification', 'GetSignatureRequired', to_char(p_nid));
9075: wf_core.token('NID', to_char(p_nid));
9076: wf_core.raise('WFMLR_INVALID_SIG_POLICY');
9077: end;
9078:
9079: -- SetUIErrorMessage
9080: -- API for Enhanced error handling for OAFwk UI Bug#2845488 grengara
9082:
9083: procedure SetUIErrorMessage
9084: is
9085: begin
9086: if ((wf_core.error_name is null) AND (sqlcode <= -20000) AND (sqlcode >= -20999)) then
9087: -- capture the SQL Error message in this global variable so that it can be propogated
9088: -- back to OAF without the need for an OUT paramter
9089: wf_core.error_message := sqlerrm;
9090: end if;
9085: begin
9086: if ((wf_core.error_name is null) AND (sqlcode <= -20000) AND (sqlcode >= -20999)) then
9087: -- capture the SQL Error message in this global variable so that it can be propogated
9088: -- back to OAF without the need for an OUT paramter
9089: wf_core.error_message := sqlerrm;
9090: end if;
9091: end SetUIErrorMessage;
9092:
9093: --
9133: end if;
9134:
9135: -- Sometimes p_from_role is email address when answering for more info request
9136: if (l_from_role = 'WF_SYSTEM') then
9137: l_from_user := Wf_Core.Translate(l_from_role);
9138: else
9139: l_from_user := nvl(Wf_Directory.GetRoleDisplayName(l_from_role), l_from_role);
9140: end if;
9141: if (p_to_role = 'WF_SYSTEM') then
9138: else
9139: l_from_user := nvl(Wf_Directory.GetRoleDisplayName(l_from_role), l_from_role);
9140: end if;
9141: if (p_to_role = 'WF_SYSTEM') then
9142: l_to_user := Wf_Core.Translate(p_to_role);
9143: else
9144: l_to_user := nvl(Wf_Directory.GetRoleDisplayname(p_to_role), p_to_role);
9145: end if;
9146: l_action := p_action;
9197: );
9198:
9199: exception
9200: when others then
9201: wf_core.context('Wf_Notification', 'SetComments', to_char(p_nid), p_from_role,
9202: p_to_role, p_action, p_action_source);
9203: raise;
9204: end SetComments;
9205:
9239: FROM wf_notifications
9240: WHERE notification_id = p_nid;
9241: exception
9242: when no_data_found then
9243: wf_core.token('NID', to_char(p_nid));
9244: wf_core.raise('WFNTF_NID');
9245: end;
9246:
9247: -- Get recipient information using Dir Service API. Select from WF_ROLES
9240: WHERE notification_id = p_nid;
9241: exception
9242: when no_data_found then
9243: wf_core.token('NID', to_char(p_nid));
9244: wf_core.raise('WFNTF_NID');
9245: end;
9246:
9247: -- Get recipient information using Dir Service API. Select from WF_ROLES
9248: -- may not give the right information
9252:
9253: -- Check if the notification is eligible to be e-mailed. We throw specific error
9254: -- for the UI to display appropriately to the user
9255: if (l_status <> 'OPEN') then
9256: wf_core.token('NID', to_char(p_nid));
9257: wf_core.raise('WFNTF_NID_OPEN');
9258: end if;
9259:
9260: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9253: -- Check if the notification is eligible to be e-mailed. We throw specific error
9254: -- for the UI to display appropriately to the user
9255: if (l_status <> 'OPEN') then
9256: wf_core.token('NID', to_char(p_nid));
9257: wf_core.raise('WFNTF_NID_OPEN');
9258: end if;
9259:
9260: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9261: wf_core.token('NTF_PREF', l_notification_pref);
9257: wf_core.raise('WFNTF_NID_OPEN');
9258: end if;
9259:
9260: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9261: wf_core.token('NTF_PREF', l_notification_pref);
9262: wf_core.token('RECIPIENT', l_recipient_role);
9263: wf_core.raise('WFNTF_INVALID_PREF');
9264: end if;
9265:
9258: end if;
9259:
9260: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9261: wf_core.token('NTF_PREF', l_notification_pref);
9262: wf_core.token('RECIPIENT', l_recipient_role);
9263: wf_core.raise('WFNTF_INVALID_PREF');
9264: end if;
9265:
9266: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9259:
9260: if (l_notification_pref not in ('MAILHTML','MAILTEXT','MAILATTH','MAILHTM2')) then
9261: wf_core.token('NTF_PREF', l_notification_pref);
9262: wf_core.token('RECIPIENT', l_recipient_role);
9263: wf_core.raise('WFNTF_INVALID_PREF');
9264: end if;
9265:
9266: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9267: wf_core.token('MAILSTATUS', l_mail_status);
9263: wf_core.raise('WFNTF_INVALID_PREF');
9264: end if;
9265:
9266: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9267: wf_core.token('MAILSTATUS', l_mail_status);
9268: wf_core.raise('WFNTF_EMAIL_NOTSENT');
9269: end if;
9270:
9271: -- Raise the event to send an e-mail
9264: end if;
9265:
9266: if (l_mail_status not in ('SENT', 'ERROR', 'FAILED', 'UNAVAIL')) then
9267: wf_core.token('MAILSTATUS', l_mail_status);
9268: wf_core.raise('WFNTF_EMAIL_NOTSENT');
9269: end if;
9270:
9271: -- Raise the event to send an e-mail
9272: UPDATE wf_notifications
9299: p_parameters => l_paramlist);
9300:
9301: exception
9302: when others then
9303: wf_core.context('Wf_Notification', 'Resend', to_char(p_nid));
9304: raise;
9305: end Resend;
9306:
9307: --
9352: and PA.ACTIVITY_NAME = A.NAME
9353: and PA.ACTIVITY_ITEM_TYPE = A.ITEM_TYPE;
9354: end;
9355:
9356: p_result_display := wf_core.activity_result( l_result_type, p_result_code );
9357:
9358: exception
9359: when NO_DATA_FOUND then
9360: p_result_code := null;
9359: when NO_DATA_FOUND then
9360: p_result_code := null;
9361: p_result_display := null;
9362: when others then
9363: wf_core.context('Wf_Notification', 'getNtfResponse', to_char(p_nid));
9364: raise;
9365: end getNtfResponse;
9366:
9367: --
9399: p_user_comment => p_user_comment);
9400: end loop;
9401: exception
9402: when others then
9403: wf_core.context('Wf_Notification', 'propagatehistory', p_item_type,p_item_key, p_document_id);
9404: raise;
9405: end;
9406:
9407: --
9482: begin
9483:
9484: -- Convert from varchar2 to date format
9485: if(p_from_date is not null) then
9486: l_from_date := to_date(p_from_date, wf_core.canonical_date_mask);
9487: end if;
9488:
9489: if(p_to_date is not null) then
9490: l_to_date := to_date(p_to_date, wf_core.canonical_date_mask);
9486: l_from_date := to_date(p_from_date, wf_core.canonical_date_mask);
9487: end if;
9488:
9489: if(p_to_date is not null) then
9490: l_to_date := to_date(p_to_date, wf_core.canonical_date_mask);
9491: end if;
9492:
9493: -- if mail status is specified as null, both failed and errored
9494: -- ntfs require to be resent
9503:
9504: exception
9505: when others then
9506: -- ignore any error while enqueing
9507: Wf_Core.Clear();
9508: end;
9509: commit;
9510: end loop;
9511: close c_failed_ntfs;
9523: Wf_Notification.Resend(l_nid);
9524: exception
9525: when others then
9526: -- ignore any error while enqueing
9527: Wf_Core.Clear();
9528: end;
9529: commit;
9530: end loop;
9531: close c_error_fyi_ntfs;
9536: retcode := '0';
9537: exception
9538: when others then
9539: -- get error message into errbuf
9540: wf_core.get_error(l_errname, l_errmsg, l_errstack);
9541: if (l_errmsg is not null) then
9542: errbuf := l_errmsg;
9543: else
9544: errbuf := sqlerrm;