48:
49: BEGIN
50:
51: --===== INITIALIZE =====--
52: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Parameters Passed ...');
53: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Payment Instruction ID : ' || p_instruction_id);
54: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Completed Payments Group ID: ' || p_completed_pmts_group_id);
55:
56: /* The processing type of the documents will determine the validations to be performed */
49: BEGIN
50:
51: --===== INITIALIZE =====--
52: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Parameters Passed ...');
53: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Payment Instruction ID : ' || p_instruction_id);
54: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Completed Payments Group ID: ' || p_completed_pmts_group_id);
55:
56: /* The processing type of the documents will determine the validations to be performed */
57: SELECT process_type
50:
51: --===== INITIALIZE =====--
52: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Parameters Passed ...');
53: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Payment Instruction ID : ' || p_instruction_id);
54: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Completed Payments Group ID: ' || p_completed_pmts_group_id);
55:
56: /* The processing type of the documents will determine the validations to be performed */
57: SELECT process_type
58: INTO l_process_type
92: AND base_currency_code = fndc.currency_code
93: );
94: IF ( l_err_count > 0 ) THEN
95: x_valResult := FALSE;
96: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-A failed - Error Count:' || l_err_count);
97: ELSE
98: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-A passed');
99: END IF;
100:
94: IF ( l_err_count > 0 ) THEN
95: x_valResult := FALSE;
96: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-A failed - Error Count:' || l_err_count);
97: ELSE
98: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-A passed');
99: END IF;
100:
101: --===== VALIDATION-B = Interest Invoice Insert Validation =====--
102: --http://ebizapdev.idc.oracle.com/iby/archive/Bugs/ap-iby-completion/validation2.txt
133: AND apsi.original_invoice_id = orig.invoice_id;
134:
135: IF ( l_int_inv_expected_count <> l_int_inv_actual_count ) THEN
136: x_valResult := FALSE;
137: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-B failed - Expected Interest Count:'
138: || l_int_inv_expected_count || ' Actual Interest Count: '|| l_int_inv_actual_count);
139: ELSE
140: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-B passed');
141: END IF;
136: x_valResult := FALSE;
137: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-B failed - Expected Interest Count:'
138: || l_int_inv_expected_count || ' Actual Interest Count: '|| l_int_inv_actual_count);
139: ELSE
140: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-B passed');
141: END IF;
142:
143: --===== VALIDATION-C = Interest Invoice Lines Insert Validation =====--
144: --http://ebizapdev.idc.oracle.com/iby/archive/Bugs/ap-iby-completion/validation2.txt
162: AND apsi.original_invoice_id = orig.invoice_id;
163:
164: IF ( l_int_line_actual_count > l_int_inv_expected_count ) THEN
165: x_valResult := FALSE;
166: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-C failed - Expected Interest Count:'
167: || l_int_inv_expected_count || ' Actual Interest Line Count: '|| l_int_line_actual_count);
168: ELSE
169: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-C passed');
170: END IF;
165: x_valResult := FALSE;
166: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-C failed - Expected Interest Count:'
167: || l_int_inv_expected_count || ' Actual Interest Line Count: '|| l_int_line_actual_count);
168: ELSE
169: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-C passed');
170: END IF;
171:
172: --===== VALIDATION-D = Batches Insert Validation =====--
173: --http://ebizapdev.idc.oracle.com/iby/archive/Bugs/ap-iby-completion/validation4.txt
182: WHERE lookup_type = 'NLS TRANSLATION'
183: AND lookup_code = 'INTEREST ON PAYMENTBATCH';
184: IF ( l_err_count > 0 ) THEN
185: x_valResult := FALSE;
186: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-D failed');
187: ELSE
188: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-D passed');
189: END IF;
190:
184: IF ( l_err_count > 0 ) THEN
185: x_valResult := FALSE;
186: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-D failed');
187: ELSE
188: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-D passed');
189: END IF;
190:
191: --===== VALIDATION-E = PAYMENTS TALLY = Validation5 + Validation6 = Validation7 =====--
192: --http://ebizapdev.idc.oracle.com/iby/archive/Bugs/ap-iby-completion/validation5.txt
232: AND ce.bank_acct_use_id = cegl.bank_acct_use_id
233: AND iby.completed_pmts_group_id = p_completed_pmts_group_id;
234: IF ( l_iby_pmt_count <> l_ap_pmt_count ) THEN
235: x_valResult := FALSE;
236: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-E (Payments tally) failed - IBY:' ||l_iby_pmt_count ||'; AP:'|| l_ap_pmt_count);
237: ELSE
238: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-E (Payments tally) passed - IBY:' ||l_iby_pmt_count ||'; AP:'|| l_ap_pmt_count);
239: END IF;
240:
234: IF ( l_iby_pmt_count <> l_ap_pmt_count ) THEN
235: x_valResult := FALSE;
236: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-E (Payments tally) failed - IBY:' ||l_iby_pmt_count ||'; AP:'|| l_ap_pmt_count);
237: ELSE
238: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-E (Payments tally) passed - IBY:' ||l_iby_pmt_count ||'; AP:'|| l_ap_pmt_count);
239: END IF;
240:
241: --===== VALIDATION-F = DOCUMENTS PAYABLE TALLY = Validation5 + Validation6 = Validation7 =====--
242: --http://ebizapdev.idc.oracle.com/iby/archive/Bugs/ap-iby-completion/validation5.txt
280:
281: -- Check ( ( IBY_DOC_COUNT - AP_INTEREST_INVOICE_COUNT ) = PAYMENT_SCHEDULE_COUNT )
282: IF ( l_iby_doc_count <> (l_ap_pmtsch_count + l_int_inv_actual_count) ) THEN
283: x_valResult := FALSE;
284: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-F (Documents Payable tally) failed - IBY:' ||l_iby_doc_count ||'; AP:'|| l_ap_pmtsch_count || ',' || l_int_inv_actual_count);
285: ELSE
286: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-F (Documents Payable tally) passed - IBY:' ||l_iby_doc_count ||'; AP:'|| l_ap_pmtsch_count || ',' || l_int_inv_actual_count);
287: END IF;
288:
282: IF ( l_iby_doc_count <> (l_ap_pmtsch_count + l_int_inv_actual_count) ) THEN
283: x_valResult := FALSE;
284: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-F (Documents Payable tally) failed - IBY:' ||l_iby_doc_count ||'; AP:'|| l_ap_pmtsch_count || ',' || l_int_inv_actual_count);
285: ELSE
286: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-F (Documents Payable tally) passed - IBY:' ||l_iby_doc_count ||'; AP:'|| l_ap_pmtsch_count || ',' || l_int_inv_actual_count);
287: END IF;
288:
289: --===== VALIDATION-G = Assign Sequences =====--
290: l_err_count:= 0;
288:
289: --===== VALIDATION-G = Assign Sequences =====--
290: l_err_count:= 0;
291: fnd_profile.get('UNIQUE:SEQ_NUMBERS',l_seq_num_profile);
292: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Sequence number profile : '||l_seq_num_profile);
293:
294: IF ( l_seq_num_profile IN ('A', 'P') ) THEN
295: OPEN check_sequences;
296: LOOP
302:
303: CE_BANK_AND_ACCOUNT_VALIDATION.get_pay_doc_cat(l_payment_document_id, l_payment_method_code, l_bank_acct_use_id, l_doc_category_code);
304:
305: IF( l_doc_category_code = -1) THEN
306: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,' Assign sequences validation failed for Payment ID : '||l_payment_id);
307: l_err_count := l_err_count + 1;
308: END IF;
309: END LOOP;
310:
309: END LOOP;
310:
311: IF ( l_err_count > 0 ) THEN
312: x_valResult := FALSE;
313: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-G failed');
314: ELSE
315: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-G passed');
316: END IF;
317: END IF;
311: IF ( l_err_count > 0 ) THEN
312: x_valResult := FALSE;
313: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-G failed');
314: ELSE
315: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-G passed');
316: END IF;
317: END IF;
318:
319: --===== VALIDATION-H = Subscribe to Payment Event ====--
329:
330: /* This validation is unnecessary after the error handling changes
331: for procedures registered in ap_product_registrations
332: fnd_profile.get('SSE_CC_PAYMENT_NOTIFY', l_sse_cc_payment_notify);
333: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'SSE_CC_PAYMENT_NOTIFY'
334: || l_sse_cc_payment_notify);
335: IF (nvl(l_sse_cc_payment_notify,'N') = 'Y') then
336:
337: select count(*)
360:
361: END IF;
362: IF ( l_err_count > 0 ) THEN
363: x_valResult := FALSE;
364: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-1 failed');
365: ELSE
366: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-1 passed');
367: END IF;
368: */
362: IF ( l_err_count > 0 ) THEN
363: x_valResult := FALSE;
364: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-1 failed');
365: ELSE
366: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-1 passed');
367: END IF;
368: */
369:
370: /* 2 AP_WEB_UTILITIES_PKG.NotifyEmployeeOnPayment
387: and ibypmts.external_bank_account_id is not null;
388:
389: IF ( l_err_count > 0 ) THEN
390: x_valResult := FALSE;
391: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-2 failed');
392: ELSE
393: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-2 passed');
394: END IF;
395:
389: IF ( l_err_count > 0 ) THEN
390: x_valResult := FALSE;
391: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-2 failed');
392: ELSE
393: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-H-2 passed');
394: END IF;
395:
396: */
397:
423: AND gps.closing_Status in ('O', 'F'));
424:
425: IF ( l_err_count > 0 ) THEN
426: x_valResult := FALSE;
427: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-I failed');
428: ELSE
429: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-I passed');
430: END IF;
431:
425: IF ( l_err_count > 0 ) THEN
426: x_valResult := FALSE;
427: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-I failed');
428: ELSE
429: IBY_VALIDATIONSETS_CALLS_PUB.print_debuginfo(l_module_name,'Validation-I passed');
430: END IF;
431:
432:
433: --===== Error Reporting Logic =====--