DBA Data[Home] [Help]

PACKAGE BODY: APPS.GMF_AR_GET_PAYMENT_DETAILS

Source


1 PACKAGE BODY GMF_AR_GET_PAYMENT_DETAILS AS
2 /* $Header: gmfinrpb.pls 115.1 99/07/16 04:19:17 porting shi $ */
3 	CURSOR cur_get_payment_details(
4 		invoice_id NUMBER,
5 		start_date DATE,
6 		end_date DATE) IS
7 SELECT
8 	arc.CASH_RECEIPT_ID,
9 	arc.LAST_UPDATED_BY,
10 	arc.LAST_UPDATE_DATE,
11 	arc.CREATED_BY,
12 	arc.CREATION_DATE,
13 	arc.AMOUNT,
14 	arc.SET_OF_BOOKS_ID,
15 	arc.CURRENCY_CODE,
16 	arc.RECEIVABLES_TRX_ID,
17 	arc.PAY_FROM_CUSTOMER,
18 	arc.STATUS,
19 	arc.TYPE,
20 	arc.RECEIPT_NUMBER,
21 	arc.RECEIPT_DATE,
22 	arc.MISC_PAYMENT_SOURCE,
23 	arc.COMMENTS,
24 	arc.DISTRIBUTION_SET_ID,
25 	arc.REVERSAL_DATE,
26 	arc.REVERSAL_CATEGORY,
27 	arc.REVERSAL_REASON_CODE,
28 	arc.REVERSAL_COMMENTS,
29 	arc.EXCHANGE_RATE_TYPE,
30 	arc.EXCHANGE_RATE,
31 	arc.EXCHANGE_DATE,
32 	arc.REMITTANCE_BANK_ACCOUNT_ID,
33 	arc.CONFIRMED_FLAG,
34 	arc.CUSTOMER_BANK_ACCOUNT_ID,
35 	arc.CUSTOMER_SITE_USE_ID,
36 	arc.DEPOSIT_DATE,
37 	arc.PROGRAM_APPLICATION_ID,
38 	arc.PROGRAM_ID,
39 	arc.PROGRAM_UPDATE_DATE,
40 	arc.RECEIPT_METHOD_ID,
41 	arc.REQUEST_ID,
42 	arc.SELECTED_FOR_FACTORING_FLAG,
43 	arc.SELECTED_REMITTANCE_BATCH_ID,
44 	arc.FACTOR_DISCOUNT_AMOUNT,
45 	arc.VAT_TAX_ID,
46 	arr.RECEIVABLE_APPLICATION_ID,
47 	arr.LAST_UPDATED_BY,
48 	arr.LAST_UPDATE_DATE,
49 	arr.CREATED_BY,
50 	arr.CREATION_DATE,
51 	arr.AMOUNT_APPLIED,
52 	arr.GL_DATE,
53 	arr.CODE_COMBINATION_ID,
54 	arr.SET_OF_BOOKS_ID,
55 	arr.DISPLAY,
56 	arr.APPLY_DATE,
57 	arr.APPLICATION_TYPE,
58 	arr.STATUS,
59 	arr.PAYMENT_SCHEDULE_ID,
60 	arr.LAST_UPDATE_LOGIN,
61 	arr.CASH_RECEIPT_ID,
62 	arr.APPLIED_CUSTOMER_TRX_ID,
63 	arr.APPLIED_CUSTOMER_TRX_LINE_ID,
64 	arr.APPLIED_PAYMENT_SCHEDULE_ID,
65 	arr.CUSTOMER_TRX_ID,
66 	arr.LINE_APPLIED,
67 	arr.TAX_APPLIED,
68 	arr.FREIGHT_APPLIED,
69 	arr.RECEIVABLES_CHARGES_APPLIED,
70 	arr.ON_ACCOUNT_CUSTOMER,
71 	arr.RECEIVABLES_TRX_ID,
72 	arr.EARNED_DISCOUNT_TAKEN,
73 	arr.UNEARNED_DISCOUNT_TAKEN,
74 	arr.DAYS_LATE,
75 	arr.APPLICATION_RULE,
76 	arr.GL_POSTED_DATE,
77 	arr.COMMENTS,
78 	arr.POSTABLE,
79 	arr.POSTING_CONTROL_ID,
80 	arr.ACCTD_AMOUNT_APPLIED_FROM,
81 	arr.ACCTD_AMOUNT_APPLIED_TO,
82 	arr.ACCTD_EARNED_DISCOUNT_TAKEN,
83 	arr.CONFIRMED_FLAG,
84 	arr.PROGRAM_APPLICATION_ID,
85 	arr.PROGRAM_ID,
86 	arr.PROGRAM_UPDATE_DATE,
87 	arr.REQUEST_ID,
88 	arr.EARNED_DISCOUNT_CCID,
89 	arr.UNEARNED_DISCOUNT_CCID,
90 	arr.ACCTD_UNEARNED_DISCOUNT_TAKEN,
91 	arr.REVERSAL_GL_DATE,
92 	' ',
93 	arr.CASH_RECEIPT_HISTORY_ID
94 from    AR_CASH_RECEIPTS_ALL arc,
95 	AR_RECEIVABLE_APPLICATIONS_ALL arr
96 where   (arr.APPLIED_CUSTOMER_TRX_ID = invoice_id)
97 	AND (arr.last_update_date between nvl(start_date, arr.last_update_date)
98 	AND nvl(end_date, arr.last_update_date))
99 	AND (arc.CASH_RECEIPT_ID = arr.CASH_RECEIPT_ID);
100 
101 PROCEDURE get_payment_details
102 	(invoice_id                     IN      OUT     NUMBER,
103 	start_date                      IN      OUT     DATE,
104 	end_date                        IN      OUT     DATE,
105 	arc_CASH_RECEIPT_ID                     OUT     NUMBER,
106 	arc_LAST_UPDATED_BY                     OUT     NUMBER,
107 	arc_LAST_UPDATE_DATE                    OUT     DATE,
108 	arc_CREATED_BY                          OUT     NUMBER,
109 	arc_CREATION_DATE                       OUT     DATE,
110 	arc_AMOUNT                              OUT     NUMBER,
111 	arc_SET_OF_BOOKS_ID                     OUT     NUMBER,
112 	arc_CURRENCY_CODE                       OUT     VARCHAR2,
113 	arc_RECEIVABLES_TRX_ID                  OUT     NUMBER,
114 	arc_PAY_FROM_CUSTOMER                   OUT     NUMBER,
115 	arc_STATUS                              OUT     VARCHAR2,
116 	arc_TYPE                                OUT     VARCHAR2,
117 	arc_RECEIPT_NUMBER                      OUT     VARCHAR2,
118 	arc_RECEIPT_DATE                        OUT     DATE,
119 	arc_MISC_PAYMENT_SOURCE                 OUT     VARCHAR2,
120 	arc_COMMENTS                            OUT     VARCHAR2,
121 	arc_DISTRIBUTION_SET_ID                 OUT     NUMBER,
122 	arc_REVERSAL_DATE                       OUT     DATE,
123 	arc_REVERSAL_CATEGORY                   OUT     VARCHAR2,
124 	arc_REVERSAL_REASON_CODE                OUT     VARCHAR2,
125 	arc_REVERSAL_COMMENTS                   OUT     VARCHAR2,
126 	arc_EXCHANGE_RATE_TYPE                  OUT     VARCHAR2,
127 	arc_EXCHANGE_RATE                       OUT     NUMBER,
128 	arc_EXCHANGE_DATE                       OUT     DATE,
129 	arc_REMITTANCE_BANK_ACC_ID          	OUT     NUMBER,
130 	arc_CONFIRMED_FLAG                      OUT     VARCHAR2,
131 	arc_CUSTOMER_BANK_ACC_ID            	OUT     NUMBER,
132 	arc_CUSTOMER_SITE_USE_ID                OUT     NUMBER,
133 	arc_DEPOSIT_DATE                        OUT     DATE,
134 	arc_PROGRAM_APPLICATION_ID              OUT     NUMBER,
135 	arc_PROGRAM_ID                          OUT     NUMBER,
136 	arc_PROGRAM_UPDATE_DATE                 OUT     DATE,
137 	arc_RECEIPT_METHOD_ID                   OUT     NUMBER,
138 	arc_REQUEST_ID                          OUT     NUMBER,
139 	arc_SELECTED_FOR_FACT_FLAG         	OUT     VARCHAR2,
140 	arc_SELECTED_REMIT_BATCH_ID        	OUT     NUMBER,
141 	arc_FACTOR_DISCOUNT_AMOUNT              OUT     NUMBER,
142 	arc_VAT_TAX_ID                          OUT     NUMBER,
143 	arr_RECEIVABLE_APPLICATION_ID           OUT     NUMBER,
144 	arr_LAST_UPDATED_BY                     OUT     NUMBER,
145 	arr_LAST_UPDATE_DATE                    OUT     DATE,
146 	arr_CREATED_BY                          OUT     NUMBER,
147 	arr_CREATION_DATE                       OUT     DATE,
148 	arr_AMOUNT_APPLIED                      OUT     NUMBER,
149 	arr_GL_DATE                             OUT     DATE,
150 	arr_CODE_COMBINATION_ID                 OUT     NUMBER,
151 	arr_SET_OF_BOOKS_ID                     OUT     NUMBER,
152 	arr_DISPLAY                             OUT     VARCHAR2,
153 	arr_APPLY_DATE                          OUT     DATE,
154 	arr_APPLICATION_TYPE                    OUT     VARCHAR2,
155 	arr_STATUS                              OUT     VARCHAR2,
156 	arr_PAYMENT_SCHEDULE_ID                 OUT     NUMBER,
157 	arr_LAST_UPDATE_LOGIN                   OUT     NUMBER,
158 	arr_CASH_RECEIPT_ID                     OUT     NUMBER,
159 	arr_APPLIED_CUSTOMER_TRX_ID             OUT     NUMBER,
160 	arr_APPLIED_CUST_TRX_LINE_ID    	OUT     NUMBER,
161 	arr_APPLIED_PAYMENT_SCH_ID         	OUT     NUMBER,
162 	arr_CUSTOMER_TRX_ID                     OUT     NUMBER,
163 	arr_LINE_APPLIED                        OUT     NUMBER,
164 	arr_TAX_APPLIED                         OUT     NUMBER,
165 	arr_FREIGHT_APPLIED                     OUT     NUMBER,
166 	arr_RECEIVABLES_CHARGES_APPD         	OUT     NUMBER,
167 	arr_ON_ACCOUNT_CUSTOMER                 OUT     NUMBER,
168 	arr_RECEIVABLES_TRX_ID                  OUT     NUMBER,
169 	arr_EARNED_DISCOUNT_TAKEN               OUT     NUMBER,
170 	arr_UNEARNED_DISCOUNT_TAKEN             OUT     NUMBER,
171 	arr_DAYS_LATE                           OUT     NUMBER,
172 	arr_APPLICATION_RULE                    OUT     VARCHAR2,
173 	arr_GL_POSTED_DATE                      OUT     DATE,
174 	arr_COMMENTS                            OUT     VARCHAR2,
175 	arr_POSTABLE                            OUT     VARCHAR2,
176 	arr_POSTING_CONTROL_ID                  OUT     NUMBER,
177 	arr_ACCTD_AMOUNT_APPLIED_FROM           OUT     NUMBER,
178 	arr_ACCTD_AMOUNT_APPLIED_TO             OUT     NUMBER,
179 	arr_ACCTD_EARNED_DISC_TAKEN         	OUT     NUMBER,
180 	arr_CONFIRMED_FLAG                      OUT     VARCHAR2,
181 	arr_PROGRAM_APPLICATION_ID              OUT     NUMBER,
182 	arr_PROGRAM_ID                          OUT     NUMBER,
183 	arr_PROGRAM_UPDATE_DATE                 OUT     DATE,
184 	arr_REQUEST_ID                          OUT     NUMBER,
185 	arr_EARNED_DISCOUNT_CCID                OUT     NUMBER,
186 	arr_UNEARNED_DISCOUNT_CCID              OUT     NUMBER,
187 	arr_ACCTD_UNEARNED_DISC_TAKEN       	OUT     NUMBER,
188 	arr_REVERSAL_GL_DATE                    OUT     DATE,
189 	arr_REVERSAL_GL_DATE_CONTEXT            OUT     VARCHAR2,
190 	arr_CASH_RECEIPT_HISTORY_ID             OUT     NUMBER,
191 	row_to_fetch                    IN      OUT     NUMBER,
192 	error_status                            OUT     NUMBER ) IS
193 BEGIN
194 	if NOT cur_get_payment_details%ISOPEN
195 	then
196 		OPEN cur_get_payment_details( invoice_id, start_date, end_date);
197 	end if;
198 
199 	FETCH cur_get_payment_details INTO
200 	arc_CASH_RECEIPT_ID,
201 	arc_LAST_UPDATED_BY,
202 	arc_LAST_UPDATE_DATE,
203 	arc_CREATED_BY,
204 	arc_CREATION_DATE,
205 	arc_AMOUNT,
206 	arc_SET_OF_BOOKS_ID,
207 	arc_CURRENCY_CODE,
208 	arc_RECEIVABLES_TRX_ID,
209 	arc_PAY_FROM_CUSTOMER,
210 	arc_STATUS,
211 	arc_TYPE,
212 	arc_RECEIPT_NUMBER,
213 	arc_RECEIPT_DATE,
214 	arc_MISC_PAYMENT_SOURCE,
215 	arc_COMMENTS,
216 	arc_DISTRIBUTION_SET_ID,
217 	arc_REVERSAL_DATE,
218 	arc_REVERSAL_CATEGORY,
219 	arc_REVERSAL_REASON_CODE,
220 	arc_REVERSAL_COMMENTS,
221 	arc_EXCHANGE_RATE_TYPE,
222 	arc_EXCHANGE_RATE,
223 	arc_EXCHANGE_DATE,
224 	arc_REMITTANCE_BANK_ACC_ID,
225 	arc_CONFIRMED_FLAG,
226 	arc_CUSTOMER_BANK_ACC_ID,
227 	arc_CUSTOMER_SITE_USE_ID,
228 	arc_DEPOSIT_DATE,
229 	arc_PROGRAM_APPLICATION_ID,
230 	arc_PROGRAM_ID,
231 	arc_PROGRAM_UPDATE_DATE,
232 	arc_RECEIPT_METHOD_ID,
233 	arc_REQUEST_ID,
234 	arc_SELECTED_FOR_FACT_FLAG,
235 	arc_SELECTED_REMIT_BATCH_ID,
236 	arc_FACTOR_DISCOUNT_AMOUNT,
237 	arc_VAT_TAX_ID,
238 	arr_RECEIVABLE_APPLICATION_ID,
239 	arr_LAST_UPDATED_BY,
240 	arr_LAST_UPDATE_DATE,
241 	arr_CREATED_BY,
242 	arr_CREATION_DATE,
243 	arr_AMOUNT_APPLIED,
244 	arr_GL_DATE,
245 	arr_CODE_COMBINATION_ID,
246 	arr_SET_OF_BOOKS_ID,
247 	arr_DISPLAY,
248 	arr_APPLY_DATE,
249 	arr_APPLICATION_TYPE,
250 	arr_STATUS,
251 	arr_PAYMENT_SCHEDULE_ID,
252 	arr_LAST_UPDATE_LOGIN,
253 	arr_CASH_RECEIPT_ID,
254 	arr_APPLIED_CUSTOMER_TRX_ID,
255 	arr_APPLIED_CUST_TRX_LINE_ID,
256 	arr_APPLIED_PAYMENT_SCH_ID,
257 	arr_CUSTOMER_TRX_ID,
258 	arr_LINE_APPLIED,
259 	arr_TAX_APPLIED,
260 	arr_FREIGHT_APPLIED,
261 	arr_RECEIVABLES_CHARGES_APPD,
262 	arr_ON_ACCOUNT_CUSTOMER,
263 	arr_RECEIVABLES_TRX_ID,
264 	arr_EARNED_DISCOUNT_TAKEN,
265 	arr_UNEARNED_DISCOUNT_TAKEN,
266 	arr_DAYS_LATE,
267 	arr_APPLICATION_RULE,
268 	arr_GL_POSTED_DATE,
269 	arr_COMMENTS,
270 	arr_POSTABLE,
271 	arr_POSTING_CONTROL_ID,
272 	arr_ACCTD_AMOUNT_APPLIED_FROM,
273 	arr_ACCTD_AMOUNT_APPLIED_TO,
274 	arr_ACCTD_EARNED_DISC_TAKEN,
275 	arr_CONFIRMED_FLAG,
276 	arr_PROGRAM_APPLICATION_ID,
277 	arr_PROGRAM_ID,
278 	arr_PROGRAM_UPDATE_DATE,
279 	arr_REQUEST_ID,
280 	arr_EARNED_DISCOUNT_CCID,
281 	arr_UNEARNED_DISCOUNT_CCID,
282 	arr_ACCTD_UNEARNED_DISC_TAKEN,
283 	arr_REVERSAL_GL_DATE,
284 	arr_REVERSAL_GL_DATE_CONTEXT,
285 	arr_CASH_RECEIPT_HISTORY_ID;
286 
287 
288 	if cur_get_payment_details%NOTFOUND
289 	then
290 		error_status := 100;
291 		close cur_get_payment_details;
292 	end if;
293 
294 	if row_to_fetch = 1 and cur_get_payment_details%ISOPEN
295 	then
296 		close cur_get_payment_details;
297 	end if;
298 
299 	EXCEPTION
300 
301 		when others then
302 		error_status := SQLCODE;
303 END get_payment_details;
304 END GMF_AR_GET_PAYMENT_DETAILS;