3053: l_result:= AP_PREPAY_UTILS_PKG.Unlock_Line(
3054: p_prepay_invoice_id,
3055: p_prepay_line_num);
3056:
3057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3058: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
3059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3060: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3061: APP_EXCEPTION.RAISE_EXCEPTION;
3054: p_prepay_invoice_id,
3055: p_prepay_line_num);
3056:
3057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3058: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
3059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3060: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3061: APP_EXCEPTION.RAISE_EXCEPTION;
3062:
3055: p_prepay_line_num);
3056:
3057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3058: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
3059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3060: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3061: APP_EXCEPTION.RAISE_EXCEPTION;
3062:
3063: WHEN OTHERS THEN
3056:
3057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3058: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
3059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3060: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3061: APP_EXCEPTION.RAISE_EXCEPTION;
3062:
3063: WHEN OTHERS THEN
3064: IF (SQLCODE <> -20001) THEN
3061: APP_EXCEPTION.RAISE_EXCEPTION;
3062:
3063: WHEN OTHERS THEN
3064: IF (SQLCODE <> -20001) THEN
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3068: l_current_calling_sequence);
3069: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3062:
3063: WHEN OTHERS THEN
3064: IF (SQLCODE <> -20001) THEN
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3068: l_current_calling_sequence);
3069: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3070: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3063: WHEN OTHERS THEN
3064: IF (SQLCODE <> -20001) THEN
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3068: l_current_calling_sequence);
3069: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3070: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3071: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3068: l_current_calling_sequence);
3069: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3070: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3071: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3072: ||', P_PRORATE_FLAG = '||P_PRORATE_FLAG
3073: ||', P_INVOICE_ID = '||P_INVOICE_ID
3077: ||', P_PREPAY_INCLUDED = '||P_PREPAY_INCLUDED
3078: ||', P_USER_ID = '||P_USER_ID
3079: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
3080:
3081: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3082:
3083: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3084: APP_EXCEPTION.RAISE_EXCEPTION;
3085: ELSE
3082:
3083: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3084: APP_EXCEPTION.RAISE_EXCEPTION;
3085: ELSE
3086: p_error_message := FND_MESSAGE.GET;
3087: END IF;
3088:
3089: END IF;
3090:
3459: RETURN (TRUE);
3460: EXCEPTION
3461: WHEN OTHERS THEN
3462: IF (SQLCODE <> -20001) THEN
3463: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3464: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3465: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3466: p_calling_sequence);
3467: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3460: EXCEPTION
3461: WHEN OTHERS THEN
3462: IF (SQLCODE <> -20001) THEN
3463: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3464: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3465: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3466: p_calling_sequence);
3467: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3468: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3461: WHEN OTHERS THEN
3462: IF (SQLCODE <> -20001) THEN
3463: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3464: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3465: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3466: p_calling_sequence);
3467: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3468: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3469: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3463: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3464: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3465: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3466: p_calling_sequence);
3467: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3468: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
3469: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
3470: ||', P_PREPAY_LINE_NUMBER = '||P_PREPAY_LINE_NUMBER
3471: ||', P_INVOICE_ID = '||P_INVOICE_ID
3479: ||', P_PA_QUANTITY = '||P_PA_QUANTITY
3480: ||', P_USER_ID = '||P_USER_ID
3481: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
3482:
3483: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3484:
3485: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3486: APP_EXCEPTION.RAISE_EXCEPTION;
3487: ELSE
3484:
3485: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
3486: APP_EXCEPTION.RAISE_EXCEPTION;
3487: ELSE
3488: p_error_message := FND_MESSAGE.GET;
3489: END IF;
3490:
3491: END IF;
3492:
4026: RETURN (TRUE);
4027: EXCEPTION
4028: WHEN OTHERS THEN
4029: IF (SQLCODE <> -20001) THEN
4030: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4031: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4032: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4033: p_calling_sequence);
4034: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4027: EXCEPTION
4028: WHEN OTHERS THEN
4029: IF (SQLCODE <> -20001) THEN
4030: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4031: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4032: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4033: p_calling_sequence);
4034: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4035: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4028: WHEN OTHERS THEN
4029: IF (SQLCODE <> -20001) THEN
4030: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4031: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4032: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4033: p_calling_sequence);
4034: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4035: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4036: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
4030: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4031: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4032: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4033: p_calling_sequence);
4034: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4035: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4036: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
4037: ||', P_INVOICE_ID = '||P_INVOICE_ID
4038: ||', P_BATCH_ID = '||P_BATCH_ID
4039: ||', P_LINE_NUMBER = '||P_LINE_NUMBER
4040: ||', P_USER_ID = '||P_USER_ID
4041: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
4042:
4043: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4044:
4045: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4046: APP_EXCEPTION.RAISE_EXCEPTION;
4047: ELSE
4044:
4045: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4046: APP_EXCEPTION.RAISE_EXCEPTION;
4047: ELSE
4048: p_error_message := FND_MESSAGE.GET;
4049: END IF;
4050:
4051: END IF;
4052:
4118:
4119: EXCEPTION
4120: WHEN OTHERS THEN
4121: IF (SQLCODE <> -20001) THEN
4122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4125: l_current_calling_sequence);
4126: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4119: EXCEPTION
4120: WHEN OTHERS THEN
4121: IF (SQLCODE <> -20001) THEN
4122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4125: l_current_calling_sequence);
4126: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4127: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4120: WHEN OTHERS THEN
4121: IF (SQLCODE <> -20001) THEN
4122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4125: l_current_calling_sequence);
4126: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4127: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4128: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
4122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4125: l_current_calling_sequence);
4126: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4127: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
4128: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
4129: ||', P_INVOICE_ID = '||P_INVOICE_ID
4130: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM);
4128: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
4129: ||', P_INVOICE_ID = '||P_INVOICE_ID
4130: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM);
4131:
4132: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4133:
4134: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4135: APP_EXCEPTION.RAISE_EXCEPTION;
4136: ELSE
4133:
4134: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4135: APP_EXCEPTION.RAISE_EXCEPTION;
4136: ELSE
4137: p_error_message := FND_MESSAGE.GET;
4138: END IF;
4139:
4140: END IF;
4141:
4394: RETURN (TRUE);
4395: EXCEPTION
4396: WHEN OTHERS THEN
4397: IF (SQLCODE <> -20001) THEN
4398: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4399: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4400: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4401: l_current_calling_sequence);
4402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4395: EXCEPTION
4396: WHEN OTHERS THEN
4397: IF (SQLCODE <> -20001) THEN
4398: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4399: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4400: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4401: l_current_calling_sequence);
4402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4403: 'P_INVOICE_ID = '||P_INVOICE_ID
4396: WHEN OTHERS THEN
4397: IF (SQLCODE <> -20001) THEN
4398: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4399: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4400: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4401: l_current_calling_sequence);
4402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4403: 'P_INVOICE_ID = '||P_INVOICE_ID
4404: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM
4398: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4399: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4400: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
4401: l_current_calling_sequence);
4402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4403: 'P_INVOICE_ID = '||P_INVOICE_ID
4404: ||', P_INVOICE_LINE_NUM = '||P_INVOICE_LINE_NUM
4405: ||', P_PO_LINE_LOCATION_ID = '||P_PO_LINE_LOCATION_ID
4406: ||', P_MATCHED_UOM_LOOKUP_CODE = '||P_MATCHED_UOM_LOOKUP_CODE
4405: ||', P_PO_LINE_LOCATION_ID = '||P_PO_LINE_LOCATION_ID
4406: ||', P_MATCHED_UOM_LOOKUP_CODE = '||P_MATCHED_UOM_LOOKUP_CODE
4407: ||', P_APPL_TYPE = '||P_APPL_TYPE);
4408:
4409: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4410:
4411: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4412: APP_EXCEPTION.RAISE_EXCEPTION;
4413: ELSE
4410:
4411: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4412: APP_EXCEPTION.RAISE_EXCEPTION;
4413: ELSE
4414: p_error_message := FND_MESSAGE.GET;
4415: END IF;
4416:
4417: END IF;
4418:
4691: EXCEPTION
4692: WHEN OTHERS THEN
4693:
4694: IF (SQLCODE <> -20001 ) THEN
4695: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4696: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4697: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4698: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4699: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4692: WHEN OTHERS THEN
4693:
4694: IF (SQLCODE <> -20001 ) THEN
4695: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4696: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4697: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4698: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4699: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4700: ||' APPLICATION_TYPE = '||p_appl_type
4693:
4694: IF (SQLCODE <> -20001 ) THEN
4695: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4696: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4697: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4698: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4699: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4700: ||' APPLICATION_TYPE = '||p_appl_type
4701: ||' APPLY_AMOUNT_REMAINING = '||
4694: IF (SQLCODE <> -20001 ) THEN
4695: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4696: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4697: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
4698: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
4699: ||' APPLY_AMOUNT = '||TO_CHAR(p_apply_amount)
4700: ||' APPLICATION_TYPE = '||p_appl_type
4701: ||' APPLY_AMOUNT_REMAINING = '||
4702: TO_CHAR(l_apply_amount_remaining)
4705: ||' USER_ID = '||TO_CHAR(p_user_id)
4706: ||' LAST_UPDATE_LOGIN = '||TO_CHAR(p_last_update_login)
4707: ||' PAYMENT_CURRENCY_CODE = '||p_payment_currency_code);
4708:
4709: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4710:
4711: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4712: APP_EXCEPTION.RAISE_EXCEPTION;
4713: ELSE
4710:
4711: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
4712: APP_EXCEPTION.RAISE_EXCEPTION;
4713: ELSE
4714: p_error_message := FND_MESSAGE.GET;
4715: END IF;
4716:
4717: END IF;
4718:
5013: RETURN (TRUE);
5014:
5015: EXCEPTION
5016: WHEN tax_exception THEN
5017: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5018: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
5019: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
5020: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5021: APP_EXCEPTION.RAISE_EXCEPTION;
5014:
5015: EXCEPTION
5016: WHEN tax_exception THEN
5017: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5018: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
5019: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
5020: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5021: APP_EXCEPTION.RAISE_EXCEPTION;
5022:
5015: EXCEPTION
5016: WHEN tax_exception THEN
5017: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5018: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
5019: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
5020: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5021: APP_EXCEPTION.RAISE_EXCEPTION;
5022:
5023: WHEN OTHERS THEN
5016: WHEN tax_exception THEN
5017: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5018: FND_MESSAGE.SET_TOKEN('ERROR', p_error_message, TRUE);
5019: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
5020: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5021: APP_EXCEPTION.RAISE_EXCEPTION;
5022:
5023: WHEN OTHERS THEN
5024: IF (SQLCODE <> -20001) THEN
5021: APP_EXCEPTION.RAISE_EXCEPTION;
5022:
5023: WHEN OTHERS THEN
5024: IF (SQLCODE <> -20001) THEN
5025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5028: l_current_calling_sequence);
5029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5022:
5023: WHEN OTHERS THEN
5024: IF (SQLCODE <> -20001) THEN
5025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5028: l_current_calling_sequence);
5029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5030: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
5023: WHEN OTHERS THEN
5024: IF (SQLCODE <> -20001) THEN
5025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5028: l_current_calling_sequence);
5029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5030: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
5031: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
5025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5028: l_current_calling_sequence);
5029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5030: 'P_PREPAY_INVOICE_ID = '||P_PREPAY_INVOICE_ID
5031: ||', P_PREPAY_LINE_NUM = '||P_PREPAY_LINE_NUM
5032: ||', P_INVOICE_ID = '||P_INVOICE_ID
5033: ||', P_LINE_NUM = '||P_LINE_NUM
5037: ||', P_UNAPPLY_AMOUNT = '||P_UNAPPLY_AMOUNT
5038: ||', P_USER_ID = '||P_USER_ID
5039: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
5040:
5041: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5042:
5043: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
5044: APP_EXCEPTION.RAISE_EXCEPTION;
5045: ELSE
5042:
5043: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
5044: APP_EXCEPTION.RAISE_EXCEPTION;
5045: ELSE
5046: p_error_message := FND_MESSAGE.GET;
5047: END IF;
5048:
5049: END IF;
5050:
5197:
5198: EXCEPTION
5199: WHEN OTHERS THEN
5200: IF (SQLCODE <> -20001) THEN
5201: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5202: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5203: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5204: l_current_calling_sequence);
5205: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5198: EXCEPTION
5199: WHEN OTHERS THEN
5200: IF (SQLCODE <> -20001) THEN
5201: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5202: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5203: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5204: l_current_calling_sequence);
5205: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5206: 'P_INVOICE_ID = '||P_INVOICE_ID
5199: WHEN OTHERS THEN
5200: IF (SQLCODE <> -20001) THEN
5201: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5202: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5203: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5204: l_current_calling_sequence);
5205: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5206: 'P_INVOICE_ID = '||P_INVOICE_ID
5207: ||', P_PREPAY_NUM = '||P_PREPAY_NUM
5201: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5202: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5203: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5204: l_current_calling_sequence);
5205: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5206: 'P_INVOICE_ID = '||P_INVOICE_ID
5207: ||', P_PREPAY_NUM = '||P_PREPAY_NUM
5208: ||', P_VENDOR_ID = '||P_VENDOR_ID
5209: ||', P_PREPAY_APPLY_AMOUNT = '||P_PREPAY_APPLY_AMOUNT
5211: ||', P_PREPAY_PERIOD_NAME = '||P_PREPAY_PERIOD_NAME
5212: ||', P_USER_ID = '||P_USER_ID
5213: ||', P_LAST_UPDATE_LOGIN = '||P_LAST_UPDATE_LOGIN);
5214:
5215: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5216:
5217: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
5218: APP_EXCEPTION.RAISE_EXCEPTION;
5219: ELSE
5216:
5217: IF INSTR(l_calling_program,'Apply Prepayment Form') > 0 THEN
5218: APP_EXCEPTION.RAISE_EXCEPTION;
5219: ELSE
5220: p_error_message := FND_MESSAGE.GET;
5221: END IF;
5222:
5223: END IF;
5224: