[Home] [Help]
73: func varchar2(240);
74: cmd varchar2(1000);
75: ename varchar2(240) := p_event.getEventName();
76: ekey varchar2(240) := p_event.getEventKey();
77: eplist wf_parameter_list_t := p_event.getParameterList();
78: executed boolean;
79: -- Note that ORA-06550 is a generic PL/SQL compilation error
80: -- Here it is most likely caused by "Wrong Number of Arguments".
81: plsql_error EXCEPTION;
1166: */
1167: PROCEDURE raise(p_event_name in varchar2,
1168: p_event_key in varchar2,
1169: p_event_data in clob,
1170: p_parameters in wf_parameter_list_t,
1171: p_send_date in date) is
1172:
1173:
1174: l_parameters wf_parameter_list_t;
1170: p_parameters in wf_parameter_list_t,
1171: p_send_date in date) is
1172:
1173:
1174: l_parameters wf_parameter_list_t;
1175:
1176: begin
1177: --If parameter list is null then raise the event
1178: --with a dummy parameter list as raise3 requires
1180: --parameter list.
1181: if (p_parameters is NOT NULL) then
1182: l_parameters := p_parameters;
1183: else
1184: l_parameters := wf_parameter_list_t();
1185: end if;
1186: --Raise the event
1187: wf_event.raise3(p_event_name,
1188: p_event_key,
2389: -- If there is any change of logic in this method, the change
2390: -- should be propagated over to WF_EVENT_T.
2391: PROCEDURE AddParameterToList(p_name in varchar2,
2392: p_value in varchar2,
2393: p_parameterlist in out nocopy wf_parameter_list_t)
2394: is
2395: j number;
2396: found boolean := FALSE;
2397: begin
2398: if (p_ParameterList is null) then
2399: --
2400: -- Initialize Parameter List and set value
2401: --
2402: p_ParameterList := wf_parameter_list_t(null);
2403: p_ParameterList(1) := wf_parameter_t(p_Name, p_Value);
2404: else
2405: --
2406: -- parameter list exists, add parameter to list
2433: */
2434: PROCEDURE AddParameterToListPos(p_name in varchar2,
2435: p_value in varchar2,
2436: p_position out nocopy integer,
2437: p_parameterlist in out nocopy wf_parameter_list_t)
2438: is
2439: j integer;
2440:
2441: begin
2442: if (p_ParameterList is null) then
2443: --
2444: -- Initialize Parameter List and set value
2445: --
2446: p_ParameterList := wf_parameter_list_t(null);
2447: p_position := 1;
2448: p_ParameterList(1) := wf_parameter_t(p_Name, p_Value);
2449: else
2450: --
2461: /*
2462: ** GetValueForParameter -
2463: */
2464: FUNCTION getValueForParameter(p_Name in varchar2,
2465: p_ParameterList in wf_parameter_list_t )
2466: return varchar2 is
2467: myList wf_parameter_list_t;
2468: pos number := 1;
2469: begin
2463: */
2464: FUNCTION getValueForParameter(p_Name in varchar2,
2465: p_ParameterList in wf_parameter_list_t )
2466: return varchar2 is
2467: myList wf_parameter_list_t;
2468: pos number := 1;
2469: begin
2470: myList := p_ParameterList;
2471: if (myList is null) then
2491: return NULL;
2492: end getValueForParameter;
2493: ---------------------------------------------------------------------------
2494: /*
2495: ** GetValueForParameterPos - Gets value for position from wf_parameter_list_t
2496: */
2497: FUNCTION getValueForParameterPos(p_position in integer,
2498: p_parameterlist in wf_parameter_list_t)
2499: return varchar2 is
2494: /*
2495: ** GetValueForParameterPos - Gets value for position from wf_parameter_list_t
2496: */
2497: FUNCTION getValueForParameterPos(p_position in integer,
2498: p_parameterlist in wf_parameter_list_t)
2499: return varchar2 is
2500: myList wf_parameter_list_t;
2501: begin
2502: myList := p_ParameterList;
2496: */
2497: FUNCTION getValueForParameterPos(p_position in integer,
2498: p_parameterlist in wf_parameter_list_t)
2499: return varchar2 is
2500: myList wf_parameter_list_t;
2501: begin
2502: myList := p_ParameterList;
2503: if (myList is null) then
2504: return NULL;
2809: p_parameter_value19 in varchar2,
2810: p_parameter_name20 in varchar2,
2811: p_parameter_value20 in varchar2,
2812: p_send_date in date) is
2813: l_parameter_list wf_parameter_list_t := wf_parameter_list_t();
2814: i number := 1;
2815: begin
2816:
2817: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
2970: --------------------------------------------------------------------
2971: PROCEDURE raise3(p_event_name in varchar2,
2972: p_event_key in varchar2,
2973: p_event_data in clob,
2974: p_parameter_list in out nocopy wf_parameter_list_t,
2975: p_send_date in date)
2976: is
2977: o_value varchar2(200);
2978: event wf_event_t;
3398: END Peek_Agent ;
3399:
3400: -- GetParamListFromString
3401: -- Takes a space delimited NAME=VALUE pairs of Subscription Parameters
3402: -- string and returns a WF_PARAMETER_LIST_T
3403: -- IN
3404: -- p_parameters A string with space delimited name=value pairs
3405: function GetParamListFromString(p_parameters in varchar2)
3406: return wf_parameter_list_t
3402: -- string and returns a WF_PARAMETER_LIST_T
3403: -- IN
3404: -- p_parameters A string with space delimited name=value pairs
3405: function GetParamListFromString(p_parameters in varchar2)
3406: return wf_parameter_list_t
3407: is
3408: l_parameters varchar2(5000);
3409: l_start pls_integer := 0;
3410: l_end pls_integer := 0;
3412: l_namevalue varchar2(4000);
3413: l_value varchar2(4000);
3414: l_name varchar2(4000);
3415: l_equalpos number;
3416: l_param_list wf_parameter_list_t;
3417: begin
3418: l_parameters := p_parameters;
3419:
3420: if (l_parameters is not null) then