151: EXCEPTION
152: WHEN OTHERS THEN
153: IF (SQLCODE <> -20001) THEN
154: rollback;
155: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
156: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
157: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
158: FND_MESSAGE.SET_TOKEN('PARAMETERS',
159: ' P_invoice_id = ' || p_invoice_id
152: WHEN OTHERS THEN
153: IF (SQLCODE <> -20001) THEN
154: rollback;
155: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
156: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
157: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
158: FND_MESSAGE.SET_TOKEN('PARAMETERS',
159: ' P_invoice_id = ' || p_invoice_id
160: ||', P_calling_sequence = ' || l_curr_calling_sequence);
153: IF (SQLCODE <> -20001) THEN
154: rollback;
155: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
156: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
157: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
158: FND_MESSAGE.SET_TOKEN('PARAMETERS',
159: ' P_invoice_id = ' || p_invoice_id
160: ||', P_calling_sequence = ' || l_curr_calling_sequence);
161: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
154: rollback;
155: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
156: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
157: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
158: FND_MESSAGE.SET_TOKEN('PARAMETERS',
159: ' P_invoice_id = ' || p_invoice_id
160: ||', P_calling_sequence = ' || l_curr_calling_sequence);
161: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
162: END IF;
157: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
158: FND_MESSAGE.SET_TOKEN('PARAMETERS',
159: ' P_invoice_id = ' || p_invoice_id
160: ||', P_calling_sequence = ' || l_curr_calling_sequence);
161: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
162: END IF;
163:
164: APP_EXCEPTION.RAISE_EXCEPTION;
165:
6078: /* Bug#14804508 - Added debug messages to print in report log */
6079: fnd_file.put_line(FND_FILE.LOG,'Error is :'||SQLERRM);
6080: fnd_file.put_line(FND_FILE.LOG,'l_debug_info : '||l_debug_info);
6081: IF (SQLCODE <> -20001) THEN
6082: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6083: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6084: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6086: END IF;
6079: fnd_file.put_line(FND_FILE.LOG,'Error is :'||SQLERRM);
6080: fnd_file.put_line(FND_FILE.LOG,'l_debug_info : '||l_debug_info);
6081: IF (SQLCODE <> -20001) THEN
6082: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6083: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6084: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6086: END IF;
6087: APP_EXCEPTION.RAISE_EXCEPTION;
6080: fnd_file.put_line(FND_FILE.LOG,'l_debug_info : '||l_debug_info);
6081: IF (SQLCODE <> -20001) THEN
6082: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6083: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6084: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6086: END IF;
6087: APP_EXCEPTION.RAISE_EXCEPTION;
6088: END create_invapp_process;
6081: IF (SQLCODE <> -20001) THEN
6082: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6083: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6084: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6086: END IF;
6087: APP_EXCEPTION.RAISE_EXCEPTION;
6088: END create_invapp_process;
6089:
6248: EXCEPTION
6249: WHEN OTHERS THEN
6250:
6251: IF (SQLCODE <> -20001) THEN
6252: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6253: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6254: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6255: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6256: END IF;
6249: WHEN OTHERS THEN
6250:
6251: IF (SQLCODE <> -20001) THEN
6252: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6253: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6254: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6255: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6256: END IF;
6257: APP_EXCEPTION.RAISE_EXCEPTION;
6250:
6251: IF (SQLCODE <> -20001) THEN
6252: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6253: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6254: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6255: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6256: END IF;
6257: APP_EXCEPTION.RAISE_EXCEPTION;
6258:
6251: IF (SQLCODE <> -20001) THEN
6252: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6253: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6254: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
6255: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
6256: END IF;
6257: APP_EXCEPTION.RAISE_EXCEPTION;
6258:
6259: END Stop_Approval;
6701: 'SQLGL',
6702: 'GL#',
6703: l_chart_of_accounts_id);
6704: IF (NOT l_result) THEN
6705: l_reason_flex := FND_MESSAGE.GET;
6706: END IF;
6707:
6708: l_result := FND_FLEX_EXT.GET_SEGMENTS(
6709: 'SQLGL',
6713: l_num_segments,
6714: l_segments);
6715:
6716: IF (NOT l_result) THEN
6717: l_reason_flex := FND_MESSAGE.GET;
6718: END IF;
6719:
6720: l_result := FND_FLEX_APIS.GET_QUALIFIER_SEGNUM(
6721: 101,
6723: l_chart_of_accounts_id,
6724: p_seg_name,
6725: l_segment_num);
6726: IF (NOT l_result) THEN
6727: l_reason_flex := FND_MESSAGE.GET;
6728: END IF;
6729:
6730: l_seg_val := l_segments(l_segment_num);
6731:
7113: EXCEPTION
7114: WHEN NO_DATA_FOUND THEN
7115: NULL;
7116: WHEN OTHERS THEN
7117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7121: APP_EXCEPTION.RAISE_EXCEPTION;
7114: WHEN NO_DATA_FOUND THEN
7115: NULL;
7116: WHEN OTHERS THEN
7117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7121: APP_EXCEPTION.RAISE_EXCEPTION;
7122: END;
7115: NULL;
7116: WHEN OTHERS THEN
7117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7121: APP_EXCEPTION.RAISE_EXCEPTION;
7122: END;
7123:
7116: WHEN OTHERS THEN
7117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7121: APP_EXCEPTION.RAISE_EXCEPTION;
7122: END;
7123:
7124: END IF;
7329: EXCEPTION
7330: WHEN OTHERS
7331: THEN
7332: IF (SQLCODE <> -20001) THEN
7333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7337: END IF;
7330: WHEN OTHERS
7331: THEN
7332: IF (SQLCODE <> -20001) THEN
7333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7337: END IF;
7338: APP_EXCEPTION.RAISE_EXCEPTION;
7331: THEN
7332: IF (SQLCODE <> -20001) THEN
7333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7337: END IF;
7338: APP_EXCEPTION.RAISE_EXCEPTION;
7339:
7332: IF (SQLCODE <> -20001) THEN
7333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7337: END IF;
7338: APP_EXCEPTION.RAISE_EXCEPTION;
7339:
7340: END Get_All_Approvers;
7478: EXCEPTION
7479: WHEN OTHERS THEN
7480:
7481: IF (SQLCODE <> -20001) THEN
7482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7485: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7486: END IF;
7479: WHEN OTHERS THEN
7480:
7481: IF (SQLCODE <> -20001) THEN
7482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7485: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7486: END IF;
7487: APP_EXCEPTION.RAISE_EXCEPTION;
7480:
7481: IF (SQLCODE <> -20001) THEN
7482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7485: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7486: END IF;
7487: APP_EXCEPTION.RAISE_EXCEPTION;
7488:
7481: IF (SQLCODE <> -20001) THEN
7482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
7485: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
7486: END IF;
7487: APP_EXCEPTION.RAISE_EXCEPTION;
7488:
7489: END Terminate_Approval;
8208:
8209: EXCEPTION
8210: WHEN OTHERS THEN
8211: l_debug_info := 'Invoice is in lock. Please try later';
8212: FND_MESSAGE.Set_Name('SQLAP', 'AP_CARD_VERIFY_LOCK_FAILED');
8213: l_error_message := FND_MESSAGE.Get;
8214: APP_EXCEPTION.RAISE_EXCEPTION;
8215: END;
8216: -- Bug 5037108 Ends
8209: EXCEPTION
8210: WHEN OTHERS THEN
8211: l_debug_info := 'Invoice is in lock. Please try later';
8212: FND_MESSAGE.Set_Name('SQLAP', 'AP_CARD_VERIFY_LOCK_FAILED');
8213: l_error_message := FND_MESSAGE.Get;
8214: APP_EXCEPTION.RAISE_EXCEPTION;
8215: END;
8216: -- Bug 5037108 Ends
8217:
8586:
8587: EXCEPTION
8588: WHEN OTHERS THEN
8589: l_debug_info := 'Invoice is in lock. Please try later';
8590: FND_MESSAGE.Set_Name('SQLAP', 'AP_CARD_VERIFY_LOCK_FAILED');
8591: l_error_message := FND_MESSAGE.Get;
8592: APP_EXCEPTION.RAISE_EXCEPTION;
8593: END;
8594: -- Bug 5037108 Ends
8587: EXCEPTION
8588: WHEN OTHERS THEN
8589: l_debug_info := 'Invoice is in lock. Please try later';
8590: FND_MESSAGE.Set_Name('SQLAP', 'AP_CARD_VERIFY_LOCK_FAILED');
8591: l_error_message := FND_MESSAGE.Get;
8592: APP_EXCEPTION.RAISE_EXCEPTION;
8593: END;
8594: -- Bug 5037108 Ends
8595: