[Home] [Help]
59: -- fill in amount 2 from amount 1
60: IF p_currency_1 = p_currency_2 THEN
61: x_amount_2 := p_amount_1;
62: ELSE
63: ozf_utility_pvt.convert_currency (
64: x_return_status=> l_return_status
65: ,p_from_currency=> p_currency_1
66: ,p_to_currency=> p_currency_2
67: ,p_from_amount=> p_amount_1
79: -- fill in amount in universal currency from amount 1
80: IF g_universal_currency = p_currency_1 THEN
81: x_amount_3 := p_amount_1;
82: ELSE
83: ozf_utility_pvt.convert_currency (
84: x_return_status=> l_return_status
85: ,p_from_currency=> p_currency_1
86: ,p_to_currency=> g_universal_currency
87: ,p_from_amount=> p_amount_1
99: -- fill in amount 1 from amount 2
100: IF p_currency_1 = p_currency_2 THEN
101: x_amount_1 := p_amount_2;
102: ELSE
103: ozf_utility_pvt.convert_currency (
104: x_return_status=> l_return_status
105: ,p_from_currency=> p_currency_2
106: ,p_to_currency=> p_currency_1
107: ,p_from_amount=> p_amount_2
118: -- fill in amount in universal currency from amount 2
119: IF g_universal_currency = p_currency_2 THEN
120: x_amount_3 := p_amount_2;
121: ELSE
122: ozf_utility_pvt.convert_currency (
123: x_return_status=> l_return_status
124: ,p_from_currency=> p_currency_2
125: ,p_to_currency=> g_universal_currency
126: ,p_from_amount=> p_amount_2
192:
193: BEGIN
194:
195: IF (OZF_DEBUG_HIGH_ON) THEN
196: ozf_utility_pvt.Debug_Message(l_full_name||': start');
197: END IF;
198:
199: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
200: Fnd_Msg_Pub.Initialize;
382: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
385: IF (OZF_DEBUG_HIGH_ON) THEN
386: ozf_utility_pvt.debug_message(l_full_name ||': insert');
387: END IF;
388:
389: IF l_objfundsum_rec.objfundsum_id IS NULL THEN
390: LOOP
520: p_encoded => Fnd_Api.G_FALSE
521: );
522:
523: IF (OZF_DEBUG_HIGH_ON) THEN
524: ozf_utility_pvt.debug_message(l_full_name ||': end Success');
525: END IF;
526:
527: EXCEPTION
528: WHEN Fnd_Api.G_EXC_ERROR THEN
587:
588: BEGIN
589:
590: IF (OZF_DEBUG_HIGH_ON) THEN
591: ozf_utility_pvt.debug_message('Now updating objfundsum_id: '||p_objfundsum_rec.objfundsum_id);
592: END IF;
593:
594: SAVEPOINT sp_Update_objfundsum;
595:
593:
594: SAVEPOINT sp_Update_objfundsum;
595:
596: IF (OZF_DEBUG_HIGH_ON) THEN
597: ozf_utility_pvt.debug_message(l_full_name||': start');
598: END IF;
599:
600: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
601: Fnd_Msg_Pub.Initialize;
611:
612: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
613:
614: IF (OZF_DEBUG_HIGH_ON) THEN
615: ozf_utility_pvt.debug_message(l_full_name ||': validate');
616: END IF;
617:
618: -- replace g_miss_char/num/date with current column values
619: Complete_objfundsum_Rec(p_objfundsum_rec, l_objfundsum_rec);
774: END IF;
775:
776:
777: IF (OZF_DEBUG_HIGH_ON) THEN
778: ozf_utility_pvt.debug_message(l_full_name ||': update object fund summary Table');
779: END IF;
780:
781: UPDATE ozf_object_fund_summary
782: SET object_version_number= object_version_number + 1,
842: p_encoded => Fnd_Api.G_FALSE
843: );
844:
845: IF (OZF_DEBUG_HIGH_ON) THEN
846: ozf_utility_pvt.debug_message(l_full_name ||': end');
847: END IF;
848:
849:
850: EXCEPTION
1133: l_return_status VARCHAR2(1);
1134:
1135: BEGIN
1136: IF (OZF_DEBUG_HIGH_ON) THEN
1137: ozf_utility_pvt.debug_message(l_full_name||': start');
1138: END IF;
1139:
1140: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
1141: Fnd_Msg_Pub.Initialize;
1151:
1152: x_return_status := NULL;
1153:
1154: IF (OZF_DEBUG_HIGH_ON) THEN
1155: ozf_utility_pvt.debug_message(l_full_name||': Validation');
1156: END IF;
1157:
1158: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
1159: -- fund_id is required
1216: RAISE Fnd_Api.G_EXC_ERROR;
1217: END IF;
1218:
1219: -- object_type should be valid code in lookup type OZF_FUND_TYPE
1220: IF ozf_utility_pvt.check_lookup_exists (
1221: p_lookup_type=> 'OZF_FUND_SOURCE'
1222: ,p_lookup_code=> p_objfundsum_rec.object_type
1223: ) = fnd_api.g_false THEN
1224: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1228: RAISE Fnd_Api.G_EXC_ERROR;
1229: END IF;
1230:
1231: -- fund_id should be valid in ozf_funds_all_b
1232: IF ozf_utility_pvt.check_fk_exists (
1233: p_table_name=> 'OZF_FUNDS_ALL_B'
1234: ,p_pk_name=> 'FUND_ID'
1235: ,p_pk_value=> p_objfundsum_rec.fund_id
1236: ) = fnd_api.g_false THEN
1262: l_table_name := 'QP_LIST_HEADERS';
1263: l_pk_name := 'LIST_HEADER_ID';
1264: END IF;
1265: l_pk_value := p_objfundsum_rec.object_id;
1266: IF ozf_utility_pvt.check_fk_exists (
1267: p_table_name=> l_table_name
1268: ,p_pk_name=> l_pk_name
1269: ,p_pk_value=> l_pk_value
1270: ) = fnd_api.g_false THEN
1285: p_encoded => Fnd_Api.G_FALSE
1286: );
1287:
1288: IF (OZF_DEBUG_HIGH_ON) THEN
1289: ozf_utility_pvt.debug_message(l_full_name ||': end');
1290: END IF;
1291:
1292: EXCEPTION
1293: WHEN Fnd_Api.G_EXC_ERROR THEN