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 )
322:
323: p_invoiceID := l_invoice_id;
324:
325: FND_FILE.PUT_LINE( FND_FILE.LOG, 'A record with invoice id = ' || l_invoice_id || ' is created' );
326: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_NEW_INVOICE_ACK' );
327: FND_MESSAGE.SET_TOKEN( 'INVOICE_ID', l_invoice_id );
328: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
329:
330: ------------------------------------------------------------------------
323: p_invoiceID := l_invoice_id;
324:
325: FND_FILE.PUT_LINE( FND_FILE.LOG, 'A record with invoice id = ' || l_invoice_id || ' is created' );
326: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_NEW_INVOICE_ACK' );
327: FND_MESSAGE.SET_TOKEN( 'INVOICE_ID', l_invoice_id );
328: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
329:
330: ------------------------------------------------------------------------
331: l_debugInfo := 'Submitting Payment Request';
324:
325: FND_FILE.PUT_LINE( FND_FILE.LOG, 'A record with invoice id = ' || l_invoice_id || ' is created' );
326: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_CARD_NEW_INVOICE_ACK' );
327: FND_MESSAGE.SET_TOKEN( 'INVOICE_ID', l_invoice_id );
328: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, FND_MESSAGE.get );
329:
330: ------------------------------------------------------------------------
331: l_debugInfo := 'Submitting Payment Request';
332: fnd_file.put_line(fnd_file.log, l_debugInfo);
387: WHEN OTHERS THEN
388: BEGIN
389: IF ( SQLCODE <> -20001 )
390: THEN
391: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
392: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
393: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
394: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
395: errbuf := FND_MESSAGE.get;
388: BEGIN
389: IF ( SQLCODE <> -20001 )
390: THEN
391: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
392: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
393: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
394: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
395: errbuf := FND_MESSAGE.get;
396: retcode := 2;
389: IF ( SQLCODE <> -20001 )
390: THEN
391: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
392: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
393: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
394: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
395: errbuf := FND_MESSAGE.get;
396: retcode := 2;
397: ELSE
390: THEN
391: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
392: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
393: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
394: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
395: errbuf := FND_MESSAGE.get;
396: retcode := 2;
397: ELSE
398: -- Do not need to set the token since it has been done in the
391: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
392: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
393: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'createCreditCardInvoice' );
394: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
395: errbuf := FND_MESSAGE.get;
396: retcode := 2;
397: ELSE
398: -- Do not need to set the token since it has been done in the
399: -- child process
533:
534: EXCEPTION
535: When OTHERS then
536: IF (SQLCODE <> -20001) THEN
537: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
538: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
539: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
540: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
541: APP_EXCEPTION.RAISE_EXCEPTION;
534: EXCEPTION
535: When OTHERS then
536: IF (SQLCODE <> -20001) THEN
537: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
538: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
539: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
540: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
541: APP_EXCEPTION.RAISE_EXCEPTION;
542: ELSE
535: When OTHERS then
536: IF (SQLCODE <> -20001) THEN
537: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
538: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
539: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
540: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
541: APP_EXCEPTION.RAISE_EXCEPTION;
542: ELSE
543: -- Do not need to set the token since it has been done in the
536: IF (SQLCODE <> -20001) THEN
537: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
538: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
539: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', l_callingSequence);
540: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debugInfo );
541: APP_EXCEPTION.RAISE_EXCEPTION;
542: ELSE
543: -- Do not need to set the token since it has been done in the
544: -- child process
637: RETURN l_invoiceAmt;
638: EXCEPTION
639: When OTHERS then
640: IF (SQLCODE <> -20001) THEN
641: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
642: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
643: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
644: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
645: APP_EXCEPTION.RAISE_EXCEPTION;
638: EXCEPTION
639: When OTHERS then
640: IF (SQLCODE <> -20001) THEN
641: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
642: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
643: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
644: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
645: APP_EXCEPTION.RAISE_EXCEPTION;
646: ELSE
639: When OTHERS then
640: IF (SQLCODE <> -20001) THEN
641: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
642: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
643: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
644: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
645: APP_EXCEPTION.RAISE_EXCEPTION;
646: ELSE
647: -- Do not need to set the token since it has been done in the
640: IF (SQLCODE <> -20001) THEN
641: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
642: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
643: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_callingSequence);
644: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debugInfo);
645: APP_EXCEPTION.RAISE_EXCEPTION;
646: ELSE
647: -- Do not need to set the token since it has been done in the
648: -- child process