128: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Create_Extract_1_0';
129:
130: BEGIN
131: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
132: iby_debug_pub.add(debug_msg => 'Input p_is_reprint_flag: ' || p_is_reprint_flag,
133: debug_level => G_LEVEL_STATEMENT,
134: module => l_Debug_Module);
135: END IF;
136:
172: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Create_Extract_1_0';
173:
174: BEGIN
175: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
176: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
177: debug_level => G_LEVEL_PROCEDURE,
178: module => l_Debug_Module);
179:
180: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
176: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
177: debug_level => G_LEVEL_PROCEDURE,
178: module => l_Debug_Module);
179:
180: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
181: debug_level => G_LEVEL_STATEMENT,
182: module => l_Debug_Module);
183: END IF;
184:
183: END IF;
184:
185: IF p_format_type = 'FEDERAL_SUMMARY' THEN
186: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
187: iby_debug_pub.add(debug_msg => 'ECS dos Seq num: ' || p_save_extract_flag,
188: debug_level => G_LEVEL_STATEMENT,
189: module => l_Debug_Module);
190: END IF;
191: ELSE
190: END IF;
191: ELSE
192: l_save_extract_flag := p_save_extract_flag;
193: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
194: iby_debug_pub.add(debug_msg => 'Save extract flag: ' || p_save_extract_flag,
195: debug_level => G_LEVEL_STATEMENT,
196: module => l_Debug_Module);
197: END IF;
198: END IF;
196: module => l_Debug_Module);
197: END IF;
198: END IF;
199: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
200: iby_debug_pub.add(debug_msg => 'Format type: ' || p_format_type,
201: debug_level => G_LEVEL_STATEMENT,
202: module => l_Debug_Module);
203: END IF;
204:
207: -- them from payment format
208: IF p_format_type = 'OUTBOUND_PAYMENT_INSTRUCTION' THEN
209: G_Extract_Run_Mode := G_EXTRACT_MODE_PMT;
210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
211: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_PMT',
212: debug_level => G_LEVEL_STATEMENT,
213: module => l_Debug_Module);
214: END IF;
215:
223:
224: -- revert the param to its original function
225: l_save_extract_flag := 'N';
226: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
227: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_FV_SMMY',
228: debug_level => G_LEVEL_STATEMENT,
229: module => l_Debug_Module);
230: END IF;
231: ELSIF p_format_type = 'PAYMENT_INSTRUCTION_REGISTER' THEN
230: END IF;
231: ELSIF p_format_type = 'PAYMENT_INSTRUCTION_REGISTER' THEN
232: G_Extract_Run_Mode := G_EXTRACT_MODE_PI_RPT;
233: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
234: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_PI_RPT',
235: debug_level => G_LEVEL_STATEMENT,
236: module => l_Debug_Module);
237: END IF;
238: ELSE
237: END IF;
238: ELSE
239: G_Extract_Run_Mode := G_EXTRACT_MODE_AUX;
240: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
241: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_AUX',
242: debug_level => G_LEVEL_STATEMENT,
243: module => l_Debug_Module);
244: END IF;
245: END IF;
255: p_sys_key => p_sys_key,
256: x_extract_doc => x_extract_doc
257: );
258: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
259: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
260: debug_level => G_LEVEL_PROCEDURE,
261: module => l_Debug_Module);
262: END IF;
263: END Create_Extract_1_0;
282: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Create_Extract_1_0';
283:
284: BEGIN
285: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
286: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
287: debug_level => G_LEVEL_PROCEDURE,
288: module => l_Debug_Module);
289:
290: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
286: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
287: debug_level => G_LEVEL_PROCEDURE,
288: module => l_Debug_Module);
289:
290: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
291: debug_level => G_LEVEL_STATEMENT,
292: module => l_Debug_Module);
293:
294: iby_debug_pub.add(debug_msg => 'SRA delivery method: ' || p_delivery_method,
290: iby_debug_pub.add(debug_msg => 'Input payment instruction ID: ' || p_payment_instruction_id,
291: debug_level => G_LEVEL_STATEMENT,
292: module => l_Debug_Module);
293:
294: iby_debug_pub.add(debug_msg => 'SRA delivery method: ' || p_delivery_method,
295: debug_level => G_LEVEL_STATEMENT,
296: module => l_Debug_Module);
297:
298: iby_debug_pub.add(debug_msg => 'payment id: ' || p_payment_id,
294: iby_debug_pub.add(debug_msg => 'SRA delivery method: ' || p_delivery_method,
295: debug_level => G_LEVEL_STATEMENT,
296: module => l_Debug_Module);
297:
298: iby_debug_pub.add(debug_msg => 'payment id: ' || p_payment_id,
299: debug_level => G_LEVEL_STATEMENT,
300: module => l_Debug_Module);
301: END IF;
302:
303: G_Extract_Run_Mode := G_EXTRACT_MODE_SRA;
304: G_Extract_Run_Delivery_Method := p_delivery_method;
305: G_Extract_Run_Payment_id := p_payment_id;
306: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
307: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_SRA',
308: debug_level => G_LEVEL_STATEMENT,
309: module => l_Debug_Module);
310: END IF;
311: Create_Extract_1_0_Main
315: p_sys_key => p_sys_key,
316: x_extract_doc => x_extract_doc
317: );
318: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
319: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
320: debug_level => G_LEVEL_PROCEDURE,
321: module => l_Debug_Module);
322: END IF;
323: END Create_Extract_1_0;
348: AND ins.payment_profile_id = ppp.payment_profile_id;
349:
350: BEGIN
351: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
352: iby_debug_pub.add(debug_msg => 'ENTER CREATE EXTRACT MAIN -- BEFORE INITIALIZING',
353: debug_level => G_LEVEL_STATEMENT,
354: module => l_Debug_Module);
355: END IF;
356: initialize;
357: iby_utility_pvt.set_view_param(G_VP_INSTR_ID,p_payment_instruction_id);
358:
359: Validate_and_Set_Syskey(p_sys_key);
360: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
361: iby_debug_pub.add(debug_msg => 'Before XML query ',
362: debug_level => G_LEVEL_STATEMENT,
363: module => l_Debug_Module);
364: END IF;
365: CEP_STANDARD.init_security;
367: FETCH l_ece_csr INTO l_ele_channel;
368: CLOSE l_ece_csr;
369: IF l_ele_channel = 'ECE' AND G_Extract_Run_Mode = G_EXTRACT_MODE_PMT THEN
370: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
371: iby_debug_pub.add(debug_msg => 'Electronic processing channel is ECE',
372: debug_level => G_LEVEL_STATEMENT,
373: module => l_Debug_Module);
374: END IF;
375: IBY_FD_POST_PICP_PROGS_PVT.Run_ECE_Formatting(p_payment_instruction_id);
386: FROM iby_trxn_documents
387: where doctype=100 and trxnmid=p_payment_instruction_id;
388: --(bug 5970838) WHERE doctype = 100 and payment_instruction_id = p_payment_instruction_id;
389: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
390: iby_debug_pub.add(debug_msg => 'After XML query ',
391: debug_level => G_LEVEL_STATEMENT,
392: module => l_Debug_Module);
393: END IF;
394: IF p_save_extract_flag = 'Y' and l_extract_count = 0 THEN
392: module => l_Debug_Module);
393: END IF;
394: IF p_save_extract_flag = 'Y' and l_extract_count = 0 THEN
395: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
396: iby_debug_pub.add(debug_msg => 'The save extract flag is Y and there were no extract previously saved ' ||
397: 'for the instruction. Saving the extract for reuse.',
398: debug_level => G_LEVEL_STATEMENT,
399: module => l_Debug_Module);
400: END IF;
406: p_doc => x_extract_doc,
407: docid_out => l_trxn_doc_id
408: );
409: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
410: iby_debug_pub.add(debug_msg => 'Save successful, iby trxn doc id: ' || l_trxn_doc_id,
411: debug_level => G_LEVEL_STATEMENT,
412: module => l_Debug_Module);
413: END IF;
414: END IF;
470: Validate_and_Set_Syskey(p_sys_key);
471:
472: G_Extract_Run_Mode := G_EXTRACT_MODE_PPR_RPT;
473: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
474: iby_debug_pub.add(debug_msg => 'The extract mode is set to: G_EXTRACT_MODE_PPR_RPT',
475: debug_level => G_LEVEL_STATEMENT,
476: module => l_Debug_Module);
477: END IF;
478:
477: END IF;
478:
479: G_May_Need_HR_Masking := TRUE;
480: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
481: iby_debug_pub.add(debug_msg => 'Before XML query ',
482: debug_level => G_LEVEL_STATEMENT,
483: module => l_Debug_Module);
484: END IF;
485: CEP_STANDARD.init_security;
489: FROM iby_xml_fd_ppr_1_0_v
490: WHERE payment_service_request_id = p_payment_service_request_id;
491:
492: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
493: iby_debug_pub.add(debug_msg => 'After XML query ',
494: debug_level => G_LEVEL_STATEMENT,
495: module => l_Debug_Module);
496: END IF;
497:
545:
546: Validate_and_Set_Syskey(p_sys_key);
547:
548: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
549: iby_debug_pub.add(debug_msg => 'Before XML query ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
550: END IF;
551:
552: CEP_STANDARD.init_security;
553:
552: CEP_STANDARD.init_security;
553:
554: IF p_payment_instruction_id <> -99 THEN
555: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
556: iby_debug_pub.add(debug_msg => 'payment instruction id is supplied ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
557: END IF;
558:
559: OPEN l_pospay_ins_csr;
560: FETCH l_pospay_ins_csr INTO x_extract_doc;
560: FETCH l_pospay_ins_csr INTO x_extract_doc;
561: CLOSE l_pospay_ins_csr;
562:
563: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
564: iby_debug_pub.add(debug_msg => 'payment level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
565: END IF;
566:
567: /*LKQ POS PAY - PAVAN */
568: -- payment level attribute setting
572: AND pmt.payment_status = 'ISSUED'
573: AND (pmt.positive_pay_file_created_flag='N' or pmt.positive_pay_file_created_flag is NULL);
574:
575: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
576: iby_debug_pub.add(debug_msg => 'payment instruction level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
577: END IF;
578:
579: /*LKQ POS PAY - PAVAN */
580: -- payment instruction level attribute setting
590: l_to_date := p_to_date;
591: END IF;
592:
593: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
594: iby_debug_pub.add(debug_msg => 'payment instruction id is NOT supplied ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
595: END IF;
596:
597: OPEN l_pospay_appp_csr(l_to_date);
598: FETCH l_pospay_appp_csr INTO x_extract_doc;
609: AND pmt.payment_status = 'ISSUED'
610: AND (pmt.positive_pay_file_created_flag='N' or pmt.positive_pay_file_created_flag is NULL);
611:
612: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
613: iby_debug_pub.add(debug_msg => 'payment level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
614: END IF;
615:
616:
617: /*LKQ POS PAY - PAVAN */
615:
616:
617: /*LKQ POS PAY - PAVAN */
618: -- payment level attribute setting
619: iby_debug_pub.add(debug_msg => 'Payment Count : '|| l_paymentid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
620: IF ( l_paymentid_arr.COUNT <> 0) THEN
621: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
622: UPDATE iby_payments_all
623: SET positive_pay_file_created_flag = 'Y'
621: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
622: UPDATE iby_payments_all
623: SET positive_pay_file_created_flag = 'Y'
624: WHERE payment_id = l_paymentid_arr(i);
625: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
626: END LOOP;
627: ELSE
628: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
629: END IF;
624: WHERE payment_id = l_paymentid_arr(i);
625: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
626: END LOOP;
627: ELSE
628: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
629: END IF;
630:
631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
632: iby_debug_pub.add(debug_msg => 'payment instruction level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
628: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
629: END IF;
630:
631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
632: iby_debug_pub.add(debug_msg => 'payment instruction level attribute setting ',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
633: END IF;
634:
635: /*LKQ POS PAY - PAVAN */
636: -- payment instruction level attribute setting
633: END IF;
634:
635: /*LKQ POS PAY - PAVAN */
636: -- payment instruction level attribute setting
637: iby_debug_pub.add(debug_msg => 'Payment Instr Count : '|| l_paymentinstrid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
638: IF ( l_paymentinstrid_arr.COUNT <> 0) THEN
639: FOR i IN l_paymentinstrid_arr.FIRST .. l_paymentinstrid_arr.LAST LOOP
640: IF (l_paymentinstrid_arr(i) IS NOT NULL ) THEN
641: UPDATE iby_pay_instructions_all ins
645: WHERE nvl(pmt.positive_pay_file_created_flag,'N') = 'N'
646: AND pmt.payment_status IN('ISSUED', 'PAID')
647: AND pmt.payment_instruction_id = l_paymentinstrid_arr(i))
648: AND ins.payment_instruction_id = l_paymentinstrid_arr(i);
649: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
650: END IF;
651: END LOOP;
652: ELSE
653: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
649: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
650: END IF;
651: END LOOP;
652: ELSE
653: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
654: END IF;
655:
656: END IF;
657:
655:
656: END IF;
657:
658: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
659: iby_debug_pub.add(debug_msg => 'After XML query ',
660: debug_level => G_LEVEL_STATEMENT,
661: module => l_Debug_Module);
662: END IF;
663:
810: BEGIN
811:
812: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
813: -- parameter disp
814: iby_debug_pub.add(debug_msg => 'Parameters 0 ' || ':' || p_payment_instruction_id || ':' ||
815: p_format_name || ':' || p_internal_bank_account_name || ':' || p_payment_status || ':' ||
816: p_reselect || ':' || p_from_date || ':' || p_to_date || ':' ||
817: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
818:
817: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
818:
819:
820: --system key validation
821: iby_debug_pub.add(debug_msg => 'Enter ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
822:
823:
824: --initializing
825: iby_debug_pub.add(debug_msg => 'Before XML query ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
821: iby_debug_pub.add(debug_msg => 'Enter ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
822:
823:
824: --initializing
825: iby_debug_pub.add(debug_msg => 'Before XML query ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
826: END IF;
827:
828:
829:
835: l_from_date := p_from_date;
836: l_to_date := p_to_date;
837:
838: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
839: iby_debug_pub.add(debug_msg => 'l_from_date 0 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
840: iby_debug_pub.add(debug_msg => 'l_to_date 0 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
841: END IF;
842:
843: /* From date does not need any manipulations, and should not be defaulted to sysdate
836: l_to_date := p_to_date;
837:
838: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
839: iby_debug_pub.add(debug_msg => 'l_from_date 0 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
840: iby_debug_pub.add(debug_msg => 'l_to_date 0 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
841: END IF;
842:
843: /* From date does not need any manipulations, and should not be defaulted to sysdate
844: IF ( trim(l_from_date) = '' or l_from_date = null or l_from_date = 'null') THEN
843: /* From date does not need any manipulations, and should not be defaulted to sysdate
844: IF ( trim(l_from_date) = '' or l_from_date = null or l_from_date = 'null') THEN
845: l_from_date := to_char(sysdate,'YYYY/MM/DD')||' 00:00:00';
846: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
847: iby_debug_pub.add(debug_msg => 'l_from_date 1 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
848: END IF;
849: END IF;*/
850: IF ( trim(l_to_date) = '' or l_to_date is null or l_to_date = 'null') THEN
851: l_to_date := to_char(sysdate,'YYYY/MM/DD')||' 00:00:00';
849: END IF;*/
850: IF ( trim(l_to_date) = '' or l_to_date is null or l_to_date = 'null') THEN
851: l_to_date := to_char(sysdate,'YYYY/MM/DD')||' 00:00:00';
852: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
853: iby_debug_pub.add(debug_msg => 'l_to_date 1 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
854: END IF;
855: END IF;
856: /* From date does not need any manipulations, and should not be defaulted to sysdate
857: IF instr(l_from_date, '00:00:00') <> 0 THEN
856: /* From date does not need any manipulations, and should not be defaulted to sysdate
857: IF instr(l_from_date, '00:00:00') <> 0 THEN
858: l_from_date := REPLACE(l_from_date, '00:00:00', '00:00:01');
859: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
860: iby_debug_pub.add(debug_msg => 'l_from_date 2 : ' || l_from_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
861: END IF;
862: END IF;*/
863:
864: IF instr(l_to_date, '00:00:00') <> 0 THEN
863:
864: IF instr(l_to_date, '00:00:00') <> 0 THEN
865: l_to_date := REPLACE(l_to_date, '00:00:00', '23:59:59');
866: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
867: iby_debug_pub.add(debug_msg => 'l_to_date 2 : ' || l_to_date, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
868: END IF;
869: END IF;
870:
871: -- parameter disp
869: END IF;
870:
871: -- parameter disp
872: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
873: iby_debug_pub.add(debug_msg => 'Parameters 1 ' || ':' || p_payment_instruction_id || ':' ||
874: p_format_name || ':' || p_internal_bank_account_name || ':' || p_payment_status || ':' ||
875: p_reselect || ':' || l_from_date || ':' || l_to_date || ':' ||
876: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
877: END IF;
878:
879: --parameter checks
880: IF (p_payment_instruction_id = -99 ) THEN
881: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
882: iby_debug_pub.add(debug_msg => 'Payment Instruction ID not supplied ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
883: END IF;
884: 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
885: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
886: 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);
882: iby_debug_pub.add(debug_msg => 'Payment Instruction ID not supplied ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
883: END IF;
884: 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
885: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
886: 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);
887: END IF;
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: END IF;
890: END IF;
891:
892: 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'), sysdate) ) THEN
893: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
894: iby_debug_pub.add(debug_msg => 'From Payment Date is greater than To Payment Date', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
895: END IF;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898:
897: END IF;
898:
899: IF (trim(p_payment_status) = '' or p_payment_status is null or p_payment_status = 'null') THEN
900: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
901: iby_debug_pub.add(debug_msg => 'Cannot proceed since Payment Status attribute is not supplied', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
902: END IF;
903: RAISE FND_API.G_EXC_ERROR;
904: END IF;
905:
904: END IF;
905:
906: IF (trim(p_reselect) = '' or p_reselect is null or p_reselect = 'null') THEN
907: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
908: iby_debug_pub.add(debug_msg => 'Cannot proceed since Reselect attribute is not supplied', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
909: END IF;
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912:
911: END IF;
912:
913: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
914: -- edited parameter disp
915: iby_debug_pub.add(debug_msg => 'Parameters 2 ' || ':' || p_payment_instruction_id || ':' ||
916: p_format_name || ':' || p_internal_bank_account_name || ':' || p_payment_status || ':' ||
917: p_reselect || ':' || l_from_date || ':' || l_to_date || ':' ||
918: p_sys_key, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
919: END IF;
921: --pmt instr supplied
922: IF p_payment_instruction_id <> -99 THEN
923:
924: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
925: iby_debug_pub.add(debug_msg => 'Payment Instruction ID supplied ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
926: END IF;
927: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
928: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
929: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
925: iby_debug_pub.add(debug_msg => 'Payment Instruction ID supplied ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
926: END IF;
927: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
928: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
929: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
930: END IF;
931: IF upper(p_reselect) = 'NO' THEN
932: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
933: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
929: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
930: END IF;
931: IF upper(p_reselect) = 'NO' THEN
932: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
933: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
934: END IF;
935: OPEN l_pospay_ins_csr_1_1;
936: FETCH l_pospay_ins_csr_1_1 INTO x_extract_doc;
937: CLOSE l_pospay_ins_csr_1_1;
936: FETCH l_pospay_ins_csr_1_1 INTO x_extract_doc;
937: CLOSE l_pospay_ins_csr_1_1;
938:
939: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
940: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
941: END IF;
942: UPDATE iby_payments_all
943: SET positive_pay_file_created_flag = 'Y'
944: WHERE payment_instruction_id = p_payment_instruction_id
945: AND (positive_pay_file_created_flag='N' or positive_pay_file_created_flag is NULL)
946: AND payment_status IN ('ISSUED','PAID');
947: ELSE
948: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
949: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
950: END IF;
951: OPEN l_pospay_ins_csr_1_2;
952: FETCH l_pospay_ins_csr_1_2 INTO x_extract_doc;
953: CLOSE l_pospay_ins_csr_1_2;
952: FETCH l_pospay_ins_csr_1_2 INTO x_extract_doc;
953: CLOSE l_pospay_ins_csr_1_2;
954:
955: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
956: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
957: END IF;
958: UPDATE iby_payments_all
959: SET positive_pay_file_created_flag = 'Y'
960: WHERE payment_instruction_id = p_payment_instruction_id
963:
964: END IF;
965: ELSE
966: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
967: iby_debug_pub.add(debug_msg => 'Payment Status is voided ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
968: END IF;
969: IF upper(p_reselect) = 'NO' THEN
970: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
971: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
967: iby_debug_pub.add(debug_msg => 'Payment Status is voided ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
968: END IF;
969: IF upper(p_reselect) = 'NO' THEN
970: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
971: iby_debug_pub.add(debug_msg => 'Reselect Option No ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
972: END IF;
973: OPEN l_pospay_ins_csr_2_1;
974: FETCH l_pospay_ins_csr_2_1 INTO x_extract_doc;
975: CLOSE l_pospay_ins_csr_2_1;
974: FETCH l_pospay_ins_csr_2_1 INTO x_extract_doc;
975: CLOSE l_pospay_ins_csr_2_1;
976:
977: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
978: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
979: END IF;
980: UPDATE iby_payments_all
981: SET positive_pay_file_created_flag = 'Y'
982: WHERE payment_instruction_id = p_payment_instruction_id
984: AND payment_status IN ('VOID','ISSUED','PAID');
985:
986: ELSE
987: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
988: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
989: END IF;
990: OPEN l_pospay_ins_csr_2_2;
991: FETCH l_pospay_ins_csr_2_2 INTO x_extract_doc;
992: CLOSE l_pospay_ins_csr_2_2;
991: FETCH l_pospay_ins_csr_2_2 INTO x_extract_doc;
992: CLOSE l_pospay_ins_csr_2_2;
993:
994: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
995: iby_debug_pub.add(debug_msg => 'payment level attribute setting ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
996: END IF;
997: UPDATE iby_payments_all
998: SET positive_pay_file_created_flag = 'Y'
999: WHERE payment_instruction_id = p_payment_instruction_id
1003: END IF;
1004: --pmt instr not supplied
1005: ELSE
1006: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1007: iby_debug_pub.add(debug_msg => 'Payment Instruction ID NOT supplied ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1008: END IF;
1009: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
1010: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1011: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1007: iby_debug_pub.add(debug_msg => 'Payment Instruction ID NOT supplied ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1008: END IF;
1009: IF upper(p_payment_status) = 'NEGOTIABLE' THEN
1010: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1011: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1012: END IF;
1013: IF upper(p_reselect) = 'NO' THEN
1014: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1015: iby_debug_pub.add(debug_msg => 'Reselect Option No ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1011: iby_debug_pub.add(debug_msg => 'Payment Status is negotiable ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1012: END IF;
1013: IF upper(p_reselect) = 'NO' THEN
1014: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1015: iby_debug_pub.add(debug_msg => 'Reselect Option No ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1016: END IF;
1017: OPEN l_pospay_appp_csr_1_1(l_from_date,l_to_date);
1018: FETCH l_pospay_appp_csr_1_1 INTO x_extract_doc;
1019: CLOSE l_pospay_appp_csr_1_1;
1037: AND pmt.payment_status IN('ISSUED','PAID');
1038:
1039: ELSE
1040: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1041: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ' , debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1042: END IF;
1043: OPEN l_pospay_appp_csr_1_2(l_from_date,l_to_date);
1044: FETCH l_pospay_appp_csr_1_2 INTO x_extract_doc;
1045: CLOSE l_pospay_appp_csr_1_2;
1063:
1064: END IF;
1065: ELSE
1066: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1067: iby_debug_pub.add(debug_msg => 'Payment Status is voided ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1068: END IF;
1069: IF upper(p_reselect) = 'NO' THEN
1070: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1071: iby_debug_pub.add(debug_msg => 'Reselect Option No ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1067: iby_debug_pub.add(debug_msg => 'Payment Status is voided ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1068: END IF;
1069: IF upper(p_reselect) = 'NO' THEN
1070: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1071: iby_debug_pub.add(debug_msg => 'Reselect Option No ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1072: END IF;
1073: OPEN l_pospay_appp_csr_2_1(l_from_date,l_to_date);
1074: FETCH l_pospay_appp_csr_2_1 INTO x_extract_doc;
1075: CLOSE l_pospay_appp_csr_2_1;
1093: AND pmt.payment_status IN('VOID','ISSUED','PAID');
1094:
1095: ELSE
1096: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1097: iby_debug_pub.add(debug_msg => 'Reselect Option Yes ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1098: END IF;
1099: OPEN l_pospay_appp_csr_2_2(l_from_date,l_to_date);
1100: FETCH l_pospay_appp_csr_2_2 INTO x_extract_doc;
1101: CLOSE l_pospay_appp_csr_2_2;
1120: END IF;
1121: END IF;
1122:
1123: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1124: iby_debug_pub.add(debug_msg => 'payment level attribute setting ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1125: END IF;
1126:
1127:
1128: iby_debug_pub.add(debug_msg => 'Payment Count : '|| l_paymentid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1124: iby_debug_pub.add(debug_msg => 'payment level attribute setting ', debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1125: END IF;
1126:
1127:
1128: iby_debug_pub.add(debug_msg => 'Payment Count : '|| l_paymentid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1129: IF ( l_paymentid_arr.COUNT <> 0) THEN
1130: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
1131: UPDATE iby_payments_all
1132: SET positive_pay_file_created_flag = 'Y'
1130: FOR i IN l_paymentid_arr.FIRST .. l_paymentid_arr.LAST LOOP
1131: UPDATE iby_payments_all
1132: SET positive_pay_file_created_flag = 'Y'
1133: WHERE payment_id = l_paymentid_arr(i);
1134: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1135: END LOOP;
1136: ELSE
1137: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1138: END IF;
1133: WHERE payment_id = l_paymentid_arr(i);
1134: iby_debug_pub.add(debug_msg => 'Payment ID : '|| l_paymentid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1135: END LOOP;
1136: ELSE
1137: iby_debug_pub.add(debug_msg => 'Payment ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1138: END IF;
1139:
1140: END IF;
1141:
1146: IF p_payment_instruction_id <> -99 THEN
1147:
1148: --if payment instruction is supplied
1149: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1150: 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);
1151: END IF;
1152: UPDATE iby_pay_instructions_all
1153: SET positive_pay_file_created_flag='Y'
1154: WHERE payment_instruction_id = p_payment_instruction_id;
1155:
1156: ELSE
1157: --if payment instruction is NOT supplied
1158: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1159: 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);
1160: END IF;
1161:
1162:
1163: iby_debug_pub.add(debug_msg => 'Payment Instr Count : '|| l_paymentinstrid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1159: 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);
1160: END IF;
1161:
1162:
1163: iby_debug_pub.add(debug_msg => 'Payment Instr Count : '|| l_paymentinstrid_arr.COUNT,debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1164: IF ( l_paymentinstrid_arr.COUNT <> 0) THEN
1165: FOR i IN l_paymentinstrid_arr.FIRST .. l_paymentinstrid_arr.LAST LOOP
1166: IF (l_paymentinstrid_arr(i) IS NOT NULL ) THEN
1167: UPDATE iby_pay_instructions_all ins
1171: WHERE nvl(pmt.positive_pay_file_created_flag,'N') = 'N'
1172: AND pmt.payment_status IN('ISSUED', 'PAID')
1173: AND pmt.payment_instruction_id = l_paymentinstrid_arr(i))
1174: AND ins.payment_instruction_id = l_paymentinstrid_arr(i);
1175: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1176: END IF;
1177: END LOOP;
1178: ELSE
1179: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1175: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| l_paymentinstrid_arr(i),debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1176: END IF;
1177: END LOOP;
1178: ELSE
1179: iby_debug_pub.add(debug_msg => 'Payment Instr ID : '|| 'Empty',debug_level => G_LEVEL_STATEMENT,module => l_Debug_Module);
1180: END IF;
1181:
1182: END IF;
1183:
1182: END IF;
1183:
1184: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1185: --Done
1186: iby_debug_pub.add(debug_msg => 'After XML query ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1187: iby_debug_pub.add(debug_msg => 'Exit ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1188: END IF;
1189:
1190: EXCEPTION
1183:
1184: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1185: --Done
1186: iby_debug_pub.add(debug_msg => 'After XML query ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1187: iby_debug_pub.add(debug_msg => 'Exit ' || p_payment_instruction_id, debug_level => G_LEVEL_STATEMENT, module => l_Debug_Module);
1188: END IF;
1189:
1190: EXCEPTION
1191: WHEN OTHERS THEN
1608: AND xle_firstparty.party_id = p_party_id;
1609:
1610: BEGIN
1611: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1612: iby_debug_pub.add(debug_msg => 'ENTER get_payer_contact',
1613: debug_level => G_LEVEL_STATEMENT,
1614: module => G_Debug_Module || '.get_payer_contact');
1615: END IF;
1616: -- Bug 7253633
1629: OPEN l_fax_csr (p_party_id);
1630: FETCH l_fax_csr INTO l_fax_cp_id;
1631: CLOSE l_fax_csr;
1632: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1633: iby_debug_pub.add(debug_msg => 'After getting mail, phone and fax',
1634: debug_level => G_LEVEL_STATEMENT,
1635: module => G_Debug_Module || '.get_payer_contact');
1636: END IF;
1637: OPEN l_web_csr (p_party_id);
1641: OPEN l_hr_loc_contact_csr (p_party_id);
1642: FETCH l_hr_loc_contact_csr INTO l_hr_loc_phone, l_hr_loc_fax;
1643: CLOSE l_hr_loc_contact_csr;
1644: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1645: iby_debug_pub.add(debug_msg => 'Before XML query',
1646: debug_level => G_LEVEL_STATEMENT,
1647: module => G_Debug_Module || '.get_payer_contact');
1648: END IF;
1649: -- the ContactName is left null
1661: RETURN null;
1662: END IF;
1663:
1664: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1665: iby_debug_pub.add(debug_msg => 'EXIT get_payer_contact',
1666: debug_level => G_LEVEL_STATEMENT,
1667: module => G_Debug_Module || '.get_payer_contact');
1668: END IF;
1669: RETURN g_payer_contact_tbl(p_party_id).l_contactinfo;
1671:
1672: EXCEPTION
1673: WHEN OTHERS THEN
1674: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1675: iby_debug_pub.add(debug_msg => 'EXCEPTION -'||sqlerrm,
1676: debug_level => G_LEVEL_STATEMENT,
1677: module => G_Debug_Module || '.get_payer_contact');
1678: END IF;
1679:
1761:
1762: BEGIN
1763:
1764: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1765: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
1766: debug_level => G_LEVEL_PROCEDURE,
1767: module => l_Debug_Module);
1768: END IF;
1769: OPEN l_pmt_csr (p_payment_id);
1805: )
1806: INTO l_contactinfo
1807: FROM dual;
1808: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1809: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
1810: debug_level => G_LEVEL_PROCEDURE,
1811: module => l_Debug_Module);
1812: END IF;
1813: RETURN l_contactinfo;
1844: BEGIN
1845:
1846: format_hr_address_C := format_hr_address_C + 1;
1847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1848: iby_debug_pub.add(debug_msg => 'format_hr_address() entered. count: ' || format_hr_address_C,
1849: debug_level => G_LEVEL_STATEMENT,
1850: module => G_Debug_Module || '.format_hr_address');
1851: iby_debug_pub.add(debug_msg => 'p_hr_location_id: ' || p_hr_location_id,
1852: debug_level => G_LEVEL_STATEMENT,
1847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1848: iby_debug_pub.add(debug_msg => 'format_hr_address() entered. count: ' || format_hr_address_C,
1849: debug_level => G_LEVEL_STATEMENT,
1850: module => G_Debug_Module || '.format_hr_address');
1851: iby_debug_pub.add(debug_msg => 'p_hr_location_id: ' || p_hr_location_id,
1852: debug_level => G_LEVEL_STATEMENT,
1853: module => G_Debug_Module || '.format_hr_address');
1854: END IF;
1855:
1895: BEGIN
1896:
1897: format_hz_address_C := format_hz_address_C + 1;
1898: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1899: iby_debug_pub.add(debug_msg => 'format_hz_address() entered. count: ' || format_hz_address_C,
1900: debug_level => G_LEVEL_STATEMENT,
1901: module => G_Debug_Module || '.format_hz_address');
1902: iby_debug_pub.add(debug_msg => 'p_hz_location_id: ' || p_hz_location_id,
1903: debug_level => G_LEVEL_STATEMENT,
1898: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1899: iby_debug_pub.add(debug_msg => 'format_hz_address() entered. count: ' || format_hz_address_C,
1900: debug_level => G_LEVEL_STATEMENT,
1901: module => G_Debug_Module || '.format_hz_address');
1902: iby_debug_pub.add(debug_msg => 'p_hz_location_id: ' || p_hz_location_id,
1903: debug_level => G_LEVEL_STATEMENT,
1904: module => G_Debug_Module || '.format_hz_address');
1905: END IF;
1906:
1966: FROM iby_xml_fd_doc_1_0_v xml_doc_lvl
1967: WHERE xml_doc_lvl.payment_id = p_payment_id; --bug 7459662
1968: BEGIN
1969: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1970: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
1971: debug_level => G_LEVEL_PROCEDURE,
1972: module => l_Debug_Module);
1973: END IF;
1974:
1989: OPEN l_pmt_docpayablecount_csr(p_payment_id);
1990: FETCH l_pmt_docpayablecount_csr INTO l_pmt_docpayablecount;
1991: CLOSE l_pmt_docpayablecount_csr;*/
1992: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1993: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
1994: debug_level => G_LEVEL_PROCEDURE,
1995: module => l_Debug_Module);
1996: END IF;
1997: RETURN l_pmt_docpayablecount;
2147: l_rep_ins_st VARCHAR2(30);
2148:
2149: BEGIN
2150: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2151: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2152: debug_level => G_LEVEL_PROCEDURE,
2153: module => l_Debug_Module);
2154: END IF;
2155:
2156: IF G_Extract_Run_Mode is null OR G_Extract_Run_Mode = G_EXTRACT_MODE_PMT THEN
2157:
2158:
2159: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2160: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_PMT. ',
2161: debug_level => G_LEVEL_STATEMENT,
2162: module => l_Debug_Module);
2163:
2164: iby_debug_pub.add(debug_msg => 'For reprint debugging: ',
2160: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_PMT. ',
2161: debug_level => G_LEVEL_STATEMENT,
2162: module => l_Debug_Module);
2163:
2164: iby_debug_pub.add(debug_msg => 'For reprint debugging: ',
2165: debug_level => G_LEVEL_STATEMENT,
2166: module => l_Debug_Module);
2167: END IF;
2168:
2171: OPEN l_rep_debug_ins_csr (p_payment_instruction_id);
2172: FETCH l_rep_debug_ins_csr INTO l_rep_ins_st;
2173: CLOSE l_rep_debug_ins_csr;
2174:
2175: iby_debug_pub.add(debug_msg => 'instruction id: ' || p_payment_instruction_id
2176: || ', instruction status: ' || l_rep_ins_st,
2177: debug_level => G_LEVEL_STATEMENT,
2178: module => l_Debug_Module);
2179:
2176: || ', instruction status: ' || l_rep_ins_st,
2177: debug_level => G_LEVEL_STATEMENT,
2178: module => l_Debug_Module);
2179:
2180: iby_debug_pub.add(debug_msg => 'payment id, paper document number, payment status for all payments in the instruction: ',
2181: debug_level => G_LEVEL_STATEMENT,
2182: module => l_Debug_Module);
2183: END IF;
2184: /* PERF BUG- 6763515 */
2184: /* PERF BUG- 6763515 */
2185: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2186: FOR l_payment IN l_rep_debug_pmt_csr(p_payment_instruction_id) LOOP
2187:
2188: iby_debug_pub.add(debug_msg => 'payment_id: ' || l_payment.payment_id
2189: || ', paper_document_number: ' || l_payment.paper_document_number
2190: || ', payment_status: ' || l_payment.payment_status,
2191: debug_level => G_LEVEL_STATEMENT,
2192: module => l_Debug_Module);
2197:
2198:
2199: IF nvl(G_Is_Reprint, 'N') = 'N' THEN
2200: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2201: iby_debug_pub.add(debug_msg => 'Before executing the cursor l_payerinstr_csr ',
2202: debug_level => G_LEVEL_STATEMENT,
2203: module => l_Debug_Module);
2204: END IF;
2205: OPEN l_payerinstr_csr (p_payment_instruction_id);
2205: OPEN l_payerinstr_csr (p_payment_instruction_id);
2206: FETCH l_payerinstr_csr INTO l_payerinstr_agg;
2207: CLOSE l_payerinstr_csr;
2208: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2209: iby_debug_pub.add(debug_msg => 'After executing the cursor l_payerinstr_csr ',
2210: debug_level => G_LEVEL_STATEMENT,
2211: module => l_Debug_Module);
2212: END IF;
2213:
2212: END IF;
2213:
2214: ELSE
2215: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2216: iby_debug_pub.add(debug_msg => 'Before executing the cursor l_payerinstr_reprt_csr ',
2217: debug_level => G_LEVEL_STATEMENT,
2218: module => l_Debug_Module);
2219: END IF;
2220: OPEN l_payerinstr_reprt_csr (p_payment_instruction_id);
2220: OPEN l_payerinstr_reprt_csr (p_payment_instruction_id);
2221: FETCH l_payerinstr_reprt_csr INTO l_payerinstr_agg;
2222: CLOSE l_payerinstr_reprt_csr;
2223: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2224: iby_debug_pub.add(debug_msg => 'After executing the cursor l_payerinstr_reprt_csr ',
2225: debug_level => G_LEVEL_STATEMENT,
2226: module => l_Debug_Module);
2227: END IF;
2228:
2229: END IF;
2230:
2231: ELSIF G_Extract_Run_Mode = G_EXTRACT_MODE_AUX THEN
2232: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2233: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_AUX. ',
2234: debug_level => G_LEVEL_STATEMENT,
2235: module => l_Debug_Module);
2236: END IF;
2237: OPEN l_payerinstr_aux_csr (p_payment_instruction_id);
2239: CLOSE l_payerinstr_aux_csr;
2240:
2241: ELSIF G_Extract_Run_Mode = G_EXTRACT_MODE_PI_RPT THEN
2242: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2243: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_PI_RPT. ',
2244: debug_level => G_LEVEL_STATEMENT,
2245: module => l_Debug_Module);
2246: END IF;
2247: OPEN l_payerinstr_rpt_csr (p_payment_instruction_id);
2250:
2251: ELSIF G_Extract_Run_Mode = G_EXTRACT_MODE_SRA THEN
2252:
2253: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2254: iby_debug_pub.add(debug_msg => 'Extract mode is G_EXTRACT_MODE_SRA. ',
2255: debug_level => G_LEVEL_STATEMENT,
2256: module => l_Debug_Module);
2257: END IF;
2258:
2258:
2259: IF G_Extract_Run_Delivery_Method = G_SRA_DELIVERY_METHOD_PRINTED THEN
2260:
2261: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2262: iby_debug_pub.add(debug_msg => 'SRA Delivery method is printed. ',
2263: debug_level => G_LEVEL_STATEMENT,
2264: module => l_Debug_Module);
2265: END IF;
2266:
2271: ELSIF G_Extract_Run_Delivery_Method = G_SRA_DELIVERY_METHOD_EMAIL OR
2272: G_Extract_Run_Delivery_Method = G_SRA_DELIVERY_METHOD_FAX THEN
2273:
2274: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2275: iby_debug_pub.add(debug_msg => 'SRA Delivery method is Email/Fax. ',
2276: debug_level => G_LEVEL_STATEMENT,
2277: module => l_Debug_Module);
2278: END IF;
2279:
2286: END IF;
2287:
2288: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2289: IF l_payerinstr_agg is null THEN
2290: iby_debug_pub.add(debug_msg => 'After fetch from payer instrument cursor. l_payerinstr_agg is null',
2291: debug_level => G_LEVEL_STATEMENT,
2292: module => l_Debug_Module);
2293:
2294: ELSE
2291: debug_level => G_LEVEL_STATEMENT,
2292: module => l_Debug_Module);
2293:
2294: ELSE
2295: iby_debug_pub.add(debug_msg => 'After fetch from payer instrument cursor. l_payerinstr_agg is not null',
2296: debug_level => G_LEVEL_STATEMENT,
2297: module => l_Debug_Module);
2298:
2299: END IF;
2297: module => l_Debug_Module);
2298:
2299: END IF;
2300:
2301: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2302: debug_level => G_LEVEL_PROCEDURE,
2303: module => l_Debug_Module);
2304: END IF;
2305:
2305:
2306: RETURN l_payerinstr_agg;
2307: EXCEPTION
2308: WHEN OTHERS THEN
2309: iby_debug_pub.add(debug_msg => 'EXECPTION OCCURED IN : ' || l_Debug_Module || sqlerrm ,
2310: debug_level => G_LEVEL_PROCEDURE,
2311: module => l_Debug_Module);
2312: RAISE;
2313: END Get_Ins_PayerInstrAgg;
2323: WHERE legal_entity_id = p_legal_entity_id;
2324:
2325: BEGIN
2326: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2327: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2328: debug_level => G_LEVEL_PROCEDURE,
2329: module => l_Debug_Module);
2330: END IF;
2331: Get_Payer_C := Get_Payer_C + 1;
2329: module => l_Debug_Module);
2330: END IF;
2331: Get_Payer_C := Get_Payer_C + 1;
2332: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2333: iby_debug_pub.add(debug_msg => 'Get_Payer() entered. count: ' || Get_Payer_C,
2334: debug_level => G_LEVEL_STATEMENT,
2335: module => G_Debug_Module || '.Get_Payer');
2336: iby_debug_pub.add(debug_msg => 'p_legal_entity_id: ' || p_legal_entity_id,
2337: debug_level => G_LEVEL_STATEMENT,
2332: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2333: iby_debug_pub.add(debug_msg => 'Get_Payer() entered. count: ' || Get_Payer_C,
2334: debug_level => G_LEVEL_STATEMENT,
2335: module => G_Debug_Module || '.Get_Payer');
2336: iby_debug_pub.add(debug_msg => 'p_legal_entity_id: ' || p_legal_entity_id,
2337: debug_level => G_LEVEL_STATEMENT,
2338: module => G_Debug_Module || '.Get_Payer');
2339: END IF;
2340:
2346: FETCH l_payer_csr INTO l_payer;
2347: CLOSE l_payer_csr;
2348:
2349: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2350: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2351: debug_level => G_LEVEL_PROCEDURE,
2352: module => l_Debug_Module);
2353: END IF;
2354:
2368: WHERE bank_account_id = p_bank_account_id;
2369:
2370: BEGIN
2371: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2372: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2373: debug_level => G_LEVEL_PROCEDURE,
2374: module => l_Debug_Module);
2375: END IF;
2376: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
2374: module => l_Debug_Module);
2375: END IF;
2376: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
2377: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2378: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
2379: debug_level => G_LEVEL_STATEMENT,
2380: module => G_Debug_Module || '.Get_PayerBankAccount');
2381: iby_debug_pub.add(debug_msg => 'p_bank_account_id: ' || p_bank_account_id,
2382: debug_level => G_LEVEL_STATEMENT,
2377: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2378: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
2379: debug_level => G_LEVEL_STATEMENT,
2380: module => G_Debug_Module || '.Get_PayerBankAccount');
2381: iby_debug_pub.add(debug_msg => 'p_bank_account_id: ' || p_bank_account_id,
2382: debug_level => G_LEVEL_STATEMENT,
2383: module => G_Debug_Module || '.Get_PayerBankAccount');
2384: END IF;
2385: IF p_bank_account_id IS NULL THEN
2391: CLOSE l_payer_ba_csr;
2392:
2393:
2394: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2395: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2396: debug_level => G_LEVEL_PROCEDURE,
2397: module => l_Debug_Module);
2398: END IF;
2399: RETURN l_payer_ba;
2412: WHERE payment_id = p_payment_id;
2413:
2414: BEGIN
2415: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2416: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2417: debug_level => G_LEVEL_PROCEDURE,
2418: module => l_Debug_Module);
2419: END IF;
2420: Get_Payer_C := Get_Payer_C + 1;
2418: module => l_Debug_Module);
2419: END IF;
2420: Get_Payer_C := Get_Payer_C + 1;
2421: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2422: iby_debug_pub.add(debug_msg => 'Get_Payer_Denorm() entered. count: ' || Get_Payer_C,
2423: debug_level => G_LEVEL_STATEMENT,
2424: module => G_Debug_Module || '.Get_Payer');
2425: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
2426: debug_level => G_LEVEL_STATEMENT,
2421: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2422: iby_debug_pub.add(debug_msg => 'Get_Payer_Denorm() entered. count: ' || Get_Payer_C,
2423: debug_level => G_LEVEL_STATEMENT,
2424: module => G_Debug_Module || '.Get_Payer');
2425: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
2426: debug_level => G_LEVEL_STATEMENT,
2427: module => G_Debug_Module || '.Get_Payer');
2428: END IF;
2429:
2431: FETCH l_payer_csr INTO l_payer;
2432: CLOSE l_payer_csr;
2433:
2434: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2435: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2436: debug_level => G_LEVEL_PROCEDURE,
2437: module => l_Debug_Module);
2438: END IF;
2439: RETURN l_payer;
2452: WHERE payment_id = p_payment_id;
2453:
2454: BEGIN
2455: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2456: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2457: debug_level => G_LEVEL_PROCEDURE,
2458: module => l_Debug_Module);
2459: END IF;
2460: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
2458: module => l_Debug_Module);
2459: END IF;
2460: Get_PayerBankAccount_C := Get_PayerBankAccount_C + 1;
2461: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2462: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
2463: debug_level => G_LEVEL_STATEMENT,
2464: module => G_Debug_Module || '.Get_PayerBankAccount');
2465: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
2466: debug_level => G_LEVEL_STATEMENT,
2461: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2462: iby_debug_pub.add(debug_msg => 'Get_PayerBankAccount() entered. count: ' || Get_PayerBankAccount_C,
2463: debug_level => G_LEVEL_STATEMENT,
2464: module => G_Debug_Module || '.Get_PayerBankAccount');
2465: iby_debug_pub.add(debug_msg => 'p_payment_id: ' || p_payment_id,
2466: debug_level => G_LEVEL_STATEMENT,
2467: module => G_Debug_Module || '.Get_PayerBankAccount');
2468: END IF;
2469: OPEN l_payer_ba_csr (p_payment_id);
2470: FETCH l_payer_ba_csr INTO l_payer_ba;
2471: CLOSE l_payer_ba_csr;
2472:
2473: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2474: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2475: debug_level => G_LEVEL_PROCEDURE,
2476: module => l_Debug_Module);
2477: END IF;
2478: RETURN l_payer_ba;
2492: AND ROWNUM = 1;
2493:
2494: BEGIN
2495: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2496: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2497: debug_level => G_LEVEL_PROCEDURE,
2498: module => l_Debug_Module);
2499: END IF;
2500:
2502: FETCH l_ins_payment_csr INTO l_payment_id;
2503: CLOSE l_ins_payment_csr;
2504:
2505: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2506: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2507: debug_level => G_LEVEL_PROCEDURE,
2508: module => l_Debug_Module);
2509: END IF;
2510: RETURN Get_Payer_Denorm(l_payment_id);
2524: AND ROWNUM = 1;
2525:
2526: BEGIN
2527: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2528: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2529: debug_level => G_LEVEL_PROCEDURE,
2530: module => l_Debug_Module);
2531: END IF;
2532:
2534: FETCH l_ins_payment_csr INTO l_payment_id;
2535: CLOSE l_ins_payment_csr;
2536:
2537: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2538: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2539: debug_level => G_LEVEL_PROCEDURE,
2540: module => l_Debug_Module);
2541: END IF;
2542: RETURN Get_PayerBankAccount_Denorm(l_payment_id);
2590:
2591: BEGIN
2592:
2593: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2594: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2595: debug_level => G_LEVEL_PROCEDURE,
2596: module => l_Debug_Module);
2597:
2598: iby_debug_pub.add(debug_msg => 'input p_payment_id: ' || p_payment_id,
2594: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2595: debug_level => G_LEVEL_PROCEDURE,
2596: module => l_Debug_Module);
2597:
2598: iby_debug_pub.add(debug_msg => 'input p_payment_id: ' || p_payment_id,
2599: debug_level => G_LEVEL_STATEMENT,
2600: module => l_Debug_Module);
2601: END IF;
2602:
2612:
2613: END IF;
2614:
2615: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2616: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2617: debug_level => G_LEVEL_PROCEDURE,
2618: module => l_Debug_Module);
2619: END IF;
2620:
2620:
2621: RETURN l_docpayable_agg;
2622: EXCEPTION
2623: WHEN OTHERS THEN
2624: iby_debug_pub.add(debug_msg => 'EXECPTION OCCURED IN : ' || l_Debug_Module || sqlerrm ,
2625: debug_level => G_LEVEL_PROCEDURE,
2626: module => l_Debug_Module);
2627: RAISE;
2628: END Get_Pmt_DocPayableAgg;
2652:
2653: BEGIN
2654:
2655: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2656: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2657: debug_level => G_LEVEL_PROCEDURE,
2658: module => l_Debug_Module);
2659: END IF;
2660: OPEN l_pmt_func_csr (p_payment_id);
2660: OPEN l_pmt_func_csr (p_payment_id);
2661: FETCH l_pmt_func_csr INTO l_pmt_func;
2662: CLOSE l_pmt_func_csr;
2663: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2664: iby_debug_pub.add(debug_msg => 'Before the condition - ' || ' l_pmt_func:' || l_pmt_func,
2665: debug_level => G_LEVEL_PROCEDURE,
2666: module => l_Debug_Module);
2667: END IF;
2668: IF l_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
2679:
2680: END IF;
2681:
2682: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2683: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2684: debug_level => G_LEVEL_PROCEDURE,
2685: module => l_Debug_Module);
2686: END IF;
2687:
2704:
2705: BEGIN
2706:
2707: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2708: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2709: debug_level => G_LEVEL_PROCEDURE,
2710: module => l_Debug_Module);
2711: END IF;
2712:
2715: CLOSE l_payee_csr;
2716:
2717:
2718: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2719: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2720: debug_level => G_LEVEL_PROCEDURE,
2721: module => l_Debug_Module);
2722: END IF;
2723:
2754:
2755: BEGIN
2756:
2757: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2758: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2759: debug_level => G_LEVEL_PROCEDURE,
2760: module => l_Debug_Module);
2761: END IF;
2762:
2765: CLOSE l_add_info_csr;
2766:
2767:
2768: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2769: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2770: debug_level => G_LEVEL_PROCEDURE,
2771: module => l_Debug_Module);
2772: END IF;
2773:
2806:
2807: BEGIN
2808:
2809: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2810: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2811: debug_level => G_LEVEL_PROCEDURE,
2812: module => l_Debug_Module);
2813: END IF;
2814:
2817: CLOSE l_relshipid_csr;
2818:
2819:
2820: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2821: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2822: debug_level => G_LEVEL_PROCEDURE,
2823: module => l_Debug_Module);
2824: END IF;
2825:
2852: WHERE bank_account_id = p_external_bank_account_id;
2853:
2854: BEGIN
2855: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2856: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
2857: debug_level => G_LEVEL_PROCEDURE,
2858: module => l_Debug_Module);
2859: END IF;
2860: -- Added this as a workaround for bug 5293384
2866: OPEN l_pmt_func_csr (p_payment_id);
2867: FETCH l_pmt_func_csr INTO l_pmt_func;
2868: CLOSE l_pmt_func_csr;
2869: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2870: iby_debug_pub.add(debug_msg => 'Before the condition: ' || ' l_pmt_func:'|| l_pmt_func,
2871: debug_level => G_LEVEL_PROCEDURE,
2872: module => l_Debug_Module);
2873: END IF;
2874: IF l_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
2885:
2886: END IF;
2887:
2888: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2889: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
2890: debug_level => G_LEVEL_PROCEDURE,
2891: module => l_Debug_Module);
2892: END IF;
2893:
2919: WHERE payment_id = p_payment_id;
2920:
2921: BEGIN
2922: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2923: iby_debug_pub.add(debug_msg => 'ENTER: ' || l_Debug_Module,
2924: debug_level => G_LEVEL_PROCEDURE,
2925: module => l_Debug_Module);
2926: END IF;
2927: -- Added this as a workaround for bug 5293384
2933: OPEN l_pmt_func_csr (p_payment_id);
2934: FETCH l_pmt_func_csr INTO l_pmt_func;
2935: CLOSE l_pmt_func_csr;
2936: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2937: iby_debug_pub.add(debug_msg => 'Before IF : -- l_pmt_func: ' || l_pmt_func ,
2938: debug_level => G_LEVEL_PROCEDURE,
2939: module => l_Debug_Module);
2940: END IF;
2941: IF l_pmt_func = 'Y' AND G_May_Need_HR_Masking THEN
2952:
2953: END IF;
2954:
2955: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2956: iby_debug_pub.add(debug_msg => 'EXIT: ' || l_Debug_Module,
2957: debug_level => G_LEVEL_PROCEDURE,
2958: module => l_Debug_Module);
2959: END IF;
2960:
3013:
3014: BEGIN
3015:
3016: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3017: iby_debug_pub.add(debug_msg => 'ENTER: ' || l_Debug_Module,
3018: debug_level => G_LEVEL_PROCEDURE,
3019: module => l_Debug_Module);
3020: END IF;
3021: /* Preparing the concatinated strings of invalid characters
3029: FETCH l_docline_csr INTO l_docline_agg;
3030: CLOSE l_docline_csr;
3031:
3032: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3033: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3034: debug_level => G_LEVEL_PROCEDURE,
3035: module => l_Debug_Module);
3036: END IF;
3037: RETURN l_docline_agg;
3036: END IF;
3037: RETURN l_docline_agg;
3038: EXCEPTION
3039: WHEN OTHERS THEN
3040: iby_debug_pub.add(debug_msg => 'EXECPTION OCCURED IN : ' || l_Debug_Module || sqlerrm ,
3041: debug_level => G_LEVEL_PROCEDURE,
3042: module => l_Debug_Module);
3043: RAISE;
3044: END Get_Doc_DocLineAgg;
3257: g_docs_pay_attribs_tbl(l_doc_idx).IS_BRAZIL := JL_BR_AP_PAY_SCHED_GDF_PKG.Check_Brazil(
3258: P_Doc_Payable_ID => p_doc_payable_id,
3259: P_RETURN_STATUS => l_return_status);
3260: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3261: 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,
3262: debug_level => G_LEVEL_STATEMENT,
3263: module => l_Debug_Module);
3264: END IF;
3265: END IF;
3274: P_Doc_Payable_ID => p_doc_payable_id,
3275: P_RETURN_STATUS => l_return_status);
3276:
3277: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3278: 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,
3279: debug_level => G_LEVEL_STATEMENT,
3280: module => l_Debug_Module);
3281: END IF;
3282: END IF;
3310: P_Doc_Payable_ID => p_doc_payable_id,
3311: P_RETURN_STATUS => l_return_status);
3312:
3313: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3314: 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,
3315: debug_level => G_LEVEL_STATEMENT,
3316: module => l_Debug_Module);
3317: END IF;
3318: END IF;
3327: P_Doc_Payable_ID => p_doc_payable_id,
3328: P_Process_Type => l_process_type,
3329: P_RETURN_STATUS => l_return_status);
3330: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3331: 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,
3332: debug_level => G_LEVEL_STATEMENT,
3333: module => l_Debug_Module);
3334: END IF;
3335: END IF;
3364: P_Doc_Payable_ID => p_doc_payable_id,
3365: P_RETURN_STATUS => l_return_status);
3366:
3367: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3368: 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,
3369: debug_level => G_LEVEL_STATEMENT,
3370: module => l_Debug_Module);
3371: END IF;
3372:
3383: P_Process_Type => l_process_type,
3384: P_RETURN_STATUS => l_return_status);
3385:
3386: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3387: 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,
3388: debug_level => G_LEVEL_STATEMENT,
3389: module => l_Debug_Module);
3390: END IF;
3391: END IF;
3546: WHERE payment_id = p_payment_id;
3547:
3548: BEGIN
3549: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3550: iby_debug_pub.add(debug_msg => 'Get_Pmt_PmtErrAgg Enter: ',
3551: debug_level => G_LEVEL_STATEMENT,
3552: module => l_Debug_Module);
3553: END IF;
3554: OPEN l_pmterr_csr (p_payment_id);
3554: OPEN l_pmterr_csr (p_payment_id);
3555: FETCH l_pmterr_csr INTO l_pmterr_agg;
3556: CLOSE l_pmterr_csr;
3557: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3558: iby_debug_pub.add(debug_msg => 'Get_Pmt_PmtErrAgg Exit: ',
3559: debug_level => G_LEVEL_STATEMENT,
3560: module => l_Debug_Module);
3561: END IF;
3562: RETURN l_pmterr_agg;
3608:
3609: FOR l_payment IN l_pmt_csr(p_payment_instruction_id) LOOP
3610:
3611: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3612: iby_debug_pub.add(debug_msg => 'updating the SRA delivery method for payment ref number ' ||
3613: l_payment.payment_reference_number || ' to be PRINTED',
3614: debug_level => G_LEVEL_STATEMENT,
3615: module => l_Debug_Module);
3616: END IF;
3675: PROCEDURE initialize
3676: IS
3677: BEGIN
3678: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3679: iby_debug_pub.add(debug_msg => 'ENTER',
3680: debug_level => G_LEVEL_STATEMENT,
3681: module => G_Debug_Module || '.initialize');
3682: END IF;
3683: g_docs_pay_attribs_tbl.DELETE;
3684: g_hr_addr_tbl.DELETE;
3685: g_hz_addr_tbl.DELETE;
3686: g_payer_contact_tbl.DELETE;
3687: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3688: iby_debug_pub.add(debug_msg => 'EXIT',
3689: debug_level => G_LEVEL_STATEMENT,
3690: module => G_Debug_Module || '.initialize');
3691: END IF;
3692:
3706: BEGIN
3707:
3708: Get_Hz_Address_C := Get_Hz_Address_C + 1;
3709: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3710: iby_debug_pub.add(debug_msg => 'Get_Hz_Address() entered. count: ' || Get_Hz_Address_C,
3711: debug_level => G_LEVEL_STATEMENT,
3712: module => G_Debug_Module || '.Get_Hz_Address');
3713: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
3714: debug_level => G_LEVEL_STATEMENT,
3709: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3710: iby_debug_pub.add(debug_msg => 'Get_Hz_Address() entered. count: ' || Get_Hz_Address_C,
3711: debug_level => G_LEVEL_STATEMENT,
3712: module => G_Debug_Module || '.Get_Hz_Address');
3713: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
3714: debug_level => G_LEVEL_STATEMENT,
3715: module => G_Debug_Module || '.Get_Hz_Address');
3716: END IF;
3717: IF p_location_id IS NULL THEN
3723: FETCH l_hz_addr_csr INTO g_hz_addr_tbl(p_location_id).hz_address;
3724: CLOSE l_hz_addr_csr;
3725: END IF;
3726: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3727: iby_debug_pub.add(debug_msg => 'EXIT',
3728: debug_level => G_LEVEL_STATEMENT,
3729: module => G_Debug_Module || '.Get_HZ_Address');
3730: END IF;
3731: RETURN g_hz_addr_tbl(p_location_id).hz_address;
3760:
3761:
3762: BEGIN
3763: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3764: iby_debug_pub.add(debug_msg => 'Get_Account_Address() entered. ',
3765: debug_level => G_LEVEL_STATEMENT,
3766: module => G_Debug_Module || '.Get_Account_Address');
3767: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id || 'p_country: ' || p_country,
3768: debug_level => G_LEVEL_STATEMENT,
3763: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3764: iby_debug_pub.add(debug_msg => 'Get_Account_Address() entered. ',
3765: debug_level => G_LEVEL_STATEMENT,
3766: module => G_Debug_Module || '.Get_Account_Address');
3767: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id || 'p_country: ' || p_country,
3768: debug_level => G_LEVEL_STATEMENT,
3769: module => G_Debug_Module || '.Get_Account_Address');
3770: END IF;
3771:
3804: BEGIN
3805:
3806: Get_Hr_Address_C := Get_Hr_Address_C + 1;
3807: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3808: iby_debug_pub.add(debug_msg => 'Get_Hr_Address() entered. count: ' || Get_Hr_Address_C,
3809: debug_level => G_LEVEL_STATEMENT,
3810: module => G_Debug_Module || '.Get_Hr_Address');
3811: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
3812: debug_level => G_LEVEL_STATEMENT,
3807: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3808: iby_debug_pub.add(debug_msg => 'Get_Hr_Address() entered. count: ' || Get_Hr_Address_C,
3809: debug_level => G_LEVEL_STATEMENT,
3810: module => G_Debug_Module || '.Get_Hr_Address');
3811: iby_debug_pub.add(debug_msg => 'p_location_id: ' || p_location_id,
3812: debug_level => G_LEVEL_STATEMENT,
3813: module => G_Debug_Module || '.Get_Hr_Address');
3814: END IF;
3815:
3822: CLOSE l_hr_addr_csr;
3823: END IF;
3824:
3825: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3826: iby_debug_pub.add(debug_msg => 'EXIT',
3827: debug_level => G_LEVEL_STATEMENT,
3828: module => G_Debug_Module || '.Get_Hr_Address');
3829: END IF;
3830: RETURN g_hr_addr_tbl(p_location_id).hr_address;
3853:
3854: BEGIN
3855:
3856: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3857: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3858: debug_level => G_LEVEL_PROCEDURE,
3859: module => l_Debug_Module);
3860: END IF;
3861:
3865:
3866: IF NVL(l_group_by_curr_flag, 'N') = 'N' THEN
3867:
3868: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3869: iby_debug_pub.add(debug_msg => 'Instruction is not grouped by currency, so returning null for the total amount.',
3870: debug_level => G_LEVEL_STATEMENT,
3871: module => l_Debug_Module);
3872: END IF;
3873: RETURN NULL;
3877: FETCH l_amt_total_csr INTO l_amt_total;
3878: CLOSE l_amt_total_csr;
3879:
3880: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3881: iby_debug_pub.add(debug_msg => 'Instruction total amount: ' || l_amt_total,
3882: debug_level => G_LEVEL_STATEMENT,
3883: module => l_Debug_Module);
3884:
3885: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3881: iby_debug_pub.add(debug_msg => 'Instruction total amount: ' || l_amt_total,
3882: debug_level => G_LEVEL_STATEMENT,
3883: module => l_Debug_Module);
3884:
3885: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3886: debug_level => G_LEVEL_PROCEDURE,
3887: module => l_Debug_Module);
3888: END IF;
3889:
3901:
3902: BEGIN
3903:
3904: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3905: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3906: debug_level => G_LEVEL_PROCEDURE,
3907: module => l_Debug_Module);
3908:
3909: iby_debug_pub.add(debug_msg => 'Calling iExpense API to get instrid.',
3905: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3906: debug_level => G_LEVEL_PROCEDURE,
3907: module => l_Debug_Module);
3908:
3909: iby_debug_pub.add(debug_msg => 'Calling iExpense API to get instrid.',
3910: debug_level => G_LEVEL_STATEMENT,
3911: module => l_Debug_Module);
3912: END IF;
3913:
3913:
3914: l_instrid := AP_WEB_CREDIT_CARD_PKG.get_card_reference_id(p_document_payable_id);
3915:
3916: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3917: iby_debug_pub.add(debug_msg => 'Got instrid: ' || l_instrid,
3918: debug_level => G_LEVEL_STATEMENT,
3919: module => l_Debug_Module);
3920: END IF;
3921:
3920: END IF;
3921:
3922: IF l_instrid IS NOT NULL THEN
3923: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3924: iby_debug_pub.add(debug_msg => 'Getting instr number',
3925: debug_level => G_LEVEL_STATEMENT,
3926: module => l_Debug_Module);
3927: END IF;
3928:
3930:
3931: END IF;
3932:
3933: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3934: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3935: debug_level => G_LEVEL_PROCEDURE,
3936: module => l_Debug_Module);
3937: END IF;
3938:
3953: l_modified varchar2(255);
3954: l_Debug_Module VARCHAR2(255) := G_DEBUG_MODULE || '.Replace_Special_Characters';
3955: BEGIN
3956: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3957: iby_debug_pub.add(debug_msg => 'Enter: ' || l_Debug_Module,
3958: debug_level => G_LEVEL_PROCEDURE,
3959: module => l_Debug_Module);
3960: END IF;
3961:
3969:
3970: l_modified := TRANSLATE(p_base_string, l_conc_invalid_chars, l_conc_replacement_chars);
3971:
3972: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3973: iby_debug_pub.add(debug_msg => 'Exit: ' || l_Debug_Module,
3974: debug_level => G_LEVEL_PROCEDURE,
3975: module => l_Debug_Module);
3976: END IF;
3977: RETURN l_modified;