DBA Data[Home] [Help]

APPS.OZF_FUND_UTILIZED_PVT dependencies on OZF_UTILITY_PVT

Line 28: ozf_utility_pvt.debug_message(' utilization Id is :'||p_object_id );

24: l_parameter_list := WF_PARAMETER_LIST_T();
25:
26:
27: IF G_DEBUG THEN
28: ozf_utility_pvt.debug_message(' utilization Id is :'||p_object_id );
29: END IF;
30:
31: wf_event.AddParameterToList(p_name => 'P_UTIL_ID',
32: p_value => p_object_id,

Line 36: ozf_utility_pvt.debug_message('Item Key is :'||l_item_key);

32: p_value => p_object_id,
33: p_parameterlist => l_parameter_list);
34:
35: IF G_DEBUG THEN
36: ozf_utility_pvt.debug_message('Item Key is :'||l_item_key);
37: END IF;
38:
39: wf_event.raise( p_event_name =>'oracle.apps.ozf.fund.adjustment.approval',
40: p_event_key => l_item_key,

Line 47: ozf_utility_pvt.debug_message('Exception in raising business event');

43:
44: EXCEPTION
45: WHEN OTHERS THEN
46: RAISE Fnd_Api.g_exc_error;
47: ozf_utility_pvt.debug_message('Exception in raising business event');
48: END;
49:
50:
51: ---------------------------------------------------------------------

Line 386: ozf_utility_pvt.debug_message ( l_full_name

382: BEGIN
383: --------------------- initialize -----------------------
384: SAVEPOINT create_utilization;
385: IF G_DEBUG THEN
386: ozf_utility_pvt.debug_message ( l_full_name
387: || ': start' || p_utilization_rec.utilization_type);
388: END IF;
389:
390: IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 402: ozf_utility_pvt.debug_message (

398: x_return_status := fnd_api.g_ret_sts_success;
399:
400: ----------------------- validate -----------------------
401: IF G_DEBUG THEN
402: ozf_utility_pvt.debug_message (
403: l_full_name
404: || ': validate'
405: || l_utilization_rec.adjustment_type_id
406: );

Line 421: ozf_utility_pvt.debug_message (

417: CLOSE c_adj_type;
418: END IF;
419:
420: IF G_DEBUG THEN
421: ozf_utility_pvt.debug_message (
422: l_full_name
423: || ': adjustment_type: '
424: || l_utilization_rec.adjustment_type
425: );

Line 454: ozf_utility_pvt.debug_message ( l_full_name

450: THEN
451: */
452: -------------------------- insert --------------------------
453: IF G_DEBUG THEN
454: ozf_utility_pvt.debug_message ( l_full_name
455: || ': insert');
456: END IF;
457:
458: /* IF l_utilization_rec.adjustment_type IN ('DECREASE_EARNED', 'DECREASE_COMM_EARNED') THEN

Line 482: l_utilization_rec.amount := ozf_utility_pvt.currround(l_utilization_rec.amount , l_utilization_rec.currency_code); -- round amount to fix bug 3615680;

478: IF l_utilization_rec.amount = 0 THEN
479: l_utilization_rec.acctd_amount := 0;
480: ELSE
481:
482: l_utilization_rec.amount := ozf_utility_pvt.currround(l_utilization_rec.amount , l_utilization_rec.currency_code); -- round amount to fix bug 3615680;
483: END IF;
484:
485:
486: IF G_DEBUG THEN

Line 487: ozf_utility_pvt.debug_message ( l_api_name

483: END IF;
484:
485:
486: IF G_DEBUG THEN
487: ozf_utility_pvt.debug_message ( l_api_name
488: || ': NP ozf_funds_utilized_pvt create_utilization org_id passed in is'
489: || l_utilization_rec.org_id);
490: END IF;
491: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table

Line 512: ozf_utility_pvt.debug_message('l_org_id '|| l_org_id );

508: l_utilization_rec.org_id := l_org_id;
509: END IF;
510: END IF;
511: IF G_DEBUG THEN
512: ozf_utility_pvt.debug_message('l_org_id '|| l_org_id );
513: ozf_utility_pvt.debug_message('p_utilization_rec.site_use_id '|| p_utilization_rec.site_use_id );
514: END IF;
515:
516:

Line 513: ozf_utility_pvt.debug_message('p_utilization_rec.site_use_id '|| p_utilization_rec.site_use_id );

509: END IF;
510: END IF;
511: IF G_DEBUG THEN
512: ozf_utility_pvt.debug_message('l_org_id '|| l_org_id );
513: ozf_utility_pvt.debug_message('p_utilization_rec.site_use_id '|| p_utilization_rec.site_use_id );
514: END IF;
515:
516:
517: IF p_utilization_rec.site_use_id IS NOT NULL THEN

Line 563: ozf_utility_pvt.get_object_org_ledger(p_object_type => l_utilization_rec.plan_type

559: --fix for bug 6657242
560: END IF;
561: IF l_utilization_rec.org_id IS NULL THEN
562: -- R12 yzhao: org_id is required for ozf_funds_utilized_all. get offer's org_id, otherwise user's default org
563: ozf_utility_pvt.get_object_org_ledger(p_object_type => l_utilization_rec.plan_type
564: , p_object_id => l_utilization_rec.plan_id
565: , x_org_id => l_utilization_rec.org_id
566: , x_ledger_id => l_ledger_id
567: , x_return_status => l_return_status);

Line 584: ozf_utility_pvt.debug_message ( l_api_name

580: p_ledger_name => l_ledger_name
581: );
582: END IF;
583: IF G_DEBUG THEN
584: ozf_utility_pvt.debug_message ( l_api_name
585: || ': create_utilization final org_id = '
586: || l_utilization_rec.org_id
587: || ' ledger_id='
588: || l_ledger_id);

Line 592: ozf_utility_pvt.write_conc_log('NP l_utilization_rec.org_id'||l_utilization_rec.org_id);

588: || l_ledger_id);
589: END IF;
590:
591: --Added for bug 7030415, get the conversion type based on utilizations org_id
592: ozf_utility_pvt.write_conc_log('NP l_utilization_rec.org_id'||l_utilization_rec.org_id);
593:
594: OPEN c_get_conversion_type(l_utilization_rec.org_id);
595: FETCH c_get_conversion_type INTO l_utilization_rec.exchange_rate_type;
596: CLOSE c_get_conversion_type;

Line 598: ozf_utility_pvt.write_conc_log('NP l_utilization_rec.exchange_rate_type'||l_utilization_rec.exchange_rate_type);

594: OPEN c_get_conversion_type(l_utilization_rec.org_id);
595: FETCH c_get_conversion_type INTO l_utilization_rec.exchange_rate_type;
596: CLOSE c_get_conversion_type;
597:
598: ozf_utility_pvt.write_conc_log('NP l_utilization_rec.exchange_rate_type'||l_utilization_rec.exchange_rate_type);
599:
600:
601: -- yzhao: R12 Oct 19 2005 No need to calculate functional currency if it is for marketing use
602: IF l_ledger_id IS NULL THEN

Line 608: ozf_utility_pvt.debug_message ( l_api_name

604: l_utilization_rec.component_type IN ('CAMP', 'CSCH', 'EVEO', 'EVEH') THEN
605: l_utilization_rec.org_id := -3116; -- marketing object is not org aware
606: ELSE
607: IF G_DEBUG THEN
608: ozf_utility_pvt.debug_message ( l_api_name
609: || ': create_utilization ledger not found for '
610: || l_utilization_rec.plan_type
611: || ' id('
612: || l_utilization_rec.plan_id);

Line 630: ozf_utility_pvt.calculate_functional_currency (

626: --of act_budgets recocrd.
627: IF l_utilization_rec.adjustment_desc IN (l_fund_reconc_msg,l_act_bud_cst_msg)
628: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
629: l_utilization_rec.exchange_rate_type := NULL;
630: ozf_utility_pvt.calculate_functional_currency (
631: p_from_amount => l_utilization_rec.amount
632: ,p_conv_date => l_utilization_rec.exchange_rate_date
633: ,p_tc_currency_code => l_utilization_rec.currency_code
634: ,p_ledger_id => l_ledger_id

Line 643: ozf_utility_pvt.calculate_functional_currency (

639: ,x_exchange_rate => l_utilization_rec.exchange_rate
640: ,x_return_status => l_return_status
641: );
642: ELSE
643: ozf_utility_pvt.calculate_functional_currency (
644: p_from_amount => l_utilization_rec.amount
645: ,p_tc_currency_code => l_utilization_rec.currency_code
646: ,p_ledger_id => l_ledger_id
647: ,x_to_amount => l_utilization_rec.acctd_amount

Line 683: ozf_utility_pvt.debug_message('l_utilization_rec.amount '|| l_utilization_rec.amount);

679: AND l_utilization_rec.exchange_rate_date IS NOT NULL
680: AND l_utilization_rec.orig_utilization_id IS NOT NULL THEN
681:
682: IF G_DEBUG THEN
683: ozf_utility_pvt.debug_message('l_utilization_rec.amount '|| l_utilization_rec.amount);
684: END IF;
685:
686: ozf_utility_pvt.convert_currency (
687: p_from_currency=> l_utilization_rec.currency_code

Line 686: ozf_utility_pvt.convert_currency (

682: IF G_DEBUG THEN
683: ozf_utility_pvt.debug_message('l_utilization_rec.amount '|| l_utilization_rec.amount);
684: END IF;
685:
686: ozf_utility_pvt.convert_currency (
687: p_from_currency=> l_utilization_rec.currency_code
688: ,p_to_currency=> l_plan_currency
689: ,p_conv_date=> l_utilization_rec.exchange_rate_date
690: ,p_from_amount=> l_utilization_rec.amount

Line 696: ozf_utility_pvt.debug_message('NP l_plan_curr_amount 1 '||l_plan_curr_amount);

692: ,x_to_amount=> l_plan_curr_amount
693: ,x_rate=> l_rate
694: );
695: IF G_DEBUG THEN
696: ozf_utility_pvt.debug_message('NP l_plan_curr_amount 1 '||l_plan_curr_amount);
697: END IF;
698:
699: OPEN c_plan_curr_amount(l_utilization_rec.orig_utilization_id);
700: FETCH c_plan_curr_amount INTO l_plan_curr_amount,l_plan_curr_amount_remaining;

Line 704: ozf_utility_pvt.debug_message('NP l_plan_curr_amount 2 '||l_plan_curr_amount);

700: FETCH c_plan_curr_amount INTO l_plan_curr_amount,l_plan_curr_amount_remaining;
701: CLOSE c_plan_curr_amount;
702:
703: IF G_DEBUG THEN
704: ozf_utility_pvt.debug_message('NP l_plan_curr_amount 2 '||l_plan_curr_amount);
705: END IF;
706:
707: IF l_plan_curr_amount_remaining < l_plan_curr_amount THEN
708: l_plan_curr_amount := nvl(l_plan_curr_amount_remaining,0);

Line 713: ozf_utility_pvt.debug_message('l_plan_curr_amount 3 '||l_plan_curr_amount);

709: END IF;
710:
711: l_plan_curr_amount := nvl(-l_plan_curr_amount,0);
712: IF G_DEBUG THEN
713: ozf_utility_pvt.debug_message('l_plan_curr_amount 3 '||l_plan_curr_amount);
714: END IF;
715:
716:
717: ELSE

Line 721: ozf_utility_pvt.convert_currency (

717: ELSE
718: -- Skip conversion to avoid rounding of plan currency amounts.
719: IF p_utilization_rec.plan_curr_amount IS NULL
720: OR p_utilization_rec.plan_curr_amount = fnd_api.g_miss_num THEN
721: ozf_utility_pvt.convert_currency (
722: p_from_currency=> l_utilization_rec.currency_code
723: ,p_to_currency=> l_plan_currency
724: ,p_conv_type=> l_utilization_rec.exchange_rate_type
725: ,p_from_amount=> l_utilization_rec.amount

Line 750: ozf_utility_pvt.convert_currency (

746: ELSE
747: --Added for bug 7425189,
748: IF l_utilization_rec.adjustment_desc IN (l_fund_reconc_msg,l_act_bud_cst_msg)
749: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
750: ozf_utility_pvt.convert_currency (
751: p_from_currency=> l_utilization_rec.currency_code
752: ,p_to_currency=> g_universal_currency
753: ,p_conv_date=> l_utilization_rec.exchange_rate_date
754: ,p_from_amount=> l_utilization_rec.amount

Line 760: ozf_utility_pvt.convert_currency (

756: ,x_to_amount=> l_univ_curr_amount
757: ,x_rate=> l_rate
758: );
759: ELSE
760: ozf_utility_pvt.convert_currency (
761: p_from_currency=> l_utilization_rec.currency_code
762: ,p_to_currency=> g_universal_currency
763: ,p_conv_type=> l_utilization_rec.exchange_rate_type
764: ,p_from_amount=> l_utilization_rec.amount

Line 1208: ozf_utility_pvt.write_conc_log('gl posting phase: ' || l_order_gl_phase);

1204:
1205: l_gl_date := NULL;
1206: l_order_gl_phase := NVL(fnd_profile.VALUE ('OZF_ORDER_GLPOST_PHASE'), 'SHIPPED');
1207:
1208: ozf_utility_pvt.write_conc_log('gl posting phase: ' || l_order_gl_phase);
1209:
1210: OPEN c_order_line (l_utilization_rec.order_line_id);
1211: FETCH c_order_line INTO l_line_category_code, l_shipped_quantity, l_flow_status_code,
1212: l_invoice_status_code, l_invoiced_quantity, l_actual_shipment_date;

Line 1219: ozf_utility_pvt.write_conc_log('use actual shipment date for gl date');

1215: IF (l_order_gl_phase = 'SHIPPED' AND l_line_category_code <> 'RETURN' AND
1216: NVL(l_shipped_quantity,0) <> 0 AND l_flow_status_code = 'SHIPPED') THEN
1217:
1218: l_gl_date := l_actual_shipment_date;
1219: ozf_utility_pvt.write_conc_log('use actual shipment date for gl date');
1220: END IF;
1221:
1222: IF l_gl_date IS NULL THEN
1223: IF (l_invoice_status_code = 'YES' OR NVL(l_invoiced_quantity,0) <> 0) THEN

Line 1236: ozf_utility_pvt.write_conc_log('auto-invoice not complete. use sysdate for gl date');

1232: CLOSE c_invoice_date;
1233:
1234: IF l_gl_date IS NULL THEN
1235: l_gl_date := sysdate;
1236: ozf_utility_pvt.write_conc_log('auto-invoice not complete. use sysdate for gl date');
1237: END IF;
1238: END IF;
1239: END IF;
1240:

Line 1243: ozf_utility_pvt.write_conc_log('adjustment will not be posted to gl');

1239: END IF;
1240:
1241: IF l_gl_date IS NULL THEN
1242: l_gl_posted := FALSE;
1243: ozf_utility_pvt.write_conc_log('adjustment will not be posted to gl');
1244: ELSE
1245: l_utilization_rec.gl_date := l_gl_date;
1246: ozf_utility_pvt.write_conc_log('gl date: ' || l_gl_date);
1247: END IF;

Line 1246: ozf_utility_pvt.write_conc_log('gl date: ' || l_gl_date);

1242: l_gl_posted := FALSE;
1243: ozf_utility_pvt.write_conc_log('adjustment will not be posted to gl');
1244: ELSE
1245: l_utilization_rec.gl_date := l_gl_date;
1246: ozf_utility_pvt.write_conc_log('gl date: ' || l_gl_date);
1247: END IF;
1248:
1249: END IF; --IF l_gl_posted AND p_utilization_rec.utilization_type = 'ADJUSTMENT' .....
1250:

Line 1256: l_utilization_rec.amount_remaining := ozf_utility_pvt.currround(l_utilization_rec.amount_remaining

1252: IF NVL(l_utilization_rec.amount_remaining, 0) = 0 THEN
1253: l_utilization_rec.acctd_amount_remaining := l_utilization_rec.amount_remaining;
1254: l_utilization_rec.univ_curr_amount_remaining := l_utilization_rec.amount_remaining;
1255: ELSE
1256: l_utilization_rec.amount_remaining := ozf_utility_pvt.currround(l_utilization_rec.amount_remaining
1257: , l_utilization_rec.currency_code);
1258: l_utilization_rec.acctd_amount_remaining :=
1259: l_utilization_rec.exchange_rate * l_utilization_rec.amount_remaining ;
1260:

Line 1264: ozf_utility_pvt.convert_currency (

1260:
1261: --Added for bug 7425189
1262: IF l_utilization_rec.adjustment_desc IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1263: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
1264: ozf_utility_pvt.convert_currency (
1265: p_from_currency=> l_utilization_rec.currency_code
1266: ,p_to_currency=> l_plan_currency
1267: ,p_conv_date=> l_utilization_rec.exchange_rate_date
1268: ,p_from_amount=> l_utilization_rec.amount_remaining

Line 1286: ozf_utility_pvt.convert_currency (

1282: ELSE
1283:
1284: IF p_utilization_rec.plan_curr_amount_remaining IS NULL
1285: OR p_utilization_rec.plan_curr_amount_remaining = fnd_api.g_miss_num THEN
1286: ozf_utility_pvt.convert_currency (
1287: p_from_currency=> l_utilization_rec.currency_code
1288: ,p_to_currency=> l_plan_currency
1289: ,p_conv_type=> l_utilization_rec.exchange_rate_type
1290: ,p_from_amount=> l_utilization_rec.amount_remaining

Line 1315: ozf_utility_pvt.convert_currency (

1311: ELSE
1312: --Added for bug 7425189,
1313: IF l_utilization_rec.adjustment_desc IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1314: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
1315: ozf_utility_pvt.convert_currency (
1316: p_from_currency=> l_utilization_rec.currency_code
1317: ,p_to_currency=> g_universal_currency
1318: ,p_conv_date=> l_utilization_rec.exchange_rate_date
1319: ,p_from_amount=> l_utilization_rec.amount_remaining

Line 1325: ozf_utility_pvt.convert_currency (

1321: ,x_to_amount=> l_utilization_rec.univ_curr_amount_remaining
1322: ,x_rate=> l_rate
1323: );
1324: ELSE
1325: ozf_utility_pvt.convert_currency (
1326: p_from_currency=> l_utilization_rec.currency_code
1327: ,p_to_currency=> g_universal_currency
1328: ,p_conv_type=> l_utilization_rec.exchange_rate_type
1329: ,p_from_amount=> l_utilization_rec.amount_remaining

Line 1567: ozf_utility_pvt.debug_message ( l_full_name || ': inserted:' || ': Utilization_id: ' || l_utilization_rec.utilization_id || ': amount:' || l_utilization_rec.amount);

1563:
1564: x_utilization_id := l_utilization_rec.utilization_id;
1565:
1566: IF G_DEBUG THEN
1567: ozf_utility_pvt.debug_message ( l_full_name || ': inserted:' || ': Utilization_id: ' || l_utilization_rec.utilization_id || ': amount:' || l_utilization_rec.amount);
1568: END IF;
1569:
1570: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
1571: IF p_utilization_rec.utilization_type NOT IN ('TRANSFER', 'REQUEST') THEN

Line 1602: ozf_utility_pvt.debug_message(l_full_name || ': l_skip_acct_gen_flag: ' || l_skip_acct_gen_flag);

1598:
1599: l_skip_acct_gen_flag := NVL(ozf_fund_utilized_pub.g_skip_acct_gen_flag, 'F');
1600:
1601: IF G_DEBUG THEN
1602: ozf_utility_pvt.debug_message(l_full_name || ': l_skip_acct_gen_flag: ' || l_skip_acct_gen_flag);
1603: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_credit: ' || l_utilization_rec.gl_account_credit);
1604: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_debit: ' || l_utilization_rec.gl_account_debit);
1605: END IF;
1606:

Line 1603: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_credit: ' || l_utilization_rec.gl_account_credit);

1599: l_skip_acct_gen_flag := NVL(ozf_fund_utilized_pub.g_skip_acct_gen_flag, 'F');
1600:
1601: IF G_DEBUG THEN
1602: ozf_utility_pvt.debug_message(l_full_name || ': l_skip_acct_gen_flag: ' || l_skip_acct_gen_flag);
1603: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_credit: ' || l_utilization_rec.gl_account_credit);
1604: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_debit: ' || l_utilization_rec.gl_account_debit);
1605: END IF;
1606:
1607: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0

Line 1604: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_debit: ' || l_utilization_rec.gl_account_debit);

1600:
1601: IF G_DEBUG THEN
1602: ozf_utility_pvt.debug_message(l_full_name || ': l_skip_acct_gen_flag: ' || l_skip_acct_gen_flag);
1603: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_credit: ' || l_utilization_rec.gl_account_credit);
1604: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_debit: ' || l_utilization_rec.gl_account_debit);
1605: END IF;
1606:
1607: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0
1608: ,p_init_msg_list => fnd_api.g_false

Line 1624: ozf_utility_pvt.debug_message ( l_full_name || ': posted GL: ' || l_return_status);

1620: ,x_event_id => x_event_id
1621: );
1622:
1623: IF G_DEBUG THEN
1624: ozf_utility_pvt.debug_message ( l_full_name || ': posted GL: ' || l_return_status);
1625: END IF;
1626:
1627: -- yzhao: 03/27/2003 when gl posting succeeds, set the flag 'Y', otherwise 'F', ignore error and reprocess later
1628: IF l_return_status = fnd_api.g_ret_sts_success THEN

Line 1800: ozf_utility_pvt.debug_message ( l_full_name

1796: ,p_count=> x_msg_count
1797: ,p_data=> x_msg_data
1798: );
1799: IF G_DEBUG THEN
1800: ozf_utility_pvt.debug_message ( l_full_name
1801: || ': end');
1802: END IF;
1803: EXCEPTION
1804: WHEN fnd_api.g_exc_error THEN

Line 1862: ozf_utility_pvt.debug_message ( l_full_name

1858: BEGIN
1859: --------------------- initialize -----------------------
1860: SAVEPOINT delete_utilization;
1861: IF G_DEBUG THEN
1862: ozf_utility_pvt.debug_message ( l_full_name
1863: || ': start');
1864: END IF;
1865:
1866: IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 1878: ozf_utility_pvt.debug_message ( l_full_name

1874: x_return_status := fnd_api.g_ret_sts_success;
1875:
1876: ------------------------ delete ------------------------
1877: IF G_DEBUG THEN
1878: ozf_utility_pvt.debug_message ( l_full_name
1879: || ': delete');
1880: END IF;
1881:
1882: DELETE FROM ozf_funds_utilized_all_b

Line 1919: ozf_utility_pvt.debug_message ( l_full_name

1915: ,p_count=> x_msg_count
1916: ,p_data=> x_msg_data
1917: );
1918: IF G_DEBUG THEN
1919: ozf_utility_pvt.debug_message ( l_full_name
1920: || ': end');
1921: END IF;
1922: EXCEPTION
1923: WHEN fnd_api.g_exc_error THEN

Line 1996: ozf_utility_pvt.debug_message ( l_full_name

1992: FOR UPDATE OF utilization_id NOWAIT;
1993: BEGIN
1994: -------------------- initialize ------------------------
1995: IF G_DEBUG THEN
1996: ozf_utility_pvt.debug_message ( l_full_name
1997: || ': start');
1998: END IF;
1999:
2000: IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 2012: ozf_utility_pvt.debug_message ( l_full_name

2008: x_return_status := fnd_api.g_ret_sts_success;
2009:
2010: ------------------------ lock -------------------------
2011: IF G_DEBUG THEN
2012: ozf_utility_pvt.debug_message ( l_full_name
2013: || ': lock');
2014: END IF;
2015: OPEN c_utilization_b;
2016: FETCH c_utilization_b INTO l_utilization_id;

Line 2040: ozf_utility_pvt.debug_message ( l_full_name

2036: ,p_count=> x_msg_count
2037: ,p_data=> x_msg_data
2038: );
2039: IF G_DEBUG THEN
2040: ozf_utility_pvt.debug_message ( l_full_name
2041: || ': end');
2042: END IF;
2043: EXCEPTION
2044: WHEN ozf_utility_pvt.resource_locked THEN

Line 2044: WHEN ozf_utility_pvt.resource_locked THEN

2040: ozf_utility_pvt.debug_message ( l_full_name
2041: || ': end');
2042: END IF;
2043: EXCEPTION
2044: WHEN ozf_utility_pvt.resource_locked THEN
2045: x_return_status := fnd_api.g_ret_sts_error;
2046:
2047: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2048: fnd_message.set_name ('OZF', 'OZF_API_RESOURCE_LOCKED');

Line 2139: ozf_utility_pvt.debug_message ( l_full_name

2135: BEGIN
2136: -------------------- initialize -------------------------
2137: SAVEPOINT update_utilization;
2138: IF G_DEBUG THEN
2139: ozf_utility_pvt.debug_message ( l_full_name
2140: || ': start');
2141: END IF;
2142:
2143: IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 2155: ozf_utility_pvt.debug_message ( l_full_name

2151: x_return_status := fnd_api.g_ret_sts_success;
2152:
2153: ----------------------- validate ----------------------
2154: IF G_DEBUG THEN
2155: ozf_utility_pvt.debug_message ( l_full_name
2156: || ': validate');
2157: END IF;
2158: -- replace g_miss_char/num/date with current column values
2159: complete_utilization_rec (p_utilization_rec, l_utilization_rec);

Line 2194: ozf_utility_pvt.debug_message ( l_full_name

2190:
2191:
2192: -------------------------- update --------------------
2193: IF G_DEBUG THEN
2194: ozf_utility_pvt.debug_message ( l_full_name
2195: || ': update');
2196: END IF;
2197: l_plan_currency :=
2198: ozf_actbudgets_pvt.get_object_currency (

Line 2205: ozf_utility_pvt.convert_currency (

2201: ,l_return_status
2202: );
2203:
2204: IF NVL (l_utilization_rec.amount, 0) <> 0 THEN
2205: ozf_utility_pvt.convert_currency (
2206: p_from_currency=> l_utilization_rec.currency_code
2207: ,p_to_currency=> l_plan_currency
2208: ,p_from_amount=> l_utilization_rec.amount
2209: ,x_return_status=> l_return_status

Line 2222: ozf_utility_pvt.convert_currency (

2218: END IF;
2219: END IF;
2220:
2221: IF NVL (l_utilization_rec.amount_remaining, 0) <> 0 THEN
2222: ozf_utility_pvt.convert_currency (
2223: p_from_currency=> l_utilization_rec.currency_code
2224: ,p_to_currency=> l_plan_currency
2225: ,p_from_amount=> l_utilization_rec.amount_remaining
2226: ,x_return_status=> l_return_status

Line 2250: ozf_utility_pvt.convert_currency (

2246: ELSE
2247: IF NVL (l_utilization_rec.amount, 0) = 0 THEN
2248: l_univ_curr_amount := 0;
2249: ELSE
2250: ozf_utility_pvt.convert_currency (
2251: p_from_currency=> l_utilization_rec.currency_code
2252: ,p_to_currency=> g_universal_currency
2253: ,p_from_amount=> l_utilization_rec.amount
2254: ,x_return_status=> l_return_status

Line 2268: ozf_utility_pvt.convert_currency (

2264:
2265: IF NVL (l_utilization_rec.amount_remaining, 0) = 0 THEN
2266: l_univ_curr_amount_remaining := 0;
2267: ELSE
2268: ozf_utility_pvt.convert_currency (
2269: p_from_currency=> l_utilization_rec.currency_code
2270: ,p_to_currency=> g_universal_currency
2271: ,p_from_amount=> l_utilization_rec.amount_remaining
2272: ,x_return_status=> l_return_status

Line 2453: ozf_utility_pvt.debug_message ( l_full_name

2449: ,p_count=> x_msg_count
2450: ,p_data=> x_msg_data
2451: );
2452: IF G_DEBUG THEN
2453: ozf_utility_pvt.debug_message ( l_full_name
2454: || ': end');
2455: END IF;
2456: EXCEPTION
2457: WHEN fnd_api.g_exc_error THEN

Line 2516: ozf_utility_pvt.debug_message ( l_full_name

2512: l_return_status VARCHAR2 (1);
2513: BEGIN
2514: ----------------------- initialize --------------------
2515: IF G_DEBUG THEN
2516: ozf_utility_pvt.debug_message ( l_full_name
2517: || ': start');
2518: END IF;
2519:
2520: IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 2532: ozf_utility_pvt.debug_message ( l_full_name

2528: x_return_status := fnd_api.g_ret_sts_success;
2529:
2530: ---------------------- validate ------------------------
2531: IF G_DEBUG THEN
2532: ozf_utility_pvt.debug_message ( l_full_name
2533: || ': check items');
2534: END IF;
2535:
2536: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN

Line 2551: ozf_utility_pvt.debug_message ( l_full_name

2547: END IF;
2548: END IF;
2549:
2550: IF G_DEBUG THEN
2551: ozf_utility_pvt.debug_message ( l_full_name
2552: || ': check record');
2553: END IF;
2554:
2555: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN

Line 2577: ozf_utility_pvt.debug_message ( l_full_name

2573: ,p_count=> x_msg_count
2574: ,p_data=> x_msg_data
2575: );
2576: IF G_DEBUG THEN
2577: ozf_utility_pvt.debug_message ( l_full_name
2578: || ': end');
2579: END IF;
2580: EXCEPTION
2581: WHEN fnd_api.g_exc_error THEN

Line 2701: IF ozf_utility_pvt.check_uniqueness (

2697: -- For Create_Utilization, when utilization_id is passed in, we need to
2698: -- check if this utilization_id is unique.
2699: IF p_validation_mode = jtf_plsql_api.g_create
2700: AND p_utilization_rec.utilization_id IS NOT NULL THEN
2701: IF ozf_utility_pvt.check_uniqueness (
2702: 'ozf_funds_UTILIZED_all_b'
2703: , 'utilization_id = '
2704: || p_utilization_rec.utilization_id
2705: ) = fnd_api.g_false THEN

Line 2740: IF ozf_utility_pvt.check_fk_exists (

2736:
2737:
2738: ----------------------- fund_id ------------------------
2739: IF p_utilization_rec.fund_id <> fnd_api.g_miss_num THEN
2740: IF ozf_utility_pvt.check_fk_exists (
2741: 'ozf_funds_all_b'
2742: , -- Parent schema object having the primary key
2743: 'fund_id'
2744: , -- Column name in the parent object that maps to the fk value

Line 2759: IF ozf_utility_pvt.check_fk_exists (

2755: END IF;
2756:
2757: ----------------------- adjustment_id ------------------------
2758: IF p_utilization_rec.adjustment_type_id <> fnd_api.g_miss_num THEN
2759: IF ozf_utility_pvt.check_fk_exists (
2760: 'ozf_claim_types_all_b'
2761: , -- Parent schema object having the primary key
2762: 'claim_type_id'
2763: , -- Column name in the parent object that maps to the fk value

Line 2802: IF ozf_utility_pvt.check_lookup_exists (

2798: IF p_utilization_rec.utilization_type <> fnd_api.g_miss_char THEN
2799: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
2800: AND p_utilization_rec.utilization_type NOT IN ('TRANSFER', 'REQUEST') THEN
2801: */
2802: IF ozf_utility_pvt.check_lookup_exists (
2803: p_lookup_table_name=> 'OZF_LOOKUPS'
2804: ,p_lookup_type=> 'OZF_UTILIZATION_TYPE'
2805: ,p_lookup_code=> p_utilization_rec.utilization_type
2806: ) = fnd_api.g_false THEN

Line 2819: IF ozf_utility_pvt.check_lookup_exists (

2815: END IF;
2816:
2817: --------------------02/08/2001 mpande added----------------
2818: IF p_utilization_rec.adjustment_type <> fnd_api.g_miss_char THEN
2819: IF ozf_utility_pvt.check_lookup_exists (
2820: p_lookup_table_name=> 'OZF_LOOKUPS'
2821: ,p_lookup_type=> 'OZF_ADJUSTMENT_TYPE'
2822: ,p_lookup_code=> p_utilization_rec.adjustment_type
2823: ) = fnd_api.g_false THEN

Line 2981: ozf_utility_pvt.debug_message (

2977: BEGIN
2978: -- if no offer id then chekc against the activity
2979:
2980: IF G_DEBUG THEN
2981: ozf_utility_pvt.debug_message (
2982: ': check record'
2983: || p_cust_account_id
2984: || '-'
2985: || p_amount

Line 2993: -- ozf_utility_pvt.debug_message(': check record1' || p_component_id ||'-'|| p_amount||p_fund_id||p_activity_id||p_activity_type);

2989: );
2990: END IF;
2991:
2992: -- IF p_component_id IS NULL THEN
2993: -- ozf_utility_pvt.debug_message(': check record1' || p_component_id ||'-'|| p_amount||p_fund_id||p_activity_id||p_activity_type);
2994: IF p_activity_type <> 'OFFR' THEN
2995: l_recal_flag := 'N' ;
2996: ELSE
2997: l_recal_flag := NVL(fnd_profile.value('OZF_BUDGET_ADJ_ALLOW_RECAL'),'N');

Line 3012: ozf_utility_pvt.debug_message (

3008: END IF;
3009:
3010: CLOSE c_transfer_allowed;
3011: IF G_DEBUG THEN
3012: ozf_utility_pvt.debug_message (
3013: ': check record2'
3014: || p_cust_account_id
3015: || '-'
3016: || p_amount

Line 3024: ozf_utility_pvt.debug_message ( ': check record'

3020: );
3021: END IF;
3022: IF NVL (p_amount, 0) > NVL (l_amount, 0) THEN
3023: IF G_DEBUG THEN
3024: ozf_utility_pvt.debug_message ( ': check record'
3025: || l_amount
3026: || p_amount);
3027: END IF;
3028: RETURN fnd_api.g_false;

Line 3088: ozf_utility_pvt.debug_message ( ': check record'

3084: BEGIN
3085: -- if no offer id then chekc against the activity
3086:
3087: IF G_DEBUG THEN
3088: ozf_utility_pvt.debug_message ( ': check record'
3089: || p_cust_account_id
3090: || p_amount);
3091: END IF;
3092:

Line 3118: ozf_utility_pvt.debug_message ( ': check record'

3114: */
3115: -- if offer id present then check against the amount
3116: IF ABS(NVL (p_amount, 0)) > NVL (l_amount, 0) THEN
3117: IF G_DEBUG THEN
3118: ozf_utility_pvt.debug_message ( ': check record'
3119: || l_amount
3120: || p_amount);
3121: END IF;
3122: RETURN fnd_api.g_false;

Line 3158: ozf_utility_pvt.debug_message ( ': check record'

3154:
3155: -- check against the amount
3156: IF l_status <> 'ACTIVE' THEN
3157: IF G_DEBUG THEN
3158: ozf_utility_pvt.debug_message ( ': check record'
3159: || l_status);
3160: END IF;
3161: RETURN fnd_api.g_false;
3162: END IF;

Line 3881: ozf_utility_pvt.debug_message ( l_full_name

3877: BEGIN
3878: --------------------- initialize -----------------------
3879: SAVEPOINT create_act_utilization;
3880: IF G_DEBUG THEN
3881: ozf_utility_pvt.debug_message ( l_full_name
3882: || ': start');
3883: END IF;
3884:
3885: IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 3910: ozf_utility_pvt.convert_currency (

3906: --Added for bug 7030415
3907: OPEN c_get_conversion_type(l_act_util_rec.org_id);
3908: FETCH c_get_conversion_type INTO l_exchange_rate_type;
3909: CLOSE c_get_conversion_type;
3910: ozf_utility_pvt.convert_currency (
3911: x_return_status=> l_return_status
3912: ,p_from_currency=> l_act_budgets_rec.parent_src_curr
3913: ,p_to_currency=> l_act_budgets_rec.request_currency
3914: ,p_conv_type=>l_exchange_rate_type --Added for bug 7030415

Line 3948: ozf_utility_pvt.error_message('OZF_FUND_NO_SCAN_DATA_TYPE');

3944: --for scan data offer, activity_product_id, scan_unit,scan_unit_remaining are required.
3945: IF l_offer_type = 'SCAN_DATA' THEN
3946: --check if scan_type_id is null;
3947: IF l_act_util_rec.scan_type_id is null THEN
3948: ozf_utility_pvt.error_message('OZF_FUND_NO_SCAN_DATA_TYPE');
3949: END IF;
3950:
3951: IF l_act_util_rec.product_id is null THEN
3952: ozf_utility_pvt.error_message('OZF_FUND_NO_PROD_ID');

Line 3952: ozf_utility_pvt.error_message('OZF_FUND_NO_PROD_ID');

3948: ozf_utility_pvt.error_message('OZF_FUND_NO_SCAN_DATA_TYPE');
3949: END IF;
3950:
3951: IF l_act_util_rec.product_id is null THEN
3952: ozf_utility_pvt.error_message('OZF_FUND_NO_PROD_ID');
3953: END IF;
3954:
3955: OPEN c_off_products(l_act_budgets_rec.budget_source_id,l_act_util_rec.product_level_type,
3956: l_act_util_rec.product_id,l_act_util_rec.scan_type_id);

Line 3960: ozf_utility_pvt.error_message('OZF_FUND_ACT_PROD_ID_NOT_FOUND');

3956: l_act_util_rec.product_id,l_act_util_rec.scan_type_id);
3957:
3958: FETCH c_off_products INTO l_activity_product_id,l_scan_value;
3959: IF c_off_products%NOTFOUND THEN
3960: ozf_utility_pvt.error_message('OZF_FUND_ACT_PROD_ID_NOT_FOUND');
3961: END IF;
3962:
3963: CLOSE c_off_products;
3964:

Line 4007: ozf_utility_pvt.debug_message ( l_full_name

4003: ,p_count=> x_msg_count
4004: ,p_data=> x_msg_data
4005: );
4006: IF G_DEBUG THEN
4007: ozf_utility_pvt.debug_message ( l_full_name
4008: || ': end');
4009: END IF;
4010:
4011: EXCEPTION