2769: l_result:= AP_PREPAY_UTILS_PKG.Unlock_Line(
2770: p_prepay_invoice_id,
2771: p_prepay_line_num);
2772:
2773: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2774: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
2775: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
2776: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2777: APP_EXCEPTION.RAISE_EXCEPTION;
2770: p_prepay_invoice_id,
2771: p_prepay_line_num);
2772:
2773: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2774: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
2775: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
2776: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2777: APP_EXCEPTION.RAISE_EXCEPTION;
2778:
2771: p_prepay_line_num);
2772:
2773: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2774: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
2775: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
2776: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2777: APP_EXCEPTION.RAISE_EXCEPTION;
2778:
2779: WHEN OTHERS THEN
2772:
2773: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2774: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
2775: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
2776: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2777: APP_EXCEPTION.RAISE_EXCEPTION;
2778:
2779: WHEN OTHERS THEN
2780: IF (SQLCODE <> -20001) THEN
2777: APP_EXCEPTION.RAISE_EXCEPTION;
2778:
2779: WHEN OTHERS THEN
2780: IF (SQLCODE <> -20001) THEN
2781: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2782: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
2784: l_current_calling_sequence);
2785: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2778:
2779: WHEN OTHERS THEN
2780: IF (SQLCODE <> -20001) THEN
2781: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2782: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
2784: l_current_calling_sequence);
2785: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2786: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
2779: WHEN OTHERS THEN
2780: IF (SQLCODE <> -20001) THEN
2781: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2782: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
2784: l_current_calling_sequence);
2785: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2786: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
2787: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
2781: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2782: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
2784: l_current_calling_sequence);
2785: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2786: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
2787: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
2788: ||', P_PRORATE_FLAG = '||P_PRORATE_FLAG
2789: ||', P_INVOICE_ID = '||P_INVOICE_ID
2793: ||', P_PREPAY_INCLUDED = '||P_PREPAY_INCLUDED
2794: ||', P_USER_ID = '||P_USER_ID
2795: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
2796:
2797: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2798:
2799: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
2800: APP_EXCEPTION.RAISE_EXCEPTION;
2801: ELSE
2798:
2799: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
2800: APP_EXCEPTION.RAISE_EXCEPTION;
2801: ELSE
2802: p_error_message := FND_MESSAGE.GET;
2803: END IF;
2804:
2805: END IF;
2806:
3173: RETURN (TRUE);
3174: EXCEPTION
3175: WHEN OTHERS THEN
3176: IF (SQLCODE <> -20001) THEN
3177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3180: p_calling_sequence);
3181: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3174: EXCEPTION
3175: WHEN OTHERS THEN
3176: IF (SQLCODE <> -20001) THEN
3177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3180: p_calling_sequence);
3181: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3182: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3175: WHEN OTHERS THEN
3176: IF (SQLCODE <> -20001) THEN
3177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3180: p_calling_sequence);
3181: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3182: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3183: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3180: p_calling_sequence);
3181: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3182: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3183: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3184: ||', P_PREPAY_LINE_NUMBER = '||P_PREPAY_LINE_NUMBER
3185: ||', P_INVOICE_ID = '||P_INVOICE_ID
3193: ||', P_PA_QUANTITY = '||P_PA_QUANTITY
3194: ||', P_USER_ID = '||P_USER_ID
3195: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
3196:
3197: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3198:
3199: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3200: APP_EXCEPTION.RAISE_EXCEPTION;
3201: ELSE
3198:
3199: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3200: APP_EXCEPTION.RAISE_EXCEPTION;
3201: ELSE
3202: p_error_message := FND_MESSAGE.GET;
3203: END IF;
3204:
3205: END IF;
3206:
3742: RETURN (TRUE);
3743: EXCEPTION
3744: WHEN OTHERS THEN
3745: IF (SQLCODE <> -20001) THEN
3746: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3747: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3748: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3749: p_calling_sequence);
3750: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3743: EXCEPTION
3744: WHEN OTHERS THEN
3745: IF (SQLCODE <> -20001) THEN
3746: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3747: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3748: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3749: p_calling_sequence);
3750: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3751: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3744: WHEN OTHERS THEN
3745: IF (SQLCODE <> -20001) THEN
3746: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3747: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3748: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3749: p_calling_sequence);
3750: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3751: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3752: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3746: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3747: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3748: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3749: p_calling_sequence);
3750: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3751: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3752: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3753: ||', P_INVOICE_ID = '||P_INVOICE_ID
3754: ||', P_BATCH_ID = '||P_BATCH_ID
3755: ||', P_LINE_NUMBER = '||P_LINE_NUMBER
3756: ||', P_USER_ID = '||P_USER_ID
3757: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
3758:
3759: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3760:
3761: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3762: APP_EXCEPTION.RAISE_EXCEPTION;
3763: ELSE
3760:
3761: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3762: APP_EXCEPTION.RAISE_EXCEPTION;
3763: ELSE
3764: p_error_message := FND_MESSAGE.GET;
3765: END IF;
3766:
3767: END IF;
3768:
3952:
3953: EXCEPTION
3954: WHEN OTHERS THEN
3955: IF (SQLCODE <> -20001) THEN
3956: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3957: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3958: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3959: l_current_calling_sequence);
3960: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3953: EXCEPTION
3954: WHEN OTHERS THEN
3955: IF (SQLCODE <> -20001) THEN
3956: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3957: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3958: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3959: l_current_calling_sequence);
3960: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3961: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3954: WHEN OTHERS THEN
3955: IF (SQLCODE <> -20001) THEN
3956: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3957: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3958: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3959: l_current_calling_sequence);
3960: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3961: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3962: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3956: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3957: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3958: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3959: l_current_calling_sequence);
3960: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3961: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3962: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3963: ||', P_INVOICE_ID = '||P_INVOICE_ID
3964: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM);
3962: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3963: ||', P_INVOICE_ID = '||P_INVOICE_ID
3964: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM);
3965:
3966: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3967:
3968: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3969: APP_EXCEPTION.RAISE_EXCEPTION;
3970: ELSE
3967:
3968: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3969: APP_EXCEPTION.RAISE_EXCEPTION;
3970: ELSE
3971: p_error_message := FND_MESSAGE.GET;
3972: END IF;
3973:
3974: END IF;
3975:
4228: RETURN (TRUE);
4229: EXCEPTION
4230: WHEN OTHERS THEN
4231: IF (SQLCODE <> -20001) THEN
4232: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4233: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4234: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4235: l_current_calling_sequence);
4236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4229: EXCEPTION
4230: WHEN OTHERS THEN
4231: IF (SQLCODE <> -20001) THEN
4232: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4233: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4234: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4235: l_current_calling_sequence);
4236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4237: 'P_INVOICE_ID = '||P_INVOICE_ID
4230: WHEN OTHERS THEN
4231: IF (SQLCODE <> -20001) THEN
4232: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4233: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4234: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4235: l_current_calling_sequence);
4236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4237: 'P_INVOICE_ID = '||P_INVOICE_ID
4238: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM
4232: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4233: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4234: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4235: l_current_calling_sequence);
4236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4237: 'P_INVOICE_ID = '||P_INVOICE_ID
4238: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM
4239: ||', P_PO_LINE_LOCATION_ID = '||P_PO_LINE_LOCATION_ID
4240: ||', P_MATCHED_UOM_LOOKUP_CODE = '||P_MATCHED_UOM_LOOKUP_CODE
4239: ||', P_PO_LINE_LOCATION_ID = '||P_PO_LINE_LOCATION_ID
4240: ||', P_MATCHED_UOM_LOOKUP_CODE = '||P_MATCHED_UOM_LOOKUP_CODE
4241: ||', P_APPL_TYPE = '||P_APPL_TYPE);
4242:
4243: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4244:
4245: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4246: APP_EXCEPTION.RAISE_EXCEPTION;
4247: ELSE
4244:
4245: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4246: APP_EXCEPTION.RAISE_EXCEPTION;
4247: ELSE
4248: p_error_message := FND_MESSAGE.GET;
4249: END IF;
4250:
4251: END IF;
4252:
4472: EXCEPTION
4473: WHEN OTHERS THEN
4474:
4475: IF (SQLCODE <> -20001 ) THEN
4476: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4477: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4478: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4479: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4480: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4473: WHEN OTHERS THEN
4474:
4475: IF (SQLCODE <> -20001 ) THEN
4476: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4477: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4478: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4479: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4480: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4481: ||' APPLICATION_TYPE = '||p_appl_type
4474:
4475: IF (SQLCODE <> -20001 ) THEN
4476: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4477: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4478: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4479: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4480: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4481: ||' APPLICATION_TYPE = '||p_appl_type
4482: ||' APPLY_AMOUNT_REMAINING = '||
4475: IF (SQLCODE <> -20001 ) THEN
4476: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4477: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4478: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4479: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4480: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4481: ||' APPLICATION_TYPE = '||p_appl_type
4482: ||' APPLY_AMOUNT_REMAINING = '||
4483: TO_CHAR(l_apply_amount_remaining)
4486: ||' USER_ID = '||TO_CHAR(p_user_id)
4487: ||' LAST_UPDATE_LOGIN = '||TO_CHAR(p_last_update_login)
4488: ||' PAYMENT_CURRENCY_CODE = '||p_payment_currency_code);
4489:
4490: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4491: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4492:
4493: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4494: APP_EXCEPTION.RAISE_EXCEPTION;
4487: ||' LAST_UPDATE_LOGIN = '||TO_CHAR(p_last_update_login)
4488: ||' PAYMENT_CURRENCY_CODE = '||p_payment_currency_code);
4489:
4490: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4491: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4492:
4493: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4494: APP_EXCEPTION.RAISE_EXCEPTION;
4495: ELSE
4492:
4493: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4494: APP_EXCEPTION.RAISE_EXCEPTION;
4495: ELSE
4496: p_error_message := FND_MESSAGE.GET;
4497: END IF;
4498:
4499: END IF;
4500:
4779: RETURN (TRUE);
4780:
4781: EXCEPTION
4782: WHEN tax_exception THEN
4783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4784: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
4785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
4786: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4787: APP_EXCEPTION.RAISE_EXCEPTION;
4780:
4781: EXCEPTION
4782: WHEN tax_exception THEN
4783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4784: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
4785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
4786: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4787: APP_EXCEPTION.RAISE_EXCEPTION;
4788:
4781: EXCEPTION
4782: WHEN tax_exception THEN
4783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4784: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
4785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
4786: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4787: APP_EXCEPTION.RAISE_EXCEPTION;
4788:
4789: WHEN OTHERS THEN
4782: WHEN tax_exception THEN
4783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4784: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
4785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
4786: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4787: APP_EXCEPTION.RAISE_EXCEPTION;
4788:
4789: WHEN OTHERS THEN
4790: IF (SQLCODE <> -20001) THEN
4787: APP_EXCEPTION.RAISE_EXCEPTION;
4788:
4789: WHEN OTHERS THEN
4790: IF (SQLCODE <> -20001) THEN
4791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4794: l_current_calling_sequence);
4795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4788:
4789: WHEN OTHERS THEN
4790: IF (SQLCODE <> -20001) THEN
4791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4794: l_current_calling_sequence);
4795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4796: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4789: WHEN OTHERS THEN
4790: IF (SQLCODE <> -20001) THEN
4791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4794: l_current_calling_sequence);
4795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4796: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4797: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
4791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4794: l_current_calling_sequence);
4795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4796: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4797: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
4798: ||', P_INVOICE_ID = '||P_INVOICE_ID
4799: ||', P_LINE_NUM = '||P_LINE_NUM
4803: ||', P_UNAPPLY_AMOUNT = '||P_UNAPPLY_AMOUNT
4804: ||', P_USER_ID = '||P_USER_ID
4805: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
4806:
4807: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4808:
4809: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4810: APP_EXCEPTION.RAISE_EXCEPTION;
4811: ELSE
4808:
4809: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4810: APP_EXCEPTION.RAISE_EXCEPTION;
4811: ELSE
4812: p_error_message := FND_MESSAGE.GET;
4813: END IF;
4814:
4815: END IF;
4816:
4956:
4957: EXCEPTION
4958: WHEN OTHERS THEN
4959: IF (SQLCODE <> -20001) THEN
4960: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4961: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4962: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4963: l_current_calling_sequence);
4964: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4957: EXCEPTION
4958: WHEN OTHERS THEN
4959: IF (SQLCODE <> -20001) THEN
4960: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4961: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4962: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4963: l_current_calling_sequence);
4964: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4965: 'P_INVOICE_ID = '||P_INVOICE_ID
4958: WHEN OTHERS THEN
4959: IF (SQLCODE <> -20001) THEN
4960: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4961: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4962: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4963: l_current_calling_sequence);
4964: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4965: 'P_INVOICE_ID = '||P_INVOICE_ID
4966: ||', P_PREPAY_NUM = '||P_PREPAY_NUM
4960: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4961: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4962: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4963: l_current_calling_sequence);
4964: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4965: 'P_INVOICE_ID = '||P_INVOICE_ID
4966: ||', P_PREPAY_NUM = '||P_PREPAY_NUM
4967: ||', P_VENDOR_ID = '||P_VENDOR_ID
4968: ||', P_PREPAY_APPLY_AMOUNT = '||P_PREPAY_APPLY_AMOUNT
4970: ||', P_PREPAY_PERIOD_NAME = '||P_PREPAY_PERIOD_NAME
4971: ||', P_USER_ID = '||P_USER_ID
4972: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
4973:
4974: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4975:
4976: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4977: APP_EXCEPTION.RAISE_EXCEPTION;
4978: ELSE
4975:
4976: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4977: APP_EXCEPTION.RAISE_EXCEPTION;
4978: ELSE
4979: p_error_message := FND_MESSAGE.GET;
4980: END IF;
4981:
4982: END IF;
4983: