[Home] [Help]
60: -- fill in amount 2 from amount 1
61: IF p_currency_1 = p_currency_2 THEN
62: x_amount_2 := p_amount_1;
63: ELSE
64: ozf_utility_pvt.convert_currency (
65: x_return_status=> l_return_status
66: ,p_from_currency=> p_currency_1
67: ,p_to_currency=> p_currency_2
68: ,p_conv_date=> p_conv_date --bug 8532055
81: -- fill in amount in universal currency from amount 1
82: IF g_universal_currency = p_currency_1 THEN
83: x_amount_3 := p_amount_1;
84: ELSE
85: ozf_utility_pvt.convert_currency (
86: x_return_status=> l_return_status
87: ,p_from_currency=> p_currency_1
88: ,p_to_currency=> g_universal_currency
89: ,p_conv_date=> p_conv_date --bug 8532055
102: -- fill in amount 1 from amount 2
103: IF p_currency_1 = p_currency_2 THEN
104: x_amount_1 := p_amount_2;
105: ELSE
106: ozf_utility_pvt.convert_currency (
107: x_return_status=> l_return_status
108: ,p_from_currency=> p_currency_2
109: ,p_to_currency=> p_currency_1
110: ,p_conv_date=> p_conv_date --bug 8532055
122: -- fill in amount in universal currency from amount 2
123: IF g_universal_currency = p_currency_2 THEN
124: x_amount_3 := p_amount_2;
125: ELSE
126: ozf_utility_pvt.convert_currency (
127: x_return_status=> l_return_status
128: ,p_from_currency=> p_currency_2
129: ,p_to_currency=> g_universal_currency
130: ,p_conv_date=> p_conv_date --bug 8532055
198:
199: BEGIN
200:
201: IF (OZF_DEBUG_HIGH_ON) THEN
202: ozf_utility_pvt.Debug_Message(l_full_name||': start');
203: END IF;
204:
205: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
206: Fnd_Msg_Pub.Initialize;
394: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
397: IF (OZF_DEBUG_HIGH_ON) THEN
398: ozf_utility_pvt.debug_message(l_full_name ||': insert');
399: END IF;
400:
401: IF l_objfundsum_rec.objfundsum_id IS NULL THEN
402: LOOP
532: p_encoded => Fnd_Api.G_FALSE
533: );
534:
535: IF (OZF_DEBUG_HIGH_ON) THEN
536: ozf_utility_pvt.debug_message(l_full_name ||': end Success');
537: END IF;
538:
539: EXCEPTION
540: WHEN Fnd_Api.G_EXC_ERROR THEN
600:
601: BEGIN
602:
603: IF (OZF_DEBUG_HIGH_ON) THEN
604: ozf_utility_pvt.debug_message('Now updating objfundsum_id: '||p_objfundsum_rec.objfundsum_id);
605: END IF;
606:
607: SAVEPOINT sp_Update_objfundsum;
608:
606:
607: SAVEPOINT sp_Update_objfundsum;
608:
609: IF (OZF_DEBUG_HIGH_ON) THEN
610: ozf_utility_pvt.debug_message(l_full_name||': start');
611: END IF;
612:
613: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
614: Fnd_Msg_Pub.Initialize;
624:
625: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
626:
627: IF (OZF_DEBUG_HIGH_ON) THEN
628: ozf_utility_pvt.debug_message(l_full_name ||': validate');
629: END IF;
630:
631: -- replace g_miss_char/num/date with current column values
632: Complete_objfundsum_Rec(p_objfundsum_rec, l_objfundsum_rec);
811: END IF;
812:
813:
814: IF (OZF_DEBUG_HIGH_ON) THEN
815: ozf_utility_pvt.debug_message(l_full_name ||': update object fund summary Table');
816: END IF;
817:
818: UPDATE ozf_object_fund_summary
819: SET object_version_number= object_version_number + 1,
879: p_encoded => Fnd_Api.G_FALSE
880: );
881:
882: IF (OZF_DEBUG_HIGH_ON) THEN
883: ozf_utility_pvt.debug_message(l_full_name ||': end');
884: END IF;
885:
886:
887: EXCEPTION
1170: l_return_status VARCHAR2(1);
1171:
1172: BEGIN
1173: IF (OZF_DEBUG_HIGH_ON) THEN
1174: ozf_utility_pvt.debug_message(l_full_name||': start');
1175: END IF;
1176:
1177: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
1178: Fnd_Msg_Pub.Initialize;
1188:
1189: x_return_status := NULL;
1190:
1191: IF (OZF_DEBUG_HIGH_ON) THEN
1192: ozf_utility_pvt.debug_message(l_full_name||': Validation');
1193: END IF;
1194:
1195: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
1196: -- fund_id is required
1253: RAISE Fnd_Api.G_EXC_ERROR;
1254: END IF;
1255:
1256: -- object_type should be valid code in lookup type OZF_FUND_TYPE
1257: IF ozf_utility_pvt.check_lookup_exists (
1258: p_lookup_type=> 'OZF_FUND_SOURCE'
1259: ,p_lookup_code=> p_objfundsum_rec.object_type
1260: ) = fnd_api.g_false THEN
1261: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1265: RAISE Fnd_Api.G_EXC_ERROR;
1266: END IF;
1267:
1268: -- fund_id should be valid in ozf_funds_all_b
1269: IF ozf_utility_pvt.check_fk_exists (
1270: p_table_name=> 'OZF_FUNDS_ALL_B'
1271: ,p_pk_name=> 'FUND_ID'
1272: ,p_pk_value=> p_objfundsum_rec.fund_id
1273: ) = fnd_api.g_false THEN
1299: l_table_name := 'QP_LIST_HEADERS';
1300: l_pk_name := 'LIST_HEADER_ID';
1301: END IF;
1302: l_pk_value := p_objfundsum_rec.object_id;
1303: IF ozf_utility_pvt.check_fk_exists (
1304: p_table_name=> l_table_name
1305: ,p_pk_name=> l_pk_name
1306: ,p_pk_value=> l_pk_value
1307: ) = fnd_api.g_false THEN
1322: p_encoded => Fnd_Api.G_FALSE
1323: );
1324:
1325: IF (OZF_DEBUG_HIGH_ON) THEN
1326: ozf_utility_pvt.debug_message(l_full_name ||': end');
1327: END IF;
1328:
1329: EXCEPTION
1330: WHEN Fnd_Api.G_EXC_ERROR THEN