Workflow_标准BusinessEvent用以监控供应商的修改（案例）

 1 FUNCTION test_event(p_subscription_guid IN raw,
 2 
 3                                    p_event IN OUT NOCOPY wf_event_t)
 4 
 5     RETURN VARCHAR2 IS
 6 
 7     l_parameter_list wf_parameter_list_t := wf_parameter_list_t();
 8 
 9     l_parameter_t wf_parameter_t := wf_parameter_t(null, null);
10 
11     i_parameter_name l_parameter_t.name%type;
12 
13     i_parameter_value l_parameter_t.value%type;
14 
15     i pls_integer;
16 
17 BEGIN
18 
19     DELETE FROM xxbxj_wf_event;
20 
21     l_parameter_list := p_event.getParameterList();
22 
23     IF l_parameter_list IS NOT NULL THEN
24 
25         i := l_parameter_list.first;
26 
27         WHILE (i <= l_parameter_list.last) LOOP
28 
29             i_parameter_name := null;
30 
31             i_parameter_value := null;
32 
33             i_parameter_name := l_parameter_list(i).getName();
34 
35             i_parameter_value := l_parameter_list(i).getValue();
36 
37             IF i_parameter_name IS NOT NULL THEN
38 
39                 INSERT INTO xxbxj_wf_event (priority,
40 
41                                             send_date,
42 
43                                             receive_date,
44 
45                                             correlation_id,
46 
47                                             event_name,
48 
49                                             event_key,
50 
51                                             parameter_name,
52 
53                                             parameter_value)
54 
55                            VALUES
56 
57                                            (p_event.priority,
58 
59                                             p_event.send_date,
60 
61                                             p_event.receive_date,
62 
63                                             p_event.correlation_id,
64 
65                                             p_event.event_name,
66 
67                                             p_event.event_key,
68 
69                                             i_parameter_name,
70 
71                                             i_parameter_value);
72 
73             END IF;
74 
75             i := l_parameter_list.next(i);
76 
77         END LOOP;
78 
79     END IF;
80 
81     RETURN(‘SUCCESS‘);
82 
83 END;