524: -- sets the error message on the stack to be retrieved
525: -- on the client side
526: -------------------------------------------------------
527: IF (P_AWT_Success <> AWT_SUCCESS) THEN
528: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_CALC_ERROR');
529: Fnd_Message.Set_Token ('ERROR_TEXT', P_AWT_Success);
530: END IF;
531:
532:
525: -- on the client side
526: -------------------------------------------------------
527: IF (P_AWT_Success <> AWT_SUCCESS) THEN
528: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_CALC_ERROR');
529: Fnd_Message.Set_Token ('ERROR_TEXT', P_AWT_Success);
530: END IF;
531:
532:
533: /********************************************************
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');
618: Fnd_Message.Set_Token('ERROR', SQLERRM);
619: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
620: Fnd_Message.Set_Token('PARAMETERS',
621: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
614: END IF;
615: -- End Debug
616:
617: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
618: Fnd_Message.Set_Token('ERROR', SQLERRM);
619: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
620: Fnd_Message.Set_Token('PARAMETERS',
621: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
622: ', Awt Date= ' || to_char(P_Awt_Date,'YYYY/MM/DD') ||
615: -- End Debug
616:
617: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
618: Fnd_Message.Set_Token('ERROR', SQLERRM);
619: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
620: Fnd_Message.Set_Token('PARAMETERS',
621: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
622: ', Awt Date= ' || to_char(P_Awt_Date,'YYYY/MM/DD') ||
623: ', Calling Module= ' || P_Calling_Module ||
616:
617: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
618: Fnd_Message.Set_Token('ERROR', SQLERRM);
619: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
620: Fnd_Message.Set_Token('PARAMETERS',
621: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
622: ', Awt Date= ' || to_char(P_Awt_Date,'YYYY/MM/DD') ||
623: ', Calling Module= ' || P_Calling_Module ||
624: ', Amount= ' || to_char(P_Amount) ||
625: ', Payment Num= ' || to_char(P_Payment_Num) ||
626: ', Checkrun Name= ' || P_Checkrun_Name ||
627: ', Invoice Payment Id= ' || to_char(P_Invoice_Payment_Id) ||
628: ', Check Id= ' || to_char(P_Check_Id));
629: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
630: END IF;
631:
632: P_AWT_Success := AWT_ERROR;
633:
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);
788: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
789: Fnd_Message.Set_Token('PARAMETERS',
790: ' Parent_Id= ' || to_char(P_Parent_Id) ||
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);
788: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
789: Fnd_Message.Set_Token('PARAMETERS',
790: ' Parent_Id= ' || to_char(P_Parent_Id) ||
791: ', Calling_Module= ' || P_Calling_Module ||
784: END IF;
785: -- End Debug
786: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
787: Fnd_Message.Set_Token('ERROR', SQLERRM);
788: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
789: Fnd_Message.Set_Token('PARAMETERS',
790: ' Parent_Id= ' || to_char(P_Parent_Id) ||
791: ', Calling_Module= ' || P_Calling_Module ||
792: ', Undo_Awt_Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD'));
785: -- End Debug
786: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
787: Fnd_Message.Set_Token('ERROR', SQLERRM);
788: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
789: Fnd_Message.Set_Token('PARAMETERS',
790: ' Parent_Id= ' || to_char(P_Parent_Id) ||
791: ', Calling_Module= ' || P_Calling_Module ||
792: ', Undo_Awt_Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD'));
793: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
789: Fnd_Message.Set_Token('PARAMETERS',
790: ' Parent_Id= ' || to_char(P_Parent_Id) ||
791: ', Calling_Module= ' || P_Calling_Module ||
792: ', Undo_Awt_Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD'));
793: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
794: END IF;
795:
796: App_Exception.Raise_Exception;
797:
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);
870: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
871: Fnd_Message.Set_Token('PARAMETERS',
872: ', Checkrun Name = ' || P_Checkrun_name);
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);
870: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
871: Fnd_Message.Set_Token('PARAMETERS',
872: ', Checkrun Name = ' || P_Checkrun_name);
873: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
866: END IF;
867: -- End Debug
868: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
869: Fnd_Message.Set_Token('ERROR', SQLERRM);
870: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
871: Fnd_Message.Set_Token('PARAMETERS',
872: ', Checkrun Name = ' || P_Checkrun_name);
873: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
874: END IF;
867: -- End Debug
868: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
869: Fnd_Message.Set_Token('ERROR', SQLERRM);
870: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
871: Fnd_Message.Set_Token('PARAMETERS',
872: ', Checkrun Name = ' || P_Checkrun_name);
873: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
874: END IF;
875:
869: Fnd_Message.Set_Token('ERROR', SQLERRM);
870: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
871: Fnd_Message.Set_Token('PARAMETERS',
872: ', Checkrun Name = ' || P_Checkrun_name);
873: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
874: END IF;
875:
876:
877: END JL_AR_AP_VOID_SELEC_CERTIF;
1010:
1011: EXCEPTION
1012: WHEN others THEN
1013: IF (SQLCODE <> -20001) THEN
1014: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1015: Fnd_Message.Set_Token('ERROR', SQLERRM);
1016: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1017: Fnd_Message.Set_Token('PARAMETERS',
1018: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
1011: EXCEPTION
1012: WHEN others THEN
1013: IF (SQLCODE <> -20001) THEN
1014: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1015: Fnd_Message.Set_Token('ERROR', SQLERRM);
1016: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1017: Fnd_Message.Set_Token('PARAMETERS',
1018: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
1019: ', Payment Num= ' || to_char(P_Payment_Num) ||
1012: WHEN others THEN
1013: IF (SQLCODE <> -20001) THEN
1014: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1015: Fnd_Message.Set_Token('ERROR', SQLERRM);
1016: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1017: Fnd_Message.Set_Token('PARAMETERS',
1018: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
1019: ', Payment Num= ' || to_char(P_Payment_Num) ||
1020: ', Checkrun Name= ' || P_Checkrun_Name ||
1013: IF (SQLCODE <> -20001) THEN
1014: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1015: Fnd_Message.Set_Token('ERROR', SQLERRM);
1016: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1017: Fnd_Message.Set_Token('PARAMETERS',
1018: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
1019: ', Payment Num= ' || to_char(P_Payment_Num) ||
1020: ', Checkrun Name= ' || P_Checkrun_Name ||
1021: ', Undo Awt Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD') ||
1019: ', Payment Num= ' || to_char(P_Payment_Num) ||
1020: ', Checkrun Name= ' || P_Checkrun_Name ||
1021: ', Undo Awt Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD') ||
1022: ', Calling Module= ' || P_Calling_Module);
1023: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1024: END IF;
1025:
1026: App_Exception.Raise_Exception;
1027:
1178: EXCEPTION
1179:
1180: WHEN others THEN
1181: IF (SQLCODE <> -20001) THEN
1182: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1183: Fnd_Message.Set_Token('ERROR', SQLERRM);
1184: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1185: Fnd_Message.Set_Token('PARAMETERS',
1186: ' Payment Instruction ID ' || p_payment_instruction_id );
1179:
1180: WHEN others THEN
1181: IF (SQLCODE <> -20001) THEN
1182: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1183: Fnd_Message.Set_Token('ERROR', SQLERRM);
1184: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1185: Fnd_Message.Set_Token('PARAMETERS',
1186: ' Payment Instruction ID ' || p_payment_instruction_id );
1187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1180: WHEN others THEN
1181: IF (SQLCODE <> -20001) THEN
1182: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1183: Fnd_Message.Set_Token('ERROR', SQLERRM);
1184: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1185: Fnd_Message.Set_Token('PARAMETERS',
1186: ' Payment Instruction ID ' || p_payment_instruction_id );
1187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1188: END IF;
1181: IF (SQLCODE <> -20001) THEN
1182: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1183: Fnd_Message.Set_Token('ERROR', SQLERRM);
1184: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1185: Fnd_Message.Set_Token('PARAMETERS',
1186: ' Payment Instruction ID ' || p_payment_instruction_id );
1187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1188: END IF;
1189: x_return_status := fnd_api.g_ret_sts_error;
1183: Fnd_Message.Set_Token('ERROR', SQLERRM);
1184: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1185: Fnd_Message.Set_Token('PARAMETERS',
1186: ' Payment Instruction ID ' || p_payment_instruction_id );
1187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1188: END IF;
1189: x_return_status := fnd_api.g_ret_sts_error;
1190: App_Exception.Raise_Exception;
1191:
1491: -- End Debug
1492:
1493: EXCEPTION
1494: WHEN Not_Paid_In_Full THEN
1495: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1496: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1497: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1498: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1499: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1492:
1493: EXCEPTION
1494: WHEN Not_Paid_In_Full THEN
1495: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1496: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1497: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1498: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1499: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1500: P_AWT_Success := Fnd_Message.Get;
1493: EXCEPTION
1494: WHEN Not_Paid_In_Full THEN
1495: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1496: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1497: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1498: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1499: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1500: P_AWT_Success := Fnd_Message.Get;
1501:
1494: WHEN Not_Paid_In_Full THEN
1495: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1496: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1497: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1498: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1499: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1500: P_AWT_Success := Fnd_Message.Get;
1501:
1502: WHEN others THEN
1495: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1496: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1497: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1498: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1499: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1500: P_AWT_Success := Fnd_Message.Get;
1501:
1502: WHEN others THEN
1503: IF (SQLCODE <> -20001) THEN
1496: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1497: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1498: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1499: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1500: P_AWT_Success := Fnd_Message.Get;
1501:
1502: WHEN others THEN
1503: IF (SQLCODE <> -20001) THEN
1504: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1500: P_AWT_Success := Fnd_Message.Get;
1501:
1502: WHEN others THEN
1503: IF (SQLCODE <> -20001) THEN
1504: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1505: Fnd_Message.Set_Token('ERROR', SQLERRM);
1506: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1507: Fnd_Message.Set_Token('PARAMETERS',
1508: ' Checkrun Name= ' || P_Checkrun_Name ||
1501:
1502: WHEN others THEN
1503: IF (SQLCODE <> -20001) THEN
1504: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1505: Fnd_Message.Set_Token('ERROR', SQLERRM);
1506: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1507: Fnd_Message.Set_Token('PARAMETERS',
1508: ' Checkrun Name= ' || P_Checkrun_Name ||
1509: ', Check Id= ' || to_char(P_Check_Id) ||
1502: WHEN others THEN
1503: IF (SQLCODE <> -20001) THEN
1504: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1505: Fnd_Message.Set_Token('ERROR', SQLERRM);
1506: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1507: Fnd_Message.Set_Token('PARAMETERS',
1508: ' Checkrun Name= ' || P_Checkrun_Name ||
1509: ', Check Id= ' || to_char(P_Check_Id) ||
1510: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1503: IF (SQLCODE <> -20001) THEN
1504: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1505: Fnd_Message.Set_Token('ERROR', SQLERRM);
1506: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1507: Fnd_Message.Set_Token('PARAMETERS',
1508: ' Checkrun Name= ' || P_Checkrun_Name ||
1509: ', Check Id= ' || to_char(P_Check_Id) ||
1510: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1511: ', Calling Module= ' || P_Calling_Module);
1508: ' Checkrun Name= ' || P_Checkrun_Name ||
1509: ', Check Id= ' || to_char(P_Check_Id) ||
1510: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1511: ', Calling Module= ' || P_Calling_Module);
1512: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1513: END IF;
1514:
1515: App_Exception.Raise_Exception;
1516:
1716: -- End Debug
1717:
1718: ROLLBACK TO Before_Calc_Withholding;
1719:
1720: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_BATCH_ERROR');
1721: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1722: P_AWT_Success := Fnd_Message.Get;
1723:
1724: -- Debug Information
1717:
1718: ROLLBACK TO Before_Calc_Withholding;
1719:
1720: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_BATCH_ERROR');
1721: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1722: P_AWT_Success := Fnd_Message.Get;
1723:
1724: -- Debug Information
1725: IF (DEBUG_Var = 'Y') THEN
1718: ROLLBACK TO Before_Calc_Withholding;
1719:
1720: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_BATCH_ERROR');
1721: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
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');
1785: END IF;
1786: -- End Debug
1787:
1788: IF (SQLCODE <> -20001) THEN
1789: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1790: Fnd_Message.Set_Token('ERROR', SQLERRM);
1791: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1792: Fnd_Message.Set_Token('PARAMETERS',
1793: ' Checkrun Name= ' || P_Checkrun_Name ||
1786: -- End Debug
1787:
1788: IF (SQLCODE <> -20001) THEN
1789: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1790: Fnd_Message.Set_Token('ERROR', SQLERRM);
1791: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1792: Fnd_Message.Set_Token('PARAMETERS',
1793: ' Checkrun Name= ' || P_Checkrun_Name ||
1794: ', Calling Module= ' || P_Calling_Module);
1787:
1788: IF (SQLCODE <> -20001) THEN
1789: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1790: Fnd_Message.Set_Token('ERROR', SQLERRM);
1791: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1792: Fnd_Message.Set_Token('PARAMETERS',
1793: ' Checkrun Name= ' || P_Checkrun_Name ||
1794: ', Calling Module= ' || P_Calling_Module);
1795: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1788: IF (SQLCODE <> -20001) THEN
1789: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1790: Fnd_Message.Set_Token('ERROR', SQLERRM);
1791: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1792: Fnd_Message.Set_Token('PARAMETERS',
1793: ' Checkrun Name= ' || P_Checkrun_Name ||
1794: ', Calling Module= ' || P_Calling_Module);
1795: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1796: END IF;
1791: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1792: Fnd_Message.Set_Token('PARAMETERS',
1793: ' Checkrun Name= ' || P_Checkrun_Name ||
1794: ', Calling Module= ' || P_Calling_Module);
1795: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1796: END IF;
1797: P_AWT_Success := AWT_ERROR;
1798: App_Exception.Raise_Exception;
1799:
2067: END IF;
2068: -- end debug
2069:
2070: IF (SQLCODE <> -20001) THEN
2071: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2072: Fnd_Message.Set_Token('ERROR', SQLERRM);
2073: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2074: Fnd_Message.Set_Token('PARAMETERS',
2075: ' Checkrun Name= ' || P_Checkrun_Name ||
2068: -- end debug
2069:
2070: IF (SQLCODE <> -20001) THEN
2071: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2072: Fnd_Message.Set_Token('ERROR', SQLERRM);
2073: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2074: Fnd_Message.Set_Token('PARAMETERS',
2075: ' Checkrun Name= ' || P_Checkrun_Name ||
2076: ', Calling Module= ' || P_Calling_Module);
2069:
2070: IF (SQLCODE <> -20001) THEN
2071: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2072: Fnd_Message.Set_Token('ERROR', SQLERRM);
2073: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2074: Fnd_Message.Set_Token('PARAMETERS',
2075: ' Checkrun Name= ' || P_Checkrun_Name ||
2076: ', Calling Module= ' || P_Calling_Module);
2077: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2070: IF (SQLCODE <> -20001) THEN
2071: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2072: Fnd_Message.Set_Token('ERROR', SQLERRM);
2073: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2074: Fnd_Message.Set_Token('PARAMETERS',
2075: ' Checkrun Name= ' || P_Checkrun_Name ||
2076: ', Calling Module= ' || P_Calling_Module);
2077: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2078: END IF;
2073: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2074: Fnd_Message.Set_Token('PARAMETERS',
2075: ' Checkrun Name= ' || P_Checkrun_Name ||
2076: ', Calling Module= ' || P_Calling_Module);
2077: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2078: END IF;
2079:
2080: App_Exception.Raise_Exception;
2081:
3030:
3031: EXCEPTION
3032: WHEN others THEN
3033: IF (SQLCODE <> -20001) THEN
3034: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3035: Fnd_Message.Set_Token('ERROR', SQLERRM);
3036: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3037: Fnd_Message.Set_Token('PARAMETERS',
3038: ' Checkrun Name= ' || P_Checkrun_Name ||
3031: EXCEPTION
3032: WHEN others THEN
3033: IF (SQLCODE <> -20001) THEN
3034: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3035: Fnd_Message.Set_Token('ERROR', SQLERRM);
3036: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3037: Fnd_Message.Set_Token('PARAMETERS',
3038: ' Checkrun Name= ' || P_Checkrun_Name ||
3039: ', Check Id= ' || to_char(P_Check_Id) ||
3032: WHEN others THEN
3033: IF (SQLCODE <> -20001) THEN
3034: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3035: Fnd_Message.Set_Token('ERROR', SQLERRM);
3036: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3037: Fnd_Message.Set_Token('PARAMETERS',
3038: ' Checkrun Name= ' || P_Checkrun_Name ||
3039: ', Check Id= ' || to_char(P_Check_Id) ||
3040: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
3033: IF (SQLCODE <> -20001) THEN
3034: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3035: Fnd_Message.Set_Token('ERROR', SQLERRM);
3036: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3037: Fnd_Message.Set_Token('PARAMETERS',
3038: ' Checkrun Name= ' || P_Checkrun_Name ||
3039: ', Check Id= ' || to_char(P_Check_Id) ||
3040: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
3041: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3039: ', Check Id= ' || to_char(P_Check_Id) ||
3040: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
3041: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3042: ', Calling Module= ' || P_Calling_Module);
3043: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3044: END IF;
3045: P_AWT_Success := AWT_ERROR;
3046: App_Exception.Raise_Exception;
3047:
3116:
3117: EXCEPTION
3118: WHEN others THEN
3119: IF (SQLCODE <> -20001) THEN
3120: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3121: Fnd_Message.Set_Token('ERROR', SQLERRM);
3122: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3123: Fnd_Message.Set_Token('PARAMETERS',
3124: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3117: EXCEPTION
3118: WHEN others THEN
3119: IF (SQLCODE <> -20001) THEN
3120: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3121: Fnd_Message.Set_Token('ERROR', SQLERRM);
3122: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3123: Fnd_Message.Set_Token('PARAMETERS',
3124: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3125: ', AWT Type Code= ' || P_AWT_Type_Code ||
3118: WHEN others THEN
3119: IF (SQLCODE <> -20001) THEN
3120: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3121: Fnd_Message.Set_Token('ERROR', SQLERRM);
3122: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3123: Fnd_Message.Set_Token('PARAMETERS',
3124: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3125: ', AWT Type Code= ' || P_AWT_Type_Code ||
3126: ', Tax Id= ' || to_char(P_Tax_Id));
3119: IF (SQLCODE <> -20001) THEN
3120: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3121: Fnd_Message.Set_Token('ERROR', SQLERRM);
3122: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3123: Fnd_Message.Set_Token('PARAMETERS',
3124: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3125: ', AWT Type Code= ' || P_AWT_Type_Code ||
3126: ', Tax Id= ' || to_char(P_Tax_Id));
3127: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3123: Fnd_Message.Set_Token('PARAMETERS',
3124: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3125: ', AWT Type Code= ' || P_AWT_Type_Code ||
3126: ', Tax Id= ' || to_char(P_Tax_Id));
3127: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3128: END IF;
3129:
3130: App_Exception.Raise_Exception;
3131:
3350:
3351: EXCEPTION
3352: WHEN others THEN
3353: IF (SQLCODE <> -20001) THEN
3354: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3355: Fnd_Message.Set_Token('ERROR', SQLERRM);
3356: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3357: Fnd_Message.Set_Token('PARAMETERS',
3358: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3351: EXCEPTION
3352: WHEN others THEN
3353: IF (SQLCODE <> -20001) THEN
3354: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3355: Fnd_Message.Set_Token('ERROR', SQLERRM);
3356: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3357: Fnd_Message.Set_Token('PARAMETERS',
3358: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3359: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3352: WHEN others THEN
3353: IF (SQLCODE <> -20001) THEN
3354: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3355: Fnd_Message.Set_Token('ERROR', SQLERRM);
3356: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3357: Fnd_Message.Set_Token('PARAMETERS',
3358: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3359: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3360: ', GL Period Name= ' || P_GL_Period_Name ||
3353: IF (SQLCODE <> -20001) THEN
3354: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3355: Fnd_Message.Set_Token('ERROR', SQLERRM);
3356: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3357: Fnd_Message.Set_Token('PARAMETERS',
3358: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3359: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3360: ', GL Period Name= ' || P_GL_Period_Name ||
3361: ', Base Currency Code= ' || P_Base_Currency_Code ||
3363: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
3364: ', Calling Module= ' || P_Calling_Module ||
3365: ', Checkrun Name= ' || P_Checkrun_Name ||
3366: ', Payment Num= ' || to_char(P_Payment_Num));
3367: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3368: END IF;
3369:
3370: App_Exception.Raise_Exception;
3371:
3885:
3886: EXCEPTION
3887: WHEN others THEN
3888: IF (SQLCODE <> -20001) THEN
3889: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3890: Fnd_Message.Set_Token('ERROR', SQLERRM);
3891: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3892: Fnd_Message.Set_Token('PARAMETERS',
3893: ' Check Id= ' || to_char(P_Check_Id) ||
3886: EXCEPTION
3887: WHEN others THEN
3888: IF (SQLCODE <> -20001) THEN
3889: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3890: Fnd_Message.Set_Token('ERROR', SQLERRM);
3891: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3892: Fnd_Message.Set_Token('PARAMETERS',
3893: ' Check Id= ' || to_char(P_Check_Id) ||
3894: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3887: WHEN others THEN
3888: IF (SQLCODE <> -20001) THEN
3889: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3890: Fnd_Message.Set_Token('ERROR', SQLERRM);
3891: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3892: Fnd_Message.Set_Token('PARAMETERS',
3893: ' Check Id= ' || to_char(P_Check_Id) ||
3894: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3895: ', Currency Code= ' || P_Currency_Code ||
3888: IF (SQLCODE <> -20001) THEN
3889: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3890: Fnd_Message.Set_Token('ERROR', SQLERRM);
3891: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3892: Fnd_Message.Set_Token('PARAMETERS',
3893: ' Check Id= ' || to_char(P_Check_Id) ||
3894: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3895: ', Currency Code= ' || P_Currency_Code ||
3896: ', Calling Module= ' || P_Calling_Module);
3893: ' Check Id= ' || to_char(P_Check_Id) ||
3894: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3895: ', Currency Code= ' || P_Currency_Code ||
3896: ', Calling Module= ' || P_Calling_Module);
3897: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3898: END IF;
3899:
3900: App_Exception.Raise_Exception;
3901:
4059:
4060: EXCEPTION
4061: WHEN others THEN
4062: IF (SQLCODE <> -20001) THEN
4063: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4064: Fnd_Message.Set_Token('ERROR', SQLERRM);
4065: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4066: Fnd_Message.Set_Token('PARAMETERS',
4067: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
4060: EXCEPTION
4061: WHEN others THEN
4062: IF (SQLCODE <> -20001) THEN
4063: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4064: Fnd_Message.Set_Token('ERROR', SQLERRM);
4065: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4066: Fnd_Message.Set_Token('PARAMETERS',
4067: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
4068: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
4061: WHEN others THEN
4062: IF (SQLCODE <> -20001) THEN
4063: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4064: Fnd_Message.Set_Token('ERROR', SQLERRM);
4065: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4066: Fnd_Message.Set_Token('PARAMETERS',
4067: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
4068: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
4069: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis ||
4062: IF (SQLCODE <> -20001) THEN
4063: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4064: Fnd_Message.Set_Token('ERROR', SQLERRM);
4065: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4066: Fnd_Message.Set_Token('PARAMETERS',
4067: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
4068: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
4069: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis ||
4070: ', Tax Inclusive Flag= ' || P_Tax_Inclusive_Flag);
4067: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
4068: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
4069: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis ||
4070: ', Tax Inclusive Flag= ' || P_Tax_Inclusive_Flag);
4071: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4072: END IF;
4073:
4074: App_Exception.Raise_Exception;
4075:
4151: RETURN 0;
4152:
4153: WHEN others THEN
4154: IF (SQLCODE <> -20001) THEN
4155: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4156: Fnd_Message.Set_Token('ERROR', SQLERRM);
4157: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4158: Fnd_Message.Set_Token('PARAMETERS',
4159: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4152:
4153: WHEN others THEN
4154: IF (SQLCODE <> -20001) THEN
4155: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4156: Fnd_Message.Set_Token('ERROR', SQLERRM);
4157: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4158: Fnd_Message.Set_Token('PARAMETERS',
4159: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4160: ', AWT Type Code= ' || P_AWT_Type_Code);
4153: WHEN others THEN
4154: IF (SQLCODE <> -20001) THEN
4155: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4156: Fnd_Message.Set_Token('ERROR', SQLERRM);
4157: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4158: Fnd_Message.Set_Token('PARAMETERS',
4159: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4160: ', AWT Type Code= ' || P_AWT_Type_Code);
4161: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4154: IF (SQLCODE <> -20001) THEN
4155: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4156: Fnd_Message.Set_Token('ERROR', SQLERRM);
4157: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4158: Fnd_Message.Set_Token('PARAMETERS',
4159: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4160: ', AWT Type Code= ' || P_AWT_Type_Code);
4161: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4162: END IF;
4157: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4158: Fnd_Message.Set_Token('PARAMETERS',
4159: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4160: ', AWT Type Code= ' || P_AWT_Type_Code);
4161: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4162: END IF;
4163:
4164: App_Exception.Raise_Exception;
4165:
4375:
4376: EXCEPTION
4377: WHEN others THEN
4378: IF (SQLCODE <> -20001) THEN
4379: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4380: Fnd_Message.Set_Token('ERROR', SQLERRM);
4381: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4382: Fnd_Message.Set_Token('PARAMETERS',
4383: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4376: EXCEPTION
4377: WHEN others THEN
4378: IF (SQLCODE <> -20001) THEN
4379: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4380: Fnd_Message.Set_Token('ERROR', SQLERRM);
4381: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4382: Fnd_Message.Set_Token('PARAMETERS',
4383: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4384: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4377: WHEN others THEN
4378: IF (SQLCODE <> -20001) THEN
4379: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4380: Fnd_Message.Set_Token('ERROR', SQLERRM);
4381: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4382: Fnd_Message.Set_Token('PARAMETERS',
4383: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4384: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4385: ', Payment_Num= ' || to_char(P_Payment_Num) ||
4378: IF (SQLCODE <> -20001) THEN
4379: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4380: Fnd_Message.Set_Token('ERROR', SQLERRM);
4381: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4382: Fnd_Message.Set_Token('PARAMETERS',
4383: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4384: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4385: ', Payment_Num= ' || to_char(P_Payment_Num) ||
4386: ', Check_Id= ' || to_char(P_Check_Id) ||
4384: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4385: ', Payment_Num= ' || to_char(P_Payment_Num) ||
4386: ', Check_Id= ' || to_char(P_Check_Id) ||
4387: ', Selected_Check_Id= ' || to_char(P_Selected_Check_Id));
4388: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4389: END IF;
4390:
4391: App_Exception.Raise_Exception;
4392:
4492:
4493: EXCEPTION
4494: WHEN others THEN
4495: IF (SQLCODE <> -20001) THEN
4496: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4497: Fnd_Message.Set_Token('ERROR', SQLERRM);
4498: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4499: Fnd_Message.Set_Token('PARAMETERS',
4500: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4493: EXCEPTION
4494: WHEN others THEN
4495: IF (SQLCODE <> -20001) THEN
4496: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4497: Fnd_Message.Set_Token('ERROR', SQLERRM);
4498: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4499: Fnd_Message.Set_Token('PARAMETERS',
4500: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4501: ', AWT Type Code= ' || P_AWT_Type_Code ||
4494: WHEN others THEN
4495: IF (SQLCODE <> -20001) THEN
4496: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4497: Fnd_Message.Set_Token('ERROR', SQLERRM);
4498: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4499: Fnd_Message.Set_Token('PARAMETERS',
4500: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4501: ', AWT Type Code= ' || P_AWT_Type_Code ||
4502: ', Tax Id= ' || to_char(P_Tax_Id) ||
4495: IF (SQLCODE <> -20001) THEN
4496: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4497: Fnd_Message.Set_Token('ERROR', SQLERRM);
4498: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4499: Fnd_Message.Set_Token('PARAMETERS',
4500: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4501: ', AWT Type Code= ' || P_AWT_Type_Code ||
4502: ', Tax Id= ' || to_char(P_Tax_Id) ||
4503: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4507: ', Status= ' || P_Status ||
4508: ', Payment Num= ' || to_char(P_Payment_Num) ||
4509: ', Check Id= ' || to_char(P_Check_Id) ||
4510: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
4511: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4512: END IF;
4513:
4514: App_Exception.Raise_Exception;
4515:
4689:
4690: EXCEPTION
4691: WHEN others THEN
4692: IF (SQLCODE <> -20001) THEN
4693: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4694: Fnd_Message.Set_Token('ERROR', SQLERRM);
4695: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4696: Fnd_Message.Set_Token('PARAMETERS',
4697: ' Check Id= ' || to_char(P_Check_Id) ||
4690: EXCEPTION
4691: WHEN others THEN
4692: IF (SQLCODE <> -20001) THEN
4693: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4694: Fnd_Message.Set_Token('ERROR', SQLERRM);
4695: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4696: Fnd_Message.Set_Token('PARAMETERS',
4697: ' Check Id= ' || to_char(P_Check_Id) ||
4698: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4691: WHEN others THEN
4692: IF (SQLCODE <> -20001) THEN
4693: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4694: Fnd_Message.Set_Token('ERROR', SQLERRM);
4695: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4696: Fnd_Message.Set_Token('PARAMETERS',
4697: ' Check Id= ' || to_char(P_Check_Id) ||
4698: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4699: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4692: IF (SQLCODE <> -20001) THEN
4693: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4694: Fnd_Message.Set_Token('ERROR', SQLERRM);
4695: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4696: Fnd_Message.Set_Token('PARAMETERS',
4697: ' Check Id= ' || to_char(P_Check_Id) ||
4698: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4699: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4700: ', Payment Num= ' || to_char(P_Payment_Num));
4697: ' Check Id= ' || to_char(P_Check_Id) ||
4698: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4699: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4700: ', Payment Num= ' || to_char(P_Payment_Num));
4701: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4702: END IF;
4703:
4704: App_Exception.Raise_Exception;
4705:
4969:
4970: EXCEPTION
4971: WHEN others THEN
4972: IF (SQLCODE <> -20001) THEN
4973: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4974: Fnd_Message.Set_Token('ERROR', SQLERRM);
4975: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4976: Fnd_Message.Set_Token('PARAMETERS',
4977: ' Check Id= ' || to_char(P_Check_Id));
4970: EXCEPTION
4971: WHEN others THEN
4972: IF (SQLCODE <> -20001) THEN
4973: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4974: Fnd_Message.Set_Token('ERROR', SQLERRM);
4975: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4976: Fnd_Message.Set_Token('PARAMETERS',
4977: ' Check Id= ' || to_char(P_Check_Id));
4978: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4971: WHEN others THEN
4972: IF (SQLCODE <> -20001) THEN
4973: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4974: Fnd_Message.Set_Token('ERROR', SQLERRM);
4975: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4976: Fnd_Message.Set_Token('PARAMETERS',
4977: ' Check Id= ' || to_char(P_Check_Id));
4978: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4979: END IF;
4972: IF (SQLCODE <> -20001) THEN
4973: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4974: Fnd_Message.Set_Token('ERROR', SQLERRM);
4975: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4976: Fnd_Message.Set_Token('PARAMETERS',
4977: ' Check Id= ' || to_char(P_Check_Id));
4978: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4979: END IF;
4980:
4974: Fnd_Message.Set_Token('ERROR', SQLERRM);
4975: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4976: Fnd_Message.Set_Token('PARAMETERS',
4977: ' Check Id= ' || to_char(P_Check_Id));
4978: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4979: END IF;
4980:
4981: App_Exception.Raise_Exception;
4982:
5299:
5300: EXCEPTION
5301: WHEN others THEN
5302: IF (SQLCODE <> -20001) THEN
5303: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5304: Fnd_Message.Set_Token('ERROR', SQLERRM);
5305: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5306: Fnd_Message.Set_Token('PARAMETERS',
5307: ' Checkrun Name= ' || P_Checkrun_Name ||
5300: EXCEPTION
5301: WHEN others THEN
5302: IF (SQLCODE <> -20001) THEN
5303: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5304: Fnd_Message.Set_Token('ERROR', SQLERRM);
5305: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5306: Fnd_Message.Set_Token('PARAMETERS',
5307: ' Checkrun Name= ' || P_Checkrun_Name ||
5308: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5301: WHEN others THEN
5302: IF (SQLCODE <> -20001) THEN
5303: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5304: Fnd_Message.Set_Token('ERROR', SQLERRM);
5305: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5306: Fnd_Message.Set_Token('PARAMETERS',
5307: ' Checkrun Name= ' || P_Checkrun_Name ||
5308: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5309: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5302: IF (SQLCODE <> -20001) THEN
5303: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5304: Fnd_Message.Set_Token('ERROR', SQLERRM);
5305: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5306: Fnd_Message.Set_Token('PARAMETERS',
5307: ' Checkrun Name= ' || P_Checkrun_Name ||
5308: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5309: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5310: END IF;
5305: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5306: Fnd_Message.Set_Token('PARAMETERS',
5307: ' Checkrun Name= ' || P_Checkrun_Name ||
5308: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5309: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5310: END IF;
5311:
5312: App_Exception.Raise_Exception;
5313:
5422:
5423: EXCEPTION
5424: WHEN others THEN
5425: IF (SQLCODE <> -20001) THEN
5426: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5427: Fnd_Message.Set_Token('ERROR', SQLERRM);
5428: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5429: Fnd_Message.Set_Token('PARAMETERS',
5430: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5423: EXCEPTION
5424: WHEN others THEN
5425: IF (SQLCODE <> -20001) THEN
5426: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5427: Fnd_Message.Set_Token('ERROR', SQLERRM);
5428: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5429: Fnd_Message.Set_Token('PARAMETERS',
5430: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5431: ', Tax Name= ' || P_Tax_Name ||
5424: WHEN others THEN
5425: IF (SQLCODE <> -20001) THEN
5426: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5427: Fnd_Message.Set_Token('ERROR', SQLERRM);
5428: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5429: Fnd_Message.Set_Token('PARAMETERS',
5430: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5431: ', Tax Name= ' || P_Tax_Name ||
5432: ', Taxable Base Amount Basis= ' || P_Taxable_Base_Amount_Basis);
5425: IF (SQLCODE <> -20001) THEN
5426: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5427: Fnd_Message.Set_Token('ERROR', SQLERRM);
5428: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5429: Fnd_Message.Set_Token('PARAMETERS',
5430: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5431: ', Tax Name= ' || P_Tax_Name ||
5432: ', Taxable Base Amount Basis= ' || P_Taxable_Base_Amount_Basis);
5433: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5429: Fnd_Message.Set_Token('PARAMETERS',
5430: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5431: ', Tax Name= ' || P_Tax_Name ||
5432: ', Taxable Base Amount Basis= ' || P_Taxable_Base_Amount_Basis);
5433: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5434: END IF;
5435:
5436: App_Exception.Raise_Exception;
5437:
5491:
5492: EXCEPTION
5493: WHEN others THEN
5494: IF (SQLCODE <> -20001) THEN
5495: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5496: Fnd_Message.Set_Token('ERROR', SQLERRM);
5497: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5498: Fnd_Message.Set_Token('PARAMETERS', null);
5499: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5492: EXCEPTION
5493: WHEN others THEN
5494: IF (SQLCODE <> -20001) THEN
5495: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5496: Fnd_Message.Set_Token('ERROR', SQLERRM);
5497: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5498: Fnd_Message.Set_Token('PARAMETERS', null);
5499: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5500: END IF;
5493: WHEN others THEN
5494: IF (SQLCODE <> -20001) THEN
5495: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5496: Fnd_Message.Set_Token('ERROR', SQLERRM);
5497: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5498: Fnd_Message.Set_Token('PARAMETERS', null);
5499: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5500: END IF;
5501:
5494: IF (SQLCODE <> -20001) THEN
5495: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5496: Fnd_Message.Set_Token('ERROR', SQLERRM);
5497: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5498: Fnd_Message.Set_Token('PARAMETERS', null);
5499: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5500: END IF;
5501:
5502: App_Exception.Raise_Exception;
5495: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5496: Fnd_Message.Set_Token('ERROR', SQLERRM);
5497: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5498: Fnd_Message.Set_Token('PARAMETERS', null);
5499: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5500: END IF;
5501:
5502: App_Exception.Raise_Exception;
5503:
5624:
5625: EXCEPTION
5626: WHEN others THEN
5627: IF (SQLCODE <> -20001) THEN
5628: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5629: Fnd_Message.Set_Token('ERROR', SQLERRM);
5630: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5631: Fnd_Message.Set_Token('PARAMETERS',
5632: ' Check Id= ' || to_char(P_Check_Id) ||
5625: EXCEPTION
5626: WHEN others THEN
5627: IF (SQLCODE <> -20001) THEN
5628: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5629: Fnd_Message.Set_Token('ERROR', SQLERRM);
5630: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5631: Fnd_Message.Set_Token('PARAMETERS',
5632: ' Check Id= ' || to_char(P_Check_Id) ||
5633: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5626: WHEN others THEN
5627: IF (SQLCODE <> -20001) THEN
5628: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5629: Fnd_Message.Set_Token('ERROR', SQLERRM);
5630: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5631: Fnd_Message.Set_Token('PARAMETERS',
5632: ' Check Id= ' || to_char(P_Check_Id) ||
5633: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5634: ', Calling Module= ' || P_Calling_Module ||
5627: IF (SQLCODE <> -20001) THEN
5628: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5629: Fnd_Message.Set_Token('ERROR', SQLERRM);
5630: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5631: Fnd_Message.Set_Token('PARAMETERS',
5632: ' Check Id= ' || to_char(P_Check_Id) ||
5633: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5634: ', Calling Module= ' || P_Calling_Module ||
5635: ', Total Wh Amount= ' || to_char(P_Total_Wh_Amount));
5632: ' Check Id= ' || to_char(P_Check_Id) ||
5633: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5634: ', Calling Module= ' || P_Calling_Module ||
5635: ', Total Wh Amount= ' || to_char(P_Total_Wh_Amount));
5636: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5637: END IF;
5638:
5639: App_Exception.Raise_Exception;
5640:
5740: END IF;
5741: -- end debug
5742:
5743: IF (SQLCODE <> -20001) THEN
5744: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5745: Fnd_Message.Set_Token('ERROR', SQLERRM);
5746: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5747: Fnd_Message.Set_Token('PARAMETERS',
5748: ' Checkrun Name= ' || P_Checkrun_Name);
5741: -- end debug
5742:
5743: IF (SQLCODE <> -20001) THEN
5744: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5745: Fnd_Message.Set_Token('ERROR', SQLERRM);
5746: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5747: Fnd_Message.Set_Token('PARAMETERS',
5748: ' Checkrun Name= ' || P_Checkrun_Name);
5749: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5742:
5743: IF (SQLCODE <> -20001) THEN
5744: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5745: Fnd_Message.Set_Token('ERROR', SQLERRM);
5746: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5747: Fnd_Message.Set_Token('PARAMETERS',
5748: ' Checkrun Name= ' || P_Checkrun_Name);
5749: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5750: END IF;
5743: IF (SQLCODE <> -20001) THEN
5744: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5745: Fnd_Message.Set_Token('ERROR', SQLERRM);
5746: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5747: Fnd_Message.Set_Token('PARAMETERS',
5748: ' Checkrun Name= ' || P_Checkrun_Name);
5749: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5750: END IF;
5751:
5745: Fnd_Message.Set_Token('ERROR', SQLERRM);
5746: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5747: Fnd_Message.Set_Token('PARAMETERS',
5748: ' Checkrun Name= ' || P_Checkrun_Name);
5749: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5750: END IF;
5751:
5752: App_Exception.Raise_Exception;
5753:
5855:
5856: EXCEPTION
5857: WHEN others THEN
5858: IF (SQLCODE <> -20001) THEN
5859: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5860: Fnd_Message.Set_Token('ERROR', SQLERRM);
5861: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5862: Fnd_Message.Set_Token('PARAMETERS',
5863: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5856: EXCEPTION
5857: WHEN others THEN
5858: IF (SQLCODE <> -20001) THEN
5859: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5860: Fnd_Message.Set_Token('ERROR', SQLERRM);
5861: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5862: Fnd_Message.Set_Token('PARAMETERS',
5863: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5864: ', AWT Success= ' || P_AWT_Success);
5857: WHEN others THEN
5858: IF (SQLCODE <> -20001) THEN
5859: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5860: Fnd_Message.Set_Token('ERROR', SQLERRM);
5861: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5862: Fnd_Message.Set_Token('PARAMETERS',
5863: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5864: ', AWT Success= ' || P_AWT_Success);
5865: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5858: IF (SQLCODE <> -20001) THEN
5859: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5860: Fnd_Message.Set_Token('ERROR', SQLERRM);
5861: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5862: Fnd_Message.Set_Token('PARAMETERS',
5863: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5864: ', AWT Success= ' || P_AWT_Success);
5865: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5866: END IF;
5861: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5862: Fnd_Message.Set_Token('PARAMETERS',
5863: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5864: ', AWT Success= ' || P_AWT_Success);
5865: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5866: END IF;
5867:
5868: App_Exception.Raise_Exception;
5869:
6227:
6228: EXCEPTION
6229: WHEN others THEN
6230: IF (SQLCODE <> -20001) THEN
6231: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
6232: Fnd_Message.Set_Token('ERROR', SQLERRM);
6233: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
6234: Fnd_Message.Set_Token('PARAMETERS',
6235: ' Check Id= ' || to_char(P_Check_Id));
6228: EXCEPTION
6229: WHEN others THEN
6230: IF (SQLCODE <> -20001) THEN
6231: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
6232: Fnd_Message.Set_Token('ERROR', SQLERRM);
6233: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
6234: Fnd_Message.Set_Token('PARAMETERS',
6235: ' Check Id= ' || to_char(P_Check_Id));
6236: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
6229: WHEN others THEN
6230: IF (SQLCODE <> -20001) THEN
6231: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
6232: Fnd_Message.Set_Token('ERROR', SQLERRM);
6233: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
6234: Fnd_Message.Set_Token('PARAMETERS',
6235: ' Check Id= ' || to_char(P_Check_Id));
6236: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
6237: END IF;
6230: IF (SQLCODE <> -20001) THEN
6231: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
6232: Fnd_Message.Set_Token('ERROR', SQLERRM);
6233: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
6234: Fnd_Message.Set_Token('PARAMETERS',
6235: ' Check Id= ' || to_char(P_Check_Id));
6236: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
6237: END IF;
6238: App_Exception.Raise_Exception;
6232: Fnd_Message.Set_Token('ERROR', SQLERRM);
6233: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
6234: Fnd_Message.Set_Token('PARAMETERS',
6235: ' Check Id= ' || to_char(P_Check_Id));
6236: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
6237: END IF;
6238: App_Exception.Raise_Exception;
6239:
6240: END Undo_Quick_Payment;