[Home] [Help]
238:
239: /*
240: * Write the debug message to the concurrent manager log file.
241: */
242: IBY_DEBUG_PUB.log(p_module, p_debug_text,l_default_debug_level);
243:
244:
245: END print_log;
246:
271: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Create_Extract_1_0';
272:
273: BEGIN
274: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
275: iby_debug_pub.add(debug_msg => 'Input p_is_reprint_flag: ' || p_is_reprint_flag,
276: debug_level => G_LEVEL_STATEMENT,
277: module => l_Debug_Module);
278: END IF;
279:
314: l_save_extract_flag VARCHAR2(255);
315: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Create_Extract_1_0';
316:
317: BEGIN
318: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
319: debug_level => G_LEVEL_PROCEDURE,
320: module => l_Debug_Module);
321: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP::' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
322:
317: BEGIN
318: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
319: debug_level => G_LEVEL_PROCEDURE,
320: module => l_Debug_Module);
321: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP::' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
322:
323:
324: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
325:
322:
323:
324: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
325:
326: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
327: debug_level => G_LEVEL_PROCEDURE,
328: module => l_Debug_Module);
329:
330: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
326: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
327: debug_level => G_LEVEL_PROCEDURE,
328: module => l_Debug_Module);
329:
330: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
331: debug_level => G_LEVEL_STATEMENT,
332: module => l_Debug_Module);
333: END IF;
334:
333: END IF;
334:
335: IF p_format_type = 'FEDERAL_SUMMARY' THEN
336: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
337: iby_debug_pub.add(debug_msg => 'ECS dos Seq num: ' || p_save_extract_flag,
338: debug_level => G_LEVEL_STATEMENT,
339: module => l_Debug_Module);
340: END IF;
341: ELSE
340: END IF;
341: ELSE
342: l_save_extract_flag := p_save_extract_flag;
343: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
344: iby_debug_pub.add(debug_msg => 'Save extract flag: ' || p_save_extract_flag,
345: debug_level => G_LEVEL_STATEMENT,
346: module => l_Debug_Module);
347: END IF;
348: END IF;
346: module => l_Debug_Module);
347: END IF;
348: END IF;
349: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
350: iby_debug_pub.add(debug_msg => 'Format type: ' || p_format_type,
351: debug_level => G_LEVEL_STATEMENT,
352: module => l_Debug_Module);
353: END IF;
354:
357: -- them from payment format
358: IF p_format_type = 'OUTBOUND_PAYMENT_INSTRUCTION' THEN
359: G_Extract_Run_Mode := G_EXTRACT_MODE_PMT;
360: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
361: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_PMT',
362: debug_level => G_LEVEL_STATEMENT,
363: module => l_Debug_Module);
364: END IF;
365:
373:
374: -- revert the param to its original function
375: l_save_extract_flag := 'N';
376: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
377: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_FV_SMMY',
378: debug_level => G_LEVEL_STATEMENT,
379: module => l_Debug_Module);
380: END IF;
381: ELSIF p_format_type = 'PAYMENT_INSTRUCTION_REGISTER' THEN
380: END IF;
381: ELSIF p_format_type = 'PAYMENT_INSTRUCTION_REGISTER' THEN
382: G_Extract_Run_Mode := G_EXTRACT_MODE_PI_RPT;
383: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
384: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_PI_RPT',
385: debug_level => G_LEVEL_STATEMENT,
386: module => l_Debug_Module);
387: END IF;
388: ELSIF p_format_type = 'AMEX_REMITTANCE_FILE' THEN
387: END IF;
388: ELSIF p_format_type = 'AMEX_REMITTANCE_FILE' THEN
389: G_Extract_Run_Mode := G_EXTRACT_MODE_AMEX_REM;
390: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
391: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_AMEX_REM',
392: debug_level => G_LEVEL_STATEMENT,
393: module => l_Debug_Module);
394: END IF;
395: IBY_FD_EXTRACT_GEN_PVT.G_FORMAT_TYPE := p_format_type;
393: module => l_Debug_Module);
394: END IF;
395: IBY_FD_EXTRACT_GEN_PVT.G_FORMAT_TYPE := p_format_type;
396: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
397: iby_debug_pub.add(debug_msg => 'Format Type global variable is set to: AMEX_REMITTANCE_FILE',
398: debug_level => G_LEVEL_STATEMENT,
399: module => l_Debug_Module);
400: END IF;
401: ELSE
400: END IF;
401: ELSE
402: G_Extract_Run_Mode := G_EXTRACT_MODE_AUX;
403: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
404: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_AUX',
405: debug_level => G_LEVEL_STATEMENT,
406: module => l_Debug_Module);
407: END IF;
408: END IF;
418: p_sys_key => p_sys_key,
419: x_extract_doc => x_extract_doc
420: );
421: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
422: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
423: debug_level => G_LEVEL_PROCEDURE,
424: module => l_Debug_Module);
425: END IF;
426:
423: debug_level => G_LEVEL_PROCEDURE,
424: module => l_Debug_Module);
425: END IF;
426:
427: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
428: debug_level => G_LEVEL_PROCEDURE,
429: module => l_Debug_Module);
430:
431: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP::' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
427: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
428: debug_level => G_LEVEL_PROCEDURE,
429: module => l_Debug_Module);
430:
431: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP::' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
432:
433: END Create_Extract_1_0;
434:
435:
454: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Create_Extract_1_0';
455:
456: BEGIN
457:
458: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
459: debug_level => G_LEVEL_PROCEDURE,
460: module => l_Debug_Module);
461: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
462:
457:
458: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
459: debug_level => G_LEVEL_PROCEDURE,
460: module => l_Debug_Module);
461: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
462:
463: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
464: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
465: debug_level => G_LEVEL_PROCEDURE,
460: module => l_Debug_Module);
461: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
462:
463: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
464: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
465: debug_level => G_LEVEL_PROCEDURE,
466: module => l_Debug_Module);
467:
468: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
464: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
465: debug_level => G_LEVEL_PROCEDURE,
466: module => l_Debug_Module);
467:
468: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
469: debug_level => G_LEVEL_STATEMENT,
470: module => l_Debug_Module);
471:
472: iby_debug_pub.add(debug_msg => 'SRA delivery method: ' || p_delivery_method,
468: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
469: debug_level => G_LEVEL_STATEMENT,
470: module => l_Debug_Module);
471:
472: iby_debug_pub.add(debug_msg => 'SRA delivery method: ' || p_delivery_method,
473: debug_level => G_LEVEL_STATEMENT,
474: module => l_Debug_Module);
475:
476: iby_debug_pub.add(debug_msg => 'payment id: ' || p_payment_id,
472: iby_debug_pub.add(debug_msg => 'SRA delivery method: ' || p_delivery_method,
473: debug_level => G_LEVEL_STATEMENT,
474: module => l_Debug_Module);
475:
476: iby_debug_pub.add(debug_msg => 'payment id: ' || p_payment_id,
477: debug_level => G_LEVEL_STATEMENT,
478: module => l_Debug_Module);
479: END IF;
480:
483: G_Extract_Run_Payment_id := p_payment_id;
484: G_Extract_Run_From_Pmt_Ref := p_from_pmt_ref;
485: G_Extract_Run_To_Pmt_Ref := p_to_pmt_ref;
486: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
487: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_SRA',
488: debug_level => G_LEVEL_STATEMENT,
489: module => l_Debug_Module);
490: END IF;
491: Create_Extract_1_0_Main
495: p_sys_key => p_sys_key,
496: x_extract_doc => x_extract_doc
497: );
498: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
499: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
500: debug_level => G_LEVEL_PROCEDURE,
501: module => l_Debug_Module);
502: END IF;
503: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
499: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
500: debug_level => G_LEVEL_PROCEDURE,
501: module => l_Debug_Module);
502: END IF;
503: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
504: END Create_Extract_1_0;
505:
506:
507: -- for formats based on extract code: IBY_FD_PAYMENT_INSTRUCTION
528: ins.payment_instruction_id = p_payment_instruction_id
529: AND ins.payment_profile_id = ppp.payment_profile_id;
530:
531: BEGIN
532: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: ExtractMain' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
533: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
534: debug_level => G_LEVEL_PROCEDURE,
535: module => l_Debug_Module);
536: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
529: AND ins.payment_profile_id = ppp.payment_profile_id;
530:
531: BEGIN
532: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: ExtractMain' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
533: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
534: debug_level => G_LEVEL_PROCEDURE,
535: module => l_Debug_Module);
536: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
537: iby_debug_pub.add(debug_msg => 'ENTER CREATE EXTRACT MAIN -- BEFORE INITIALIZING',
533: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
534: debug_level => G_LEVEL_PROCEDURE,
535: module => l_Debug_Module);
536: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
537: iby_debug_pub.add(debug_msg => 'ENTER CREATE EXTRACT MAIN -- BEFORE INITIALIZING',
538: debug_level => G_LEVEL_STATEMENT,
539: module => l_Debug_Module);
540: END IF;
541: initialize;
542: iby_utility_pvt.set_view_param(G_VP_INSTR_ID,p_payment_instruction_id);
543:
544: Validate_and_Set_Syskey(p_sys_key);
545: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
546: iby_debug_pub.add(debug_msg => 'Before XML query ',
547: debug_level => G_LEVEL_STATEMENT,
548: module => l_Debug_Module);
549: END IF;
550: CEP_STANDARD.init_security;
552: FETCH l_ece_csr INTO l_ele_channel;
553: CLOSE l_ece_csr;
554: IF l_ele_channel = 'ECE' AND G_Extract_Run_Mode = G_EXTRACT_MODE_PMT THEN
555: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
556: iby_debug_pub.add(debug_msg => 'Electronic processing channel is ECE',
557: debug_level => G_LEVEL_STATEMENT,
558: module => l_Debug_Module);
559: END IF;
560: IBY_FD_POST_PICP_PROGS_PVT.Run_ECE_Formatting(p_payment_instruction_id);
571: FROM iby_trxn_documents
572: where doctype=100 and trxnmid=p_payment_instruction_id;
573: --(bug 5970838) WHERE doctype = 100 and payment_instruction_id = p_payment_instruction_id;
574: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
575: iby_debug_pub.add(debug_msg => 'After XML query ',
576: debug_level => G_LEVEL_STATEMENT,
577: module => l_Debug_Module);
578: END IF;
579: IF p_save_extract_flag = 'Y' and l_extract_count = 0 THEN
577: module => l_Debug_Module);
578: END IF;
579: IF p_save_extract_flag = 'Y' and l_extract_count = 0 THEN
580: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
581: iby_debug_pub.add(debug_msg => 'The save extract flag is Y and there were no extract previously saved ' ||
582: 'for the instruction. Saving the extract for reuse.',
583: debug_level => G_LEVEL_STATEMENT,
584: module => l_Debug_Module);
585: END IF;
591: p_doc => x_extract_doc,
592: docid_out => l_trxn_doc_id
593: );
594: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
595: iby_debug_pub.add(debug_msg => 'Save successful, iby trxn doc id: ' || l_trxn_doc_id,
596: debug_level => G_LEVEL_STATEMENT,
597: module => l_Debug_Module);
598: END IF;
599: END IF;
597: module => l_Debug_Module);
598: END IF;
599: END IF;
600:
601: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
602: debug_level => G_LEVEL_PROCEDURE,
603: module => l_Debug_Module);
604:
605: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: ExtractMain' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
601: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
602: debug_level => G_LEVEL_PROCEDURE,
603: module => l_Debug_Module);
604:
605: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: ExtractMain' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
606:
607: -- clears out data from global temporary table
608: -- frzhang 8/11/2005: commit will be managed by the java CP
609: -- COMMIT;
652: l_extract_count NUMBER;
653: l_trxn_doc_id NUMBER;
654: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Create_PPR_Extract_1_0';
655: BEGIN
656: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
657: debug_level => G_LEVEL_PROCEDURE,
658: module => l_Debug_Module);
659: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: PPR Extract' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
660:
655: BEGIN
656: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
657: debug_level => G_LEVEL_PROCEDURE,
658: module => l_Debug_Module);
659: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: PPR Extract' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
660:
661: iby_utility_pvt.set_view_param(G_VP_INSTR_ID,p_payment_service_request_id);
662:
663: iby_utility_pvt.set_view_param(G_VP_FMT_TYPE,'PAYMENT_PROCESS_REQUEST_REPORT');
665: Validate_and_Set_Syskey(p_sys_key);
666:
667: G_Extract_Run_Mode := G_EXTRACT_MODE_PPR_RPT;
668: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
669: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_PPR_RPT',
670: debug_level => G_LEVEL_STATEMENT,
671: module => l_Debug_Module);
672: END IF;
673:
672: END IF;
673:
674: G_May_Need_HR_Masking := TRUE;
675: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
676: iby_debug_pub.add(debug_msg => 'Before XML query ',
677: debug_level => G_LEVEL_STATEMENT,
678: module => l_Debug_Module);
679: END IF;
680: CEP_STANDARD.init_security;
684: FROM iby_xml_fd_ppr_1_0_v
685: WHERE payment_service_request_id = p_payment_service_request_id;
686:
687: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
688: iby_debug_pub.add(debug_msg => 'After XML query ',
689: debug_level => G_LEVEL_STATEMENT,
690: module => l_Debug_Module);
691: END IF;
692:
689: debug_level => G_LEVEL_STATEMENT,
690: module => l_Debug_Module);
691: END IF;
692:
693: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
694: debug_level => G_LEVEL_PROCEDURE,
695: module => l_Debug_Module);
696: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: PPR Extract' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
697:
692:
693: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
694: debug_level => G_LEVEL_PROCEDURE,
695: module => l_Debug_Module);
696: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: PPR Extract' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
697:
698: EXCEPTION
699: WHEN OTHERS THEN
700: RAISE;
739: AND xml_pmt_lvl.payment_status = 'ISSUED'
740: AND (xml_pmt_lvl.positive_pay_file_created_flag='N' or xml_pmt_lvl.positive_pay_file_created_flag is NULL);
741:
742: BEGIN
743: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: POS Pay' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
744:
745: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
746: debug_level => G_LEVEL_PROCEDURE,
747: module => l_Debug_Module);
741:
742: BEGIN
743: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: POS Pay' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
744:
745: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
746: debug_level => G_LEVEL_PROCEDURE,
747: module => l_Debug_Module);
748: Validate_and_Set_Syskey(p_sys_key);
749:
747: module => l_Debug_Module);
748: Validate_and_Set_Syskey(p_sys_key);
749:
750: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
751: iby_debug_pub.add(debug_msg => 'Before XML query ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
752: END IF;
753:
754: CEP_STANDARD.init_security;
755:
754: CEP_STANDARD.init_security;
755:
756: IF p_payment_instruction_id <> -99 THEN
757: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
758: iby_debug_pub.add(debug_msg => 'payment instruction id is supplied ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
759: END IF;
760:
761: OPEN l_pospay_ins_csr;
762: FETCH l_pospay_ins_csr INTO x_extract_doc;
762: FETCH l_pospay_ins_csr INTO x_extract_doc;
763: CLOSE l_pospay_ins_csr;
764:
765: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
766: iby_debug_pub.add(debug_msg => 'payment level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
767: END IF;
768:
769: /*LKQ POS PAY - PAVAN */
770: -- payment level attribute setting
774: AND pmt.payment_status = 'ISSUED'
775: AND (pmt.positive_pay_file_created_flag='N' or pmt.positive_pay_file_created_flag is NULL);
776:
777: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
778: iby_debug_pub.add(debug_msg => 'payment instruction level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
779: END IF;
780:
781: /*LKQ POS PAY - PAVAN */
782: -- payment instruction level attribute setting
792: l_to_date := p_to_date;
793: END IF;
794:
795: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
796: iby_debug_pub.add(debug_msg => 'payment instruction id is NOT supplied ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
797: END IF;
798:
799: OPEN l_pospay_appp_csr(l_to_date);
800: FETCH l_pospay_appp_csr INTO x_extract_doc;
809: AND pmt.payment_status = 'ISSUED'
810: AND (pmt.positive_pay_file_created_flag='N' or pmt.positive_pay_file_created_flag is NULL);
811:
812: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
813: iby_debug_pub.add(debug_msg => 'payment level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
814: END IF;
815:
816:
817: /*LKQ POS PAY - PAVAN */
815:
816:
817: /*LKQ POS PAY - PAVAN */
818: -- payment level attribute setting
819: iby_debug_pub.add(debug_msg => 'Payment Count : '|| l_paymentid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
820: IF ( l_paymentid_arr.COUNT <> 0) THEN
821: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
822: UPDATE iby_payments_all
823: SET positive_pay_file_created_flag = 'Y'
821: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
822: UPDATE iby_payments_all
823: SET positive_pay_file_created_flag = 'Y'
824: WHERE payment_id = l_paymentid_arr(i);
825: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
826: END LOOP;
827: ELSE
828: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
829: END IF;
824: WHERE payment_id = l_paymentid_arr(i);
825: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
826: END LOOP;
827: ELSE
828: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
829: END IF;
830:
831: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
832: iby_debug_pub.add(debug_msg => 'payment instruction level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
828: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
829: END IF;
830:
831: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
832: iby_debug_pub.add(debug_msg => 'payment instruction level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
833: END IF;
834:
835: /*LKQ POS PAY - PAVAN */
836: -- payment instruction level attribute setting
833: END IF;
834:
835: /*LKQ POS PAY - PAVAN */
836: -- payment instruction level attribute setting
837: iby_debug_pub.add(debug_msg => 'Payment Instr Count : '|| l_paymentinstrid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
838: IF ( l_paymentinstrid_arr.COUNT <> 0) THEN
839: FOR i IN l_paymentinstrid_arr.FIRST .. l_paymentinstrid_arr.LAST LOOP
840: IF (l_paymentinstrid_arr(i) IS NOT NULL ) THEN
841: UPDATE iby_pay_instructions_all ins
845: WHERE nvl(pmt.positive_pay_file_created_flag,'N') = 'N'
846: AND pmt.payment_status IN('ISSUED', 'PAID')
847: AND pmt.payment_instruction_id = l_paymentinstrid_arr(i))
848: AND ins.payment_instruction_id = l_paymentinstrid_arr(i);
849: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
850: END IF;
851: END LOOP;
852: ELSE
853: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
849: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
850: END IF;
851: END LOOP;
852: ELSE
853: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
854: END IF;
855:
856: END IF;
857:
855:
856: END IF;
857:
858: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
859: iby_debug_pub.add(debug_msg => 'After XML query ',
860: debug_level => G_LEVEL_STATEMENT,
861: module => l_Debug_Module);
862: END IF;
863:
860: debug_level => G_LEVEL_STATEMENT,
861: module => l_Debug_Module);
862: END IF;
863:
864: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
865: debug_level => G_LEVEL_PROCEDURE,
866: module => l_Debug_Module);
867: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: POS Pay' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
868:
863:
864: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
865: debug_level => G_LEVEL_PROCEDURE,
866: module => l_Debug_Module);
867: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: POS Pay' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
868:
869: EXCEPTION
870: WHEN OTHERS THEN
871: RAISE;
1075: OR ( NVL(pmt.positive_pay_file_created_flag,'N') = 'N' AND NVL(UPPER(p_reselect),'NO') = 'NO' ) );
1076:
1077: BEGIN
1078:
1079: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1080: debug_level => G_LEVEL_PROCEDURE,
1081: module => l_Debug_Module);
1082:
1083: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: POS Pay2' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
1079: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1080: debug_level => G_LEVEL_PROCEDURE,
1081: module => l_Debug_Module);
1082:
1083: iby_debug_pub.log(l_Debug_Module,'Enter:TIMESTAMP:: POS Pay2' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
1084:
1085:
1086: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1087: -- parameter disp
1084:
1085:
1086: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1087: -- parameter disp
1088: iby_debug_pub.add(debug_msg => 'Parameters 0 ' || ':' || p_payment_instruction_id || ':' ||
1089: p_format_name || ':' || p_internal_bank_account_name || ':' || p_payment_status || ':' ||
1090: p_reselect || ':' || p_from_date || ':' || p_to_date || ':' ||
1091: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1092:
1091: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1092:
1093:
1094: --system key validation
1095: iby_debug_pub.add(debug_msg => 'Enter ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1096:
1097:
1098: --initializing
1099: iby_debug_pub.add(debug_msg => 'Before XML query ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1095: iby_debug_pub.add(debug_msg => 'Enter ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1096:
1097:
1098: --initializing
1099: iby_debug_pub.add(debug_msg => 'Before XML query ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1100: END IF;
1101:
1102:
1103:
1109: l_from_date := p_from_date;
1110: l_to_date := p_to_date;
1111:
1112: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1113: iby_debug_pub.add(debug_msg => 'l_from_date 0 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1114: iby_debug_pub.add(debug_msg => 'l_to_date 0 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1115: END IF;
1116:
1117: /* From date does not need any manipulations, and should not be defaulted to sysdate
1110: l_to_date := p_to_date;
1111:
1112: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1113: iby_debug_pub.add(debug_msg => 'l_from_date 0 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1114: iby_debug_pub.add(debug_msg => 'l_to_date 0 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1115: END IF;
1116:
1117: /* From date does not need any manipulations, and should not be defaulted to sysdate
1118: IF ( trim(l_from_date) = '' or l_from_date = null or l_from_date = 'null') THEN
1117: /* From date does not need any manipulations, and should not be defaulted to sysdate
1118: IF ( trim(l_from_date) = '' or l_from_date = null or l_from_date = 'null') THEN
1119: l_from_date := to_char(sysdate,'YYYY/MM/DD')||' 00:00:00';
1120: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1121: iby_debug_pub.add(debug_msg => 'l_from_date 1 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1122: END IF;
1123: END IF;*/
1124: IF ( trim(l_to_date) = '' or l_to_date is null or l_to_date = 'null') THEN
1125: l_to_date := to_char(sysdate,'YYYY/MM/DD')||' 00:00:00';
1123: END IF;*/
1124: IF ( trim(l_to_date) = '' or l_to_date is null or l_to_date = 'null') THEN
1125: l_to_date := to_char(sysdate,'YYYY/MM/DD')||' 00:00:00';
1126: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1127: iby_debug_pub.add(debug_msg => 'l_to_date 1 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1128: END IF;
1129: END IF;
1130: /* From date does not need any manipulations, and should not be defaulted to sysdate
1131: IF instr(l_from_date, '00:00:00') <> 0 THEN
1130: /* From date does not need any manipulations, and should not be defaulted to sysdate
1131: IF instr(l_from_date, '00:00:00') <> 0 THEN
1132: l_from_date := REPLACE(l_from_date, '00:00:00', '00:00:01');
1133: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1134: iby_debug_pub.add(debug_msg => 'l_from_date 2 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1135: END IF;
1136: END IF;*/
1137:
1138: IF instr(l_to_date, '00:00:00') <> 0 THEN
1137:
1138: IF instr(l_to_date, '00:00:00') <> 0 THEN
1139: l_to_date := REPLACE(l_to_date, '00:00:00', '23:59:59');
1140: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1141: iby_debug_pub.add(debug_msg => 'l_to_date 2 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1142: END IF;
1143: END IF;
1144:
1145: -- parameter disp
1143: END IF;
1144:
1145: -- parameter disp
1146: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1147: iby_debug_pub.add(debug_msg => 'Parameters 1 ' || ':' || p_payment_instruction_id || ':' ||
1148: p_format_name || ':' || p_internal_bank_account_name || ':' || p_payment_status || ':' ||
1149: p_reselect || ':' || l_from_date || ':' || l_to_date || ':' ||
1150: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1151: END IF;
1152:
1153: --parameter checks
1154: IF (p_payment_instruction_id = -99 ) THEN
1155: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1156: iby_debug_pub.add(debug_msg => 'Payment Instruction ID not supplied ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1157: END IF;
1158: IF ((trim(p_format_name) = '' or p_format_name is null or p_format_name = 'null') OR (trim(p_internal_bank_account_name) = '' or p_internal_bank_account_name is null or p_internal_bank_account_name = 'null')) THEN
1159: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1160: iby_debug_pub.add(debug_msg => 'Enter the conditional mandatory fields Format Name and Internal Bank Account ID or Payment Instruction ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1156: iby_debug_pub.add(debug_msg => 'Payment Instruction ID not supplied ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1157: END IF;
1158: IF ((trim(p_format_name) = '' or p_format_name is null or p_format_name = 'null') OR (trim(p_internal_bank_account_name) = '' or p_internal_bank_account_name is null or p_internal_bank_account_name = 'null')) THEN
1159: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1160: iby_debug_pub.add(debug_msg => 'Enter the conditional mandatory fields Format Name and Internal Bank Account ID or Payment Instruction ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1161: END IF;
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164: END IF;
1164: END IF;
1165:
1166: IF (nvl(to_date(l_to_date, 'YYYY/MM/DD HH24:MI:SS'), sysdate) < nvl(to_date(l_from_date, 'YYYY/MM/DD HH24:MI:SS'), nvl(to_date(l_to_date, 'YYYY/MM/DD HH24:MI:SS'), sysdate)) ) THEN
1167: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1168: iby_debug_pub.add(debug_msg => 'From Payment Date is greater than To Payment Date', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1169: END IF;
1170: RAISE FND_API.G_EXC_ERROR;
1171: END IF;
1172:
1171: END IF;
1172:
1173: IF (trim(p_payment_status) = '' or p_payment_status is null or p_payment_status = 'null') THEN
1174: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1175: iby_debug_pub.add(debug_msg => 'Cannot proceed since Payment Status attribute is not supplied', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1176: END IF;
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1178: END IF;
1179:
1180: IF (trim(p_reselect) = '' or p_reselect is null or p_reselect = 'null') THEN
1181: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1182: iby_debug_pub.add(debug_msg => 'Cannot proceed since Reselect attribute is not supplied', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1183: END IF;
1184: RAISE FND_API.G_EXC_ERROR;
1185: END IF;
1186:
1185: END IF;
1186:
1187: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1188: -- edited parameter disp
1189: iby_debug_pub.add(debug_msg => 'Parameters 2 ' || ':' || p_payment_instruction_id || ':' ||
1190: p_format_name || ':' || p_internal_bank_account_name || ':' || p_payment_status || ':' ||
1191: p_reselect || ':' || l_from_date || ':' || l_to_date || ':' ||
1192: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1193: END IF;
1195: --pmt instr supplied
1196: IF p_payment_instruction_id <> -99 THEN
1197:
1198: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1199: iby_debug_pub.add(debug_msg => 'Payment Instruction ID supplied ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1200: END IF;
1201: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
1202: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1203: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1199: iby_debug_pub.add(debug_msg => 'Payment Instruction ID supplied ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1200: END IF;
1201: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
1202: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1203: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1204: END IF;
1205: IF upper(p_reselect) = 'NO' THEN
1206: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1207: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1203: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1204: END IF;
1205: IF upper(p_reselect) = 'NO' THEN
1206: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1207: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1208: END IF;
1209: OPEN l_pospay_ins_csr_1_1;
1210: FETCH l_pospay_ins_csr_1_1 INTO x_extract_doc;
1211: CLOSE l_pospay_ins_csr_1_1;
1210: FETCH l_pospay_ins_csr_1_1 INTO x_extract_doc;
1211: CLOSE l_pospay_ins_csr_1_1;
1212:
1213: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1214: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1215: END IF;
1216: UPDATE iby_payments_all
1217: SET positive_pay_file_created_flag = 'Y'
1218: WHERE payment_instruction_id = p_payment_instruction_id
1219: AND (positive_pay_file_created_flag='N' or positive_pay_file_created_flag is NULL)
1220: AND payment_status IN ('ISSUED','PAID');
1221: ELSE
1222: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1223: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1224: END IF;
1225: OPEN l_pospay_ins_csr_1_2;
1226: FETCH l_pospay_ins_csr_1_2 INTO x_extract_doc;
1227: CLOSE l_pospay_ins_csr_1_2;
1226: FETCH l_pospay_ins_csr_1_2 INTO x_extract_doc;
1227: CLOSE l_pospay_ins_csr_1_2;
1228:
1229: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1230: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1231: END IF;
1232: UPDATE iby_payments_all
1233: SET positive_pay_file_created_flag = 'Y'
1234: WHERE payment_instruction_id = p_payment_instruction_id
1237:
1238: END IF;
1239: ELSIF upper(p_payment_status) = 'VOIDED' THEN
1240: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1241: iby_debug_pub.add(debug_msg => 'Payment Status is voided ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1242: END IF;
1243: IF upper(p_reselect) = 'NO' THEN
1244: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1245: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1241: iby_debug_pub.add(debug_msg => 'Payment Status is voided ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1242: END IF;
1243: IF upper(p_reselect) = 'NO' THEN
1244: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1245: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1246: END IF;
1247: OPEN l_pospay_ins_csr_2_1;
1248: FETCH l_pospay_ins_csr_2_1 INTO x_extract_doc;
1249: CLOSE l_pospay_ins_csr_2_1;
1248: FETCH l_pospay_ins_csr_2_1 INTO x_extract_doc;
1249: CLOSE l_pospay_ins_csr_2_1;
1250:
1251: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1252: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1253: END IF;
1254: UPDATE iby_payments_all
1255: SET positive_pay_file_created_flag = 'Y'
1256: WHERE payment_instruction_id = p_payment_instruction_id
1258: AND payment_status IN ('VOID');
1259:
1260: ELSE
1261: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1262: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1263: END IF;
1264: OPEN l_pospay_ins_csr_2_2;
1265: FETCH l_pospay_ins_csr_2_2 INTO x_extract_doc;
1266: CLOSE l_pospay_ins_csr_2_2;
1265: FETCH l_pospay_ins_csr_2_2 INTO x_extract_doc;
1266: CLOSE l_pospay_ins_csr_2_2;
1267:
1268: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1269: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1270: END IF;
1271: UPDATE iby_payments_all
1272: SET positive_pay_file_created_flag = 'Y'
1273: WHERE payment_instruction_id = p_payment_instruction_id
1275:
1276: END IF;
1277: ELSE
1278: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1279: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable and voided ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1280: END IF;
1281: IF upper(p_reselect) = 'NO' THEN
1282: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1283: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1279: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable and voided ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1280: END IF;
1281: IF upper(p_reselect) = 'NO' THEN
1282: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1283: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1284: END IF;
1285: OPEN l_pospay_ins_csr_3_1;
1286: FETCH l_pospay_ins_csr_3_1 INTO x_extract_doc;
1287: CLOSE l_pospay_ins_csr_3_1;
1286: FETCH l_pospay_ins_csr_3_1 INTO x_extract_doc;
1287: CLOSE l_pospay_ins_csr_3_1;
1288:
1289: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1290: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1291: END IF;
1292: UPDATE iby_payments_all
1293: SET positive_pay_file_created_flag = 'Y'
1294: WHERE payment_instruction_id = p_payment_instruction_id
1296: AND payment_status IN ('VOID','ISSUED','PAID');
1297:
1298: ELSE
1299: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1300: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1301: END IF;
1302: OPEN l_pospay_ins_csr_3_2;
1303: FETCH l_pospay_ins_csr_3_2 INTO x_extract_doc;
1304: CLOSE l_pospay_ins_csr_3_2;
1303: FETCH l_pospay_ins_csr_3_2 INTO x_extract_doc;
1304: CLOSE l_pospay_ins_csr_3_2;
1305:
1306: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1307: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1308: END IF;
1309: UPDATE iby_payments_all
1310: SET positive_pay_file_created_flag = 'Y'
1311: WHERE payment_instruction_id = p_payment_instruction_id
1315: END IF;
1316: --pmt instr not supplied
1317: ELSE
1318: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1319: iby_debug_pub.add(debug_msg => 'Payment Instruction ID NOT supplied ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1320: END IF;
1321: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
1322: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1323: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1319: iby_debug_pub.add(debug_msg => 'Payment Instruction ID NOT supplied ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1320: END IF;
1321: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
1322: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1323: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1324: END IF;
1325: IF upper(p_reselect) = 'NO' THEN
1326: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1327: iby_debug_pub.add(debug_msg => 'Reselect Option No ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1323: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1324: END IF;
1325: IF upper(p_reselect) = 'NO' THEN
1326: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1327: iby_debug_pub.add(debug_msg => 'Reselect Option No ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1328: END IF;
1329: OPEN l_pospay_appp_csr_1_1(l_from_date,l_to_date);
1330: FETCH l_pospay_appp_csr_1_1 INTO x_extract_doc_R12;
1331: CLOSE l_pospay_appp_csr_1_1;
1347: AND pmt.payment_status IN('ISSUED','PAID');
1348:
1349: ELSE
1350: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1351: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1352: END IF;
1353: OPEN l_pospay_appp_csr_1_2(l_from_date,l_to_date);
1354: FETCH l_pospay_appp_csr_1_2 INTO x_extract_doc_R12;
1355: CLOSE l_pospay_appp_csr_1_2;
1371:
1372: END IF;
1373: ELSIF upper(p_payment_status) = 'VOIDED' THEN
1374: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1375: iby_debug_pub.add(debug_msg => 'Payment Status is voided ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1376: END IF;
1377: IF upper(p_reselect) = 'NO' THEN
1378: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1379: iby_debug_pub.add(debug_msg => 'Reselect Option No ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1375: iby_debug_pub.add(debug_msg => 'Payment Status is voided ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1376: END IF;
1377: IF upper(p_reselect) = 'NO' THEN
1378: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1379: iby_debug_pub.add(debug_msg => 'Reselect Option No ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1380: END IF;
1381: OPEN l_pospay_appp_csr_2_1(l_from_date,l_to_date);
1382: FETCH l_pospay_appp_csr_2_1 INTO x_extract_doc_R12;
1383: CLOSE l_pospay_appp_csr_2_1;
1398: AND decode(pmt.payment_status,'VOID',pmt.void_date,pmt.payment_date) <= nvl(to_date(l_to_date, 'YYYY/MM/DD HH24:MI:SS'), sysdate)
1399: AND pmt.payment_status IN('VOID');
1400: ELSE
1401: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1402: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1403: END IF;
1404: OPEN l_pospay_appp_csr_2_2(l_from_date,l_to_date);
1405: FETCH l_pospay_appp_csr_2_2 INTO x_extract_doc_R12;
1406: CLOSE l_pospay_appp_csr_2_2;
1422:
1423: END IF;
1424: ELSE
1425: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1426: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable and voided ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1427: END IF;
1428: IF upper(p_reselect) = 'NO' THEN
1429: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1430: iby_debug_pub.add(debug_msg => 'Reselect Option No ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1426: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable and voided ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1427: END IF;
1428: IF upper(p_reselect) = 'NO' THEN
1429: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1430: iby_debug_pub.add(debug_msg => 'Reselect Option No ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1431: END IF;
1432: OPEN l_pospay_appp_csr_3_1(l_from_date,l_to_date);
1433: FETCH l_pospay_appp_csr_3_1 INTO x_extract_doc_R12;
1434: CLOSE l_pospay_appp_csr_3_1;
1450: AND pmt.payment_status IN('VOID','ISSUED','PAID');
1451:
1452: ELSE
1453: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1454: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1455: END IF;
1456: OPEN l_pospay_appp_csr_3_2(l_from_date,l_to_date);
1457: FETCH l_pospay_appp_csr_3_2 INTO x_extract_doc_R12;
1458: CLOSE l_pospay_appp_csr_3_2;
1475: END IF;
1476: END IF;
1477:
1478: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1479: iby_debug_pub.add(debug_msg => 'payment level attribute setting ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1480: END IF;
1481:
1482:
1483: iby_debug_pub.add(debug_msg => 'Payment Count : '|| l_paymentid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1479: iby_debug_pub.add(debug_msg => 'payment level attribute setting ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1480: END IF;
1481:
1482:
1483: iby_debug_pub.add(debug_msg => 'Payment Count : '|| l_paymentid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1484: IF ( l_paymentid_arr.COUNT <> 0) THEN
1485: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
1486: UPDATE iby_payments_all
1487: SET positive_pay_file_created_flag = 'Y'
1485: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
1486: UPDATE iby_payments_all
1487: SET positive_pay_file_created_flag = 'Y'
1488: WHERE payment_id = l_paymentid_arr(i);
1489: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1490: END LOOP;
1491: ELSE
1492: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1493: END IF;
1488: WHERE payment_id = l_paymentid_arr(i);
1489: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1490: END LOOP;
1491: ELSE
1492: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1493: END IF;
1494:
1495: IF upper(p_payment_status) <> 'NEGOTIABLE' THEN
1496:
1527: IF p_payment_instruction_id <> -99 THEN
1528:
1529: --if payment instruction is supplied
1530: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1531: iby_debug_pub.add(debug_msg => 'Setting the payment instruction level positive_pay_file_created_flag ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1532: END IF;
1533: UPDATE iby_pay_instructions_all
1534: SET positive_pay_file_created_flag='Y'
1535: WHERE payment_instruction_id = p_payment_instruction_id;
1536:
1537: ELSE
1538: --if payment instruction is NOT supplied
1539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1540: iby_debug_pub.add(debug_msg => 'Setting the payment instruction level positive_pay_file_created_flag ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1541: END IF;
1542:
1543:
1544: iby_debug_pub.add(debug_msg => 'Payment Instr Count : '|| l_paymentinstrid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1540: iby_debug_pub.add(debug_msg => 'Setting the payment instruction level positive_pay_file_created_flag ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1541: END IF;
1542:
1543:
1544: iby_debug_pub.add(debug_msg => 'Payment Instr Count : '|| l_paymentinstrid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1545: IF ( l_paymentinstrid_arr.COUNT <> 0) THEN
1546: FOR i IN l_paymentinstrid_arr.FIRST .. l_paymentinstrid_arr.LAST LOOP
1547: IF (l_paymentinstrid_arr(i) IS NOT NULL ) THEN
1548: UPDATE iby_pay_instructions_all ins
1552: WHERE nvl(pmt.positive_pay_file_created_flag,'N') = 'N'
1553: AND pmt.payment_status IN('ISSUED', 'PAID')
1554: AND pmt.payment_instruction_id = l_paymentinstrid_arr(i))
1555: AND ins.payment_instruction_id = l_paymentinstrid_arr(i);
1556: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1557: END IF;
1558: END LOOP;
1559: ELSE
1560: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1556: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1557: END IF;
1558: END LOOP;
1559: ELSE
1560: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1561: END IF;
1562:
1563: END IF;
1564:
1563: END IF;
1564:
1565: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1566: --Done
1567: iby_debug_pub.add(debug_msg => 'After XML query ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1568: iby_debug_pub.add(debug_msg => 'Exit ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1569: END IF;
1570:
1571: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1564:
1565: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1566: --Done
1567: iby_debug_pub.add(debug_msg => 'After XML query ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1568: iby_debug_pub.add(debug_msg => 'Exit ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1569: END IF;
1570:
1571: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1572: debug_level => G_LEVEL_PROCEDURE,
1567: iby_debug_pub.add(debug_msg => 'After XML query ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1568: iby_debug_pub.add(debug_msg => 'Exit ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1569: END IF;
1570:
1571: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1572: debug_level => G_LEVEL_PROCEDURE,
1573: module => l_Debug_Module);
1574:
1575: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: POS Pay2' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
1571: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1572: debug_level => G_LEVEL_PROCEDURE,
1573: module => l_Debug_Module);
1574:
1575: iby_debug_pub.log(l_Debug_Module,'Exit:TIMESTAMP:: POS Pay2' || l_Debug_Module||':: '||systimestamp,FND_LOG.LEVEL_STATEMENT);
1576:
1577:
1578: EXCEPTION
1579: WHEN OTHERS THEN
1597:
1598: BEGIN
1599:
1600: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1601: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1602: debug_level => G_LEVEL_PROCEDURE,
1603: module => l_Debug_Module);
1604: END IF;
1605: l_key := p_legal_entity_id;
1606: /* If the Registration Number is not found in the cache */
1607: IF (NOT(g_payer_registration_tbl.EXISTS( l_key ))) THEN
1608:
1609: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1610: iby_debug_pub.add(debug_msg => 'Payer tax reg number not found in the cache for p_legal_entity_id : '||l_key,
1611: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1612: END IF;
1613:
1614: XLE_UTILITIES_GRP.Get_FP_VATRegistration_LEID
1625: );
1626:
1627:
1628: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1629: iby_debug_pub.add(debug_msg => 'Inserting tax reg number l_tax_registration : '|| l_tax_registration ||' in cache for p_legal_entity_id : '||l_key,
1630: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1631: END IF;
1632:
1633: g_payer_registration_tbl(l_key).registration_number:= l_tax_registration;
1635:
1636: ELSE
1637:
1638: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1639: iby_debug_pub.add(debug_msg => 'Reg.No found in the cache for p_legal_entity_id : '||l_key,
1640: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1641: END IF;
1642:
1643: l_registration_number := g_payer_registration_tbl(l_key).registration_number;
1643: l_registration_number := g_payer_registration_tbl(l_key).registration_number;
1644:
1645:
1646: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1647: iby_debug_pub.add(debug_msg => 'Fetched tax reg number l_registration_number : '|| l_registration_number ||' in cache for p_legal_entity_id : '||l_key,
1648: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1649: END IF;
1650:
1651: END IF;
1649: END IF;
1650:
1651: END IF;
1652: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1653: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1654: debug_level => G_LEVEL_PROCEDURE,
1655: module => l_Debug_Module);
1656: END IF;
1657:
1889: l_debug_module VARCHAR2(255) := G_DEBUG_MODULE || '.Get_Payee_TaxRegistration';
1890:
1891: BEGIN
1892: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1893: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
1894: debug_level => G_LEVEL_PROCEDURE,
1895: module => l_Debug_Module);
1896: END IF;
1897: --Bug # 7412315
1901: l_key := p_party_id || l_party_type ;
1902: /* If the Registration Number is not found in the cache */
1903: IF (NOT(g_registration_tbl.EXISTS( l_key ))) THEN
1904: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1905: iby_debug_pub.add(debug_msg => 'Reg.No not found in the cache ',
1906: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1907: END IF;
1908: g_registration_tbl(l_key).registration_number:=
1909: ZX_API_PUB.get_default_tax_reg
1920: p_effective_date => null );
1921: l_registration_number := g_registration_tbl(l_key).registration_number;
1922: ELSE
1923: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1924: iby_debug_pub.add(debug_msg => 'Reg.No found in the cache ',
1925: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1926: END IF;
1927: l_registration_number := g_registration_tbl(l_key).registration_number;
1928: END IF;
1931: l_party_type := 'THIRD_PARTY_SITE';
1932: l_key := p_supplier_site_id || l_party_type ;
1933: IF (NOT(g_registration_tbl.EXISTS( l_key ))) THEN
1934: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1935: iby_debug_pub.add(debug_msg => 'Reg.No not found in the cache for the supplier ',
1936: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1937: END IF;
1938: g_registration_tbl(l_key).registration_number:=
1939: NVL(ZX_API_PUB.get_default_tax_reg
1962:
1963: l_registration_number := g_registration_tbl(l_key).registration_number;
1964: ELSE
1965: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1966: iby_debug_pub.add(debug_msg => 'Reg.No found in the cache for the supplier ',
1967: debug_level => G_LEVEL_STATEMENT, module => l_debug_module);
1968: END IF;
1969: l_registration_number := g_registration_tbl(l_key).registration_number;
1970: END IF;
2028: x_registration_number => l_registration_number
2029: );
2030: */
2031: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2032: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
2033: debug_level => G_LEVEL_PROCEDURE,
2034: module => l_Debug_Module);
2035: END IF;
2036:
2123: AND xle_firstparty.party_id = p_party_id;
2124:
2125: BEGIN
2126: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2127: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || G_Debug_Module || '.get_payer_contact'':: '||systimestamp,
2128: debug_level => G_LEVEL_PROCEDURE,
2129: module => G_Debug_Module || '.get_payer_contact');
2130: END IF;
2131:
2129: module => G_Debug_Module || '.get_payer_contact');
2130: END IF;
2131:
2132: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2133: iby_debug_pub.add(debug_msg => 'ENTER get_payer_contact',
2134: debug_level => G_LEVEL_STATEMENT,
2135: module => G_Debug_Module || '.get_payer_contact');
2136: END IF;
2137: -- Bug 7253633
2150: OPEN l_fax_csr (p_party_id);
2151: FETCH l_fax_csr INTO l_fax_cp_id;
2152: CLOSE l_fax_csr;
2153: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2154: iby_debug_pub.add(debug_msg => 'After getting mail, phone and fax',
2155: debug_level => G_LEVEL_STATEMENT,
2156: module => G_Debug_Module || '.get_payer_contact');
2157: END IF;
2158: OPEN l_web_csr (p_party_id);
2162: OPEN l_hr_loc_contact_csr (p_party_id);
2163: FETCH l_hr_loc_contact_csr INTO l_hr_loc_phone, l_hr_loc_fax;
2164: CLOSE l_hr_loc_contact_csr;
2165: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2166: iby_debug_pub.add(debug_msg => 'Before XML query',
2167: debug_level => G_LEVEL_STATEMENT,
2168: module => G_Debug_Module || '.get_payer_contact');
2169: END IF;
2170: -- the ContactName is left null
2201: INTO l_contactinfo
2202: FROM dual;
2203:
2204: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2205: iby_debug_pub.add(debug_msg => 'EXIT get_payer_contact',
2206: debug_level => G_LEVEL_STATEMENT,
2207: module => G_Debug_Module || '.get_payer_contact');
2208: END IF;
2209:
2207: module => G_Debug_Module || '.get_payer_contact');
2208: END IF;
2209:
2210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2211: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || G_Debug_Module || '.get_payer_contact'':: '||systimestamp,
2212: debug_level => G_LEVEL_PROCEDURE,
2213: module => G_Debug_Module || '.get_payer_contact');
2214: END IF;
2215: RETURN l_contactinfo;
2217:
2218: EXCEPTION
2219: WHEN OTHERS THEN
2220: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2221: iby_debug_pub.add(debug_msg => 'EXCEPTION -'||sqlerrm,
2222: debug_level => G_LEVEL_STATEMENT,
2223: module => G_Debug_Module || '.get_payer_contact');
2224: END IF;
2225:
2310:
2311: BEGIN
2312:
2313: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2314: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2315: debug_level => G_LEVEL_PROCEDURE,
2316: module => l_Debug_Module);
2317: END IF;
2318: OPEN l_pmt_csr (p_payment_id);
2354: )
2355: INTO l_contactinfo
2356: FROM dual;
2357: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2358: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2359: debug_level => G_LEVEL_PROCEDURE,
2360: module => l_Debug_Module);
2361: END IF;
2362: RETURN l_contactinfo;
2455:
2456: BEGIN
2457:
2458: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2459: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2460: debug_level => G_LEVEL_PROCEDURE,
2461: module => l_Debug_Module);
2462: END IF;
2463: /*
2548: )
2549: INTO l_contactinfo
2550: FROM dual;
2551: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2552: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2553: debug_level => G_LEVEL_PROCEDURE,
2554: module => l_Debug_Module);
2555: END IF;
2556: RETURN l_contactinfo;
2588: BEGIN
2589:
2590: format_hr_address_C := format_hr_address_C + 1;
2591: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2592: iby_debug_pub.add(debug_msg => 'format_hr_address() entered. count: ' || format_hr_address_C,
2593: debug_level => G_LEVEL_STATEMENT,
2594: module => G_Debug_Module || '.format_hr_address');
2595: iby_debug_pub.add(debug_msg => 'p_hr_location_id: ' || p_hr_location_id,
2596: debug_level => G_LEVEL_STATEMENT,
2591: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2592: iby_debug_pub.add(debug_msg => 'format_hr_address() entered. count: ' || format_hr_address_C,
2593: debug_level => G_LEVEL_STATEMENT,
2594: module => G_Debug_Module || '.format_hr_address');
2595: iby_debug_pub.add(debug_msg => 'p_hr_location_id: ' || p_hr_location_id,
2596: debug_level => G_LEVEL_STATEMENT,
2597: module => G_Debug_Module || '.format_hr_address');
2598: END IF;
2599:
2640: BEGIN
2641:
2642: format_hz_address_C := format_hz_address_C + 1;
2643: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2644: iby_debug_pub.add(debug_msg => 'format_hz_address() entered. count: ' || format_hz_address_C,
2645: debug_level => G_LEVEL_STATEMENT,
2646: module => G_Debug_Module || '.format_hz_address');
2647: iby_debug_pub.add(debug_msg => 'p_hz_location_id: ' || p_hz_location_id,
2648: debug_level => G_LEVEL_STATEMENT,
2643: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2644: iby_debug_pub.add(debug_msg => 'format_hz_address() entered. count: ' || format_hz_address_C,
2645: debug_level => G_LEVEL_STATEMENT,
2646: module => G_Debug_Module || '.format_hz_address');
2647: iby_debug_pub.add(debug_msg => 'p_hz_location_id: ' || p_hz_location_id,
2648: debug_level => G_LEVEL_STATEMENT,
2649: module => G_Debug_Module || '.format_hz_address');
2650: END IF;
2651:
2656: l_key := p_hz_location_id || nvl(p_style_code,'-') ;
2657:
2658: IF (NOT(g_formatted_hz_addr_tbl.EXISTS( l_key ))) THEN
2659: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2660: iby_debug_pub.add(debug_msg => 'Address not found in the cache.
2661: Executing the Cursor',
2662: debug_level => G_LEVEL_STATEMENT,
2663: module => G_Debug_Module || '.format_hz_address');
2664: END IF;
2671: l_formatted_address := g_formatted_hz_addr_tbl(l_key).formatted_address;
2672:
2673: ELSE
2674: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2675: iby_debug_pub.add(debug_msg => 'Address found in the cache.',
2676: debug_level => G_LEVEL_STATEMENT,
2677: module => G_Debug_Module || '.format_hz_address');
2678: END IF;
2679:
2758: and xml_doc_lvl.document_status = 'PAYMENT_CREATED';
2759:
2760: BEGIN
2761: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2762: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2763: debug_level => G_LEVEL_PROCEDURE,
2764: module => l_Debug_Module);
2765: END IF;
2766:
2786: OPEN l_pmt_docpayablecount_csr(p_payment_id);
2787: FETCH l_pmt_docpayablecount_csr INTO l_pmt_docpayablecount;
2788: CLOSE l_pmt_docpayablecount_csr;*/
2789: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2790: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2791: debug_level => G_LEVEL_PROCEDURE,
2792: module => l_Debug_Module);
2793: END IF;
2794: RETURN l_pmt_docpayablecount;
2958: l_rep_ins_st VARCHAR2(30);
2959:
2960: BEGIN
2961: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2962: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2963: debug_level => G_LEVEL_PROCEDURE,
2964: module => l_Debug_Module);
2965: END IF;
2966: print_log(l_Debug_Module, 'Enter Get_Ins_PayerInstrAgg -Timestamp:'||systimestamp);
2968: IF G_Extract_Run_Mode is null OR G_Extract_Run_Mode = G_EXTRACT_MODE_PMT THEN
2969:
2970:
2971: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2972: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_PMT. ',
2973: debug_level => G_LEVEL_STATEMENT,
2974: module => l_Debug_Module);
2975:
2976: iby_debug_pub.add(debug_msg => 'For reprint debugging: ',
2972: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_PMT. ',
2973: debug_level => G_LEVEL_STATEMENT,
2974: module => l_Debug_Module);
2975:
2976: iby_debug_pub.add(debug_msg => 'For reprint debugging: ',
2977: debug_level => G_LEVEL_STATEMENT,
2978: module => l_Debug_Module);
2979: END IF;
2980:
2983: OPEN l_rep_debug_ins_csr (p_payment_instruction_id);
2984: FETCH l_rep_debug_ins_csr INTO l_rep_ins_st;
2985: CLOSE l_rep_debug_ins_csr;
2986:
2987: iby_debug_pub.add(debug_msg => 'instruction id: ' || p_payment_instruction_id
2988: || ', instruction status: ' || l_rep_ins_st,
2989: debug_level => G_LEVEL_STATEMENT,
2990: module => l_Debug_Module);
2991:
2988: || ', instruction status: ' || l_rep_ins_st,
2989: debug_level => G_LEVEL_STATEMENT,
2990: module => l_Debug_Module);
2991:
2992: iby_debug_pub.add(debug_msg => 'payment id, paper document number, payment status for all payments in the instruction: ',
2993: debug_level => G_LEVEL_STATEMENT,
2994: module => l_Debug_Module);
2995: END IF;
2996: /* PERF BUG- 6763515 */
2996: /* PERF BUG- 6763515 */
2997: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2998: FOR l_payment IN l_rep_debug_pmt_csr(p_payment_instruction_id) LOOP
2999:
3000: iby_debug_pub.add(debug_msg => 'payment_id: ' || l_payment.payment_id
3001: || ', paper_document_number: ' || l_payment.paper_document_number
3002: || ', payment_status: ' || l_payment.payment_status,
3003: debug_level => G_LEVEL_STATEMENT,
3004: module => l_Debug_Module);
3009:
3010:
3011: IF nvl(G_Is_Reprint, 'N') = 'N' THEN
3012: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3013: iby_debug_pub.add(debug_msg => 'Before executing the cursor l_payerinstr_csr ',
3014: debug_level => G_LEVEL_STATEMENT,
3015: module => l_Debug_Module);
3016: END IF;
3017: OPEN l_payerinstr_csr (p_payment_instruction_id);
3017: OPEN l_payerinstr_csr (p_payment_instruction_id);
3018: FETCH l_payerinstr_csr INTO l_payerinstr_agg;
3019: CLOSE l_payerinstr_csr;
3020: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3021: iby_debug_pub.add(debug_msg => 'After executing the cursor l_payerinstr_csr ',
3022: debug_level => G_LEVEL_STATEMENT,
3023: module => l_Debug_Module);
3024: END IF;
3025:
3024: END IF;
3025:
3026: ELSE
3027: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3028: iby_debug_pub.add(debug_msg => 'Before executing the cursor l_payerinstr_reprt_csr ',
3029: debug_level => G_LEVEL_STATEMENT,
3030: module => l_Debug_Module);
3031: END IF;
3032: OPEN l_payerinstr_reprt_csr (p_payment_instruction_id);
3032: OPEN l_payerinstr_reprt_csr (p_payment_instruction_id);
3033: FETCH l_payerinstr_reprt_csr INTO l_payerinstr_agg;
3034: CLOSE l_payerinstr_reprt_csr;
3035: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3036: iby_debug_pub.add(debug_msg => 'After executing the cursor l_payerinstr_reprt_csr ',
3037: debug_level => G_LEVEL_STATEMENT,
3038: module => l_Debug_Module);
3039: END IF;
3040:
3041: END IF;
3042:
3043: ELSIF G_Extract_Run_Mode = G_EXTRACT_MODE_AUX THEN
3044: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3045: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_AUX. ',
3046: debug_level => G_LEVEL_STATEMENT,
3047: module => l_Debug_Module);
3048: END IF;
3049: OPEN l_payerinstr_aux_csr (p_payment_instruction_id);
3051: CLOSE l_payerinstr_aux_csr;
3052:
3053: ELSIF G_Extract_Run_Mode = G_EXTRACT_MODE_PI_RPT THEN
3054: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3055: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_PI_RPT. ',
3056: debug_level => G_LEVEL_STATEMENT,
3057: module => l_Debug_Module);
3058: END IF;
3059: OPEN l_payerinstr_rpt_csr (p_payment_instruction_id);
3061: CLOSE l_payerinstr_rpt_csr;
3062:
3063: ELSIF G_Extract_Run_Mode = G_EXTRACT_MODE_AMEX_REM THEN
3064: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3065: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_AMEX_REM. ',
3066: debug_level => G_LEVEL_STATEMENT,
3067: module => l_Debug_Module);
3068: END IF;
3069: OPEN l_payerinstr_amex_csr (p_payment_instruction_id);
3072:
3073: ELSIF G_Extract_Run_Mode = G_EXTRACT_MODE_SRA THEN
3074:
3075: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3076: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_SRA. ',
3077: debug_level => G_LEVEL_STATEMENT,
3078: module => l_Debug_Module);
3079: END IF;
3080:
3080:
3081: IF G_Extract_Run_Delivery_Method = G_SRA_DELIVERY_METHOD_PRINTED THEN
3082:
3083: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3084: iby_debug_pub.add(debug_msg => 'SRA Delivery method is printed. ',
3085: debug_level => G_LEVEL_STATEMENT,
3086: module => l_Debug_Module);
3087: END IF;
3088:
3093: ELSIF G_Extract_Run_Delivery_Method = G_SRA_DELIVERY_METHOD_EMAIL OR
3094: G_Extract_Run_Delivery_Method = G_SRA_DELIVERY_METHOD_FAX THEN
3095:
3096: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3097: iby_debug_pub.add(debug_msg => 'SRA Delivery method is Email/Fax. ',
3098: debug_level => G_LEVEL_STATEMENT,
3099: module => l_Debug_Module);
3100: END IF;
3101:
3109: print_log(l_Debug_Module, 'Exit Get_Ins_PayerInstrAgg -Timestamp:'||systimestamp);
3110:
3111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3112: IF l_payerinstr_agg is null THEN
3113: iby_debug_pub.add(debug_msg => 'After fetch from payer instrument cursor. l_payerinstr_agg is null',
3114: debug_level => G_LEVEL_STATEMENT,
3115: module => l_Debug_Module);
3116:
3117: ELSE
3114: debug_level => G_LEVEL_STATEMENT,
3115: module => l_Debug_Module);
3116:
3117: ELSE
3118: iby_debug_pub.add(debug_msg => 'After fetch from payer instrument cursor. l_payerinstr_agg is not null',
3119: debug_level => G_LEVEL_STATEMENT,
3120: module => l_Debug_Module);
3121:
3122: END IF;
3120: module => l_Debug_Module);
3121:
3122: END IF;
3123:
3124: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3125: debug_level => G_LEVEL_PROCEDURE,
3126: module => l_Debug_Module);
3127: END IF;
3128:
3128:
3129: RETURN l_payerinstr_agg;
3130: EXCEPTION
3131: WHEN OTHERS THEN
3132: iby_debug_pub.add(debug_msg => 'EXECPTION OCCURED IN : ' || l_Debug_Module || sqlerrm ,
3133: debug_level => G_LEVEL_PROCEDURE,
3134: module => l_Debug_Module);
3135: RAISE;
3136: END Get_Ins_PayerInstrAgg;
3146: WHERE legal_entity_id = p_legal_entity_id;
3147:
3148: BEGIN
3149: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3150: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3151: debug_level => G_LEVEL_PROCEDURE,
3152: module => l_Debug_Module);
3153: END IF;
3154: Get_Payer_C := Get_Payer_C + 1;
3152: module => l_Debug_Module);
3153: END IF;
3154: Get_Payer_C := Get_Payer_C + 1;
3155: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3156: iby_debug_pub.add(debug_msg => 'Get_Payer() entered. count: ' || Get_Payer_C,
3157: debug_level => G_LEVEL_STATEMENT,
3158: module => G_Debug_Module || '.Get_Payer');
3159: iby_debug_pub.add(debug_msg => 'p_legal_entity_id: ' || p_legal_entity_id,
3160: debug_level => G_LEVEL_STATEMENT,
3155: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3156: iby_debug_pub.add(debug_msg => 'Get_Payer() entered. count: ' || Get_Payer_C,
3157: debug_level => G_LEVEL_STATEMENT,
3158: module => G_Debug_Module || '.Get_Payer');
3159: iby_debug_pub.add(debug_msg => 'p_legal_entity_id: ' || p_legal_entity_id,
3160: debug_level => G_LEVEL_STATEMENT,
3161: module => G_Debug_Module || '.Get_Payer');
3162: END IF;
3163:
3169: FETCH l_payer_csr INTO l_payer;
3170: CLOSE l_payer_csr;
3171:
3172: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3173: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3174: debug_level => G_LEVEL_PROCEDURE,
3175: module => l_Debug_Module);
3176: END IF;
3177:
3191: WHERE bank_account_id = p_bank_account_id;
3192:
3193: BEGIN
3194: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3195: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3196: debug_level => G_LEVEL_PROCEDURE,
3197: module => l_Debug_Module);
3198: END IF;
3199: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
3197: module => l_Debug_Module);
3198: END IF;
3199: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
3200: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3201: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
3202: debug_level => G_LEVEL_STATEMENT,
3203: module => G_Debug_Module || '.Get_PayerBankAccount');
3204: iby_debug_pub.add(debug_msg => 'p_bank_account_id: ' || p_bank_account_id,
3205: debug_level => G_LEVEL_STATEMENT,
3200: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3201: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
3202: debug_level => G_LEVEL_STATEMENT,
3203: module => G_Debug_Module || '.Get_PayerBankAccount');
3204: iby_debug_pub.add(debug_msg => 'p_bank_account_id: ' || p_bank_account_id,
3205: debug_level => G_LEVEL_STATEMENT,
3206: module => G_Debug_Module || '.Get_PayerBankAccount');
3207: END IF;
3208: IF p_bank_account_id IS NULL THEN
3214: CLOSE l_payer_ba_csr;
3215:
3216:
3217: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3218: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3219: debug_level => G_LEVEL_PROCEDURE,
3220: module => l_Debug_Module);
3221: END IF;
3222: RETURN l_payer_ba;
3236:
3237: BEGIN
3238:
3239: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3240: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3241: debug_level => G_LEVEL_PROCEDURE,
3242: module => l_Debug_Module);
3243: END IF;
3244: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3241: debug_level => G_LEVEL_PROCEDURE,
3242: module => l_Debug_Module);
3243: END IF;
3244: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3245: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3246: debug_level => G_LEVEL_PROCEDURE,
3247: module => l_Debug_Module);
3248: END IF;
3249: Get_Payer_C := Get_Payer_C + 1;
3247: module => l_Debug_Module);
3248: END IF;
3249: Get_Payer_C := Get_Payer_C + 1;
3250: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3251: iby_debug_pub.add(debug_msg => 'Get_Payer_Denorm() entered. count: ' || Get_Payer_C,
3252: debug_level => G_LEVEL_STATEMENT,
3253: module => G_Debug_Module || '.Get_Payer');
3254: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
3255: debug_level => G_LEVEL_STATEMENT,
3250: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3251: iby_debug_pub.add(debug_msg => 'Get_Payer_Denorm() entered. count: ' || Get_Payer_C,
3252: debug_level => G_LEVEL_STATEMENT,
3253: module => G_Debug_Module || '.Get_Payer');
3254: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
3255: debug_level => G_LEVEL_STATEMENT,
3256: module => G_Debug_Module || '.Get_Payer');
3257: END IF;
3258:
3260: FETCH l_payer_csr INTO l_payer;
3261: CLOSE l_payer_csr;
3262:
3263: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3264: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3265: debug_level => G_LEVEL_PROCEDURE,
3266: module => l_Debug_Module);
3267: END IF;
3268:
3266: module => l_Debug_Module);
3267: END IF;
3268:
3269: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3270: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3271: debug_level => G_LEVEL_PROCEDURE,
3272: module => l_Debug_Module);
3273: END IF;
3274: RETURN l_payer;
3288:
3289: BEGIN
3290:
3291: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3292: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3293: debug_level => G_LEVEL_PROCEDURE,
3294: module => l_Debug_Module);
3295: END IF;
3296: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3293: debug_level => G_LEVEL_PROCEDURE,
3294: module => l_Debug_Module);
3295: END IF;
3296: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3297: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3298: debug_level => G_LEVEL_PROCEDURE,
3299: module => l_Debug_Module);
3300: END IF;
3301: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
3299: module => l_Debug_Module);
3300: END IF;
3301: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
3302: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3303: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
3304: debug_level => G_LEVEL_STATEMENT,
3305: module => G_Debug_Module || '.Get_PayerBankAccount');
3306: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
3307: debug_level => G_LEVEL_STATEMENT,
3302: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3303: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
3304: debug_level => G_LEVEL_STATEMENT,
3305: module => G_Debug_Module || '.Get_PayerBankAccount');
3306: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
3307: debug_level => G_LEVEL_STATEMENT,
3308: module => G_Debug_Module || '.Get_PayerBankAccount');
3309: END IF;
3310: OPEN l_payer_ba_csr (p_payment_id);
3311: FETCH l_payer_ba_csr INTO l_payer_ba;
3312: CLOSE l_payer_ba_csr;
3313:
3314: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3315: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3316: debug_level => G_LEVEL_PROCEDURE,
3317: module => l_Debug_Module);
3318: END IF;
3319:
3317: module => l_Debug_Module);
3318: END IF;
3319:
3320: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3321: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3322: debug_level => G_LEVEL_PROCEDURE,
3323: module => l_Debug_Module);
3324: END IF;
3325: RETURN l_payer_ba;
3339: AND ROWNUM = 1;
3340:
3341: BEGIN
3342: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3343: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3344: debug_level => G_LEVEL_PROCEDURE,
3345: module => l_Debug_Module);
3346: END IF;
3347: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3344: debug_level => G_LEVEL_PROCEDURE,
3345: module => l_Debug_Module);
3346: END IF;
3347: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3348: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3349: debug_level => G_LEVEL_PROCEDURE,
3350: module => l_Debug_Module);
3351: END IF;
3352:
3354: FETCH l_ins_payment_csr INTO l_payment_id;
3355: CLOSE l_ins_payment_csr;
3356:
3357: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3358: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3359: debug_level => G_LEVEL_PROCEDURE,
3360: module => l_Debug_Module);
3361: END IF;
3362:
3360: module => l_Debug_Module);
3361: END IF;
3362:
3363: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3364: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3365: debug_level => G_LEVEL_PROCEDURE,
3366: module => l_Debug_Module);
3367: END IF;
3368: RETURN Get_Payer_Denorm(l_payment_id);
3383: WHERE payment_instruction_id = p_payment_instruction_id;
3384:
3385: BEGIN
3386: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3387: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3388: debug_level => G_LEVEL_PROCEDURE,
3389: module => l_Debug_Module);
3390: END IF;
3391: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3388: debug_level => G_LEVEL_PROCEDURE,
3389: module => l_Debug_Module);
3390: END IF;
3391: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3392: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3393: debug_level => G_LEVEL_PROCEDURE,
3394: module => l_Debug_Module);
3395: END IF;
3396:
3398: FETCH l_ins_payment_csr INTO l_payment_id;
3399: CLOSE l_ins_payment_csr;
3400:
3401: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3402: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3403: debug_level => G_LEVEL_PROCEDURE,
3404: module => l_Debug_Module);
3405: END IF;
3406:
3404: module => l_Debug_Module);
3405: END IF;
3406:
3407: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3408: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3409: debug_level => G_LEVEL_PROCEDURE,
3410: module => l_Debug_Module);
3411: END IF;
3412: RETURN Get_PayerBankAccount_Denorm(l_payment_id);
3473: AND document_status = 'PAYMENT_CREATED';
3474:
3475: BEGIN
3476: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3477: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3478: debug_level => G_LEVEL_PROCEDURE,
3479: module => l_Debug_Module);
3480: END IF;
3481: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3478: debug_level => G_LEVEL_PROCEDURE,
3479: module => l_Debug_Module);
3480: END IF;
3481: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3482: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3483: debug_level => G_LEVEL_PROCEDURE,
3484: module => l_Debug_Module);
3485:
3486: iby_debug_pub.add(debug_msg => 'input p_payment_id: ' || p_payment_id,
3482: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3483: debug_level => G_LEVEL_PROCEDURE,
3484: module => l_Debug_Module);
3485:
3486: iby_debug_pub.add(debug_msg => 'input p_payment_id: ' || p_payment_id,
3487: debug_level => G_LEVEL_STATEMENT,
3488: module => l_Debug_Module);
3489: END IF;
3490:
3512:
3513: END IF;
3514:
3515: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3516: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3517: debug_level => G_LEVEL_PROCEDURE,
3518: module => l_Debug_Module);
3519: END IF;
3520:
3518: module => l_Debug_Module);
3519: END IF;
3520:
3521: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3522: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3523: debug_level => G_LEVEL_PROCEDURE,
3524: module => l_Debug_Module);
3525: END IF;
3526:
3526:
3527: RETURN l_docpayable_agg;
3528: EXCEPTION
3529: WHEN OTHERS THEN
3530: iby_debug_pub.add(debug_msg => 'EXECPTION OCCURED IN : ' || l_Debug_Module || sqlerrm ,
3531: debug_level => G_LEVEL_PROCEDURE,
3532: module => l_Debug_Module);
3533: RAISE;
3534: END Get_Pmt_DocPayableAgg;
3558:
3559: BEGIN
3560:
3561: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3562: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3563: debug_level => G_LEVEL_PROCEDURE,
3564: module => l_Debug_Module);
3565:
3566: iby_debug_pub.add(debug_msg => 'PaymentId ::' || p_payment_id,
3562: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3563: debug_level => G_LEVEL_PROCEDURE,
3564: module => l_Debug_Module);
3565:
3566: iby_debug_pub.add(debug_msg => 'PaymentId ::' || p_payment_id,
3567: debug_level => G_LEVEL_PROCEDURE,
3568: module => l_Debug_Module);
3569: END IF;
3570: OPEN l_pmt_func_csr (p_payment_id);
3570: OPEN l_pmt_func_csr (p_payment_id);
3571: FETCH l_pmt_func_csr INTO l_pmt_func;
3572: CLOSE l_pmt_func_csr;
3573: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3574: iby_debug_pub.add(debug_msg => 'Before the condition - ' || ' l_pmt_func:' || l_pmt_func,
3575: debug_level => G_LEVEL_PROCEDURE,
3576: module => l_Debug_Module);
3577: END IF;
3578: IF l_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
3589:
3590: END IF;
3591:
3592: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3593: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3594: debug_level => G_LEVEL_PROCEDURE,
3595: module => l_Debug_Module);
3596: END IF;
3597:
3627: WHERE payment_id = p_payment_id;
3628:
3629: BEGIN
3630: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3631: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3632: debug_level => G_LEVEL_PROCEDURE,
3633: module => l_Debug_Module);
3634: END IF;
3635: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3632: debug_level => G_LEVEL_PROCEDURE,
3633: module => l_Debug_Module);
3634: END IF;
3635: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3636: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3637: debug_level => G_LEVEL_PROCEDURE,
3638: module => l_Debug_Module);
3639:
3640: iby_debug_pub.add(debug_msg => 'PaymentId::' || p_payment_id,
3636: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3637: debug_level => G_LEVEL_PROCEDURE,
3638: module => l_Debug_Module);
3639:
3640: iby_debug_pub.add(debug_msg => 'PaymentId::' || p_payment_id,
3641: debug_level => G_LEVEL_PROCEDURE,
3642: module => l_Debug_Module);
3643: END IF;
3644: /* Will pass through view
3646: FETCH l_pmt_func_csr INTO l_pmt_func;
3647: CLOSE l_pmt_func_csr;
3648: */
3649: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3650: iby_debug_pub.add(debug_msg => 'Before the condition - ' || ' p_pmt_func:' || p_pmt_func,
3651: debug_level => G_LEVEL_PROCEDURE,
3652: module => l_Debug_Module);
3653: END IF;
3654: IF p_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
3665:
3666: END IF;
3667:
3668: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3669: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3670: debug_level => G_LEVEL_PROCEDURE,
3671: module => l_Debug_Module);
3672: END IF;
3673: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3670: debug_level => G_LEVEL_PROCEDURE,
3671: module => l_Debug_Module);
3672: END IF;
3673: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3674: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3675: debug_level => G_LEVEL_PROCEDURE,
3676: module => l_Debug_Module);
3677: END IF;
3678:
3695: WHERE payment_id = p_payment_id;
3696:
3697: BEGIN
3698: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3699: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3700: debug_level => G_LEVEL_PROCEDURE,
3701: module => l_Debug_Module);
3702: END IF;
3703: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3700: debug_level => G_LEVEL_PROCEDURE,
3701: module => l_Debug_Module);
3702: END IF;
3703: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3704: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3705: debug_level => G_LEVEL_PROCEDURE,
3706: module => l_Debug_Module);
3707:
3708: iby_debug_pub.add(debug_msg => 'PaymentId ::' || p_payment_id,
3704: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3705: debug_level => G_LEVEL_PROCEDURE,
3706: module => l_Debug_Module);
3707:
3708: iby_debug_pub.add(debug_msg => 'PaymentId ::' || p_payment_id,
3709: debug_level => G_LEVEL_PROCEDURE,
3710: module => l_Debug_Module);
3711: END IF;
3712:
3715: CLOSE l_payee_csr;
3716:
3717:
3718: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3719: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3720: debug_level => G_LEVEL_PROCEDURE,
3721: module => l_Debug_Module);
3722: END IF;
3723: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3720: debug_level => G_LEVEL_PROCEDURE,
3721: module => l_Debug_Module);
3722: END IF;
3723: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3724: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3725: debug_level => G_LEVEL_PROCEDURE,
3726: module => l_Debug_Module);
3727: END IF;
3728:
3759:
3760: BEGIN
3761:
3762: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3763: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3764: debug_level => G_LEVEL_PROCEDURE,
3765: module => l_Debug_Module);
3766: END IF;
3767:
3770: CLOSE l_add_info_csr;
3771:
3772:
3773: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3774: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3775: debug_level => G_LEVEL_PROCEDURE,
3776: module => l_Debug_Module);
3777: END IF;
3778:
3811:
3812: BEGIN
3813:
3814: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3815: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3816: debug_level => G_LEVEL_PROCEDURE,
3817: module => l_Debug_Module);
3818: END IF;
3819:
3822: CLOSE l_relshipid_csr;
3823:
3824:
3825: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3826: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3827: debug_level => G_LEVEL_PROCEDURE,
3828: module => l_Debug_Module);
3829: END IF;
3830:
3857: WHERE bank_account_id = p_external_bank_account_id;
3858:
3859: BEGIN
3860: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3861: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3862: debug_level => G_LEVEL_PROCEDURE,
3863: module => l_Debug_Module);
3864: END IF;
3865: -- Added this as a workaround for bug 5293384
3871: OPEN l_pmt_func_csr (p_payment_id);
3872: FETCH l_pmt_func_csr INTO l_pmt_func;
3873: CLOSE l_pmt_func_csr;
3874: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3875: iby_debug_pub.add(debug_msg => 'Before the condition: ' || ' l_pmt_func:'|| l_pmt_func,
3876: debug_level => G_LEVEL_PROCEDURE,
3877: module => l_Debug_Module);
3878: END IF;
3879: IF l_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
3890:
3891: END IF;
3892:
3893: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3894: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3895: debug_level => G_LEVEL_PROCEDURE,
3896: module => l_Debug_Module);
3897: END IF;
3898:
3925:
3926: BEGIN
3927:
3928: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3929: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3930: debug_level => G_LEVEL_PROCEDURE,
3931: module => l_Debug_Module);
3932: END IF;
3933: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3930: debug_level => G_LEVEL_PROCEDURE,
3931: module => l_Debug_Module);
3932: END IF;
3933: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3934: iby_debug_pub.add(debug_msg => 'ENTER: ' || l_Debug_Module,
3935: debug_level => G_LEVEL_PROCEDURE,
3936: module => l_Debug_Module);
3937: END IF;
3938: -- Added this as a workaround for bug 5293384
3944: OPEN l_pmt_func_csr (p_payment_id);
3945: FETCH l_pmt_func_csr INTO l_pmt_func;
3946: CLOSE l_pmt_func_csr;
3947: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3948: iby_debug_pub.add(debug_msg => 'Before IF : -- l_pmt_func: ' || l_pmt_func ,
3949: debug_level => G_LEVEL_PROCEDURE,
3950: module => l_Debug_Module);
3951: END IF;
3952: IF l_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
3963:
3964: END IF;
3965:
3966: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3967: iby_debug_pub.add(debug_msg => 'EXIT: ' || l_Debug_Module,
3968: debug_level => G_LEVEL_PROCEDURE,
3969: module => l_Debug_Module);
3970: END IF;
3971: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3968: debug_level => G_LEVEL_PROCEDURE,
3969: module => l_Debug_Module);
3970: END IF;
3971: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3972: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
3973: debug_level => G_LEVEL_PROCEDURE,
3974: module => l_Debug_Module);
3975: END IF;
3976: RETURN l_payee_ba;
4006:
4007: BEGIN
4008:
4009: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4010: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
4011: debug_level => G_LEVEL_PROCEDURE,
4012: module => l_Debug_Module);
4013: END IF;
4014: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4011: debug_level => G_LEVEL_PROCEDURE,
4012: module => l_Debug_Module);
4013: END IF;
4014: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4015: iby_debug_pub.add(debug_msg => 'ENTER: ' || l_Debug_Module,
4016: debug_level => G_LEVEL_PROCEDURE,
4017: module => l_Debug_Module);
4018: END IF;
4019: -- Added this as a workaround for bug 5293384
4026: FETCH l_pmt_func_csr INTO l_pmt_func;
4027: CLOSE l_pmt_func_csr;
4028: */
4029: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4030: iby_debug_pub.add(debug_msg => 'Before IF : -- l_pmt_func: ' || l_pmt_func ,
4031: debug_level => G_LEVEL_PROCEDURE,
4032: module => l_Debug_Module);
4033: END IF;
4034: IF p_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
4045:
4046: END IF;
4047:
4048: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4049: iby_debug_pub.add(debug_msg => 'EXIT: ' || l_Debug_Module,
4050: debug_level => G_LEVEL_PROCEDURE,
4051: module => l_Debug_Module);
4052: END IF;
4053: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4050: debug_level => G_LEVEL_PROCEDURE,
4051: module => l_Debug_Module);
4052: END IF;
4053: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4054: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
4055: debug_level => G_LEVEL_PROCEDURE,
4056: module => l_Debug_Module);
4057: END IF;
4058: RETURN l_payee_ba;
4106: AND ibydoc.calling_app_id = 200;
4107:
4108: BEGIN
4109: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4110: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
4111: debug_level => G_LEVEL_PROCEDURE,
4112: module => l_Debug_Module);
4113: END IF;
4114:
4112: module => l_Debug_Module);
4113: END IF;
4114:
4115: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4116: iby_debug_pub.add(debug_msg => 'ENTER: ' || l_Debug_Module,
4117: debug_level => G_LEVEL_PROCEDURE,
4118: module => l_Debug_Module);
4119: END IF;
4120: /* Preparing the concatinated strings of invalid characters
4129: FETCH l_docline_csr INTO l_docline_agg;
4130: CLOSE l_docline_csr;
4131:
4132: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4133: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
4134: debug_level => G_LEVEL_PROCEDURE,
4135: module => l_Debug_Module);
4136: END IF;
4137:
4135: module => l_Debug_Module);
4136: END IF;
4137:
4138: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4139: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
4140: debug_level => G_LEVEL_PROCEDURE,
4141: module => l_Debug_Module);
4142: END IF;
4143: RETURN l_docline_agg;
4142: END IF;
4143: RETURN l_docline_agg;
4144: EXCEPTION
4145: WHEN OTHERS THEN
4146: iby_debug_pub.add(debug_msg => 'EXECPTION OCCURED IN : ' || l_Debug_Module || sqlerrm ,
4147: debug_level => G_LEVEL_PROCEDURE,
4148: module => l_Debug_Module);
4149: RAISE;
4150: END Get_Doc_DocLineAgg;
4201: AND p_calling_app_id = 200;
4202:
4203: BEGIN
4204: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4205: iby_debug_pub.add(debug_msg => 'Enter:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
4206: debug_level => G_LEVEL_PROCEDURE,
4207: module => l_Debug_Module);
4208: END IF;
4209:
4207: module => l_Debug_Module);
4208: END IF;
4209:
4210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4211: iby_debug_pub.add(debug_msg => 'ENTER: ' || l_Debug_Module,
4212: debug_level => G_LEVEL_PROCEDURE,
4213: module => l_Debug_Module);
4214: END IF;
4215:
4222: FETCH l_docline_csr INTO l_docline_agg;
4223: CLOSE l_docline_csr;
4224:
4225: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4226: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
4227: debug_level => G_LEVEL_PROCEDURE,
4228: module => l_Debug_Module);
4229: END IF;
4230:
4228: module => l_Debug_Module);
4229: END IF;
4230:
4231: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4232: iby_debug_pub.add(debug_msg => 'Exit:TIMESTAMP:: ' || l_Debug_Module||':: '||systimestamp,
4233: debug_level => G_LEVEL_PROCEDURE,
4234: module => l_Debug_Module);
4235: END IF;
4236: RETURN l_docline_agg;
4237:
4238:
4239: EXCEPTION
4240: WHEN OTHERS THEN
4241: iby_debug_pub.add(debug_msg => 'EXECPTION OCCURED IN : ' || l_Debug_Module || sqlerrm ,
4242: debug_level => G_LEVEL_PROCEDURE,
4243: module => l_Debug_Module);
4244: RAISE;
4245: END Get_Doc_DocLineAgg;
4496: g_docs_pay_attribs_tbl(l_doc_idx).IS_BRAZIL := JL_BR_AP_PAY_SCHED_GDF_PKG.Check_Brazil(
4497: P_Doc_Payable_ID => p_doc_payable_id,
4498: P_RETURN_STATUS => l_return_status);
4499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4500: iby_debug_pub.add(debug_msg => 'Called JL_BR_AP_PAY_SCHED_GDF_PKG.Check_Brazil(). G_IS_BRAZIL: ' || g_docs_pay_attribs_tbl(l_doc_idx).IS_BRAZIL,
4501: debug_level => G_LEVEL_STATEMENT,
4502: module => l_Debug_Module);
4503: END IF;
4504: END IF;
4513: P_Doc_Payable_ID => p_doc_payable_id,
4514: P_RETURN_STATUS => l_return_status);
4515:
4516: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4517: iby_debug_pub.add(debug_msg => 'Called JL_BR_AP_PAY_SCHED_GDF_PKG.Get_Bordero_Bank_Ref(). l_bordero_bank_ref: ' || l_bordero_bank_ref,
4518: debug_level => G_LEVEL_STATEMENT,
4519: module => l_Debug_Module);
4520: END IF;
4521: END IF;
4549: P_Doc_Payable_ID => p_doc_payable_id,
4550: P_RETURN_STATUS => l_return_status);
4551:
4552: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4553: iby_debug_pub.add(debug_msg => 'Called JL_BR_AP_PAY_SCHED_GDF_PKG.Check_Brazil(). G_IS_BRAZIL: ' || g_docs_pay_attribs_tbl(l_doc_idx).IS_BRAZIL,
4554: debug_level => G_LEVEL_STATEMENT,
4555: module => l_Debug_Module);
4556: END IF;
4557: END IF;
4566: P_Doc_Payable_ID => p_doc_payable_id,
4567: P_Process_Type => l_process_type,
4568: P_RETURN_STATUS => l_return_status);
4569: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4570: iby_debug_pub.add(debug_msg => 'Called JL_BR_AP_PAY_SCHED_GDF_PKG.Get_Bordero_Int_Amt(). l_bordero_int_amt: ' || l_bordero_int_amt,
4571: debug_level => G_LEVEL_STATEMENT,
4572: module => l_Debug_Module);
4573: END IF;
4574: END IF;
4603: P_Doc_Payable_ID => p_doc_payable_id,
4604: P_RETURN_STATUS => l_return_status);
4605:
4606: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4607: iby_debug_pub.add(debug_msg => 'Called JL_BR_AP_PAY_SCHED_GDF_PKG.Check_Brazil(). G_IS_BRAZIL: ' || g_docs_pay_attribs_tbl(l_doc_idx).IS_BRAZIL,
4608: debug_level => G_LEVEL_STATEMENT,
4609: module => l_Debug_Module);
4610: END IF;
4611:
4622: P_Process_Type => l_process_type,
4623: P_RETURN_STATUS => l_return_status);
4624:
4625: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4626: iby_debug_pub.add(debug_msg => 'Called JL_BR_AP_PAY_SCHED_GDF_PKG.Get_Bordero_Abatement(). l_bordero_abt_amt: ' || l_bordero_abt_amt,
4627: debug_level => G_LEVEL_STATEMENT,
4628: module => l_Debug_Module);
4629: END IF;
4630: END IF;
4785: WHERE payment_id = p_payment_id;
4786:
4787: BEGIN
4788: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4789: iby_debug_pub.add(debug_msg => 'Get_Pmt_PmtErrAgg Enter: ',
4790: debug_level => G_LEVEL_STATEMENT,
4791: module => l_Debug_Module);
4792: END IF;
4793: OPEN l_pmterr_csr (p_payment_id);
4793: OPEN l_pmterr_csr (p_payment_id);
4794: FETCH l_pmterr_csr INTO l_pmterr_agg;
4795: CLOSE l_pmterr_csr;
4796: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4797: iby_debug_pub.add(debug_msg => 'Get_Pmt_PmtErrAgg Exit: ',
4798: debug_level => G_LEVEL_STATEMENT,
4799: module => l_Debug_Module);
4800: END IF;
4801: RETURN l_pmterr_agg;
4847:
4848: FOR l_payment IN l_pmt_csr(p_payment_instruction_id) LOOP
4849:
4850: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4851: iby_debug_pub.add(debug_msg => 'updating the SRA delivery method for payment ref number ' ||
4852: l_payment.payment_reference_number || ' to be PRINTED',
4853: debug_level => G_LEVEL_STATEMENT,
4854: module => l_Debug_Module);
4855: END IF;
4914: PROCEDURE initialize
4915: IS
4916: BEGIN
4917: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4918: iby_debug_pub.add(debug_msg => 'ENTER',
4919: debug_level => G_LEVEL_STATEMENT,
4920: module => G_Debug_Module || '.initialize');
4921: END IF;
4922: g_docs_pay_attribs_tbl.DELETE;
4923: g_hr_addr_tbl.DELETE;
4924: g_hz_addr_tbl.DELETE;
4925: g_payer_contact_tbl.DELETE;
4926: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4927: iby_debug_pub.add(debug_msg => 'EXIT',
4928: debug_level => G_LEVEL_STATEMENT,
4929: module => G_Debug_Module || '.initialize');
4930: END IF;
4931:
4976: BEGIN
4977:
4978: Get_Hz_Address_C := Get_Hz_Address_C + 1;
4979: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4980: iby_debug_pub.add(debug_msg => 'Get_Hz_Address() entered. count: ' || Get_Hz_Address_C,
4981: debug_level => G_LEVEL_STATEMENT,
4982: module => G_Debug_Module || '.Get_Hz_Address');
4983: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
4984: debug_level => G_LEVEL_STATEMENT,
4979: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4980: iby_debug_pub.add(debug_msg => 'Get_Hz_Address() entered. count: ' || Get_Hz_Address_C,
4981: debug_level => G_LEVEL_STATEMENT,
4982: module => G_Debug_Module || '.Get_Hz_Address');
4983: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
4984: debug_level => G_LEVEL_STATEMENT,
4985: module => G_Debug_Module || '.Get_Hz_Address');
4986: END IF;
4987: IF p_location_id IS NULL THEN
4993: FETCH l_hz_addr_csr INTO g_hz_addr_tbl(p_location_id).hz_address;
4994: CLOSE l_hz_addr_csr;
4995: END IF;
4996: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4997: iby_debug_pub.add(debug_msg => 'EXIT',
4998: debug_level => G_LEVEL_STATEMENT,
4999: module => G_Debug_Module || '.Get_HZ_Address');
5000: END IF;
5001: RETURN g_hz_addr_tbl(p_location_id).hz_address; */
5118:
5119:
5120: BEGIN
5121: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5122: iby_debug_pub.add(debug_msg => 'Get_Account_Address() entered. ',
5123: debug_level => G_LEVEL_STATEMENT,
5124: module => G_Debug_Module || '.Get_Account_Address');
5125: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id || 'p_country: ' || p_country,
5126: debug_level => G_LEVEL_STATEMENT,
5121: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5122: iby_debug_pub.add(debug_msg => 'Get_Account_Address() entered. ',
5123: debug_level => G_LEVEL_STATEMENT,
5124: module => G_Debug_Module || '.Get_Account_Address');
5125: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id || 'p_country: ' || p_country,
5126: debug_level => G_LEVEL_STATEMENT,
5127: module => G_Debug_Module || '.Get_Account_Address');
5128: END IF;
5129:
5133: ELSE
5134: /* Bug 8658052 */
5135: IF (NOT(g_account_addr_tbl.EXISTS(p_country))) THEN
5136: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5137: iby_debug_pub.add(debug_msg => 'Address not found in the cache.
5138: Executing the Cursor',
5139: debug_level => G_LEVEL_STATEMENT,
5140: module => G_Debug_Module || '.Get_Account_Address');
5141: END IF;
5148: -- l_hz_addr:=g_account_addr_tbl(p_country).account_address;
5149:
5150: ELSE
5151: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5152: iby_debug_pub.add(debug_msg => 'Address found in the cache.',
5153: debug_level => G_LEVEL_STATEMENT,
5154: module => G_Debug_Module || '.Get_Account_Address');
5155: END IF;
5156:
5280: BEGIN
5281:
5282: Get_Hr_Address_C := Get_Hr_Address_C + 1;
5283: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5284: iby_debug_pub.add(debug_msg => 'Get_Hr_Address() entered. count: ' || Get_Hr_Address_C,
5285: debug_level => G_LEVEL_STATEMENT,
5286: module => G_Debug_Module || '.Get_Hr_Address');
5287: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
5288: debug_level => G_LEVEL_STATEMENT,
5283: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5284: iby_debug_pub.add(debug_msg => 'Get_Hr_Address() entered. count: ' || Get_Hr_Address_C,
5285: debug_level => G_LEVEL_STATEMENT,
5286: module => G_Debug_Module || '.Get_Hr_Address');
5287: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
5288: debug_level => G_LEVEL_STATEMENT,
5289: module => G_Debug_Module || '.Get_Hr_Address');
5290: END IF;
5291:
5335: l_location_code:=g_hr_addr_tbl(p_location_id).location_code;
5336: END IF;
5337:
5338: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5339: iby_debug_pub.add(debug_msg => 'EXIT',
5340: debug_level => G_LEVEL_STATEMENT,
5341: module => G_Debug_Module || '.Get_Hr_Address');
5342: END IF;
5343:
5401: END;
5402:
5403:
5404: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5405: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
5406: debug_level => G_LEVEL_PROCEDURE,
5407: module => l_Debug_Module);
5408: END IF;
5409:
5413:
5414: IF NVL(l_group_by_curr_flag, 'N') = 'N' THEN
5415:
5416: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5417: iby_debug_pub.add(debug_msg => 'Instruction is not grouped by currency, so returning null for the total amount.',
5418: debug_level => G_LEVEL_STATEMENT,
5419: module => l_Debug_Module);
5420: END IF;
5421: RETURN NULL;
5433: FETCH l_amt_total_csr INTO l_amt_total;
5434: CLOSE l_amt_total_csr;
5435:
5436: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5437: iby_debug_pub.add(debug_msg => 'Instruction total amount: ' || l_amt_total,
5438: debug_level => G_LEVEL_STATEMENT,
5439: module => l_Debug_Module);
5440:
5441: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
5437: iby_debug_pub.add(debug_msg => 'Instruction total amount: ' || l_amt_total,
5438: debug_level => G_LEVEL_STATEMENT,
5439: module => l_Debug_Module);
5440:
5441: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
5442: debug_level => G_LEVEL_PROCEDURE,
5443: module => l_Debug_Module);
5444: END IF;
5445: -- Bug : 8237325
5465:
5466: BEGIN
5467:
5468: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5469: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
5470: debug_level => G_LEVEL_PROCEDURE,
5471: module => l_Debug_Module);
5472:
5473: iby_debug_pub.add(debug_msg => 'Calling iExpense API to get instrid.',
5469: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
5470: debug_level => G_LEVEL_PROCEDURE,
5471: module => l_Debug_Module);
5472:
5473: iby_debug_pub.add(debug_msg => 'Calling iExpense API to get instrid.',
5474: debug_level => G_LEVEL_STATEMENT,
5475: module => l_Debug_Module);
5476: END IF;
5477:
5477:
5478: l_instrid := AP_WEB_CREDIT_CARD_PKG.get_card_reference_id(p_document_payable_id);
5479:
5480: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5481: iby_debug_pub.add(debug_msg => 'Got instrid: ' || l_instrid,
5482: debug_level => G_LEVEL_STATEMENT,
5483: module => l_Debug_Module);
5484: END IF;
5485:
5484: END IF;
5485:
5486: IF l_instrid IS NOT NULL THEN
5487: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5488: iby_debug_pub.add(debug_msg => 'Getting instr number',
5489: debug_level => G_LEVEL_STATEMENT,
5490: module => l_Debug_Module);
5491: END IF;
5492:
5494:
5495: END IF;
5496:
5497: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5498: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
5499: debug_level => G_LEVEL_PROCEDURE,
5500: module => l_Debug_Module);
5501: END IF;
5502:
5505: EXCEPTION
5506: -- swallow exceptions
5507: WHEN OTHERS THEN
5508: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5509: iby_debug_pub.add(debug_msg => 'Swallowing exception',
5510: debug_level => G_LEVEL_STATEMENT,
5511: module => l_Debug_Module);
5512: END IF;
5513: END Get_Expense_Rpt_CC_Num;
5531:
5532: BEGIN
5533:
5534: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5535: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
5536: debug_level => G_LEVEL_PROCEDURE,
5537: module => l_Debug_Module);
5538: END IF;
5539:
5561: AND hdr.invoice_num =l_base_inv_num;
5562: EXCEPTION
5563: WHEN NO_DATA_FOUND THEN
5564: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5565: iby_debug_pub.add(debug_msg => 'Can not fetch instrument id',
5566: debug_level => G_LEVEL_STATEMENT,
5567: module => l_Debug_Module);
5568: END IF;
5569: RAISE;
5568: END IF;
5569: RAISE;
5570: WHEN OTHERS THEN
5571: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5572: iby_debug_pub.add(debug_msg => 'Error occured while fetching instrument_id',
5573: debug_level => G_LEVEL_STATEMENT,
5574: module => l_Debug_Module);
5575: END IF;
5576: RAISE;
5578:
5579:
5580:
5581: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5582: iby_debug_pub.add(debug_msg => 'Got instrid: ' || l_instrid,
5583: debug_level => G_LEVEL_STATEMENT,
5584: module => l_Debug_Module);
5585: END IF;
5586:
5585: END IF;
5586:
5587: IF l_instrid IS NOT NULL THEN
5588: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5589: iby_debug_pub.add(debug_msg => 'Getting instr number',
5590: debug_level => G_LEVEL_STATEMENT,
5591: module => l_Debug_Module);
5592: END IF;
5593:
5601:
5602: END IF;
5603:
5604: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5605: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
5606: debug_level => G_LEVEL_PROCEDURE,
5607: module => l_Debug_Module);
5608: END IF;
5609:
5612: EXCEPTION
5613: -- swallow exceptions
5614: WHEN OTHERS THEN
5615: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5616: iby_debug_pub.add(debug_msg => 'Swallowing exception',
5617: debug_level => G_LEVEL_STATEMENT,
5618: module => l_Debug_Module);
5619: END IF;
5620: RETURN NULL;
5628: l_modified varchar2(255);
5629: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Replace_Special_Characters';
5630: BEGIN
5631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5632: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
5633: debug_level => G_LEVEL_PROCEDURE,
5634: module => l_Debug_Module);
5635: END IF;
5636:
5644:
5645: l_modified := TRANSLATE(p_base_string, l_conc_invalid_chars, l_conc_replacement_chars);
5646:
5647: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5648: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
5649: debug_level => G_LEVEL_PROCEDURE,
5650: module => l_Debug_Module);
5651: END IF;
5652: RETURN l_modified;
5723:
5724: BEGIN
5725:
5726: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5727: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
5728: debug_level => G_LEVEL_PROCEDURE,
5729: module => l_Debug_Module);
5730: END IF;
5731: IF p_bank_acct_id IS NULL THEN
5734:
5735: IF (NOT(g_inter_accts_tbl.EXISTS(p_bank_acct_id||'_1') and NOT(g_inter_accts_tbl.EXISTS(p_bank_acct_id||'_2')))) THEN
5736:
5737: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5738: iby_debug_pub.add(debug_msg => 'Fecthing Intermediary Accounts from DB:' || l_Debug_Module,
5739: debug_level => G_LEVEL_PROCEDURE,
5740: module => l_Debug_Module);
5741: END IF;
5742:
5794: l_comments2 := g_inter_accts_tbl(p_bank_acct_id||'_2').comments;
5795:
5796: ELSE
5797: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5798: iby_debug_pub.add(debug_msg => 'Using Cached Intermediary Accounts:' || l_Debug_Module,
5799: debug_level => G_LEVEL_PROCEDURE,
5800: module => l_Debug_Module);
5801: END IF;
5802:
5920:
5921:
5922: BEGIN
5923: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5924: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
5925: debug_level => G_LEVEL_PROCEDURE,
5926: module => l_Debug_Module);
5927: END IF;
5928:
5935: OPEN get_Assignments (p_pmt_id, p_ext_bank_acct_id);
5936: fetch get_Assignments INTO l_instr_assign_id,l_attribute_category;
5937: CLOSE get_Assignments;
5938: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5939: iby_debug_pub.add(debug_msg => 'Instrument Assignment Id:: '||l_instr_assign_id ,
5940: debug_level => G_LEVEL_PROCEDURE,
5941: module => l_Debug_Module);
5942: END IF;
5943: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5940: debug_level => G_LEVEL_PROCEDURE,
5941: module => l_Debug_Module);
5942: END IF;
5943: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5944: iby_debug_pub.add(debug_msg => 'Attribute Category:: ' || l_attribute_category,
5945: debug_level => G_LEVEL_PROCEDURE,
5946: module => l_Debug_Module);
5947: END IF;
5948: