37: end;
38: return lValue;
39: EXCEPTION
40: when others then
41: wf_core.Context('Wf_Mailer_Parameters', 'GetValue', pName, pParam);
42: raise;
43: END GetValue;
44:
45: -- GetValue - To return a parameter value where the parameter
111: BEGIN
112: lValue := wf_notification.getAttrText(pNID, substrb(attr,2));
113: EXCEPTION
114: WHEN OTHERS THEN
115: wf_core.clear;
116: lValue := defv;
117: END;
118: ELSE
119: lValue := attr;
123: lValue := stack(1);
124: ELSE
125: -- There was a syntax error in the string. ie it did not
126: -- resolve to three or one tokens where token 2 is a ":".
127: wf_core.token('NID', to_char(pNID));
128: wf_core.token('NAME', pName);
129: wf_core.token('PARAM', pParam);
130: wf_core.token('VALUE',lValue);
131: wf_core.raise('WFMLR_PARAMETER_SYNTAX');
124: ELSE
125: -- There was a syntax error in the string. ie it did not
126: -- resolve to three or one tokens where token 2 is a ":".
127: wf_core.token('NID', to_char(pNID));
128: wf_core.token('NAME', pName);
129: wf_core.token('PARAM', pParam);
130: wf_core.token('VALUE',lValue);
131: wf_core.raise('WFMLR_PARAMETER_SYNTAX');
132: END IF;
125: -- There was a syntax error in the string. ie it did not
126: -- resolve to three or one tokens where token 2 is a ":".
127: wf_core.token('NID', to_char(pNID));
128: wf_core.token('NAME', pName);
129: wf_core.token('PARAM', pParam);
130: wf_core.token('VALUE',lValue);
131: wf_core.raise('WFMLR_PARAMETER_SYNTAX');
132: END IF;
133: END IF;
126: -- resolve to three or one tokens where token 2 is a ":".
127: wf_core.token('NID', to_char(pNID));
128: wf_core.token('NAME', pName);
129: wf_core.token('PARAM', pParam);
130: wf_core.token('VALUE',lValue);
131: wf_core.raise('WFMLR_PARAMETER_SYNTAX');
132: END IF;
133: END IF;
134: return lValue;
127: wf_core.token('NID', to_char(pNID));
128: wf_core.token('NAME', pName);
129: wf_core.token('PARAM', pParam);
130: wf_core.token('VALUE',lValue);
131: wf_core.raise('WFMLR_PARAMETER_SYNTAX');
132: END IF;
133: END IF;
134: return lValue;
135: EXCEPTION
133: END IF;
134: return lValue;
135: EXCEPTION
136: when others then
137: wf_core.Context('Wf_Mailer_Parameters', 'GetValue', to_char(pNID),
138: pName, pParam);
139: raise;
140: END GetValue;
141:
172: END LOOP;
173:
174: EXCEPTION
175: when others then
176: wf_core.Context('Wf_Mailer_Parameters', 'GetValues', pName);
177: raise;
178: END GetValues;
179:
180: -- PRIVATE
249: AND parameter = pParam;
250: end if;
251: EXCEPTION
252: when others then
253: wf_core.Context('Wf_Mailer_Parameters', 'PutValue', pName, pParam);
254: raise;
255: END PutValue;
256:
257:
277: AND parameter = pParam;
278: pResult := valid_param;
279: EXCEPTION
280: WHEN no_data_found THEN
281: wf_core.token('PARAMETER',pParam);
282: wf_core.token('VALUE',pValue);
283: pResult := wf_core.Substitute('WFERR', 'WFMLR_NO_PARAMETER');
284: funName := no_validation;
285: WHEN OTHERS THEN RAISE;
278: pResult := valid_param;
279: EXCEPTION
280: WHEN no_data_found THEN
281: wf_core.token('PARAMETER',pParam);
282: wf_core.token('VALUE',pValue);
283: pResult := wf_core.Substitute('WFERR', 'WFMLR_NO_PARAMETER');
284: funName := no_validation;
285: WHEN OTHERS THEN RAISE;
286: END;
279: EXCEPTION
280: WHEN no_data_found THEN
281: wf_core.token('PARAMETER',pParam);
282: wf_core.token('VALUE',pValue);
283: pResult := wf_core.Substitute('WFERR', 'WFMLR_NO_PARAMETER');
284: funName := no_validation;
285: WHEN OTHERS THEN RAISE;
286: END;
287: IF funName <> no_validation THEN
295: END IF;
296:
297: EXCEPTION
298: when others then
299: wf_core.Context('Wf_Mailer_Parameters', 'Validate', pParam, pValue);
300: raise;
301: END Validate;
302:
303:
321: END IF;
322: END IF;
323: EXCEPTION
324: when others then
325: wf_core.Context('Wf_Mailer_Parameters', 'PutValue', pName, pParam);
326: raise;
327: END PutValue;
328:
329: -- PutValues - Assign a PL/SQL table of parameters value to the Parameter
343: pParams(i).ERRMSG);
344: END LOOP;
345: EXCEPTION
346: when others then
347: wf_core.Context('Wf_Mailer_Parameters', 'PutValues', pName);
348: raise;
349: END PutValues;
350:
351: -- get_mailer_tags_c - Return the REF Cursor for the list of tags
403: end loop;
404:
405: EXCEPTION
406: when others then
407: wf_core.Context('Wf_Mailer_Parameters', 'GetTAGs', pName);
408: raise;
409: END GetTags;
410:
411:
485: end if;
486:
487: EXCEPTION
488: when others then
489: wf_core.Context('Wf_Mailer_Parameters', 'PutTAGs', pName,
490: to_char(ptag_id), paction, ppattern);
491: raise;
492: END PutTag;
493:
508: PutTAG(pName, pTag_ID, pAction, pPattern);
509: pResult := valid_param;
510: EXCEPTION
511: when others then
512: wf_core.Get_Error(errname, errmsg, errstack);
513: wf_core.token('TAGID',to_char(pTag_ID));
514: wf_core.token('ACTION', pAction);
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
509: pResult := valid_param;
510: EXCEPTION
511: when others then
512: wf_core.Get_Error(errname, errmsg, errstack);
513: wf_core.token('TAGID',to_char(pTag_ID));
514: wf_core.token('ACTION', pAction);
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
517: wf_core.token('ERRMSG', errmsg);
510: EXCEPTION
511: when others then
512: wf_core.Get_Error(errname, errmsg, errstack);
513: wf_core.token('TAGID',to_char(pTag_ID));
514: wf_core.token('ACTION', pAction);
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
517: wf_core.token('ERRMSG', errmsg);
518: wf_core.token('STACK', errstack);
511: when others then
512: wf_core.Get_Error(errname, errmsg, errstack);
513: wf_core.token('TAGID',to_char(pTag_ID));
514: wf_core.token('ACTION', pAction);
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
517: wf_core.token('ERRMSG', errmsg);
518: wf_core.token('STACK', errstack);
519: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_TAG');
512: wf_core.Get_Error(errname, errmsg, errstack);
513: wf_core.token('TAGID',to_char(pTag_ID));
514: wf_core.token('ACTION', pAction);
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
517: wf_core.token('ERRMSG', errmsg);
518: wf_core.token('STACK', errstack);
519: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_TAG');
520: END PutTag;
513: wf_core.token('TAGID',to_char(pTag_ID));
514: wf_core.token('ACTION', pAction);
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
517: wf_core.token('ERRMSG', errmsg);
518: wf_core.token('STACK', errstack);
519: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_TAG');
520: END PutTag;
521:
514: wf_core.token('ACTION', pAction);
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
517: wf_core.token('ERRMSG', errmsg);
518: wf_core.token('STACK', errstack);
519: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_TAG');
520: END PutTag;
521:
522: -- GetValues - To return a PL/SQL table of parameters
515: wf_core.token('PATTERN',pPattern);
516: wf_core.token('ERRNAME', errname);
517: wf_core.token('ERRMSG', errmsg);
518: wf_core.token('STACK', errstack);
519: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_TAG');
520: END PutTag;
521:
522: -- GetValues - To return a PL/SQL table of parameters
523: -- IN
660: pParam39 := params(39).Parameter; pValue39 := params(39).Value;
661: pParam40 := params(40).Parameter; pValue40 := params(40).Value;
662: EXCEPTION
663: WHEN Others THEN
664: wf_core.Context('Wf_Mailer_Parameters', 'GetValues', pName);
665: raise;
666: END GetValues;
667:
668:
801: putValue(pName, pParam40, pValue40, pResult40);
802:
803: EXCEPTION
804: WHEN Others THEN
805: wf_core.Context('Wf_Mailer_Parameters', 'PutValues', pName);
806: raise;
807: END PutValues;
808:
809: -- ValidSTR
826: FROM wf_mailer_parameters
827: WHERE name = default_name
828: AND parameter = pParam;
829: IF (pValue IS NULL or pValue = '') AND l_required = 'Y' THEN
830: wf_core.token('PARAMETER', pParam);
831: wf_core.token('VALUE', pvalue);
832: pResult := wf_core.Substitute('WFERR', 'WFMLR_NULL_PARAMETER');
833: ELSIF pValue = l_default AND l_required = 'Y' THEN
834: wf_core.token('PARAMETER', pParam);
827: WHERE name = default_name
828: AND parameter = pParam;
829: IF (pValue IS NULL or pValue = '') AND l_required = 'Y' THEN
830: wf_core.token('PARAMETER', pParam);
831: wf_core.token('VALUE', pvalue);
832: pResult := wf_core.Substitute('WFERR', 'WFMLR_NULL_PARAMETER');
833: ELSIF pValue = l_default AND l_required = 'Y' THEN
834: wf_core.token('PARAMETER', pParam);
835: wf_core.token('VALUE', pvalue);
828: AND parameter = pParam;
829: IF (pValue IS NULL or pValue = '') AND l_required = 'Y' THEN
830: wf_core.token('PARAMETER', pParam);
831: wf_core.token('VALUE', pvalue);
832: pResult := wf_core.Substitute('WFERR', 'WFMLR_NULL_PARAMETER');
833: ELSIF pValue = l_default AND l_required = 'Y' THEN
834: wf_core.token('PARAMETER', pParam);
835: wf_core.token('VALUE', pvalue);
836: pResult := wf_core.Substitute('WFERR', 'WFMLR_REQUIRED_PARAMETER');
830: wf_core.token('PARAMETER', pParam);
831: wf_core.token('VALUE', pvalue);
832: pResult := wf_core.Substitute('WFERR', 'WFMLR_NULL_PARAMETER');
833: ELSIF pValue = l_default AND l_required = 'Y' THEN
834: wf_core.token('PARAMETER', pParam);
835: wf_core.token('VALUE', pvalue);
836: pResult := wf_core.Substitute('WFERR', 'WFMLR_REQUIRED_PARAMETER');
837: ELSE
838: pResult := valid_param;
831: wf_core.token('VALUE', pvalue);
832: pResult := wf_core.Substitute('WFERR', 'WFMLR_NULL_PARAMETER');
833: ELSIF pValue = l_default AND l_required = 'Y' THEN
834: wf_core.token('PARAMETER', pParam);
835: wf_core.token('VALUE', pvalue);
836: pResult := wf_core.Substitute('WFERR', 'WFMLR_REQUIRED_PARAMETER');
837: ELSE
838: pResult := valid_param;
839: END IF;
832: pResult := wf_core.Substitute('WFERR', 'WFMLR_NULL_PARAMETER');
833: ELSIF pValue = l_default AND l_required = 'Y' THEN
834: wf_core.token('PARAMETER', pParam);
835: wf_core.token('VALUE', pvalue);
836: pResult := wf_core.Substitute('WFERR', 'WFMLR_REQUIRED_PARAMETER');
837: ELSE
838: pResult := valid_param;
839: END IF;
840: EXCEPTION
838: pResult := valid_param;
839: END IF;
840: EXCEPTION
841: WHEN Others THEN
842: wf_core.Context('Wf_Mailer_Parameters', 'ValidStr', pParam, pValue,
843: pResult);
844: raise;
845: END ValidSTR;
846:
867: FROM sys.dual;
868: pResult := valid_param;
869: EXCEPTION
870: WHEN OTHERS THEN
871: wf_core.token('PARAMETER', pParam);
872: wf_core.token('VALUE', pvalue);
873: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADNUMBER');
874: END;
875: END IF;
868: pResult := valid_param;
869: EXCEPTION
870: WHEN OTHERS THEN
871: wf_core.token('PARAMETER', pParam);
872: wf_core.token('VALUE', pvalue);
873: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADNUMBER');
874: END;
875: END IF;
876:
869: EXCEPTION
870: WHEN OTHERS THEN
871: wf_core.token('PARAMETER', pParam);
872: wf_core.token('VALUE', pvalue);
873: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADNUMBER');
874: END;
875: END IF;
876:
877: EXCEPTION
875: END IF;
876:
877: EXCEPTION
878: WHEN Others THEN
879: wf_core.Context('Wf_Mailer_Parameters', 'ValidINT', pParam, pValue,
880: pResult);
881: raise;
882: END ValidINT;
883:
894: pResult IN OUT NOCOPY VARCHAR2)
895: IS
896: BEGIN
897: IF upper(pValue) NOT IN ('Y','N','YES','NO') then
898: wf_core.token('PARAMETER', pParam);
899: wf_core.token('VALUE', pvalue);
900: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADBOOL');
901: ELSE
902: pResult := valid_param;
895: IS
896: BEGIN
897: IF upper(pValue) NOT IN ('Y','N','YES','NO') then
898: wf_core.token('PARAMETER', pParam);
899: wf_core.token('VALUE', pvalue);
900: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADBOOL');
901: ELSE
902: pResult := valid_param;
903: END IF;
896: BEGIN
897: IF upper(pValue) NOT IN ('Y','N','YES','NO') then
898: wf_core.token('PARAMETER', pParam);
899: wf_core.token('VALUE', pvalue);
900: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADBOOL');
901: ELSE
902: pResult := valid_param;
903: END IF;
904: EXCEPTION
902: pResult := valid_param;
903: END IF;
904: EXCEPTION
905: WHEN Others THEN
906: wf_core.Context('Wf_Mailer_Parameters', 'ValidLOG', pParam, pValue,
907: pResult);
908: raise;
909: END ValidLOG;
910:
920: pResult IN OUT NOCOPY VARCHAR2)
921: IS
922: BEGIN
923: IF upper(pValue) NOT IN ('POP3','IMAP') then
924: wf_core.token('PARAMETER', pParam);
925: wf_core.token('VALUE', pvalue);
926: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADPROTOCOL');
927: ELSE
928: pResult := valid_param;
921: IS
922: BEGIN
923: IF upper(pValue) NOT IN ('POP3','IMAP') then
924: wf_core.token('PARAMETER', pParam);
925: wf_core.token('VALUE', pvalue);
926: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADPROTOCOL');
927: ELSE
928: pResult := valid_param;
929: END IF;
922: BEGIN
923: IF upper(pValue) NOT IN ('POP3','IMAP') then
924: wf_core.token('PARAMETER', pParam);
925: wf_core.token('VALUE', pvalue);
926: pResult := wf_core.Substitute('WFERR', 'WFMLR_BADPROTOCOL');
927: ELSE
928: pResult := valid_param;
929: END IF;
930: EXCEPTION
928: pResult := valid_param;
929: END IF;
930: EXCEPTION
931: WHEN Others THEN
932: wf_core.Context('Wf_Mailer_Parameters', 'ValidPROTOCOL',
933: pParam, pValue, pResult);
934: raise;
935: END ValidPROTOCOL;
936:
955: WHEN NO_DATA_FOUND THEN
956: valid := 0;
957: END;
958: IF pValue IS NOT NULL AND VALID = 0 THEN
959: wf_core.token('PARAMETER', pParam);
960: wf_core.token('VALUE', pvalue);
961: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_SENDMAILARG');
962: ELSE
963: pResult := valid_param;
956: valid := 0;
957: END;
958: IF pValue IS NOT NULL AND VALID = 0 THEN
959: wf_core.token('PARAMETER', pParam);
960: wf_core.token('VALUE', pvalue);
961: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_SENDMAILARG');
962: ELSE
963: pResult := valid_param;
964: END IF;
957: END;
958: IF pValue IS NOT NULL AND VALID = 0 THEN
959: wf_core.token('PARAMETER', pParam);
960: wf_core.token('VALUE', pvalue);
961: pResult := wf_core.Substitute('WFERR', 'WFMLR_BAD_SENDMAILARG');
962: ELSE
963: pResult := valid_param;
964: END IF;
965: EXCEPTION
963: pResult := valid_param;
964: END IF;
965: EXCEPTION
966: WHEN Others THEN
967: wf_core.Context('Wf_Mailer_Parameters', 'ValidPROTOCOL',
968: pParam, pValue, pResult);
969: raise;
970: END ValidSENDARG;
971:
1038: return l_value;
1039:
1040: EXCEPTION
1041: when others then
1042: wf_core.Context('Wf_Mailer_Parameters', 'GetValueForCorr',
1043: 'CorrId:'||l_corrid, 'Parameter:'||pName);
1044: raise;
1045: END GetValueForCorr;
1046:
1067: l_value := wf_notification.getAttrText(pNid, '#WFM_'||pName);
1068: pInAttr := 'Y';
1069: exception
1070: when others then
1071: if (wf_core.error_name = 'WFNTF_ATTR') then
1072: Wf_Core.Clear;
1073: pInAttr := 'N';
1074: else
1075: raise;
1068: pInAttr := 'Y';
1069: exception
1070: when others then
1071: if (wf_core.error_name = 'WFNTF_ATTR') then
1072: Wf_Core.Clear;
1073: pInAttr := 'N';
1074: else
1075: raise;
1076: end if;
1083:
1084:
1085: EXCEPTION
1086: when others then
1087: wf_core.Context('Wf_Mailer_Parameters', 'GetValueForCorr',
1088: 'pNid: '||pNid, 'CorrId:'||pCorrId,
1089: 'Parameter:'||pName);
1090: raise;
1091: END GetValueForCorr;