DBA Data[Home] [Help]

APPS.PO_INVOICES_SV2 dependencies on FND_API

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

574: x_org_id NUMBER; --Bug# 2492041
575:
576: /* */
577: l_error_msg VARCHAR2(2000);
578: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
579: /* */
580:
581: /* R12 Complex Work.*/
582: x_curr_shipment_type po_line_locations_all.shipment_type%type;

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

1514: l_user_id,
1515: 0,
1516: v_req_id);
1517:
1518: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521:
1522: /* */

Line 1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1515: 0,
1516: v_req_id);
1517:
1518: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521:
1522: /* */
1523:

Line 1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1534:
1535: EXCEPTION
1536:
1537: /* */
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
1540: IF (g_asn_debug = 'Y') THEN
1541: ASN_DEBUG.put_line(l_error_msg);
1542: END IF;

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

1772: );
1773:
1774: x_progress := '004';
1775:
1776: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1777: RETURN x_invoice_num;
1778: ELSE
1779: RAISE create_invoice_error;
1780: END IF;

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

1794: asn_debug.put_line ('rcv_gapless_numbering.generate_invoice_number returned with status = ' || x_return_status );
1795: asn_debug.put_line ('x_invoice_num = ' || x_invoice_num );
1796: END IF;
1797:
1798: IF (x_return_status = fnd_api.g_ret_sts_success and x_invoice_num is NOT NULL)
1799: THEN
1800: RETURN x_invoice_num;
1801: ELSIF (x_return_status <> fnd_api.g_ret_sts_success)
1802: THEN

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

1797:
1798: IF (x_return_status = fnd_api.g_ret_sts_success and x_invoice_num is NOT NULL)
1799: THEN
1800: RETURN x_invoice_num;
1801: ELSIF (x_return_status <> fnd_api.g_ret_sts_success)
1802: THEN
1803: RAISE create_invoice_error;
1804: ELSE
1805: NULL;

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

2765: l_commit_upper NUMBER;
2766: l_header_idx NUMBER := 0;
2767: l_invoice_count NUMBER := 0;
2768: l_distr_count NUMBER := 0;
2769: l_first_flag VARCHAR2(1) := FND_API.G_TRUE;
2770:
2771: l_aging_period NUMBER;
2772: l_cutoff_date DATE;
2773: l_def_base_currency_code ap_system_parameters.base_currency_code%TYPE;

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

2781: l_batch_name ap_batches.batch_name%TYPE;
2782: l_request_id ap_invoices_interface.request_id%TYPE;
2783:
2784: l_error_msg VARCHAR2(2000);
2785: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2786: l_progress VARCHAR2(3);
2787: BEGIN
2788: l_progress := '000';
2789:

Line 2794: x_return_status := FND_API.G_RET_STS_SUCCESS;

2790: IF (g_asn_debug = 'Y') THEN
2791: ASN_DEBUG.put_line('Enter create use invoices');
2792: END IF;
2793:
2794: x_return_status := FND_API.G_RET_STS_SUCCESS;
2795:
2796: IF NOT FND_API.Compatible_API_Call (
2797: l_api_version,
2798: p_api_version,

Line 2796: IF NOT FND_API.Compatible_API_Call (

2792: END IF;
2793:
2794: x_return_status := FND_API.G_RET_STS_SUCCESS;
2795:
2796: IF NOT FND_API.Compatible_API_Call (
2797: l_api_version,
2798: p_api_version,
2799: l_api_name,
2800: g_pkg_name)

Line 2802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2798: p_api_version,
2799: l_api_name,
2800: g_pkg_name)
2801: THEN
2802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2803: END IF; -- check api version compatibility
2804:
2805: IF (g_asn_debug = 'Y') THEN
2806: ASN_DEBUG.put_line('API Version Check is passed');

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

2905: IF (g_asn_debug = 'Y') THEN
2906: ASN_DEBUG.put_line('In Inner Loop. i = ' || i);
2907: END IF;
2908:
2909: IF (l_first_flag = FND_API.G_TRUE) THEN
2910: l_progress := '050';
2911:
2912: l_first_flag := FND_API.G_FALSE;
2913:

Line 2912: l_first_flag := FND_API.G_FALSE;

2908:
2909: IF (l_first_flag = FND_API.G_TRUE) THEN
2910: l_progress := '050';
2911:
2912: l_first_flag := FND_API.G_FALSE;
2913:
2914: IF (g_asn_debug = 'Y') THEN
2915: ASN_DEBUG.put_line('First Record.');
2916: END IF;

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

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

Line 2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2940: i,
2941: l_curr);
2942:
2943: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: IF (g_asn_debug = 'Y') THEN
2948: ASN_DEBUG.put_line('Done Initializing Header variables.');

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

2947: IF (g_asn_debug = 'Y') THEN
2948: ASN_DEBUG.put_line('Done Initializing Header variables.');
2949: END IF;
2950:
2951: END IF; -- l_first_flag = FND_API.G_TRUE
2952:
2953: IF (PO_INVOICES_SV2.need_new_invoice(
2954: l_return_status,
2955: l_consumption,

Line 2958: l_def_base_currency_code) = FND_API.G_TRUE)

2954: l_return_status,
2955: l_consumption,
2956: i,
2957: l_curr,
2958: l_def_base_currency_code) = FND_API.G_TRUE)
2959: THEN
2960: l_progress := '060';
2961:
2962: l_header_idx := l_header_idx + 1;

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

2981: l_org_id,
2982: l_ap_inv_header,
2983: l_header_idx);
2984:
2985: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2987: END IF;
2988:
2989: IF (g_asn_debug = 'Y') THEN

Line 2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2982: l_ap_inv_header,
2983: l_header_idx);
2984:
2985: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2987: END IF;
2988:
2989: IF (g_asn_debug = 'Y') THEN
2990: ASN_DEBUG.put_line('Stored Header Information into table');

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

2998: l_consumption,
2999: i,
3000: l_curr);
3001:
3002: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3004: END IF;
3005:
3006: IF (g_asn_debug = 'Y') THEN

Line 3003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2999: i,
3000: l_curr);
3001:
3002: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3004: END IF;
3005:
3006: IF (g_asn_debug = 'Y') THEN
3007: ASN_DEBUG.put_line('Done Resetting Header Variables');

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

3025: l_ap_inv_header,
3026: 1,
3027: l_header_idx);
3028:
3029: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3031: END IF;
3032:
3033: l_progress := '073';

Line 3030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3026: 1,
3027: l_header_idx);
3028:
3029: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3031: END IF;
3032:
3033: l_progress := '073';
3034:

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

3041: l_consumption,
3042: l_commit_lower,
3043: l_commit_upper);
3044:
3045: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3047: END IF;
3048:
3049: l_progress := '076';

Line 3046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3042: l_commit_lower,
3043: l_commit_upper);
3044:
3045: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3047: END IF;
3048:
3049: l_progress := '076';
3050:

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

3061:
3062: END IF; -- PO_INVOICES_SV2.need_new_invoice
3063:
3064: -- This if is to check the return value of need_new_invoice
3065: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3067: END IF;
3068:
3069: l_progress := '090';

Line 3066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3062: END IF; -- PO_INVOICES_SV2.need_new_invoice
3063:
3064: -- This if is to check the return value of need_new_invoice
3065: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3067: END IF;
3068:
3069: l_progress := '090';
3070: IF (g_asn_debug = 'Y') THEN

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

3095: l_consumption.currency_code(i),
3096: l_consumption.invoice_line_amount(i),
3097: l_curr.invoice_amount);
3098:
3099: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: IF (g_asn_debug = 'Y') THEN

Line 3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3096: l_consumption.invoice_line_amount(i),
3097: l_curr.invoice_amount);
3098:
3099: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: IF (g_asn_debug = 'Y') THEN
3104: ASN_DEBUG.put_line('line_amount = ' ||

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

3136: l_consumption,
3137: l_commit_lower,
3138: l_commit_upper);
3139:
3140: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3142: END IF;
3143:
3144: EXIT WHEN c_consumption%NOTFOUND;

Line 3141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3137: l_commit_lower,
3138: l_commit_upper);
3139:
3140: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3142: END IF;
3143:
3144: EXIT WHEN c_consumption%NOTFOUND;
3145:

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

3175: l_org_id,
3176: l_ap_inv_header,
3177: l_header_idx);
3178:
3179: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3181: END IF;
3182:
3183: l_progress := '120';

Line 3180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3176: l_ap_inv_header,
3177: l_header_idx);
3178:
3179: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3181: END IF;
3182:
3183: l_progress := '120';
3184: IF (g_asn_debug = 'Y') THEN

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

3190: l_ap_inv_header,
3191: 1,
3192: l_header_idx);
3193:
3194: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197:
3198: COMMIT;

Line 3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3191: 1,
3192: l_header_idx);
3193:
3194: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197:
3198: COMMIT;
3199:

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

3225: l_user_id,
3226: l_login_id,
3227: l_request_id);
3228:
3229: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3231: END IF;
3232:
3233: l_progress := '140';

Line 3230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3226: l_login_id,
3227: l_request_id);
3228:
3229: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3231: END IF;
3232:
3233: l_progress := '140';
3234:

Line 3249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3245: ASN_DEBUG.put_line('Exit create_use_invoices');
3246: END IF;
3247:
3248: EXCEPTION
3249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3251: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
3252: IF (g_asn_debug = 'Y') THEN
3253: ASN_DEBUG.put_line(l_api_name || '-' || l_progress);

Line 3250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3246: END IF;
3247:
3248: EXCEPTION
3249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3251: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
3252: IF (g_asn_debug = 'Y') THEN
3253: ASN_DEBUG.put_line(l_api_name || '-' || l_progress);
3254: ASN_DEBUG.put_line(l_error_msg);

Line 3269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3265: l_group_id);
3266: COMMIT;
3267:
3268: WHEN OTHERS THEN
3269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3270: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3271: l_error_msg := FND_MSG_PUB.get(p_encoded => 'F');
3272: IF (g_asn_debug = 'Y') THEN
3273: ASN_DEBUG.put_line(l_api_name || '-' || l_progress);

Line 3301: x_return_status := FND_API.G_RET_STS_SUCCESS;

3297: p_base_currency_code IN VARCHAR2) RETURN VARCHAR2
3298: IS
3299: l_api_name VARCHAR2(50) := 'need_new_invoice';
3300: BEGIN
3301: x_return_status := FND_API.G_RET_STS_SUCCESS;
3302:
3303: -- bug2786193
3304: -- Use p_curr structure to reduce number of parameters passed
3305:

Line 3340: RETURN FND_API.G_TRUE;

3336: p_consumption.pay_on_receipt_summary_code(p_index) =
3337: 'CONSUMPTION_ADVICE')
3338: ) THEN
3339:
3340: RETURN FND_API.G_TRUE;
3341: END IF;
3342:
3343: RETURN FND_API.G_FALSE;
3344: EXCEPTION

Line 3343: RETURN FND_API.G_FALSE;

3339:
3340: RETURN FND_API.G_TRUE;
3341: END IF;
3342:
3343: RETURN FND_API.G_FALSE;
3344: EXCEPTION
3345: WHEN OTHERS THEN
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);

Line 3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3342:
3343: RETURN FND_API.G_FALSE;
3344: EXCEPTION
3345: WHEN OTHERS THEN
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3348: RETURN FND_API.G_FALSE;
3349: END need_new_invoice;
3350:

Line 3348: RETURN FND_API.G_FALSE;

3344: EXCEPTION
3345: WHEN OTHERS THEN
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3348: RETURN FND_API.G_FALSE;
3349: END need_new_invoice;
3350:
3351: /*******************************************************
3352: * PROCEDURE store_header_info

Line 3365: x_return_status := FND_API.G_RET_STS_SUCCESS;

3361: p_index IN NUMBER)
3362: IS
3363: l_api_name VARCHAR2(50) := 'store_header_info';
3364: BEGIN
3365: x_return_status := FND_API.G_RET_STS_SUCCESS;
3366:
3367: IF (g_asn_debug = 'Y') THEN
3368: ASN_DEBUG.put_line('Storing header data into PL/SQL tables');
3369: END IF;

Line 3403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3399: ASN_DEBUG.put_line('Invoice id = ' || x_ap_inv_header.invoice_id(p_index));
3400: END IF;
3401: EXCEPTION
3402: WHEN OTHERS THEN
3403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3404: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3405: END store_header_info;
3406:
3407: /*******************************************************

Line 3418: x_return_status := FND_API.G_RET_STS_SUCCESS;

3414: x_curr OUT NOCOPY PO_INVOICES_SV2.curr_condition_rec_type)
3415: IS
3416: l_api_name VARCHAR2(50) := 'reset_header_values';
3417: BEGIN
3418: x_return_status := FND_API.G_RET_STS_SUCCESS;
3419:
3420: -- bug2786193
3421: -- pass in currency_conversion_date instead of creation_date
3422:

Line 3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3467:
3468: END IF; -- p_next_consump.currency_conversion_type(p_index) <> 'User'
3469: EXCEPTION
3470: WHEN OTHERS THEN
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3472: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3473: END reset_header_values;
3474:
3475: /*******************************************************

Line 3489: x_return_status := FND_API.G_RET_STS_SUCCESS;

3485: x_curr_invoice_amount IN OUT NOCOPY NUMBER)
3486: IS
3487: l_api_name VARCHAR2(50) := 'calc_consumption_cost';
3488: BEGIN
3489: x_return_status := FND_API.G_RET_STS_SUCCESS;
3490:
3491: x_invoice_line_amount := AP_UTILITIES_PKG.ap_round_currency(
3492: p_quantity * p_unit_price,
3493: p_invoice_currency_code);

Line 3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3498:
3499: x_curr_invoice_amount := x_curr_invoice_amount + x_invoice_line_amount;
3500: EXCEPTION
3501: WHEN OTHERS THEN
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3503: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3504: END calc_consumption_cost;
3505:
3506: /*******************************************************

Line 3519: x_return_status := FND_API.G_RET_STS_SUCCESS;

3515: l_api_name VARCHAR2(50) := 'create_invoice_hdr';
3516: BEGIN
3517: SAVEPOINT create_invoice_hdr_sp;
3518:
3519: x_return_status := FND_API.G_RET_STS_SUCCESS;
3520:
3521: FORALL i IN p_from..p_to
3522: INSERT INTO ap_invoices_interface(
3523: invoice_id,

Line 3568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3564:
3565: EXCEPTION
3566: WHEN OTHERS THEN
3567: ROLLBACK TO create_invoice_hdr_sp;
3568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3569: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3570: END create_invoice_hdr;
3571:
3572: /*******************************************************

Line 3591: x_return_status := FND_API.G_RET_STS_SUCCESS;

3587:
3588: BEGIN
3589: SAVEPOINT create_invoice_distr_sp;
3590:
3591: x_return_status := FND_API.G_RET_STS_SUCCESS;
3592:
3593: /* Bug 5100177.
3594: * Match option is hard coded to P. So populate
3595: * unit_of_meas_lookup_code to poll.unit_meas_lookup_code.

Line 3715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3711: END LOOP;
3712: EXCEPTION
3713: WHEN OTHERS THEN
3714: ROLLBACK TO create_invoice_distr_sp;
3715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3716: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3717: END create_invoice_distr;
3718:
3719: /* */