[Home] [Help]
76:
77: -- initialize message list if p_init_msg_list is set to true.
78: IF fnd_api.to_boolean( p_init_msg_list )
79: THEN
80: fnd_msg_pub.initialize;
81: END IF;
82:
83: -- initialize api return status to success
84: x_return_status := fnd_api.g_ret_sts_success;
109:
110: IF p_instance_id IS NULL
111: THEN
112: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
113: fnd_msg_pub.add;
114: x_return_status := fnd_api.g_ret_sts_error;
115: RAISE fnd_api.g_exc_error;
116: END IF;
117:
233: EXCEPTION
234: WHEN fnd_api.g_exc_unexpected_error THEN
235: --ROLLBACK TO get_cylic_relationships_pvt;
236: x_return_status := fnd_api.g_ret_sts_unexp_error ;
237: fnd_msg_pub.count_AND_get
238: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
239: p_count => x_msg_count ,
240: p_data => x_msg_data);
241:
241:
242: WHEN OTHERS THEN
243: --ROLLBACK TO get_cylic_relationships_pvt;
244: x_return_status := fnd_api.g_ret_sts_unexp_error ;
245: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
246: THEN
247: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
248: END IF;
249: fnd_msg_pub.count_AND_get
243: --ROLLBACK TO get_cylic_relationships_pvt;
244: x_return_status := fnd_api.g_ret_sts_unexp_error ;
245: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
246: THEN
247: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
248: END IF;
249: fnd_msg_pub.count_AND_get
250: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
251: p_count => x_msg_count ,
245: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
246: THEN
247: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
248: END IF;
249: fnd_msg_pub.count_AND_get
250: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
251: p_count => x_msg_count ,
252: p_data => x_msg_data);
253: END get_cyclic_relationships;
1834: l_subject_id IS NULL AND
1835: l_relationship_id IS NULL AND
1836: l_rel_type_code IS NULL THEN
1837: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
1838: fnd_msg_pub.add;
1839: x_return_status := fnd_api.g_ret_sts_error;
1840: RAISE fnd_api.g_exc_error;
1841: END IF;
1842: --
2010: EXCEPTION
2011: WHEN fnd_api.g_exc_error THEN
2012: -- ROLLBACK TO Get_Children;
2013: x_return_status := fnd_api.g_ret_sts_error ;
2014: fnd_msg_pub.count_AND_get
2015: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
2016: p_count => x_msg_count ,
2017: p_data => x_msg_data
2018: );
2019:
2020: WHEN fnd_api.g_exc_unexpected_error THEN
2021: -- ROLLBACK TO Get_Children;
2022: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2023: fnd_msg_pub.count_AND_get
2024: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
2025: p_count => x_msg_count ,
2026: p_data => x_msg_data
2027: );
2028:
2029: WHEN OTHERS THEN
2030: -- ROLLBACK TO Get_Children;
2031: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2032: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2033: fnd_msg_pub.add_exc_msg('csi_relationships_pvt' ,l_api_name);
2034: END IF;
2035: fnd_msg_pub.count_AND_get
2036: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
2029: WHEN OTHERS THEN
2030: -- ROLLBACK TO Get_Children;
2031: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2032: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2033: fnd_msg_pub.add_exc_msg('csi_relationships_pvt' ,l_api_name);
2034: END IF;
2035: fnd_msg_pub.count_AND_get
2036: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
2037: p_count => x_msg_count ,
2031: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2032: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2033: fnd_msg_pub.add_exc_msg('csi_relationships_pvt' ,l_api_name);
2034: END IF;
2035: fnd_msg_pub.count_AND_get
2036: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
2037: p_count => x_msg_count ,
2038: p_data => x_msg_data
2039: );
2232:
2233: -- initialize message list if p_init_msg_list is set to true.
2234: IF fnd_api.to_boolean( p_init_msg_list )
2235: THEN
2236: fnd_msg_pub.initialize;
2237: END IF;
2238:
2239:
2240:
2275: AND ((p_relationship_query_rec.subject_id IS NULL) OR (p_relationship_query_rec.subject_id = fnd_api.g_miss_num))
2276: )
2277: THEN
2278: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
2279: fnd_msg_pub.add;
2280: x_return_status := fnd_api.g_ret_sts_error;
2281: RAISE fnd_api.g_exc_error;
2282: END IF;
2283:
2291: AND (p_relationship_query_rec.object_id IS NOT NULL
2292: AND p_relationship_query_rec.object_id <> fnd_api.g_miss_num)))
2293: THEN
2294: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
2295: fnd_msg_pub.add;
2296: x_return_status := fnd_api.g_ret_sts_error;
2297: RAISE fnd_api.g_exc_error;
2298: ELSIF ((p_relationship_query_rec.subject_id IS NOT NULL
2299: AND p_relationship_query_rec.subject_id <> fnd_api.g_miss_num))
2354: THEN
2355: csi_gen_utility_pvt.put_line('Warning! History for this entity has already been purged for the datetime stamp passed. ' ||
2356: 'Please provide a valid datetime stamp.');
2357: FND_MESSAGE.Set_Name('CSI', 'CSI_API_HIST_AFTER_PURGE_REQ');
2358: FND_MSG_PUB.ADD;
2359: ELSE
2360: get_history( p_rel_rec => l_rel_rec
2361: ,p_new_rec => l_new_rec
2362: ,p_flag => l_flag
2446: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2447: l_msg_index := 1;
2448: l_msg_count := x_msg_count;
2449: WHILE l_msg_count > 0 LOOP
2450: x_msg_data := FND_MSG_PUB.GET
2451: ( l_msg_index,
2452: FND_API.G_FALSE );
2453: csi_gen_utility_pvt.put_line( ' Error from Get_Item_Instance_Details.. ');
2454: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2515: THEN
2516: IF( (p_relationship_query_rec.relationship_type_code IS NULL) OR (p_relationship_query_rec.relationship_type_code = fnd_api.g_miss_char) )
2517: THEN
2518: fnd_message.set_name('CSI','CSI_NO_RELCODE_PASSED');
2519: fnd_msg_pub.add;
2520: RAISE fnd_api.g_exc_error;
2521: END IF;
2522: END IF;
2523: END IF;
2556: l_msg_index := 1;
2557: l_msg_count := x_msg_count;
2558: WHILE l_msg_count > 0
2559: LOOP
2560: x_msg_data := FND_MSG_PUB.GET
2561: ( l_msg_index,
2562: FND_API.G_FALSE );
2563: csi_gen_utility_pvt.put_line( ' Error from Get_Chidren.. ');
2564: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2599: THEN
2600: csi_gen_utility_pvt.put_line('Warning! History for this entity has already been purged for the datetime stamp passed. ' ||
2601: 'Please provide a valid datetime stamp.');
2602: FND_MESSAGE.Set_Name('CSI', 'CSI_API_HIST_AFTER_PURGE_REQ');
2603: FND_MSG_PUB.ADD;
2604: ELSE
2605: get_history( p_rel_rec => l_rel_tbl(p_time_csr)
2606: ,p_new_rec => l_new_rec
2607: ,p_flag => l_flag
2665: l_msg_index := 1;
2666: l_msg_count := x_msg_count;
2667: WHILE l_msg_count > 0
2668: LOOP
2669: x_msg_data := FND_MSG_PUB.GET
2670: ( l_msg_index,
2671: FND_API.G_FALSE );
2672: csi_gen_utility_pvt.put_line( ' Error from recursive Get_relationships.. ');
2673: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2797: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2798: l_msg_index := 1;
2799: l_msg_count := x_msg_count;
2800: WHILE l_msg_count > 0 LOOP
2801: x_msg_data := FND_MSG_PUB.GET
2802: ( l_msg_index,
2803: FND_API.G_FALSE );
2804: csi_gen_utility_pvt.put_line( ' Error from Get_Item_Instance_Details.. ');
2805: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3037: --
3038: -- end of API body
3039: --
3040: -- standard call to get message count and if count is 1, get message info.
3041: fnd_msg_pub.count_AND_get
3042: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
3043: p_count => x_msg_count,
3044: p_data => x_msg_data
3045: );
3046: EXCEPTION
3047: WHEN fnd_api.g_exc_error THEN
3048: -- ROLLBACK TO get_relationships_pvt;
3049: x_return_status := fnd_api.g_ret_sts_error ;
3050: fnd_msg_pub.count_AND_get
3051: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
3052: p_count => x_msg_count ,
3053: p_data => x_msg_data
3054: );
3055:
3056: WHEN fnd_api.g_exc_unexpected_error THEN
3057: -- ROLLBACK TO get_relationships_pvt;
3058: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3059: fnd_msg_pub.count_AND_get
3060: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
3061: p_count => x_msg_count ,
3062: p_data => x_msg_data
3063: );
3064:
3065: WHEN OTHERS THEN
3066: -- ROLLBACK TO get_relationships_pvt;
3067: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3068: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3069: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
3070: END IF;
3071: fnd_msg_pub.count_AND_get
3072: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
3065: WHEN OTHERS THEN
3066: -- ROLLBACK TO get_relationships_pvt;
3067: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3068: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3069: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
3070: END IF;
3071: fnd_msg_pub.count_AND_get
3072: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
3073: p_count => x_msg_count ,
3067: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3068: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3069: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
3070: END IF;
3071: fnd_msg_pub.count_AND_get
3072: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
3073: p_count => x_msg_count ,
3074: p_data => x_msg_data
3075: );
3122: IF l_configurator_id is not null
3123: THEN
3124: fnd_message.set_name('CSI','CSI_CONFIG_SET');
3125: fnd_message.set_token('relationship_id',p_relationship_id);
3126: fnd_msg_pub.add;
3127: RETURN TRUE;
3128: ELSE
3129: RETURN FALSE;
3130: END IF;
3167: fnd_message.set_name('CSI','CSI_RELATIONSHIP_EXISTS');
3168: fnd_message.set_token('relationship_type',l_relship_type_code);
3169: fnd_message.set_token('subject_id',p_subject_id);
3170: fnd_message.set_token('object_id',p_object_id);
3171: fnd_msg_pub.add;
3172: RETURN FALSE;
3173: ELSE
3174: RETURN TRUE;
3175: END IF;
3192: fnd_message.set_name('CSI','CSI_RELATIONSHIP_EXISTS');
3193: fnd_message.set_token('relationship_type',l_relship_type_code);
3194: fnd_message.set_token('subject_id',p_subject_id);
3195: fnd_message.set_token('object_id',p_object_id);
3196: fnd_msg_pub.add;
3197: RETURN FALSE;
3198: ELSE
3199: RETURN TRUE;
3200: END IF;
3318:
3319: fnd_message.set_name('CSI','CSI_SUB_RELCODE_EXIST');
3320: fnd_message.set_token('relationship_type_code',l_relship_type_code);
3321: fnd_message.set_token('SUBJECT_ID',p_subject_id);
3322: fnd_msg_pub.add;
3323: RETURN FALSE;
3324: END IF;
3325: EXCEPTION
3326: WHEN NO_DATA_FOUND THEN
3346:
3347: fnd_message.set_name('CSI','CSI_SUB_RELCODE_EXIST');
3348: fnd_message.set_token('relationship_type_code',l_relship_type_code);
3349: fnd_message.set_token('SUBJECT_ID',p_subject_id);
3350: fnd_msg_pub.add;
3351: RETURN FALSE;
3352: END IF;
3353: EXCEPTION
3354: WHEN NO_DATA_FOUND THEN
3419: IF ( (l_object_id<>p_object_id) OR (l_relship_type_code<>p_relship_type_code) ) THEN
3420: fnd_message.set_name('CSI','CSI_CANNOT_UPDATE');
3421: fnd_message.set_token('object_id',p_object_id);
3422: fnd_message.set_token('relationship_type_code',p_relship_type_code);
3423: fnd_msg_pub.add;
3424: RETURN FALSE;
3425: ELSE
3426: RETURN TRUE;
3427: END IF;
3468: p_subject_id = FND_API.G_MISS_NUM OR
3469: p_object_id IS NULL OR
3470: p_object_id = FND_API.G_MISS_NUM THEN
3471: fnd_message.set_name('CSI', 'CSI_PARENT_CHILD_INVALID');
3472: fnd_msg_pub.add;
3473: x_return_status := fnd_api.g_ret_sts_error;
3474: RETURN;
3475: END IF;
3476: --
3496: l_rel_tbl.count > 0 THEN
3497: FOR j in l_rel_tbl.FIRST .. l_rel_tbl.LAST LOOP
3498: IF l_rel_tbl(j).subject_id = p_object_id THEN
3499: fnd_message.set_name('CSI','CSI_CHILD_PARENT_REL_LOOP');
3500: fnd_msg_pub.add;
3501: x_return_status := fnd_api.g_ret_sts_error;
3502: exit;
3503: END IF;
3504: END LOOP;
3504: END LOOP;
3505: END IF;
3506: ELSE
3507: fnd_message.set_name('CSI', 'CSI_PARENT_CHILD_INVALID');
3508: fnd_msg_pub.add;
3509: x_return_status := fnd_api.g_ret_sts_error;
3510: END IF;
3511: END check_for_object;
3512:
3592: l_full_dump := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
3593: --
3594: IF l_full_dump IS NULL THEN
3595: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
3596: FND_MSG_PUB.ADD;
3597: RAISE FND_API.G_EXC_ERROR;
3598: END IF;
3599: --
3600: IF p_flag = 'EXPIRE' THEN
4570:
4571: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
4572: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
4573: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
4574: fnd_msg_pub.add;
4575: RAISE fnd_api.g_exc_error;
4576: END IF;
4577:
4578: EXCEPTION
4660:
4661: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
4662: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
4663: fnd_message.set_token('instance_id',l_instance_rec1.instance_id);
4664: fnd_msg_pub.add;
4665: RAISE fnd_api.g_exc_error;
4666: END IF;
4667:
4668: END IF;
4789: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
4790: THEN
4791: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
4792: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
4793: fnd_msg_pub.add;
4794: RAISE fnd_api.g_exc_error;
4795: END IF;
4796: END IF;
4797: END IF;
4859:
4860: -- initialize message list if p_init_msg_list is set to true.
4861: IF fnd_api.to_boolean( p_init_msg_list )
4862: THEN
4863: fnd_msg_pub.initialize;
4864: END IF;
4865:
4866: -- initialize api return status to success
4867: x_return_status := fnd_api.g_ret_sts_success;
4908: -- check for infinite loop; Added for bug 10081206
4909: IF (p_relationship_tbl(l_count).subject_id = p_relationship_tbl(l_count).object_id) THEN
4910: FND_MESSAGE.SET_NAME('CSI','CSI_RELATIONSHIP_LOOP');
4911: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).object_id);
4912: FND_MSG_PUB.ADD;
4913: RAISE fnd_api.g_exc_error;
4914: END IF;
4915:
4916: IF ( (p_relationship_tbl(l_count).mandatory_flag IS NULL) OR
4928: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
4929: THEN
4930: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
4931: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).object_id);
4932: FND_MSG_PUB.ADD;
4933: RAISE FND_API.G_EXC_ERROR;
4934: END IF;
4935: END IF;
4936: END IF;
4943: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
4944: THEN
4945: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
4946: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).subject_id);
4947: FND_MSG_PUB.ADD;
4948: RAISE FND_API.G_EXC_ERROR;
4949: END IF;
4950: END IF;
4951: END IF;
5004: ,p_relationship_id => NULL )
5005: THEN
5006: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
5007: fnd_message.set_token('INSTANCE_ID',p_relationship_tbl(l_count).object_id);
5008: fnd_msg_pub.add;
5009: RAISE fnd_api.g_exc_error;
5010: END IF;
5011: END IF;
5012:
5018: ,p_relationship_id => NULL )
5019: THEN
5020: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
5021: fnd_message.set_token('INSTANCE_ID',p_relationship_tbl(l_count).subject_id);
5022: fnd_msg_pub.add;
5023: RAISE fnd_api.g_exc_error;
5024: END IF;
5025: END IF;
5026: -- End of att enhancements by sguthiva
5052: l_msg_index := 1;
5053: l_msg_count := x_msg_count;
5054: WHILE l_msg_count > 0
5055: LOOP
5056: x_msg_data := FND_MSG_PUB.GET
5057: ( l_msg_index,
5058: FND_API.G_FALSE );
5059: csi_gen_utility_pvt.put_line( ' Error from CSI_II_RELATIONSHIPS_PVT.CREATE_RELATIONSHIP');
5060: csi_gen_utility_pvt.put_line( ' Call to update_instance has errored ....');
5125:
5126: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5127: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_TXN');
5128: fnd_message.set_token('transaction_id',p_txn_rec.transaction_id );
5129: fnd_msg_pub.add;
5130: RAISE fnd_api.g_exc_error;
5131: ROLLBACK TO create_relationship_pvt;
5132: END IF;
5133:
5270: csi_gen_utility_pvt.put_line( 'Error from create relationship API.');
5271: csi_gen_utility_pvt.put_line( 'Call to update_item_instance API for cascade ownership has errored');
5272: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
5273: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
5274: fnd_msg_pub.add;
5275: RAISE fnd_api.g_exc_error;
5276: END IF;
5277: END IF;
5278:
5292: COMMIT WORK;
5293: END IF;
5294:
5295: -- standard call to get message count and if count is 1, get message info.
5296: fnd_msg_pub.count_AND_get
5297: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
5298: p_count => x_msg_count,
5299: p_data => x_msg_data
5300: );
5302: EXCEPTION
5303: WHEN fnd_api.g_exc_error THEN
5304: ROLLBACK TO create_relationship_pvt;
5305: x_return_status := fnd_api.g_ret_sts_error ;
5306: fnd_msg_pub.count_AND_get
5307: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
5308: p_count => x_msg_count ,
5309: p_data => x_msg_data
5310: );
5311:
5312: WHEN fnd_api.g_exc_unexpected_error THEN
5313: ROLLBACK TO create_relationship_pvt;
5314: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5315: fnd_msg_pub.count_AND_get
5316: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
5317: p_count => x_msg_count ,
5318: p_data => x_msg_data
5319: );
5320:
5321: WHEN OTHERS THEN
5322: ROLLBACK TO create_relationship_pvt;
5323: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5324: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5325: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
5326: END IF;
5327: fnd_msg_pub.count_AND_get
5328: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
5321: WHEN OTHERS THEN
5322: ROLLBACK TO create_relationship_pvt;
5323: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5324: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5325: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
5326: END IF;
5327: fnd_msg_pub.count_AND_get
5328: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
5329: p_count => x_msg_count ,
5323: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5324: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5325: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
5326: END IF;
5327: fnd_msg_pub.count_AND_get
5328: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
5329: p_count => x_msg_count ,
5330: p_data => x_msg_data
5331: );
5449:
5450: -- initialize message list IF p_init_msg_list IS set TO true.
5451: IF fnd_api.to_boolean( p_init_msg_list )
5452: THEN
5453: fnd_msg_pub.initialize;
5454: END IF;
5455:
5456:
5457: -- initialize api return status to success
5506: p_object_id => p_relationship_tbl(l_count).object_id,
5507: p_subject_id => p_relationship_tbl(l_count).subject_id )
5508: THEN
5509: fnd_message.set_name('CSI','CSI_API_INVALID_PARAMETERS');
5510: fnd_msg_pub.add;
5511: RAISE fnd_api.g_exc_error;
5512: END IF;
5513:
5514: --Added for MACD lock functionality
5521: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
5522: THEN
5523: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
5524: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).object_id);
5525: FND_MSG_PUB.ADD;
5526: RAISE FND_API.G_EXC_ERROR;
5527: END IF;
5528: END IF;
5529: END IF;
5536: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
5537: THEN
5538: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
5539: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).subject_id);
5540: FND_MSG_PUB.ADD;
5541: RAISE FND_API.G_EXC_ERROR;
5542: END IF;
5543: END IF;
5544: ELSE
5554: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
5555: THEN
5556: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
5557: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_subject_lock);
5558: FND_MSG_PUB.ADD;
5559: RAISE FND_API.G_EXC_ERROR;
5560: END IF;
5561: END IF;
5562: EXCEPTION
5572: FETCH relship_csr INTO l_relship_csr;
5573: IF ( (l_relship_csr.object_version_number<>p_relationship_tbl(l_count).object_version_number)
5574: AND (p_relationship_tbl(l_count).object_version_number <> fnd_api.g_miss_num) ) THEN
5575: fnd_message.set_name('CSI', 'CSI_RECORD_CHANGED');
5576: fnd_msg_pub.add;
5577: RAISE fnd_api.g_exc_error;
5578: END IF;
5579: CLOSE relship_csr;
5580:
5633: and ((active_end_date is null) or (active_end_date > sysdate))
5634: and relationship_id <> p_relationship_tbl(l_count).relationship_id;
5635: --
5636: fnd_message.set_name('CSI','CSI_CHILD_PARENT_REL_LOOP');
5637: fnd_msg_pub.add;
5638: x_return_status := fnd_api.g_ret_sts_error;
5639: RAISE fnd_api.g_exc_error;
5640: Exception
5641: when no_data_found then
5687: ,p_relationship_id => p_relationship_tbl(l_count).relationship_id )
5688: THEN
5689: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
5690: fnd_message.set_token('INSTANCE_ID',l_obj_id);
5691: fnd_msg_pub.add;
5692: RAISE fnd_api.g_exc_error;
5693: END IF;
5694: END IF;
5695: --
5701: ,p_relationship_id => p_relationship_tbl(l_count).relationship_id )
5702: THEN
5703: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
5704: fnd_message.set_token('INSTANCE_ID',l_sub_id);
5705: fnd_msg_pub.add;
5706: RAISE fnd_api.g_exc_error;
5707: END IF;
5708: END IF;
5709: -- End of att enhancements by sguthiva
5842: l_msg_index := 1;
5843: l_msg_count := x_msg_count;
5844: WHILE l_msg_count > 0
5845: LOOP
5846: x_msg_data := FND_MSG_PUB.GET
5847: ( l_msg_index,
5848: FND_API.G_FALSE );
5849: csi_gen_utility_pvt.put_line( ' Error from CSI_II_RELATIONSHIPS_PVT.UPDATE_RELATIONSHIP');
5850: csi_gen_utility_pvt.put_line( ' Call to update_instance has errored ....');
5955:
5956: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5957: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_TXN');
5958: fnd_message.set_token('transaction_id',p_txn_rec.transaction_id );
5959: fnd_msg_pub.add;
5960: RAISE fnd_api.g_exc_error;
5961: ROLLBACK TO create_relationship_pvt;
5962: END IF;
5963: --
6029:
6030: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6031: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
6032: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
6033: fnd_msg_pub.add;
6034: RAISE fnd_api.g_exc_error;
6035: END IF;
6036: END IF;
6037: --
6146: csi_gen_utility_pvt.put_line( 'Error from update relationship API.');
6147: csi_gen_utility_pvt.put_line( 'Call to update_item_instance API for cascade ownership has errored');
6148: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
6149: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
6150: fnd_msg_pub.add;
6151: RAISE fnd_api.g_exc_error;
6152: END IF;
6153: END IF;
6154:
6173:
6174:
6175:
6176: -- standard call to get message count and if count is 1, get message info.
6177: fnd_msg_pub.count_AND_get
6178: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6179: p_count => x_msg_count,
6180: p_data => x_msg_data
6181: );
6183: EXCEPTION
6184: WHEN fnd_api.g_exc_error THEN
6185: ROLLBACK TO update_relationship_pvt;
6186: x_return_status := fnd_api.g_ret_sts_error ;
6187: fnd_msg_pub.count_AND_get
6188: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6189: p_count => x_msg_count ,
6190: p_data => x_msg_data
6191: );
6192:
6193: WHEN fnd_api.g_exc_unexpected_error THEN
6194: ROLLBACK TO update_relationship_pvt;
6195: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6196: fnd_msg_pub.count_AND_get
6197: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6198: p_count => x_msg_count ,
6199: p_data => x_msg_data
6200: );
6201:
6202: WHEN OTHERS THEN
6203: ROLLBACK TO update_relationship_pvt;
6204: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6205: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6206: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6207: END IF;
6208: fnd_msg_pub.count_AND_get
6209: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6202: WHEN OTHERS THEN
6203: ROLLBACK TO update_relationship_pvt;
6204: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6205: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6206: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6207: END IF;
6208: fnd_msg_pub.count_AND_get
6209: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6210: p_count => x_msg_count ,
6204: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6205: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6206: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6207: END IF;
6208: fnd_msg_pub.count_AND_get
6209: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6210: p_count => x_msg_count ,
6211: p_data => x_msg_data
6212: );
6304:
6305: -- initialize message list if p_init_msg_list is set to true.
6306: IF fnd_api.to_boolean( p_init_msg_list )
6307: THEN
6308: fnd_msg_pub.initialize;
6309: END IF;
6310:
6311: -- initialize api return status to success
6312: x_return_status := fnd_api.g_ret_sts_success;
6338: FETCH relship_csr INTO l_relship_csr;
6339: IF ( (l_relship_csr.object_version_number<>p_relationship_rec.object_version_number)
6340: AND (p_relationship_rec.object_version_number <> fnd_api.g_miss_num) ) THEN
6341: fnd_message.set_name('CSI', 'CSI_RECORD_CHANGED');
6342: fnd_msg_pub.add;
6343: RAISE fnd_api.g_exc_error;
6344: END IF;
6345: CLOSE relship_csr;
6346:
6460: IF p_txn_rec.transaction_type_id NOT IN (53,54)
6461: THEN
6462: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
6463: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_relship_csr.object_id);
6464: FND_MSG_PUB.ADD;
6465: RAISE FND_API.G_EXC_ERROR;
6466: END IF;
6467: END IF;
6468: END IF;
6492: IF (l_is_locked)
6493: THEN
6494: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
6495: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_relship_csr.subject_id);
6496: FND_MSG_PUB.ADD;
6497: RAISE FND_API.G_EXC_ERROR;
6498: END IF;
6499: END IF;
6500: -- End addition for MACD lock functionality
6550:
6551: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6552: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_TXN');
6553: fnd_message.set_token('transaction_id',p_txn_rec.transaction_id );
6554: fnd_msg_pub.add;
6555: RAISE fnd_api.g_exc_error;
6556: ROLLBACK TO create_relationship_pvt;
6557: END IF;
6558:
6603:
6604: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6605: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
6606: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
6607: fnd_msg_pub.add;
6608: RAISE fnd_api.g_exc_error;
6609: END IF;
6610: END IF;
6611:
6660: COMMIT WORK;
6661: END IF;
6662:
6663: -- standard call to get message count and if count is 1, get message info.
6664: fnd_msg_pub.count_AND_get
6665: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6666: p_count => x_msg_count,
6667: p_data => x_msg_data
6668: );
6670: EXCEPTION
6671: WHEN fnd_api.g_exc_error THEN
6672: ROLLBACK TO expire_relationship_pvt;
6673: x_return_status := fnd_api.g_ret_sts_error ;
6674: fnd_msg_pub.count_AND_get
6675: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6676: p_count => x_msg_count ,
6677: p_data => x_msg_data
6678: );
6679:
6680: WHEN fnd_api.g_exc_unexpected_error THEN
6681: ROLLBACK TO expire_relationship_pvt;
6682: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6683: fnd_msg_pub.count_AND_get
6684: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6685: p_count => x_msg_count ,
6686: p_data => x_msg_data
6687: );
6688:
6689: WHEN OTHERS THEN
6690: ROLLBACK TO expire_relationship_pvt;
6691: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6692: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6693: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6694: END IF;
6695: fnd_msg_pub.count_AND_get
6696: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6689: WHEN OTHERS THEN
6690: ROLLBACK TO expire_relationship_pvt;
6691: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6692: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6693: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6694: END IF;
6695: fnd_msg_pub.count_AND_get
6696: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6697: p_count => x_msg_count ,
6691: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6692: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6693: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6694: END IF;
6695: fnd_msg_pub.count_AND_get
6696: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6697: p_count => x_msg_count ,
6698: p_data => x_msg_data
6699: );
6714:
6715: -- initialize message list IF p_init_msg_list IS set TO true.
6716: IF fnd_api.to_boolean( p_init_msg_list )
6717: THEN
6718: fnd_msg_pub.initialize;
6719: END IF;
6720:
6721:
6722: -- initialize api return status to success
6733: WHERE relationship_id=p_relationship_id
6734: AND ROWNUM=1;
6735: fnd_message.set_name('CSI','CSI_INVALID_RELSHIPID');
6736: fnd_message.set_token('relationship_id',p_relationship_id);
6737: fnd_msg_pub.add;
6738: x_return_status := fnd_api.g_ret_sts_error;
6739: EXCEPTION
6740: WHEN NO_DATA_FOUND THEN
6741: x_return_status := fnd_api.g_ret_sts_success;
6762: -- END IF;
6763: EXCEPTION
6764: WHEN NO_DATA_FOUND THEN
6765: fnd_message.set_name('CSI', 'CSI_INVALID_RELSHIPID');
6766: fnd_msg_pub.add;
6767: x_return_status := fnd_api.g_ret_sts_error;
6768: END;
6769: ELSE
6770: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_ID_PASSED');
6767: x_return_status := fnd_api.g_ret_sts_error;
6768: END;
6769: ELSE
6770: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_ID_PASSED');
6771: fnd_msg_pub.add;
6772: x_return_status := fnd_api.g_ret_sts_error;
6773: END IF;
6774: END IF;
6775:
6775:
6776:
6777:
6778: -- standard call to get message count and if count is 1, get message info.
6779: fnd_msg_pub.count_AND_get
6780: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6781: p_count => x_msg_count,
6782: p_data => x_msg_data
6783: );
6798: BEGIN
6799: -- initialize message list if p_init_msg_list is set to true.
6800: IF fnd_api.to_boolean( p_init_msg_list )
6801: THEN
6802: fnd_msg_pub.initialize;
6803: END IF;
6804:
6805: -- initialize api return status to success
6806: x_return_status := fnd_api.g_ret_sts_success;
6820: EXCEPTION
6821: WHEN NO_DATA_FOUND THEN
6822: fnd_message.set_name('CSI', 'CSI_INVALID_RELSHIP_CODE');
6823: fnd_message.set_token('relationship_type_code',p_relationship_type_code);
6824: fnd_msg_pub.add;
6825: x_return_status := fnd_api.g_ret_sts_error;
6826: END;
6827: ELSE
6828: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_CODE');
6826: END;
6827: ELSE
6828: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_CODE');
6829: --fnd_message.set_token('relationship_type_code',p_relationship_type_code);
6830: fnd_msg_pub.add;
6831: x_return_status := fnd_api.g_ret_sts_error;
6832:
6833: END IF;
6834: ELSIF(p_validation_mode ='UPDATE')
6845: EXCEPTION
6846: WHEN NO_DATA_FOUND THEN
6847: fnd_message.set_name('CSI', 'CSI_INVALID_RELSHIP_CODE');
6848: fnd_message.set_token('relationship_type_code',p_relationship_type_code);
6849: fnd_msg_pub.add;
6850: x_return_status := fnd_api.g_ret_sts_error;
6851: END;
6852: ELSIF p_relationship_type_code IS NULL -- Added for bug 2151750
6853: THEN
6851: END;
6852: ELSIF p_relationship_type_code IS NULL -- Added for bug 2151750
6853: THEN
6854: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_CODE');
6855: fnd_msg_pub.add;
6856: x_return_status := fnd_api.g_ret_sts_error;
6857: END IF;
6858: END IF;
6859: -- standard call to get message count and if count is 1, get message info.
6856: x_return_status := fnd_api.g_ret_sts_error;
6857: END IF;
6858: END IF;
6859: -- standard call to get message count and if count is 1, get message info.
6860: fnd_msg_pub.count_AND_get
6861: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
6862: p_count => x_msg_count,
6863: p_data => x_msg_data
6864: );
6892:
6893: -- initialize message list if p_init_msg_list is set to true.
6894: IF fnd_api.to_boolean( p_init_msg_list )
6895: THEN
6896: fnd_msg_pub.initialize;
6897: END IF;
6898:
6899:
6900: -- initialize api return status to success
6914: EXCEPTION
6915: WHEN NO_DATA_FOUND THEN
6916: fnd_message.set_name('CSI', 'CSI_EXPIRED_OBJECT');
6917: fnd_message.set_token('object_id',p_object_id);
6918: fnd_msg_pub.add;
6919: x_return_status := fnd_api.g_ret_sts_error;
6920: RAISE fnd_api.g_exc_error;
6921: END;
6922: -- End of addition for bug 2416144.
6938: IF l_quantity IS NOT NULL THEN
6939: IF l_quantity<>1 THEN
6940: fnd_message.set_name('CSI', 'CSI_QTY_NOTEQUAL_TO_ONE');
6941: fnd_message.set_token('object_id',p_object_id);
6942: fnd_msg_pub.add;
6943: x_return_status := fnd_api.g_ret_sts_error;
6944: END IF;
6945: END IF;
6946: /* commented by sk for bug 2151750
6947: IF l_location_type_code IS NOT NULL THEN
6948: IF UPPER(l_location_type_code) = 'INVENTORY' THEN
6949: fnd_message.set_name('CSI', 'CSI_INVALID_LOCATION_TYPE');
6950: fnd_message.set_token('object_id',p_object_id);
6951: fnd_msg_pub.add;
6952: x_return_status := fnd_api.g_ret_sts_error;
6953: END IF;
6954: END IF;
6955: */
6993: NULL;
6994: ELSE
6995: fnd_message.set_name('CSI', 'CSI_NON_ATO_PTO_ITEM');
6996: fnd_message.set_token('object_id',p_object_id);
6997: fnd_msg_pub.add;
6998: x_return_status := fnd_api.g_ret_sts_error;
6999: END IF;
7000:
7001: EXCEPTION
7005: EXCEPTION
7006: WHEN NO_DATA_FOUND THEN
7007: fnd_message.set_name('CSI', 'CSI_INVALID_OBJECT_ID');
7008: fnd_message.set_token('object_id',p_object_id);
7009: fnd_msg_pub.add;
7010: x_return_status := fnd_api.g_ret_sts_error;
7011: END;
7012: ELSE
7013: fnd_message.set_name('CSI', 'CSI_NO_OBJ_ID_PASSED');
7010: x_return_status := fnd_api.g_ret_sts_error;
7011: END;
7012: ELSE
7013: fnd_message.set_name('CSI', 'CSI_NO_OBJ_ID_PASSED');
7014: fnd_msg_pub.add;
7015: x_return_status := fnd_api.g_ret_sts_error;
7016: END IF;
7017:
7018: ELSIF(p_validation_mode ='UPDATE')
7036: IF l_quantity IS NOT NULL THEN
7037: IF l_quantity<>1 THEN
7038: fnd_message.set_name('CSI', 'CSI_QTY_NOTEQUAL_TO_ONE');
7039: fnd_message.set_token('object_id',p_object_id);
7040: fnd_msg_pub.add;
7041: x_return_status := fnd_api.g_ret_sts_error;
7042: END IF;
7043: END IF;
7044: /* commented by sk for bug 2151750
7045: IF l_location_type_code IS NOT NULL THEN
7046: IF UPPER(l_location_type_code) = 'INVENTORY' THEN
7047: fnd_message.set_name('CSI', 'CSI_INVALID_LOCATION_TYPE');
7048: fnd_message.set_token('object_id',p_object_id);
7049: fnd_msg_pub.add;
7050: x_return_status := fnd_api.g_ret_sts_error;
7051: END IF;
7052: END IF;
7053: */
7091: NULL;
7092: ELSE
7093: fnd_message.set_name('CSI', 'CSI_NON_ATO_PTO_ITEM');
7094: fnd_message.set_token('object_id',p_object_id);
7095: fnd_msg_pub.add;
7096: x_return_status := fnd_api.g_ret_sts_error;
7097: END IF;
7098:
7099: EXCEPTION
7104: EXCEPTION
7105: WHEN NO_DATA_FOUND THEN
7106: fnd_message.set_name('CSI', 'CSI_INVALID_OBJECT_ID');
7107: fnd_message.set_token('object_id',p_object_id);
7108: fnd_msg_pub.add;
7109: x_return_status := fnd_api.g_ret_sts_error;
7110: END;
7111: END IF;
7112: END IF;
7111: END IF;
7112: END IF;
7113:
7114: -- standard call to get message count and if count is 1, get message info.
7115: fnd_msg_pub.count_and_get
7116: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7117: p_count => x_msg_count,
7118: p_data => x_msg_data
7119: );
7139:
7140: -- initialize message list if p_init_msg_list is set to true.
7141: IF fnd_api.to_boolean( p_init_msg_list )
7142: THEN
7143: fnd_msg_pub.initialize;
7144: END IF;
7145:
7146:
7147: -- initialize API RETURN status TO success
7160: EXCEPTION
7161: WHEN NO_DATA_FOUND THEN
7162: fnd_message.set_name('CSI', 'CSI_EXPIRED_SUBJECT');
7163: fnd_message.set_token('subject_id',p_subject_id);
7164: fnd_msg_pub.add;
7165: x_return_status := fnd_api.g_ret_sts_error;
7166: RAISE fnd_api.g_exc_error;
7167: END;
7168: END IF;
7176: IF l_location_type_code IS NOT NULL THEN
7177: IF UPPER(l_location_type_code) = 'INVENTORY' THEN
7178: fnd_message.set_name('CSI', 'CSI_INVALID_LOCATION_TYPE');
7179: fnd_message.set_token('subject_id',p_subject_id);
7180: fnd_msg_pub.add;
7181: x_return_status := fnd_api.g_ret_sts_error;
7182: END IF;
7183: END IF;
7184: */
7185: EXCEPTION
7186: WHEN NO_DATA_FOUND THEN
7187: fnd_message.set_name('CSI', 'CSI_INVALID_SUBJECT_ID');
7188: fnd_message.set_token('subject_id',p_subject_id);
7189: fnd_msg_pub.add;
7190: x_return_status := fnd_api.g_ret_sts_error;
7191: END;
7192: END IF;
7193: -- standard call to get message count and if count is 1, get message info.
7190: x_return_status := fnd_api.g_ret_sts_error;
7191: END;
7192: END IF;
7193: -- standard call to get message count and if count is 1, get message info.
7194: fnd_msg_pub.count_AND_get
7195: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7196: p_count => x_msg_count,
7197: p_data => x_msg_data
7198: );
7211: BEGIN
7212: -- initialize message list if p_init_msg_list is set to true.
7213: IF fnd_api.to_boolean( p_init_msg_list )
7214: THEN
7215: fnd_msg_pub.initialize;
7216: END IF;
7217:
7218:
7219: -- initialize api return status to success
7221: IF(p_validation_mode ='CREATE') THEN
7222: IF ((p_active_end_date IS NOT NULL) AND (p_active_end_date <> fnd_api.g_miss_date)) THEN
7223: fnd_message.set_name('CSI', 'CSI_ACTIVE_END_DATE');
7224: fnd_message.set_token('ACTIVE_END_DATE',p_active_end_date);
7225: fnd_msg_pub.add;
7226: x_return_status := fnd_api.g_ret_sts_error;
7227: END IF;
7228: END IF;
7229: -- standard call to get message count and if count is 1, get message info.
7226: x_return_status := fnd_api.g_ret_sts_error;
7227: END IF;
7228: END IF;
7229: -- standard call to get message count and if count is 1, get message info.
7230: fnd_msg_pub.count_AND_get
7231: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7232: p_count => x_msg_count,
7233: p_data => x_msg_data
7234: );
7250:
7251: -- initialize message list if p_init_msg_list is set to true.
7252: IF fnd_api.to_boolean( p_init_msg_list )
7253: THEN
7254: fnd_msg_pub.initialize;
7255: END IF;
7256:
7257:
7258: -- initialize api return status to success
7263:
7264: IF( (p_validation_mode = 'UPDATE') OR (p_validation_mode = 'EXPIRE') ) THEN
7265: IF ( (p_object_version_number IS NULL) OR (p_object_version_number = fnd_api.g_miss_num) ) THEN
7266: fnd_message.set_name('CSI', 'CSI_MISSING_OBJ_VER_NUM');
7267: fnd_msg_pub.add;
7268: x_return_status := fnd_api.g_ret_sts_error;
7269: ELSE
7270: x_return_status := fnd_api.g_ret_sts_success;
7271: END IF;
7271: END IF;
7272: END IF;
7273:
7274: -- standard call to get message count and if count is 1, get message info.
7275: fnd_msg_pub.count_and_get
7276: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7277: p_count => x_msg_count,
7278: p_data => x_msg_data
7279: );
7536: END IF;
7537:
7538: -- Initialize message list if p_init_msg_list is set to TRUE.
7539: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7540: FND_MSG_PUB.initialize;
7541: END IF;
7542:
7543: -- Initialize API return status to success
7544: x_return_status := FND_API.G_RET_STS_SUCCESS;
7685: -- End disable trace
7686: ****/
7687:
7688: -- Standard call to get message count and if count is get message info.
7689: FND_MSG_PUB.Count_And_Get
7690: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7691: p_count => x_msg_count ,
7692: p_data => x_msg_data );
7693:
7695:
7696: WHEN FND_API.G_EXC_ERROR THEN
7697: -- ROLLBACK TO get_inst_relationship_hist;
7698: x_return_status := FND_API.G_RET_STS_ERROR ;
7699: FND_MSG_PUB.Count_And_Get
7700: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7701: p_count => x_msg_count,
7702: p_data => x_msg_data );
7703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7702: p_data => x_msg_data );
7703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7704: -- ROLLBACK TO get_inst_relationship_hist;
7705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7706: FND_MSG_PUB.Count_And_Get
7707: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7708: p_count => x_msg_count,
7709: p_data => x_msg_data );
7710: WHEN OTHERS THEN
7709: p_data => x_msg_data );
7710: WHEN OTHERS THEN
7711: -- ROLLBACK TO get_inst_relationship_hist;
7712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7714: FND_MSG_PUB.Add_Exc_Msg
7715: ( g_pkg_name ,
7716: l_api_name );
7717: END IF;
7710: WHEN OTHERS THEN
7711: -- ROLLBACK TO get_inst_relationship_hist;
7712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7714: FND_MSG_PUB.Add_Exc_Msg
7715: ( g_pkg_name ,
7716: l_api_name );
7717: END IF;
7718: FND_MSG_PUB.Count_And_Get
7714: FND_MSG_PUB.Add_Exc_Msg
7715: ( g_pkg_name ,
7716: l_api_name );
7717: END IF;
7718: FND_MSG_PUB.Count_And_Get
7719: ( p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7720: p_count => x_msg_count,
7721: p_data => x_msg_data );
7722:
7789: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7790: l_msg_index := 1;
7791: l_msg_count := x_msg_count;
7792: WHILE l_msg_count > 0 LOOP
7793: x_msg_data := FND_MSG_PUB.GET
7794: ( l_msg_index,
7795: FND_API.G_FALSE );
7796: csi_gen_utility_pvt.put_line( ' Error from Get_cyclic_relationships.. ');
7797: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7931: WHEN COMP_ERROR THEN
7932: null;
7933: WHEN FND_API.G_EXC_ERROR THEN
7934: x_return_status := fnd_api.g_ret_sts_error ;
7935: fnd_msg_pub.count_AND_get
7936: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7937: p_count => x_msg_count ,
7938: p_data => x_msg_data
7939: );
7939: );
7940:
7941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7942: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7943: fnd_msg_pub.count_AND_get
7944: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7945: p_count => x_msg_count ,
7946: p_data => x_msg_data
7947: );
7947: );
7948:
7949: WHEN OTHERS THEN
7950: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7951: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7952: fnd_msg_pub.add_exc_msg(g_pkg_name,l_api_name);
7953: END IF;
7954: fnd_msg_pub.count_AND_get
7955: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7948:
7949: WHEN OTHERS THEN
7950: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7951: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7952: fnd_msg_pub.add_exc_msg(g_pkg_name,l_api_name);
7953: END IF;
7954: fnd_msg_pub.count_AND_get
7955: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7956: p_count => x_msg_count ,
7950: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7951: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7952: fnd_msg_pub.add_exc_msg(g_pkg_name,l_api_name);
7953: END IF;
7954: fnd_msg_pub.count_AND_get
7955: (p_encoded => FND_API.G_FALSE, --Added for bug 10081206
7956: p_count => x_msg_count ,
7957: p_data => x_msg_data
7958: );