466: 'Jl_Ar_Ap_Do_Withholding';
467:
468: -- Debug
469: IF (DEBUG_Var = 'Y') THEN
470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_calling_sequence);
471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Do_Withholding(+)');
472: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
473: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Amount = '||to_char(P_Amount));
474: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Payment_Id = '||to_char(P_Invoice_Payment_Id));
467:
468: -- Debug
469: IF (DEBUG_Var = 'Y') THEN
470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_calling_sequence);
471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Do_Withholding(+)');
472: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
473: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Amount = '||to_char(P_Amount));
474: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Payment_Id = '||to_char(P_Invoice_Payment_Id));
475: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||to_char(P_Check_Id));
468: -- Debug
469: IF (DEBUG_Var = 'Y') THEN
470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_calling_sequence);
471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Do_Withholding(+)');
472: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
473: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Amount = '||to_char(P_Amount));
474: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Payment_Id = '||to_char(P_Invoice_Payment_Id));
475: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||to_char(P_Check_Id));
476: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
469: IF (DEBUG_Var = 'Y') THEN
470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_calling_sequence);
471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Do_Withholding(+)');
472: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
473: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Amount = '||to_char(P_Amount));
474: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Payment_Id = '||to_char(P_Invoice_Payment_Id));
475: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||to_char(P_Check_Id));
476: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
477: END IF;
470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_calling_sequence);
471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Do_Withholding(+)');
472: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
473: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Amount = '||to_char(P_Amount));
474: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Payment_Id = '||to_char(P_Invoice_Payment_Id));
475: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||to_char(P_Check_Id));
476: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
477: END IF;
478: -- End Debug
471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Do_Withholding(+)');
472: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
473: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Amount = '||to_char(P_Amount));
474: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Payment_Id = '||to_char(P_Invoice_Payment_Id));
475: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||to_char(P_Check_Id));
476: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
477: END IF;
478: -- End Debug
479:
472: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
473: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Amount = '||to_char(P_Amount));
474: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Payment_Id = '||to_char(P_Invoice_Payment_Id));
475: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||to_char(P_Check_Id));
476: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
477: END IF;
478: -- End Debug
479:
480: -----------------------------------
496: IF (P_Calling_Module = 'QUICKCHECK') THEN
497: l_debug_info := 'Calculating Withholding for Quick Payment';
498: -- Debug Information
499: IF (DEBUG_Var = 'Y') THEN
500: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_debug_info);
501: END IF;
502: -- End Debug
503: Do_AWT_Quick_Payment (P_Checkrun_Name,
504: P_Checkrun_ID,
514: P_Request_Id);
515:
516: -- Debug Information
517: IF (DEBUG_Var = 'Y') THEN
518: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('P_AWT_Success: '||P_AWT_Success);
519: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Calculating Withholding for Quick Payment');
520: END IF;
521: -- End Debug
522: -------------------------------------------------------
515:
516: -- Debug Information
517: IF (DEBUG_Var = 'Y') THEN
518: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('P_AWT_Success: '||P_AWT_Success);
519: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Calculating Withholding for Quick Payment');
520: END IF;
521: -- End Debug
522: -------------------------------------------------------
523: -- If the calculation did not complete successfully,
542: ELSIF (P_Calling_Module = 'AUTOSELECT') THEN
543: l_debug_info := 'Calculating Withholding for Payment Batch (Build)';
544: -- Debug Information
545: IF (DEBUG_Var = 'Y') THEN
546: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_debug_info);
547: END IF;
548: -- End Debug
549: Do_AWT_Build_Payment_Batch
550: (P_Checkrun_Name,
559: P_Request_Id);
560:
561: -- Debug Information
562: IF (DEBUG_Var = 'Y') THEN
563: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('P_AWT_Success: '||P_AWT_Success);
564: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Calculating Withholding for Payment Batch (Build)');
565: END IF;
566: -- End Debug
567:
560:
561: -- Debug Information
562: IF (DEBUG_Var = 'Y') THEN
563: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('P_AWT_Success: '||P_AWT_Success);
564: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Calculating Withholding for Payment Batch (Build)');
565: END IF;
566: -- End Debug
567:
568: /********************************************************
578: ELSIF (P_Calling_Module = 'CONFIRM') THEN
579: l_debug_info := 'Calculating Withholding for Payment Batch (Confirm)';
580: -- Debug Information
581: IF (DEBUG_Var = 'Y') THEN
582: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_debug_info);
583: END IF;
584: -- End Debug
585: Do_AWT_Confirm_Payment_Batch
586: (P_Checkrun_Name,
594: P_Program_Id,
595: P_Request_Id);
596: -- Debug Information
597: IF (DEBUG_Var = 'Y') THEN
598: JL_ZZ_AP_EXT_AWT_UTIL.Debug('P_AWT_Success: '||P_AWT_Success);
599: JL_ZZ_AP_EXT_AWT_UTIL.Debug('After Calculating Withholding for Payment Batch (Confirm)');
600: END IF;
601: -- End Debug
602: END IF;
595: P_Request_Id);
596: -- Debug Information
597: IF (DEBUG_Var = 'Y') THEN
598: JL_ZZ_AP_EXT_AWT_UTIL.Debug('P_AWT_Success: '||P_AWT_Success);
599: JL_ZZ_AP_EXT_AWT_UTIL.Debug('After Calculating Withholding for Payment Batch (Confirm)');
600: END IF;
601: -- End Debug
602: END IF;
603:
601: -- End Debug
602: END IF;
603:
604: IF (DEBUG_Var = 'Y') THEN
605: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Do_Withholding(-)');
606: END IF;
607:
608: EXCEPTION
609: WHEN others THEN
609: WHEN others THEN
610: IF (SQLCODE <> -20001) THEN
611: -- Debug Information
612: IF (DEBUG_Var = 'Y') THEN
613: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - Jl_Ar_Ap_Do_Withholding - Error:'||SQLERRM);
614: END IF;
615: -- End Debug
616:
617: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
677: l_calling_sequence := 'JL_AR_AP_WITHHOLDING_PKG' || '.' ||
678: 'Jl_Ar_Ap_Undo_Withholding';
679: -- Debug Information
680: IF (DEBUG_Var = 'Y') THEN
681: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_calling_sequence);
682: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Withholding(+)');
683: END IF;
684: -- End Debug
685:
678: 'Jl_Ar_Ap_Undo_Withholding';
679: -- Debug Information
680: IF (DEBUG_Var = 'Y') THEN
681: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_calling_sequence);
682: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Withholding(+)');
683: END IF;
684: -- End Debug
685:
686: -----------------------------------------------------
711: -- Reverses credit letter amounts
712: ----------------------------------
713: -- Debug Information
714: IF (DEBUG_Var = 'Y') THEN
715: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Undo Credit Letter');
716: END IF;
717: -- End Debug
718:
719: Undo_Credit_Letter (l_check_id,
728: P_Request_Id);
729:
730: -- Debug Information
731: IF (DEBUG_Var = 'Y') THEN
732: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Undo Credit Letter');
733: END IF;
734: -- End Debug
735: ----------------------------------
736: -- Voids Withholding Certificates
736: -- Voids Withholding Certificates
737: ----------------------------------
738: -- Debug Information
739: IF (DEBUG_Var = 'Y') THEN
740: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Procedure Jl_Ar_Ap_Void_Certificates');
741: END IF;
742: -- End Debug
743:
744: Jl_Ar_Ap_Awt_Reports_Pkg.Jl_Ar_Ap_Void_Certificates (l_payment_id,
744: Jl_Ar_Ap_Awt_Reports_Pkg.Jl_Ar_Ap_Void_Certificates (l_payment_id,
745: l_calling_sequence);
746: -- Debug Information
747: IF (DEBUG_Var = 'Y') THEN
748: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Procedure Jl_Ar_Ap_Void_Certificates');
749: END IF;
750: -- End Debug
751: -----------------------------------------------
752: -- Reverse Exemption_Amount (Global Attribute5)
758: and nvl(to_number(Global_Attribute5),0) > 0;
759:
760: -- Debug Information
761: IF (DEBUG_Var = 'Y') THEN
762: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Reverse Exemption Complete');
763: END IF;
764: -- End Debug
765:
766: -- Debug Information
764: -- End Debug
765:
766: -- Debug Information
767: IF (DEBUG_Var = 'Y') THEN
768: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Withholding(-)');
769: END IF;
770: -- End Debug
771:
772: EXCEPTION
772: EXCEPTION
773: When NO_DATA_FOUND THEN
774: -- Debug Information
775: IF (DEBUG_Var = 'Y') THEN
776: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - Jl_Ar_Ap_Undo_Withholding - No data Found');
777: END IF;
778: WHEN others THEN
779: IF (SQLCODE <> -20001) THEN
780:
779: IF (SQLCODE <> -20001) THEN
780:
781: -- Debug Information
782: IF (DEBUG_Var = 'Y') THEN
783: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - Jl_Ar_Ap_Undo_Withholding - Error:'||SQLERRM);
784: END IF;
785: -- End Debug
786: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
787: Fnd_Message.Set_Token('ERROR', SQLERRM);
835: l_calling_sequence := 'JL_AR_AP_WITHHOLDING_PKG' || '.' ||
836: 'JL_AR_AP_VOID_SELEC_CERTIF<--' || P_Calling_Sequence;
837: -- Debug Information
838: IF (DEBUG_Var = 'Y') THEN
839: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
840: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - JL_AR_AP_VOID_SELEC_CERTIF');
841: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_checkrun_name='||p_checkrun_Name);
842: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_selected_check_id='||to_char(p_selected_check_id));
843: END IF;
836: 'JL_AR_AP_VOID_SELEC_CERTIF<--' || P_Calling_Sequence;
837: -- Debug Information
838: IF (DEBUG_Var = 'Y') THEN
839: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
840: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - JL_AR_AP_VOID_SELEC_CERTIF');
841: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_checkrun_name='||p_checkrun_Name);
842: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_selected_check_id='||to_char(p_selected_check_id));
843: END IF;
844: -- End Debug
837: -- Debug Information
838: IF (DEBUG_Var = 'Y') THEN
839: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
840: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - JL_AR_AP_VOID_SELEC_CERTIF');
841: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_checkrun_name='||p_checkrun_Name);
842: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_selected_check_id='||to_char(p_selected_check_id));
843: END IF;
844: -- End Debug
845:
838: IF (DEBUG_Var = 'Y') THEN
839: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
840: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - JL_AR_AP_VOID_SELEC_CERTIF');
841: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_checkrun_name='||p_checkrun_Name);
842: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_selected_check_id='||to_char(p_selected_check_id));
843: END IF;
844: -- End Debug
845:
846: UPDATE jl_ar_ap_awt_certif
861: WHEN others THEN
862: IF (SQLCODE <> -20001) THEN
863: -- Debug Information
864: IF (DEBUG_Var = 'Y') THEN
865: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - JL_AR_AP_VOID_SELEC_CERTIF - Error:'||SQLERRM);
866: END IF;
867: -- End Debug
868: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
869: Fnd_Message.Set_Token('ERROR', SQLERRM);
931: l_calling_sequence := 'JL_AR_AP_WITHHOLDING_PKG' || '.' ||
932: 'Jl_Ar_Ap_Undo_Temp_Withholding';
933: -- Debug Information
934: IF (DEBUG_Var = 'Y') THEN
935: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
936: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(+)');
938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
939: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
932: 'Jl_Ar_Ap_Undo_Temp_Withholding';
933: -- Debug Information
934: IF (DEBUG_Var = 'Y') THEN
935: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
936: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(+)');
938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
939: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Payment_Num = '||to_char(P_Payment_Num));
933: -- Debug Information
934: IF (DEBUG_Var = 'Y') THEN
935: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
936: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(+)');
938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
939: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Payment_Num = '||to_char(P_Payment_Num));
941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
934: IF (DEBUG_Var = 'Y') THEN
935: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
936: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(+)');
938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
939: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Payment_Num = '||to_char(P_Payment_Num));
941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
942: END IF;
935: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
936: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(+)');
938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
939: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Payment_Num = '||to_char(P_Payment_Num));
941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
942: END IF;
943: -- End Debug
936: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(+)');
938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
939: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Payment_Num = '||to_char(P_Payment_Num));
941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
942: END IF;
943: -- End Debug
944:
937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(+)');
938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
939: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Invoice_Id = '||to_char(P_Invoice_Id));
940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Payment_Num = '||to_char(P_Payment_Num));
941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
942: END IF;
943: -- End Debug
944:
945: ----------------------------------
950: FETCH c_selected_invoices INTO l_selected_check_id;
951: EXIT WHEN c_selected_invoices%NOTFOUND;
952:
953: IF (DEBUG_Var = 'Y') THEN
954: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Undo_Credit_Letter');
955: END IF;
956:
957: Undo_Credit_Letter (null, -- Check Id
958: l_selected_check_id,
967:
968:
969: END LOOP;
970: IF (DEBUG_Var = 'Y') THEN
971: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Cursor c_selected_invoices');
972: END IF;
973:
974: CLOSE c_selected_invoices;
975:
984: -- Voids Withholding Certificates
985: ----------------------------------
986: -- Debug Information
987: IF (DEBUG_Var = 'Y') THEN
988: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling JL_AR_AP_VOID_SELEC_CERTIF');
989: END IF;
990: -- End Debug
991:
992:
996: l_calling_sequence);
997:
998: -- Debug Information
999: IF (DEBUG_Var = 'Y') THEN
1000: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called JL_AR_AP_VOID_SELEC_CERTIF');
1001: END IF;
1002: -- End Debug
1003: end if;
1004: */
1003: end if;
1004: */
1005: -- Debug Information
1006: IF (DEBUG_Var = 'Y') THEN
1007: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure - Jl_Ar_Ap_Undo_Temp_Withholding(-)');
1008: END IF;
1009: -- End Debug
1010:
1011: EXCEPTION
1093: 'Jl_Ar_Ap_Gen_Certificates';
1094:
1095: -- Debug Information
1096: IF (DEBUG_Var = 'Y') THEN
1097: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1098: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Jl_Ar_Ap_certificates(+)');
1099: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_payment_instruction_id = '||p_payment_instruction_id);
1100: END IF;
1101: -- End Debug
1094:
1095: -- Debug Information
1096: IF (DEBUG_Var = 'Y') THEN
1097: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1098: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Jl_Ar_Ap_certificates(+)');
1099: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_payment_instruction_id = '||p_payment_instruction_id);
1100: END IF;
1101: -- End Debug
1102:
1095: -- Debug Information
1096: IF (DEBUG_Var = 'Y') THEN
1097: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1098: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Jl_Ar_Ap_certificates(+)');
1099: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: p_payment_instruction_id = '||p_payment_instruction_id);
1100: END IF;
1101: -- End Debug
1102:
1103:
1106: ------------------------------
1107: l_debug_info := 'Generating Withholding Certificates';
1108: -- Debug Information
1109: IF (DEBUG_Var = 'Y') THEN
1110: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_debug_info);
1111: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling module '||p_CALLING_MODULE);
1112: END IF;
1113: -- End Debug
1114:
1107: l_debug_info := 'Generating Withholding Certificates';
1108: -- Debug Information
1109: IF (DEBUG_Var = 'Y') THEN
1110: JL_ZZ_AP_EXT_AWT_UTIL.Debug (l_debug_info);
1111: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling module '||p_CALLING_MODULE);
1112: END IF;
1113: -- End Debug
1114:
1115: IF p_CALLING_MODULE = 'GENERATE' THEN
1147:
1148: --Bug10012521
1149: ELSIF p_CALLING_MODULE = 'TERMINATE' THEN
1150:
1151: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling JL_AR_AP_AWT_REPORTS_PKG.jl_ar_ap_void_certificates for TERMINATE');
1152:
1153: FOR rec_terminate_pmt in c_terminate_pmt(p_payment_instruction_id) Loop
1154:
1155: JL_AR_AP_AWT_REPORTS_PKG.jl_ar_ap_void_certificates(rec_terminate_pmt.payment_id,p_calling_module);
1159: END IF;
1160:
1161: -- Debug Information
1162: IF (DEBUG_Var = 'Y') THEN
1163: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Generating Withholding Certificates');
1164: END IF;
1165: -- End Debug
1166: IF l_status then
1167: x_return_status := FND_API.G_RET_STS_SUCCESS;
1170: END IF;
1171:
1172: -- Debug Information
1173: IF (DEBUG_Var = 'Y') THEN
1174: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Jl_Ar_Ap_certificates(-)');
1175: END IF;
1176: -- End Debug
1177:
1178: EXCEPTION
1264: 'Do_AWT_Quick_Payment<--' || P_Calling_Sequence;
1265:
1266: -- Debug Information
1267: IF (DEBUG_Var = 'Y') THEN
1268: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling Sequence '||l_calling_sequence);
1269: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' PROCEDURE - Do_AWT_Quick_Payment(+)');
1270: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1271: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||P_Check_Id);
1272: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
1265:
1266: -- Debug Information
1267: IF (DEBUG_Var = 'Y') THEN
1268: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling Sequence '||l_calling_sequence);
1269: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' PROCEDURE - Do_AWT_Quick_Payment(+)');
1270: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1271: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||P_Check_Id);
1272: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
1273: END IF;
1266: -- Debug Information
1267: IF (DEBUG_Var = 'Y') THEN
1268: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling Sequence '||l_calling_sequence);
1269: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' PROCEDURE - Do_AWT_Quick_Payment(+)');
1270: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1271: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||P_Check_Id);
1272: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
1273: END IF;
1274: -- End Debug
1267: IF (DEBUG_Var = 'Y') THEN
1268: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling Sequence '||l_calling_sequence);
1269: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' PROCEDURE - Do_AWT_Quick_Payment(+)');
1270: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1271: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||P_Check_Id);
1272: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
1273: END IF;
1274: -- End Debug
1275:
1268: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling Sequence '||l_calling_sequence);
1269: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' PROCEDURE - Do_AWT_Quick_Payment(+)');
1270: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1271: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Check_Id = '||P_Check_Id);
1272: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module = '||P_Calling_Module);
1273: END IF;
1274: -- End Debug
1275:
1276: -----------------------------------
1288: where check_id = P_Check_id;
1289:
1290: -- Debug Information
1291: IF (DEBUG_Var = 'Y') THEN
1292: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Getting Payment Type Flag - '||l_payment_type);
1293: END IF;
1294: -- End Debug
1295:
1296:
1302: -- Gets Withholding Options
1303: ----------------------------
1304: -- Debug Information
1305: IF (DEBUG_Var = 'Y') THEN
1306: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Get_Withholding_Options ');
1307: END IF;
1308: -- End Debug
1309:
1310: Jl_Zz_Ap_Withholding_Pkg.Get_Withholding_Options (l_create_distr,
1322: SAVEPOINT Before_Calc_Withholding;
1323:
1324: -- Debug Information
1325: IF (DEBUG_Var = 'Y') THEN
1326: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Calculate_AWT_Amounts');
1327: END IF;
1328: -- End Debug
1329:
1330: Calculate_AWT_Amounts (P_Checkrun_Name,
1342: P_Request_Id);
1343:
1344: -- Debug Information
1345: IF (DEBUG_Var = 'Y') THEN
1346: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Called Calculate_AWT_Amounts');
1347: END IF;
1348: -- End Debug
1349: --------------------------------------------------------
1350: -- Checks whether the calculation finishes successfully
1367: -- l_payment_amount)) THEN Bug# 2807464
1368:
1369: -- Debug Information
1370: IF (DEBUG_Var = 'Y') THEN
1371: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('IF (NOT Partial_Payment_Paid_In_Full) - Function');
1372: END IF;
1373: -- End Debug
1374:
1375: ROLLBACK TO Before_Calc_Withholding;
1382: OPEN c_invoice_payment(P_Check_Id);
1383:
1384: -- Debug Information
1385: IF (DEBUG_Var = 'Y') THEN
1386: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Looping thru the cursor c_invoice_payment');
1387: END IF;
1388: -- End Debug
1389:
1390: LOOP
1394: EXIT WHEN c_invoice_payment%NOTFOUND;
1395:
1396: -- Debug Information
1397: IF (DEBUG_Var = 'Y') THEN
1398: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id'||to_char(l_invoice_id));
1399: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_inv_curr_code'||l_inv_curr_code);
1400: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num'||to_char(l_payment_num));
1401: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Ap_Withholding_Pkg.Create_AWT_Distributions');
1402: END IF;
1395:
1396: -- Debug Information
1397: IF (DEBUG_Var = 'Y') THEN
1398: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id'||to_char(l_invoice_id));
1399: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_inv_curr_code'||l_inv_curr_code);
1400: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num'||to_char(l_payment_num));
1401: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Ap_Withholding_Pkg.Create_AWT_Distributions');
1402: END IF;
1403: -- End Debug
1396: -- Debug Information
1397: IF (DEBUG_Var = 'Y') THEN
1398: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id'||to_char(l_invoice_id));
1399: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_inv_curr_code'||l_inv_curr_code);
1400: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num'||to_char(l_payment_num));
1401: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Ap_Withholding_Pkg.Create_AWT_Distributions');
1402: END IF;
1403: -- End Debug
1404:
1397: IF (DEBUG_Var = 'Y') THEN
1398: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id'||to_char(l_invoice_id));
1399: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_inv_curr_code'||l_inv_curr_code);
1400: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num'||to_char(l_payment_num));
1401: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Ap_Withholding_Pkg.Create_AWT_Distributions');
1402: END IF;
1403: -- End Debug
1404:
1405: -----------------------------------------
1423: -- Payment Exchange Rate ER 8648739 End
1424:
1425: -- Debug Information
1426: IF (DEBUG_Var = 'Y') THEN
1427: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Called Ap_Withholding_Pkg.Create_AWT_Distributions');
1428: END IF;
1429: -- End Debug
1430:
1431:
1436: IF (l_create_invoices = 'PAYMENT') THEN
1437:
1438: -- Debug Information
1439: IF (DEBUG_Var = 'Y') THEN
1440: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Ap_Withholding_Pkg.Create_AWT_Invoices');
1441: END IF;
1442: -- End Debug
1443:
1444: Ap_Withholding_Pkg.Create_AWT_Invoices
1453: --P_Calling_Module); -- bug 6835131 - No change in AP pkg for branchline, only in mainline
1454:
1455: -- Debug Information
1456: IF (DEBUG_Var = 'Y') THEN
1457: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Called Ap_Withholding_Pkg.Create_AWT_Invoices');
1458: END IF;
1459: -- End Debug
1460:
1461:
1464: END LOOP;
1465:
1466: -- Debug Information
1467: IF (DEBUG_Var = 'Y') THEN
1468: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Close c_invoice_payment');
1469: END IF;
1470: -- End Debug
1471:
1472: CLOSE c_invoice_payment;
1476: -- Quick Payment
1477: ---------------------------------------------
1478: -- Debug Information
1479: IF (DEBUG_Var = 'Y') THEN
1480: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Update_Quick_Payment');
1481: END IF;
1482: -- End Debug
1483:
1484: Update_Quick_Payment (P_Check_Id,
1485: l_calling_sequence);
1486:
1487: -- Debug Information
1488: IF (DEBUG_Var = 'Y') THEN
1489: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' PROCEDURE - Do_AWT_Quick_Payment(-)');
1490: END IF;
1491: -- End Debug
1492:
1493: EXCEPTION
1577: 'Do_AWT_Build_Payment_Batch<--' || P_Calling_Sequence;
1578:
1579: -- Debug Information
1580: IF (DEBUG_Var = 'Y') THEN
1581: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1582: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
1583: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE - Do_AWT_Build_Payment_Batch(+)');
1584: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name '||P_Checkrun_Name);
1585: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_ID '||to_number(P_Checkrun_ID));
1578:
1579: -- Debug Information
1580: IF (DEBUG_Var = 'Y') THEN
1581: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1582: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
1583: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE - Do_AWT_Build_Payment_Batch(+)');
1584: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name '||P_Checkrun_Name);
1585: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_ID '||to_number(P_Checkrun_ID));
1586: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module '||P_Calling_Module);
1579: -- Debug Information
1580: IF (DEBUG_Var = 'Y') THEN
1581: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1582: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
1583: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE - Do_AWT_Build_Payment_Batch(+)');
1584: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name '||P_Checkrun_Name);
1585: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_ID '||to_number(P_Checkrun_ID));
1586: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module '||P_Calling_Module);
1587: END IF;
1580: IF (DEBUG_Var = 'Y') THEN
1581: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1582: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
1583: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE - Do_AWT_Build_Payment_Batch(+)');
1584: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name '||P_Checkrun_Name);
1585: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_ID '||to_number(P_Checkrun_ID));
1586: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module '||P_Calling_Module);
1587: END IF;
1588: -- End Debug
1581: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1582: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
1583: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE - Do_AWT_Build_Payment_Batch(+)');
1584: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name '||P_Checkrun_Name);
1585: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_ID '||to_number(P_Checkrun_ID));
1586: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module '||P_Calling_Module);
1587: END IF;
1588: -- End Debug
1589:
1582: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
1583: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE - Do_AWT_Build_Payment_Batch(+)');
1584: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name '||P_Checkrun_Name);
1585: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_ID '||to_number(P_Checkrun_ID));
1586: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Calling_Module '||P_Calling_Module);
1587: END IF;
1588: -- End Debug
1589:
1590: -----------------------------------
1597: ----------------------------
1598:
1599: -- Debug Information
1600: IF (DEBUG_Var = 'Y') THEN
1601: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Get_Withholding_Options ');
1602: END IF;
1603: -- End Debug
1604:
1605: Jl_Zz_Ap_Withholding_Pkg.Get_Withholding_Options (l_create_distr,
1606: l_create_invoices);
1607:
1608: -- Debug Information
1609: IF (DEBUG_Var = 'Y') THEN
1610: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Withh Options: create_dist and create_invoices: '||l_create_distr||', '||l_create_invoices);
1611: END IF;
1612: -- End Debug
1613:
1614: IF (l_create_distr <> 'PAYMENT') THEN
1639: OPEN c_selected_checks (P_Checkrun_Name);
1640:
1641: -- Debug Information
1642: IF (DEBUG_Var = 'Y') THEN
1643: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Looping thru c_selected_checks');
1644: END IF;
1645: -- End Debug
1646:
1647: LOOP
1655: SAVEPOINT Before_Calc_Withholding;
1656:
1657: -- Debug Information
1658: IF (DEBUG_Var = 'Y') THEN
1659: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Calculate_AWT_Amounts');
1660: END IF;
1661: -- End Debug
1662:
1663: Calculate_AWT_Amounts (P_Checkrun_Name,
1675: P_Request_Id);
1676:
1677: -- Debug Information
1678: IF (DEBUG_Var = 'Y') THEN
1679: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('After Called Calculate_AWT_Amounts');
1680: END IF;
1681: -- End Debug
1682:
1683: --------------------------------------------------------
1685: --------------------------------------------------------
1686: IF (P_AWT_Success <> AWT_SUCCESS) THEN
1687: -- Debug Information
1688: IF (DEBUG_Var = 'Y') THEN
1689: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Reject_Payment_Batch - P_AWT_Success <> AWT_SUCCESS ');
1690: END IF;
1691: -- End Debug
1692:
1693: Reject_Payment_Batch (rec_selected_checks.payment_id,
1709: -- AND l_payment_amount > 0 THEN --- Bug 2157401 Bug# 2807464
1710:
1711: -- Debug Information
1712: IF (DEBUG_Var = 'Y') THEN
1713: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling - NOT Partial_Payment_Paid_In_Full');
1714: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ROLLBACK TO Before_Calc_Withholding');
1715: END IF;
1716: -- End Debug
1717:
1710:
1711: -- Debug Information
1712: IF (DEBUG_Var = 'Y') THEN
1713: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling - NOT Partial_Payment_Paid_In_Full');
1714: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ROLLBACK TO Before_Calc_Withholding');
1715: END IF;
1716: -- End Debug
1717:
1718: ROLLBACK TO Before_Calc_Withholding;
1722: P_AWT_Success := Fnd_Message.Get;
1723:
1724: -- Debug Information
1725: IF (DEBUG_Var = 'Y') THEN
1726: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Reject_Payment_Batch - NOT Pay_in_Full');
1727: END IF;
1728: -- End Debug
1729:
1730: Reject_Payment_Batch (rec_selected_checks.payment_id,
1738: ELSE
1739:
1740: -- Debug Information
1741: IF (DEBUG_Var = 'Y') THEN
1742: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Update_Payment_Batch');
1743: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1744: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: rec_selected_checks.selected_check_id = '||
1745: to_char(rec_selected_checks.payment_id));
1746: END IF;
1739:
1740: -- Debug Information
1741: IF (DEBUG_Var = 'Y') THEN
1742: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Update_Payment_Batch');
1743: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1744: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: rec_selected_checks.selected_check_id = '||
1745: to_char(rec_selected_checks.payment_id));
1746: END IF;
1747: -- End Debug
1740: -- Debug Information
1741: IF (DEBUG_Var = 'Y') THEN
1742: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Update_Payment_Batch');
1743: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: P_Checkrun_Name = '||P_Checkrun_Name);
1744: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter: rec_selected_checks.selected_check_id = '||
1745: to_char(rec_selected_checks.payment_id));
1746: END IF;
1747: -- End Debug
1748:
1756: END LOOP;
1757:
1758: -- Debug Information
1759: IF (DEBUG_Var = 'Y') THEN
1760: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Close Cursor c_selected_checks');
1761: END IF;
1762: -- End Debug
1763:
1764: CLOSE c_selected_checks;
1764: CLOSE c_selected_checks;
1765:
1766: -- Debug Information
1767: IF (DEBUG_Var = 'Y') THEN
1768: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' P_AWT_Success ='||P_AWT_Success);
1769: END IF;
1770: -- End Debug
1771:
1772: P_AWT_Success := AWT_SUCCESS;
1772: P_AWT_Success := AWT_SUCCESS;
1773:
1774: -- Debug Information
1775: IF (DEBUG_Var = 'Y') THEN
1776: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE - Do_AWT_Build_Payment_Batch(-)');
1777: END IF;
1778: -- End Debug
1779:
1780: EXCEPTION
1780: EXCEPTION
1781: WHEN others THEN
1782: -- Debug Information
1783: IF (DEBUG_Var = 'Y') THEN
1784: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Error Do_AWT_Build_Payment_Batch= '||SQLERRM);
1785: END IF;
1786: -- End Debug
1787:
1788: IF (SQLCODE <> -20001) THEN
1891: P_Calling_Sequence;
1892:
1893: -- Debug Information
1894: IF (DEBUG_Var = 'Y') THEN
1895: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1896: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Do_AWT_Confirm_Payment_Batch(+)'||
1897: 'Parameter: P_Checkrun_Name = '||P_Checkrun_Name||
1898: 'Parameter: P_Calling_Module = '||P_Calling_Module||
1899: 'Parameter: P_Calling_Sequence = '||P_Calling_Sequence||
1892:
1893: -- Debug Information
1894: IF (DEBUG_Var = 'Y') THEN
1895: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
1896: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Do_AWT_Confirm_Payment_Batch(+)'||
1897: 'Parameter: P_Checkrun_Name = '||P_Checkrun_Name||
1898: 'Parameter: P_Calling_Module = '||P_Calling_Module||
1899: 'Parameter: P_Calling_Sequence = '||P_Calling_Sequence||
1900: 'Parameter: P_Checkrun_ID = '||to_char(P_Checkrun_ID));
1912: OPEN c_selected_invoices (P_Checkrun_ID);
1913:
1914: -- Debug Information
1915: IF (DEBUG_Var = 'Y') THEN
1916: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Looping Thru c_selected_invoices');
1917: END IF;
1918: -- End Debug
1919:
1920: LOOP
1922: EXIT WHEN c_selected_invoices%NOTFOUND;
1923:
1924: -- Debug Information
1925: IF (DEBUG_Var = 'Y') THEN
1926: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1927: (' Fetched Values: rec_sel_inv.invoice_id: '||to_char(rec_sel_inv.invoice_id));
1928: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1929: (' Fetched Values: rec_sel_inv.payment_num: '||to_char(rec_sel_inv.payment_num));
1930: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1924: -- Debug Information
1925: IF (DEBUG_Var = 'Y') THEN
1926: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1927: (' Fetched Values: rec_sel_inv.invoice_id: '||to_char(rec_sel_inv.invoice_id));
1928: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1929: (' Fetched Values: rec_sel_inv.payment_num: '||to_char(rec_sel_inv.payment_num));
1930: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1931: (' Fetched Values: rec_sel_inv.invoice_curr_code: '||rec_sel_inv.invoice_curr_code);
1932: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1926: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1927: (' Fetched Values: rec_sel_inv.invoice_id: '||to_char(rec_sel_inv.invoice_id));
1928: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1929: (' Fetched Values: rec_sel_inv.payment_num: '||to_char(rec_sel_inv.payment_num));
1930: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1931: (' Fetched Values: rec_sel_inv.invoice_curr_code: '||rec_sel_inv.invoice_curr_code);
1932: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1933: (' Fetched Values: rec_sel_inv.payment_date: '||rec_sel_inv.payment_date);
1934: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1928: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1929: (' Fetched Values: rec_sel_inv.payment_num: '||to_char(rec_sel_inv.payment_num));
1930: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1931: (' Fetched Values: rec_sel_inv.invoice_curr_code: '||rec_sel_inv.invoice_curr_code);
1932: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1933: (' Fetched Values: rec_sel_inv.payment_date: '||rec_sel_inv.payment_date);
1934: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1935: (' Fetched Values: rec_sel_inv.org_id: '||to_char(rec_sel_inv.org_id));
1936: END IF;
1930: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1931: (' Fetched Values: rec_sel_inv.invoice_curr_code: '||rec_sel_inv.invoice_curr_code);
1932: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1933: (' Fetched Values: rec_sel_inv.payment_date: '||rec_sel_inv.payment_date);
1934: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1935: (' Fetched Values: rec_sel_inv.org_id: '||to_char(rec_sel_inv.org_id));
1936: END IF;
1937: -- End Debug
1938:
1941: ----------------------------
1942:
1943: -- Debug Information
1944: IF (DEBUG_Var = 'Y') THEN
1945: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Get_Withholding_Options ');
1946: END IF;
1947: -- End Debug
1948:
1949: --Jl_Zz_Ap_Withholding_Pkg.Get_Withholding_Options (l_create_distr,
1957: WHERE org_id = rec_sel_inv.org_id;
1958:
1959: -- Debug Information
1960: IF (DEBUG_Var = 'Y') THEN
1961: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1962: ('Withholding Opt: l_crte_dst and l_crte_inv: '||l_create_distr||', '||l_create_invoices);
1963: END IF;
1964: -- End Debug
1965:
1982: -----------------------------------------
1983:
1984: -- Debug Information
1985: IF (DEBUG_Var = 'Y') THEN
1986: JL_ZZ_AP_EXT_AWT_UTIL.Debug
1987: ('==> Calling Ap_Withholding_Pkg.Create_AWT_Distributions');
1988: END IF;
1989: -- End Debug
1990:
2002: l_calling_sequence);
2003:
2004: -- Debug Information
2005: IF (DEBUG_Var = 'Y') THEN
2006: JL_ZZ_AP_EXT_AWT_UTIL.Debug
2007: ('After Called Ap_Withholding_Pkg.Create_AWT_Distributions');
2008: END IF;
2009: -- End Debug
2010:
2014: IF (l_create_invoices = 'PAYMENT') THEN
2015:
2016: -- Debug Information
2017: IF (DEBUG_Var = 'Y') THEN
2018: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Ap_Withholding_Pkg.Create_AWT_Invoices');
2019: END IF;
2020: -- End Debug
2021:
2022: Ap_Withholding_Pkg.Create_AWT_Invoices
2035: END LOOP;
2036:
2037: -- Debug Information
2038: IF (DEBUG_Var = 'Y') THEN
2039: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Close Cursor c_selected_invoices');
2040: END IF;
2041: -- End Debug
2042:
2043: CLOSE c_selected_invoices;
2046: -- Confirms credit letters
2047: ---------------------------
2048: -- Debug Information
2049: IF (DEBUG_Var = 'Y') THEN
2050: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Confirm_Credit_Letters');
2051: END IF;
2052: -- End Debug
2053:
2054: Confirm_Credit_Letters (P_Checkrun_Name,P_Checkrun_ID, l_calling_sequence);
2054: Confirm_Credit_Letters (P_Checkrun_Name,P_Checkrun_ID, l_calling_sequence);
2055:
2056: -- Debug Information
2057: IF (DEBUG_Var = 'Y') THEN
2058: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Do_AWT_Confirm_Payment_Batch (-)');
2059: END IF;
2060: -- End Debug
2061:
2062: EXCEPTION
2062: EXCEPTION
2063: WHEN others THEN
2064: -- Debug Information
2065: IF (DEBUG_Var = 'Y') THEN
2066: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Confirm ERROR: '||SQLERRM);
2067: END IF;
2068: -- end debug
2069:
2070: IF (SQLCODE <> -20001) THEN
2323: 'Calculate_AWT_Amounts<--' || P_Calling_Sequence;
2324:
2325: -- Debug Information
2326: IF (DEBUG_Var = 'Y') THEN
2327: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
2328: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2329: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_AWT_Amounts(+)');
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2324:
2325: -- Debug Information
2326: IF (DEBUG_Var = 'Y') THEN
2327: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
2328: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2329: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_AWT_Amounts(+)');
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2325: -- Debug Information
2326: IF (DEBUG_Var = 'Y') THEN
2327: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
2328: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2329: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_AWT_Amounts(+)');
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2333: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date : '||to_char(P_AWT_Date,'YYYY/MM/DD'));
2326: IF (DEBUG_Var = 'Y') THEN
2327: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
2328: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2329: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_AWT_Amounts(+)');
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2333: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date : '||to_char(P_AWT_Date,'YYYY/MM/DD'));
2334: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module : '||P_Calling_Module);
2327: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
2328: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2329: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_AWT_Amounts(+)');
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2333: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date : '||to_char(P_AWT_Date,'YYYY/MM/DD'));
2334: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module : '||P_Calling_Module);
2335: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2328: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2329: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_AWT_Amounts(+)');
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2333: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date : '||to_char(P_AWT_Date,'YYYY/MM/DD'));
2334: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module : '||P_Calling_Module);
2335: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2336: END IF;
2329: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_AWT_Amounts(+)');
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2333: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date : '||to_char(P_AWT_Date,'YYYY/MM/DD'));
2334: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module : '||P_Calling_Module);
2335: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2336: END IF;
2337: -- End Debug
2330: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Name : '||P_Checkrun_Name);
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2333: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date : '||to_char(P_AWT_Date,'YYYY/MM/DD'));
2334: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module : '||P_Calling_Module);
2335: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2336: END IF;
2337: -- End Debug
2338:
2331: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id : '||to_char(P_Check_Id));
2332: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id : '||to_char(P_Selected_Check_Id));
2333: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date : '||to_char(P_AWT_Date,'YYYY/MM/DD'));
2334: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module : '||P_Calling_Module);
2335: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2336: END IF;
2337: -- End Debug
2338:
2339:
2355: (P_AWT_Date);
2356:
2357: -- Debug Information
2358: IF (DEBUG_Var = 'Y') THEN
2359: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Generic Parameters: l_base_currency_code: '||l_base_currency_code);
2360: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Generic Parameters: l_gl_period_name: '||l_gl_period_name);
2361: END IF;
2362: -- End Debug
2363:
2356:
2357: -- Debug Information
2358: IF (DEBUG_Var = 'Y') THEN
2359: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Generic Parameters: l_base_currency_code: '||l_base_currency_code);
2360: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Generic Parameters: l_gl_period_name: '||l_gl_period_name);
2361: END IF;
2362: -- End Debug
2363:
2364:
2368: -------------------------------------------------------------
2369:
2370: -- Debug Information
2371: IF (DEBUG_Var = 'Y') THEN
2372: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Calculate_Taxable_Base_Amounts');
2373: END IF;
2374: -- End Debug
2375:
2376: Calculate_Taxable_Base_Amounts (P_Check_Id,
2381: l_calling_sequence);
2382:
2383: -- Debug Information
2384: IF (DEBUG_Var = 'Y') THEN
2385: JL_ZZ_AP_EXT_AWT_UTIL.Debug('After Called Calculate_Taxable_Base_Amounts');
2386: END IF;
2387: -- End Debug
2388:
2389: -------------------------------------------------------
2400: OPEN c_payment_withholdings (P_Check_Id);
2401:
2402: -- Debug Information
2403: IF (DEBUG_Var = 'Y') THEN
2404: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Open Cursor c_payment_withholdings for Quick Payments');
2405: END IF;
2406: -- End Debug
2407:
2408:
2411: IF (c_payment_withholdings%NOTFOUND) THEN
2412:
2413: -- Debug Information
2414: IF (DEBUG_Var = 'Y') THEN
2415: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('No rows in the cursor c_payment_withholdings');
2416: END IF;
2417: -- End Debug
2418: RETURN;
2419: END IF;
2422: OPEN c_payment_batch_withholdings (P_Selected_Check_Id);
2423:
2424: -- Debug Information
2425: IF (DEBUG_Var = 'Y') THEN
2426: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Open Cursor c_payment_batch_withholdings for AutoSelect');
2427: END IF;
2428: -- End Debug
2429:
2430: FETCH c_payment_batch_withholdings INTO rec_payment_wh;
2432: IF (c_payment_batch_withholdings%NOTFOUND) THEN
2433:
2434: -- Debug Information
2435: IF (DEBUG_Var = 'Y') THEN
2436: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('No rows in the cursor c_payment_batch_withholdings');
2437: END IF;
2438: -- End Debug
2439: RETURN;
2440: END IF;
2443: END IF; -- End if (P_Calling_Module = 'QUICKCHECK')
2444:
2445: -- Debug Information
2446: IF (DEBUG_Var = 'Y') THEN
2447: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2448: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2449: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2450: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2444:
2445: -- Debug Information
2446: IF (DEBUG_Var = 'Y') THEN
2447: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2448: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2449: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2450: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2445: -- Debug Information
2446: IF (DEBUG_Var = 'Y') THEN
2447: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2448: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2449: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2450: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2446: IF (DEBUG_Var = 'Y') THEN
2447: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2448: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2449: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2450: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2447: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2448: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2449: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2450: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2449: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2450: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2456: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2457: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2450: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2456: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2457: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2458: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2451: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2456: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2457: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2458: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2459: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2452: to_char(rec_payment_wh.invoice_distribution_id ));
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2456: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2457: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2458: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2459: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2460: END IF;
2453: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2456: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2457: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2458: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2459: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2460: END IF;
2461: -- End Debug
2454: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2456: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2457: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2458: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2459: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2460: END IF;
2461: -- End Debug
2462:
2455: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2456: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2457: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2458: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2459: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2460: END IF;
2461: -- End Debug
2462:
2463: ---------------------------------------
2475: -------------------------------------------
2476:
2477: -- Debug Information
2478: IF (DEBUG_Var = 'Y') THEN
2479: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Initialize_Withholdings');
2480: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2481: END IF;
2482: -- End Debug
2483:
2476:
2477: -- Debug Information
2478: IF (DEBUG_Var = 'Y') THEN
2479: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('==> Calling Initialize_Withholdings');
2480: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2481: END IF;
2482: -- End Debug
2483:
2484: /*
2501: FROM ap_inv_selection_criteria_all apsc
2502: WHERE apsc.checkrun_id = p_checkrun_id;
2503: END IF;
2504: -- Argentina AWT ER
2505: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('l_CODE_ACCOUNTING_DATE= '||to_char(l_CODE_ACCOUNTING_DATE));
2506:
2507: -- Debug Information
2508: IF (DEBUG_Var = 'Y') THEN
2509: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling Initialize_Withholdings');
2505: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('l_CODE_ACCOUNTING_DATE= '||to_char(l_CODE_ACCOUNTING_DATE));
2506:
2507: -- Debug Information
2508: IF (DEBUG_Var = 'Y') THEN
2509: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Calling Initialize_Withholdings');
2510: END IF;
2511: -- End Debug
2512:
2513: Initialize_Withholdings (rec_payment_wh.vendor_id,
2522: l_CODE_ACCOUNTING_DATE); -- Argentina AWT ER 6624809,change for payment date
2523:
2524: -- Debug Information
2525: IF (DEBUG_Var = 'Y') THEN
2526: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Initialize_Withholdings');
2527: END IF;
2528: -- End Debug
2529:
2530: l_current_awt := 0;
2535: -- tax name associated to the payment
2536: --------------------------------------------
2537: -- Debug Information
2538: IF (DEBUG_Var = 'Y') THEN
2539: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Loop for each withholding tax type and tax name associated to the payment');
2540: END IF;
2541: -- End Debug
2542:
2543: LOOP
2557: -----------------------------------------------------
2558:
2559: -- Debug Information
2560: IF (DEBUG_Var = 'Y') THEN
2561: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name when l_not_found');
2562: END IF;
2563: -- End Debug
2564:
2565: Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name
2576: P_AWT_Success);
2577:
2578: -- Debug Information
2579: IF (DEBUG_Var = 'Y') THEN
2580: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name when l_not_found');
2581: END IF;
2582: -- End Debug
2583:
2584: IF (P_AWT_Success <> AWT_SUCCESS) THEN
2592: -- inserts temporary distribution lines
2593: ------------------------------------------------------
2594: -- Debug Information
2595: IF (DEBUG_Var = 'Y') THEN
2596: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Process_Withholdings when l_not_found');
2597: END IF;
2598: -- End Debug
2599:
2600: Process_Withholdings (l_current_vendor_id,
2621:
2622:
2623: -- Debug Information
2624: IF (DEBUG_Var = 'Y') THEN
2625: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Process_Withholdings when l_not_found');
2626: END IF;
2627: -- End Debug
2628:
2629: IF (P_AWT_Success <> AWT_SUCCESS) THEN
2647: ------------------------------------------------
2648:
2649: -- Debug Information
2650: IF (DEBUG_Var = 'Y') THEN
2651: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name IN ');
2652: END IF;
2653: -- End Debug
2654:
2655: Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name
2666: P_AWT_Success);
2667:
2668: -- Debug Information
2669: IF (DEBUG_Var = 'Y') THEN
2670: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name IN ELSIF');
2671: END IF;
2672: -- End Debug
2673:
2674: IF (P_AWT_Success <> AWT_SUCCESS) THEN
2683: ------------------------------------------------------
2684:
2685: -- Debug Information
2686: IF (DEBUG_Var = 'Y') THEN
2687: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Process_Withholdings IN ELSIF');
2688: END IF;
2689: -- End Debug
2690:
2691: Process_Withholdings (l_current_vendor_id,
2711: rec_payment_wh.payment_num);
2712:
2713: -- Debug Information
2714: IF (DEBUG_Var = 'Y') THEN
2715: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Process_Withholdings IN ELSIF');
2716: END IF;
2717: -- End Debug
2718:
2719:
2729: -------------------------------------------
2730:
2731: -- Debug Information
2732: IF (DEBUG_Var = 'Y') THEN
2733: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Initialize_Withholdings IN ELSIF');
2734: END IF;
2735: -- End Debug
2736:
2737: --bug 14018398: Start
2748: FROM ap_inv_selection_criteria_all apsc
2749: WHERE apsc.checkrun_id = p_checkrun_id;
2750: END IF;
2751: -- Argentina AWT ER
2752: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('l_CODE_ACCOUNTING_DATE= '||to_char(l_CODE_ACCOUNTING_DATE));
2753:
2754: --bug 14018398: End
2755:
2756: Initialize_Withholdings (rec_payment_wh.vendor_id,
2765: l_CODE_ACCOUNTING_DATE); --bug 14018398
2766:
2767: -- Debug Information
2768: IF (DEBUG_Var = 'Y') THEN
2769: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Initialize_Withholdings IN ELSIF');
2770: END IF;
2771: -- End Debug
2772:
2773: ----------------------------------
2780: l_previous_invoice_id := rec_payment_wh.invoice_id;
2781:
2782: -- Debug Information
2783: IF (DEBUG_Var = 'Y') THEN
2784: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_awt_type_code = '||l_previous_awt_type_code);
2785: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_tax_id = '||to_char(l_previous_tax_id));
2786: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
2787: END IF;
2788: -- End Debug
2781:
2782: -- Debug Information
2783: IF (DEBUG_Var = 'Y') THEN
2784: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_awt_type_code = '||l_previous_awt_type_code);
2785: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_tax_id = '||to_char(l_previous_tax_id));
2786: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
2787: END IF;
2788: -- End Debug
2789:
2782: -- Debug Information
2783: IF (DEBUG_Var = 'Y') THEN
2784: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_awt_type_code = '||l_previous_awt_type_code);
2785: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_tax_id = '||to_char(l_previous_tax_id));
2786: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Aux Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
2787: END IF;
2788: -- End Debug
2789:
2790:
2798: ------------------------------------------------
2799:
2800: -- Debug Information
2801: IF (DEBUG_Var = 'Y') THEN
2802: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name when <> Tax Name');
2803: END IF;
2804: -- End Debug
2805: Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name
2806: (l_current_vendor_id,
2816: P_AWT_Success);
2817:
2818: -- Debug Information
2819: IF (DEBUG_Var = 'Y') THEN
2820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Name when Tax Name Changed');
2821: END IF;
2822: -- End Debug
2823:
2824: IF (P_AWT_Success <> AWT_SUCCESS) THEN
2832: ---------------------------------------------
2833:
2834: -- Debug Information
2835: IF (DEBUG_Var = 'Y') THEN
2836: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Initialize_Withholding_Name. Getting Tax Code Info');
2837: END IF;
2838: -- End Debug
2839:
2840: Jl_Zz_Ap_Withholding_Pkg.Initialize_Withholding_Name
2849: -----------------------------------
2850:
2851: -- Debug Information
2852: IF (DEBUG_Var = 'Y') THEN
2853: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Initializes auxiliary variables: l_previous_tax_id = '||to_char(l_previous_tax_id));
2854: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Initializes auxiliary variables: l_initial_awt = '||to_char(l_initial_awt));
2855: END IF;
2856: -- End Debug
2857:
2850:
2851: -- Debug Information
2852: IF (DEBUG_Var = 'Y') THEN
2853: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Initializes auxiliary variables: l_previous_tax_id = '||to_char(l_previous_tax_id));
2854: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Initializes auxiliary variables: l_initial_awt = '||to_char(l_initial_awt));
2855: END IF;
2856: -- End Debug
2857:
2858: l_previous_tax_id := rec_payment_wh.tax_id;
2865: ---------------------------------------
2866:
2867: -- Debug Information
2868: IF (DEBUG_Var = 'Y') THEN
2869: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Exit if there are NO more taxes');
2870: END IF;
2871: -- End Debug
2872:
2873: EXIT WHEN l_not_found;
2886: l_calling_sequence)) THEN
2887:
2888: -- Debug Information
2889: IF (DEBUG_Var = 'Y') THEN
2890: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' IF(NOT Withholding_Already_Calculated - rec_awt_name.name: '||rec_awt_name.name);
2891: END IF;
2892: -- End Debug
2893:
2894: -------------------------------------
2907: l_calling_sequence);
2908:
2909: -- Debug Information
2910: IF (DEBUG_Var = 'Y') THEN
2911: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Got Taxable Base Amount for invoice_id = '||
2912: to_char(rec_payment_wh.invoice_id)||' = '||to_char(l_tax_base_amt));
2913: END IF;
2914: -- End Debug
2915:
2921: l_current_awt := l_current_awt + 1;
2922:
2923: -- Debug Information
2924: IF (DEBUG_Var = 'Y') THEN
2925: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Increate l_current_awt = '||to_char(l_current_awt));
2926: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==>Calling Jl_Zz_Ap_Withholding_Pkg.Store_Tax_Name');
2927: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Invoice_id = '||to_char(rec_payment_wh.invoice_id)||' - '||
2928: 'Tax_id = '||to_char(rec_payment_wh.tax_id)||' - '||
2929: 'Tax Name = '||rec_awt_name.name);
2922:
2923: -- Debug Information
2924: IF (DEBUG_Var = 'Y') THEN
2925: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Increate l_current_awt = '||to_char(l_current_awt));
2926: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==>Calling Jl_Zz_Ap_Withholding_Pkg.Store_Tax_Name');
2927: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Invoice_id = '||to_char(rec_payment_wh.invoice_id)||' - '||
2928: 'Tax_id = '||to_char(rec_payment_wh.tax_id)||' - '||
2929: 'Tax Name = '||rec_awt_name.name);
2930: END IF;
2923: -- Debug Information
2924: IF (DEBUG_Var = 'Y') THEN
2925: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Increate l_current_awt = '||to_char(l_current_awt));
2926: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==>Calling Jl_Zz_Ap_Withholding_Pkg.Store_Tax_Name');
2927: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Invoice_id = '||to_char(rec_payment_wh.invoice_id)||' - '||
2928: 'Tax_id = '||to_char(rec_payment_wh.tax_id)||' - '||
2929: 'Tax Name = '||rec_awt_name.name);
2930: END IF;
2931: -- End Debug
2948: rec_payment_wh.payment_num);
2949:
2950: -- Debug Information
2951: IF (DEBUG_Var = 'Y') THEN
2952: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Store_Tax_Name');
2953: END IF;
2954: -- End Debug
2955:
2956: END IF; -- NOT Withholding_Already_Calculated
2965: END IF;
2966:
2967: -- Debug Information
2968: IF (DEBUG_Var = 'Y') THEN
2969: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2970: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2971: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2972: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2966:
2967: -- Debug Information
2968: IF (DEBUG_Var = 'Y') THEN
2969: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2970: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2971: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2972: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2967: -- Debug Information
2968: IF (DEBUG_Var = 'Y') THEN
2969: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2970: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2971: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2972: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2968: IF (DEBUG_Var = 'Y') THEN
2969: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2970: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2971: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2972: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2969: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: awt_type_code= '||rec_payment_wh.awt_type_code);
2970: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_id= '||to_char(rec_payment_wh.tax_id));
2971: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2972: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2971: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_id= '||to_char(rec_payment_wh.invoice_id));
2972: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2978: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2979: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2972: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: vendor_id= '||to_char(rec_payment_wh.vendor_id));
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2978: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2979: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2980: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2973: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_distribution_id = '||
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2978: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2979: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2980: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2981: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2974: to_char(rec_payment_wh.invoice_distribution_id ));
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2978: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2979: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2980: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2981: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2982: END IF;
2975: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_amount= '||to_char(rec_payment_wh.invoice_amount));
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2978: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2979: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2980: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2981: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2982: END IF;
2983: -- End Debug
2976: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: line_amount= '||to_char(rec_payment_wh.line_amount));
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2978: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2979: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2980: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2981: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2982: END IF;
2983: -- End Debug
2984:
2977: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_payment_wh.payment_amount));
2978: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: invoice_payment_id= '||to_char(rec_payment_wh.invoice_payment_id));
2979: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_payment_wh.payment_num));
2980: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: tax_base_amount_basis= '||rec_payment_wh.tax_base_amount_basis);
2981: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
2982: END IF;
2983: -- End Debug
2984:
2985: END LOOP;
2990: IF (P_Calling_Module = 'QUICKCHECK') THEN
2991:
2992: -- Debug Information
2993: IF (DEBUG_Var = 'Y') THEN
2994: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Close Cursor c_payment_withholdings');
2995: END IF;
2996: -- End Debug
2997: CLOSE c_payment_withholdings;
2998:
2999: ELSIF (P_Calling_Module = 'AUTOSELECT') THEN
3000:
3001: -- Debug Information
3002: IF (DEBUG_Var = 'Y') THEN
3003: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Close Cursor c_payment_batch_withholdings');
3004: END IF;
3005: -- End Debug
3006: CLOSE c_payment_batch_withholdings;
3007:
3012: ------------------------
3013:
3014: -- Debug Information
3015: IF (DEBUG_Var = 'Y') THEN
3016: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('P_Total_Wh_Amount: '||l_total_wh_amount);
3017: END IF;
3018: -- End Debug
3019:
3020: P_Total_Wh_Amount := l_total_wh_amount;
3020: P_Total_Wh_Amount := l_total_wh_amount;
3021:
3022: -- Debug Information
3023: IF (DEBUG_Var = 'Y') THEN
3024: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(tab_payment_wh);
3025: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_all_wh(tab_all_wh);
3026: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procudure Calculate_AWT_Amounts(-) ');
3027: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3028: END IF;
3021:
3022: -- Debug Information
3023: IF (DEBUG_Var = 'Y') THEN
3024: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(tab_payment_wh);
3025: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_all_wh(tab_all_wh);
3026: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procudure Calculate_AWT_Amounts(-) ');
3027: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3028: END IF;
3029: -- End Debug
3022: -- Debug Information
3023: IF (DEBUG_Var = 'Y') THEN
3024: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(tab_payment_wh);
3025: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_all_wh(tab_all_wh);
3026: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procudure Calculate_AWT_Amounts(-) ');
3027: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3028: END IF;
3029: -- End Debug
3030:
3023: IF (DEBUG_Var = 'Y') THEN
3024: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(tab_payment_wh);
3025: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_all_wh(tab_all_wh);
3026: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procudure Calculate_AWT_Amounts(-) ');
3027: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3028: END IF;
3029: -- End Debug
3030:
3031: EXCEPTION
3080: 'Initialize_Withholdings<--' || P_Calling_Sequence;
3081:
3082: -- Debug Information
3083: IF (DEBUG_Var = 'Y') THEN
3084: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3085: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procudure Initialize_Withholdings(+)');
3086: END IF;
3087: -- End Debug
3088:
3081:
3082: -- Debug Information
3083: IF (DEBUG_Var = 'Y') THEN
3084: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3085: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procudure Initialize_Withholdings(+)');
3086: END IF;
3087: -- End Debug
3088:
3089: -----------------------------------------
3089: -----------------------------------------
3090: -- Initializes records and PL/SQL tables
3091: -----------------------------------------
3092:
3093: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('ACCOUNTING_DATE = '||to_char(P_CODE_ACCOUNTING_DATE));
3094:
3095: Jl_Zz_Ap_Withholding_Pkg.Initialize_Withholding_Type
3096: (P_AWT_Type_Code,
3097: P_Vendor_Id,
3109: Jl_Zz_Ap_Withholding_Pkg.Initialize_Withholding_Table
3110: (P_Wh_Table);
3111: -- Debug Information
3112: IF (DEBUG_Var = 'Y') THEN
3113: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procudure Initialize_Withholdings(-)');
3114: END IF;
3115: -- End Debug
3116:
3117: EXCEPTION
3176: 'Process_Withholdings<--' || P_Calling_Sequence;
3177:
3178: -- Debug Information
3179: IF (DEBUG_Var = 'Y') THEN
3180: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3181: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3182: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Process_Withholdings(+)');
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3177:
3178: -- Debug Information
3179: IF (DEBUG_Var = 'Y') THEN
3180: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3181: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3182: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Process_Withholdings(+)');
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3178: -- Debug Information
3179: IF (DEBUG_Var = 'Y') THEN
3180: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3181: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3182: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Process_Withholdings(+)');
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3179: IF (DEBUG_Var = 'Y') THEN
3180: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3181: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3182: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Process_Withholdings(+)');
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3180: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3181: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3182: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Process_Withholdings(+)');
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3181: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3182: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Process_Withholdings(+)');
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3189: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3182: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Process_Withholdings(+)');
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3189: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3190: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Id= '||to_char(P_Checkrun_Id));
3183: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Vendor_Id= '||to_char(P_Vendor_Id));
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3189: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3190: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Id= '||to_char(P_Checkrun_Id));
3191: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3184: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_AWT_Type.AWT_TYPE_CODE= '||P_Rec_AWT_Type.AWT_TYPE_CODE);
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3189: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3190: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Id= '||to_char(P_Checkrun_Id));
3191: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3192: END IF;
3185: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE= '||P_Rec_Suppl_AWT_Type.AWT_TYPE_CODE);
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3189: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3190: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Id= '||to_char(P_Checkrun_Id));
3191: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3192: END IF;
3193: -- End Debug
3186: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_AWT_Date= '||to_char(P_AWT_Date,'YYYY/MM/DD'));
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3189: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3190: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Id= '||to_char(P_Checkrun_Id));
3191: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3192: END IF;
3193: -- End Debug
3194:
3187: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_GL_Period_Name= '||P_GL_Period_Name);
3188: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Base_Currency_Code= '||P_Base_Currency_Code);
3189: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3190: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Checkrun_Id= '||to_char(P_Checkrun_Id));
3191: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3192: END IF;
3193: -- End Debug
3194:
3195:
3217: ------------------------------------------------
3218:
3219: -- Debug Information
3220: IF (DEBUG_Var = 'Y') THEN
3221: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Type');
3222: END IF;
3223: -- End Debug
3224:
3225: Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Type
3230: P_Tab_Withhold);
3231:
3232: -- Debug Information
3233: IF (DEBUG_Var = 'Y') THEN
3234: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Type');
3235: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3236: END IF;
3237: -- End Debug
3238:
3231:
3232: -- Debug Information
3233: IF (DEBUG_Var = 'Y') THEN
3234: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Process_Withholding_Type');
3235: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3236: END IF;
3237: -- End Debug
3238:
3239:
3242: --------------------------------------
3243:
3244: -- Debug Information
3245: IF (DEBUG_Var = 'Y') THEN
3246: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Update_Credit_Letter');
3247: END IF;
3248: -- End Debug
3249:
3250: Update_Credit_Letter (P_Vendor_Id,
3262: P_Request_Id);
3263:
3264: -- Debug Information
3265: IF (DEBUG_Var = 'Y') THEN
3266: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Update_Credit_Letter');
3267: END IF;
3268: -- End Debug
3269:
3270: ------------------------------------------------
3272: -------------------------------------------------
3273:
3274: -- Debug Information
3275: IF (DEBUG_Var = 'Y') THEN
3276: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Prorate_Withholdings');
3277: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3278: END IF;
3279: -- End Debug
3280:
3273:
3274: -- Debug Information
3275: IF (DEBUG_Var = 'Y') THEN
3276: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Prorate_Withholdings');
3277: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3278: END IF;
3279: -- End Debug
3280:
3281: Jl_Zz_Ap_Withholding_Pkg.Prorate_Withholdings (P_Tab_Withhold,
3282: P_Base_Currency_Code);
3283:
3284: -- Debug Information
3285: IF (DEBUG_Var = 'Y') THEN
3286: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Prorate_Withholdings');
3287: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3288: END IF;
3289: -- End Debug
3290:
3283:
3284: -- Debug Information
3285: IF (DEBUG_Var = 'Y') THEN
3286: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Prorate_Withholdings');
3287: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3288: END IF;
3289: -- End Debug
3290:
3291:
3293: -- Insert Temporary Distributions Lines
3294: ----------------------------------------
3295: -- Debug Information
3296: IF (DEBUG_Var = 'Y') THEN
3297: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Jl_Zz_Ap_Withholding_Pkg.Store_Into_Temporary_Table');
3298: END IF;
3299: -- End Debug
3300:
3301: Jl_Zz_Ap_Withholding_Pkg.Store_Into_Temporary_Table
3320: P_Payment_Num);
3321:
3322: -- Debug Information
3323: IF (DEBUG_Var = 'Y') THEN
3324: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' After Called Jl_Zz_Ap_Withholding_Pkg.Store_Into_Temporary_Table');
3325: END IF;
3326: -- End Debug
3327:
3328: IF (P_AWT_Success <> AWT_SUCCESS) THEN
3340:
3341:
3342: -- Debug Information
3343: IF (DEBUG_Var = 'Y') THEN
3344: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Total withheld amount for current tax type: '||to_char(P_Total_Wh_Amount));
3345: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3346: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Process_Withholdings(-)');
3347: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3348: END IF;
3341:
3342: -- Debug Information
3343: IF (DEBUG_Var = 'Y') THEN
3344: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Total withheld amount for current tax type: '||to_char(P_Total_Wh_Amount));
3345: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3346: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Process_Withholdings(-)');
3347: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3348: END IF;
3349: -- End Debug
3342: -- Debug Information
3343: IF (DEBUG_Var = 'Y') THEN
3344: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Total withheld amount for current tax type: '||to_char(P_Total_Wh_Amount));
3345: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3346: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Process_Withholdings(-)');
3347: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3348: END IF;
3349: -- End Debug
3350:
3343: IF (DEBUG_Var = 'Y') THEN
3344: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Total withheld amount for current tax type: '||to_char(P_Total_Wh_Amount));
3345: JL_ZZ_AP_EXT_AWT_UTIL.Print_Tax_Names(P_Tab_Withhold);
3346: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Process_Withholdings(-)');
3347: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3348: END IF;
3349: -- End Debug
3350:
3351: EXCEPTION
3516: P_Calling_Sequence;
3517:
3518: -- Debug Information
3519: IF (DEBUG_Var = 'Y') THEN
3520: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3521: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3522: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_Taxable_Base_Amounts(+)');
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3517:
3518: -- Debug Information
3519: IF (DEBUG_Var = 'Y') THEN
3520: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3521: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3522: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_Taxable_Base_Amounts(+)');
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3525: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Currency_Code= '||P_Currency_Code);
3518: -- Debug Information
3519: IF (DEBUG_Var = 'Y') THEN
3520: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3521: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3522: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_Taxable_Base_Amounts(+)');
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3525: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Currency_Code= '||P_Currency_Code);
3526: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3519: IF (DEBUG_Var = 'Y') THEN
3520: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3521: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3522: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_Taxable_Base_Amounts(+)');
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3525: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Currency_Code= '||P_Currency_Code);
3526: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3527: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3520: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3521: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3522: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_Taxable_Base_Amounts(+)');
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3525: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Currency_Code= '||P_Currency_Code);
3526: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3527: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3528: END IF;
3521: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3522: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_Taxable_Base_Amounts(+)');
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3525: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Currency_Code= '||P_Currency_Code);
3526: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3527: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3528: END IF;
3529: -- End Debug
3522: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Calculate_Taxable_Base_Amounts(+)');
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3525: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Currency_Code= '||P_Currency_Code);
3526: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3527: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3528: END IF;
3529: -- End Debug
3530:
3523: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Check_Id= '||to_char(P_Check_Id));
3524: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Selected_Check_Id= '||to_char(P_Selected_Check_Id));
3525: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Currency_Code= '||P_Currency_Code);
3526: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3527: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3528: END IF;
3529: -- End Debug
3530:
3531: --------------------
3535: OPEN c_invoice_amounts (P_Check_Id);
3536:
3537: -- Debug Information
3538: IF (DEBUG_Var = 'Y') THEN
3539: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Open Cursor c_invoice_amounts');
3540: END IF;
3541: -- End Debug
3542:
3543: ELSIF (P_Calling_Module = 'AUTOSELECT') THEN
3544: OPEN c_batch_invoice_amounts (P_Selected_Check_Id);
3545:
3546: -- Debug Information
3547: IF (DEBUG_Var = 'Y') THEN
3548: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Open Cursor c_batch_invoice_amounts');
3549: END IF;
3550: -- End Debug
3551:
3552: END IF;
3563: l_previous_inv_pay_num := null;
3564:
3565: -- Debug Information
3566: IF (DEBUG_Var = 'Y') THEN
3567: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3568: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3569: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3570: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3571: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3564:
3565: -- Debug Information
3566: IF (DEBUG_Var = 'Y') THEN
3567: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3568: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3569: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3570: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3571: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3572: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3565: -- Debug Information
3566: IF (DEBUG_Var = 'Y') THEN
3567: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3568: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3569: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3570: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3571: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3572: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3573: END IF;
3566: IF (DEBUG_Var = 'Y') THEN
3567: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3568: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3569: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3570: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3571: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3572: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3573: END IF;
3574: -- End Debug
3567: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3568: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3569: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3570: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3571: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3572: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3573: END IF;
3574: -- End Debug
3575:
3568: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3569: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3570: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3571: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3572: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3573: END IF;
3574: -- End Debug
3575:
3576: LOOP
3596: EXIT WHEN l_not_found;
3597:
3598: -- Debug Information
3599: IF (DEBUG_Var = 'Y') THEN
3600: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3601: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' STARTING THE LOOP');
3602: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID = '||to_char(l_invoice_id));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3597:
3598: -- Debug Information
3599: IF (DEBUG_Var = 'Y') THEN
3600: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3601: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' STARTING THE LOOP');
3602: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID = '||to_char(l_invoice_id));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3598: -- Debug Information
3599: IF (DEBUG_Var = 'Y') THEN
3600: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3601: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' STARTING THE LOOP');
3602: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID = '||to_char(l_invoice_id));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3599: IF (DEBUG_Var = 'Y') THEN
3600: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3601: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' STARTING THE LOOP');
3602: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID = '||to_char(l_invoice_id));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3600: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3601: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' STARTING THE LOOP');
3602: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID = '||to_char(l_invoice_id));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3601: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' STARTING THE LOOP');
3602: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID = '||to_char(l_invoice_id));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3602: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID = '||to_char(l_invoice_id));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3603: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_dist_line_no = '||to_char(l_dist_line_no));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3604: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_amount = '||to_char(l_amount));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3605: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_tax_inclusive_amount = '||l_tax_inclusive_amount);
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3606: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_amount = '||to_char(l_payment_amount));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3614: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3607: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_id = '||to_char(l_invo_payment_id));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3614: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3615: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_num = '||to_char(l_previous_inv_pay_num));
3608: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invo_payment_num = '||to_char(l_invo_payment_num));
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3614: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3615: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_num = '||to_char(l_previous_inv_pay_num));
3616: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3609: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3614: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3615: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_num = '||to_char(l_previous_inv_pay_num));
3616: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3617: END IF;
3610: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_invoice_amount = '||to_char(l_invoice_amount));
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3614: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3615: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_num = '||to_char(l_previous_inv_pay_num));
3616: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3617: END IF;
3618: -- End Debug
3611: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_position = '||to_char(l_position));
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3614: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3615: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_num = '||to_char(l_previous_inv_pay_num));
3616: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3617: END IF;
3618: -- End Debug
3619:
3612: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_initial_position = '||to_char(l_initial_position));
3613: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_invoice_id = '||to_char(l_previous_invoice_id));
3614: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_id = '||to_char(l_previous_inv_pay_id));
3615: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Auxiliary Variables: l_previous_inv_pay_num = '||to_char(l_previous_inv_pay_num));
3616: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3617: END IF;
3618: -- End Debug
3619:
3620: ---------------------------------
3634: END LOOP;
3635:
3636: -- Debug Information
3637: IF (DEBUG_Var = 'Y') THEN
3638: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' QUICKCHECK and l_previous_invoice_id <> l_invoice_id');
3639: END IF;
3640: -- End Debug
3641:
3642: l_invoice_amount := 0;
3657: END LOOP;
3658:
3659: -- Debug Information
3660: IF (DEBUG_Var = 'Y') THEN
3661: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' AUTOSELECT and l_previous_invoice_id <> l_invoice_id');
3662: END IF;
3663: -- End Debug
3664:
3665:
3692: END LOOP;
3693:
3694: -- Debug Information
3695: IF (DEBUG_Var = 'Y') THEN
3696: JL_ZZ_AP_EXT_AWT_UTIL.Debug('After lOOP');
3697: END IF;
3698: -- End Debug
3699:
3700: ---------------------------------
3705: END LOOP;
3706:
3707: -- Debug Information
3708: IF (DEBUG_Var = 'Y') THEN
3709: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Sets the total invoice amount');
3710: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3711: END IF;
3712: -- End Debug
3713:
3706:
3707: -- Debug Information
3708: IF (DEBUG_Var = 'Y') THEN
3709: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Sets the total invoice amount');
3710: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3711: END IF;
3712: -- End Debug
3713:
3714: ----------------
3717: IF (P_Calling_Module = 'QUICKCHECK') THEN
3718:
3719: -- Debug Information
3720: IF (DEBUG_Var = 'Y') THEN
3721: JL_ZZ_AP_EXT_AWT_UTIL.Debug('Close Cursor c_invoice_amounts');
3722: END IF;
3723: -- End Debug
3724: CLOSE c_invoice_amounts;
3725:
3726: ELSIF (P_Calling_Module = 'AUTOSELECT') THEN
3727:
3728: -- Debug Information
3729: IF (DEBUG_Var = 'Y') THEN
3730: JL_ZZ_AP_EXT_AWT_UTIL.Debug('Close Cursor c_invoice_amounts');
3731: END IF;
3732: -- End Debug
3733: CLOSE c_batch_invoice_amounts;
3734:
3762: l_previous_invoice_id := P_Tab_Inv_Amounts(i).invoice_id;
3763:
3764: -- Debug Information
3765: IF (DEBUG_Var = 'Y') THEN
3766: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' TBA = tax base amts - l_cumulative_amount');
3767: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Invoice_id = '||to_char(P_Tab_Inv_Amounts(i-1).invoice_id)||' '||
3768: 'Taxable Base Amount = '||to_char(P_Tab_Inv_Amounts(i-1).taxable_base_amount));
3769: END IF;
3770: -- End Debug
3763:
3764: -- Debug Information
3765: IF (DEBUG_Var = 'Y') THEN
3766: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' TBA = tax base amts - l_cumulative_amount');
3767: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Invoice_id = '||to_char(P_Tab_Inv_Amounts(i-1).invoice_id)||' '||
3768: 'Taxable Base Amount = '||to_char(P_Tab_Inv_Amounts(i-1).taxable_base_amount));
3769: END IF;
3770: -- End Debug
3771:
3787: P_Tab_Inv_Amounts(i).invoice_amount;
3788:
3789: -- Debug Information
3790: IF (DEBUG_Var = 'Y') THEN
3791: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Calculates tax base amts prorating payment amt for each different inv');
3792: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Invoice_id = '||to_char(P_Tab_Inv_Amounts(i).invoice_id)||' '||
3793: 'Taxable Base Amount = '||to_char(P_Tab_Inv_Amounts(i).taxable_base_amount));
3794: END IF;
3795: -- End Debug
3788:
3789: -- Debug Information
3790: IF (DEBUG_Var = 'Y') THEN
3791: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Calculates tax base amts prorating payment amt for each different inv');
3792: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Invoice_id = '||to_char(P_Tab_Inv_Amounts(i).invoice_id)||' '||
3793: 'Taxable Base Amount = '||to_char(P_Tab_Inv_Amounts(i).taxable_base_amount));
3794: END IF;
3795: -- End Debug
3796:
3827: P_Currency_Code);
3828:
3829: -- Debug Information
3830: IF (DEBUG_Var = 'Y') THEN
3831: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Calculates prorated tax inclusive amount');
3832: END IF;
3833: -- End Debug
3834:
3835: IF (i > 1) THEN
3839: P_Tab_Inv_Amounts(i-1).taxable_base_amount;
3840:
3841: -- Debug Information
3842: IF (DEBUG_Var = 'Y') THEN
3843: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Cumulative Amount = '||to_char(l_cumulative_amount));
3844: END IF;
3845: -- End Debug
3846:
3847: END IF;
3850: END LOOP;
3851:
3852: -- Debug Information
3853: IF (DEBUG_Var = 'Y') THEN
3854: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' END Loop thru Tax Invoice Amounts');
3855: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3856: END IF;
3857: -- End Debug
3858:
3851:
3852: -- Debug Information
3853: IF (DEBUG_Var = 'Y') THEN
3854: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' END Loop thru Tax Invoice Amounts');
3855: JL_ZZ_AP_EXT_AWT_UTIL.Print_tab_amounts(P_Tab_Inv_Amounts);
3856: END IF;
3857: -- End Debug
3858:
3859: /*
3867: l_cumulative_amount;
3868:
3869: -- Debug Information
3870: IF (DEBUG_Var = 'Y') THEN
3871: JL_ZZ_AP_EXT_AWT_UTIL.Debug(' Last Row for AUTOSELECT - Payment Amount');
3872: END IF;
3873: -- End Debug
3874:
3875: END IF;
3876: */
3877:
3878: -- Debug Information
3879: IF (DEBUG_Var = 'Y') THEN
3880: JL_ZZ_AP_EXT_AWT_UTIL.Debug('Procedure Calculate_Taxable_Base_Amounts(-)');
3881: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3882: END IF;
3883: -- End Debug
3884:
3877:
3878: -- Debug Information
3879: IF (DEBUG_Var = 'Y') THEN
3880: JL_ZZ_AP_EXT_AWT_UTIL.Debug('Procedure Calculate_Taxable_Base_Amounts(-)');
3881: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3882: END IF;
3883: -- End Debug
3884:
3885:
3933: 'Get_Taxable_Base_Amount<--' || P_Calling_Sequence;
3934:
3935: -- Debug Information
3936: IF (DEBUG_Var = 'Y') THEN
3937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3939: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount');
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3934:
3935: -- Debug Information
3936: IF (DEBUG_Var = 'Y') THEN
3937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3939: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount');
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3935: -- Debug Information
3936: IF (DEBUG_Var = 'Y') THEN
3937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3939: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount');
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3936: IF (DEBUG_Var = 'Y') THEN
3937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3939: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount');
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3944: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Inclusive_Flag= '||P_Tax_Inclusive_Flag);
3937: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
3938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3939: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount');
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3944: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Inclusive_Flag= '||P_Tax_Inclusive_Flag);
3945: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3938: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3939: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount');
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3944: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Inclusive_Flag= '||P_Tax_Inclusive_Flag);
3945: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3946: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3939: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount');
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3944: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Inclusive_Flag= '||P_Tax_Inclusive_Flag);
3945: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3946: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3947: END IF;
3940: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Id= '||to_char(P_Invoice_Id));
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3944: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Inclusive_Flag= '||P_Tax_Inclusive_Flag);
3945: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3946: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3947: END IF;
3948: -- End Debug
3941: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Distribution_Line_No= '||to_char(P_Distribution_Line_No));
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3944: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Inclusive_Flag= '||P_Tax_Inclusive_Flag);
3945: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3946: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3947: END IF;
3948: -- End Debug
3949:
3942: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Invoice_Payment_ID= '||to_char(P_Invoice_Payment_ID));
3943: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Base_Amount_Basis= '||P_Tax_Base_Amount_Basis);
3944: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Tax_Inclusive_Flag= '||P_Tax_Inclusive_Flag);
3945: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameters: P_Calling_Module= '||P_Calling_Module);
3946: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
3947: END IF;
3948: -- End Debug
3949:
3950: -----------------------------------
3975: IF (nvl(P_Tax_Inclusive_Flag, 'N') = 'Y') THEN
3976:
3977: -- Debug Information
3978: IF (DEBUG_Var = 'Y') THEN
3979: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount for invoice '||
3980: to_char(P_Tab_Inv_Amounts(i).invoice_id));
3981: END IF;
3982: -- End Debug
3983:
4047: END LOOP;
4048:
4049: -- Debug Information
4050: IF (DEBUG_Var = 'Y') THEN
4051: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Taxable_Base_Amount(-)');
4052: END IF;
4053: -- End Debug
4054:
4055:
4105: 'Get_Credit_Letter_Amount<--' || P_Calling_Sequence;
4106:
4107: -- Debug Information
4108: IF (DEBUG_Var = 'Y') THEN
4109: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4110: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4111: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Credit_Letter_Amount(+)');
4112: END IF;
4113: -- End Debug
4106:
4107: -- Debug Information
4108: IF (DEBUG_Var = 'Y') THEN
4109: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4110: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4111: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Credit_Letter_Amount(+)');
4112: END IF;
4113: -- End Debug
4114:
4107: -- Debug Information
4108: IF (DEBUG_Var = 'Y') THEN
4109: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4110: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4111: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Credit_Letter_Amount(+)');
4112: END IF;
4113: -- End Debug
4114:
4115:
4137: AND seq_num = l_seq_num;
4138:
4139: -- Debug Information
4140: IF (DEBUG_Var = 'Y') THEN
4141: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4142: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Return '||l_credit_letter_amount);
4143: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Credit_Letter_Amount(-)');
4144: END IF;
4145: -- End Debug
4138:
4139: -- Debug Information
4140: IF (DEBUG_Var = 'Y') THEN
4141: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4142: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Return '||l_credit_letter_amount);
4143: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Credit_Letter_Amount(-)');
4144: END IF;
4145: -- End Debug
4146:
4139: -- Debug Information
4140: IF (DEBUG_Var = 'Y') THEN
4141: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4142: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Return '||l_credit_letter_amount);
4143: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Get_Credit_Letter_Amount(-)');
4144: END IF;
4145: -- End Debug
4146:
4147: RETURN l_credit_letter_amount;
4208: l_calling_sequence := 'JL_AR_AP_WITHHOLDING_PKG' || '.' ||
4209: 'Update_Credit_Letter<--' || P_Calling_Sequence;
4210:
4211: IF (DEBUG_Var = 'Y') THEN
4212: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4213: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4214: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Update_Credit_Letter(+)');
4215: END IF;
4216: -- End Debug
4209: 'Update_Credit_Letter<--' || P_Calling_Sequence;
4210:
4211: IF (DEBUG_Var = 'Y') THEN
4212: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4213: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4214: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Update_Credit_Letter(+)');
4215: END IF;
4216: -- End Debug
4217:
4210:
4211: IF (DEBUG_Var = 'Y') THEN
4212: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4213: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4214: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Update_Credit_Letter(+)');
4215: END IF;
4216: -- End Debug
4217:
4218: --------------------------------------------
4247: END IF;
4248:
4249: -- Debug Information
4250: IF (DEBUG_Var = 'Y') THEN
4251: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Withholding Type Code = '||P_Rec_AWT_Type.awt_type_code);
4252: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Credit Letter Amount = '||to_char(l_credit_letter_amount));
4253: END IF;
4254: -- End Debug
4255:
4248:
4249: -- Debug Information
4250: IF (DEBUG_Var = 'Y') THEN
4251: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Withholding Type Code = '||P_Rec_AWT_Type.awt_type_code);
4252: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Credit Letter Amount = '||to_char(l_credit_letter_amount));
4253: END IF;
4254: -- End Debug
4255:
4256:
4367: P_Request_Id);
4368: END IF;
4369:
4370: IF (DEBUG_Var = 'Y') THEN
4371: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4372: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Update_Credit_Letter(-)');
4373: END IF;
4374:
4375:
4368: END IF;
4369:
4370: IF (DEBUG_Var = 'Y') THEN
4371: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4372: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('FUNCTION Update_Credit_Letter(-)');
4373: END IF;
4374:
4375:
4376: EXCEPTION
4433: 'Insert_Credit_Letter_Amount<--' ||
4434: P_Calling_Sequence;
4435:
4436: IF (DEBUG_Var = 'Y') THEN
4437: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4438: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Insert_Credit_Letter_Amount(+)');
4439: END IF;
4440:
4441: -----------------------------------------------
4434: P_Calling_Sequence;
4435:
4436: IF (DEBUG_Var = 'Y') THEN
4437: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4438: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Insert_Credit_Letter_Amount(+)');
4439: END IF;
4440:
4441: -----------------------------------------------
4442: -- Inserts record into JL_AR_AP_SUP_AWT_CR_LTS
4484: P_Request_Id,
4485: P_Status);
4486:
4487: IF (DEBUG_Var = 'Y') THEN
4488: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4489: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Insert_Credit_Letter_Amount(-)');
4490: END IF;
4491:
4492:
4485: P_Status);
4486:
4487: IF (DEBUG_Var = 'Y') THEN
4488: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4489: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Insert_Credit_Letter_Amount(-)');
4490: END IF;
4491:
4492:
4493: EXCEPTION
4589: l_calling_sequence := 'JL_AR_AP_WITHHOLDING_PKG' || '.' ||
4590: 'Undo_Credit_Letter<--' || P_Calling_Sequence;
4591:
4592: IF (DEBUG_Var = 'Y') THEN
4593: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4594: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4595: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Credit_Letter(+)');
4596: END IF;
4597:
4590: 'Undo_Credit_Letter<--' || P_Calling_Sequence;
4591:
4592: IF (DEBUG_Var = 'Y') THEN
4593: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4594: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4595: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Credit_Letter(+)');
4596: END IF;
4597:
4598: ----------------------
4591:
4592: IF (DEBUG_Var = 'Y') THEN
4593: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4594: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4595: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Credit_Letter(+)');
4596: END IF;
4597:
4598: ----------------------
4599: -- Initializes record
4682: P_Program_Id,
4683: P_Request_Id);
4684: END LOOP;
4685: IF (DEBUG_Var = 'Y') THEN
4686: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4687: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Credit_Letter(-)');
4688: END IF;
4689:
4690: EXCEPTION
4683: P_Request_Id);
4684: END LOOP;
4685: IF (DEBUG_Var = 'Y') THEN
4686: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4687: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Credit_Letter(-)');
4688: END IF;
4689:
4690: EXCEPTION
4691: WHEN others THEN
4781:
4782:
4783: -- Debug Information
4784: IF (DEBUG_Var = 'Y') THEN
4785: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4786: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4787: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Quick_Payment(+)');
4788: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
4789: END IF;
4782:
4783: -- Debug Information
4784: IF (DEBUG_Var = 'Y') THEN
4785: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4786: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4787: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Quick_Payment(+)');
4788: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
4789: END IF;
4790: -- End Debug
4783: -- Debug Information
4784: IF (DEBUG_Var = 'Y') THEN
4785: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4786: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4787: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Quick_Payment(+)');
4788: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
4789: END IF;
4790: -- End Debug
4791:
4784: IF (DEBUG_Var = 'Y') THEN
4785: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
4786: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4787: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Quick_Payment(+)');
4788: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
4789: END IF;
4790: -- End Debug
4791:
4792:
4795: --------------------------------------------
4796:
4797: -- Debug Information
4798: IF (DEBUG_Var = 'Y') THEN
4799: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' OPEN c_invoice_payment');
4800: END IF;
4801: -- End Debug
4802:
4803: OPEN c_invoice_payment(P_Check_Id);
4812: EXIT WHEN c_invoice_payment%NOTFOUND;
4813:
4814: -- Debug Information
4815: IF (DEBUG_Var = 'Y') THEN
4816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
4817: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
4818: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4813:
4814: -- Debug Information
4815: IF (DEBUG_Var = 'Y') THEN
4816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
4817: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
4818: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4821: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
4814: -- Debug Information
4815: IF (DEBUG_Var = 'Y') THEN
4816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
4817: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
4818: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4821: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
4822: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
4815: IF (DEBUG_Var = 'Y') THEN
4816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
4817: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
4818: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4821: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
4822: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
4823: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
4817: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
4818: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4821: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
4822: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
4823: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4824: END IF;
4817: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
4818: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4821: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
4822: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
4823: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4824: END IF;
4825: -- End Debug
4818: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4821: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
4822: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
4823: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4824: END IF;
4825: -- End Debug
4826:
4819: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
4820: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
4821: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
4822: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
4823: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4824: END IF;
4825: -- End Debug
4826:
4827: -------------------------------------------
4836: AND NVL(apid.REVERSAL_FLAG,'N') <> 'Y';
4837:
4838: -- Debug Information
4839: IF (DEBUG_Var = 'Y') THEN
4840: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Obtains withheld amount for the invoice : '||to_char(l_withhold_amount));
4841: END IF;
4842: -- End Debug
4843:
4844: IF (l_withhold_amount <> 0) THEN
4859: AND apps.payment_num = l_payment_num;
4860:
4861: -- Debug Information
4862: IF (DEBUG_Var = 'Y') THEN
4863: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Obtains currency information: exch rate, pay cross rate, pay curr code'||
4864: to_char(l_inv_exchange_rate)||', '||to_char(l_payment_cross_rate)||
4865: ','||l_payment_currency_code);
4866: END IF;
4867: -- End Debug
4961: END IF;
4962:
4963: -- Debug Information
4964: IF (DEBUG_Var = 'Y') THEN
4965: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Update_Quick_Payment(-)');
4966: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4967: END IF;
4968: -- End Debug
4969:
4962:
4963: -- Debug Information
4964: IF (DEBUG_Var = 'Y') THEN
4965: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Update_Quick_Payment(-)');
4966: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
4967: END IF;
4968: -- End Debug
4969:
4970: EXCEPTION
5073: 'Update_Payment_Batch<--' || P_Calling_Sequence;
5074:
5075: -- Debug Information
5076: IF (DEBUG_Var = 'Y') THEN
5077: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5078: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5079: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Payment_Batch(+)');
5080: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Checkrun_Name: '||P_Checkrun_Name);
5081: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5074:
5075: -- Debug Information
5076: IF (DEBUG_Var = 'Y') THEN
5077: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5078: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5079: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Payment_Batch(+)');
5080: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Checkrun_Name: '||P_Checkrun_Name);
5081: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5075: -- Debug Information
5076: IF (DEBUG_Var = 'Y') THEN
5077: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5078: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5079: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Payment_Batch(+)');
5080: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Checkrun_Name: '||P_Checkrun_Name);
5081: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5083: END IF;
5076: IF (DEBUG_Var = 'Y') THEN
5077: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5078: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5079: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Payment_Batch(+)');
5080: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Checkrun_Name: '||P_Checkrun_Name);
5081: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5083: END IF;
5084: -- End Debug
5077: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5078: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5079: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Payment_Batch(+)');
5080: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Checkrun_Name: '||P_Checkrun_Name);
5081: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5083: END IF;
5084: -- End Debug
5085:
5078: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5079: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Payment_Batch(+)');
5080: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Checkrun_Name: '||P_Checkrun_Name);
5081: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5083: END IF;
5084: -- End Debug
5085:
5086:
5103:
5104:
5105: -- Debug Information
5106: IF (DEBUG_Var = 'Y') THEN
5107: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Just update the invoices in the same payment check: '||to_char(l_count_inv));
5108: END IF;
5109: -- End Debug
5110:
5111: IF (l_count_inv = 0 ) Then
5130: -- AND apsi.original_invoice_id IS NULL;
5131:
5132: -- Debug Information
5133: IF (DEBUG_Var = 'Y') THEN
5134: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Proposed Payment Amount : '||to_char(l_prop_payment_amount));
5135: END IF;
5136: -- End Debug
5137:
5138: --------------------------------------
5140: --------------------------------------
5141:
5142: -- Debug Information
5143: IF (DEBUG_Var = 'Y') THEN
5144: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('OPEN Cursor c_selected_invoices');
5145: END IF;
5146: -- End Debug
5147:
5148: OPEN c_selected_invoices (P_Selected_Check_Id);
5152: EXIT WHEN c_selected_invoices%NOTFOUND;
5153:
5154: -- Debug Information
5155: IF (DEBUG_Var = 'Y') THEN
5156: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID= '||to_char(rec_sel_inv.invoice_id));
5157: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_sel_inv.payment_num));
5158: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_sel_inv.payment_amount));
5159: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: inv exch rate= '||to_char(rec_sel_inv.payment_exchange_rate));
5160: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: pay cross rate= '||to_char(rec_sel_inv.payment_cross_rate));
5153:
5154: -- Debug Information
5155: IF (DEBUG_Var = 'Y') THEN
5156: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID= '||to_char(rec_sel_inv.invoice_id));
5157: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_sel_inv.payment_num));
5158: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_sel_inv.payment_amount));
5159: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: inv exch rate= '||to_char(rec_sel_inv.payment_exchange_rate));
5160: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: pay cross rate= '||to_char(rec_sel_inv.payment_cross_rate));
5161: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5154: -- Debug Information
5155: IF (DEBUG_Var = 'Y') THEN
5156: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID= '||to_char(rec_sel_inv.invoice_id));
5157: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_sel_inv.payment_num));
5158: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_sel_inv.payment_amount));
5159: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: inv exch rate= '||to_char(rec_sel_inv.payment_exchange_rate));
5160: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: pay cross rate= '||to_char(rec_sel_inv.payment_cross_rate));
5161: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5162: END IF;
5155: IF (DEBUG_Var = 'Y') THEN
5156: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID= '||to_char(rec_sel_inv.invoice_id));
5157: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_sel_inv.payment_num));
5158: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_sel_inv.payment_amount));
5159: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: inv exch rate= '||to_char(rec_sel_inv.payment_exchange_rate));
5160: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: pay cross rate= '||to_char(rec_sel_inv.payment_cross_rate));
5161: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5162: END IF;
5163: -- End Debug
5156: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: Invoice_ID= '||to_char(rec_sel_inv.invoice_id));
5157: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_sel_inv.payment_num));
5158: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_sel_inv.payment_amount));
5159: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: inv exch rate= '||to_char(rec_sel_inv.payment_exchange_rate));
5160: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: pay cross rate= '||to_char(rec_sel_inv.payment_cross_rate));
5161: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5162: END IF;
5163: -- End Debug
5164:
5157: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_num= '||to_char(rec_sel_inv.payment_num));
5158: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: payment_amount= '||to_char(rec_sel_inv.payment_amount));
5159: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: inv exch rate= '||to_char(rec_sel_inv.payment_exchange_rate));
5160: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: pay cross rate= '||to_char(rec_sel_inv.payment_cross_rate));
5161: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5162: END IF;
5163: -- End Debug
5164:
5165: ------------------------------------
5207:
5208:
5209: -- Debug Information
5210: IF (DEBUG_Var = 'Y') THEN
5211: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Withheld amount for the invoice= '||to_char(l_withholding_amount));
5212: END IF;
5213: -- End Debug
5214:
5215: -------------------------------------------------------
5291: CLOSE c_selected_invoice_checks;
5292:
5293: -- Debug Information
5294: IF (DEBUG_Var = 'Y') THEN
5295: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Update_Payment_Batch(-)');
5296: END IF;
5297: -- End Debug
5298:
5299:
5349: P_Calling_Sequence;
5350:
5351: -- Debug Information
5352: IF (DEBUG_Var = 'Y') THEN
5353: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5354: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5355: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Withholding_Already_Calculated(+)');
5356: END IF;
5357: -- End Debug
5350:
5351: -- Debug Information
5352: IF (DEBUG_Var = 'Y') THEN
5353: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5354: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5355: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Withholding_Already_Calculated(+)');
5356: END IF;
5357: -- End Debug
5358:
5351: -- Debug Information
5352: IF (DEBUG_Var = 'Y') THEN
5353: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5354: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5355: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Withholding_Already_Calculated(+)');
5356: END IF;
5357: -- End Debug
5358:
5359: --------------------------------------------------------
5411: END IF;
5412:
5413: -- Debug Information
5414: IF (DEBUG_Var = 'Y') THEN
5415: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5416: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Withholding_Already_Calculated(-)');
5417: END IF;
5418: -- End Debug
5419:
5412:
5413: -- Debug Information
5414: IF (DEBUG_Var = 'Y') THEN
5415: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5416: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Withholding_Already_Calculated(-)');
5417: END IF;
5418: -- End Debug
5419:
5420:
5465: 'Total_Withholding_Amount<--' || P_Calling_Sequence;
5466:
5467: -- Debug Information
5468: IF (DEBUG_Var = 'Y') THEN
5469: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Total_Withholding_Amount(+)');
5472: END IF;
5473: -- End Debug
5466:
5467: -- Debug Information
5468: IF (DEBUG_Var = 'Y') THEN
5469: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Total_Withholding_Amount(+)');
5472: END IF;
5473: -- End Debug
5474:
5467: -- Debug Information
5468: IF (DEBUG_Var = 'Y') THEN
5469: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5470: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
5471: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Total_Withholding_Amount(+)');
5472: END IF;
5473: -- End Debug
5474:
5475: -----------------------------------------------------------
5481: END LOOP;
5482:
5483: -- Debug Information
5484: IF (DEBUG_Var = 'Y') THEN
5485: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Total Withholding Amount '||l_withholding_amount);
5486: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Total_Withholding_Amount(-)');
5487: END IF;
5488: -- End Debug
5489:
5482:
5483: -- Debug Information
5484: IF (DEBUG_Var = 'Y') THEN
5485: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Total Withholding Amount '||l_withholding_amount);
5486: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Total_Withholding_Amount(-)');
5487: END IF;
5488: -- End Debug
5489:
5490: RETURN l_withholding_amount;
5540: P_Calling_Sequence;
5541:
5542: -- Debug Information
5543: IF (DEBUG_Var = 'Y') THEN
5544: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Partial_Payment_Paid_In_Full(+)');
5545: END IF;
5546: -- End Debug
5547:
5548: --------------------------------------------
5615: --P_Payment_Amount := l_payment_amount; Bug# 2807464
5616:
5617: -- Debug Information
5618: IF (DEBUG_Var = 'Y') THEN
5619: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Function Partial_Payment_Paid_In_Full(-)');
5620: END IF;
5621: -- End Debug
5622:
5623: RETURN (l_payment_amount >= P_Total_Wh_Amount);
5694: P_Calling_Sequence;
5695:
5696: -- Debug Information
5697: IF (DEBUG_Var = 'Y') THEN
5698: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Confirm_Credit_Letters(+)');
5699: END IF;
5700: -- End Debug
5701:
5702: ------------------------------------------------
5724: CLOSE c_selected_invoice_checks;
5725:
5726: -- Debug Information
5727: IF (DEBUG_Var = 'Y') THEN
5728: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Confirm_Credit_Letters(-)');
5729: END IF;
5730: -- End Debug
5731:
5732: EXCEPTION
5735: null;
5736: WHEN others THEN
5737: -- Debug Information
5738: IF (DEBUG_Var = 'Y') THEN
5739: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Confirm Credit Letters: '||SQLERRM);
5740: END IF;
5741: -- end debug
5742:
5743: IF (SQLCODE <> -20001) THEN
5809: P_Calling_Sequence;
5810:
5811: -- Debug Information
5812: IF (DEBUG_Var = 'Y') THEN
5813: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5814: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Reject_Payment_Batch(+)');
5815: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_AWT_Success: '||P_AWT_Success);
5817: END IF;
5810:
5811: -- Debug Information
5812: IF (DEBUG_Var = 'Y') THEN
5813: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5814: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Reject_Payment_Batch(+)');
5815: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_AWT_Success: '||P_AWT_Success);
5817: END IF;
5818: -- End Debug
5811: -- Debug Information
5812: IF (DEBUG_Var = 'Y') THEN
5813: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5814: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Reject_Payment_Batch(+)');
5815: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_AWT_Success: '||P_AWT_Success);
5817: END IF;
5818: -- End Debug
5819:
5812: IF (DEBUG_Var = 'Y') THEN
5813: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
5814: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Reject_Payment_Batch(+)');
5815: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Selected_Check_Id: '||to_char(P_Selected_Check_Id));
5816: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_AWT_Success: '||P_AWT_Success);
5817: END IF;
5818: -- End Debug
5819:
5820: -------------------------------------
5848: WHERE ipmt.payment_id = P_Selected_Check_id;
5849:
5850: -- Debug Information
5851: IF (DEBUG_Var = 'Y') THEN
5852: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Reject_Payment_Batch(-)');
5853: END IF;
5854: -- End Debug
5855:
5856: EXCEPTION
5905: BEGIN
5906:
5907: -- Debug Information
5908: IF (DEBUG_Var = 'Y') THEN
5909: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE JL_CALL_DO_AWT(+)');
5910: END IF;
5911: -- End Debug
5912: -- Call to core procedure
5913: Ap_Withholding_Pkg.Ap_Do_Withholding (
5928: );
5929:
5930: -- Debug Information
5931: IF (DEBUG_Var = 'Y') THEN
5932: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE JL_CALL_DO_AWT(-)');
5933: END IF;
5934: -- End Debug
5935: END JL_CALL_DO_AWT;
5936:
6048:
6049:
6050: -- Debug Information
6051: IF (DEBUG_Var = 'Y') THEN
6052: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
6053: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Quick_Payment(+)');
6054: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
6055: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Old_Check_Id: '||to_char(P_Old_Check_Id)); --bug 12335657
6056: END IF;
6049:
6050: -- Debug Information
6051: IF (DEBUG_Var = 'Y') THEN
6052: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
6053: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Quick_Payment(+)');
6054: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
6055: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Old_Check_Id: '||to_char(P_Old_Check_Id)); --bug 12335657
6056: END IF;
6057: -- End Debug
6050: -- Debug Information
6051: IF (DEBUG_Var = 'Y') THEN
6052: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
6053: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Quick_Payment(+)');
6054: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
6055: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Old_Check_Id: '||to_char(P_Old_Check_Id)); --bug 12335657
6056: END IF;
6057: -- End Debug
6058:
6051: IF (DEBUG_Var = 'Y') THEN
6052: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Calling Sequence '||l_calling_sequence);
6053: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('PROCEDURE Undo_Quick_Payment(+)');
6054: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Check_Id: '||to_char(P_Check_Id));
6055: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Parameter P_Old_Check_Id: '||to_char(P_Old_Check_Id)); --bug 12335657
6056: END IF;
6057: -- End Debug
6058:
6059: --------------------------------------------
6061: --------------------------------------------
6062:
6063: -- Debug Information
6064: IF (DEBUG_Var = 'Y') THEN
6065: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' OPEN c_invoice_payment');
6066: END IF;
6067: -- End Debug
6068:
6069: OPEN c_invoice_payment(P_Check_Id);
6078: EXIT WHEN c_invoice_payment%NOTFOUND;
6079:
6080: -- Debug Information
6081: IF (DEBUG_Var = 'Y') THEN
6082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
6083: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
6084: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6079:
6080: -- Debug Information
6081: IF (DEBUG_Var = 'Y') THEN
6082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
6083: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
6084: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6087: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
6080: -- Debug Information
6081: IF (DEBUG_Var = 'Y') THEN
6082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
6083: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
6084: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6087: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
6088: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
6081: IF (DEBUG_Var = 'Y') THEN
6082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
6083: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
6084: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6087: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
6088: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
6089: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
6082: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_payment_id= '||to_char(l_invoice_payment_id));
6083: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
6084: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6087: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
6088: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
6089: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
6090: END IF;
6083: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_id= '||to_char(l_invoice_id));
6084: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6087: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
6088: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
6089: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
6090: END IF;
6091: -- End Debug
6084: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_exchange_rate= '||to_char(l_pay_exchange_rate));
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6087: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
6088: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
6089: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
6090: END IF;
6091: -- End Debug
6092: -------------------------------------------
6085: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_num= '||to_char(l_payment_num));
6086: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_pay_amount= '||to_char(l_pay_amount));
6087: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_payment_base_amount= '||to_char(l_payment_base_amount));
6088: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' Fetched Values: l_invoice_base_amount= '||to_char(l_invoice_base_amount));
6089: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
6090: END IF;
6091: -- End Debug
6092: -------------------------------------------
6093: -- Obtains withheld amount for the invoice
6098: EXIT WHEN c_withheld_amount%NOTFOUND;
6099:
6100: -- Debug Information
6101: IF (DEBUG_Var = 'Y') THEN
6102: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Obtains withheld amount for the invoice : '||nvl(to_char(l_withhold_amount),'***NULL***')); --bug12335657
6103: END IF;
6104: -- End Debug
6105: IF (l_withhold_amount <> 0) THEN
6106:
6118: AND apps.payment_num = l_payment_num;
6119:
6120: -- Debug Information
6121: IF (DEBUG_Var = 'Y') THEN
6122: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Obtains currency information: exch rate, pay cross rate '||
6123: to_char(l_inv_exchange_rate)||', '||to_char(l_payment_cross_rate));
6124: END IF;
6125: -- End Debug
6126:
6165: (l_withhold_amount * nvl(l_payment_cross_rate, 1) *
6166: nvl(l_pay_exchange_rate, 1));
6167:
6168: IF (Debug_var = 'Y' ) Then
6169: JL_ZZ_AP_EXT_AWT_UTIL.Debug('Payment Amt =' || to_char(l_pay_amount) || 'Inv BaseAmt :'
6170: || to_char(l_withhold_amount));
6171: END IF;
6172:
6173: AP_AIP_TABLE_HANDLER_PKG.Update_Amounts(
6219: END IF;
6220:
6221: -- Debug Information
6222: IF (DEBUG_Var = 'Y') THEN
6223: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Undo_Quick_Payment(-)');
6224: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
6225: END IF;
6226: -- End Debug
6227:
6220:
6221: -- Debug Information
6222: IF (DEBUG_Var = 'Y') THEN
6223: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('Procedure Undo_Quick_Payment(-)');
6224: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ');
6225: END IF;
6226: -- End Debug
6227:
6228: EXCEPTION