4: --
5: -- Declare global variables
6: --
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_PAYINSTR_PUB';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
10:
11: --
12: -- List of instruction statuses that are used / set in this
5: -- Declare global variables
6: --
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_PAYINSTR_PUB';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
10:
11: --
12: -- List of instruction statuses that are used / set in this
13: -- module (payment instruction creation flow).
52: --
53: PROCEDURE print_debuginfo(
54: p_module IN VARCHAR2,
55: p_debug_text IN VARCHAR2,
56: p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT
57: );
58:
59: /*--------------------------------------------------------------------
60: | NAME:
296:
297: print_debuginfo(l_module_name, 'Provided processing type: '
298: || p_processing_type
299: || ' is invalid. Aborting program ..',
300: FND_LOG.LEVEL_UNEXPECTED
301: );
302:
303:
304: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_MISSING_PROCESS_TYPE');
320:
321: print_debuginfo(l_module_name, 'Invalid selection '
322: || 'criteria provided; org id has been provided '
323: || 'but org type has not been provided.',
324: FND_LOG.LEVEL_UNEXPECTED
325: );
326:
327: print_debuginfo(l_module_name, 'Payment instruction '
328: || 'creation will not proceed.',
325: );
326:
327: print_debuginfo(l_module_name, 'Payment instruction '
328: || 'creation will not proceed.',
329: FND_LOG.LEVEL_UNEXPECTED
330: );
331:
332:
333: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_MISSING_ORG_TYPE');
357:
358: print_debuginfo(l_module_name, 'Payment document id is '
359: || 'mandatory for printed processing type. '
360: || 'Insufficient data. Aborting program ..',
361: FND_LOG.LEVEL_UNEXPECTED
362: );
363:
364:
365: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_MISSING_PMT_DOCUMENT');
380:
381: print_debuginfo(l_module_name, 'Print immediate flag is '
382: || 'mandatory for printed processing type. '
383: || 'Insufficient data. Aborting program ..',
384: FND_LOG.LEVEL_UNEXPECTED
385: );
386:
387:
388: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_MISSING_PRINT_NOW_FLAG');
403:
404: print_debuginfo(l_module_name, 'Printer name is '
405: || 'mandatory if print immediate flag is '
406: || 'set to "Y". Aborting program ..',
407: FND_LOG.LEVEL_UNEXPECTED
408: );
409:
410:
411: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_MISSING_PRINTER');
479:
480: print_debuginfo(l_module_name, 'Transmit now flag is '
481: || 'mandatory for electronic processing type. '
482: || 'Insufficient data. Aborting program ..',
483: FND_LOG.LEVEL_UNEXPECTED
484: );
485:
486:
487: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_MISSING_TRANSMIT_NOW_FLAG');
504: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
505: print_debuginfo(l_module_name, 'Payment document id AND '
506: || 'Internal Bank Account id are not related'
507: || ' Aborting program ..',
508: FND_LOG.LEVEL_UNEXPECTED
509: );
510:
511: END IF;
512: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_INVALID_PMT_DOCUMENT');
529: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
530: print_debuginfo(l_module_name, 'Payment document id AND '
531: || 'Internal Bank Account id are not related'
532: || ' Aborting program ..',
533: FND_LOG.LEVEL_UNEXPECTED
534: );
535:
536: END IF;
537: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_INVALID_PMT_DOCUMENT');
564: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
565: print_debuginfo(l_module_name, 'Payment document id AND '
566: || 'Internal Bank Accounts (for one or more payments) are not related'
567: || ' Aborting program ..',
568: FND_LOG.LEVEL_UNEXPECTED
569: );
570:
571: END IF;
572: FND_MESSAGE.SET_NAME('IBY', 'IBY_INS_INVALID_PMT_DOCUMENT');
1087: || ' and exchange rate type '
1088: || l_exchg_rate_type
1089: || ' failed. '
1090: || 'Raising exception.',
1091: FND_LOG.LEVEL_UNEXPECTED
1092: );
1093:
1094:
1095: APP_EXCEPTION.RAISE_EXCEPTION;
1906: || 'picked up for payment instruction '
1907: || l_instruction_id
1908: || '. Possible data corruption. Aborting '
1909: || 'program.',
1910: FND_LOG.LEVEL_UNEXPECTED
1911: );
1912:
1913:
1914: APP_EXCEPTION.RAISE_EXCEPTION;
1968:
1969: print_debuginfo(l_module_name, 'Exception occured when '
1970: || 're-creating payment instruction id '
1971: || l_instruction_id,
1972: FND_LOG.LEVEL_UNEXPECTED
1973: );
1974:
1975: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
1976: FND_LOG.LEVEL_UNEXPECTED);
1972: FND_LOG.LEVEL_UNEXPECTED
1973: );
1974:
1975: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
1976: FND_LOG.LEVEL_UNEXPECTED);
1977: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
1978: FND_LOG.LEVEL_UNEXPECTED);
1979:
1980: print_debuginfo(l_module_name, 'EXIT');
1974:
1975: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
1976: FND_LOG.LEVEL_UNEXPECTED);
1977: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
1978: FND_LOG.LEVEL_UNEXPECTED);
1979:
1980: print_debuginfo(l_module_name, 'EXIT');
1981:
1982:
2687: errors := SQL%BULK_EXCEPTIONS.COUNT;
2688: FOR i IN 1..errors LOOP
2689: ERR_IND:= SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
2690: ERR_CODE:= SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
2691: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
2692: print_debuginfo(l_module_name, 'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
2693: print_debuginfo(l_module_name, ' While inserting payment instruction with following context : ',FND_LOG.LEVEL_UNEXPECTED );
2694: print_debuginfo(l_module_name, ' Payment Profile Id : ' || l_payment_profile_id(ERR_IND) ||
2695: ' Pay Admin Assigned Ref Code : ' || l_pay_admin_assigned_ref_code(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2688: FOR i IN 1..errors LOOP
2689: ERR_IND:= SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
2690: ERR_CODE:= SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
2691: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
2692: print_debuginfo(l_module_name, 'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
2693: print_debuginfo(l_module_name, ' While inserting payment instruction with following context : ',FND_LOG.LEVEL_UNEXPECTED );
2694: print_debuginfo(l_module_name, ' Payment Profile Id : ' || l_payment_profile_id(ERR_IND) ||
2695: ' Pay Admin Assigned Ref Code : ' || l_pay_admin_assigned_ref_code(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2696: print_debuginfo(l_module_name, ' Internal Bank Account Id : ' || l_internal_bank_account_id (ERR_IND) ||
2689: ERR_IND:= SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
2690: ERR_CODE:= SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
2691: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
2692: print_debuginfo(l_module_name, 'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
2693: print_debuginfo(l_module_name, ' While inserting payment instruction with following context : ',FND_LOG.LEVEL_UNEXPECTED );
2694: print_debuginfo(l_module_name, ' Payment Profile Id : ' || l_payment_profile_id(ERR_IND) ||
2695: ' Pay Admin Assigned Ref Code : ' || l_pay_admin_assigned_ref_code(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2696: print_debuginfo(l_module_name, ' Internal Bank Account Id : ' || l_internal_bank_account_id (ERR_IND) ||
2697: ' Payment Count : ' || l_payment_count (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2691: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
2692: print_debuginfo(l_module_name, 'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
2693: print_debuginfo(l_module_name, ' While inserting payment instruction with following context : ',FND_LOG.LEVEL_UNEXPECTED );
2694: print_debuginfo(l_module_name, ' Payment Profile Id : ' || l_payment_profile_id(ERR_IND) ||
2695: ' Pay Admin Assigned Ref Code : ' || l_pay_admin_assigned_ref_code(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2696: print_debuginfo(l_module_name, ' Internal Bank Account Id : ' || l_internal_bank_account_id (ERR_IND) ||
2697: ' Payment Count : ' || l_payment_count (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2698:
2699: END LOOP;
2693: print_debuginfo(l_module_name, ' While inserting payment instruction with following context : ',FND_LOG.LEVEL_UNEXPECTED );
2694: print_debuginfo(l_module_name, ' Payment Profile Id : ' || l_payment_profile_id(ERR_IND) ||
2695: ' Pay Admin Assigned Ref Code : ' || l_pay_admin_assigned_ref_code(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2696: print_debuginfo(l_module_name, ' Internal Bank Account Id : ' || l_internal_bank_account_id (ERR_IND) ||
2697: ' Payment Count : ' || l_payment_count (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
2698:
2699: END LOOP;
2700:
2701: /*
2704: RAISE;
2705: /* CHANGE FOR BUG : 14348326 - END */
2706: WHEN OTHERS THEN
2707: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
2708: FND_LOG.LEVEL_UNEXPECTED);
2709: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
2710: FND_LOG.LEVEL_UNEXPECTED);
2711: print_debuginfo(l_module_name, l_module_name||':Exception while inserting Payments');
2712: RAISE;
2706: WHEN OTHERS THEN
2707: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
2708: FND_LOG.LEVEL_UNEXPECTED);
2709: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
2710: FND_LOG.LEVEL_UNEXPECTED);
2711: print_debuginfo(l_module_name, l_module_name||':Exception while inserting Payments');
2712: RAISE;
2713:
2714: END insertPaymentInstructions;
3429: errors := SQL%BULK_EXCEPTIONS.COUNT;
3430: FOR i IN 1..errors LOOP
3431: ERR_IND:= SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
3432: ERR_CODE:= SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
3433: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
3434: print_debuginfo(l_module_name,'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
3435: print_debuginfo(l_module_name, ' While inserting payment with following context : ',FND_LOG.LEVEL_UNEXPECTED );
3436: print_debuginfo(l_module_name, ' Payee Name : ' || IBY_PAYGROUP_PUB.pmtTable.payee_name(ERR_IND) ||
3437: ' Payee Party Id : ' || IBY_PAYGROUP_PUB.pmtTable.payee_party_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3430: FOR i IN 1..errors LOOP
3431: ERR_IND:= SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
3432: ERR_CODE:= SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
3433: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
3434: print_debuginfo(l_module_name,'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
3435: print_debuginfo(l_module_name, ' While inserting payment with following context : ',FND_LOG.LEVEL_UNEXPECTED );
3436: print_debuginfo(l_module_name, ' Payee Name : ' || IBY_PAYGROUP_PUB.pmtTable.payee_name(ERR_IND) ||
3437: ' Payee Party Id : ' || IBY_PAYGROUP_PUB.pmtTable.payee_party_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3438: print_debuginfo(l_module_name, ' Party Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.party_site_id (ERR_IND) ||
3431: ERR_IND:= SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
3432: ERR_CODE:= SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
3433: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
3434: print_debuginfo(l_module_name,'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
3435: print_debuginfo(l_module_name, ' While inserting payment with following context : ',FND_LOG.LEVEL_UNEXPECTED );
3436: print_debuginfo(l_module_name, ' Payee Name : ' || IBY_PAYGROUP_PUB.pmtTable.payee_name(ERR_IND) ||
3437: ' Payee Party Id : ' || IBY_PAYGROUP_PUB.pmtTable.payee_party_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3438: print_debuginfo(l_module_name, ' Party Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.party_site_id (ERR_IND) ||
3439: ' Supplier Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.supplier_site_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3433: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE, FND_LOG.LEVEL_UNEXPECTED);
3434: print_debuginfo(l_module_name,'SQLERRM: ' || SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
3435: print_debuginfo(l_module_name, ' While inserting payment with following context : ',FND_LOG.LEVEL_UNEXPECTED );
3436: print_debuginfo(l_module_name, ' Payee Name : ' || IBY_PAYGROUP_PUB.pmtTable.payee_name(ERR_IND) ||
3437: ' Payee Party Id : ' || IBY_PAYGROUP_PUB.pmtTable.payee_party_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3438: print_debuginfo(l_module_name, ' Party Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.party_site_id (ERR_IND) ||
3439: ' Supplier Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.supplier_site_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3440: print_debuginfo(l_module_name, ' Org ID : ' || IBY_PAYGROUP_PUB.pmtTable.org_id (ERR_IND) ||
3441: ' Org Type : ' || IBY_PAYGROUP_PUB.pmtTable.org_type (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3435: print_debuginfo(l_module_name, ' While inserting payment with following context : ',FND_LOG.LEVEL_UNEXPECTED );
3436: print_debuginfo(l_module_name, ' Payee Name : ' || IBY_PAYGROUP_PUB.pmtTable.payee_name(ERR_IND) ||
3437: ' Payee Party Id : ' || IBY_PAYGROUP_PUB.pmtTable.payee_party_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3438: print_debuginfo(l_module_name, ' Party Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.party_site_id (ERR_IND) ||
3439: ' Supplier Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.supplier_site_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3440: print_debuginfo(l_module_name, ' Org ID : ' || IBY_PAYGROUP_PUB.pmtTable.org_id (ERR_IND) ||
3441: ' Org Type : ' || IBY_PAYGROUP_PUB.pmtTable.org_type (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3442: print_debuginfo(l_module_name, ' Payment Function : ' || IBY_PAYGROUP_PUB.pmtTable.payment_function (ERR_IND) ||
3443: ' External Bank Account ID : ' || IBY_PAYGROUP_PUB.pmtTable.external_bank_account_id (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3437: ' Payee Party Id : ' || IBY_PAYGROUP_PUB.pmtTable.payee_party_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3438: print_debuginfo(l_module_name, ' Party Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.party_site_id (ERR_IND) ||
3439: ' Supplier Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.supplier_site_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3440: print_debuginfo(l_module_name, ' Org ID : ' || IBY_PAYGROUP_PUB.pmtTable.org_id (ERR_IND) ||
3441: ' Org Type : ' || IBY_PAYGROUP_PUB.pmtTable.org_type (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3442: print_debuginfo(l_module_name, ' Payment Function : ' || IBY_PAYGROUP_PUB.pmtTable.payment_function (ERR_IND) ||
3443: ' External Bank Account ID : ' || IBY_PAYGROUP_PUB.pmtTable.external_bank_account_id (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3444:
3445: END LOOP;
3439: ' Supplier Site Id : ' || IBY_PAYGROUP_PUB.pmtTable.supplier_site_id(ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3440: print_debuginfo(l_module_name, ' Org ID : ' || IBY_PAYGROUP_PUB.pmtTable.org_id (ERR_IND) ||
3441: ' Org Type : ' || IBY_PAYGROUP_PUB.pmtTable.org_type (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3442: print_debuginfo(l_module_name, ' Payment Function : ' || IBY_PAYGROUP_PUB.pmtTable.payment_function (ERR_IND) ||
3443: ' External Bank Account ID : ' || IBY_PAYGROUP_PUB.pmtTable.external_bank_account_id (ERR_IND),FND_LOG.LEVEL_UNEXPECTED);
3444:
3445: END LOOP;
3446:
3447: /*
3450: RAISE;
3451: /* CHANGE FOR BUG : 14348326 - END */
3452: WHEN OTHERS THEN
3453: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
3454: FND_LOG.LEVEL_UNEXPECTED);
3455: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
3456: FND_LOG.LEVEL_UNEXPECTED);
3457: print_debuginfo(l_module_name, l_module_name||':Exception while inserting Payments');
3458: RAISE;
3452: WHEN OTHERS THEN
3453: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
3454: FND_LOG.LEVEL_UNEXPECTED);
3455: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
3456: FND_LOG.LEVEL_UNEXPECTED);
3457: print_debuginfo(l_module_name, l_module_name||':Exception while inserting Payments');
3458: RAISE;
3459: END createLogicalGroups;
3460:
3621:
3622: print_debuginfo(l_module_name, 'Fatal: Exception when updating '
3623: || 'payment instruction/payment status after payment '
3624: || 'instruction creation. All changes will be rolled back.',
3625: FND_LOG.LEVEL_UNEXPECTED
3626: );
3627: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
3628: FND_LOG.LEVEL_UNEXPECTED);
3629: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
3624: || 'instruction creation. All changes will be rolled back.',
3625: FND_LOG.LEVEL_UNEXPECTED
3626: );
3627: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
3628: FND_LOG.LEVEL_UNEXPECTED);
3629: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
3630: FND_LOG.LEVEL_UNEXPECTED);
3631:
3632:
3626: );
3627: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
3628: FND_LOG.LEVEL_UNEXPECTED);
3629: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
3630: FND_LOG.LEVEL_UNEXPECTED);
3631:
3632:
3633: /*
3634: * Propogate exception to caller.
4376: print_debuginfo(l_module_name, 'Data inconsistency: '
4377: || 'Failed payment instruction exists in PLSQL '
4378: || 'table, but not database table (though database '
4379: || 'insert has occured). Aborting program ..',
4380: FND_LOG.LEVEL_UNEXPECTED
4381: );
4382:
4383:
4384: APP_EXCEPTION.RAISE_EXCEPTION;
4425: EXCEPTION
4426: WHEN OTHERS THEN
4427:
4428: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
4429: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
4430: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4431: FND_LOG.LEVEL_UNEXPECTED);
4432: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4433: FND_LOG.LEVEL_UNEXPECTED);
4427:
4428: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
4429: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
4430: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4431: FND_LOG.LEVEL_UNEXPECTED);
4432: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4433: FND_LOG.LEVEL_UNEXPECTED);
4434:
4435:
4429: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
4430: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4431: FND_LOG.LEVEL_UNEXPECTED);
4432: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4433: FND_LOG.LEVEL_UNEXPECTED);
4434:
4435:
4436: /*
4437: * Propogate exception to caller.
4565: END IF;
4566:
4567:
4568: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
4569: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
4570: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4571: FND_LOG.LEVEL_UNEXPECTED);
4572: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4573: FND_LOG.LEVEL_UNEXPECTED);
4567:
4568: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
4569: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
4570: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4571: FND_LOG.LEVEL_UNEXPECTED);
4572: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4573: FND_LOG.LEVEL_UNEXPECTED);
4574:
4575:
4569: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
4570: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4571: FND_LOG.LEVEL_UNEXPECTED);
4572: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4573: FND_LOG.LEVEL_UNEXPECTED);
4574:
4575:
4576: /*
4577: * Propogate exception to caller.
4701: || 'picked up for payment instruction '
4702: || x_pmtInstrTab(i).payment_instruction_id
4703: || '. Possible data corruption. Aborting '
4704: || 'program.',
4705: FND_LOG.LEVEL_UNEXPECTED
4706: );
4707:
4708:
4709: APP_EXCEPTION.RAISE_EXCEPTION;
4788:
4789: print_debuginfo(l_module_name, 'Exception occured when '
4790: || 'performing sorted payment numbering for '
4791: || 'payment instructions.',
4792: FND_LOG.LEVEL_UNEXPECTED
4793: );
4794:
4795: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4796: FND_LOG.LEVEL_UNEXPECTED);
4792: FND_LOG.LEVEL_UNEXPECTED
4793: );
4794:
4795: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4796: FND_LOG.LEVEL_UNEXPECTED);
4797: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4798: FND_LOG.LEVEL_UNEXPECTED);
4799:
4800: print_debuginfo(l_module_name, 'EXIT');
4794:
4795: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
4796: FND_LOG.LEVEL_UNEXPECTED);
4797: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
4798: FND_LOG.LEVEL_UNEXPECTED);
4799:
4800: print_debuginfo(l_module_name, 'EXIT');
4801:
4802:
5287: print_debuginfo(l_module_name, 'Primary ledger '
5288: || 'linked to legal entity id '
5289: || l_le_id
5290: || ' was not found. Raising exception ..',
5291: FND_LOG.LEVEL_UNEXPECTED
5292: );
5293:
5294:
5295: APP_EXCEPTION.RAISE_EXCEPTION;
5307:
5308: print_debuginfo(l_module_name, 'Exception occured when '
5309: || 'attempting to get primary ledger for payment id '
5310: || x_sortedPmtTab(i).payment_id,
5311: FND_LOG.LEVEL_UNEXPECTED
5312: );
5313:
5314: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5315: FND_LOG.LEVEL_UNEXPECTED);
5311: FND_LOG.LEVEL_UNEXPECTED
5312: );
5313:
5314: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5315: FND_LOG.LEVEL_UNEXPECTED);
5316: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5317: FND_LOG.LEVEL_UNEXPECTED);
5318:
5319:
5313:
5314: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5315: FND_LOG.LEVEL_UNEXPECTED);
5316: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5317: FND_LOG.LEVEL_UNEXPECTED);
5318:
5319:
5320: /*
5321: * If we could not get the ledger id, then payment
5500: || ', method code: '
5501: || 'A'
5502: || ', payment date: '
5503: || x_sortedPmtTab(i).payment_date,
5504: FND_LOG.LEVEL_UNEXPECTED
5505: );
5506:
5507:
5508: /*
5531:
5532:
5533: print_debuginfo(l_module_name, 'Exception occured when attempting '
5534: || 'to perform document sequencing for payment instructions.',
5535: FND_LOG.LEVEL_UNEXPECTED
5536: );
5537:
5538: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5539: FND_LOG.LEVEL_UNEXPECTED);
5535: FND_LOG.LEVEL_UNEXPECTED
5536: );
5537:
5538: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5539: FND_LOG.LEVEL_UNEXPECTED);
5540: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5541: FND_LOG.LEVEL_UNEXPECTED);
5542:
5543:
5537:
5538: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5539: FND_LOG.LEVEL_UNEXPECTED);
5540: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5541: FND_LOG.LEVEL_UNEXPECTED);
5542:
5543:
5544: /*
5545: * Propogate exception to caller.
5815: print_debuginfo(l_module_name, 'Payment reference information '
5816: || 'not setup. Last used ref number: '
5817: || l_last_used_ref_num
5818: || '. Cannot continue. Aborting ..',
5819: FND_LOG.LEVEL_UNEXPECTED
5820: );
5821:
5822:
5823: APP_EXCEPTION.RAISE_EXCEPTION;
6803: print_debuginfo(l_module_name, 'Exception occured when '
6804: || 'checking whether document sequencing has been '
6805: || 'already completed for payment instruction '
6806: || p_instr_id,
6807: FND_LOG.LEVEL_UNEXPECTED
6808: );
6809:
6810: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
6811: FND_LOG.LEVEL_UNEXPECTED);
6807: FND_LOG.LEVEL_UNEXPECTED
6808: );
6809:
6810: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
6811: FND_LOG.LEVEL_UNEXPECTED);
6812: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
6813: FND_LOG.LEVEL_UNEXPECTED);
6814:
6815: print_debuginfo(l_module_name, 'EXIT');
6809:
6810: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
6811: FND_LOG.LEVEL_UNEXPECTED);
6812: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
6813: FND_LOG.LEVEL_UNEXPECTED);
6814:
6815: print_debuginfo(l_module_name, 'EXIT');
6816:
6817:
7116:
7117: print_debuginfo(l_module_name, 'Exception occured when attempting '
7118: || 'to get payments in sorted order for payment instruction '
7119: || p_instr_id,
7120: FND_LOG.LEVEL_UNEXPECTED
7121: );
7122:
7123: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
7124: FND_LOG.LEVEL_UNEXPECTED);
7120: FND_LOG.LEVEL_UNEXPECTED
7121: );
7122:
7123: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
7124: FND_LOG.LEVEL_UNEXPECTED);
7125: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
7126: FND_LOG.LEVEL_UNEXPECTED);
7127:
7128:
7122:
7123: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
7124: FND_LOG.LEVEL_UNEXPECTED);
7125: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
7126: FND_LOG.LEVEL_UNEXPECTED);
7127:
7128:
7129: /*
7130: * Propagate exception to caller.
7295: print_debuginfo(l_module_name, 'Exception occured when '
7296: || 'retrieving profile for '
7297: || 'payment instruction '
7298: || l_pmt_instr_id,
7299: FND_LOG.LEVEL_UNEXPECTED
7300: );
7301: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE,
7302: FND_LOG.LEVEL_UNEXPECTED);
7303: print_debuginfo(l_module_name, 'SQLERRM: ' || SQLERRM,
7298: || l_pmt_instr_id,
7299: FND_LOG.LEVEL_UNEXPECTED
7300: );
7301: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE,
7302: FND_LOG.LEVEL_UNEXPECTED);
7303: print_debuginfo(l_module_name, 'SQLERRM: ' || SQLERRM,
7304: FND_LOG.LEVEL_UNEXPECTED);
7305:
7306:
7300: );
7301: print_debuginfo(l_module_name, 'SQLCODE: ' || SQLCODE,
7302: FND_LOG.LEVEL_UNEXPECTED);
7303: print_debuginfo(l_module_name, 'SQLERRM: ' || SQLERRM,
7304: FND_LOG.LEVEL_UNEXPECTED);
7305:
7306:
7307: /*
7308: * Propogate exception to caller.
7608: *---------------------------------------------------------------------*/
7609: PROCEDURE print_debuginfo(
7610: p_module IN VARCHAR2,
7611: p_debug_text IN VARCHAR2,
7612: p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT
7613: )
7614: IS
7615: l_default_debug_level VARCHAR2(200) := FND_LOG.LEVEL_STATEMENT;
7616: BEGIN
7611: p_debug_text IN VARCHAR2,
7612: p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT
7613: )
7614: IS
7615: l_default_debug_level VARCHAR2(200) := FND_LOG.LEVEL_STATEMENT;
7616: BEGIN
7617:
7618: /*
7619: * Set the debug level to the value passed in
7625:
7626: /*
7627: * Write the debug message to the concurrent manager log file.
7628: */
7629: --IF (l_default_debug_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7630: iby_debug_pub.log(debug_msg => p_module||':'||p_debug_text,debug_level => p_debug_level, module => p_module);
7631: --END IF;
7632:
7633: END print_debuginfo;