1: PACKAGE BODY IEU_SH_PVT AS
2: /* $Header: IEUSHVB.pls 115.19 2004/07/23 10:19:31 nveerara ship $ */
3: PROCEDURE UWQ_BEGIN_SESSION
4: ( P_API_VERSION IN NUMBER,
5: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
6: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
7: P_RESOURCE_ID IN NUMBER,
8: P_USER_ID IN NUMBER,
9: P_LOGIN_ID IN NUMBER DEFAULT NULL,
2: /* $Header: IEUSHVB.pls 115.19 2004/07/23 10:19:31 nveerara ship $ */
3: PROCEDURE UWQ_BEGIN_SESSION
4: ( P_API_VERSION IN NUMBER,
5: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
6: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
7: P_RESOURCE_ID IN NUMBER,
8: P_USER_ID IN NUMBER,
9: P_LOGIN_ID IN NUMBER DEFAULT NULL,
10: P_EXTENSION IN VARCHAR2 DEFAULT NULL,
28: BEGIN
29: l_object_version_number := 1;
30: l_active_flag := 'T';
31:
32: x_return_status := fnd_api.g_ret_sts_success;
33:
34: -- Check for API Version
35:
36: IF NOT fnd_api.compatible_api_call (
32: x_return_status := fnd_api.g_ret_sts_success;
33:
34: -- Check for API Version
35:
36: IF NOT fnd_api.compatible_api_call (
37: l_api_version,
38: p_api_version,
39: l_api_name,
40: g_pkg_name
39: l_api_name,
40: g_pkg_name
41: )
42: THEN
43: RAISE fnd_api.g_exc_unexpected_error;
44: END IF;
45:
46: -- Initialize Message list
47:
44: END IF;
45:
46: -- Initialize Message list
47:
48: IF fnd_api.to_boolean(p_init_msg_list)
49: THEN
50: FND_MSG_PUB.INITIALIZE;
51: END IF;
52:
81: P_APPLICATION_ID)
82: RETURNING SESSION_ID INTO X_SESSION_ID;
83:
84: if (sql%notfound) then
85: x_return_status := fnd_api.g_ret_sts_error;
86: end if;
87:
88: IF (x_return_status <> fnd_api.g_ret_sts_success)
89: THEN
84: if (sql%notfound) then
85: x_return_status := fnd_api.g_ret_sts_error;
86: end if;
87:
88: IF (x_return_status <> fnd_api.g_ret_sts_success)
89: THEN
90:
91: x_return_status := fnd_api.g_ret_sts_error;
92:
87:
88: IF (x_return_status <> fnd_api.g_ret_sts_success)
89: THEN
90:
91: x_return_status := fnd_api.g_ret_sts_error;
92:
93: l_token_str := 'USER_ID : '||p_user_id||
94: ' RESOURCE_ID : '||p_resource_id;
95:
103: p_count => x_msg_count,
104: p_data => x_msg_data
105: );
106:
107: RAISE fnd_api.g_exc_error;
108: END IF;
109:
110: COMMIT;
111:
110: COMMIT;
111:
112: EXCEPTION
113:
114: WHEN fnd_api.g_exc_error THEN
115:
116: ROLLBACK;
117: x_return_status := fnd_api.g_ret_sts_error;
118:
113:
114: WHEN fnd_api.g_exc_error THEN
115:
116: ROLLBACK;
117: x_return_status := fnd_api.g_ret_sts_error;
118:
119: fnd_msg_pub.Count_and_Get
120: (
121: p_count => x_msg_count,
121: p_count => x_msg_count,
122: p_data => x_msg_data
123: );
124:
125: WHEN fnd_api.g_exc_unexpected_error THEN
126:
127: ROLLBACK;
128: x_return_status := fnd_api.g_ret_sts_unexp_error;
129:
124:
125: WHEN fnd_api.g_exc_unexpected_error THEN
126:
127: ROLLBACK;
128: x_return_status := fnd_api.g_ret_sts_unexp_error;
129:
130: fnd_msg_pub.Count_and_Get
131: (
132: p_count => x_msg_count,
136:
137: WHEN OTHERS THEN
138:
139: ROLLBACK;
140: x_return_status := fnd_api.g_ret_sts_unexp_error;
141:
142: IF FND_MSG_PUB.Check_msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
143: THEN
144:
153: END UWQ_BEGIN_SESSION;
154:
155: PROCEDURE UWQ_END_SESSION
156: ( P_API_VERSION IN NUMBER,
157: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
158: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
159: P_SESSION_ID IN NUMBER,
160: P_END_REASON_CODE IN VARCHAR2 DEFAULT NULL,
161: X_MSG_COUNT OUT NOCOPY NUMBER,
154:
155: PROCEDURE UWQ_END_SESSION
156: ( P_API_VERSION IN NUMBER,
157: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
158: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
159: P_SESSION_ID IN NUMBER,
160: P_END_REASON_CODE IN VARCHAR2 DEFAULT NULL,
161: X_MSG_COUNT OUT NOCOPY NUMBER,
162: X_MSG_DATA OUT NOCOPY VARCHAR2,
170: l_token_str VARCHAR2(4000) := '';
171:
172: BEGIN
173:
174: x_return_status := fnd_api.g_ret_sts_success;
175:
176: -- Check for API Version
177:
178: IF NOT fnd_api.compatible_api_call (
174: x_return_status := fnd_api.g_ret_sts_success;
175:
176: -- Check for API Version
177:
178: IF NOT fnd_api.compatible_api_call (
179: l_api_version,
180: p_api_version,
181: l_api_name,
182: g_pkg_name
181: l_api_name,
182: g_pkg_name
183: )
184: THEN
185: RAISE fnd_api.g_exc_unexpected_error;
186: END IF;
187:
188: -- Initialize Message list
189:
186: END IF;
187:
188: -- Initialize Message list
189:
190: IF fnd_api.to_boolean(p_init_msg_list)
191: THEN
192: FND_MSG_PUB.INITIALIZE;
193: END IF;
194:
201: LAST_UPDATE_DATE = SYSDATE
202: WHERE SESSION_ID = P_SESSION_ID;
203:
204: if (sql%notfound) then
205: x_return_status := fnd_api.g_ret_sts_error;
206: end if;
207:
208:
209: IF (x_return_status <> fnd_api.g_ret_sts_success)
205: x_return_status := fnd_api.g_ret_sts_error;
206: end if;
207:
208:
209: IF (x_return_status <> fnd_api.g_ret_sts_success)
210: THEN
211:
212: x_return_status := fnd_api.g_ret_sts_error;
213:
208:
209: IF (x_return_status <> fnd_api.g_ret_sts_success)
210: THEN
211:
212: x_return_status := fnd_api.g_ret_sts_error;
213:
214: l_token_str := 'SESSION_ID : '||p_session_id;
215:
216: FND_MESSAGE.SET_NAME('IEU', 'IEU_END_SESSION_FAILED');
223: p_count => x_msg_count,
224: p_data => x_msg_data
225: );
226:
227: RAISE fnd_api.g_exc_error;
228: END IF;
229:
230: COMMIT;
231:
230: COMMIT;
231:
232: EXCEPTION
233:
234: WHEN fnd_api.g_exc_error THEN
235:
236: ROLLBACK;
237: x_return_status := fnd_api.g_ret_sts_error;
238:
233:
234: WHEN fnd_api.g_exc_error THEN
235:
236: ROLLBACK;
237: x_return_status := fnd_api.g_ret_sts_error;
238:
239: fnd_msg_pub.Count_and_Get
240: (
241: p_count => x_msg_count,
241: p_count => x_msg_count,
242: p_data => x_msg_data
243: );
244:
245: WHEN fnd_api.g_exc_unexpected_error THEN
246:
247: ROLLBACK;
248: x_return_status := fnd_api.g_ret_sts_unexp_error;
249:
244:
245: WHEN fnd_api.g_exc_unexpected_error THEN
246:
247: ROLLBACK;
248: x_return_status := fnd_api.g_ret_sts_unexp_error;
249:
250: fnd_msg_pub.Count_and_Get
251: (
252: p_count => x_msg_count,
256:
257: WHEN OTHERS THEN
258:
259: ROLLBACK;
260: x_return_status := fnd_api.g_ret_sts_unexp_error;
261:
262: IF FND_MSG_PUB.Check_msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
263: THEN
264:
272: END UWQ_END_SESSION;
273:
274: PROCEDURE UWQ_BEGIN_ACTIVITY
275: ( P_API_VERSION IN NUMBER,
276: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
277: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
278: P_SESSION_ID IN NUMBER,
279: -- P_ACTIVITY_TYPE_ID IN NUMBER,
280: P_ACTIVITY_TYPE_CODE IN VARCHAR2,
273:
274: PROCEDURE UWQ_BEGIN_ACTIVITY
275: ( P_API_VERSION IN NUMBER,
276: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
277: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
278: P_SESSION_ID IN NUMBER,
279: -- P_ACTIVITY_TYPE_ID IN NUMBER,
280: P_ACTIVITY_TYPE_CODE IN VARCHAR2,
281: P_LAST_ACTIVITY_ID IN NUMBER DEFAULT NULL,
318: l_activity_type_id NUMBER;
319:
320: BEGIN
321:
322: x_return_status := fnd_api.g_ret_sts_success;
323:
324: -- Check for API Version
325:
326: IF NOT fnd_api.compatible_api_call (
322: x_return_status := fnd_api.g_ret_sts_success;
323:
324: -- Check for API Version
325:
326: IF NOT fnd_api.compatible_api_call (
327: l_api_version,
328: p_api_version,
329: l_api_name,
330: g_pkg_name
329: l_api_name,
330: g_pkg_name
331: )
332: THEN
333: RAISE fnd_api.g_exc_unexpected_error;
334: END IF;
335:
336: -- Initialize Message list
337:
334: END IF;
335:
336: -- Initialize Message list
337:
338: IF fnd_api.to_boolean(p_init_msg_list)
339: THEN
340: FND_MSG_PUB.INITIALIZE;
341: END IF;
342:
446: P_CATEGORY_VALUE)
447: RETURNING ACTIVITY_ID INTO X_ACTIVITY_ID;
448:
449: if (sql%notfound) then
450: x_return_status := fnd_api.g_ret_sts_error;
451: l_token_str := 'USER_ID : '|| p_user_id ||
452: ' SESSION_ID : '||p_session_id;
453:
454: FND_MESSAGE.SET_NAME('IEU', 'IEU_CREATE_ACTIVITY_FAILED');
461: p_count => x_msg_count,
462: p_data => x_msg_data
463: );
464:
465: RAISE fnd_api.g_exc_error;
466: end if;
467:
468: COMMIT;
469:
486: END IF;
487:
488:
489: if (l_return_status <> 'S') then
490: x_return_status := fnd_api.g_ret_sts_error;
491: end if;
492:
493: IF (x_return_status <> fnd_api.g_ret_sts_success)
494: THEN
489: if (l_return_status <> 'S') then
490: x_return_status := fnd_api.g_ret_sts_error;
491: end if;
492:
493: IF (x_return_status <> fnd_api.g_ret_sts_success)
494: THEN
495:
496: x_return_status := fnd_api.g_ret_sts_error;
497:
492:
493: IF (x_return_status <> fnd_api.g_ret_sts_success)
494: THEN
495:
496: x_return_status := fnd_api.g_ret_sts_error;
497:
498: l_token_str := 'USER_ID : '|| p_user_id ||
499: ' SESSION_ID : '||p_session_id;
500:
508: p_count => x_msg_count,
509: p_data => x_msg_data
510: );
511:
512: RAISE fnd_api.g_exc_error;
513: END IF;
514:
515: -- In any Autonomous Transaction, COMMIT and ROLLBACK end the active autonomous transaction but do not exit the autonomous routine.
516: -- when one transaction ends, the next SQL statement begins another transaction. So we have to COMMIT this transaction again.
518: COMMIT;
519:
520: EXCEPTION
521:
522: WHEN fnd_api.g_exc_error THEN
523:
524: ROLLBACK;
525: x_return_status := fnd_api.g_ret_sts_error;
526:
521:
522: WHEN fnd_api.g_exc_error THEN
523:
524: ROLLBACK;
525: x_return_status := fnd_api.g_ret_sts_error;
526:
527: fnd_msg_pub.Count_and_Get
528: (
529: p_count => x_msg_count,
529: p_count => x_msg_count,
530: p_data => x_msg_data
531: );
532:
533: WHEN fnd_api.g_exc_unexpected_error THEN
534:
535: ROLLBACK;
536: x_return_status := fnd_api.g_ret_sts_unexp_error;
537:
532:
533: WHEN fnd_api.g_exc_unexpected_error THEN
534:
535: ROLLBACK;
536: x_return_status := fnd_api.g_ret_sts_unexp_error;
537:
538: fnd_msg_pub.Count_and_Get
539: (
540: p_count => x_msg_count,
544:
545: WHEN OTHERS THEN
546:
547: ROLLBACK;
548: x_return_status := fnd_api.g_ret_sts_unexp_error;
549:
550: IF FND_MSG_PUB.Check_msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
551: THEN
552:
562:
563:
564: PROCEDURE UWQ_UPDATE_ACTIVITY
565: ( P_API_VERSION IN NUMBER,
566: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
567: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
568: P_ACTIVITY_ID IN NUMBER,
569: P_INTERMEDIATE_STATE_CODE IN VARCHAR2 DEFAULT NULL,
570: P_MEDIA_TYPE_ID IN NUMBER DEFAULT NULL,
563:
564: PROCEDURE UWQ_UPDATE_ACTIVITY
565: ( P_API_VERSION IN NUMBER,
566: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
567: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
568: P_ACTIVITY_ID IN NUMBER,
569: P_INTERMEDIATE_STATE_CODE IN VARCHAR2 DEFAULT NULL,
570: P_MEDIA_TYPE_ID IN NUMBER DEFAULT NULL,
571: P_MEDIA_ID IN NUMBER DEFAULT NULL,
582: l_token_str VARCHAR2(4000) := '';
583:
584: BEGIN
585:
586: x_return_status := fnd_api.g_ret_sts_success;
587:
588: -- Check for API Version
589:
590: IF NOT fnd_api.compatible_api_call (
586: x_return_status := fnd_api.g_ret_sts_success;
587:
588: -- Check for API Version
589:
590: IF NOT fnd_api.compatible_api_call (
591: l_api_version,
592: p_api_version,
593: l_api_name,
594: g_pkg_name
593: l_api_name,
594: g_pkg_name
595: )
596: THEN
597: RAISE fnd_api.g_exc_unexpected_error;
598: END IF;
599:
600: -- Initialize Message list
601:
598: END IF;
599:
600: -- Initialize Message list
601:
602: IF fnd_api.to_boolean(p_init_msg_list)
603: THEN
604: FND_MSG_PUB.INITIALIZE;
605: END IF;
606:
612: STATE_CODE = P_INTERMEDIATE_STATE_CODE
613: WHERE ACTIVITY_ID = P_ACTIVITY_ID;
614:
615: if (sql%notfound) then
616: x_return_status := fnd_api.g_ret_sts_error;
617: end if;
618:
619: END IF;
620:
647: WHERE ACTIVITY_ID = P_ACTIVITY_ID;
648:
649: END IF;
650:
651: IF (x_return_status <> fnd_api.g_ret_sts_success)
652: THEN
653:
654: x_return_status := fnd_api.g_ret_sts_error;
655:
650:
651: IF (x_return_status <> fnd_api.g_ret_sts_success)
652: THEN
653:
654: x_return_status := fnd_api.g_ret_sts_error;
655:
656: l_token_str := 'ACTIVITY_ID : '||p_activity_id;
657:
658: FND_MESSAGE.SET_NAME('IEU', 'IEU_UPDATE_ACTIVITY_FAILED');
665: p_count => x_msg_count,
666: p_data => x_msg_data
667: );
668:
669: RAISE fnd_api.g_exc_error;
670: END IF;
671:
672: COMMIT;
673:
672: COMMIT;
673:
674: EXCEPTION
675:
676: WHEN fnd_api.g_exc_error THEN
677:
678: ROLLBACK;
679: x_return_status := fnd_api.g_ret_sts_error;
680:
675:
676: WHEN fnd_api.g_exc_error THEN
677:
678: ROLLBACK;
679: x_return_status := fnd_api.g_ret_sts_error;
680:
681: fnd_msg_pub.Count_and_Get
682: (
683: p_count => x_msg_count,
683: p_count => x_msg_count,
684: p_data => x_msg_data
685: );
686:
687: WHEN fnd_api.g_exc_unexpected_error THEN
688:
689: ROLLBACK;
690: x_return_status := fnd_api.g_ret_sts_unexp_error;
691:
686:
687: WHEN fnd_api.g_exc_unexpected_error THEN
688:
689: ROLLBACK;
690: x_return_status := fnd_api.g_ret_sts_unexp_error;
691:
692: fnd_msg_pub.Count_and_Get
693: (
694: p_count => x_msg_count,
698:
699: WHEN OTHERS THEN
700:
701: ROLLBACK;
702: x_return_status := fnd_api.g_ret_sts_unexp_error;
703:
704: IF FND_MSG_PUB.Check_msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
705: THEN
706:
716:
717:
718: PROCEDURE UWQ_END_ACTIVITY
719: ( P_API_VERSION IN NUMBER,
720: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
721: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
722: P_ACTIVITY_ID IN NUMBER,
723: P_LAST_ACTIVITY_ID IN NUMBER DEFAULT NULL,
724: P_MEDIA_TYPE_ID IN NUMBER DEFAULT NULL,
717:
718: PROCEDURE UWQ_END_ACTIVITY
719: ( P_API_VERSION IN NUMBER,
720: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
721: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
722: P_ACTIVITY_ID IN NUMBER,
723: P_LAST_ACTIVITY_ID IN NUMBER DEFAULT NULL,
724: P_MEDIA_TYPE_ID IN NUMBER DEFAULT NULL,
725: P_MEDIA_ID IN NUMBER DEFAULT NULL,
739: -- l_session_id NUMBER;
740:
741: BEGIN
742:
743: x_return_status := fnd_api.g_ret_sts_success;
744:
745: -- Check for API Version
746:
747: IF NOT fnd_api.compatible_api_call (
743: x_return_status := fnd_api.g_ret_sts_success;
744:
745: -- Check for API Version
746:
747: IF NOT fnd_api.compatible_api_call (
748: l_api_version,
749: p_api_version,
750: l_api_name,
751: g_pkg_name
750: l_api_name,
751: g_pkg_name
752: )
753: THEN
754: RAISE fnd_api.g_exc_unexpected_error;
755: END IF;
756:
757: -- Initialize Message list
758:
755: END IF;
756:
757: -- Initialize Message list
758:
759: IF fnd_api.to_boolean(p_init_msg_list)
760: THEN
761: FND_MSG_PUB.INITIALIZE;
762: END IF;
763:
788: LAST_UPDATE_DATE = l_end_date_time
789: WHERE ACTIVITY_ID = P_ACTIVITY_ID;
790:
791: if (sql%notfound) then
792: x_return_status := fnd_api.g_ret_sts_error;
793: end if;
794:
795: IF (x_return_status <> fnd_api.g_ret_sts_success)
796: THEN
791: if (sql%notfound) then
792: x_return_status := fnd_api.g_ret_sts_error;
793: end if;
794:
795: IF (x_return_status <> fnd_api.g_ret_sts_success)
796: THEN
797:
798: x_return_status := fnd_api.g_ret_sts_error;
799:
794:
795: IF (x_return_status <> fnd_api.g_ret_sts_success)
796: THEN
797:
798: x_return_status := fnd_api.g_ret_sts_error;
799:
800: l_token_str := 'ACTIVITY_ID : '||p_activity_id;
801:
802: FND_MESSAGE.SET_NAME('IEU', 'IEU_END_ACTIVITY_FAILED');
809: p_count => x_msg_count,
810: p_data => x_msg_data
811: );
812:
813: RAISE fnd_api.g_exc_error;
814: END IF;
815:
816: COMMIT;
817:
817:
818:
819: EXCEPTION
820:
821: WHEN fnd_api.g_exc_error THEN
822:
823: ROLLBACK;
824: x_return_status := fnd_api.g_ret_sts_error;
825:
820:
821: WHEN fnd_api.g_exc_error THEN
822:
823: ROLLBACK;
824: x_return_status := fnd_api.g_ret_sts_error;
825:
826: fnd_msg_pub.Count_and_Get
827: (
828: p_count => x_msg_count,
828: p_count => x_msg_count,
829: p_data => x_msg_data
830: );
831:
832: WHEN fnd_api.g_exc_unexpected_error THEN
833:
834: ROLLBACK;
835: x_return_status := fnd_api.g_ret_sts_unexp_error;
836:
831:
832: WHEN fnd_api.g_exc_unexpected_error THEN
833:
834: ROLLBACK;
835: x_return_status := fnd_api.g_ret_sts_unexp_error;
836:
837: fnd_msg_pub.Count_and_Get
838: (
839: p_count => x_msg_count,
843:
844: WHEN OTHERS THEN
845:
846: ROLLBACK;
847: x_return_status := fnd_api.g_ret_sts_unexp_error;
848:
849: IF FND_MSG_PUB.Check_msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
850: THEN
851:
860: END UWQ_END_ACTIVITY;
861:
862: PROCEDURE UWQ_BREAK_TRANSITION
863: ( P_API_VERSION IN NUMBER,
864: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
865: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
866: P_SESSION_ID IN NUMBER,
867: P_ACTIVITY_ID IN NUMBER,
868: -- P_ACTIVITY_TYPE_ID IN NUMBER,
861:
862: PROCEDURE UWQ_BREAK_TRANSITION
863: ( P_API_VERSION IN NUMBER,
864: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
865: P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
866: P_SESSION_ID IN NUMBER,
867: P_ACTIVITY_ID IN NUMBER,
868: -- P_ACTIVITY_TYPE_ID IN NUMBER,
869: P_ACTIVITY_TYPE_CODE IN VARCHAR2,