[Home] [Help]
PACKAGE BODY: APPS.CE_PMT_CALLOUT_PKG
Source
1 PACKAGE BODY CE_PMT_CALLOUT_PKG AS
2 /* $Header: cepmtcob.pls 120.3 2005/12/30 11:26:54 svali noship $ */
3 PROCEDURE documents_payable_rejected(p_api_version NUMBER,
4 p_init_msg_list VARCHAR2,
5 p_commit VARCHAR2,
6 x_return_status OUT NOCOPY VARCHAR2,
7 x_msg_count OUT NOCOPY NUMBER,
8 x_msg_data OUT NOCOPY VARCHAR2,
9 p_rejected_docs_group_id NUMBER)
10 IS
11 CURSOR c_rejected_transfers (cs_rejected_docs_group_id NUMBER)
12 IS
13 SELECT docs.calling_app_doc_ref_number
14 FROM iby_fd_docs_payable_v docs
15 WHERE docs.rejected_docs_group_id = cs_rejected_docs_group_id;
16
17 l_trxn_reference_number CE_PAYMENT_TRANSACTIONS.trxn_reference_number%TYPE;
18 l_result varchar2(100);
19 BEGIN
20 OPEN c_rejected_transfers(p_rejected_docs_group_id);
21 LOOP
22 FETCH c_rejected_transfers into
23 l_trxn_reference_number;
24 EXIT WHEN c_rejected_transfers%NOTFOUND or
25 c_rejected_transfers%NOTFOUND is NULL;
26
27 CE_BAT_API.reject_transfer(l_trxn_reference_number,
28 l_result);
29 UPDATE ce_payment_transactions
30 SET trxn_status_code = 'FAILED'
31 WHERE trxn_reference_number = l_trxn_reference_number;
32 END LOOP;
33 CLOSE c_rejected_transfers;
34 x_return_status := FND_API.G_RET_STS_SUCCESS;
35
36 EXCEPTION
37 WHEN OTHERS THEN
38 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39 RAISE;
40 END documents_payable_rejected;
41
42
43 PROCEDURE payments_completed(p_api_version NUMBER,
44 p_init_msg_list VARCHAR2,
45 p_commit VARCHAR2,
46 x_return_status OUT NOCOPY VARCHAR2,
47 x_msg_count OUT NOCOPY NUMBER,
48 x_msg_data OUT NOCOPY VARCHAR2,
49 p_completed_pmts_group_id NUMBER)
50 IS
51 CURSOR c_completed_transfers (cs_completed_pmts_group_id NUMBER)
52 IS
53 SELECT docs.calling_app_doc_ref_number,
54 pmts.payment_reference_number
55 FROM iby_fd_docs_payable_v docs,
56 iby_fd_payments_v pmts
57 WHERE docs.completed_pmts_group_id = cs_completed_pmts_group_id
58 AND docs.payment_id = pmts.payment_id;
59
60 l_trxn_reference_number CE_PAYMENT_TRANSACTIONS.trxn_reference_number%TYPE;
61 l_payment_reference_number IBY_FD_PAYMENTS_V.payment_reference_number%TYPE;
62 BEGIN
63 OPEN c_completed_transfers(p_completed_pmts_group_id);
64 LOOP
65 FETCH c_completed_transfers into
66 l_trxn_reference_number,
67 l_payment_reference_number;
68 EXIT WHEN c_completed_transfers%NOTFOUND or
69 c_completed_transfers%NOTFOUND is NULL;
70
71 CE_BAT_API.settle_transfer('MANUAL',
72 l_trxn_reference_number,
73 l_payment_reference_number,
74 NULL,
75 NULL);
76 END LOOP;
77 CLOSE c_completed_transfers;
78 x_return_status := FND_API.G_RET_STS_SUCCESS;
79
80 EXCEPTION
81 WHEN OTHERS THEN
82 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83 RAISE;
84 END payments_completed;
85
86
87 PROCEDURE payment_voided(p_api_version NUMBER,
88 p_payment_id NUMBER,
89 p_void_date DATE,
90 p_init_msg_list VARCHAR2,
91 p_commit VARCHAR2,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2)
95 IS
96 CURSOR c_voided_transfers (cs_payment_id NUMBER)
97 IS
98 SELECT docs.calling_app_doc_ref_number
99 FROM iby_fd_docs_payable_v docs
100 WHERE docs.payment_id = cs_payment_id;
101
102 l_trxn_reference_number CE_PAYMENT_TRANSACTIONS.trxn_reference_number%TYPE;
103
104 BEGIN
105 OPEN c_voided_transfers(p_payment_id);
106 LOOP
107 FETCH c_voided_transfers into
108 l_trxn_reference_number;
109 EXIT WHEN c_voided_transfers%NOTFOUND or
110 c_voided_transfers%NOTFOUND is NULL;
111
112 UPDATE ce_payment_transactions
113 SET trxn_status_code = 'CANCELED'
114 WHERE trxn_reference_number = l_trxn_reference_number;
115
116 END LOOP;
117 CLOSE c_voided_transfers;
118 x_return_status := FND_API.G_RET_STS_SUCCESS;
119
120 EXCEPTION
121 WHEN OTHERS THEN
122 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123 RAISE;
124 END payment_voided;
125
126
127 END CE_PMT_CALLOUT_PKG;