PACKAGE BODY: APPS.IBY_WORKFLOW_PVT

Source

1 Package Body IBY_WORKFLOW_PVT AS
2 /* $Header: ibywfutb.pls 120.2 2005/10/30 05:49:15 appldev noship $ */
3 
4 PROCEDURE raise_biz_event
5           (
6           p_e_name         IN VARCHAR2,
7           p_e_key          IN VARCHAR2,
8           p_e_param_names  IN JTF_VARCHAR2_TABLE_300,
9           p_e_param_vals   IN JTF_VARCHAR2_TABLE_300,
10           p_e_data         IN CLOB DEFAULT NULL,
11           p_commit         IN VARCHAR2 DEFAULT 'N'
12           )
13 IS
14   l_param_list wf_parameter_list_t;
15 BEGIN
16 
17   l_param_list := wf_parameter_list_t();
18 
19   IF ((NOT p_e_param_names IS NULL) AND (NOT p_e_param_vals IS NULL)) THEN
20     FOR i IN p_e_param_names.FIRST..p_e_param_names.LAST LOOP
21       wf_event.AddParameterToList(
22           p_name => p_e_param_names(i),
23           p_value => p_e_param_vals(i),
24           p_parameterlist => l_param_list);
25     END LOOP;
26   END IF;
27 
28   wf_event.raise(
29           p_event_name => p_e_name,
30           p_event_key => p_e_key,
31           p_event_data => p_e_data,
32           p_parameters => l_param_list);
33 
34   l_param_list.delete;
35 
36   IF (UPPER(p_commit) = iby_utility_pvt.C_API_YES) THEN
37       commit;
38   END IF;
39 
40 EXCEPTION
41 
42   WHEN OTHERS THEN
43       l_param_list.delete;
44       raise_application_error(-20000, 'IBY_G_WORKFLOW_ERR#' ||
45         'ITEM_TYPE=' || p_e_name || '#' ||
46         'ITEM_KEY=' || p_e_key || '#' ||
47         'WF_ERR_NAME=' || SQLCODE || '#' ||
48         'WF_ERR_MSG=' || SQLERRM
49         ,FALSE);
50 
51 END raise_biz_event;
52 
53 
54 END IBY_WORKFLOW_PVT;