35: BEGIN
36: SAVEPOINT Associate_System_User;
37: -- Initialize message list if p_init_msg_list is set to TRUE.
38: IF FND_API.to_Boolean( p_init_msg_list ) THEN
39: FND_MSG_PUB.initialize;
40: END IF;
41:
42: OPEN c1;
43: FETCH c1 INTO l_dummy;
84: WHEN OTHERS THEN
85: CLOSE c1;
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: FND_MESSAGE.SET_NAME('CS','CS_INSERT_UNEXP_ERR');
88: FND_MSG_PUB.Add;
89: FND_MSG_PUB.Count_And_Get (
90: p_count => x_msg_count ,
91: p_data => x_msg_data
92: );
85: CLOSE c1;
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: FND_MESSAGE.SET_NAME('CS','CS_INSERT_UNEXP_ERR');
88: FND_MSG_PUB.Add;
89: FND_MSG_PUB.Count_And_Get (
90: p_count => x_msg_count ,
91: p_data => x_msg_data
92: );
93: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
89: FND_MSG_PUB.Count_And_Get (
90: p_count => x_msg_count ,
91: p_data => x_msg_data
92: );
93: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
94: ROLLBACK TO Associate_System_User;
95:
96: END Associate_System_With_User;
97:
123: SAVEPOINT Disassociate_System_User;
124:
125: -- Initialize message list if p_init_msg_list is set to TRUE.
126: IF FND_API.to_Boolean( p_init_msg_list ) THEN
127: FND_MSG_PUB.initialize;
128: END IF;
129:
130: OPEN c1;
131: FETCH c1 INTO l_dummy;
132: -- If there is no present link then insert.
133: IF c1%NOTFOUND THEN
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: FND_MESSAGE.SET_NAME('CS','CS_NO_LINK_FOUND');
136: FND_MSG_PUB.Add;
137: FND_MSG_PUB.Count_And_Get (
138: p_count => x_msg_count ,
139: p_data => x_msg_data
140: );
133: IF c1%NOTFOUND THEN
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: FND_MESSAGE.SET_NAME('CS','CS_NO_LINK_FOUND');
136: FND_MSG_PUB.Add;
137: FND_MSG_PUB.Count_And_Get (
138: p_count => x_msg_count ,
139: p_data => x_msg_data
140: );
141: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
137: FND_MSG_PUB.Count_And_Get (
138: p_count => x_msg_count ,
139: p_data => x_msg_data
140: );
141: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
142: ELSE
143: UPDATE CS_SYSTEM_PARTY_LINKS SET
144: end_date = sysdate,
145: last_update_date = sysdate,
159: WHEN OTHERS THEN
160: CLOSE c1;
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: FND_MESSAGE.SET_NAME('CS','CS_UPDATE_UNEXP_ERR');
163: FND_MSG_PUB.Add;
164: FND_MSG_PUB.Count_And_Get
165: (
166: p_count => x_msg_count ,
167: p_data => x_msg_data
160: CLOSE c1;
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: FND_MESSAGE.SET_NAME('CS','CS_UPDATE_UNEXP_ERR');
163: FND_MSG_PUB.Add;
164: FND_MSG_PUB.Count_And_Get
165: (
166: p_count => x_msg_count ,
167: p_data => x_msg_data
168: );
165: (
166: p_count => x_msg_count ,
167: p_data => x_msg_data
168: );
169: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
170: ROLLBACK TO Disassociate_System_User;
171:
172: END Disassociate_System_With_User;
173:
195: SAVEPOINT Associate_Name_User;
196:
197: -- Initialize message list if p_init_msg_list is set to TRUE.
198: IF FND_API.to_Boolean( p_init_msg_list ) THEN
199: FND_MSG_PUB.initialize;
200: END IF;
201:
202: OPEN c1;
203: FETCH c1 INTO l_system_id;
204: -- If there is no present link then insert.
205: IF c1%NOTFOUND THEN
206: x_return_status := FND_API.G_RET_STS_ERROR ;
207: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
208: FND_MSG_PUB.Add;
209: FND_MSG_PUB.Count_And_Get(
210: p_count => x_msg_count ,
211: p_data => x_msg_data
212: );
205: IF c1%NOTFOUND THEN
206: x_return_status := FND_API.G_RET_STS_ERROR ;
207: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
208: FND_MSG_PUB.Add;
209: FND_MSG_PUB.Count_And_Get(
210: p_count => x_msg_count ,
211: p_data => x_msg_data
212: );
213: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
209: FND_MSG_PUB.Count_And_Get(
210: p_count => x_msg_count ,
211: p_data => x_msg_data
212: );
213: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
214: ELSE
215: Associate_System_With_User (p_api_version_number,
216: p_init_msg_list,
217: p_commit,
229: WHEN OTHERS THEN
230: CLOSE c1;
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
233: FND_MSG_PUB.Add;
234: FND_MSG_PUB.Count_And_Get
235: (
236: p_count => x_msg_count ,
237: p_data => x_msg_data
230: CLOSE c1;
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
233: FND_MSG_PUB.Add;
234: FND_MSG_PUB.Count_And_Get
235: (
236: p_count => x_msg_count ,
237: p_data => x_msg_data
238: );
235: (
236: p_count => x_msg_count ,
237: p_data => x_msg_data
238: );
239: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
240: ROLLBACK TO Associate_Name_User;
241:
242: END Associate_Name_With_User;
243:
265: SAVEPOINT Disassociate_Name_User;
266:
267: -- Initialize message list if p_init_msg_list is set to TRUE.
268: IF FND_API.to_Boolean( p_init_msg_list ) THEN
269: FND_MSG_PUB.initialize;
270: END IF;
271:
272: OPEN c1;
273: FETCH c1 INTO l_system_id;
274: -- If there is no present link then insert.
275: IF c1%NOTFOUND THEN
276: x_return_status := FND_API.G_RET_STS_ERROR ;
277: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
278: FND_MSG_PUB.Add;
279: FND_MSG_PUB.Count_And_Get
280: (
281: p_count => x_msg_count ,
282: p_data => x_msg_data
275: IF c1%NOTFOUND THEN
276: x_return_status := FND_API.G_RET_STS_ERROR ;
277: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
278: FND_MSG_PUB.Add;
279: FND_MSG_PUB.Count_And_Get
280: (
281: p_count => x_msg_count ,
282: p_data => x_msg_data
283: );
280: (
281: p_count => x_msg_count ,
282: p_data => x_msg_data
283: );
284: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
285: ELSE
286: Disassociate_System_With_User (p_api_version_number,
287: p_init_msg_list,
288: p_commit,
300: WHEN OTHERS THEN
301: CLOSE c1;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
304: FND_MSG_PUB.Add;
305: FND_MSG_PUB.Count_And_Get
306: (
307: p_count => x_msg_count ,
308: p_data => x_msg_data
301: CLOSE c1;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
304: FND_MSG_PUB.Add;
305: FND_MSG_PUB.Count_And_Get
306: (
307: p_count => x_msg_count ,
308: p_data => x_msg_data
309: );
306: (
307: p_count => x_msg_count ,
308: p_data => x_msg_data
309: );
310: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
311: ROLLBACK TO Disassociate_Name_User;
312:
313: END Disassociate_Name_With_User;
314:
341: SAVEPOINT Associate_System_SR;
342:
343: -- Initialize message list if p_init_msg_list is set to TRUE.
344: IF FND_API.to_Boolean( p_init_msg_list ) THEN
345: FND_MSG_PUB.initialize;
346: END IF;
347:
348: OPEN c1;
349: FETCH c1 INTO l_dummy;
389: WHEN OTHERS THEN
390: CLOSE c1;
391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
392: FND_MESSAGE.SET_NAME('CS','CS_INSERT_UNEXP_ERR');
393: FND_MSG_PUB.Add;
394: FND_MSG_PUB.Count_And_Get (
395: p_count => x_msg_count ,
396: p_data => x_msg_data
397: );
390: CLOSE c1;
391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
392: FND_MESSAGE.SET_NAME('CS','CS_INSERT_UNEXP_ERR');
393: FND_MSG_PUB.Add;
394: FND_MSG_PUB.Count_And_Get (
395: p_count => x_msg_count ,
396: p_data => x_msg_data
397: );
398: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
394: FND_MSG_PUB.Count_And_Get (
395: p_count => x_msg_count ,
396: p_data => x_msg_data
397: );
398: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
399: ROLLBACK TO Associate_System_SR;
400:
401: END Associate_System_With_SR;
402:
429: SAVEPOINT Disassociate_System_SR;
430:
431: -- Initialize message list if p_init_msg_list is set to TRUE.
432: IF FND_API.to_Boolean( p_init_msg_list ) THEN
433: FND_MSG_PUB.initialize;
434: END IF;
435:
436: OPEN c1;
437: FETCH c1 INTO l_dummy;
438: -- If there is no present link then insert.
439: IF c1%NOTFOUND THEN
440: x_return_status := FND_API.G_RET_STS_ERROR ;
441: FND_MESSAGE.SET_NAME('CS','CS_NO_LINK_FOUND');
442: FND_MSG_PUB.Add;
443: FND_MSG_PUB.Count_And_Get(
444: p_count => x_msg_count ,
445: p_data => x_msg_data
446: );
439: IF c1%NOTFOUND THEN
440: x_return_status := FND_API.G_RET_STS_ERROR ;
441: FND_MESSAGE.SET_NAME('CS','CS_NO_LINK_FOUND');
442: FND_MSG_PUB.Add;
443: FND_MSG_PUB.Count_And_Get(
444: p_count => x_msg_count ,
445: p_data => x_msg_data
446: );
447: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
443: FND_MSG_PUB.Count_And_Get(
444: p_count => x_msg_count ,
445: p_data => x_msg_data
446: );
447: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
448: ELSE
449: -- Will only update the end_date of the links that have end_date = null
450: UPDATE CS_SYSTEM_SR_LINKS SET
451: end_date = sysdate,
465: WHEN OTHERS THEN
466: CLOSE c1;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: FND_MESSAGE.SET_NAME('CS','CS_UPDATE_UNEXP_ERR');
469: FND_MSG_PUB.Add;
470: FND_MSG_PUB.Count_And_Get(
471: p_count => x_msg_count ,
472: p_data => x_msg_data
473: );
466: CLOSE c1;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: FND_MESSAGE.SET_NAME('CS','CS_UPDATE_UNEXP_ERR');
469: FND_MSG_PUB.Add;
470: FND_MSG_PUB.Count_And_Get(
471: p_count => x_msg_count ,
472: p_data => x_msg_data
473: );
474: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
470: FND_MSG_PUB.Count_And_Get(
471: p_count => x_msg_count ,
472: p_data => x_msg_data
473: );
474: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
475: ROLLBACK TO Disassociate_System_SR;
476:
477:
478: END Disassociate_System_With_SR;
501: SAVEPOINT Associate_Name_SR;
502:
503: -- Initialize message list if p_init_msg_list is set to TRUE.
504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
505: FND_MSG_PUB.initialize;
506: END IF;
507:
508: OPEN c1;
509: FETCH c1 INTO l_system_id;
510: -- If there is no present link then insert.
511: IF c1%NOTFOUND THEN
512: x_return_status := FND_API.G_RET_STS_ERROR ;
513: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
514: FND_MSG_PUB.Add;
515: FND_MSG_PUB.Count_And_Get(
516: p_count => x_msg_count ,
517: p_data => x_msg_data
518: );
511: IF c1%NOTFOUND THEN
512: x_return_status := FND_API.G_RET_STS_ERROR ;
513: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
514: FND_MSG_PUB.Add;
515: FND_MSG_PUB.Count_And_Get(
516: p_count => x_msg_count ,
517: p_data => x_msg_data
518: );
519: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
515: FND_MSG_PUB.Count_And_Get(
516: p_count => x_msg_count ,
517: p_data => x_msg_data
518: );
519: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
520: ELSE
521: Associate_System_With_SR (p_api_version_number,
522: p_init_msg_list,
523: p_commit,
535: WHEN OTHERS THEN
536: CLOSE c1;
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
538: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
539: FND_MSG_PUB.Add;
540: FND_MSG_PUB.Count_And_Get
541: (
542: p_count => x_msg_count ,
543: p_data => x_msg_data
536: CLOSE c1;
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
538: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
539: FND_MSG_PUB.Add;
540: FND_MSG_PUB.Count_And_Get
541: (
542: p_count => x_msg_count ,
543: p_data => x_msg_data
544: );
541: (
542: p_count => x_msg_count ,
543: p_data => x_msg_data
544: );
545: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
546: ROLLBACK TO Associate_Name_SR;
547:
548: END Associate_Name_With_SR;
549:
571: SAVEPOINT Disassociate_Name_SR;
572:
573: -- Initialize message list if p_init_msg_list is set to TRUE.
574: IF FND_API.to_Boolean( p_init_msg_list ) THEN
575: FND_MSG_PUB.initialize;
576: END IF;
577:
578: OPEN c1;
579: FETCH c1 INTO l_system_id;
580: -- If there is no present link then insert.
581: IF c1%NOTFOUND THEN
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
584: FND_MSG_PUB.Add;
585: FND_MSG_PUB.Count_And_Get(
586: p_count => x_msg_count ,
587: p_data => x_msg_data
588: );
581: IF c1%NOTFOUND THEN
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_NOT_EXIST');
584: FND_MSG_PUB.Add;
585: FND_MSG_PUB.Count_And_Get(
586: p_count => x_msg_count ,
587: p_data => x_msg_data
588: );
589: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
585: FND_MSG_PUB.Count_And_Get(
586: p_count => x_msg_count ,
587: p_data => x_msg_data
588: );
589: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
590: ELSE
591: Disassociate_System_With_SR (p_api_version_number,
592: p_init_msg_list,
593: p_commit,
605: WHEN OTHERS THEN
606: CLOSE c1;
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
609: FND_MSG_PUB.Add;
610: FND_MSG_PUB.Count_And_Get
611: (
612: p_count => x_msg_count ,
613: p_data => x_msg_data
606: CLOSE c1;
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: FND_MESSAGE.SET_NAME('CS','CS_SYSTEM_NAME_UNEXP_ERR');
609: FND_MSG_PUB.Add;
610: FND_MSG_PUB.Count_And_Get
611: (
612: p_count => x_msg_count ,
613: p_data => x_msg_data
614: );
611: (
612: p_count => x_msg_count ,
613: p_data => x_msg_data
614: );
615: x_java_msg := FND_MSG_PUB.GET(1, FND_API.G_FALSE);
616: ROLLBACK TO Disassociate_Name_SR;
617:
618: END Disassociate_Name_With_SR;
619: