35:
36: if ( c1%NOTFOUND ) then
37: FND_MESSAGE.SET_NAME ('CS', 'CS_SR_LINK_INVALID_LINK');
38: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
39: FND_MSG_PUB.Add;
40: x_return_status := FND_API.G_RET_STS_ERROR;
41: end if;
42:
43: close c1;
41: end if;
42:
43: close c1;
44:
45: FND_MSG_PUB.Count_And_Get(
46: p_count => x_msg_count,
47: p_data => x_msg_data);
48:
49: EXCEPTION
50: WHEN OTHERS THEN
51: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
52: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
53: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
54: FND_MSG_PUB.ADD;
55: FND_MSG_PUB.Count_And_Get(
56: p_count => x_msg_count,
57: p_data => x_msg_data);
58:
51: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
52: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
53: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
54: FND_MSG_PUB.ADD;
55: FND_MSG_PUB.Count_And_Get(
56: p_count => x_msg_count,
57: p_data => x_msg_data);
58:
59: END VALIDATE_LINK_TYPE;
92: -- Valid objects do not exist for the given Object, Related Object and Link
93: -- type combination. Please define a valid object for this combination.
94: FND_MESSAGE.Set_Name('CS', 'CS_SR_LINK_NO_VALID_OBJ');
95: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
96: FND_MSG_PUB.Add;
97: x_return_status := FND_API.G_RET_STS_ERROR;
98: else
99: -- check for the reciprocal link valid object as well; interchange the subject and
100: -- object and use the reciprocal link_type_id
116: -- Valid objects do not exist for the given Object, Related Object and Link
117: -- type combination. Please define a valid object for this combination.
118: FND_MESSAGE.Set_Name('CS', 'CS_SR_LINK_NO_VALID_OBJ');
119: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
120: FND_MSG_PUB.Add;
121: end if;
122: end if;
123:
124: FND_MSG_PUB.Count_And_Get(
120: FND_MSG_PUB.Add;
121: end if;
122: end if;
123:
124: FND_MSG_PUB.Count_And_Get(
125: p_count => x_msg_count,
126: p_data => x_msg_data);
127:
128: EXCEPTION
129: WHEN OTHERS THEN
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
132: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
133: FND_MSG_PUB.ADD;
134: FND_MSG_PUB.Count_And_Get(
135: p_count => x_msg_count,
136: p_data => x_msg_data);
137:
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
132: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
133: FND_MSG_PUB.ADD;
134: FND_MSG_PUB.Count_And_Get(
135: p_count => x_msg_count,
136: p_data => x_msg_data);
137:
138: END VALIDATE_LINK_SUB_OBJ_TYPE;
200: -- for Subject type.
201: close get_jtf_details;
202: FND_MESSAGE.Set_Name('CS', 'CS_SR_LINK_NO_OBJ_JTF_TYPE');
203: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
204: FND_MSG_PUB.Add;
205: x_return_status := FND_API.G_RET_STS_ERROR;
206:
207: FND_MSG_PUB.Count_And_Get(
208: p_count => x_msg_count,
203: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
204: FND_MSG_PUB.Add;
205: x_return_status := FND_API.G_RET_STS_ERROR;
206:
207: FND_MSG_PUB.Count_And_Get(
208: p_count => x_msg_count,
209: p_data => x_msg_data);
210:
211: RETURN;
216: -- MSG: Object OBJECT_CODE is not fully defined in JTF Objects.
217: FND_MESSAGE.Set_Name('CS','CS_SR_LINK_NO_JTF_SEL_NAME');
218: FND_MESSAGE.Set_Token('OBJECT_CODE', p_subject_type);
219: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
220: FND_MSG_PUB.Add;
221: x_return_status := FND_API.G_RET_STS_ERROR;
222:
223: FND_MSG_PUB.Count_And_Get(
224: p_count => x_msg_count,
219: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
220: FND_MSG_PUB.Add;
221: x_return_status := FND_API.G_RET_STS_ERROR;
222:
223: FND_MSG_PUB.Count_And_Get(
224: p_count => x_msg_count,
225: p_data => x_msg_data);
226:
227: RETURN;
238: -- for Object type.
239: close get_jtf_details;
240: FND_MESSAGE.Set_Name('CS', 'CS_SR_LINK_NO_SUB_JTF_TYPE');
241: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
242: FND_MSG_PUB.Add;
243: x_return_status := FND_API.G_RET_STS_ERROR;
244:
245: FND_MSG_PUB.Count_And_Get(
246: p_count => x_msg_count,
241: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
242: FND_MSG_PUB.Add;
243: x_return_status := FND_API.G_RET_STS_ERROR;
244:
245: FND_MSG_PUB.Count_And_Get(
246: p_count => x_msg_count,
247: p_data => x_msg_data);
248:
249: RETURN;
255: -- MSG: Object OBJECT_CODE is not fully defined in JTF Objects.
256: FND_MESSAGE.Set_Name('CS','CS_SR_LINK_NO_JTF_SEL_NAME');
257: FND_MESSAGE.Set_Token('OBJECT_CODE', p_object_type);
258: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
259: FND_MSG_PUB.Add;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261:
262: FND_MSG_PUB.Count_And_Get(
263: p_count => x_msg_count,
258: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
259: FND_MSG_PUB.Add;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261:
262: FND_MSG_PUB.Count_And_Get(
263: p_count => x_msg_count,
264: p_data => x_msg_data);
265:
266: RETURN;
284: FND_MESSAGE.Set_Name('CS', 'CS_SR_LINK_INVALID_LINK_CHILD');
285: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
286: FND_MESSAGE.Set_Token('SUB_OBJ_ID', nvl(to_char(p_subject_id) ,'NULL') );
287: FND_MESSAGE.Set_Token('SUB_OBJ_TABLE_NAME', l_sub_from_table) ;
288: FND_MSG_PUB.Add;
289:
290: FND_MSG_PUB.Count_And_Get(
291: p_count => x_msg_count,
292: p_data => x_msg_data);
286: FND_MESSAGE.Set_Token('SUB_OBJ_ID', nvl(to_char(p_subject_id) ,'NULL') );
287: FND_MESSAGE.Set_Token('SUB_OBJ_TABLE_NAME', l_sub_from_table) ;
288: FND_MSG_PUB.Add;
289:
290: FND_MSG_PUB.Count_And_Get(
291: p_count => x_msg_count,
292: p_data => x_msg_data);
293:
294: RETURN;
318: FND_MESSAGE.Set_Name('CS', 'CS_SR_LINK_INVALID_LINK_CHILD');
319: FND_MESSAGE.Set_Token('SUB_OBJ_ID', l_sub_obj_id_token );
320: FND_MESSAGE.Set_Token('SUB_OBJ_TABLE_NAME', l_obj_from_table);
321: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
322: FND_MSG_PUB.Add;
323:
324: FND_MSG_PUB.Count_And_Get(
325: p_count => x_msg_count,
326: p_data => x_msg_data);
320: FND_MESSAGE.Set_Token('SUB_OBJ_TABLE_NAME', l_obj_from_table);
321: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
322: FND_MSG_PUB.Add;
323:
324: FND_MSG_PUB.Count_And_Get(
325: p_count => x_msg_count,
326: p_data => x_msg_data);
327:
328: RETURN;
335: WHEN OTHERS THEN
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
338: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
339: FND_MSG_PUB.ADD;
340: FND_MSG_PUB.Count_And_Get(
341: p_count => x_msg_count,
342: p_data => x_msg_data);
343:
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
338: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
339: FND_MSG_PUB.ADD;
340: FND_MSG_PUB.Count_And_Get(
341: p_count => x_msg_count,
342: p_data => x_msg_data);
343:
344: END VALIDATE_LINK_DETAILS;
384: -- Duplicate link. Link already exists for given object and related object.
385: x_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MESSAGE.Set_Name('CS', 'CS_SR_LINK_DUP_LINK');
387: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
388: FND_MSG_PUB.Add;
389: end if;
390:
391: FND_MSG_PUB.Count_And_Get(
392: p_count => x_msg_count,
387: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
388: FND_MSG_PUB.Add;
389: end if;
390:
391: FND_MSG_PUB.Count_And_Get(
392: p_count => x_msg_count,
393: p_data => x_msg_data);
394:
395: EXCEPTION
396: WHEN OTHERS THEN
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
399: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
400: FND_MSG_PUB.ADD;
401: FND_MSG_PUB.Count_And_Get(
402: p_count => x_msg_count,
403: p_data => x_msg_data);
404:
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
399: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
400: FND_MSG_PUB.ADD;
401: FND_MSG_PUB.Count_And_Get(
402: p_count => x_msg_count,
403: p_data => x_msg_data);
404:
405: END VALIDATE_LINK_UNIQUENESS;
494: FND_MESSAGE.Set_Token('OBJECT_NUM' , p_object_number);
495: FND_MESSAGE.Set_Token('API_NAME' , l_api_name_full);
496: end if;
497:
498: FND_MSG_PUB.Add;
499: x_return_status := FND_API.G_RET_STS_ERROR;
500: exit;
501: end if;
502: end loop;
502: end loop;
503:
504: close c1;
505:
506: FND_MSG_PUB.Count_And_Get(
507: p_count => x_msg_count,
508: p_data => x_msg_data);
509:
510:
512: WHEN OTHERS THEN
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
515: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
516: FND_MSG_PUB.ADD;
517: FND_MSG_PUB.Count_And_Get(
518: p_count => x_msg_count,
519: p_data => x_msg_data);
520:
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
515: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
516: FND_MSG_PUB.ADD;
517: FND_MSG_PUB.Count_And_Get(
518: p_count => x_msg_count,
519: p_data => x_msg_data);
520:
521: END VALIDATE_LINK_CIRCULARS;
621: FND_MESSAGE.Set_Token('SUB_OBJ_NUM' , p_subject_number);
622: FND_MESSAGE.Set_Token('REL_OBJ_TYPE' , l_object_type_name);
623: FND_MESSAGE.Set_Token('REL_OBJ_NUM' , c1rec.object_number);
624: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
625: FND_MSG_PUB.Add;
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: else
628: open c1 ( c_sub_obj_id => p_object_id,
629: c_sub_obj_type => p_object_type );
649: FND_MESSAGE.Set_Token('SUB_OBJ_NUM' , p_object_number);
650: FND_MESSAGE.Set_Token('REL_OBJ_TYPE' , l_object_type_name);
651: FND_MESSAGE.Set_Token('REL_OBJ_NUM' , c1rec.object_number);
652: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
653: FND_MSG_PUB.Add;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: end if;
656: end if;
657:
685: FND_MESSAGE.Set_Token('SUB_OBJ_TYPE', p_subject_type_name);
686: FND_MESSAGE.Set_Token('SUB_OBJ_NUM' , p_subject_number);
687: FND_MESSAGE.Set_Token('EXISTING_LINK_TYPE', l_existing_link_type_name);
688: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
689: FND_MSG_PUB.Add;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: end if;
692: elsif p_link_type_id = 4 then -- Creating a 'Original For' link
693: open c2 ( c_sub_obj_id => p_object_id,
718: FND_MESSAGE.Set_Token('SUB_OBJ_TYPE' , p_object_type_name);
719: FND_MESSAGE.Set_Token('SUB_OBJ_NUM' , p_object_number);
720: FND_MESSAGE.Set_Token('EXISTING_LINK_TYPE' , l_existing_link_type_name );
721: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
722: FND_MSG_PUB.Add;
723: x_return_status := FND_API.G_RET_STS_ERROR;
724: end if;
725: end if; -- if p_link_type_id = 3 then
726: end if; -- if ( x_return_status = FND_API.G_RET_STS_SUCCESS ) then
724: end if;
725: end if; -- if p_link_type_id = 3 then
726: end if; -- if ( x_return_status = FND_API.G_RET_STS_SUCCESS ) then
727:
728: FND_MSG_PUB.Count_And_Get(
729: p_count => x_msg_count,
730: p_data => x_msg_data);
731:
732: EXCEPTION
733: WHEN OTHERS THEN
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
736: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
737: FND_MSG_PUB.ADD;
738: FND_MSG_PUB.Count_And_Get(
739: p_count => x_msg_count,
740: p_data => x_msg_data);
741:
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
736: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
737: FND_MSG_PUB.ADD;
738: FND_MSG_PUB.Count_And_Get(
739: p_count => x_msg_count,
740: p_data => x_msg_data);
741:
742: END VALIDATE_LINK_DUPLICATES;
802: fnd_message.set_name ('CS', 'CS_SR_NO_ACCESS');
803: fnd_message.set_token('RESP_NAME', l_resp_name );
804: fnd_message.set_token('SR_NUMBER', l_sr_number );
805: fnd_message.set_token('API_NAME', l_api_name_full);
806: fnd_msg_pub.add;
807: end if;
808:
809: FND_MSG_PUB.Count_And_Get(
810: p_count => x_msg_count,
805: fnd_message.set_token('API_NAME', l_api_name_full);
806: fnd_msg_pub.add;
807: end if;
808:
809: FND_MSG_PUB.Count_And_Get(
810: p_count => x_msg_count,
811: p_data => x_msg_data);
812:
813: EXCEPTION
814: WHEN OTHERS THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
817: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
818: FND_MSG_PUB.ADD;
819: FND_MSG_PUB.Count_And_Get(
820: p_count => x_msg_count,
821: p_data => x_msg_data);
822:
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
817: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
818: FND_MSG_PUB.ADD;
819: FND_MSG_PUB.Count_And_Get(
820: p_count => x_msg_count,
821: p_data => x_msg_data);
822:
823: END VALIDATE_SR_SEC_ACCESS;