PACKAGE BODY: APPS.AP_PAYMENT_EVENT_PKG

Source

1 PACKAGE BODY AP_PAYMENT_EVENT_PKG as
2 /* $Header: appevntb.pls 120.2 2005/08/31 15:14:19 rlandows noship $ */
3 
4   ---------------------------------------------------------------------------------------
5   ------- Procedure raise_event raises an event in Business Event System. Parameter
6   ------- p_check_id is passed to the event. This procedure is being called in
7   ------- in APXPAWKB.fmb for single payments and Confirm Program for the payment batches
8   -----------------------------------------------------------------------------------------
9 
10   PROCEDURE raise_event  (p_check_id      in  NUMBER,
11                           p_org_id        in  NUMBER) is
12 
13    i_para                         wf_parameter_t;
14    l_parameter_list               wf_parameter_list_t := wf_parameter_list_t();
15    l_parameter_t wf_parameter_t:= wf_parameter_t(null, null);
16 
17    l_event_key       NUMBER;
18 
19   BEGIN
20 
21      select ap_payment_event_s.nextval
22      into   l_event_key
23      from   sys.dual;
24 
25      l_parameter_t.setName('CHECK_ID');
26      l_parameter_t.setVALUE(p_check_id);
27      l_parameter_list.extend;
28      l_parameter_list(1) := l_parameter_t;
29 
30      l_parameter_t.setName('ORG_ID');
31      l_parameter_t.setVALUE(p_org_id);
32      l_parameter_list.extend;
33      l_parameter_list(2) := l_parameter_t;
34 
35 
36       wf_event.raise(
37                 p_event_name => 'oracle.apps.ap.payment',
38                 p_event_key => l_event_key,
39                 p_event_data => null,
40                 p_parameters => l_parameter_list
41                 );
42 
43       l_parameter_list.DELETE;
44 
45   END raise_event;
46 
47  -------------------------------------------------------------------------------------------
48  ------- Procedure raise_payment_batch_events
49  -------
50  -------------------------------------------------------------------------------------------
51 
52 
53  PROCEDURE raise_payment_batch_events (p_checkrun_name           in VARCHAR2,
54                                        p_checkrun_id             in number,
55                                        p_completed_pmts_group_id in number,
56                                        p_org_id                  in number) IS
57 
58    CURSOR get_check_info is
59    SELECT AC.check_id,
60           AC.org_id
61    FROM   ap_checks AC
62    WHERE  AC.checkrun_name = p_checkrun_name
63    AND    AC.ORG_ID = p_org_id
64    AND    AC.completed_pmts_group_id = p_completed_pmts_group_id
65    AND    AC.status_lookup_code NOT IN ('OVERFLOW','SET UP');
66 
67    rec_get_check_info get_check_info%ROWTYPE;
68 
69 
70  BEGIN
71 
72     OPEN get_check_info;
73 
74     LOOP
75 
76        FETCH get_check_info INTO rec_get_check_info;
77 
78        EXIT WHEN get_check_info%NOTFOUND;
79 
80        AP_PAYMENT_EVENT_PKG.raise_event(rec_get_check_info.check_id,rec_get_check_info.org_id);
81 
82     END LOOP;
83 
84     CLOSE get_check_info;
85 
86  END raise_payment_batch_events;
87 
88 END AP_PAYMENT_EVENT_PKG;