[Home] [Help]
PACKAGE BODY: APPS.AP_AC_TABLE_HANDLER_PKG
Source
1 PACKAGE BODY AP_AC_TABLE_HANDLER_PKG as
2 /* $Header: apachthb.pls 120.8.12010000.3 2009/01/20 10:09:01 cjain ship $ */
3
4 ----------------------------------------------------------------------------
5 PROCEDURE Insert_Row(p_Rowid IN OUT NOCOPY VARCHAR2,
6 p_Amount NUMBER,
7 p_Ce_Bank_Acct_Use_Id NUMBER,
8 p_Bank_Account_Name VARCHAR2,
9 p_Check_Date DATE,
10 p_Check_Id NUMBER,
11 p_Check_Number NUMBER,
12 p_Currency_Code VARCHAR2,
13 p_Last_Updated_By NUMBER,
14 p_Last_Update_Date DATE,
15 --IBY:SP p_Payment_Method_Lookup_Code VARCHAR2,
16 p_Payment_Type_Flag VARCHAR2,
17 p_Address_Line1 VARCHAR2 DEFAULT NULL,
18 p_Address_Line2 VARCHAR2 DEFAULT NULL,
19 p_Address_Line3 VARCHAR2 DEFAULT NULL,
20 p_Checkrun_Name VARCHAR2 DEFAULT NULL,
21 p_Check_Format_Id NUMBER DEFAULT NULL,
22 p_Check_Stock_Id NUMBER DEFAULT NULL,
23 p_City VARCHAR2 DEFAULT NULL,
24 p_Country VARCHAR2 DEFAULT NULL,
25 p_Created_By NUMBER DEFAULT NULL,
26 p_Creation_Date DATE DEFAULT NULL,
27 p_Last_Update_Login NUMBER DEFAULT NULL,
28 p_Status_Lookup_Code VARCHAR2 DEFAULT NULL,
29 p_Vendor_Name VARCHAR2 DEFAULT NULL,
30 p_Vendor_Site_Code VARCHAR2 DEFAULT NULL,
31 p_External_Bank_Account_Id NUMBER,
32 p_Zip VARCHAR2 DEFAULT NULL,
33 p_Bank_Account_Num VARCHAR2 DEFAULT NULL,
34 p_Bank_Account_Type VARCHAR2 DEFAULT NULL,
35 p_Bank_Num VARCHAR2 DEFAULT NULL,
36 p_Check_Voucher_Num NUMBER DEFAULT NULL,
37 p_Cleared_Amount NUMBER DEFAULT NULL,
38 p_Cleared_Date DATE DEFAULT NULL,
39 p_Doc_Category_Code VARCHAR2 DEFAULT NULL,
40 p_Doc_Sequence_Id NUMBER DEFAULT NULL,
41 p_Doc_Sequence_Value NUMBER DEFAULT NULL,
42 p_Province VARCHAR2 DEFAULT NULL,
43 p_Released_Date DATE DEFAULT NULL,
44 p_Released_By NUMBER DEFAULT NULL,
45 p_State VARCHAR2 DEFAULT NULL,
46 p_Stopped_Date DATE DEFAULT NULL,
47 p_Stopped_By NUMBER DEFAULT NULL,
48 p_Void_Date DATE DEFAULT NULL,
49 p_Attribute1 VARCHAR2 DEFAULT NULL,
50 p_Attribute10 VARCHAR2 DEFAULT NULL,
51 p_Attribute11 VARCHAR2 DEFAULT NULL,
52 p_Attribute12 VARCHAR2 DEFAULT NULL,
53 p_Attribute13 VARCHAR2 DEFAULT NULL,
54 p_Attribute14 VARCHAR2 DEFAULT NULL,
55 p_Attribute15 VARCHAR2 DEFAULT NULL,
56 p_Attribute2 VARCHAR2 DEFAULT NULL,
57 p_Attribute3 VARCHAR2 DEFAULT NULL,
58 p_Attribute4 VARCHAR2 DEFAULT NULL,
59 p_Attribute5 VARCHAR2 DEFAULT NULL,
60 p_Attribute6 VARCHAR2 DEFAULT NULL,
61 p_Attribute7 VARCHAR2 DEFAULT NULL,
62 p_Attribute8 VARCHAR2 DEFAULT NULL,
63 p_Attribute9 VARCHAR2 DEFAULT NULL,
64 p_Attribute_Category VARCHAR2 DEFAULT NULL,
65 p_Future_Pay_Due_Date DATE DEFAULT NULL,
66 p_Treasury_Pay_Date DATE DEFAULT NULL,
67 p_Treasury_Pay_Number NUMBER DEFAULT NULL,
68 -- Removed for bug 4277744
69 -- p_Ussgl_Transaction_Code VARCHAR2 DEFAULT NULL,
70 -- p_Ussgl_Trx_Code_Context VARCHAR2 DEFAULT NULL,
71 p_Withholding_Status_Lkup_Code VARCHAR2 DEFAULT NULL,
72 p_Reconciliation_Batch_Id NUMBER DEFAULT NULL,
73 p_Cleared_Base_Amount NUMBER DEFAULT NULL,
74 p_Cleared_Exchange_Rate NUMBER DEFAULT NULL,
75 p_Cleared_Exchange_Date DATE DEFAULT NULL,
76 p_Cleared_Exchange_Rate_Type VARCHAR2 DEFAULT NULL,
77 p_Address_Line4 VARCHAR2 DEFAULT NULL,
78 p_County VARCHAR2 DEFAULT NULL,
79 p_Address_Style VARCHAR2 DEFAULT NULL,
80 p_Org_Id NUMBER DEFAULT NULL,
81 p_Vendor_Id NUMBER,
82 p_Vendor_Site_Id NUMBER,
83 p_Exchange_Rate NUMBER DEFAULT NULL,
84 p_Exchange_Date DATE DEFAULT NULL,
85 p_Exchange_Rate_Type VARCHAR2 DEFAULT NULL,
86 p_Base_Amount NUMBER DEFAULT NULL,
87 p_Checkrun_Id NUMBER DEFAULT NULL,
88 p_global_attribute_category VARCHAR2 DEFAULT NULL,
89 p_global_attribute1 VARCHAR2 DEFAULT NULL,
90 p_global_attribute2 VARCHAR2 DEFAULT NULL,
91 p_global_attribute3 VARCHAR2 DEFAULT NULL,
92 p_global_attribute4 VARCHAR2 DEFAULT NULL,
93 p_global_attribute5 VARCHAR2 DEFAULT NULL,
94 p_global_attribute6 VARCHAR2 DEFAULT NULL,
95 p_global_attribute7 VARCHAR2 DEFAULT NULL,
96 p_global_attribute8 VARCHAR2 DEFAULT NULL,
97 p_global_attribute9 VARCHAR2 DEFAULT NULL,
98 p_global_attribute10 VARCHAR2 DEFAULT NULL,
99 p_global_attribute11 VARCHAR2 DEFAULT NULL,
100 p_global_attribute12 VARCHAR2 DEFAULT NULL,
101 p_global_attribute13 VARCHAR2 DEFAULT NULL,
102 p_global_attribute14 VARCHAR2 DEFAULT NULL,
103 p_global_attribute15 VARCHAR2 DEFAULT NULL,
104 p_global_attribute16 VARCHAR2 DEFAULT NULL,
105 p_global_attribute17 VARCHAR2 DEFAULT NULL,
106 p_global_attribute18 VARCHAR2 DEFAULT NULL,
107 p_global_attribute19 VARCHAR2 DEFAULT NULL,
108 p_global_attribute20 VARCHAR2 DEFAULT NULL,
109 p_transfer_priority VARCHAR2 DEFAULT NULL,
110 p_maturity_exchange_rate_type VARCHAR2 DEFAULT NULL,
111 p_maturity_exchange_date DATE DEFAULT NULL,
112 p_maturity_exchange_rate NUMBER DEFAULT NULL,
113 p_description VARCHAR2 DEFAULT NULL,
114 p_anticipated_value_date DATE DEFAULT NULL,
115 p_actual_value_date DATE DEFAULT NULL,
116 p_PAYMENT_METHOD_CODE VARCHAR2 DEFAULT NULL,
117 p_PAYMENT_PROFILE_ID NUMBER DEFAULT NULL,
118 p_BANK_CHARGE_BEARER VARCHAR2 DEFAULT NULL,
119 p_SETTLEMENT_PRIORITY VARCHAR2 DEFAULT NULL,
120 p_payment_document_id NUMBER DEFAULT NULL,
121 p_party_id NUMBER DEFAULT NULL,
122 p_party_site_id NUMBER DEFAULT NULL,
123 p_legal_entity_id NUMBER DEFAULT NULL,
124 p_payment_id NUMBER DEFAULT NULL,
125 p_calling_sequence VARCHAR2,
126 p_Remit_To_Supplier_Name VARCHAR2 DEFAULT NULL,
127 p_Remit_To_Supplier_Id Number DEFAULT NULL,
128 p_Remit_To_Supplier_Site VARCHAR2 DEFAULT NULL,
129 p_Remit_To_Supplier_Site_Id NUMBER DEFAULT NULL,
130 p_Relationship_Id NUMBER DEFAULT NULL,
131 P_paycard_authorization_number VARCHAR2 DEFAULT NULL,
132 P_paycard_reference_id NUMBER DEFAULT NULL
133 )
134
135 IS
136 CURSOR C IS SELECT rowid FROM ap_checks
137 WHERE check_id = p_Check_Id;
138 l_iban_number CE_BANK_ACCOUNTS.IBAN_NUMBER%TYPE; --IBY:SP
139 current_calling_sequence VARCHAR2(2000);
140 debug_info VARCHAR2(100);
141
142 BEGIN
143
144 -- Update the calling sequence
145 --
146 current_calling_sequence := 'AP_AC_TABLE_HANDLER_PKG.INSERT_ROW<-' ||
147 p_calling_sequence;
148
149 -- Bug 2633878
150 debug_info := 'Get the IBAN_NUMBER';
151 IF P_External_Bank_Account_Id is not NULL THEN
152 BEGIN
153 SELECT iban
154 INTO l_iban_number
155 FROM IBY_PAYEE_ALL_BANKACCT_V /* External Bank Uptake */
156 WHERE ext_bank_account_id = P_External_Bank_Account_Id
157 AND party_id = P_party_id;
158 EXCEPTION
159 WHEN NO_DATA_FOUND THEN
160 l_iban_number := NULL;
161 END;
162 END IF;
163
164 debug_info := 'Insert into ap_checks';
165 INSERT INTO ap_checks_all(
166 amount,
167 ce_bank_acct_use_id,
168 bank_account_name,
169 check_date,
170 check_id,
171 check_number,
172 currency_code,
173 last_updated_by,
174 last_update_date,
175 --IBY:SP payment_method_lookup_code,
176 payment_type_flag,
177 address_line1,
178 address_line2,
179 address_line3,
180 checkrun_name,
181 check_format_id,
182 check_stock_id,
183 city,
184 country,
185 created_by,
186 creation_date,
187 last_update_login,
188 status_lookup_code,
189 vendor_name,
190 vendor_site_code,
191 external_bank_account_id,
192 zip,
193 bank_account_num,
194 iban_number,
195 bank_account_type,
196 bank_num,
197 check_voucher_num,
198 cleared_amount,
199 cleared_date,
200 doc_category_code,
201 doc_sequence_id,
202 doc_sequence_value,
203 province,
204 released_date,
205 released_by,
206 state,
207 stopped_date,
208 stopped_by,
209 void_date,
210 attribute1,
211 attribute10,
212 attribute11,
213 attribute12,
214 attribute13,
215 attribute14,
216 attribute15,
217 attribute2,
218 attribute3,
219 attribute4,
220 attribute5,
221 attribute6,
222 attribute7,
223 attribute8,
224 attribute9,
225 attribute_category,
226 future_pay_due_date,
227 treasury_pay_date,
228 treasury_pay_number,
229 -- ussgl_transaction_code, -Bug 4277744
230 -- ussgl_trx_code_context, -Bug 4277744
231 withholding_status_lookup_code,
232 reconciliation_batch_id,
233 cleared_base_amount,
234 cleared_exchange_rate,
235 cleared_exchange_date,
236 cleared_exchange_rate_type,
237 address_line4,
238 county,
239 address_style,
240 vendor_id,
241 vendor_site_id,
242 exchange_rate,
243 exchange_date,
244 exchange_rate_type,
245 base_amount,
246 checkrun_id,
247 global_attribute_category,
248 global_attribute1,
249 global_attribute2,
250 global_attribute3,
251 global_attribute4,
252 global_attribute5,
253 global_attribute6,
254 global_attribute7,
255 global_attribute8,
256 global_attribute9,
257 global_attribute10,
258 global_attribute11,
259 global_attribute12,
260 global_attribute13,
261 global_attribute14,
262 global_attribute15,
263 global_attribute16,
264 global_attribute17,
265 global_attribute18,
266 global_attribute19,
267 global_attribute20,
268 transfer_priority,
269 maturity_exchange_rate_type,
270 maturity_exchange_date,
271 maturity_exchange_rate,
272 description,
273 anticipated_value_date,
274 actual_value_date,
275 org_id,
276 payment_method_code,
277 payment_profile_id,
278 bank_charge_bearer,
279 settlement_priority,
280 payment_document_id,
281 party_id,
282 party_site_id,
283 legal_entity_id,
284 payment_id,
285 Remit_To_Supplier_Name,
286 Remit_To_Supplier_Id,
287 Remit_To_Supplier_Site,
288 Remit_To_Supplier_Site_Id,
289 Relationship_Id,
290 paycard_authorization_number,
291 paycard_reference_id
292 ) VALUES (
293 p_Amount,
294 p_Ce_Bank_Acct_Use_Id,
295 p_Bank_Account_Name,
296 p_Check_Date,
297 p_Check_Id,
298 p_Check_Number,
299 p_Currency_Code,
300 p_Last_Updated_By,
301 p_Last_Update_Date,
302 --IBY:SP p_Payment_Method_Lookup_Code,
303 p_Payment_Type_Flag,
304 p_Address_Line1,
305 p_Address_Line2,
306 p_Address_Line3,
307 p_Checkrun_Name,
308 p_Check_Format_Id,
309 p_Check_Stock_Id,
310 p_City,
311 p_Country,
312 p_Created_By,
313 p_Creation_Date,
314 p_Last_Update_Login,
315 p_Status_Lookup_Code,
316 p_Vendor_Name,
317 p_Vendor_Site_Code,
318 p_External_Bank_Account_Id,
319 p_Zip,
320 p_Bank_Account_Num,
321 l_iban_number,
322 p_Bank_Account_Type,
323 p_Bank_Num,
327 p_Doc_Category_Code,
324 p_Check_Voucher_Num,
325 p_Cleared_Amount,
326 p_Cleared_Date,
328 p_Doc_Sequence_Id,
329 p_Doc_Sequence_Value,
330 p_Province,
331 p_Released_Date,
332 p_Released_By,
333 p_State,
334 p_Stopped_Date,
335 p_Stopped_By,
336 p_Void_Date,
337 p_Attribute1,
338 p_Attribute10,
339 p_Attribute11,
340 p_Attribute12,
341 p_Attribute13,
342 p_Attribute14,
343 p_Attribute15,
344 p_Attribute2,
345 p_Attribute3,
346 p_Attribute4,
347 p_Attribute5,
348 p_Attribute6,
349 p_Attribute7,
350 p_Attribute8,
351 p_Attribute9,
352 p_Attribute_Category,
353 p_Future_Pay_Due_Date,
354 p_Treasury_Pay_Date,
355 p_Treasury_Pay_Number,
356 -- p_Ussgl_Transaction_Code, -Bug 4277744
357 -- p_Ussgl_Trx_Code_Context, -Bug 4277744
358 p_Withholding_Status_Lkup_Code,
359 p_Reconciliation_Batch_Id,
360 p_Cleared_Base_Amount,
361 p_Cleared_Exchange_Rate,
362 p_Cleared_Exchange_Date,
363 p_Cleared_Exchange_Rate_Type,
364 p_Address_Line4,
365 p_County,
366 DECODE(p_Address_Style, 'DEFAULT', NULL, p_Address_Style),
367 p_Vendor_Id,
368 p_Vendor_Site_Id,
369 p_Exchange_Rate,
370 p_Exchange_Date,
371 p_Exchange_Rate_Type,
372 p_Base_Amount,
373 p_Checkrun_Id,
374 p_global_attribute_category,
375 p_global_attribute1,
376 p_global_attribute2,
377 p_global_attribute3,
378 p_global_attribute4,
379 p_global_attribute5,
380 p_global_attribute6,
381 p_global_attribute7,
382 p_global_attribute8,
383 p_global_attribute9,
384 p_global_attribute10,
385 p_global_attribute11,
386 p_global_attribute12,
387 p_global_attribute13,
388 p_global_attribute14,
389 p_global_attribute15,
390 p_global_attribute16,
391 p_global_attribute17,
392 p_global_attribute18,
393 p_global_attribute19,
394 p_global_attribute20,
395 p_transfer_priority,
396 p_maturity_exchange_rate_type,
397 p_maturity_exchange_date,
398 p_maturity_exchange_rate,
399 p_description,
400 p_anticipated_value_date,
401 p_actual_value_date,
402 p_org_id,
403 p_payment_method_code,
404 p_payment_profile_id,
405 p_bank_charge_bearer,
406 p_settlement_priority,
407 p_payment_document_id,
408 p_party_id,
409 p_party_site_id,
410 p_legal_entity_id,
411 p_payment_id,
412 p_Remit_To_Supplier_Name,
413 p_Remit_To_Supplier_Id,
414 p_Remit_To_Supplier_Site,
415 p_Remit_To_Supplier_Site_Id,
416 p_Relationship_Id ,
417 p_paycard_authorization_number,
418 P_paycard_reference_id
419 );
420
421 debug_info := 'Open cursor C';
422 OPEN C;
423 debug_info := 'Fetch cursor C';
424 FETCH C INTO p_Rowid;
425 if (C%NOTFOUND) then
426 debug_info := 'Close cursor C - ROW NOTFOUND';
427 CLOSE C;
428 Raise NO_DATA_FOUND;
429 end if;
430 debug_info := 'Close cursor C';
431 CLOSE C;
432
433 EXCEPTION
434 WHEN OTHERS THEN
435 IF (SQLCODE <> -20001) THEN
436 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
437 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
438 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
439 ;
440 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || p_Rowid ||
441 ', CHECK_ID = ' || TO_CHAR(p_Check_Id));
442 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
443 END IF;
444 APP_EXCEPTION.RAISE_EXCEPTION;
445
446 END Insert_Row;
447
448 ----------------------------------------------------------------------------
449
450 PROCEDURE Update_Row(p_Rowid VARCHAR2,
451 p_Amount NUMBER,
452 p_Ce_Bank_Acct_Use_Id NUMBER,
453 p_Bank_Account_Name VARCHAR2,
454 p_Check_Date DATE,
455 p_Check_Id NUMBER,
456 p_Check_Number NUMBER,
457 p_Currency_Code VARCHAR2,
458 p_Last_Updated_By NUMBER,
459 p_Last_Update_Date DATE,
460 --IBY:SP p_Payment_Method_Lookup_Code VARCHAR2,
464 p_Address_Line3 VARCHAR2 DEFAULT NULL,
461 p_Payment_Type_Flag VARCHAR2,
462 p_Address_Line1 VARCHAR2 DEFAULT NULL,
463 p_Address_Line2 VARCHAR2 DEFAULT NULL,
465 p_Checkrun_Name VARCHAR2 DEFAULT NULL,
466 p_Check_Format_Id NUMBER DEFAULT NULL,
467 p_Check_Stock_Id NUMBER DEFAULT NULL,
468 p_City VARCHAR2 DEFAULT NULL,
469 p_Country VARCHAR2 DEFAULT NULL,
470 p_Last_Update_Login NUMBER DEFAULT NULL,
471 p_Status_Lookup_Code VARCHAR2 DEFAULT NULL,
472 p_Vendor_Name VARCHAR2 DEFAULT NULL,
473 p_Vendor_Site_Code VARCHAR2 DEFAULT NULL,
474 p_External_Bank_Account_Id NUMBER,
475 p_Zip VARCHAR2 DEFAULT NULL,
476 p_Bank_Account_Num VARCHAR2 DEFAULT NULL,
477 p_Bank_Account_Type VARCHAR2 DEFAULT NULL,
478 p_Bank_Num VARCHAR2 DEFAULT NULL,
479 p_Check_Voucher_Num NUMBER DEFAULT NULL,
480 p_Cleared_Amount NUMBER DEFAULT NULL,
481 p_Cleared_Date DATE DEFAULT NULL,
482 p_Doc_Category_Code VARCHAR2 DEFAULT NULL,
483 p_Doc_Sequence_Id NUMBER DEFAULT NULL,
484 p_Doc_Sequence_Value NUMBER DEFAULT NULL,
485 p_Province VARCHAR2 DEFAULT NULL,
486 p_Released_Date DATE DEFAULT NULL,
487 p_Released_By NUMBER DEFAULT NULL,
488 p_State VARCHAR2 DEFAULT NULL,
489 p_Stopped_Date DATE DEFAULT NULL,
490 p_Stopped_By NUMBER DEFAULT NULL,
491 p_Void_Date DATE DEFAULT NULL,
492 p_Attribute1 VARCHAR2 DEFAULT NULL,
493 p_Attribute10 VARCHAR2 DEFAULT NULL,
494 p_Attribute11 VARCHAR2 DEFAULT NULL,
495 p_Attribute12 VARCHAR2 DEFAULT NULL,
496 p_Attribute13 VARCHAR2 DEFAULT NULL,
497 p_Attribute14 VARCHAR2 DEFAULT NULL,
498 p_Attribute15 VARCHAR2 DEFAULT NULL,
499 p_Attribute2 VARCHAR2 DEFAULT NULL,
500 p_Attribute3 VARCHAR2 DEFAULT NULL,
501 p_Attribute4 VARCHAR2 DEFAULT NULL,
502 p_Attribute5 VARCHAR2 DEFAULT NULL,
503 p_Attribute6 VARCHAR2 DEFAULT NULL,
504 p_Attribute7 VARCHAR2 DEFAULT NULL,
505 p_Attribute8 VARCHAR2 DEFAULT NULL,
506 p_Attribute9 VARCHAR2 DEFAULT NULL,
507 p_Attribute_Category VARCHAR2 DEFAULT NULL,
508 p_Future_Pay_Due_Date DATE DEFAULT NULL,
509 p_Treasury_Pay_Date DATE DEFAULT NULL,
510 p_Treasury_Pay_Number NUMBER DEFAULT NULL,
511 -- Removed for bug 4277744
512 -- p_Ussgl_Transaction_Code VARCHAR2 DEFAULT NULL,
513 -- p_Ussgl_Trx_Code_Context VARCHAR2 DEFAULT NULL,
514 p_Withholding_Status_Lkup_Code VARCHAR2 DEFAULT NULL,
515 p_Reconciliation_Batch_Id NUMBER DEFAULT NULL,
516 p_Cleared_Base_Amount NUMBER DEFAULT NULL,
517 p_Cleared_Exchange_Rate NUMBER DEFAULT NULL,
518 p_Cleared_Exchange_Date DATE DEFAULT NULL,
519 p_Cleared_Exchange_Rate_Type VARCHAR2 DEFAULT NULL,
520 p_Address_Line4 VARCHAR2 DEFAULT NULL,
521 p_County VARCHAR2 DEFAULT NULL,
522 p_Address_Style VARCHAR2 DEFAULT NULL,
523 p_Org_Id NUMBER DEFAULT NULL,
524 p_Vendor_Id NUMBER,
525 p_Vendor_Site_Id NUMBER,
526 p_Exchange_Rate NUMBER DEFAULT NULL,
527 p_Exchange_Date DATE DEFAULT NULL,
528 p_Exchange_Rate_Type VARCHAR2 DEFAULT NULL,
529 p_Base_Amount NUMBER DEFAULT NULL,
530 p_Checkrun_Id NUMBER DEFAULT NULL,
531 p_global_attribute_category VARCHAR2 DEFAULT NULL,
532 p_global_attribute1 VARCHAR2 DEFAULT NULL,
533 p_global_attribute2 VARCHAR2 DEFAULT NULL,
537 p_global_attribute6 VARCHAR2 DEFAULT NULL,
534 p_global_attribute3 VARCHAR2 DEFAULT NULL,
535 p_global_attribute4 VARCHAR2 DEFAULT NULL,
536 p_global_attribute5 VARCHAR2 DEFAULT NULL,
538 p_global_attribute7 VARCHAR2 DEFAULT NULL,
539 p_global_attribute8 VARCHAR2 DEFAULT NULL,
540 p_global_attribute9 VARCHAR2 DEFAULT NULL,
541 p_global_attribute10 VARCHAR2 DEFAULT NULL,
542 p_global_attribute11 VARCHAR2 DEFAULT NULL,
543 p_global_attribute12 VARCHAR2 DEFAULT NULL,
544 p_global_attribute13 VARCHAR2 DEFAULT NULL,
545 p_global_attribute14 VARCHAR2 DEFAULT NULL,
546 p_global_attribute15 VARCHAR2 DEFAULT NULL,
547 p_global_attribute16 VARCHAR2 DEFAULT NULL,
548 p_global_attribute17 VARCHAR2 DEFAULT NULL,
549 p_global_attribute18 VARCHAR2 DEFAULT NULL,
550 p_global_attribute19 VARCHAR2 DEFAULT NULL,
551 p_global_attribute20 VARCHAR2 DEFAULT NULL,
552 p_transfer_priority VARCHAR2 DEFAULT NULL,
553 p_maturity_exchange_rate_type VARCHAR2 DEFAULT NULL,
554 p_maturity_exchange_date DATE DEFAULT NULL,
555 p_maturity_exchange_rate NUMBER DEFAULT NULL,
556 p_description VARCHAR2 DEFAULT NULL,
557 p_anticipated_value_date DATE DEFAULT NULL,
558 p_actual_value_date DATE DEFAULT NULL,
559 p_PAYMENT_METHOD_CODE VARCHAR2 DEFAULT NULL,
560 p_PAYMENT_PROFILE_ID NUMBER DEFAULT NULL,
561 p_BANK_CHARGE_BEARER VARCHAR2 DEFAULT NULL,
562 p_SETTLEMENT_PRIORITY VARCHAR2 DEFAULT NULL,
563 p_payment_document_id NUMBER DEFAULT NULL,
564 p_party_id NUMBER DEFAULT NULL,
565 p_party_site_id NUMBER DEFAULT NULL,
566 p_legal_entity_id NUMBER DEFAULT NULL,
567 p_payment_id NUMBER DEFAULT NULL,
568 p_calling_sequence VARCHAR2,
569 p_Remit_To_Supplier_Name VARCHAR2 DEFAULT NULL,
570 p_Remit_To_Supplier_Id Number DEFAULT NULL,
571 p_Remit_To_Supplier_Site VARCHAR2 DEFAULT NULL,
572 p_Remit_To_Supplier_Site_Id NUMBER DEFAULT NULL,
573 p_Relationship_Id NUMBER DEFAULT NULL,
574 P_paycard_authorization_number VARCHAR2 DEFAULT NULL,
575 P_paycard_reference_id NUMBER DEFAULT NULL
576 )
577 IS
578 current_calling_sequence VARCHAR2(2000);
579 debug_info VARCHAR2(100);
580
581 BEGIN
582 -- Update the calling sequence
583 --
584 current_calling_sequence := 'AP_AC_TABLE_HANDLER_PKG.UPDATE_ROW<-' ||
585 p_calling_sequence;
586
587 debug_info := 'Update ap_checks';
588 UPDATE ap_checks
589 SET
590 amount = p_Amount,
591 ce_bank_acct_use_id = p_Ce_Bank_Acct_Use_Id,
592 bank_account_name = p_Bank_Account_Name,
593 check_date = p_Check_Date,
594 check_id = p_Check_Id,
595 check_number = p_Check_Number,
596 currency_code = p_Currency_Code,
597 last_updated_by = p_Last_Updated_By,
598 last_update_date = p_Last_Update_Date,
599 --IBY:SP payment_method_lookup_code = p_Payment_Method_Lookup_Code,
600 payment_type_flag = p_Payment_Type_Flag,
601 address_line1 = p_Address_Line1,
602 address_line2 = p_Address_Line2,
603 address_line3 = p_Address_Line3,
604 checkrun_name = p_Checkrun_Name,
605 check_format_id = p_Check_Format_Id,
606 check_stock_id = p_Check_Stock_Id,
607 city = p_City,
608 country = p_Country,
609 last_update_login = p_Last_Update_Login,
610 status_lookup_code = p_Status_Lookup_Code,
611 vendor_name = p_Vendor_Name,
612 vendor_site_code = p_Vendor_Site_Code,
613 external_bank_account_id = p_External_Bank_Account_Id,
614 zip = p_Zip,
615 bank_account_num = p_Bank_Account_Num,
616 bank_account_type = p_Bank_Account_Type,
617 bank_num = p_Bank_Num,
618 check_voucher_num = p_Check_Voucher_Num,
619 cleared_amount = p_Cleared_Amount,
620 cleared_date = p_Cleared_Date,
621 doc_category_code = p_Doc_Category_Code,
625 released_date = p_Released_Date,
622 doc_sequence_id = p_Doc_Sequence_Id,
623 doc_sequence_value = p_Doc_Sequence_Value,
624 province = p_Province,
626 released_by = p_Released_By,
627 state = p_State,
628 stopped_date = p_Stopped_Date,
629 stopped_by = p_Stopped_By,
630 void_date = p_Void_Date,
631 attribute1 = p_Attribute1,
632 attribute10 = p_Attribute10,
633 attribute11 = p_Attribute11,
634 attribute12 = p_Attribute12,
635 attribute13 = p_Attribute13,
636 attribute14 = p_Attribute14,
637 attribute15 = p_Attribute15,
638 attribute2 = p_Attribute2,
639 attribute3 = p_Attribute3,
640 attribute4 = p_Attribute4,
641 attribute5 = p_Attribute5,
642 attribute6 = p_Attribute6,
643 attribute7 = p_Attribute7,
644 attribute8 = p_Attribute8,
645 attribute9 = p_Attribute9,
646 attribute_category = p_Attribute_Category,
647 future_pay_due_date = p_Future_Pay_Due_Date,
648 treasury_pay_date = p_Treasury_Pay_Date,
649 treasury_pay_number = p_Treasury_Pay_Number,
650 -- Removed for bug 4277744
651 -- ussgl_transaction_code = p_Ussgl_Transaction_Code,
652 -- ussgl_trx_code_context = p_Ussgl_Trx_Code_Context,
653 withholding_status_lookup_code = p_Withholding_Status_Lkup_Code,
654 reconciliation_batch_id = p_Reconciliation_Batch_Id,
655 cleared_base_amount = p_Cleared_Base_Amount,
656 cleared_exchange_rate = p_Cleared_Exchange_Rate,
657 cleared_exchange_date = p_Cleared_Exchange_Date,
658 cleared_exchange_rate_type = p_Cleared_Exchange_Rate_Type,
659 address_line4 = p_Address_Line4,
660 county = p_County,
661 address_style = DECODE(p_Address_Style,
662 'DEFAULT', NULL,
663 p_Address_Style),
664 vendor_id = p_Vendor_Id,
665 vendor_site_id = p_Vendor_Site_Id,
666 exchange_rate = p_Exchange_Rate,
667 exchange_date = p_Exchange_Date,
668 exchange_rate_type = p_Exchange_Rate_Type,
669 base_amount = p_Base_Amount,
670 checkrun_id = p_Checkrun_Id,
671 global_attribute_category = p_global_attribute_category,
672 global_attribute1 = p_global_attribute1,
673 global_attribute2 = p_global_attribute2,
674 global_attribute3 = p_global_attribute3,
675 global_attribute4 = p_global_attribute4,
676 global_attribute5 = p_global_attribute5,
677 global_attribute6 = p_global_attribute6,
678 global_attribute7 = p_global_attribute7,
679 global_attribute8 = p_global_attribute8,
680 global_attribute9 = p_global_attribute9,
681 global_attribute10 = p_global_attribute10,
682 global_attribute11 = p_global_attribute11,
683 global_attribute12 = p_global_attribute12,
684 global_attribute13 = p_global_attribute13,
685 global_attribute14 = p_global_attribute14,
686 global_attribute15 = p_global_attribute15,
687 global_attribute16 = p_global_attribute16,
688 global_attribute17 = p_global_attribute17,
689 global_attribute18 = p_global_attribute18,
690 global_attribute19 = p_global_attribute19,
691 global_attribute20 = p_global_attribute20,
692 transfer_priority = p_transfer_Priority,
693 maturity_exchange_rate_type = p_maturity_exchange_rate_type,
694 maturity_exchange_date = p_maturity_exchange_date,
695 maturity_exchange_rate = p_maturity_exchange_rate,
696 description = p_description,
697 anticipated_value_date = p_anticipated_value_date,
698 actual_value_date = p_actual_value_date,
699 org_id = p_org_id,
700 payment_method_code = p_payment_method_code,
701 payment_profile_id = p_payment_profile_id,
702 bank_charge_bearer = p_bank_charge_bearer,
703 settlement_priority = p_settlement_priority,
704 payment_document_id = p_payment_document_id,
705 party_id = p_party_id,
706 party_site_id = p_party_site_id,
707 legal_entity_id = p_legal_entity_id,
708 payment_id = p_payment_id,
709 Remit_To_Supplier_Name = p_Remit_To_Supplier_Name,
710 Remit_To_Supplier_Id = p_Remit_To_Supplier_Id,
711 Remit_To_Supplier_Site = p_Remit_To_Supplier_Site,
712 Remit_To_Supplier_Site_Id = p_Remit_To_Supplier_Site_Id ,
713 Relationship_Id = p_Relationship_Id,
714 paycard_authorization_number = p_paycard_authorization_number,
715 paycard_reference_id = P_paycard_reference_id
716
717 WHERE rowid = p_Rowid;
718
719 if (SQL%NOTFOUND) then
720 Raise NO_DATA_FOUND;
721 end if;
722
723 EXCEPTION
724 WHEN OTHERS THEN
725 IF (SQLCODE <> -20001) THEN
726 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
727 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
728 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
729 ;
730 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || p_Rowid ||
731 ', CHECK_ID = ' || TO_CHAR(p_Check_Id));
732 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
733 END IF;
734 APP_EXCEPTION.RAISE_EXCEPTION;
735
736 END Update_Row;
737
738 ----------------------------------------------------------------------------
739 PROCEDURE Delete_Row(p_Rowid VARCHAR2,
740 p_calling_sequence VARCHAR2)
741 IS
742 current_calling_sequence VARCHAR2(2000);
743 debug_info VARCHAR2(100);
744 l_check_id NUMBER;
745
746 BEGIN
747 -- Update the calling sequence
748 --
749 current_calling_sequence := 'AP_AC_TABLE_HANDLER_PKG.DELETE_ROW<-' ||
750 p_calling_sequence;
751 debug_info := 'Delete from ap_checks';
752 DELETE FROM ap_checks
753 WHERE rowid = p_Rowid
754 RETURNING check_id
755 INTO l_check_id;
756
757 if (SQL%NOTFOUND) then
758 Raise NO_DATA_FOUND;
759 end if;
760
761 EXCEPTION
762 WHEN OTHERS THEN
763 IF (SQLCODE <> -20001) THEN
764 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
765 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
766 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
767 ;
768 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || p_Rowid);
769 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
770 END IF;
771 APP_EXCEPTION.RAISE_EXCEPTION;
772
773 END Delete_Row;
774
775 -----------------------------------------------------------------------
776 -- Procedure Update_Amounts is created for GLOBAL to update amounts
777 -- based on the value the passed. This will make sure mrc api will
778 -- for no currency architecture have no effect on the GLOBAL code.
779
780 PROCEDURE Update_Amounts(
781 P_check_id IN NUMBER,
782 P_amount IN NUMBER,
783 P_base_amount IN NUMBER,
784 P_calling_sequence IN VARCHAR2) IS
785
786 current_calling_sequence VARCHAR2(2000);
787 debug_info VARCHAR2(100);
788
789
790 Begin
791
792 -- Update the calling sequence
793 --
794 current_calling_sequence := 'ap_ac_table_handler_pkg.update_amounts<-'||
795 P_calling_sequence;
796
797 debug_info := 'update ap_checks amounts';
798
799 UPDATE ap_checks
800 SET amount = nvl(p_amount, amount),
801 base_amount = nvl(p_base_amount, base_amount)
802 WHERE check_id = p_check_id;
803
804 Exception
805 WHEN OTHERS then
806
807 if (SQLCODE <> -20001 ) then
808 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
809 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
810 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
811 FND_MESSAGE.SET_TOKEN('PARAMETERS'
812 ,' Check_Id = '||TO_CHAR(P_Check_id)
813 ||', Amount = '||TO_CHAR(P_amount)
814 ||', Base_Amount = '||TO_CHAR(P_Base_Amount));
815
816 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
817 end if;
818
819 APP_EXCEPTION.RAISE_EXCEPTION;
820
821 END Update_Amounts;
822
823
824 END AP_AC_TABLE_HANDLER_PKG;