[Home] [Help]
71:
72: -- initialize message list if p_init_msg_list is set to true.
73: IF fnd_api.to_boolean( p_init_msg_list )
74: THEN
75: fnd_msg_pub.initialize;
76: END IF;
77:
78: -- initialize api return status to success
79: x_return_status := fnd_api.g_ret_sts_success;
104:
105: IF p_instance_id IS NULL
106: THEN
107: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
108: fnd_msg_pub.add;
109: x_return_status := fnd_api.g_ret_sts_error;
110: RAISE fnd_api.g_exc_error;
111: END IF;
112:
228: EXCEPTION
229: WHEN fnd_api.g_exc_unexpected_error THEN
230: --ROLLBACK TO get_cylic_relationships_pvt;
231: x_return_status := fnd_api.g_ret_sts_unexp_error ;
232: fnd_msg_pub.count_AND_get
233: (p_count => x_msg_count ,
234: p_data => x_msg_data);
235:
236: WHEN OTHERS THEN
235:
236: WHEN OTHERS THEN
237: --ROLLBACK TO get_cylic_relationships_pvt;
238: x_return_status := fnd_api.g_ret_sts_unexp_error ;
239: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
240: THEN
241: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
242: END IF;
243: fnd_msg_pub.count_AND_get
237: --ROLLBACK TO get_cylic_relationships_pvt;
238: x_return_status := fnd_api.g_ret_sts_unexp_error ;
239: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
240: THEN
241: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
242: END IF;
243: fnd_msg_pub.count_AND_get
244: (p_count => x_msg_count ,
245: p_data => x_msg_data);
239: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
240: THEN
241: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
242: END IF;
243: fnd_msg_pub.count_AND_get
244: (p_count => x_msg_count ,
245: p_data => x_msg_data);
246: END get_cyclic_relationships;
247:
1753: l_subject_id IS NULL AND
1754: l_relationship_id IS NULL AND
1755: l_rel_type_code IS NULL THEN
1756: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
1757: fnd_msg_pub.add;
1758: x_return_status := fnd_api.g_ret_sts_error;
1759: RAISE fnd_api.g_exc_error;
1760: END IF;
1761: --
1888: EXCEPTION
1889: WHEN fnd_api.g_exc_error THEN
1890: -- ROLLBACK TO Get_Children;
1891: x_return_status := fnd_api.g_ret_sts_error ;
1892: fnd_msg_pub.count_AND_get
1893: (p_count => x_msg_count ,
1894: p_data => x_msg_data
1895: );
1896:
1896:
1897: WHEN fnd_api.g_exc_unexpected_error THEN
1898: -- ROLLBACK TO Get_Children;
1899: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1900: fnd_msg_pub.count_AND_get
1901: (p_count => x_msg_count ,
1902: p_data => x_msg_data
1903: );
1904:
1904:
1905: WHEN OTHERS THEN
1906: -- ROLLBACK TO Get_Children;
1907: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1908: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1909: fnd_msg_pub.add_exc_msg('csi_relationships_pvt' ,l_api_name);
1910: END IF;
1911: fnd_msg_pub.count_AND_get
1912: (p_count => x_msg_count ,
1905: WHEN OTHERS THEN
1906: -- ROLLBACK TO Get_Children;
1907: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1908: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1909: fnd_msg_pub.add_exc_msg('csi_relationships_pvt' ,l_api_name);
1910: END IF;
1911: fnd_msg_pub.count_AND_get
1912: (p_count => x_msg_count ,
1913: p_data => x_msg_data
1907: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1908: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1909: fnd_msg_pub.add_exc_msg('csi_relationships_pvt' ,l_api_name);
1910: END IF;
1911: fnd_msg_pub.count_AND_get
1912: (p_count => x_msg_count ,
1913: p_data => x_msg_data
1914: );
1915: END Get_Children;
2107:
2108: -- initialize message list if p_init_msg_list is set to true.
2109: IF fnd_api.to_boolean( p_init_msg_list )
2110: THEN
2111: fnd_msg_pub.initialize;
2112: END IF;
2113:
2114:
2115:
2150: AND ((p_relationship_query_rec.subject_id IS NULL) OR (p_relationship_query_rec.subject_id = fnd_api.g_miss_num))
2151: )
2152: THEN
2153: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
2154: fnd_msg_pub.add;
2155: x_return_status := fnd_api.g_ret_sts_error;
2156: RAISE fnd_api.g_exc_error;
2157: END IF;
2158:
2166: AND (p_relationship_query_rec.object_id IS NOT NULL
2167: AND p_relationship_query_rec.object_id <> fnd_api.g_miss_num)))
2168: THEN
2169: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
2170: fnd_msg_pub.add;
2171: x_return_status := fnd_api.g_ret_sts_error;
2172: RAISE fnd_api.g_exc_error;
2173: ELSIF ((p_relationship_query_rec.subject_id IS NOT NULL
2174: AND p_relationship_query_rec.subject_id <> fnd_api.g_miss_num))
2229: THEN
2230: csi_gen_utility_pvt.put_line('Warning! History for this entity has already been purged for the datetime stamp passed. ' ||
2231: 'Please provide a valid datetime stamp.');
2232: FND_MESSAGE.Set_Name('CSI', 'CSI_API_HIST_AFTER_PURGE_REQ');
2233: FND_MSG_PUB.ADD;
2234: ELSE
2235: get_history( p_rel_rec => l_rel_rec
2236: ,p_new_rec => l_new_rec
2237: ,p_flag => l_flag
2321: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2322: l_msg_index := 1;
2323: l_msg_count := x_msg_count;
2324: WHILE l_msg_count > 0 LOOP
2325: x_msg_data := FND_MSG_PUB.GET
2326: ( l_msg_index,
2327: FND_API.G_FALSE );
2328: csi_gen_utility_pvt.put_line( ' Error from Get_Item_Instance_Details.. ');
2329: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2390: THEN
2391: IF( (p_relationship_query_rec.relationship_type_code IS NULL) OR (p_relationship_query_rec.relationship_type_code = fnd_api.g_miss_char) )
2392: THEN
2393: fnd_message.set_name('CSI','CSI_NO_RELCODE_PASSED');
2394: fnd_msg_pub.add;
2395: RAISE fnd_api.g_exc_error;
2396: END IF;
2397: END IF;
2398: END IF;
2429: l_msg_index := 1;
2430: l_msg_count := x_msg_count;
2431: WHILE l_msg_count > 0
2432: LOOP
2433: x_msg_data := FND_MSG_PUB.GET
2434: ( l_msg_index,
2435: FND_API.G_FALSE );
2436: csi_gen_utility_pvt.put_line( ' Error from Get_Chidren.. ');
2437: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2472: THEN
2473: csi_gen_utility_pvt.put_line('Warning! History for this entity has already been purged for the datetime stamp passed. ' ||
2474: 'Please provide a valid datetime stamp.');
2475: FND_MESSAGE.Set_Name('CSI', 'CSI_API_HIST_AFTER_PURGE_REQ');
2476: FND_MSG_PUB.ADD;
2477: ELSE
2478: get_history( p_rel_rec => l_rel_tbl(p_time_csr)
2479: ,p_new_rec => l_new_rec
2480: ,p_flag => l_flag
2538: l_msg_index := 1;
2539: l_msg_count := x_msg_count;
2540: WHILE l_msg_count > 0
2541: LOOP
2542: x_msg_data := FND_MSG_PUB.GET
2543: ( l_msg_index,
2544: FND_API.G_FALSE );
2545: csi_gen_utility_pvt.put_line( ' Error from recursive Get_relationships.. ');
2546: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2670: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2671: l_msg_index := 1;
2672: l_msg_count := x_msg_count;
2673: WHILE l_msg_count > 0 LOOP
2674: x_msg_data := FND_MSG_PUB.GET
2675: ( l_msg_index,
2676: FND_API.G_FALSE );
2677: csi_gen_utility_pvt.put_line( ' Error from Get_Item_Instance_Details.. ');
2678: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2910: --
2911: -- end of API body
2912: --
2913: -- standard call to get message count and if count is 1, get message info.
2914: fnd_msg_pub.count_AND_get
2915: ( p_count => x_msg_count,
2916: p_data => x_msg_data
2917: );
2918: EXCEPTION
2918: EXCEPTION
2919: WHEN fnd_api.g_exc_error THEN
2920: -- ROLLBACK TO get_relationships_pvt;
2921: x_return_status := fnd_api.g_ret_sts_error ;
2922: fnd_msg_pub.count_AND_get
2923: (p_count => x_msg_count ,
2924: p_data => x_msg_data
2925: );
2926:
2926:
2927: WHEN fnd_api.g_exc_unexpected_error THEN
2928: -- ROLLBACK TO get_relationships_pvt;
2929: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2930: fnd_msg_pub.count_AND_get
2931: (p_count => x_msg_count ,
2932: p_data => x_msg_data
2933: );
2934:
2934:
2935: WHEN OTHERS THEN
2936: -- ROLLBACK TO get_relationships_pvt;
2937: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2938: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2939: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
2940: END IF;
2941: fnd_msg_pub.count_AND_get
2942: (p_count => x_msg_count ,
2935: WHEN OTHERS THEN
2936: -- ROLLBACK TO get_relationships_pvt;
2937: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2938: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2939: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
2940: END IF;
2941: fnd_msg_pub.count_AND_get
2942: (p_count => x_msg_count ,
2943: p_data => x_msg_data
2937: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2938: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2939: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
2940: END IF;
2941: fnd_msg_pub.count_AND_get
2942: (p_count => x_msg_count ,
2943: p_data => x_msg_data
2944: );
2945: END get_relationships;
2991: IF l_configurator_id is not null
2992: THEN
2993: fnd_message.set_name('CSI','CSI_CONFIG_SET');
2994: fnd_message.set_token('relationship_id',p_relationship_id);
2995: fnd_msg_pub.add;
2996: RETURN TRUE;
2997: ELSE
2998: RETURN FALSE;
2999: END IF;
3032: fnd_message.set_name('CSI','CSI_RELATIONSHIP_EXISTS');
3033: fnd_message.set_token('relationship_type',p_relship_type_code);
3034: fnd_message.set_token('subject_id',p_subject_id);
3035: fnd_message.set_token('object_id',p_object_id);
3036: fnd_msg_pub.add;
3037: RETURN FALSE;
3038: ELSE
3039: RETURN TRUE;
3040: END IF;
3053: fnd_message.set_name('CSI','CSI_RELATIONSHIP_EXISTS');
3054: fnd_message.set_token('relationship_type',p_relship_type_code);
3055: fnd_message.set_token('subject_id',p_subject_id);
3056: fnd_message.set_token('object_id',p_object_id);
3057: fnd_msg_pub.add;
3058: RETURN FALSE;
3059: ELSE
3060: RETURN TRUE;
3061: END IF;
3173:
3174: fnd_message.set_name('CSI','CSI_SUB_RELCODE_EXIST');
3175: fnd_message.set_token('relationship_type_code',p_relship_type_code);
3176: fnd_message.set_token('SUBJECT_ID',p_subject_id);
3177: fnd_msg_pub.add;
3178: RETURN FALSE;
3179: END IF;
3180: EXCEPTION
3181: WHEN NO_DATA_FOUND THEN
3198:
3199: fnd_message.set_name('CSI','CSI_SUB_RELCODE_EXIST');
3200: fnd_message.set_token('relationship_type_code',p_relship_type_code);
3201: fnd_message.set_token('SUBJECT_ID',p_subject_id);
3202: fnd_msg_pub.add;
3203: RETURN FALSE;
3204: END IF;
3205: EXCEPTION
3206: WHEN NO_DATA_FOUND THEN
3271: IF ( (l_object_id<>p_object_id) OR (l_relship_type_code<>p_relship_type_code) ) THEN
3272: fnd_message.set_name('CSI','CSI_CANNOT_UPDATE');
3273: fnd_message.set_token('object_id',p_object_id);
3274: fnd_message.set_token('relationship_type_code',p_relship_type_code);
3275: fnd_msg_pub.add;
3276: RETURN FALSE;
3277: ELSE
3278: RETURN TRUE;
3279: END IF;
3320: p_subject_id = FND_API.G_MISS_NUM OR
3321: p_object_id IS NULL OR
3322: p_object_id = FND_API.G_MISS_NUM THEN
3323: fnd_message.set_name('CSI', 'CSI_PARENT_CHILD_INVALID');
3324: fnd_msg_pub.add;
3325: x_return_status := fnd_api.g_ret_sts_error;
3326: RETURN;
3327: END IF;
3328: --
3348: l_rel_tbl.count > 0 THEN
3349: FOR j in l_rel_tbl.FIRST .. l_rel_tbl.LAST LOOP
3350: IF l_rel_tbl(j).subject_id = p_object_id THEN
3351: fnd_message.set_name('CSI','CSI_CHILD_PARENT_REL_LOOP');
3352: fnd_msg_pub.add;
3353: x_return_status := fnd_api.g_ret_sts_error;
3354: exit;
3355: END IF;
3356: END LOOP;
3356: END LOOP;
3357: END IF;
3358: ELSE
3359: fnd_message.set_name('CSI', 'CSI_PARENT_CHILD_INVALID');
3360: fnd_msg_pub.add;
3361: x_return_status := fnd_api.g_ret_sts_error;
3362: END IF;
3363: END check_for_object;
3364:
3444: l_full_dump := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
3445: --
3446: IF l_full_dump IS NULL THEN
3447: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
3448: FND_MSG_PUB.ADD;
3449: RAISE FND_API.G_EXC_ERROR;
3450: END IF;
3451: --
3452: IF p_flag = 'EXPIRE' THEN
4410:
4411: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
4412: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
4413: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
4414: fnd_msg_pub.add;
4415: RAISE fnd_api.g_exc_error;
4416: END IF;
4417:
4418: EXCEPTION
4500:
4501: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
4502: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
4503: fnd_message.set_token('instance_id',l_instance_rec1.instance_id);
4504: fnd_msg_pub.add;
4505: RAISE fnd_api.g_exc_error;
4506: END IF;
4507:
4508: END IF;
4629: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
4630: THEN
4631: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
4632: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
4633: fnd_msg_pub.add;
4634: RAISE fnd_api.g_exc_error;
4635: END IF;
4636: END IF;
4637: END IF;
4699:
4700: -- initialize message list if p_init_msg_list is set to true.
4701: IF fnd_api.to_boolean( p_init_msg_list )
4702: THEN
4703: fnd_msg_pub.initialize;
4704: END IF;
4705:
4706: -- initialize api return status to success
4707: x_return_status := fnd_api.g_ret_sts_success;
4760: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
4761: THEN
4762: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
4763: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).object_id);
4764: FND_MSG_PUB.ADD;
4765: RAISE FND_API.G_EXC_ERROR;
4766: END IF;
4767: END IF;
4768: END IF;
4775: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
4776: THEN
4777: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
4778: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).subject_id);
4779: FND_MSG_PUB.ADD;
4780: RAISE FND_API.G_EXC_ERROR;
4781: END IF;
4782: END IF;
4783: END IF;
4836: ,p_relationship_id => NULL )
4837: THEN
4838: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
4839: fnd_message.set_token('INSTANCE_ID',p_relationship_tbl(l_count).object_id);
4840: fnd_msg_pub.add;
4841: RAISE fnd_api.g_exc_error;
4842: END IF;
4843: END IF;
4844:
4850: ,p_relationship_id => NULL )
4851: THEN
4852: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
4853: fnd_message.set_token('INSTANCE_ID',p_relationship_tbl(l_count).subject_id);
4854: fnd_msg_pub.add;
4855: RAISE fnd_api.g_exc_error;
4856: END IF;
4857: END IF;
4858: -- End of att enhancements by sguthiva
4884: l_msg_index := 1;
4885: l_msg_count := x_msg_count;
4886: WHILE l_msg_count > 0
4887: LOOP
4888: x_msg_data := FND_MSG_PUB.GET
4889: ( l_msg_index,
4890: FND_API.G_FALSE );
4891: csi_gen_utility_pvt.put_line( ' Error from CSI_II_RELATIONSHIPS_PVT.CREATE_RELATIONSHIP');
4892: csi_gen_utility_pvt.put_line( ' Call to update_instance has errored ....');
4957:
4958: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
4959: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_TXN');
4960: fnd_message.set_token('transaction_id',p_txn_rec.transaction_id );
4961: fnd_msg_pub.add;
4962: RAISE fnd_api.g_exc_error;
4963: ROLLBACK TO create_relationship_pvt;
4964: END IF;
4965:
5102: csi_gen_utility_pvt.put_line( 'Error from create relationship API.');
5103: csi_gen_utility_pvt.put_line( 'Call to update_item_instance API for cascade ownership has errored');
5104: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
5105: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
5106: fnd_msg_pub.add;
5107: RAISE fnd_api.g_exc_error;
5108: END IF;
5109: END IF;
5110:
5124: COMMIT WORK;
5125: END IF;
5126:
5127: -- standard call to get message count and if count is 1, get message info.
5128: fnd_msg_pub.count_AND_get
5129: ( p_count => x_msg_count,
5130: p_data => x_msg_data
5131: );
5132:
5133: EXCEPTION
5134: WHEN fnd_api.g_exc_error THEN
5135: ROLLBACK TO create_relationship_pvt;
5136: x_return_status := fnd_api.g_ret_sts_error ;
5137: fnd_msg_pub.count_AND_get
5138: (p_count => x_msg_count ,
5139: p_data => x_msg_data
5140: );
5141:
5141:
5142: WHEN fnd_api.g_exc_unexpected_error THEN
5143: ROLLBACK TO create_relationship_pvt;
5144: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5145: fnd_msg_pub.count_AND_get
5146: (p_count => x_msg_count ,
5147: p_data => x_msg_data
5148: );
5149:
5149:
5150: WHEN OTHERS THEN
5151: ROLLBACK TO create_relationship_pvt;
5152: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5153: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5154: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
5155: END IF;
5156: fnd_msg_pub.count_AND_get
5157: (p_count => x_msg_count ,
5150: WHEN OTHERS THEN
5151: ROLLBACK TO create_relationship_pvt;
5152: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5153: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5154: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
5155: END IF;
5156: fnd_msg_pub.count_AND_get
5157: (p_count => x_msg_count ,
5158: p_data => x_msg_data
5152: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5153: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5154: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
5155: END IF;
5156: fnd_msg_pub.count_AND_get
5157: (p_count => x_msg_count ,
5158: p_data => x_msg_data
5159: );
5160:
5275:
5276: -- initialize message list IF p_init_msg_list IS set TO true.
5277: IF fnd_api.to_boolean( p_init_msg_list )
5278: THEN
5279: fnd_msg_pub.initialize;
5280: END IF;
5281:
5282:
5283: -- initialize api return status to success
5329: p_object_id => p_relationship_tbl(l_count).object_id,
5330: p_subject_id => p_relationship_tbl(l_count).subject_id )
5331: THEN
5332: fnd_message.set_name('CSI','CSI_API_INVALID_PARAMETERS');
5333: fnd_msg_pub.add;
5334: RAISE fnd_api.g_exc_error;
5335: END IF;
5336:
5337: --Added for MACD lock functionality
5344: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
5345: THEN
5346: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
5347: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).object_id);
5348: FND_MSG_PUB.ADD;
5349: RAISE FND_API.G_EXC_ERROR;
5350: END IF;
5351: END IF;
5352: END IF;
5359: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
5360: THEN
5361: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
5362: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_relationship_tbl(l_count).subject_id);
5363: FND_MSG_PUB.ADD;
5364: RAISE FND_API.G_EXC_ERROR;
5365: END IF;
5366: END IF;
5367: ELSE
5377: IF p_txn_rec.transaction_type_id NOT IN (51,53,54,401)
5378: THEN
5379: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
5380: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_subject_lock);
5381: FND_MSG_PUB.ADD;
5382: RAISE FND_API.G_EXC_ERROR;
5383: END IF;
5384: END IF;
5385: EXCEPTION
5395: FETCH relship_csr INTO l_relship_csr;
5396: IF ( (l_relship_csr.object_version_number<>p_relationship_tbl(l_count).object_version_number)
5397: AND (p_relationship_tbl(l_count).object_version_number <> fnd_api.g_miss_num) ) THEN
5398: fnd_message.set_name('CSI', 'CSI_RECORD_CHANGED');
5399: fnd_msg_pub.add;
5400: RAISE fnd_api.g_exc_error;
5401: END IF;
5402: CLOSE relship_csr;
5403:
5456: and ((active_end_date is null) or (active_end_date > sysdate))
5457: and relationship_id <> p_relationship_tbl(l_count).relationship_id;
5458: --
5459: fnd_message.set_name('CSI','CSI_CHILD_PARENT_REL_LOOP');
5460: fnd_msg_pub.add;
5461: x_return_status := fnd_api.g_ret_sts_error;
5462: RAISE fnd_api.g_exc_error;
5463: Exception
5464: when no_data_found then
5510: ,p_relationship_id => p_relationship_tbl(l_count).relationship_id )
5511: THEN
5512: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
5513: fnd_message.set_token('INSTANCE_ID',l_obj_id);
5514: fnd_msg_pub.add;
5515: RAISE fnd_api.g_exc_error;
5516: END IF;
5517: END IF;
5518: --
5524: ,p_relationship_id => p_relationship_tbl(l_count).relationship_id )
5525: THEN
5526: fnd_message.set_name('CSI','CSI_LINK_EXISTS');
5527: fnd_message.set_token('INSTANCE_ID',l_sub_id);
5528: fnd_msg_pub.add;
5529: RAISE fnd_api.g_exc_error;
5530: END IF;
5531: END IF;
5532: -- End of att enhancements by sguthiva
5665: l_msg_index := 1;
5666: l_msg_count := x_msg_count;
5667: WHILE l_msg_count > 0
5668: LOOP
5669: x_msg_data := FND_MSG_PUB.GET
5670: ( l_msg_index,
5671: FND_API.G_FALSE );
5672: csi_gen_utility_pvt.put_line( ' Error from CSI_II_RELATIONSHIPS_PVT.UPDATE_RELATIONSHIP');
5673: csi_gen_utility_pvt.put_line( ' Call to update_instance has errored ....');
5778:
5779: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5780: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_TXN');
5781: fnd_message.set_token('transaction_id',p_txn_rec.transaction_id );
5782: fnd_msg_pub.add;
5783: RAISE fnd_api.g_exc_error;
5784: ROLLBACK TO create_relationship_pvt;
5785: END IF;
5786: --
5828:
5829: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5830: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
5831: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
5832: fnd_msg_pub.add;
5833: RAISE fnd_api.g_exc_error;
5834: END IF;
5835: END IF;
5836: --
5945: csi_gen_utility_pvt.put_line( 'Error from update relationship API.');
5946: csi_gen_utility_pvt.put_line( 'Call to update_item_instance API for cascade ownership has errored');
5947: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
5948: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
5949: fnd_msg_pub.add;
5950: RAISE fnd_api.g_exc_error;
5951: END IF;
5952: END IF;
5953:
5972:
5973:
5974:
5975: -- standard call to get message count and if count is 1, get message info.
5976: fnd_msg_pub.count_AND_get
5977: ( p_count => x_msg_count,
5978: p_data => x_msg_data
5979: );
5980:
5981: EXCEPTION
5982: WHEN fnd_api.g_exc_error THEN
5983: ROLLBACK TO update_relationship_pvt;
5984: x_return_status := fnd_api.g_ret_sts_error ;
5985: fnd_msg_pub.count_AND_get
5986: (p_count => x_msg_count ,
5987: p_data => x_msg_data
5988: );
5989:
5989:
5990: WHEN fnd_api.g_exc_unexpected_error THEN
5991: ROLLBACK TO update_relationship_pvt;
5992: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5993: fnd_msg_pub.count_AND_get
5994: (p_count => x_msg_count ,
5995: p_data => x_msg_data
5996: );
5997:
5997:
5998: WHEN OTHERS THEN
5999: ROLLBACK TO update_relationship_pvt;
6000: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6001: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6002: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6003: END IF;
6004: fnd_msg_pub.count_AND_get
6005: (p_count => x_msg_count ,
5998: WHEN OTHERS THEN
5999: ROLLBACK TO update_relationship_pvt;
6000: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6001: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6002: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6003: END IF;
6004: fnd_msg_pub.count_AND_get
6005: (p_count => x_msg_count ,
6006: p_data => x_msg_data
6000: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6001: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6002: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6003: END IF;
6004: fnd_msg_pub.count_AND_get
6005: (p_count => x_msg_count ,
6006: p_data => x_msg_data
6007: );
6008:
6095:
6096: -- initialize message list if p_init_msg_list is set to true.
6097: IF fnd_api.to_boolean( p_init_msg_list )
6098: THEN
6099: fnd_msg_pub.initialize;
6100: END IF;
6101:
6102: -- initialize api return status to success
6103: x_return_status := fnd_api.g_ret_sts_success;
6129: FETCH relship_csr INTO l_relship_csr;
6130: IF ( (l_relship_csr.object_version_number<>p_relationship_rec.object_version_number)
6131: AND (p_relationship_rec.object_version_number <> fnd_api.g_miss_num) ) THEN
6132: fnd_message.set_name('CSI', 'CSI_RECORD_CHANGED');
6133: fnd_msg_pub.add;
6134: RAISE fnd_api.g_exc_error;
6135: END IF;
6136: CLOSE relship_csr;
6137:
6229: IF p_txn_rec.transaction_type_id NOT IN (53,54)
6230: THEN
6231: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
6232: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_relship_csr.object_id);
6233: FND_MSG_PUB.ADD;
6234: RAISE FND_API.G_EXC_ERROR;
6235: END IF;
6236: END IF;
6237: END IF;
6243: ( p_instance_id => l_relship_csr.subject_id)
6244: THEN
6245: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKED_INSTANCE');
6246: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_relship_csr.subject_id);
6247: FND_MSG_PUB.ADD;
6248: RAISE FND_API.G_EXC_ERROR;
6249: END IF;
6250: END IF;
6251: -- End addition for MACD lock functionality
6301:
6302: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6303: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_TXN');
6304: fnd_message.set_token('transaction_id',p_txn_rec.transaction_id );
6305: fnd_msg_pub.add;
6306: RAISE fnd_api.g_exc_error;
6307: ROLLBACK TO create_relationship_pvt;
6308: END IF;
6309:
6346:
6347: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6348: fnd_message.set_name('CSI','CSI_FAILED_TO_VALIDATE_INS');
6349: fnd_message.set_token('instance_id',l_instance_rec.instance_id);
6350: fnd_msg_pub.add;
6351: RAISE fnd_api.g_exc_error;
6352: END IF;
6353: END IF;
6354:
6403: COMMIT WORK;
6404: END IF;
6405:
6406: -- standard call to get message count and if count is 1, get message info.
6407: fnd_msg_pub.count_AND_get
6408: ( p_count => x_msg_count,
6409: p_data => x_msg_data
6410: );
6411:
6412: EXCEPTION
6413: WHEN fnd_api.g_exc_error THEN
6414: ROLLBACK TO expire_relationship_pvt;
6415: x_return_status := fnd_api.g_ret_sts_error ;
6416: fnd_msg_pub.count_AND_get
6417: (p_count => x_msg_count ,
6418: p_data => x_msg_data
6419: );
6420:
6420:
6421: WHEN fnd_api.g_exc_unexpected_error THEN
6422: ROLLBACK TO expire_relationship_pvt;
6423: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6424: fnd_msg_pub.count_AND_get
6425: (p_count => x_msg_count ,
6426: p_data => x_msg_data
6427: );
6428:
6428:
6429: WHEN OTHERS THEN
6430: ROLLBACK TO expire_relationship_pvt;
6431: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6432: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6433: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6434: END IF;
6435: fnd_msg_pub.count_AND_get
6436: (p_count => x_msg_count ,
6429: WHEN OTHERS THEN
6430: ROLLBACK TO expire_relationship_pvt;
6431: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6432: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6433: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6434: END IF;
6435: fnd_msg_pub.count_AND_get
6436: (p_count => x_msg_count ,
6437: p_data => x_msg_data
6431: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6432: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6433: fnd_msg_pub.add_exc_msg(g_pkg_name ,l_api_name);
6434: END IF;
6435: fnd_msg_pub.count_AND_get
6436: (p_count => x_msg_count ,
6437: p_data => x_msg_data
6438: );
6439: END expire_relationship;
6453:
6454: -- initialize message list IF p_init_msg_list IS set TO true.
6455: IF fnd_api.to_boolean( p_init_msg_list )
6456: THEN
6457: fnd_msg_pub.initialize;
6458: END IF;
6459:
6460:
6461: -- initialize api return status to success
6472: WHERE relationship_id=p_relationship_id
6473: AND ROWNUM=1;
6474: fnd_message.set_name('CSI','CSI_INVALID_RELSHIPID');
6475: fnd_message.set_token('relationship_id',p_relationship_id);
6476: fnd_msg_pub.add;
6477: x_return_status := fnd_api.g_ret_sts_error;
6478: EXCEPTION
6479: WHEN NO_DATA_FOUND THEN
6480: x_return_status := fnd_api.g_ret_sts_success;
6501: -- END IF;
6502: EXCEPTION
6503: WHEN NO_DATA_FOUND THEN
6504: fnd_message.set_name('CSI', 'CSI_INVALID_RELSHIPID');
6505: fnd_msg_pub.add;
6506: x_return_status := fnd_api.g_ret_sts_error;
6507: END;
6508: ELSE
6509: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_ID_PASSED');
6506: x_return_status := fnd_api.g_ret_sts_error;
6507: END;
6508: ELSE
6509: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_ID_PASSED');
6510: fnd_msg_pub.add;
6511: x_return_status := fnd_api.g_ret_sts_error;
6512: END IF;
6513: END IF;
6514:
6514:
6515:
6516:
6517: -- standard call to get message count and if count is 1, get message info.
6518: fnd_msg_pub.count_AND_get
6519: ( p_count => x_msg_count,
6520: p_data => x_msg_data
6521: );
6522:
6536: BEGIN
6537: -- initialize message list if p_init_msg_list is set to true.
6538: IF fnd_api.to_boolean( p_init_msg_list )
6539: THEN
6540: fnd_msg_pub.initialize;
6541: END IF;
6542:
6543: -- initialize api return status to success
6544: x_return_status := fnd_api.g_ret_sts_success;
6558: EXCEPTION
6559: WHEN NO_DATA_FOUND THEN
6560: fnd_message.set_name('CSI', 'CSI_INVALID_RELSHIP_CODE');
6561: fnd_message.set_token('relationship_type_code',p_relationship_type_code);
6562: fnd_msg_pub.add;
6563: x_return_status := fnd_api.g_ret_sts_error;
6564: END;
6565: ELSE
6566: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_CODE');
6564: END;
6565: ELSE
6566: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_CODE');
6567: --fnd_message.set_token('relationship_type_code',p_relationship_type_code);
6568: fnd_msg_pub.add;
6569: x_return_status := fnd_api.g_ret_sts_error;
6570:
6571: END IF;
6572: ELSIF(p_validation_mode ='UPDATE')
6583: EXCEPTION
6584: WHEN NO_DATA_FOUND THEN
6585: fnd_message.set_name('CSI', 'CSI_INVALID_RELSHIP_CODE');
6586: fnd_message.set_token('relationship_type_code',p_relationship_type_code);
6587: fnd_msg_pub.add;
6588: x_return_status := fnd_api.g_ret_sts_error;
6589: END;
6590: ELSIF p_relationship_type_code IS NULL -- Added for bug 2151750
6591: THEN
6589: END;
6590: ELSIF p_relationship_type_code IS NULL -- Added for bug 2151750
6591: THEN
6592: fnd_message.set_name('CSI', 'CSI_NO_RELSHIP_CODE');
6593: fnd_msg_pub.add;
6594: x_return_status := fnd_api.g_ret_sts_error;
6595: END IF;
6596: END IF;
6597: -- standard call to get message count and if count is 1, get message info.
6594: x_return_status := fnd_api.g_ret_sts_error;
6595: END IF;
6596: END IF;
6597: -- standard call to get message count and if count is 1, get message info.
6598: fnd_msg_pub.count_AND_get
6599: ( p_count => x_msg_count,
6600: p_data => x_msg_data
6601: );
6602:
6629:
6630: -- initialize message list if p_init_msg_list is set to true.
6631: IF fnd_api.to_boolean( p_init_msg_list )
6632: THEN
6633: fnd_msg_pub.initialize;
6634: END IF;
6635:
6636:
6637: -- initialize api return status to success
6651: EXCEPTION
6652: WHEN NO_DATA_FOUND THEN
6653: fnd_message.set_name('CSI', 'CSI_EXPIRED_OBJECT');
6654: fnd_message.set_token('object_id',p_object_id);
6655: fnd_msg_pub.add;
6656: x_return_status := fnd_api.g_ret_sts_error;
6657: RAISE fnd_api.g_exc_error;
6658: END;
6659: -- End of addition for bug 2416144.
6675: IF l_quantity IS NOT NULL THEN
6676: IF l_quantity<>1 THEN
6677: fnd_message.set_name('CSI', 'CSI_QTY_NOTEQUAL_TO_ONE');
6678: fnd_message.set_token('object_id',p_object_id);
6679: fnd_msg_pub.add;
6680: x_return_status := fnd_api.g_ret_sts_error;
6681: END IF;
6682: END IF;
6683: /* commented by sk for bug 2151750
6684: IF l_location_type_code IS NOT NULL THEN
6685: IF UPPER(l_location_type_code) = 'INVENTORY' THEN
6686: fnd_message.set_name('CSI', 'CSI_INVALID_LOCATION_TYPE');
6687: fnd_message.set_token('object_id',p_object_id);
6688: fnd_msg_pub.add;
6689: x_return_status := fnd_api.g_ret_sts_error;
6690: END IF;
6691: END IF;
6692: */
6730: NULL;
6731: ELSE
6732: fnd_message.set_name('CSI', 'CSI_NON_ATO_PTO_ITEM');
6733: fnd_message.set_token('object_id',p_object_id);
6734: fnd_msg_pub.add;
6735: x_return_status := fnd_api.g_ret_sts_error;
6736: END IF;
6737:
6738: EXCEPTION
6742: EXCEPTION
6743: WHEN NO_DATA_FOUND THEN
6744: fnd_message.set_name('CSI', 'CSI_INVALID_OBJECT_ID');
6745: fnd_message.set_token('object_id',p_object_id);
6746: fnd_msg_pub.add;
6747: x_return_status := fnd_api.g_ret_sts_error;
6748: END;
6749: ELSE
6750: fnd_message.set_name('CSI', 'CSI_NO_OBJ_ID_PASSED');
6747: x_return_status := fnd_api.g_ret_sts_error;
6748: END;
6749: ELSE
6750: fnd_message.set_name('CSI', 'CSI_NO_OBJ_ID_PASSED');
6751: fnd_msg_pub.add;
6752: x_return_status := fnd_api.g_ret_sts_error;
6753: END IF;
6754:
6755: ELSIF(p_validation_mode ='UPDATE')
6773: IF l_quantity IS NOT NULL THEN
6774: IF l_quantity<>1 THEN
6775: fnd_message.set_name('CSI', 'CSI_QTY_NOTEQUAL_TO_ONE');
6776: fnd_message.set_token('object_id',p_object_id);
6777: fnd_msg_pub.add;
6778: x_return_status := fnd_api.g_ret_sts_error;
6779: END IF;
6780: END IF;
6781: /* commented by sk for bug 2151750
6782: IF l_location_type_code IS NOT NULL THEN
6783: IF UPPER(l_location_type_code) = 'INVENTORY' THEN
6784: fnd_message.set_name('CSI', 'CSI_INVALID_LOCATION_TYPE');
6785: fnd_message.set_token('object_id',p_object_id);
6786: fnd_msg_pub.add;
6787: x_return_status := fnd_api.g_ret_sts_error;
6788: END IF;
6789: END IF;
6790: */
6828: NULL;
6829: ELSE
6830: fnd_message.set_name('CSI', 'CSI_NON_ATO_PTO_ITEM');
6831: fnd_message.set_token('object_id',p_object_id);
6832: fnd_msg_pub.add;
6833: x_return_status := fnd_api.g_ret_sts_error;
6834: END IF;
6835:
6836: EXCEPTION
6841: EXCEPTION
6842: WHEN NO_DATA_FOUND THEN
6843: fnd_message.set_name('CSI', 'CSI_INVALID_OBJECT_ID');
6844: fnd_message.set_token('object_id',p_object_id);
6845: fnd_msg_pub.add;
6846: x_return_status := fnd_api.g_ret_sts_error;
6847: END;
6848: END IF;
6849: END IF;
6848: END IF;
6849: END IF;
6850:
6851: -- standard call to get message count and if count is 1, get message info.
6852: fnd_msg_pub.count_and_get
6853: ( p_count => x_msg_count,
6854: p_data => x_msg_data
6855: );
6856:
6875:
6876: -- initialize message list if p_init_msg_list is set to true.
6877: IF fnd_api.to_boolean( p_init_msg_list )
6878: THEN
6879: fnd_msg_pub.initialize;
6880: END IF;
6881:
6882:
6883: -- initialize API RETURN status TO success
6896: EXCEPTION
6897: WHEN NO_DATA_FOUND THEN
6898: fnd_message.set_name('CSI', 'CSI_EXPIRED_SUBJECT');
6899: fnd_message.set_token('subject_id',p_subject_id);
6900: fnd_msg_pub.add;
6901: x_return_status := fnd_api.g_ret_sts_error;
6902: RAISE fnd_api.g_exc_error;
6903: END;
6904: END IF;
6912: IF l_location_type_code IS NOT NULL THEN
6913: IF UPPER(l_location_type_code) = 'INVENTORY' THEN
6914: fnd_message.set_name('CSI', 'CSI_INVALID_LOCATION_TYPE');
6915: fnd_message.set_token('subject_id',p_subject_id);
6916: fnd_msg_pub.add;
6917: x_return_status := fnd_api.g_ret_sts_error;
6918: END IF;
6919: END IF;
6920: */
6921: EXCEPTION
6922: WHEN NO_DATA_FOUND THEN
6923: fnd_message.set_name('CSI', 'CSI_INVALID_SUBJECT_ID');
6924: fnd_message.set_token('subject_id',p_subject_id);
6925: fnd_msg_pub.add;
6926: x_return_status := fnd_api.g_ret_sts_error;
6927: END;
6928: END IF;
6929: -- standard call to get message count and if count is 1, get message info.
6926: x_return_status := fnd_api.g_ret_sts_error;
6927: END;
6928: END IF;
6929: -- standard call to get message count and if count is 1, get message info.
6930: fnd_msg_pub.count_AND_get
6931: ( p_count => x_msg_count,
6932: p_data => x_msg_data
6933: );
6934:
6946: BEGIN
6947: -- initialize message list if p_init_msg_list is set to true.
6948: IF fnd_api.to_boolean( p_init_msg_list )
6949: THEN
6950: fnd_msg_pub.initialize;
6951: END IF;
6952:
6953:
6954: -- initialize api return status to success
6956: IF(p_validation_mode ='CREATE') THEN
6957: IF ((p_active_end_date IS NOT NULL) AND (p_active_end_date <> fnd_api.g_miss_date)) THEN
6958: fnd_message.set_name('CSI', 'CSI_ACTIVE_END_DATE');
6959: fnd_message.set_token('ACTIVE_END_DATE',p_active_end_date);
6960: fnd_msg_pub.add;
6961: x_return_status := fnd_api.g_ret_sts_error;
6962: END IF;
6963: END IF;
6964: -- standard call to get message count and if count is 1, get message info.
6961: x_return_status := fnd_api.g_ret_sts_error;
6962: END IF;
6963: END IF;
6964: -- standard call to get message count and if count is 1, get message info.
6965: fnd_msg_pub.count_AND_get
6966: ( p_count => x_msg_count,
6967: p_data => x_msg_data
6968: );
6969:
6984:
6985: -- initialize message list if p_init_msg_list is set to true.
6986: IF fnd_api.to_boolean( p_init_msg_list )
6987: THEN
6988: fnd_msg_pub.initialize;
6989: END IF;
6990:
6991:
6992: -- initialize api return status to success
6997:
6998: IF( (p_validation_mode = 'UPDATE') OR (p_validation_mode = 'EXPIRE') ) THEN
6999: IF ( (p_object_version_number IS NULL) OR (p_object_version_number = fnd_api.g_miss_num) ) THEN
7000: fnd_message.set_name('CSI', 'CSI_MISSING_OBJ_VER_NUM');
7001: fnd_msg_pub.add;
7002: x_return_status := fnd_api.g_ret_sts_error;
7003: ELSE
7004: x_return_status := fnd_api.g_ret_sts_success;
7005: END IF;
7005: END IF;
7006: END IF;
7007:
7008: -- standard call to get message count and if count is 1, get message info.
7009: fnd_msg_pub.count_and_get
7010: ( p_count => x_msg_count,
7011: p_data => x_msg_data
7012: );
7013:
7269: END IF;
7270:
7271: -- Initialize message list if p_init_msg_list is set to TRUE.
7272: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7273: FND_MSG_PUB.initialize;
7274: END IF;
7275:
7276: -- Initialize API return status to success
7277: x_return_status := FND_API.G_RET_STS_SUCCESS;
7418: -- End disable trace
7419: ****/
7420:
7421: -- Standard call to get message count and if count is get message info.
7422: FND_MSG_PUB.Count_And_Get
7423: (p_count => x_msg_count ,
7424: p_data => x_msg_data );
7425:
7426: EXCEPTION
7427:
7428: WHEN FND_API.G_EXC_ERROR THEN
7429: -- ROLLBACK TO get_inst_relationship_hist;
7430: x_return_status := FND_API.G_RET_STS_ERROR ;
7431: FND_MSG_PUB.Count_And_Get
7432: ( p_count => x_msg_count,
7433: p_data => x_msg_data );
7434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7435: -- ROLLBACK TO get_inst_relationship_hist;
7433: p_data => x_msg_data );
7434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7435: -- ROLLBACK TO get_inst_relationship_hist;
7436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7437: FND_MSG_PUB.Count_And_Get
7438: ( p_count => x_msg_count,
7439: p_data => x_msg_data );
7440: WHEN OTHERS THEN
7441: -- ROLLBACK TO get_inst_relationship_hist;
7439: p_data => x_msg_data );
7440: WHEN OTHERS THEN
7441: -- ROLLBACK TO get_inst_relationship_hist;
7442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7443: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7444: FND_MSG_PUB.Add_Exc_Msg
7445: ( g_pkg_name ,
7446: l_api_name );
7447: END IF;
7440: WHEN OTHERS THEN
7441: -- ROLLBACK TO get_inst_relationship_hist;
7442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7443: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7444: FND_MSG_PUB.Add_Exc_Msg
7445: ( g_pkg_name ,
7446: l_api_name );
7447: END IF;
7448: FND_MSG_PUB.Count_And_Get
7444: FND_MSG_PUB.Add_Exc_Msg
7445: ( g_pkg_name ,
7446: l_api_name );
7447: END IF;
7448: FND_MSG_PUB.Count_And_Get
7449: ( p_count => x_msg_count,
7450: p_data => x_msg_data );
7451:
7452: END get_inst_relationship_hist;
7518: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7519: l_msg_index := 1;
7520: l_msg_count := x_msg_count;
7521: WHILE l_msg_count > 0 LOOP
7522: x_msg_data := FND_MSG_PUB.GET
7523: ( l_msg_index,
7524: FND_API.G_FALSE );
7525: csi_gen_utility_pvt.put_line( ' Error from Get_cyclic_relationships.. ');
7526: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7660: WHEN COMP_ERROR THEN
7661: null;
7662: WHEN FND_API.G_EXC_ERROR THEN
7663: x_return_status := fnd_api.g_ret_sts_error ;
7664: fnd_msg_pub.count_AND_get
7665: (p_count => x_msg_count ,
7666: p_data => x_msg_data
7667: );
7668:
7667: );
7668:
7669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7670: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7671: fnd_msg_pub.count_AND_get
7672: (p_count => x_msg_count ,
7673: p_data => x_msg_data
7674: );
7675:
7674: );
7675:
7676: WHEN OTHERS THEN
7677: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7678: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7679: fnd_msg_pub.add_exc_msg(g_pkg_name,l_api_name);
7680: END IF;
7681: fnd_msg_pub.count_AND_get
7682: (p_count => x_msg_count ,
7675:
7676: WHEN OTHERS THEN
7677: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7678: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7679: fnd_msg_pub.add_exc_msg(g_pkg_name,l_api_name);
7680: END IF;
7681: fnd_msg_pub.count_AND_get
7682: (p_count => x_msg_count ,
7683: p_data => x_msg_data
7677: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7678: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7679: fnd_msg_pub.add_exc_msg(g_pkg_name,l_api_name);
7680: END IF;
7681: fnd_msg_pub.count_AND_get
7682: (p_count => x_msg_count ,
7683: p_data => x_msg_data
7684: );
7685: END Get_Cyclic_Node;