DBA Data[Home] [Help]

APPS.PO_INVOICES_SV2 dependencies on FND_API

Line 527: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

523: x_org_id NUMBER; --Bug# 2492041
524:
525: /* */
526: l_error_msg VARCHAR2(2000);
527: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
528: /* */
529:
530: /* R12 Complex Work.*/
531: x_curr_shipment_type po_line_locations_all.shipment_type%type;

Line 1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1450: l_user_id,
1451: 0,
1452: v_req_id);
1453:
1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1456: END IF;
1457:
1458: /* */

Line 1455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1451: 0,
1452: v_req_id);
1453:
1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1456: END IF;
1457:
1458: /* */
1459:

Line 1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1470:
1471: EXCEPTION
1472:
1473: /* */
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
1476: IF (g_asn_debug = 'Y') THEN
1477: ASN_DEBUG.put_line(l_error_msg);
1478: END IF;

Line 1712: IF (x_return_status = fnd_api.g_ret_sts_success) THEN

1708: );
1709:
1710: x_progress := '004';
1711:
1712: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1713: RETURN x_invoice_num;
1714: ELSE
1715: RAISE create_invoice_error;
1716: END IF;

Line 1734: IF (x_return_status = fnd_api.g_ret_sts_success and x_invoice_num is NOT NULL)

1730: asn_debug.put_line ('rcv_gapless_numbering.generate_invoice_number returned with status = ' || x_return_status );
1731: asn_debug.put_line ('x_invoice_num = ' || x_invoice_num );
1732: END IF;
1733:
1734: IF (x_return_status = fnd_api.g_ret_sts_success and x_invoice_num is NOT NULL)
1735: THEN
1736: RETURN x_invoice_num;
1737: ELSIF (x_return_status <> fnd_api.g_ret_sts_success)
1738: THEN

Line 1737: ELSIF (x_return_status <> fnd_api.g_ret_sts_success)

1733:
1734: IF (x_return_status = fnd_api.g_ret_sts_success and x_invoice_num is NOT NULL)
1735: THEN
1736: RETURN x_invoice_num;
1737: ELSIF (x_return_status <> fnd_api.g_ret_sts_success)
1738: THEN
1739: RAISE create_invoice_error;
1740: ELSE
1741: NULL;

Line 2616: l_first_flag VARCHAR2(1) := FND_API.G_TRUE;

2612: l_commit_upper NUMBER;
2613: l_header_idx NUMBER := 0;
2614: l_invoice_count NUMBER := 0;
2615: l_distr_count NUMBER := 0;
2616: l_first_flag VARCHAR2(1) := FND_API.G_TRUE;
2617:
2618: l_aging_period NUMBER;
2619: l_cutoff_date DATE;
2620: l_def_base_currency_code ap_system_parameters.base_currency_code%TYPE;

Line 2632: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

2628: l_batch_name ap_batches.batch_name%TYPE;
2629: l_request_id ap_invoices_interface.request_id%TYPE;
2630:
2631: l_error_msg VARCHAR2(2000);
2632: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2633: l_progress VARCHAR2(3);
2634: BEGIN
2635: l_progress := '000';
2636:

Line 2641: x_return_status := FND_API.G_RET_STS_SUCCESS;

2637: IF (g_asn_debug = 'Y') THEN
2638: ASN_DEBUG.put_line('Enter create use invoices');
2639: END IF;
2640:
2641: x_return_status := FND_API.G_RET_STS_SUCCESS;
2642:
2643: IF NOT FND_API.Compatible_API_Call (
2644: l_api_version,
2645: p_api_version,

Line 2643: IF NOT FND_API.Compatible_API_Call (

2639: END IF;
2640:
2641: x_return_status := FND_API.G_RET_STS_SUCCESS;
2642:
2643: IF NOT FND_API.Compatible_API_Call (
2644: l_api_version,
2645: p_api_version,
2646: l_api_name,
2647: g_pkg_name)

Line 2649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2645: p_api_version,
2646: l_api_name,
2647: g_pkg_name)
2648: THEN
2649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2650: END IF; -- check api version compatibility
2651:
2652: IF (g_asn_debug = 'Y') THEN
2653: ASN_DEBUG.put_line('API Version Check is passed');

Line 2755: IF (l_first_flag = FND_API.G_TRUE) THEN

2751: IF (g_asn_debug = 'Y') THEN
2752: ASN_DEBUG.put_line('In Inner Loop. i = ' || i);
2753: END IF;
2754:
2755: IF (l_first_flag = FND_API.G_TRUE) THEN
2756: l_progress := '050';
2757:
2758: l_first_flag := FND_API.G_FALSE;
2759:

Line 2758: l_first_flag := FND_API.G_FALSE;

2754:
2755: IF (l_first_flag = FND_API.G_TRUE) THEN
2756: l_progress := '050';
2757:
2758: l_first_flag := FND_API.G_FALSE;
2759:
2760: IF (g_asn_debug = 'Y') THEN
2761: ASN_DEBUG.put_line('First Record.');
2762: END IF;

Line 2789: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2785: l_consumption,
2786: i,
2787: l_curr);
2788:
2789: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2791: END IF;
2792:
2793: IF (g_asn_debug = 'Y') THEN

Line 2790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2786: i,
2787: l_curr);
2788:
2789: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2791: END IF;
2792:
2793: IF (g_asn_debug = 'Y') THEN
2794: ASN_DEBUG.put_line('Done Initializing Header variables.');

Line 2797: END IF; -- l_first_flag = FND_API.G_TRUE

2793: IF (g_asn_debug = 'Y') THEN
2794: ASN_DEBUG.put_line('Done Initializing Header variables.');
2795: END IF;
2796:
2797: END IF; -- l_first_flag = FND_API.G_TRUE
2798:
2799: IF (PO_INVOICES_SV2.need_new_invoice(
2800: l_return_status,
2801: l_consumption,

Line 2804: l_def_base_currency_code) = FND_API.G_TRUE)

2800: l_return_status,
2801: l_consumption,
2802: i,
2803: l_curr,
2804: l_def_base_currency_code) = FND_API.G_TRUE)
2805: THEN
2806: l_progress := '060';
2807:
2808: l_header_idx := l_header_idx + 1;

Line 2831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2827: l_org_id,
2828: l_ap_inv_header,
2829: l_header_idx);
2830:
2831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2833: END IF;
2834:
2835: IF (g_asn_debug = 'Y') THEN

Line 2832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2828: l_ap_inv_header,
2829: l_header_idx);
2830:
2831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2833: END IF;
2834:
2835: IF (g_asn_debug = 'Y') THEN
2836: ASN_DEBUG.put_line('Stored Header Information into table');

Line 2848: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2844: l_consumption,
2845: i,
2846: l_curr);
2847:
2848: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851:
2852: IF (g_asn_debug = 'Y') THEN

Line 2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2845: i,
2846: l_curr);
2847:
2848: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851:
2852: IF (g_asn_debug = 'Y') THEN
2853: ASN_DEBUG.put_line('Done Resetting Header Variables');

Line 2875: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2871: l_ap_inv_header,
2872: 1,
2873: l_header_idx);
2874:
2875: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2877: END IF;
2878:
2879: l_progress := '073';

Line 2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2872: 1,
2873: l_header_idx);
2874:
2875: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2877: END IF;
2878:
2879: l_progress := '073';
2880:

Line 2891: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2887: l_consumption,
2888: l_commit_lower,
2889: l_commit_upper);
2890:
2891: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2893: END IF;
2894:
2895: l_progress := '076';

Line 2892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2888: l_commit_lower,
2889: l_commit_upper);
2890:
2891: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2893: END IF;
2894:
2895: l_progress := '076';
2896:

Line 2911: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2907:
2908: END IF; -- PO_INVOICES_SV2.need_new_invoice
2909:
2910: -- This if is to check the return value of need_new_invoice
2911: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2913: END IF;
2914:
2915: l_progress := '090';

Line 2912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2908: END IF; -- PO_INVOICES_SV2.need_new_invoice
2909:
2910: -- This if is to check the return value of need_new_invoice
2911: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2913: END IF;
2914:
2915: l_progress := '090';
2916: IF (g_asn_debug = 'Y') THEN

Line 2945: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2941: l_consumption.currency_code(i),
2942: l_consumption.invoice_line_amount(i),
2943: l_curr.invoice_amount);
2944:
2945: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: END IF;
2948:
2949: IF (g_asn_debug = 'Y') THEN

Line 2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2942: l_consumption.invoice_line_amount(i),
2943: l_curr.invoice_amount);
2944:
2945: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: END IF;
2948:
2949: IF (g_asn_debug = 'Y') THEN
2950: ASN_DEBUG.put_line('line_amount = ' ||

Line 2986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2982: l_consumption,
2983: l_commit_lower,
2984: l_commit_upper);
2985:
2986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2988: END IF;
2989:
2990: EXIT WHEN c_consumption%NOTFOUND;

Line 2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2983: l_commit_lower,
2984: l_commit_upper);
2985:
2986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2988: END IF;
2989:
2990: EXIT WHEN c_consumption%NOTFOUND;
2991:

Line 3025: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

3021: l_org_id,
3022: l_ap_inv_header,
3023: l_header_idx);
3024:
3025: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3027: END IF;
3028:
3029: l_progress := '120';

Line 3026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3022: l_ap_inv_header,
3023: l_header_idx);
3024:
3025: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3027: END IF;
3028:
3029: l_progress := '120';
3030: IF (g_asn_debug = 'Y') THEN

Line 3040: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

3036: l_ap_inv_header,
3037: 1,
3038: l_header_idx);
3039:
3040: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3042: END IF;
3043:
3044: COMMIT;

Line 3041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3037: 1,
3038: l_header_idx);
3039:
3040: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3042: END IF;
3043:
3044: COMMIT;
3045:

Line 3075: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

3071: l_user_id,
3072: l_login_id,
3073: l_request_id);
3074:
3075: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3077: END IF;
3078:
3079: l_progress := '140';

Line 3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3072: l_login_id,
3073: l_request_id);
3074:
3075: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3077: END IF;
3078:
3079: l_progress := '140';
3080:

Line 3095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3091: ASN_DEBUG.put_line('Exit create_use_invoices');
3092: END IF;
3093:
3094: EXCEPTION
3095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3097: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
3098: IF (g_asn_debug = 'Y') THEN
3099: ASN_DEBUG.put_line(l_api_name || '-' || l_progress);

Line 3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3092: END IF;
3093:
3094: EXCEPTION
3095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3097: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
3098: IF (g_asn_debug = 'Y') THEN
3099: ASN_DEBUG.put_line(l_api_name || '-' || l_progress);
3100: ASN_DEBUG.put_line(l_error_msg);

Line 3115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3111: l_group_id);
3112: COMMIT;
3113:
3114: WHEN OTHERS THEN
3115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3116: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3117: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
3118: IF (g_asn_debug = 'Y') THEN
3119: ASN_DEBUG.put_line(l_api_name || '-' || l_progress);

Line 3147: x_return_status := FND_API.G_RET_STS_SUCCESS;

3143: p_base_currency_code IN VARCHAR2) RETURN VARCHAR2
3144: IS
3145: l_api_name VARCHAR2(50) := 'need_new_invoice';
3146: BEGIN
3147: x_return_status := FND_API.G_RET_STS_SUCCESS;
3148:
3149: -- bug2786193
3150: -- Use p_curr structure to reduce number of parameters passed
3151:

Line 3186: RETURN FND_API.G_TRUE;

3182: p_consumption.pay_on_receipt_summary_code(p_index) =
3183: 'CONSUMPTION_ADVICE')
3184: ) THEN
3185:
3186: RETURN FND_API.G_TRUE;
3187: END IF;
3188:
3189: RETURN FND_API.G_FALSE;
3190: EXCEPTION

Line 3189: RETURN FND_API.G_FALSE;

3185:
3186: RETURN FND_API.G_TRUE;
3187: END IF;
3188:
3189: RETURN FND_API.G_FALSE;
3190: EXCEPTION
3191: WHEN OTHERS THEN
3192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3193: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);

Line 3192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3188:
3189: RETURN FND_API.G_FALSE;
3190: EXCEPTION
3191: WHEN OTHERS THEN
3192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3193: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3194: RETURN FND_API.G_FALSE;
3195: END need_new_invoice;
3196:

Line 3194: RETURN FND_API.G_FALSE;

3190: EXCEPTION
3191: WHEN OTHERS THEN
3192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3193: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3194: RETURN FND_API.G_FALSE;
3195: END need_new_invoice;
3196:
3197: /*******************************************************
3198: * PROCEDURE store_header_info

Line 3211: x_return_status := FND_API.G_RET_STS_SUCCESS;

3207: p_index IN NUMBER)
3208: IS
3209: l_api_name VARCHAR2(50) := 'store_header_info';
3210: BEGIN
3211: x_return_status := FND_API.G_RET_STS_SUCCESS;
3212:
3213: IF (g_asn_debug = 'Y') THEN
3214: ASN_DEBUG.put_line('Storing header data into PL/SQL tables');
3215: END IF;

Line 3249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3245: ASN_DEBUG.put_line('Invoice id = ' || x_ap_inv_header.invoice_id(p_index));
3246: END IF;
3247: EXCEPTION
3248: WHEN OTHERS THEN
3249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3250: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3251: END store_header_info;
3252:
3253: /*******************************************************

Line 3264: x_return_status := FND_API.G_RET_STS_SUCCESS;

3260: x_curr OUT NOCOPY PO_INVOICES_SV2.curr_condition_rec_type)
3261: IS
3262: l_api_name VARCHAR2(50) := 'reset_header_values';
3263: BEGIN
3264: x_return_status := FND_API.G_RET_STS_SUCCESS;
3265:
3266: -- bug2786193
3267: -- pass in currency_conversion_date instead of creation_date
3268:

Line 3317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3313:
3314: END IF; -- p_next_consump.currency_conversion_type(p_index) <> 'User'
3315: EXCEPTION
3316: WHEN OTHERS THEN
3317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3318: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3319: END reset_header_values;
3320:
3321: /*******************************************************

Line 3335: x_return_status := FND_API.G_RET_STS_SUCCESS;

3331: x_curr_invoice_amount IN OUT NOCOPY NUMBER)
3332: IS
3333: l_api_name VARCHAR2(50) := 'calc_consumption_cost';
3334: BEGIN
3335: x_return_status := FND_API.G_RET_STS_SUCCESS;
3336:
3337: x_invoice_line_amount := AP_UTILITIES_PKG.ap_round_currency(
3338: p_quantity * p_unit_price,
3339: p_invoice_currency_code);

Line 3348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3344:
3345: x_curr_invoice_amount := x_curr_invoice_amount + x_invoice_line_amount;
3346: EXCEPTION
3347: WHEN OTHERS THEN
3348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3349: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3350: END calc_consumption_cost;
3351:
3352: /*******************************************************

Line 3365: x_return_status := FND_API.G_RET_STS_SUCCESS;

3361: l_api_name VARCHAR2(50) := 'create_invoice_hdr';
3362: BEGIN
3363: SAVEPOINT create_invoice_hdr_sp;
3364:
3365: x_return_status := FND_API.G_RET_STS_SUCCESS;
3366:
3367: FORALL i IN p_from..p_to
3368: INSERT INTO ap_invoices_interface(
3369: invoice_id,

Line 3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3406:
3407: EXCEPTION
3408: WHEN OTHERS THEN
3409: ROLLBACK TO create_invoice_hdr_sp;
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3412: END create_invoice_hdr;
3413:
3414: /*******************************************************

Line 3433: x_return_status := FND_API.G_RET_STS_SUCCESS;

3429:
3430: BEGIN
3431: SAVEPOINT create_invoice_distr_sp;
3432:
3433: x_return_status := FND_API.G_RET_STS_SUCCESS;
3434:
3435: /* Bug 5100177.
3436: * Match option is hard coded to P. So populate
3437: * unit_of_meas_lookup_code to poll.unit_meas_lookup_code.

Line 3553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3549: END LOOP;
3550: EXCEPTION
3551: WHEN OTHERS THEN
3552: ROLLBACK TO create_invoice_distr_sp;
3553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3554: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3555: END create_invoice_distr;
3556:
3557: /* */