516: -- sets the error message on the stack to be retrieved
517: -- on the client side
518: -------------------------------------------------------
519: IF (P_AWT_Success <> AWT_SUCCESS) THEN
520: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_CALC_ERROR');
521: Fnd_Message.Set_Token ('ERROR_TEXT', P_AWT_Success);
522: END IF;
523:
524:
517: -- on the client side
518: -------------------------------------------------------
519: IF (P_AWT_Success <> AWT_SUCCESS) THEN
520: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_CALC_ERROR');
521: Fnd_Message.Set_Token ('ERROR_TEXT', P_AWT_Success);
522: END IF;
523:
524:
525: /********************************************************
602: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - Jl_Ar_Ap_Do_Withholding - Error:'||SQLERRM);
603: END IF;
604: -- End Debug
605:
606: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
607: Fnd_Message.Set_Token('ERROR', SQLERRM);
608: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
609: Fnd_Message.Set_Token('PARAMETERS',
610: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
603: END IF;
604: -- End Debug
605:
606: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
607: Fnd_Message.Set_Token('ERROR', SQLERRM);
608: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
609: Fnd_Message.Set_Token('PARAMETERS',
610: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
611: ', Awt Date= ' || to_char(P_Awt_Date,'YYYY/MM/DD') ||
604: -- End Debug
605:
606: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
607: Fnd_Message.Set_Token('ERROR', SQLERRM);
608: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
609: Fnd_Message.Set_Token('PARAMETERS',
610: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
611: ', Awt Date= ' || to_char(P_Awt_Date,'YYYY/MM/DD') ||
612: ', Calling Module= ' || P_Calling_Module ||
605:
606: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
607: Fnd_Message.Set_Token('ERROR', SQLERRM);
608: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
609: Fnd_Message.Set_Token('PARAMETERS',
610: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
611: ', Awt Date= ' || to_char(P_Awt_Date,'YYYY/MM/DD') ||
612: ', Calling Module= ' || P_Calling_Module ||
613: ', Amount= ' || to_char(P_Amount) ||
614: ', Payment Num= ' || to_char(P_Payment_Num) ||
615: ', Checkrun Name= ' || P_Checkrun_Name ||
616: ', Invoice Payment Id= ' || to_char(P_Invoice_Payment_Id) ||
617: ', Check Id= ' || to_char(P_Check_Id));
618: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
619: END IF;
620:
621: P_AWT_Success := AWT_ERROR;
622:
765: IF (DEBUG_Var = 'Y') THEN
766: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - Jl_Ar_Ap_Undo_Withholding - Error:'||SQLERRM);
767: END IF;
768: -- End Debug
769: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
770: Fnd_Message.Set_Token('ERROR', SQLERRM);
771: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
772: Fnd_Message.Set_Token('PARAMETERS',
773: ' Parent_Id= ' || to_char(P_Parent_Id) ||
766: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - Jl_Ar_Ap_Undo_Withholding - Error:'||SQLERRM);
767: END IF;
768: -- End Debug
769: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
770: Fnd_Message.Set_Token('ERROR', SQLERRM);
771: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
772: Fnd_Message.Set_Token('PARAMETERS',
773: ' Parent_Id= ' || to_char(P_Parent_Id) ||
774: ', Calling_Module= ' || P_Calling_Module ||
767: END IF;
768: -- End Debug
769: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
770: Fnd_Message.Set_Token('ERROR', SQLERRM);
771: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
772: Fnd_Message.Set_Token('PARAMETERS',
773: ' Parent_Id= ' || to_char(P_Parent_Id) ||
774: ', Calling_Module= ' || P_Calling_Module ||
775: ', Undo_Awt_Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD'));
768: -- End Debug
769: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
770: Fnd_Message.Set_Token('ERROR', SQLERRM);
771: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
772: Fnd_Message.Set_Token('PARAMETERS',
773: ' Parent_Id= ' || to_char(P_Parent_Id) ||
774: ', Calling_Module= ' || P_Calling_Module ||
775: ', Undo_Awt_Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD'));
776: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
772: Fnd_Message.Set_Token('PARAMETERS',
773: ' Parent_Id= ' || to_char(P_Parent_Id) ||
774: ', Calling_Module= ' || P_Calling_Module ||
775: ', Undo_Awt_Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD'));
776: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
777: END IF;
778:
779: App_Exception.Raise_Exception;
780:
847: IF (DEBUG_Var = 'Y') THEN
848: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - JL_AR_AP_VOID_SELEC_CERTIF - Error:'||SQLERRM);
849: END IF;
850: -- End Debug
851: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
852: Fnd_Message.Set_Token('ERROR', SQLERRM);
853: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
854: Fnd_Message.Set_Token('PARAMETERS',
855: ', Checkrun Name = ' || P_Checkrun_name);
848: JL_ZZ_AP_EXT_AWT_UTIL.Debug ('EXCEPTION - JL_AR_AP_VOID_SELEC_CERTIF - Error:'||SQLERRM);
849: END IF;
850: -- End Debug
851: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
852: Fnd_Message.Set_Token('ERROR', SQLERRM);
853: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
854: Fnd_Message.Set_Token('PARAMETERS',
855: ', Checkrun Name = ' || P_Checkrun_name);
856: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
849: END IF;
850: -- End Debug
851: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
852: Fnd_Message.Set_Token('ERROR', SQLERRM);
853: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
854: Fnd_Message.Set_Token('PARAMETERS',
855: ', Checkrun Name = ' || P_Checkrun_name);
856: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
857: END IF;
850: -- End Debug
851: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
852: Fnd_Message.Set_Token('ERROR', SQLERRM);
853: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
854: Fnd_Message.Set_Token('PARAMETERS',
855: ', Checkrun Name = ' || P_Checkrun_name);
856: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
857: END IF;
858:
852: Fnd_Message.Set_Token('ERROR', SQLERRM);
853: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
854: Fnd_Message.Set_Token('PARAMETERS',
855: ', Checkrun Name = ' || P_Checkrun_name);
856: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
857: END IF;
858:
859:
860: END JL_AR_AP_VOID_SELEC_CERTIF;
981:
982: EXCEPTION
983: WHEN others THEN
984: IF (SQLCODE <> -20001) THEN
985: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
986: Fnd_Message.Set_Token('ERROR', SQLERRM);
987: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
988: Fnd_Message.Set_Token('PARAMETERS',
989: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
982: EXCEPTION
983: WHEN others THEN
984: IF (SQLCODE <> -20001) THEN
985: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
986: Fnd_Message.Set_Token('ERROR', SQLERRM);
987: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
988: Fnd_Message.Set_Token('PARAMETERS',
989: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
990: ', Payment Num= ' || to_char(P_Payment_Num) ||
983: WHEN others THEN
984: IF (SQLCODE <> -20001) THEN
985: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
986: Fnd_Message.Set_Token('ERROR', SQLERRM);
987: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
988: Fnd_Message.Set_Token('PARAMETERS',
989: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
990: ', Payment Num= ' || to_char(P_Payment_Num) ||
991: ', Checkrun Name= ' || P_Checkrun_Name ||
984: IF (SQLCODE <> -20001) THEN
985: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
986: Fnd_Message.Set_Token('ERROR', SQLERRM);
987: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
988: Fnd_Message.Set_Token('PARAMETERS',
989: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
990: ', Payment Num= ' || to_char(P_Payment_Num) ||
991: ', Checkrun Name= ' || P_Checkrun_Name ||
992: ', Undo Awt Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD') ||
990: ', Payment Num= ' || to_char(P_Payment_Num) ||
991: ', Checkrun Name= ' || P_Checkrun_Name ||
992: ', Undo Awt Date= ' || to_char(P_Undo_Awt_Date,'YYYY/MM/DD') ||
993: ', Calling Module= ' || P_Calling_Module);
994: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
995: END IF;
996:
997: App_Exception.Raise_Exception;
998:
1122: EXCEPTION
1123:
1124: WHEN others THEN
1125: IF (SQLCODE <> -20001) THEN
1126: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1127: Fnd_Message.Set_Token('ERROR', SQLERRM);
1128: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1129: Fnd_Message.Set_Token('PARAMETERS',
1130: ' Payment Instruction ID ' || p_payment_instruction_id );
1123:
1124: WHEN others THEN
1125: IF (SQLCODE <> -20001) THEN
1126: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1127: Fnd_Message.Set_Token('ERROR', SQLERRM);
1128: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1129: Fnd_Message.Set_Token('PARAMETERS',
1130: ' Payment Instruction ID ' || p_payment_instruction_id );
1131: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1124: WHEN others THEN
1125: IF (SQLCODE <> -20001) THEN
1126: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1127: Fnd_Message.Set_Token('ERROR', SQLERRM);
1128: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1129: Fnd_Message.Set_Token('PARAMETERS',
1130: ' Payment Instruction ID ' || p_payment_instruction_id );
1131: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1132: END IF;
1125: IF (SQLCODE <> -20001) THEN
1126: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1127: Fnd_Message.Set_Token('ERROR', SQLERRM);
1128: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1129: Fnd_Message.Set_Token('PARAMETERS',
1130: ' Payment Instruction ID ' || p_payment_instruction_id );
1131: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1132: END IF;
1133: x_return_status := fnd_api.g_ret_sts_error;
1127: Fnd_Message.Set_Token('ERROR', SQLERRM);
1128: Fnd_Message.Set_Token('CALLING_MODULE', p_calling_module);
1129: Fnd_Message.Set_Token('PARAMETERS',
1130: ' Payment Instruction ID ' || p_payment_instruction_id );
1131: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1132: END IF;
1133: x_return_status := fnd_api.g_ret_sts_error;
1134: App_Exception.Raise_Exception;
1135:
1425: l_calling_sequence);
1426:
1427: EXCEPTION
1428: WHEN Not_Paid_In_Full THEN
1429: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1430: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1431: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1432: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1433: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1426:
1427: EXCEPTION
1428: WHEN Not_Paid_In_Full THEN
1429: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1430: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1431: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1432: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1433: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1434: P_AWT_Success := Fnd_Message.Get;
1427: EXCEPTION
1428: WHEN Not_Paid_In_Full THEN
1429: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1430: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1431: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1432: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1433: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1434: P_AWT_Success := Fnd_Message.Get;
1435:
1428: WHEN Not_Paid_In_Full THEN
1429: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1430: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1431: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1432: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1433: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1434: P_AWT_Success := Fnd_Message.Get;
1435:
1436: WHEN others THEN
1429: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_PAY_ERROR');
1430: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1431: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1432: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1433: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1434: P_AWT_Success := Fnd_Message.Get;
1435:
1436: WHEN others THEN
1437: IF (SQLCODE <> -20001) THEN
1430: Fnd_Message.Set_Token('SUPPLIER', l_vendor_name);
1431: Fnd_Message.Set_Token('PAY_SITE', l_vendor_site_code);
1432: --Fnd_Message.Set_Token('PAY_AMOUNT', l_payment_amount); Bug# 2807464
1433: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1434: P_AWT_Success := Fnd_Message.Get;
1435:
1436: WHEN others THEN
1437: IF (SQLCODE <> -20001) THEN
1438: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1434: P_AWT_Success := Fnd_Message.Get;
1435:
1436: WHEN others THEN
1437: IF (SQLCODE <> -20001) THEN
1438: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1439: Fnd_Message.Set_Token('ERROR', SQLERRM);
1440: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1441: Fnd_Message.Set_Token('PARAMETERS',
1442: ' Checkrun Name= ' || P_Checkrun_Name ||
1435:
1436: WHEN others THEN
1437: IF (SQLCODE <> -20001) THEN
1438: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1439: Fnd_Message.Set_Token('ERROR', SQLERRM);
1440: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1441: Fnd_Message.Set_Token('PARAMETERS',
1442: ' Checkrun Name= ' || P_Checkrun_Name ||
1443: ', Check Id= ' || to_char(P_Check_Id) ||
1436: WHEN others THEN
1437: IF (SQLCODE <> -20001) THEN
1438: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1439: Fnd_Message.Set_Token('ERROR', SQLERRM);
1440: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1441: Fnd_Message.Set_Token('PARAMETERS',
1442: ' Checkrun Name= ' || P_Checkrun_Name ||
1443: ', Check Id= ' || to_char(P_Check_Id) ||
1444: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1437: IF (SQLCODE <> -20001) THEN
1438: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1439: Fnd_Message.Set_Token('ERROR', SQLERRM);
1440: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1441: Fnd_Message.Set_Token('PARAMETERS',
1442: ' Checkrun Name= ' || P_Checkrun_Name ||
1443: ', Check Id= ' || to_char(P_Check_Id) ||
1444: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1445: ', Calling Module= ' || P_Calling_Module);
1442: ' Checkrun Name= ' || P_Checkrun_Name ||
1443: ', Check Id= ' || to_char(P_Check_Id) ||
1444: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1445: ', Calling Module= ' || P_Calling_Module);
1446: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1447: END IF;
1448:
1449: App_Exception.Raise_Exception;
1450:
1649: -- End Debug
1650:
1651: ROLLBACK TO Before_Calc_Withholding;
1652:
1653: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_BATCH_ERROR');
1654: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1655: P_AWT_Success := Fnd_Message.Get;
1656:
1657: -- Debug Information
1650:
1651: ROLLBACK TO Before_Calc_Withholding;
1652:
1653: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_BATCH_ERROR');
1654: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1655: P_AWT_Success := Fnd_Message.Get;
1656:
1657: -- Debug Information
1658: IF (DEBUG_Var = 'Y') THEN
1651: ROLLBACK TO Before_Calc_Withholding;
1652:
1653: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_PARTIAL_BATCH_ERROR');
1654: Fnd_Message.Set_Token('WH_AMOUNT', l_total_wh_amount);
1655: P_AWT_Success := Fnd_Message.Get;
1656:
1657: -- Debug Information
1658: IF (DEBUG_Var = 'Y') THEN
1659: JL_ZZ_AP_EXT_AWT_UTIL.Debug (' ==> Calling Reject_Payment_Batch - NOT Pay_in_Full');
1712: END IF;
1713: -- End Debug
1714:
1715: IF (SQLCODE <> -20001) THEN
1716: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1717: Fnd_Message.Set_Token('ERROR', SQLERRM);
1718: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1719: Fnd_Message.Set_Token('PARAMETERS',
1720: ' Checkrun Name= ' || P_Checkrun_Name ||
1713: -- End Debug
1714:
1715: IF (SQLCODE <> -20001) THEN
1716: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1717: Fnd_Message.Set_Token('ERROR', SQLERRM);
1718: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1719: Fnd_Message.Set_Token('PARAMETERS',
1720: ' Checkrun Name= ' || P_Checkrun_Name ||
1721: ', Calling Module= ' || P_Calling_Module);
1714:
1715: IF (SQLCODE <> -20001) THEN
1716: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1717: Fnd_Message.Set_Token('ERROR', SQLERRM);
1718: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1719: Fnd_Message.Set_Token('PARAMETERS',
1720: ' Checkrun Name= ' || P_Checkrun_Name ||
1721: ', Calling Module= ' || P_Calling_Module);
1722: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1715: IF (SQLCODE <> -20001) THEN
1716: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1717: Fnd_Message.Set_Token('ERROR', SQLERRM);
1718: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1719: Fnd_Message.Set_Token('PARAMETERS',
1720: ' Checkrun Name= ' || P_Checkrun_Name ||
1721: ', Calling Module= ' || P_Calling_Module);
1722: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1723: END IF;
1718: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1719: Fnd_Message.Set_Token('PARAMETERS',
1720: ' Checkrun Name= ' || P_Checkrun_Name ||
1721: ', Calling Module= ' || P_Calling_Module);
1722: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1723: END IF;
1724: P_AWT_Success := AWT_ERROR;
1725: App_Exception.Raise_Exception;
1726:
1992: END IF;
1993: -- end debug
1994:
1995: IF (SQLCODE <> -20001) THEN
1996: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1997: Fnd_Message.Set_Token('ERROR', SQLERRM);
1998: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1999: Fnd_Message.Set_Token('PARAMETERS',
2000: ' Checkrun Name= ' || P_Checkrun_Name ||
1993: -- end debug
1994:
1995: IF (SQLCODE <> -20001) THEN
1996: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1997: Fnd_Message.Set_Token('ERROR', SQLERRM);
1998: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1999: Fnd_Message.Set_Token('PARAMETERS',
2000: ' Checkrun Name= ' || P_Checkrun_Name ||
2001: ', Calling Module= ' || P_Calling_Module);
1994:
1995: IF (SQLCODE <> -20001) THEN
1996: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1997: Fnd_Message.Set_Token('ERROR', SQLERRM);
1998: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1999: Fnd_Message.Set_Token('PARAMETERS',
2000: ' Checkrun Name= ' || P_Checkrun_Name ||
2001: ', Calling Module= ' || P_Calling_Module);
2002: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1995: IF (SQLCODE <> -20001) THEN
1996: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1997: Fnd_Message.Set_Token('ERROR', SQLERRM);
1998: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1999: Fnd_Message.Set_Token('PARAMETERS',
2000: ' Checkrun Name= ' || P_Checkrun_Name ||
2001: ', Calling Module= ' || P_Calling_Module);
2002: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2003: END IF;
1998: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1999: Fnd_Message.Set_Token('PARAMETERS',
2000: ' Checkrun Name= ' || P_Checkrun_Name ||
2001: ', Calling Module= ' || P_Calling_Module);
2002: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2003: END IF;
2004:
2005: App_Exception.Raise_Exception;
2006:
2887:
2888: EXCEPTION
2889: WHEN others THEN
2890: IF (SQLCODE <> -20001) THEN
2891: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2892: Fnd_Message.Set_Token('ERROR', SQLERRM);
2893: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2894: Fnd_Message.Set_Token('PARAMETERS',
2895: ' Checkrun Name= ' || P_Checkrun_Name ||
2888: EXCEPTION
2889: WHEN others THEN
2890: IF (SQLCODE <> -20001) THEN
2891: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2892: Fnd_Message.Set_Token('ERROR', SQLERRM);
2893: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2894: Fnd_Message.Set_Token('PARAMETERS',
2895: ' Checkrun Name= ' || P_Checkrun_Name ||
2896: ', Check Id= ' || to_char(P_Check_Id) ||
2889: WHEN others THEN
2890: IF (SQLCODE <> -20001) THEN
2891: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2892: Fnd_Message.Set_Token('ERROR', SQLERRM);
2893: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2894: Fnd_Message.Set_Token('PARAMETERS',
2895: ' Checkrun Name= ' || P_Checkrun_Name ||
2896: ', Check Id= ' || to_char(P_Check_Id) ||
2897: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
2890: IF (SQLCODE <> -20001) THEN
2891: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2892: Fnd_Message.Set_Token('ERROR', SQLERRM);
2893: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2894: Fnd_Message.Set_Token('PARAMETERS',
2895: ' Checkrun Name= ' || P_Checkrun_Name ||
2896: ', Check Id= ' || to_char(P_Check_Id) ||
2897: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
2898: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
2896: ', Check Id= ' || to_char(P_Check_Id) ||
2897: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
2898: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
2899: ', Calling Module= ' || P_Calling_Module);
2900: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2901: END IF;
2902: P_AWT_Success := AWT_ERROR;
2903: App_Exception.Raise_Exception;
2904:
2956:
2957: EXCEPTION
2958: WHEN others THEN
2959: IF (SQLCODE <> -20001) THEN
2960: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2961: Fnd_Message.Set_Token('ERROR', SQLERRM);
2962: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2963: Fnd_Message.Set_Token('PARAMETERS',
2964: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2957: EXCEPTION
2958: WHEN others THEN
2959: IF (SQLCODE <> -20001) THEN
2960: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2961: Fnd_Message.Set_Token('ERROR', SQLERRM);
2962: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2963: Fnd_Message.Set_Token('PARAMETERS',
2964: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2965: ', AWT Type Code= ' || P_AWT_Type_Code ||
2958: WHEN others THEN
2959: IF (SQLCODE <> -20001) THEN
2960: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2961: Fnd_Message.Set_Token('ERROR', SQLERRM);
2962: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2963: Fnd_Message.Set_Token('PARAMETERS',
2964: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2965: ', AWT Type Code= ' || P_AWT_Type_Code ||
2966: ', Tax Id= ' || to_char(P_Tax_Id));
2959: IF (SQLCODE <> -20001) THEN
2960: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2961: Fnd_Message.Set_Token('ERROR', SQLERRM);
2962: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2963: Fnd_Message.Set_Token('PARAMETERS',
2964: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2965: ', AWT Type Code= ' || P_AWT_Type_Code ||
2966: ', Tax Id= ' || to_char(P_Tax_Id));
2967: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2963: Fnd_Message.Set_Token('PARAMETERS',
2964: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2965: ', AWT Type Code= ' || P_AWT_Type_Code ||
2966: ', Tax Id= ' || to_char(P_Tax_Id));
2967: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2968: END IF;
2969:
2970: App_Exception.Raise_Exception;
2971:
3189:
3190: EXCEPTION
3191: WHEN others THEN
3192: IF (SQLCODE <> -20001) THEN
3193: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3194: Fnd_Message.Set_Token('ERROR', SQLERRM);
3195: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3196: Fnd_Message.Set_Token('PARAMETERS',
3197: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3190: EXCEPTION
3191: WHEN others THEN
3192: IF (SQLCODE <> -20001) THEN
3193: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3194: Fnd_Message.Set_Token('ERROR', SQLERRM);
3195: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3196: Fnd_Message.Set_Token('PARAMETERS',
3197: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3198: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3191: WHEN others THEN
3192: IF (SQLCODE <> -20001) THEN
3193: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3194: Fnd_Message.Set_Token('ERROR', SQLERRM);
3195: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3196: Fnd_Message.Set_Token('PARAMETERS',
3197: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3198: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3199: ', GL Period Name= ' || P_GL_Period_Name ||
3192: IF (SQLCODE <> -20001) THEN
3193: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3194: Fnd_Message.Set_Token('ERROR', SQLERRM);
3195: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3196: Fnd_Message.Set_Token('PARAMETERS',
3197: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3198: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
3199: ', GL Period Name= ' || P_GL_Period_Name ||
3200: ', Base Currency Code= ' || P_Base_Currency_Code ||
3202: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
3203: ', Calling Module= ' || P_Calling_Module ||
3204: ', Checkrun Name= ' || P_Checkrun_Name ||
3205: ', Payment Num= ' || to_char(P_Payment_Num));
3206: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3207: END IF;
3208:
3209: App_Exception.Raise_Exception;
3210:
3711:
3712: EXCEPTION
3713: WHEN others THEN
3714: IF (SQLCODE <> -20001) THEN
3715: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3716: Fnd_Message.Set_Token('ERROR', SQLERRM);
3717: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3718: Fnd_Message.Set_Token('PARAMETERS',
3719: ' Check Id= ' || to_char(P_Check_Id) ||
3712: EXCEPTION
3713: WHEN others THEN
3714: IF (SQLCODE <> -20001) THEN
3715: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3716: Fnd_Message.Set_Token('ERROR', SQLERRM);
3717: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3718: Fnd_Message.Set_Token('PARAMETERS',
3719: ' Check Id= ' || to_char(P_Check_Id) ||
3720: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3713: WHEN others THEN
3714: IF (SQLCODE <> -20001) THEN
3715: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3716: Fnd_Message.Set_Token('ERROR', SQLERRM);
3717: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3718: Fnd_Message.Set_Token('PARAMETERS',
3719: ' Check Id= ' || to_char(P_Check_Id) ||
3720: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3721: ', Currency Code= ' || P_Currency_Code ||
3714: IF (SQLCODE <> -20001) THEN
3715: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3716: Fnd_Message.Set_Token('ERROR', SQLERRM);
3717: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3718: Fnd_Message.Set_Token('PARAMETERS',
3719: ' Check Id= ' || to_char(P_Check_Id) ||
3720: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3721: ', Currency Code= ' || P_Currency_Code ||
3722: ', Calling Module= ' || P_Calling_Module);
3719: ' Check Id= ' || to_char(P_Check_Id) ||
3720: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
3721: ', Currency Code= ' || P_Currency_Code ||
3722: ', Calling Module= ' || P_Calling_Module);
3723: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3724: END IF;
3725:
3726: App_Exception.Raise_Exception;
3727:
3875:
3876: EXCEPTION
3877: WHEN others THEN
3878: IF (SQLCODE <> -20001) THEN
3879: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3880: Fnd_Message.Set_Token('ERROR', SQLERRM);
3881: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3882: Fnd_Message.Set_Token('PARAMETERS',
3883: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
3876: EXCEPTION
3877: WHEN others THEN
3878: IF (SQLCODE <> -20001) THEN
3879: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3880: Fnd_Message.Set_Token('ERROR', SQLERRM);
3881: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3882: Fnd_Message.Set_Token('PARAMETERS',
3883: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
3884: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
3877: WHEN others THEN
3878: IF (SQLCODE <> -20001) THEN
3879: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3880: Fnd_Message.Set_Token('ERROR', SQLERRM);
3881: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3882: Fnd_Message.Set_Token('PARAMETERS',
3883: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
3884: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
3885: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis ||
3878: IF (SQLCODE <> -20001) THEN
3879: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3880: Fnd_Message.Set_Token('ERROR', SQLERRM);
3881: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3882: Fnd_Message.Set_Token('PARAMETERS',
3883: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
3884: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
3885: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis ||
3886: ', Tax Inclusive Flag= ' || P_Tax_Inclusive_Flag);
3883: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
3884: ', Distribution Line No= ' || to_char(P_Distribution_Line_No) ||
3885: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis ||
3886: ', Tax Inclusive Flag= ' || P_Tax_Inclusive_Flag);
3887: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3888: END IF;
3889:
3890: App_Exception.Raise_Exception;
3891:
3948: RETURN 0;
3949:
3950: WHEN others THEN
3951: IF (SQLCODE <> -20001) THEN
3952: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3953: Fnd_Message.Set_Token('ERROR', SQLERRM);
3954: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3955: Fnd_Message.Set_Token('PARAMETERS',
3956: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3949:
3950: WHEN others THEN
3951: IF (SQLCODE <> -20001) THEN
3952: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3953: Fnd_Message.Set_Token('ERROR', SQLERRM);
3954: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3955: Fnd_Message.Set_Token('PARAMETERS',
3956: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3957: ', AWT Type Code= ' || P_AWT_Type_Code);
3950: WHEN others THEN
3951: IF (SQLCODE <> -20001) THEN
3952: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3953: Fnd_Message.Set_Token('ERROR', SQLERRM);
3954: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3955: Fnd_Message.Set_Token('PARAMETERS',
3956: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3957: ', AWT Type Code= ' || P_AWT_Type_Code);
3958: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3951: IF (SQLCODE <> -20001) THEN
3952: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3953: Fnd_Message.Set_Token('ERROR', SQLERRM);
3954: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3955: Fnd_Message.Set_Token('PARAMETERS',
3956: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3957: ', AWT Type Code= ' || P_AWT_Type_Code);
3958: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3959: END IF;
3954: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3955: Fnd_Message.Set_Token('PARAMETERS',
3956: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3957: ', AWT Type Code= ' || P_AWT_Type_Code);
3958: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3959: END IF;
3960:
3961: App_Exception.Raise_Exception;
3962:
4159:
4160: EXCEPTION
4161: WHEN others THEN
4162: IF (SQLCODE <> -20001) THEN
4163: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4164: Fnd_Message.Set_Token('ERROR', SQLERRM);
4165: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4166: Fnd_Message.Set_Token('PARAMETERS',
4167: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4160: EXCEPTION
4161: WHEN others THEN
4162: IF (SQLCODE <> -20001) THEN
4163: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4164: Fnd_Message.Set_Token('ERROR', SQLERRM);
4165: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4166: Fnd_Message.Set_Token('PARAMETERS',
4167: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4168: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4161: WHEN others THEN
4162: IF (SQLCODE <> -20001) THEN
4163: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4164: Fnd_Message.Set_Token('ERROR', SQLERRM);
4165: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4166: Fnd_Message.Set_Token('PARAMETERS',
4167: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4168: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4169: ', Payment_Num= ' || to_char(P_Payment_Num) ||
4162: IF (SQLCODE <> -20001) THEN
4163: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4164: Fnd_Message.Set_Token('ERROR', SQLERRM);
4165: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4166: Fnd_Message.Set_Token('PARAMETERS',
4167: ' Vendor_Id= ' || to_char(P_Vendor_Id) ||
4168: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4169: ', Payment_Num= ' || to_char(P_Payment_Num) ||
4170: ', Check_Id= ' || to_char(P_Check_Id) ||
4168: ', AWT_Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4169: ', Payment_Num= ' || to_char(P_Payment_Num) ||
4170: ', Check_Id= ' || to_char(P_Check_Id) ||
4171: ', Selected_Check_Id= ' || to_char(P_Selected_Check_Id));
4172: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4173: END IF;
4174:
4175: App_Exception.Raise_Exception;
4176:
4265:
4266: EXCEPTION
4267: WHEN others THEN
4268: IF (SQLCODE <> -20001) THEN
4269: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4270: Fnd_Message.Set_Token('ERROR', SQLERRM);
4271: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4272: Fnd_Message.Set_Token('PARAMETERS',
4273: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4266: EXCEPTION
4267: WHEN others THEN
4268: IF (SQLCODE <> -20001) THEN
4269: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4270: Fnd_Message.Set_Token('ERROR', SQLERRM);
4271: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4272: Fnd_Message.Set_Token('PARAMETERS',
4273: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4274: ', AWT Type Code= ' || P_AWT_Type_Code ||
4267: WHEN others THEN
4268: IF (SQLCODE <> -20001) THEN
4269: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4270: Fnd_Message.Set_Token('ERROR', SQLERRM);
4271: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4272: Fnd_Message.Set_Token('PARAMETERS',
4273: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4274: ', AWT Type Code= ' || P_AWT_Type_Code ||
4275: ', Tax Id= ' || to_char(P_Tax_Id) ||
4268: IF (SQLCODE <> -20001) THEN
4269: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4270: Fnd_Message.Set_Token('ERROR', SQLERRM);
4271: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4272: Fnd_Message.Set_Token('PARAMETERS',
4273: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
4274: ', AWT Type Code= ' || P_AWT_Type_Code ||
4275: ', Tax Id= ' || to_char(P_Tax_Id) ||
4276: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4280: ', Status= ' || P_Status ||
4281: ', Payment Num= ' || to_char(P_Payment_Num) ||
4282: ', Check Id= ' || to_char(P_Check_Id) ||
4283: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
4284: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4285: END IF;
4286:
4287: App_Exception.Raise_Exception;
4288:
4453:
4454: EXCEPTION
4455: WHEN others THEN
4456: IF (SQLCODE <> -20001) THEN
4457: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4458: Fnd_Message.Set_Token('ERROR', SQLERRM);
4459: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4460: Fnd_Message.Set_Token('PARAMETERS',
4461: ' Check Id= ' || to_char(P_Check_Id) ||
4454: EXCEPTION
4455: WHEN others THEN
4456: IF (SQLCODE <> -20001) THEN
4457: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4458: Fnd_Message.Set_Token('ERROR', SQLERRM);
4459: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4460: Fnd_Message.Set_Token('PARAMETERS',
4461: ' Check Id= ' || to_char(P_Check_Id) ||
4462: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4455: WHEN others THEN
4456: IF (SQLCODE <> -20001) THEN
4457: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4458: Fnd_Message.Set_Token('ERROR', SQLERRM);
4459: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4460: Fnd_Message.Set_Token('PARAMETERS',
4461: ' Check Id= ' || to_char(P_Check_Id) ||
4462: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4463: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4456: IF (SQLCODE <> -20001) THEN
4457: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4458: Fnd_Message.Set_Token('ERROR', SQLERRM);
4459: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4460: Fnd_Message.Set_Token('PARAMETERS',
4461: ' Check Id= ' || to_char(P_Check_Id) ||
4462: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4463: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4464: ', Payment Num= ' || to_char(P_Payment_Num));
4461: ' Check Id= ' || to_char(P_Check_Id) ||
4462: ', Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
4463: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
4464: ', Payment Num= ' || to_char(P_Payment_Num));
4465: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4466: END IF;
4467:
4468: App_Exception.Raise_Exception;
4469:
4732:
4733: EXCEPTION
4734: WHEN others THEN
4735: IF (SQLCODE <> -20001) THEN
4736: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4737: Fnd_Message.Set_Token('ERROR', SQLERRM);
4738: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4739: Fnd_Message.Set_Token('PARAMETERS',
4740: ' Check Id= ' || to_char(P_Check_Id));
4733: EXCEPTION
4734: WHEN others THEN
4735: IF (SQLCODE <> -20001) THEN
4736: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4737: Fnd_Message.Set_Token('ERROR', SQLERRM);
4738: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4739: Fnd_Message.Set_Token('PARAMETERS',
4740: ' Check Id= ' || to_char(P_Check_Id));
4741: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4734: WHEN others THEN
4735: IF (SQLCODE <> -20001) THEN
4736: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4737: Fnd_Message.Set_Token('ERROR', SQLERRM);
4738: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4739: Fnd_Message.Set_Token('PARAMETERS',
4740: ' Check Id= ' || to_char(P_Check_Id));
4741: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4742: END IF;
4735: IF (SQLCODE <> -20001) THEN
4736: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
4737: Fnd_Message.Set_Token('ERROR', SQLERRM);
4738: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4739: Fnd_Message.Set_Token('PARAMETERS',
4740: ' Check Id= ' || to_char(P_Check_Id));
4741: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4742: END IF;
4743:
4737: Fnd_Message.Set_Token('ERROR', SQLERRM);
4738: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
4739: Fnd_Message.Set_Token('PARAMETERS',
4740: ' Check Id= ' || to_char(P_Check_Id));
4741: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
4742: END IF;
4743:
4744: App_Exception.Raise_Exception;
4745:
5046:
5047: EXCEPTION
5048: WHEN others THEN
5049: IF (SQLCODE <> -20001) THEN
5050: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5051: Fnd_Message.Set_Token('ERROR', SQLERRM);
5052: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5053: Fnd_Message.Set_Token('PARAMETERS',
5054: ' Checkrun Name= ' || P_Checkrun_Name ||
5047: EXCEPTION
5048: WHEN others THEN
5049: IF (SQLCODE <> -20001) THEN
5050: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5051: Fnd_Message.Set_Token('ERROR', SQLERRM);
5052: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5053: Fnd_Message.Set_Token('PARAMETERS',
5054: ' Checkrun Name= ' || P_Checkrun_Name ||
5055: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5048: WHEN others THEN
5049: IF (SQLCODE <> -20001) THEN
5050: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5051: Fnd_Message.Set_Token('ERROR', SQLERRM);
5052: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5053: Fnd_Message.Set_Token('PARAMETERS',
5054: ' Checkrun Name= ' || P_Checkrun_Name ||
5055: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5056: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5049: IF (SQLCODE <> -20001) THEN
5050: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5051: Fnd_Message.Set_Token('ERROR', SQLERRM);
5052: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5053: Fnd_Message.Set_Token('PARAMETERS',
5054: ' Checkrun Name= ' || P_Checkrun_Name ||
5055: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5056: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5057: END IF;
5052: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5053: Fnd_Message.Set_Token('PARAMETERS',
5054: ' Checkrun Name= ' || P_Checkrun_Name ||
5055: ', Selected Check Id= ' || to_char(P_Selected_Check_Id));
5056: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5057: END IF;
5058:
5059: App_Exception.Raise_Exception;
5060:
5153:
5154: EXCEPTION
5155: WHEN others THEN
5156: IF (SQLCODE <> -20001) THEN
5157: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5158: Fnd_Message.Set_Token('ERROR', SQLERRM);
5159: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5160: Fnd_Message.Set_Token('PARAMETERS',
5161: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5154: EXCEPTION
5155: WHEN others THEN
5156: IF (SQLCODE <> -20001) THEN
5157: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5158: Fnd_Message.Set_Token('ERROR', SQLERRM);
5159: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5160: Fnd_Message.Set_Token('PARAMETERS',
5161: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5162: ', Tax Name= ' || P_Tax_Name ||
5155: WHEN others THEN
5156: IF (SQLCODE <> -20001) THEN
5157: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5158: Fnd_Message.Set_Token('ERROR', SQLERRM);
5159: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5160: Fnd_Message.Set_Token('PARAMETERS',
5161: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5162: ', Tax Name= ' || P_Tax_Name ||
5163: ', Taxable Base Amount Basis= ' || P_Taxable_Base_Amount_Basis);
5156: IF (SQLCODE <> -20001) THEN
5157: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5158: Fnd_Message.Set_Token('ERROR', SQLERRM);
5159: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5160: Fnd_Message.Set_Token('PARAMETERS',
5161: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5162: ', Tax Name= ' || P_Tax_Name ||
5163: ', Taxable Base Amount Basis= ' || P_Taxable_Base_Amount_Basis);
5164: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5160: Fnd_Message.Set_Token('PARAMETERS',
5161: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
5162: ', Tax Name= ' || P_Tax_Name ||
5163: ', Taxable Base Amount Basis= ' || P_Taxable_Base_Amount_Basis);
5164: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5165: END IF;
5166:
5167: App_Exception.Raise_Exception;
5168:
5206:
5207: EXCEPTION
5208: WHEN others THEN
5209: IF (SQLCODE <> -20001) THEN
5210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5211: Fnd_Message.Set_Token('ERROR', SQLERRM);
5212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5213: Fnd_Message.Set_Token('PARAMETERS', null);
5214: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5207: EXCEPTION
5208: WHEN others THEN
5209: IF (SQLCODE <> -20001) THEN
5210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5211: Fnd_Message.Set_Token('ERROR', SQLERRM);
5212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5213: Fnd_Message.Set_Token('PARAMETERS', null);
5214: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5215: END IF;
5208: WHEN others THEN
5209: IF (SQLCODE <> -20001) THEN
5210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5211: Fnd_Message.Set_Token('ERROR', SQLERRM);
5212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5213: Fnd_Message.Set_Token('PARAMETERS', null);
5214: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5215: END IF;
5216:
5209: IF (SQLCODE <> -20001) THEN
5210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5211: Fnd_Message.Set_Token('ERROR', SQLERRM);
5212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5213: Fnd_Message.Set_Token('PARAMETERS', null);
5214: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5215: END IF;
5216:
5217: App_Exception.Raise_Exception;
5210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5211: Fnd_Message.Set_Token('ERROR', SQLERRM);
5212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5213: Fnd_Message.Set_Token('PARAMETERS', null);
5214: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5215: END IF;
5216:
5217: App_Exception.Raise_Exception;
5218:
5327:
5328: EXCEPTION
5329: WHEN others THEN
5330: IF (SQLCODE <> -20001) THEN
5331: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5332: Fnd_Message.Set_Token('ERROR', SQLERRM);
5333: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5334: Fnd_Message.Set_Token('PARAMETERS',
5335: ' Check Id= ' || to_char(P_Check_Id) ||
5328: EXCEPTION
5329: WHEN others THEN
5330: IF (SQLCODE <> -20001) THEN
5331: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5332: Fnd_Message.Set_Token('ERROR', SQLERRM);
5333: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5334: Fnd_Message.Set_Token('PARAMETERS',
5335: ' Check Id= ' || to_char(P_Check_Id) ||
5336: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5329: WHEN others THEN
5330: IF (SQLCODE <> -20001) THEN
5331: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5332: Fnd_Message.Set_Token('ERROR', SQLERRM);
5333: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5334: Fnd_Message.Set_Token('PARAMETERS',
5335: ' Check Id= ' || to_char(P_Check_Id) ||
5336: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5337: ', Calling Module= ' || P_Calling_Module ||
5330: IF (SQLCODE <> -20001) THEN
5331: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5332: Fnd_Message.Set_Token('ERROR', SQLERRM);
5333: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5334: Fnd_Message.Set_Token('PARAMETERS',
5335: ' Check Id= ' || to_char(P_Check_Id) ||
5336: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5337: ', Calling Module= ' || P_Calling_Module ||
5338: ', Total Wh Amount= ' || to_char(P_Total_Wh_Amount));
5335: ' Check Id= ' || to_char(P_Check_Id) ||
5336: ', Selected Check_Id= ' || to_char(P_Selected_Check_Id) ||
5337: ', Calling Module= ' || P_Calling_Module ||
5338: ', Total Wh Amount= ' || to_char(P_Total_Wh_Amount));
5339: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5340: END IF;
5341:
5342: App_Exception.Raise_Exception;
5343:
5429: END IF;
5430: -- end debug
5431:
5432: IF (SQLCODE <> -20001) THEN
5433: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5434: Fnd_Message.Set_Token('ERROR', SQLERRM);
5435: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5436: Fnd_Message.Set_Token('PARAMETERS',
5437: ' Checkrun Name= ' || P_Checkrun_Name);
5430: -- end debug
5431:
5432: IF (SQLCODE <> -20001) THEN
5433: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5434: Fnd_Message.Set_Token('ERROR', SQLERRM);
5435: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5436: Fnd_Message.Set_Token('PARAMETERS',
5437: ' Checkrun Name= ' || P_Checkrun_Name);
5438: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5431:
5432: IF (SQLCODE <> -20001) THEN
5433: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5434: Fnd_Message.Set_Token('ERROR', SQLERRM);
5435: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5436: Fnd_Message.Set_Token('PARAMETERS',
5437: ' Checkrun Name= ' || P_Checkrun_Name);
5438: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5439: END IF;
5432: IF (SQLCODE <> -20001) THEN
5433: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5434: Fnd_Message.Set_Token('ERROR', SQLERRM);
5435: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5436: Fnd_Message.Set_Token('PARAMETERS',
5437: ' Checkrun Name= ' || P_Checkrun_Name);
5438: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5439: END IF;
5440:
5434: Fnd_Message.Set_Token('ERROR', SQLERRM);
5435: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5436: Fnd_Message.Set_Token('PARAMETERS',
5437: ' Checkrun Name= ' || P_Checkrun_Name);
5438: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5439: END IF;
5440:
5441: App_Exception.Raise_Exception;
5442:
5537:
5538: EXCEPTION
5539: WHEN others THEN
5540: IF (SQLCODE <> -20001) THEN
5541: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5542: Fnd_Message.Set_Token('ERROR', SQLERRM);
5543: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5544: Fnd_Message.Set_Token('PARAMETERS',
5545: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5538: EXCEPTION
5539: WHEN others THEN
5540: IF (SQLCODE <> -20001) THEN
5541: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5542: Fnd_Message.Set_Token('ERROR', SQLERRM);
5543: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5544: Fnd_Message.Set_Token('PARAMETERS',
5545: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5546: ', AWT Success= ' || P_AWT_Success);
5539: WHEN others THEN
5540: IF (SQLCODE <> -20001) THEN
5541: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5542: Fnd_Message.Set_Token('ERROR', SQLERRM);
5543: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5544: Fnd_Message.Set_Token('PARAMETERS',
5545: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5546: ', AWT Success= ' || P_AWT_Success);
5547: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5540: IF (SQLCODE <> -20001) THEN
5541: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5542: Fnd_Message.Set_Token('ERROR', SQLERRM);
5543: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5544: Fnd_Message.Set_Token('PARAMETERS',
5545: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5546: ', AWT Success= ' || P_AWT_Success);
5547: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5548: END IF;
5543: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5544: Fnd_Message.Set_Token('PARAMETERS',
5545: ' Selected Check Id= ' || to_char(P_Selected_Check_Id) ||
5546: ', AWT Success= ' || P_AWT_Success);
5547: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5548: END IF;
5549:
5550: App_Exception.Raise_Exception;
5551:
5896:
5897: EXCEPTION
5898: WHEN others THEN
5899: IF (SQLCODE <> -20001) THEN
5900: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5901: Fnd_Message.Set_Token('ERROR', SQLERRM);
5902: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5903: Fnd_Message.Set_Token('PARAMETERS',
5904: ' Check Id= ' || to_char(P_Check_Id));
5897: EXCEPTION
5898: WHEN others THEN
5899: IF (SQLCODE <> -20001) THEN
5900: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5901: Fnd_Message.Set_Token('ERROR', SQLERRM);
5902: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5903: Fnd_Message.Set_Token('PARAMETERS',
5904: ' Check Id= ' || to_char(P_Check_Id));
5905: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5898: WHEN others THEN
5899: IF (SQLCODE <> -20001) THEN
5900: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5901: Fnd_Message.Set_Token('ERROR', SQLERRM);
5902: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5903: Fnd_Message.Set_Token('PARAMETERS',
5904: ' Check Id= ' || to_char(P_Check_Id));
5905: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5906: END IF;
5899: IF (SQLCODE <> -20001) THEN
5900: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
5901: Fnd_Message.Set_Token('ERROR', SQLERRM);
5902: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5903: Fnd_Message.Set_Token('PARAMETERS',
5904: ' Check Id= ' || to_char(P_Check_Id));
5905: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5906: END IF;
5907: App_Exception.Raise_Exception;
5901: Fnd_Message.Set_Token('ERROR', SQLERRM);
5902: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
5903: Fnd_Message.Set_Token('PARAMETERS',
5904: ' Check Id= ' || to_char(P_Check_Id));
5905: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
5906: END IF;
5907: App_Exception.Raise_Exception;
5908:
5909: END Undo_Quick_Payment;