[Home] [Help]
PACKAGE BODY: APPS.XTR_SEND_PAYMENT_PKG
Source
1 PACKAGE BODY XTR_SEND_PAYMENT_PKG as
2 /* $Header: xtrspayb.pls 120.0.12010000.3 2008/11/01 06:29:38 srsampat ship $ */
3
4
5
6 -------------------------------------------------------------------------------------------
7 ------ Procedure get_notification_data is called from the get_notification node
8 ------ WF program aptrsend.wft calls this procedure
9 -------------------------------------------------------------------------------------------
10
11
12 PROCEDURE get_notification_data (p_item_type IN VARCHAR2,
13 p_item_key IN VARCHAR2,
14 p_actid IN NUMBER,
15 p_funmode IN VARCHAR2,
16 p_result OUT NOCOPY VARCHAR2) IS
17
18 /* Bug 7512197 Start This package is no more used . So making it Null */
19
20 BEGIN
21
22 null;
23
24 END get_notification_data;
25
26 -------------------------------------------------------------------------------------------
27 ------ Procedure submit_conc_program is called from the submit_conc_program node
28 ------ WF program aptrsend.wft calls this procedure
29 -------------------------------------------------------------------------------------------
30
31 PROCEDURE submit_conc_program (p_item_type IN VARCHAR2,
32 p_item_key IN VARCHAR2,
33 p_actid IN NUMBER,
34 p_funmode IN VARCHAR2,
35 p_result OUT NOCOPY VARCHAR2) IS
36
37
38 /* Bug 7512197 Start This package is no more used . So making it Null */
39
40 BEGIN
41 null;
42 END submit_conc_program;
43
44 -------------------------------------------------------------------------------------------
45 ------ Procedure wait_for_conc_program is called from the wait_for_conc_program node
46 ------ WF program aptrsend.wft calls this procedure
47 -------------------------------------------------------------------------------------------
48
49 PROCEDURE wait_for_conc_program (p_item_type IN VARCHAR2,
50 p_item_key IN VARCHAR2,
51 p_actid IN NUMBER,
52 p_funmode IN VARCHAR2,
53 p_result OUT NOCOPY VARCHAR2) IS
54
55
56 l_request_id varchar2(100);
57 result varchar2(100);
58 l_phase varchar2(100);
59 l_status varchar2(100);
60 l_dev_phase varchar2(100);
61 l_dev_status varchar2(100);
62 l_message varchar2(200);
63 l_result boolean;
64
65 BEGIN
66
67 /* Get the Requst Id from the WF */
68
69 l_request_id := wf_engine.getitemattrtext(p_item_type,
70 p_item_key,
71 'REQUEST_ID');
72
73 /* Call WF API to wait for conc program */
74
75
76 FND_WF_STANDARD.WAITFORCONCPROGRAM(p_item_type,
77 p_item_key,
78 p_actid,
79 p_funmode,
80 p_result);
81
82 If p_result = 'COMPLETE:'
83 then
84 p_result := 'SUCCESS';
85 else
86 p_result := 'ERROR';
87 end if;
88
89
90 END wait_for_conc_program ;
91
92
93
94 ---------------------------------------------------------------------------------------
95 ------- Procedure raise_event raises an event in Business Event System. Parameter
96 ------- p_bank_transmission_id is passed to the event.
97 -----------------------------------------------------------------------------------------
98
99 PROCEDURE raise_event (p_bank_transmission_id in NUMBER) is
100
101 i_para wf_parameter_t;
102 l_parameter_list wf_parameter_list_t := wf_parameter_list_t();
103 l_parameter_t wf_parameter_t:= wf_parameter_t(null, null);
104
105 l_event_key NUMBER;
106 l_org_id NUMBER;
107 session_org_id varchar2(100);
108
109
110 BEGIN
111
112 select xtr_payment_event_s.nextval
113 into l_event_key
114 from sys.dual;
115
116 l_parameter_t.setName('BANK_TRANSMISSION_ID');
117 l_parameter_t.setVALUE(p_bank_transmission_id);
118 l_parameter_list.extend;
119 l_parameter_list(1) := l_parameter_t;
120
121
122 l_parameter_t.setName('USER_ID');
123 l_parameter_t.setVALUE(FND_GLOBAL.USER_ID);
124 l_parameter_list.extend;
125 l_parameter_list(2) := l_parameter_t;
126
127 l_parameter_t.setName('RESP_ID');
128 l_parameter_t.setVALUE(FND_GLOBAL.RESP_ID);
129 l_parameter_list.extend;
130 l_parameter_list(3) := l_parameter_t;
131
132 l_parameter_t.setName('RESP_APPL_ID');
133 l_parameter_t.setVALUE(FND_GLOBAL.RESP_APPL_ID);
134 l_parameter_list.extend;
135 l_parameter_list(4) := l_parameter_t;
136
137 fnd_profile.get(name=>'ORG_ID',val=>session_org_id);
138 l_org_id := session_org_id;
139 l_parameter_t.setName('ORG_ID');
140 l_parameter_t.setVALUE(l_org_id);
141 l_parameter_list.extend;
142 l_parameter_list(5) := l_parameter_t;
143
144 wf_event.raise(
145 p_event_name => 'oracle.apps.xtr.send.payment',
146 p_event_key => l_event_key,
147 p_event_data => null,
148 p_parameters => l_parameter_list
149 );
150
151 l_parameter_list.DELETE;
152
153 END raise_event;
154
155
156
157
158 END XTR_SEND_PAYMENT_PKG;