DBA Data[Home] [Help]

APPS.WF_CORE dependencies on WF_CORE

Line 1: PACKAGE BODY wf_core AS

1: PACKAGE BODY wf_core AS
2: /* $Header: wfcoreb.pls 120.21.12020000.6 2013/04/09 20:18:11 skandepu ship $ */
3:
4: --
5: -- Token List

Line 57: wf_core.error_name := '';

53: -- none
54: --
55: procedure Clear is
56: begin
57: wf_core.error_name := '';
58: wf_core.error_number := '';
59: wf_core.error_message := '';
60: wf_core.error_stack := '';
61: token_counter := 0;

Line 58: wf_core.error_number := '';

54: --
55: procedure Clear is
56: begin
57: wf_core.error_name := '';
58: wf_core.error_number := '';
59: wf_core.error_message := '';
60: wf_core.error_stack := '';
61: token_counter := 0;
62: end Clear;

Line 59: wf_core.error_message := '';

55: procedure Clear is
56: begin
57: wf_core.error_name := '';
58: wf_core.error_number := '';
59: wf_core.error_message := '';
60: wf_core.error_stack := '';
61: token_counter := 0;
62: end Clear;
63:

Line 60: wf_core.error_stack := '';

56: begin
57: wf_core.error_name := '';
58: wf_core.error_number := '';
59: wf_core.error_message := '';
60: wf_core.error_stack := '';
61: token_counter := 0;
62: end Clear;
63:
64: --

Line 85: err_name := wf_core.error_name;

81: err_stack out nocopy varchar2,
82: maxErrStackLength in number )
83: is
84: begin
85: err_name := wf_core.error_name;
86: err_message := wf_core.error_message;
87: err_stack := substrb(wf_core.error_stack, 1, maxErrStackLength);
88: wf_core.clear;
89: end Get_Error;

Line 86: err_message := wf_core.error_message;

82: maxErrStackLength in number )
83: is
84: begin
85: err_name := wf_core.error_name;
86: err_message := wf_core.error_message;
87: err_stack := substrb(wf_core.error_stack, 1, maxErrStackLength);
88: wf_core.clear;
89: end Get_Error;
90:

Line 87: err_stack := substrb(wf_core.error_stack, 1, maxErrStackLength);

83: is
84: begin
85: err_name := wf_core.error_name;
86: err_message := wf_core.error_message;
87: err_stack := substrb(wf_core.error_stack, 1, maxErrStackLength);
88: wf_core.clear;
89: end Get_Error;
90:
91: --

Line 88: wf_core.clear;

84: begin
85: err_name := wf_core.error_name;
86: err_message := wf_core.error_message;
87: err_stack := substrb(wf_core.error_stack, 1, maxErrStackLength);
88: wf_core.clear;
89: end Get_Error;
90:
91: --
92: -- Token

Line 136: wf_core.token('NAME', mname);

132: and NAME = mname
133: and LANGUAGE = userenv('LANG');
134: exception
135: when NO_DATA_FOUND then
136: wf_core.token('NAME', mname);
137: wf_core.token('TYPE', mtype);
138: wf_core.raise('WFCORE_NO_MESSAGE');
139: end;
140:

Line 137: wf_core.token('TYPE', mtype);

133: and LANGUAGE = userenv('LANG');
134: exception
135: when NO_DATA_FOUND then
136: wf_core.token('NAME', mname);
137: wf_core.token('TYPE', mtype);
138: wf_core.raise('WFCORE_NO_MESSAGE');
139: end;
140:
141: -- Substitute tokens in message

Line 138: wf_core.raise('WFCORE_NO_MESSAGE');

134: exception
135: when NO_DATA_FOUND then
136: wf_core.token('NAME', mname);
137: wf_core.token('TYPE', mtype);
138: wf_core.raise('WFCORE_NO_MESSAGE');
139: end;
140:
141: -- Substitute tokens in message
142: i := 0;

Line 266: l_translated_string := wf_core.get_message('WFTKN', tkn_name);

262: is
263: l_translated_string VARCHAR2(4000);
264: begin
265:
266: l_translated_string := wf_core.get_message('WFTKN', tkn_name);
267:
268: return (l_translated_string);
269:
270: exception

Line 288: wf_core.error_name := name;

284: procedure Raise(name in varchar2)
285: is
286: begin
287: -- Set error name
288: wf_core.error_name := name;
289:
290: -- Get substituted message
291: wf_core.error_message := Wf_Core.Get_Message('WFERR', name);
292:

Line 291: wf_core.error_message := Wf_Core.Get_Message('WFERR', name);

287: -- Set error name
288: wf_core.error_name := name;
289:
290: -- Get substituted message
291: wf_core.error_message := Wf_Core.Get_Message('WFERR', name);
292:
293: -- Select error number
294: begin
295: SELECT ID

Line 296: INTO wf_core.error_number

292:
293: -- Select error number
294: begin
295: SELECT ID
296: INTO wf_core.error_number
297: FROM WF_RESOURCES
298: WHERE TYPE = 'WFERR'
299: and NAME = Raise.name
300: and LANGUAGE = userenv('LANG');

Line 303: wf_core.error_number := '';

299: and NAME = Raise.name
300: and LANGUAGE = userenv('LANG');
301: exception
302: when NO_DATA_FOUND then
303: wf_core.error_number := '';
304: end;
305:
306: -- Prepend error number to message if available
307: if (wf_core.error_number is not null) then

Line 307: if (wf_core.error_number is not null) then

303: wf_core.error_number := '';
304: end;
305:
306: -- Prepend error number to message if available
307: if (wf_core.error_number is not null) then
308: wf_core.error_message := substrb(to_char(wf_core.error_number)||
309: ': '||wf_core.error_message, 1, 2000);
310: end if;
311:

Line 308: wf_core.error_message := substrb(to_char(wf_core.error_number)||

304: end;
305:
306: -- Prepend error number to message if available
307: if (wf_core.error_number is not null) then
308: wf_core.error_message := substrb(to_char(wf_core.error_number)||
309: ': '||wf_core.error_message, 1, 2000);
310: end if;
311:
312: -- Raise the error

Line 309: ': '||wf_core.error_message, 1, 2000);

305:
306: -- Prepend error number to message if available
307: if (wf_core.error_number is not null) then
308: wf_core.error_message := substrb(to_char(wf_core.error_number)||
309: ': '||wf_core.error_message, 1, 2000);
310: end if;
311:
312: -- Raise the error
313: raise_application_error(-20002, wf_core.error_message);

Line 313: raise_application_error(-20002, wf_core.error_message);

309: ': '||wf_core.error_message, 1, 2000);
310: end if;
311:
312: -- Raise the error
313: raise_application_error(-20002, wf_core.error_message);
314: exception
315: when others then
316: raise;
317: end Raise;

Line 346: buf := wf_core.newline||pkg_name||'.'||proc_name||'(';

342:
343: buf varchar2(32000);
344: begin
345: -- Start with package and proc name.
346: buf := wf_core.newline||pkg_name||'.'||proc_name||'(';
347:
348: -- Add all defined args.
349: if (arg1 <> '*none*') then
350: buf := substrb(buf||arg1, 1, 32000);

Line 383: wf_core.error_stack := substrb(wf_core.error_stack||buf, 1, 32000);

379:
380: buf := substrb(buf||')', 1, 32000);
381:
382: -- Concatenate to the error_stack buffer
383: wf_core.error_stack := substrb(wf_core.error_stack||buf, 1, 32000);
384:
385: end Context;
386:
387: -- *** RANDOM ***

Line 821: return(Wf_Core.Local_Chr(10));

817: function Newline
818: return varchar2
819: is
820: begin
821: return(Wf_Core.Local_Chr(10));
822: end Newline;
823:
824: -- Tab
825: -- Return tab character in current codeset

Line 830: return(Wf_Core.Local_Chr(9));

826: function Tab
827: return varchar2
828: is
829: begin
830: return(Wf_Core.Local_Chr(9));
831: end Tab;
832:
833: -- CR - CarriageReturn
834: -- Return CR character in current codeset.

Line 839: return(WF_CORE.Local_Chr(13));

835: function CR
836: return varchar2
837: is
838: begin
839: return(WF_CORE.Local_Chr(13));
840: end CR;
841:
842: --
843: -- CheckIllegalChars (PRIVATE)

Line 862: wf_core.token('TEXT', p_text);

858: loop
859: l_illegal_char := substr(l_charset,i,1);
860: if (instr(p_text,l_illegal_char)>0) then
861: if (p_raise_exception) then
862: wf_core.token('TEXT', p_text);
863: wf_core.raise('WF_ILLEGAL_CHARS');
864: -- ### Illegal characters found in 'TEXT'
865: end if;
866: return true;

Line 863: wf_core.raise('WF_ILLEGAL_CHARS');

859: l_illegal_char := substr(l_charset,i,1);
860: if (instr(p_text,l_illegal_char)>0) then
861: if (p_raise_exception) then
862: wf_core.token('TEXT', p_text);
863: wf_core.raise('WF_ILLEGAL_CHARS');
864: -- ### Illegal characters found in 'TEXT'
865: end if;
866: return true;
867: end if;

Line 1058: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_ERROR, 'WF_CORE.Tag_DB_Session',

1054: execute immediate sql_stm using p_module_type, p_action;
1055: end if;
1056: exception
1057: when others then
1058: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_ERROR, 'WF_CORE.Tag_DB_Session',
1059: 'module_type '||p_module_type||', module_name '||p_action);
1060: end;
1061:
1062: -- database_default_edition deescribed in wfcores.pls

Line 1113: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.getDedicatedComponentsCorrIds',

1109: elsif(p_agent_name = 'WF_NOTIFICATION_OUT') then
1110: l_componentType := 'WF_MAILER';
1111: end if;
1112:
1113: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.getDedicatedComponentsCorrIds',
1114: 'Getting the dedicated components corrId list for agent '||
1115: p_agent_name || ' and component type '|| l_componentType);
1116:
1117: -- Get the list of dedicated components correlation Ids separated with commas

Line 1127: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.getDedicatedComponentsCorrIds',

1123: end if;
1124:
1125: end loop;
1126:
1127: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.getDedicatedComponentsCorrIds',
1128: 'The dedicated components correlation Ids list is:'||l_corrId_list);
1129:
1130: return l_corrId_list;
1131:

Line 1154: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.matchCorrId',

1150: l_corrId corrId_type;
1151:
1152: begin
1153:
1154: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.matchCorrId',
1155: 'The message corrId is:'|| p_msgCorrId ||
1156: ', dedicated components correlation Ids list is:'|| p_corrId_list || ':');
1157:
1158: -- Get each dedicated component correlation and return 0 if it

Line 1167: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_ERROR, 'wf.plsql.WF_CORE.matchCorrId',

1163: l_corrid(i) := REGEXP_SUBSTR (p_corrId_list, '[^,]+', 1, i);
1164: EXIT WHEN l_corrid (i) IS NULL;
1165:
1166: if( p_msgCorrId like l_corrid(i)) then
1167: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_ERROR, 'wf.plsql.WF_CORE.matchCorrId',
1168: 'The message corrId matched with dedicated components corrId '||
1169: l_corrid(i) || ', returning 0');
1170: return 0;
1171: end if;

Line 1175: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.matchCorrId',

1171: end if;
1172:
1173: END LOOP;
1174:
1175: WF_LOG_PKG.String(WF_LOG_PKG.LEVEL_PROCEDURE, 'wf.plsql.WF_CORE.matchCorrId',
1176: 'The message corrId does not match any of the dedicated components ' ||
1177: 'corrId, returning 1');
1178: return 1;
1179:

Line 1182: end WF_CORE;

1178: return 1;
1179:
1180: end matchCorrId;
1181:
1182: end WF_CORE;