179: END IF;
180:
181: /*Bug 2889204 : Setting the description for invoice line */
182: --l_masked_cc_number := l_masked_cc_number||'/'||l_full_name;
183: FND_MESSAGE.SET_NAME('SQLAP','OIE_INVOICE_DESC');
184: l_description := FND_MESSAGE.GET;
185: l_description := replace(l_description,'EMP_FULL_NAME',l_full_name);
186: l_description := replace(l_description,'EMP_CARD_NUM',l_masked_cc_number);
187: l_description := replace(l_description,'EXP_RPT_PURPOSE','');
180:
181: /*Bug 2889204 : Setting the description for invoice line */
182: --l_masked_cc_number := l_masked_cc_number||'/'||l_full_name;
183: FND_MESSAGE.SET_NAME('SQLAP','OIE_INVOICE_DESC');
184: l_description := FND_MESSAGE.GET;
185: l_description := replace(l_description,'EMP_FULL_NAME',l_full_name);
186: l_description := replace(l_description,'EMP_CARD_NUM',l_masked_cc_number);
187: l_description := replace(l_description,'EXP_RPT_PURPOSE','');
188: l_description := substrb(l_description,1,240);
227: ----------------------------------------------------------------------
228: l_debugInfo := 'Write to the log file regarding the progress of the operation';
229: ----------------------------------------------------------------------
230: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Total processed transactions: ' || l_count );
231: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_TRXNS_DONE_ACK' );
232: FND_MESSAGE.SET_TOKEN( 'TOTAL_TRXNS_NUM', l_count );
233: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
234: --
235: -- create a summary invoice for this batch of credit card transactions
228: l_debugInfo := 'Write to the log file regarding the progress of the operation';
229: ----------------------------------------------------------------------
230: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Total processed transactions: ' || l_count );
231: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_TRXNS_DONE_ACK' );
232: FND_MESSAGE.SET_TOKEN( 'TOTAL_TRXNS_NUM', l_count );
233: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
234: --
235: -- create a summary invoice for this batch of credit card transactions
236: --
229: ----------------------------------------------------------------------
230: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Total processed transactions: ' || l_count );
231: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_TRXNS_DONE_ACK' );
232: FND_MESSAGE.SET_TOKEN( 'TOTAL_TRXNS_NUM', l_count );
233: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
234: --
235: -- create a summary invoice for this batch of credit card transactions
236: --
237: IF ( l_count > 0 )
326:
327: p_invoiceID := l_invoice_id;
328:
329: FND_FILE.PUT_LINE( FND_FILE.LOG, 'A record with invoice id = ' || l_invoice_id || ' is created' );
330: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_NEW_INVOICE_ACK' );
331: FND_MESSAGE.SET_TOKEN( 'INVOICE_ID', l_invoice_id );
332: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
333:
334: ------------------------------------------------------------------------
327: p_invoiceID := l_invoice_id;
328:
329: FND_FILE.PUT_LINE( FND_FILE.LOG, 'A record with invoice id = ' || l_invoice_id || ' is created' );
330: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_NEW_INVOICE_ACK' );
331: FND_MESSAGE.SET_TOKEN( 'INVOICE_ID', l_invoice_id );
332: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
333:
334: ------------------------------------------------------------------------
335: l_debugInfo := 'Submitting Payment Request';
328:
329: FND_FILE.PUT_LINE( FND_FILE.LOG, 'A record with invoice id = ' || l_invoice_id || ' is created' );
330: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_NEW_INVOICE_ACK' );
331: FND_MESSAGE.SET_TOKEN( 'INVOICE_ID', l_invoice_id );
332: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
333:
334: ------------------------------------------------------------------------
335: l_debugInfo := 'Submitting Payment Request';
336: fnd_file.put_line(fnd_file.log, l_debugInfo);
397: WHEN OTHERS THEN
398: BEGIN
399: IF ( SQLCODE <> -20001 )
400: THEN
401: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
402: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
403: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
404: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
405: errbuf := FND_MESSAGE.get;
398: BEGIN
399: IF ( SQLCODE <> -20001 )
400: THEN
401: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
402: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
403: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
404: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
405: errbuf := FND_MESSAGE.get;
406: retcode := 2;
399: IF ( SQLCODE <> -20001 )
400: THEN
401: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
402: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
403: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
404: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
405: errbuf := FND_MESSAGE.get;
406: retcode := 2;
407: ELSE
400: THEN
401: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
402: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
403: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
404: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
405: errbuf := FND_MESSAGE.get;
406: retcode := 2;
407: ELSE
408: -- Do not need to set the token since it has been done in the
401: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
402: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
403: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
404: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
405: errbuf := FND_MESSAGE.get;
406: retcode := 2;
407: ELSE
408: -- Do not need to set the token since it has been done in the
409: -- child process
543:
544: EXCEPTION
545: When OTHERS then
546: IF (SQLCODE <> -20001) THEN
547: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
548: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
549: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
550: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
551: APP_EXCEPTION.RAISE_EXCEPTION;
544: EXCEPTION
545: When OTHERS then
546: IF (SQLCODE <> -20001) THEN
547: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
548: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
549: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
550: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
551: APP_EXCEPTION.RAISE_EXCEPTION;
552: ELSE
545: When OTHERS then
546: IF (SQLCODE <> -20001) THEN
547: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
548: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
549: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
550: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
551: APP_EXCEPTION.RAISE_EXCEPTION;
552: ELSE
553: -- Do not need to set the token since it has been done in the
546: IF (SQLCODE <> -20001) THEN
547: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
548: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
549: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
550: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
551: APP_EXCEPTION.RAISE_EXCEPTION;
552: ELSE
553: -- Do not need to set the token since it has been done in the
554: -- child process
678: RETURN l_invoiceAmt;
679: EXCEPTION
680: When OTHERS then
681: IF (SQLCODE <> -20001) THEN
682: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
683: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
684: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
685: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
686: APP_EXCEPTION.RAISE_EXCEPTION;
679: EXCEPTION
680: When OTHERS then
681: IF (SQLCODE <> -20001) THEN
682: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
683: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
684: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
685: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
686: APP_EXCEPTION.RAISE_EXCEPTION;
687: ELSE
680: When OTHERS then
681: IF (SQLCODE <> -20001) THEN
682: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
683: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
684: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
685: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
686: APP_EXCEPTION.RAISE_EXCEPTION;
687: ELSE
688: -- Do not need to set the token since it has been done in the
681: IF (SQLCODE <> -20001) THEN
682: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
683: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
684: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
685: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
686: APP_EXCEPTION.RAISE_EXCEPTION;
687: ELSE
688: -- Do not need to set the token since it has been done in the
689: -- child process