[Home] [Help]
14: l_key varchar2(240);
15: l_event_name varchar2(240) := 'oracle.apps.okl.cs.billingrefundrequest';
16:
17: l_seq NUMBER;
18: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
19: CURSOR okl_key_csr IS
20: SELECT okl_wf_item_s.nextval
21: FROM dual;
22: BEGIN
36: x_return_status := l_return_status;
37: l_parameter_list.DELETE;
38: EXCEPTION
39: WHEN OTHERS THEN
40: x_return_status := OKL_API.G_RET_STS_ERROR;
41: FND_MESSAGE.SET_NAME('OKL', 'OKL_API_OTHERS_EXCEP');
42: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
43: FND_MSG_PUB.ADD;
44: ROLLBACK TO raise_billing_refund_event;
37: l_parameter_list.DELETE;
38: EXCEPTION
39: WHEN OTHERS THEN
40: x_return_status := OKL_API.G_RET_STS_ERROR;
41: FND_MESSAGE.SET_NAME('OKL', 'OKL_API_OTHERS_EXCEP');
42: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
43: FND_MSG_PUB.ADD;
44: ROLLBACK TO raise_billing_refund_event;
45: END raise_billing_refund_event;
52: actid in number,
53: funcmode in varchar2,
54: resultout out nocopy varchar2)
55: AS
56: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
57: l_api_version NUMBER := 1.0;
58: l_msg_count NUMBER;
59: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
60: l_msg_data VARCHAR2(2000);
55: AS
56: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
57: l_api_version NUMBER := 1.0;
58: l_msg_count NUMBER;
59: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
60: l_msg_data VARCHAR2(2000);
61:
62: l_request_num OKL_TRX_REQUESTS.REQUEST_NUMBER%TYPE;
63: l_contract_num OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
124:
125: OPEN c_fetch_r_number(l_trx_id);
126: FETCH c_fetch_r_number INTO l_request_num,l_refund_amnt,l_created_by,l_req_reason;
127: IF c_fetch_r_number%NOTFOUND THEN
128: RAISE OKL_API.G_EXCEPTION_ERROR;
129: END IF;
130: CLOSE c_fetch_r_number;
131:
132: OPEN c_fetch_k_number(l_chrv_id);
131:
132: OPEN c_fetch_k_number(l_chrv_id);
133: FETCH c_fetch_k_number INTO l_contract_num,l_cust_acct_id;
134: IF c_fetch_k_number%NOTFOUND THEN
135: RAISE OKL_API.G_EXCEPTION_ERROR;
136: END IF;
137: CLOSE c_fetch_k_number;
138:
139: --rkuttiya added for bug:3386595
180: ELSE
181: OPEN c_get_reason(l_req_reason);
182: FETCH c_get_reason INTO l_reason_desc;
183: IF c_get_reason%NOTFOUND THEN
184: RAISE OKL_API.G_EXCEPTION_ERROR;
185: END IF;
186: CLOSE c_get_reason;
187: l_message :=' Please approve and process Billing Refund Request '||L_REQUEST_NUM ||', for Customer '||L_CUST_NAME||
188: ', for the refund amount '||L_REFUND_AMNT||' and for refund reason '||l_reason_desc;
204: resultout := 'COMPLETE:';
205: return;
206: END IF;
207: EXCEPTION
208: WHEN OKL_API.G_EXCEPTION_ERROR THEN
209: IF c_fetch_r_number%ISOPEN THEN
210: CLOSE c_fetch_r_number;
211: END IF;
212: wf_core.context('OKL_BILLING_REF_WF',
215: itemkey,
216: to_char(actid),
217: funcmode);
218: RAISE;
219: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
220: IF c_fetch_r_number%ISOPEN THEN
221: CLOSE c_fetch_r_number;
222: END IF;
223: wf_core.context('OKL_BILLING_REF_WF',
248: actid in number,
249: funcmode in varchar2,
250: resultout out nocopy varchar2) AS
251:
252: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
253: l_api_version NUMBER := 1.0;
254: l_msg_count NUMBER;
255: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
256: l_msg_data VARCHAR2(2000);
251:
252: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
253: l_api_version NUMBER := 1.0;
254: l_msg_count NUMBER;
255: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
256: l_msg_data VARCHAR2(2000);
257:
258: l_request_num OKL_TRX_REQUESTS.REQUEST_NUMBER%TYPE;
259: l_trx_id NUMBER;
300: resultout := 'COMPLETE:REJECTED';
301: return;
302: END IF;
303: EXCEPTION
304: WHEN OKL_API.G_EXCEPTION_ERROR THEN
305: wf_core.context('OKL_BILLING_REF_WF',
306: 'Billing_Refund_Request',
307: itemtype,
308: itemkey,
308: itemkey,
309: to_char(actid),
310: funcmode);
311: RAISE;
312: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
313: wf_core.context('OKL_BILLING_REF_WF',
314: 'Billing_Refund_Request',
315: itemtype,
316: itemkey,