100: -- Check if user is login and has the required privilege.
101: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
102: -- User is not login.
103: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
104: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
105: FND_MSG_PUB.Add;
106: END IF;
107: RAISE FND_API.G_EXC_ERROR;
108: END IF;
118: );
119: IF (l_admin_flag <> FND_API.G_TRUE) THEN
120: -- User is not an administrator.
121: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
122: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
123: FND_MSG_PUB.Add;
124: END IF;
125: RAISE FND_API.G_EXC_ERROR;
126: END IF;
136: IF Check_DupPerspectName_csr%FOUND THEN
137: -- The name is already used
138: CLOSE Check_DupPerspectName_csr;
139: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
140: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_DUPLICATED');
141: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
142: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
143: FND_MSG_PUB.Add;
144: END IF;
137: -- The name is already used
138: CLOSE Check_DupPerspectName_csr;
139: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
140: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_DUPLICATED');
141: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
142: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
143: FND_MSG_PUB.Add;
144: END IF;
145: RAISE FND_API.G_EXC_ERROR;
138: CLOSE Check_DupPerspectName_csr;
139: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
140: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_DUPLICATED');
141: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
142: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
143: FND_MSG_PUB.Add;
144: END IF;
145: RAISE FND_API.G_EXC_ERROR;
146: END IF;
174: COMMIT WORK;
175: END IF;
176: -- Debug Message
177: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
178: FND_MESSAGE.Set_name('AMV','PVT Add Persp. API: End');
179: FND_MSG_PUB.Add;
180: END IF;
181: --Standard call to get message count and if count=1, get the message
182: FND_MSG_PUB.Count_And_Get (
269: -- Check if user is login and has the required privilege.
270: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
271: -- User is not login.
272: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
273: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
274: FND_MSG_PUB.Add;
275: END IF;
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
287: );
288: IF (l_admin_flag <> FND_API.G_TRUE) THEN
289: -- User is not an administrator.
290: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
291: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
292: FND_MSG_PUB.Add;
293: END IF;
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
305: IF AMV_UTILITY_PVT.Is_PerspectiveIdValid(p_perspective_id) = TRUE THEN
306: l_perspective_id := p_perspective_id;
307: ELSE
308: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
309: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
310: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
311: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
312: FND_MSG_PUB.Add;
313: END IF;
306: l_perspective_id := p_perspective_id;
307: ELSE
308: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
309: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
310: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
311: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
312: FND_MSG_PUB.Add;
313: END IF;
314: RAISE FND_API.G_EXC_ERROR;
307: ELSE
308: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
309: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
310: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
311: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
312: FND_MSG_PUB.Add;
313: END IF;
314: RAISE FND_API.G_EXC_ERROR;
315: END IF;
318: FETCH Check_ValidPerspectName_csr Into l_perspective_id;
319: IF (Check_ValidPerspectName_csr%NOTFOUND) THEN
320: CLOSE Check_ValidPerspectName_csr;
321: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
322: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
323: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
324: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
325: FND_MSG_PUB.Add;
326: END IF;
319: IF (Check_ValidPerspectName_csr%NOTFOUND) THEN
320: CLOSE Check_ValidPerspectName_csr;
321: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
322: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
323: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
324: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
325: FND_MSG_PUB.Add;
326: END IF;
327: RAISE FND_API.G_EXC_ERROR;
320: CLOSE Check_ValidPerspectName_csr;
321: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
322: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
323: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
324: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
325: FND_MSG_PUB.Add;
326: END IF;
327: RAISE FND_API.G_EXC_ERROR;
328: END IF;
328: END IF;
329: CLOSE Check_ValidPerspectName_csr;
330: ELSE
331: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
332: FND_MESSAGE.Set_name('AMV','AMV_NEED_RECORD_NAME_OR_ID');
333: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
334: FND_MSG_PUB.Add;
335: END IF;
336: RAISE FND_API.G_EXC_ERROR;
329: CLOSE Check_ValidPerspectName_csr;
330: ELSE
331: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
332: FND_MESSAGE.Set_name('AMV','AMV_NEED_RECORD_NAME_OR_ID');
333: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
334: FND_MSG_PUB.Add;
335: END IF;
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
450: -- Check if user is login and has the required privilege.
451: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
452: -- User is not login.
453: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
454: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
455: FND_MSG_PUB.Add;
456: END IF;
457: RAISE FND_API.G_EXC_ERROR;
458: END IF;
468: );
469: IF (l_admin_flag <> FND_API.G_TRUE) THEN
470: -- User is not an administrator.
471: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
472: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
473: FND_MSG_PUB.Add;
474: END IF;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
485: FETCH Check_DupPerspectName_csr INTO l_perspective_id;
486: IF Check_DupPerspectName_csr%FOUND THEN
487: CLOSE Check_DupPerspectName_csr;
488: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
489: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_DUPLICATED');
490: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
491: FND_MESSAGE.Set_Token('NAME', p_perspective_new_name);
492: FND_MSG_PUB.Add;
493: END IF;
486: IF Check_DupPerspectName_csr%FOUND THEN
487: CLOSE Check_DupPerspectName_csr;
488: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
489: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_DUPLICATED');
490: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
491: FND_MESSAGE.Set_Token('NAME', p_perspective_new_name);
492: FND_MSG_PUB.Add;
493: END IF;
494: RAISE FND_API.G_EXC_ERROR;
487: CLOSE Check_DupPerspectName_csr;
488: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
489: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_DUPLICATED');
490: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
491: FND_MESSAGE.Set_Token('NAME', p_perspective_new_name);
492: FND_MSG_PUB.Add;
493: END IF;
494: RAISE FND_API.G_EXC_ERROR;
495: END IF;
500: IF AMV_UTILITY_PVT.Is_PerspectiveIdValid(p_perspective_id) = TRUE THEN
501: l_perspective_id := p_perspective_id;
502: ELSE
503: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
504: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
505: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
506: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
507: FND_MSG_PUB.Add;
508: END IF;
501: l_perspective_id := p_perspective_id;
502: ELSE
503: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
504: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
505: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
506: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
507: FND_MSG_PUB.Add;
508: END IF;
509: RAISE FND_API.G_EXC_ERROR;
502: ELSE
503: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
504: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
505: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
506: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
507: FND_MSG_PUB.Add;
508: END IF;
509: RAISE FND_API.G_EXC_ERROR;
510: END IF;
513: FETCH Check_ValidPerspectName_csr Into l_perspective_id;
514: IF (Check_ValidPerspectName_csr%NOTFOUND) THEN
515: CLOSE Check_ValidPerspectName_csr;
516: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
517: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
518: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
519: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
520: FND_MSG_PUB.Add;
521: END IF;
514: IF (Check_ValidPerspectName_csr%NOTFOUND) THEN
515: CLOSE Check_ValidPerspectName_csr;
516: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
517: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
518: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
519: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
520: FND_MSG_PUB.Add;
521: END IF;
522: RAISE FND_API.G_EXC_ERROR;
515: CLOSE Check_ValidPerspectName_csr;
516: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
517: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
518: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
519: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
520: FND_MSG_PUB.Add;
521: END IF;
522: RAISE FND_API.G_EXC_ERROR;
523: END IF;
523: END IF;
524: CLOSE Check_ValidPerspectName_csr;
525: ELSE
526: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
527: FND_MESSAGE.Set_name('AMV','AMV_NEED_RECORD_NAME_OR_ID');
528: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
529: FND_MSG_PUB.Add;
530: END IF;
531: RAISE FND_API.G_EXC_ERROR;
524: CLOSE Check_ValidPerspectName_csr;
525: ELSE
526: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
527: FND_MESSAGE.Set_name('AMV','AMV_NEED_RECORD_NAME_OR_ID');
528: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
529: FND_MSG_PUB.Add;
530: END IF;
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
550: COMMIT WORK;
551: END IF;
552: -- Debug Message
553: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
554: FND_MESSAGE.Set_name('AMV','PVT Update Persp. API: End');
555: FND_MSG_PUB.Add;
556: END IF;
557: --Standard call to get message count and if count=1, get the message
558: FND_MSG_PUB.Count_And_Get (
647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648: END IF;
649: -- Debug Message
650: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
651: FND_MESSAGE.Set_name('AMV','PVT Get Persp. API: Start');
652: FND_MSG_PUB.Add;
653: END IF;
654: --Initialize message list if p_init_msg_list is TRUE.
655: IF FND_API.To_Boolean (p_init_msg_list) THEN
669: -- Check if user is login and has the required privilege.
670: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
671: -- User is not login.
672: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
673: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
674: FND_MSG_PUB.Add;
675: END IF;
676: RAISE FND_API.G_EXC_ERROR;
677: END IF;
686: IF AMV_UTILITY_PVT.Is_PerspectiveIdValid(p_perspective_id) = TRUE THEN
687: l_perspective_id := p_perspective_id;
688: ELSE
689: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
690: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
691: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
692: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
693: FND_MSG_PUB.Add;
694: END IF;
687: l_perspective_id := p_perspective_id;
688: ELSE
689: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
690: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
691: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
692: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
693: FND_MSG_PUB.Add;
694: END IF;
695: RAISE FND_API.G_EXC_ERROR;
688: ELSE
689: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
690: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
691: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
692: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
693: FND_MSG_PUB.Add;
694: END IF;
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
699: FETCH Check_ValidPerspectName_csr Into l_perspective_id;
700: IF (Check_ValidPerspectName_csr%NOTFOUND) THEN
701: CLOSE Check_ValidPerspectName_csr;
702: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
703: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
704: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
705: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
706: FND_MSG_PUB.Add;
707: END IF;
700: IF (Check_ValidPerspectName_csr%NOTFOUND) THEN
701: CLOSE Check_ValidPerspectName_csr;
702: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
703: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
704: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
705: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
706: FND_MSG_PUB.Add;
707: END IF;
708: RAISE FND_API.G_EXC_ERROR;
701: CLOSE Check_ValidPerspectName_csr;
702: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
703: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NAME_MISSING');
704: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
705: FND_MESSAGE.Set_Token('NAME', p_perspective_name);
706: FND_MSG_PUB.Add;
707: END IF;
708: RAISE FND_API.G_EXC_ERROR;
709: END IF;
709: END IF;
710: CLOSE Check_ValidPerspectName_csr;
711: ELSE
712: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
713: FND_MESSAGE.Set_name('AMV','AMV_NEED_RECORD_NAME_OR_ID');
714: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
715: FND_MSG_PUB.Add;
716: END IF;
717: RAISE FND_API.G_EXC_ERROR;
710: CLOSE Check_ValidPerspectName_csr;
711: ELSE
712: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
713: FND_MESSAGE.Set_name('AMV','AMV_NEED_RECORD_NAME_OR_ID');
714: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
715: FND_MSG_PUB.Add;
716: END IF;
717: RAISE FND_API.G_EXC_ERROR;
718: END IF;
721: FETCH Get_PerspRecord_csr INTO l_perspective_rec;
722: IF (Get_PerspRecord_csr%NOTFOUND) THEN
723: CLOSE Get_PerspRecord_csr;
724: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
725: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NOT_FOUND');
726: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
727: FND_MSG_PUB.Add;
728: END IF;
729: RAISE FND_API.G_EXC_ERROR;
722: IF (Get_PerspRecord_csr%NOTFOUND) THEN
723: CLOSE Get_PerspRecord_csr;
724: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
725: FND_MESSAGE.Set_name('AMV','AMV_RECORD_NOT_FOUND');
726: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
727: FND_MSG_PUB.Add;
728: END IF;
729: RAISE FND_API.G_EXC_ERROR;
730: ELSE
863: -- Check if user is login and has the required privilege.
864: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
865: -- User is not login.
866: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
867: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
868: FND_MSG_PUB.Add;
869: END IF;
870: RAISE FND_API.G_EXC_ERROR;
871: END IF;
914: --
915: --dbms_output.put_line('sql stmt = '|| substr(l_sql_statement, 1, 80));
916: --dbms_output.put_line(substr(l_sql_statement, 81, 80));
917: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
918: FND_MESSAGE.Set_name('AMV','AMV_API_DEBUG_MESSAGE');
919: FND_MESSAGE.Set_Token('ROW', l_sql_statement);
920: FND_MSG_PUB.Add;
921: --
922: FND_MESSAGE.Set_name('AMV','AMV_API_DEBUG_MESSAGE');
915: --dbms_output.put_line('sql stmt = '|| substr(l_sql_statement, 1, 80));
916: --dbms_output.put_line(substr(l_sql_statement, 81, 80));
917: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
918: FND_MESSAGE.Set_name('AMV','AMV_API_DEBUG_MESSAGE');
919: FND_MESSAGE.Set_Token('ROW', l_sql_statement);
920: FND_MSG_PUB.Add;
921: --
922: FND_MESSAGE.Set_name('AMV','AMV_API_DEBUG_MESSAGE');
923: FND_MESSAGE.Set_Token('ROW', l_sql_statement2);
918: FND_MESSAGE.Set_name('AMV','AMV_API_DEBUG_MESSAGE');
919: FND_MESSAGE.Set_Token('ROW', l_sql_statement);
920: FND_MSG_PUB.Add;
921: --
922: FND_MESSAGE.Set_name('AMV','AMV_API_DEBUG_MESSAGE');
923: FND_MESSAGE.Set_Token('ROW', l_sql_statement2);
924: FND_MSG_PUB.Add;
925: END IF;
926: --Execute the SQL statements to get the total count:
919: FND_MESSAGE.Set_Token('ROW', l_sql_statement);
920: FND_MSG_PUB.Add;
921: --
922: FND_MESSAGE.Set_name('AMV','AMV_API_DEBUG_MESSAGE');
923: FND_MESSAGE.Set_Token('ROW', l_sql_statement2);
924: FND_MSG_PUB.Add;
925: END IF;
926: --Execute the SQL statements to get the total count:
927: IF (p_subset_request_obj.return_total_count_flag = FND_API.G_TRUE) THEN
1100: -- Check if user is login and has the required privilege.
1101: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1102: -- User is not login.
1103: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1104: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1105: FND_MSG_PUB.Add;
1106: END IF;
1107: RAISE FND_API.G_EXC_ERROR;
1108: END IF;
1118: );
1119: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1120: -- User is not an administrator.
1121: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1122: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1123: FND_MSG_PUB.Add;
1124: END IF;
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1132: END IF;
1133: -- Check if item id is valid.
1134: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1135: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1136: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1137: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1138: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1139: FND_MSG_PUB.Add;
1140: END IF;
1133: -- Check if item id is valid.
1134: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1135: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1136: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1137: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1138: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1139: FND_MSG_PUB.Add;
1140: END IF;
1141: RAISE FND_API.G_EXC_ERROR;
1134: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1135: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1136: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1137: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1138: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1139: FND_MSG_PUB.Add;
1140: END IF;
1141: RAISE FND_API.G_EXC_ERROR;
1142: END IF;
1148: IF (Check_ItemPerspectives_csr%FOUND) THEN
1149: CLOSE Check_ItemPerspectives_csr;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1152: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1153: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1154: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1155: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1156: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1149: CLOSE Check_ItemPerspectives_csr;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1152: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1153: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1154: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1155: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1156: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1157: FND_MSG_PUB.Add;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1152: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1153: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1154: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1155: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1156: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1157: FND_MSG_PUB.Add;
1158: END IF;
1151: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1152: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1153: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1154: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1155: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1156: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1157: FND_MSG_PUB.Add;
1158: END IF;
1159: ELSE
1152: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1153: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1154: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1155: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1156: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1157: FND_MSG_PUB.Add;
1158: END IF;
1159: ELSE
1160: CLOSE Check_ItemPerspectives_csr;
1187: );
1188: ELSE
1189: x_return_status := FND_API.G_RET_STS_ERROR;
1190: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1191: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1192: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
1193: FND_MESSAGE.Set_Token('ID',
1194: to_char( nvl(l_perspective_id, -1) ) );
1195: FND_MSG_PUB.Add;
1188: ELSE
1189: x_return_status := FND_API.G_RET_STS_ERROR;
1190: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1191: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1192: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
1193: FND_MESSAGE.Set_Token('ID',
1194: to_char( nvl(l_perspective_id, -1) ) );
1195: FND_MSG_PUB.Add;
1196: END IF;
1189: x_return_status := FND_API.G_RET_STS_ERROR;
1190: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1191: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1192: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
1193: FND_MESSAGE.Set_Token('ID',
1194: to_char( nvl(l_perspective_id, -1) ) );
1195: FND_MSG_PUB.Add;
1196: END IF;
1197: END IF;
1303: -- Check if user is login and has the required privilege.
1304: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1305: -- User is not login.
1306: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1307: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1308: FND_MSG_PUB.Add;
1309: END IF;
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1321: );
1322: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1323: -- User is not an administrator.
1324: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1325: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1326: FND_MSG_PUB.Add;
1327: END IF;
1328: RAISE FND_API.G_EXC_ERROR;
1329: END IF;
1335: END IF;
1336: -- Check if item id is valid.
1337: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1338: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1339: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1340: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1341: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1342: FND_MSG_PUB.Add;
1343: END IF;
1336: -- Check if item id is valid.
1337: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1338: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1339: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1340: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1341: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1342: FND_MSG_PUB.Add;
1343: END IF;
1344: RAISE FND_API.G_EXC_ERROR;
1337: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1338: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1339: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1340: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1341: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1342: FND_MSG_PUB.Add;
1343: END IF;
1344: RAISE FND_API.G_EXC_ERROR;
1345: END IF;
1344: RAISE FND_API.G_EXC_ERROR;
1345: END IF;
1346: IF (AMV_UTILITY_PVT.Is_PerspectiveIdValid(p_perspective_id) <> TRUE) THEN
1347: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1348: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1349: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
1350: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
1351: FND_MSG_PUB.Add;
1352: END IF;
1345: END IF;
1346: IF (AMV_UTILITY_PVT.Is_PerspectiveIdValid(p_perspective_id) <> TRUE) THEN
1347: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1348: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1349: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
1350: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
1351: FND_MSG_PUB.Add;
1352: END IF;
1353: RAISE FND_API.G_EXC_ERROR;
1346: IF (AMV_UTILITY_PVT.Is_PerspectiveIdValid(p_perspective_id) <> TRUE) THEN
1347: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1348: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1349: FND_MESSAGE.Set_Token('RECORD', 'AMV_PERSPECTIVE_TK', TRUE);
1350: FND_MESSAGE.Set_Token('ID', to_char(p_perspective_id));
1351: FND_MSG_PUB.Add;
1352: END IF;
1353: RAISE FND_API.G_EXC_ERROR;
1354: END IF;
1357: IF (Check_ItemPerspectives_csr%FOUND) THEN
1358: CLOSE Check_ItemPerspectives_csr;
1359: x_return_status := FND_API.G_RET_STS_ERROR;
1360: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1361: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1362: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1363: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1364: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1365: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1358: CLOSE Check_ItemPerspectives_csr;
1359: x_return_status := FND_API.G_RET_STS_ERROR;
1360: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1361: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1362: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1363: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1364: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1365: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1366: FND_MSG_PUB.Add;
1359: x_return_status := FND_API.G_RET_STS_ERROR;
1360: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1361: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1362: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1363: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1364: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1365: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1366: FND_MSG_PUB.Add;
1367: END IF;
1360: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1361: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1362: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1363: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1364: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1365: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1366: FND_MSG_PUB.Add;
1367: END IF;
1368: ELSE
1361: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
1362: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1363: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1364: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1365: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1366: FND_MSG_PUB.Add;
1367: END IF;
1368: ELSE
1369: CLOSE Check_ItemPerspectives_csr;
1497: -- Check if user is login and has the required privilege.
1498: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1499: -- User is not login.
1500: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1501: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1502: FND_MSG_PUB.Add;
1503: END IF;
1504: RAISE FND_API.G_EXC_ERROR;
1505: END IF;
1515: );
1516: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1517: -- User is not an administrator.
1518: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1519: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1520: FND_MSG_PUB.Add;
1521: END IF;
1522: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1529: END IF;
1530: -- Check if item id is valid.
1531: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1532: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1533: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1534: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1535: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1536: FND_MSG_PUB.Add;
1537: END IF;
1530: -- Check if item id is valid.
1531: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1532: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1533: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1534: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1535: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1536: FND_MSG_PUB.Add;
1537: END IF;
1538: RAISE FND_API.G_EXC_ERROR;
1531: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1532: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1533: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1534: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1535: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1536: FND_MSG_PUB.Add;
1537: END IF;
1538: RAISE FND_API.G_EXC_ERROR;
1539: END IF;
1545: IF (Check_ItemPerspectives_csr%NOTFOUND) THEN
1546: CLOSE Check_ItemPerspectives_csr;
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1548: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1549: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1550: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1551: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1552: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1553: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1546: CLOSE Check_ItemPerspectives_csr;
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1548: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1549: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1550: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1551: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1552: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1553: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1554: FND_MSG_PUB.Add;
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1548: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1549: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1550: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1551: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1552: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1553: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1554: FND_MSG_PUB.Add;
1555: END IF;
1548: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1549: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1550: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1551: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1552: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1553: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1554: FND_MSG_PUB.Add;
1555: END IF;
1556: ELSE
1549: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1550: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1551: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1552: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1553: FND_MESSAGE.Set_Token('ATTRID', to_char(l_perspective_id));
1554: FND_MSG_PUB.Add;
1555: END IF;
1556: ELSE
1557: CLOSE Check_ItemPerspectives_csr;
1662: -- Check if user is login and has the required privilege.
1663: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1664: -- User is not login.
1665: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1666: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1667: FND_MSG_PUB.Add;
1668: END IF;
1669: RAISE FND_API.G_EXC_ERROR;
1670: END IF;
1680: );
1681: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1682: -- User is not an administrator.
1683: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1684: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1685: FND_MSG_PUB.Add;
1686: END IF;
1687: RAISE FND_API.G_EXC_ERROR;
1688: END IF;
1694: END IF;
1695: -- Check if item id is valid.
1696: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1697: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1698: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1699: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1700: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1701: FND_MSG_PUB.Add;
1702: END IF;
1695: -- Check if item id is valid.
1696: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1697: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1698: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1699: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1700: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1701: FND_MSG_PUB.Add;
1702: END IF;
1703: RAISE FND_API.G_EXC_ERROR;
1696: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1697: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1698: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1699: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1700: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1701: FND_MSG_PUB.Add;
1702: END IF;
1703: RAISE FND_API.G_EXC_ERROR;
1704: END IF;
1707: FETCH Check_ItemPerspectives_csr INTO l_temp_number;
1708: IF (Check_ItemPerspectives_csr%NOTFOUND) THEN
1709: CLOSE Check_ItemPerspectives_csr;
1710: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1711: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1712: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1713: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1714: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1715: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1708: IF (Check_ItemPerspectives_csr%NOTFOUND) THEN
1709: CLOSE Check_ItemPerspectives_csr;
1710: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1711: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1712: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1713: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1714: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1715: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1716: FND_MSG_PUB.Add;
1709: CLOSE Check_ItemPerspectives_csr;
1710: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1711: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1712: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1713: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1714: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1715: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1716: FND_MSG_PUB.Add;
1717: END IF;
1710: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1711: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1712: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1713: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1714: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1715: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1716: FND_MSG_PUB.Add;
1717: END IF;
1718: RAISE FND_API.G_EXC_ERROR;
1711: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
1712: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
1713: FND_MESSAGE.Set_Token('ENTID', to_char(p_item_id));
1714: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_PERSPECTIVE_TK', TRUE);
1715: FND_MESSAGE.Set_Token('ATTRID', to_char(p_perspective_id));
1716: FND_MSG_PUB.Add;
1717: END IF;
1718: RAISE FND_API.G_EXC_ERROR;
1719: ELSE
1886: -- Check if user is login and has the required privilege.
1887: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1888: -- User is not login.
1889: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1890: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1891: FND_MSG_PUB.Add;
1892: END IF;
1893: RAISE FND_API.G_EXC_ERROR;
1894: END IF;
1900: END IF;
1901: -- Check if item id is valid.
1902: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1903: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1904: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1905: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1906: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1907: FND_MSG_PUB.Add;
1908: END IF;
1901: -- Check if item id is valid.
1902: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1903: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1904: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1905: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1906: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1907: FND_MSG_PUB.Add;
1908: END IF;
1909: RAISE FND_API.G_EXC_ERROR;
1902: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1903: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1904: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
1905: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1906: FND_MESSAGE.Set_Token('ID', to_char(p_item_id));
1907: FND_MSG_PUB.Add;
1908: END IF;
1909: RAISE FND_API.G_EXC_ERROR;
1910: END IF;