[Home] [Help]
71: CURSOR C IS SELECT rowid FROM JTF_PERZ_LF_OBJECT
72: WHERE object_id = x_object_id;
73: BEGIN
74: update JTF_PERZ_LF_OBJECT
75: set parent_id = decode( x_parent_id, FND_API.G_MISS_NUM,parent_id,
76: NULL, parent_id, x_parent_id),
77: object_description = decode( x_object_description, FND_API.G_MISS_CHAR,
78: object_description, NULL, object_description, x_object_description),
79: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
73: BEGIN
74: update JTF_PERZ_LF_OBJECT
75: set parent_id = decode( x_parent_id, FND_API.G_MISS_NUM,parent_id,
76: NULL, parent_id, x_parent_id),
77: object_description = decode( x_object_description, FND_API.G_MISS_CHAR,
78: object_description, NULL, object_description, x_object_description),
79: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
80: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
81: LAST_UPDATE_DATE = SYSDATE,
75: set parent_id = decode( x_parent_id, FND_API.G_MISS_NUM,parent_id,
76: NULL, parent_id, x_parent_id),
77: object_description = decode( x_object_description, FND_API.G_MISS_CHAR,
78: object_description, NULL, object_description, x_object_description),
79: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
80: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
81: LAST_UPDATE_DATE = SYSDATE,
82: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
83: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
109: BEGIN
110: Update JTF_PERZ_LF_OBJECT_TYPE
111: SET
112: OBJECT_TYPE_DESC =
113: decode( x_object_type_desc, FND_API.G_MISS_CHAR,
114: OBJECT_TYPE_DESC,x_object_type_desc),
115: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
116: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
117: LAST_UPDATE_DATE = SYSDATE,
111: SET
112: OBJECT_TYPE_DESC =
113: decode( x_object_type_desc, FND_API.G_MISS_CHAR,
114: OBJECT_TYPE_DESC,x_object_type_desc),
115: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
116: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
117: LAST_UPDATE_DATE = SYSDATE,
118: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
119: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
149: BEGIN
150:
151: Update JTF_PERZ_LF_VALUE
152: SET
153: PROFILE_ID = decode( x_PROFILE_ID, FND_API.G_MISS_NUM,PROFILE_ID,x_PROFILE_ID),
154: OBJ_MAP_ID = decode( x_MAP_ID, FND_API.G_MISS_NUM,OBJ_MAP_ID,x_MAP_ID),
155: ATTRIBUTE_VALUE = decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR,ATTRIBUTE_VALUE,x_ATTRIBUTE_VALUE),
156: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR,ACTIVE_FLAG,x_ACTIVE_FLAG),
157: PRIORITY = decode( x_PRIORITY, FND_API.G_MISS_NUM,PRIORITY,x_PRIORITY),
150:
151: Update JTF_PERZ_LF_VALUE
152: SET
153: PROFILE_ID = decode( x_PROFILE_ID, FND_API.G_MISS_NUM,PROFILE_ID,x_PROFILE_ID),
154: OBJ_MAP_ID = decode( x_MAP_ID, FND_API.G_MISS_NUM,OBJ_MAP_ID,x_MAP_ID),
155: ATTRIBUTE_VALUE = decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR,ATTRIBUTE_VALUE,x_ATTRIBUTE_VALUE),
156: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR,ACTIVE_FLAG,x_ACTIVE_FLAG),
157: PRIORITY = decode( x_PRIORITY, FND_API.G_MISS_NUM,PRIORITY,x_PRIORITY),
158: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
151: Update JTF_PERZ_LF_VALUE
152: SET
153: PROFILE_ID = decode( x_PROFILE_ID, FND_API.G_MISS_NUM,PROFILE_ID,x_PROFILE_ID),
154: OBJ_MAP_ID = decode( x_MAP_ID, FND_API.G_MISS_NUM,OBJ_MAP_ID,x_MAP_ID),
155: ATTRIBUTE_VALUE = decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR,ATTRIBUTE_VALUE,x_ATTRIBUTE_VALUE),
156: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR,ACTIVE_FLAG,x_ACTIVE_FLAG),
157: PRIORITY = decode( x_PRIORITY, FND_API.G_MISS_NUM,PRIORITY,x_PRIORITY),
158: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
159: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
152: SET
153: PROFILE_ID = decode( x_PROFILE_ID, FND_API.G_MISS_NUM,PROFILE_ID,x_PROFILE_ID),
154: OBJ_MAP_ID = decode( x_MAP_ID, FND_API.G_MISS_NUM,OBJ_MAP_ID,x_MAP_ID),
155: ATTRIBUTE_VALUE = decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR,ATTRIBUTE_VALUE,x_ATTRIBUTE_VALUE),
156: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR,ACTIVE_FLAG,x_ACTIVE_FLAG),
157: PRIORITY = decode( x_PRIORITY, FND_API.G_MISS_NUM,PRIORITY,x_PRIORITY),
158: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
159: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
160: LAST_UPDATE_DATE = SYSDATE,
153: PROFILE_ID = decode( x_PROFILE_ID, FND_API.G_MISS_NUM,PROFILE_ID,x_PROFILE_ID),
154: OBJ_MAP_ID = decode( x_MAP_ID, FND_API.G_MISS_NUM,OBJ_MAP_ID,x_MAP_ID),
155: ATTRIBUTE_VALUE = decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR,ATTRIBUTE_VALUE,x_ATTRIBUTE_VALUE),
156: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR,ACTIVE_FLAG,x_ACTIVE_FLAG),
157: PRIORITY = decode( x_PRIORITY, FND_API.G_MISS_NUM,PRIORITY,x_PRIORITY),
158: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
159: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
160: LAST_UPDATE_DATE = SYSDATE,
161: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
154: OBJ_MAP_ID = decode( x_MAP_ID, FND_API.G_MISS_NUM,OBJ_MAP_ID,x_MAP_ID),
155: ATTRIBUTE_VALUE = decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR,ATTRIBUTE_VALUE,x_ATTRIBUTE_VALUE),
156: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR,ACTIVE_FLAG,x_ACTIVE_FLAG),
157: PRIORITY = decode( x_PRIORITY, FND_API.G_MISS_NUM,PRIORITY,x_PRIORITY),
158: OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
159: OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
160: LAST_UPDATE_DATE = SYSDATE,
161: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
162: LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
201: LAST_UPDATED_BY,
202: LAST_UPDATE_LOGIN
203: ) VALUES (
204: x_OBJ_MAP_ID,
205: decode(x_TYPE_MAP_ID,FND_API.G_MISS_NUM, NULL,x_TYPE_MAP_ID),
206: decode( x_OBJECT_ID, FND_API.G_MISS_NUM, NULL,x_OBJECT_ID),
207: G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
208: OPEN C;
209: FETCH C INTO x_Rowid;
202: LAST_UPDATE_LOGIN
203: ) VALUES (
204: x_OBJ_MAP_ID,
205: decode(x_TYPE_MAP_ID,FND_API.G_MISS_NUM, NULL,x_TYPE_MAP_ID),
206: decode( x_OBJECT_ID, FND_API.G_MISS_NUM, NULL,x_OBJECT_ID),
207: G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
208: OPEN C;
209: FETCH C INTO x_Rowid;
210: If (C%NOTFOUND) then
251: LAST_UPDATE_LOGIN
252: ) VALUES (
253: x_VALUE_ID,
254: x_PROFILE_ID,
255: decode( x_MAP_ID, FND_API.G_MISS_NUM, NULL,x_MAP_ID),
256: decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_VALUE),
257: decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, NULL,x_ACTIVE_FLAG),
258: decode( x_PRIORITY, FND_API.G_MISS_NUM, NULL,x_PRIORITY),
259: 1,G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
252: ) VALUES (
253: x_VALUE_ID,
254: x_PROFILE_ID,
255: decode( x_MAP_ID, FND_API.G_MISS_NUM, NULL,x_MAP_ID),
256: decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_VALUE),
257: decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, NULL,x_ACTIVE_FLAG),
258: decode( x_PRIORITY, FND_API.G_MISS_NUM, NULL,x_PRIORITY),
259: 1,G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
260: OPEN C;
253: x_VALUE_ID,
254: x_PROFILE_ID,
255: decode( x_MAP_ID, FND_API.G_MISS_NUM, NULL,x_MAP_ID),
256: decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_VALUE),
257: decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, NULL,x_ACTIVE_FLAG),
258: decode( x_PRIORITY, FND_API.G_MISS_NUM, NULL,x_PRIORITY),
259: 1,G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
260: OPEN C;
261: FETCH C INTO x_Rowid;
254: x_PROFILE_ID,
255: decode( x_MAP_ID, FND_API.G_MISS_NUM, NULL,x_MAP_ID),
256: decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_VALUE),
257: decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, NULL,x_ACTIVE_FLAG),
258: decode( x_PRIORITY, FND_API.G_MISS_NUM, NULL,x_PRIORITY),
259: 1,G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
260: OPEN C;
261: FETCH C INTO x_Rowid;
262: If (C%NOTFOUND) then
291: LAST_UPDATED_BY,
292: LAST_UPDATE_LOGIN
293: ) VALUES (
294: x_MAP_ID,
295: decode( x_OBJECT_TYPE_ID, FND_API.G_MISS_NUM, NULL,x_OBJECT_TYPE_ID),
296: decode( x_ATTRIBUTE_ID, FND_API.G_MISS_NUM, NULL,x_ATTRIBUTE_ID),
297: G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
298: OPEN C;
299: FETCH C INTO x_Rowid;
292: LAST_UPDATE_LOGIN
293: ) VALUES (
294: x_MAP_ID,
295: decode( x_OBJECT_TYPE_ID, FND_API.G_MISS_NUM, NULL,x_OBJECT_TYPE_ID),
296: decode( x_ATTRIBUTE_ID, FND_API.G_MISS_NUM, NULL,x_ATTRIBUTE_ID),
297: G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
298: OPEN C;
299: FETCH C INTO x_Rowid;
300: If (C%NOTFOUND) then
314: ) IS
315: BEGIN
316: Update JTF_PERZ_LF_ATTRIB
317: SET
318: ATTRIBUTE_ID = decode( x_ATTRIBUTE_ID, FND_API.G_MISS_NUM,ATTRIBUTE_ID,x_ATTRIBUTE_ID),
319: ATTRIBUTE_NAME = decode( x_ATTRIBUTE_NAME, FND_API.G_MISS_CHAR,ATTRIBUTE_NAME,x_ATTRIBUTE_NAME),
320: ATTRIBUTE_TYPE = decode( x_ATTRIBUTE_TYPE, FND_API.G_MISS_CHAR,ATTRIBUTE_TYPE,x_ATTRIBUTE_TYPE)
321: where rowid = X_RowId;
322:
315: BEGIN
316: Update JTF_PERZ_LF_ATTRIB
317: SET
318: ATTRIBUTE_ID = decode( x_ATTRIBUTE_ID, FND_API.G_MISS_NUM,ATTRIBUTE_ID,x_ATTRIBUTE_ID),
319: ATTRIBUTE_NAME = decode( x_ATTRIBUTE_NAME, FND_API.G_MISS_CHAR,ATTRIBUTE_NAME,x_ATTRIBUTE_NAME),
320: ATTRIBUTE_TYPE = decode( x_ATTRIBUTE_TYPE, FND_API.G_MISS_CHAR,ATTRIBUTE_TYPE,x_ATTRIBUTE_TYPE)
321: where rowid = X_RowId;
322:
323: If (SQL%NOTFOUND) then
316: Update JTF_PERZ_LF_ATTRIB
317: SET
318: ATTRIBUTE_ID = decode( x_ATTRIBUTE_ID, FND_API.G_MISS_NUM,ATTRIBUTE_ID,x_ATTRIBUTE_ID),
319: ATTRIBUTE_NAME = decode( x_ATTRIBUTE_NAME, FND_API.G_MISS_CHAR,ATTRIBUTE_NAME,x_ATTRIBUTE_NAME),
320: ATTRIBUTE_TYPE = decode( x_ATTRIBUTE_TYPE, FND_API.G_MISS_CHAR,ATTRIBUTE_TYPE,x_ATTRIBUTE_TYPE)
321: where rowid = X_RowId;
322:
323: If (SQL%NOTFOUND) then
324: RAISE NO_DATA_FOUND;
358: LAST_UPDATE_LOGIN
359: )
360: VALUES (
361: x_ATTRIBUTE_ID,
362: decode( x_ATTRIBUTE_NAME, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_NAME),
363: decode( x_ATTRIBUTE_TYPE, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_TYPE),
364: 1,G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
365: );
366:
359: )
360: VALUES (
361: x_ATTRIBUTE_ID,
362: decode( x_ATTRIBUTE_NAME, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_NAME),
363: decode( x_ATTRIBUTE_TYPE, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_TYPE),
364: 1,G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
365: );
366:
367: OPEN C;
404: LAST_UPDATE_LOGIN
405: )
406: VALUES (
407: x_OBJECT_TYPE_ID,
408: decode( x_OBJECT_TYPE, FND_API.G_MISS_CHAR, NULL,x_OBJECT_TYPE),
409: decode( x_OBJECT_TYPE_DESC, FND_API.G_MISS_CHAR, NULL,x_OBJECT_TYPE_DESC),
410: 1, G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
411: );
412:
405: )
406: VALUES (
407: x_OBJECT_TYPE_ID,
408: decode( x_OBJECT_TYPE, FND_API.G_MISS_CHAR, NULL,x_OBJECT_TYPE),
409: decode( x_OBJECT_TYPE_DESC, FND_API.G_MISS_CHAR, NULL,x_OBJECT_TYPE_DESC),
410: 1, G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
411: );
412:
413: OPEN C;
455: LAST_UPDATE_LOGIN
456: )
457: VALUES (
458: x_OBJECT_ID,
459: decode( x_PARENT_ID, FND_API.G_MISS_NUM, NULL,x_PARENT_ID),
460: decode( x_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_APPLICATION_ID),
461: decode( x_OBJECT_NAME, FND_API.G_MISS_CHAR, NULL,x_OBJECT_NAME),
462: decode( x_OBJECT_DESCRIPTION, FND_API.G_MISS_CHAR, NULL,x_OBJECT_DESCRIPTION),
463: 1, G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
456: )
457: VALUES (
458: x_OBJECT_ID,
459: decode( x_PARENT_ID, FND_API.G_MISS_NUM, NULL,x_PARENT_ID),
460: decode( x_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_APPLICATION_ID),
461: decode( x_OBJECT_NAME, FND_API.G_MISS_CHAR, NULL,x_OBJECT_NAME),
462: decode( x_OBJECT_DESCRIPTION, FND_API.G_MISS_CHAR, NULL,x_OBJECT_DESCRIPTION),
463: 1, G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
464: );
457: VALUES (
458: x_OBJECT_ID,
459: decode( x_PARENT_ID, FND_API.G_MISS_NUM, NULL,x_PARENT_ID),
460: decode( x_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_APPLICATION_ID),
461: decode( x_OBJECT_NAME, FND_API.G_MISS_CHAR, NULL,x_OBJECT_NAME),
462: decode( x_OBJECT_DESCRIPTION, FND_API.G_MISS_CHAR, NULL,x_OBJECT_DESCRIPTION),
463: 1, G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
464: );
465:
458: x_OBJECT_ID,
459: decode( x_PARENT_ID, FND_API.G_MISS_NUM, NULL,x_PARENT_ID),
460: decode( x_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_APPLICATION_ID),
461: decode( x_OBJECT_NAME, FND_API.G_MISS_CHAR, NULL,x_OBJECT_NAME),
462: decode( x_OBJECT_DESCRIPTION, FND_API.G_MISS_CHAR, NULL,x_OBJECT_DESCRIPTION),
463: 1, G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
464: );
465:
466: OPEN C;
519: where attribute_name = p_attribute_name
520: and attribute_type = p_attribute_type;
521:
522: if (x_rowid is not null) then
523: x_return_status := FND_API.G_TRUE;
524: else
525: x_return_status := FND_API.G_FALSE;
526: end if;
527: else
521:
522: if (x_rowid is not null) then
523: x_return_status := FND_API.G_TRUE;
524: else
525: x_return_status := FND_API.G_FALSE;
526: end if;
527: else
528: select rowid, attribute_id
529: into x_rowid, x_attribute_id
530: from jtf_perz_lf_attrib
531: where attribute_id = l_attribute_id;
532:
533: if (x_rowid is not null) then
534: x_return_status := FND_API.G_TRUE;
535: else
536: x_return_status := FND_API.G_FALSE;
537: end if;
538: end if;
532:
533: if (x_rowid is not null) then
534: x_return_status := FND_API.G_TRUE;
535: else
536: x_return_status := FND_API.G_FALSE;
537: end if;
538: end if;
539:
540: EXCEPTION
539:
540: EXCEPTION
541:
542: WHEN NO_DATA_FOUND THEN
543: x_return_status := FND_API.G_FALSE;
544:
545: WHEN OTHERS THEN
546: x_return_status := FND_API.G_FALSE;
547:
542: WHEN NO_DATA_FOUND THEN
543: x_return_status := FND_API.G_FALSE;
544:
545: WHEN OTHERS THEN
546: x_return_status := FND_API.G_FALSE;
547:
548: END check_attribute;
549: -- *****************************************************************************
550:
575:
576: BEGIN
577:
578: if ((p_object_type is not null) and
579: (p_object_type <> FND_API.G_MISS_CHAR)) and
580: ((x_object_type_id is null) OR
581: (x_object_type_id = FND_API.G_MISS_NUM))
582: then
583: select object_type_id, object_version_number
577:
578: if ((p_object_type is not null) and
579: (p_object_type <> FND_API.G_MISS_CHAR)) and
580: ((x_object_type_id is null) OR
581: (x_object_type_id = FND_API.G_MISS_NUM))
582: then
583: select object_type_id, object_version_number
584: into l_object_type_id, x_object_version_number
585: from jtf_perz_lf_object_type
585: from jtf_perz_lf_object_type
586: where object_type_name = p_object_type;
587:
588: x_object_type_id := l_object_type_id;
589: x_return_status := FND_API.G_TRUE;
590:
591: elsif ((x_object_type_id is not null) and
592: (x_object_type_id <> FND_API.G_MISS_NUM)) and
593: ((p_object_type is null) OR
588: x_object_type_id := l_object_type_id;
589: x_return_status := FND_API.G_TRUE;
590:
591: elsif ((x_object_type_id is not null) and
592: (x_object_type_id <> FND_API.G_MISS_NUM)) and
593: ((p_object_type is null) OR
594: (p_object_type <> FND_API.G_MISS_CHAR))
595: then
596:
590:
591: elsif ((x_object_type_id is not null) and
592: (x_object_type_id <> FND_API.G_MISS_NUM)) and
593: ((p_object_type is null) OR
594: (p_object_type <> FND_API.G_MISS_CHAR))
595: then
596:
597: select object_type_id, object_version_number
598: into l_object_type_id, x_object_version_number
599: from jtf_perz_lf_object_type
600: where object_type_id = x_object_type_id ;
601:
602: x_object_type_id := l_object_type_id;
603: x_return_status := FND_API.G_TRUE;
604:
605: elsif ((p_object_type is not null) and
606: (x_object_type_id is not null) and
607: (p_object_type <> FND_API.G_MISS_CHAR) and
603: x_return_status := FND_API.G_TRUE;
604:
605: elsif ((p_object_type is not null) and
606: (x_object_type_id is not null) and
607: (p_object_type <> FND_API.G_MISS_CHAR) and
608: (x_object_type_id <> FND_API.G_MISS_NUM))
609: then
610: select object_type_id, object_version_number
611: into l_object_type_id, x_object_version_number
604:
605: elsif ((p_object_type is not null) and
606: (x_object_type_id is not null) and
607: (p_object_type <> FND_API.G_MISS_CHAR) and
608: (x_object_type_id <> FND_API.G_MISS_NUM))
609: then
610: select object_type_id, object_version_number
611: into l_object_type_id, x_object_version_number
612: from jtf_perz_lf_object_type
613: where object_type_id = x_object_type_id;
614: --and object_type_name = upper(p_object_type);
615:
616: x_object_type_id := l_object_type_id;
617: x_return_status := FND_API.G_TRUE;
618:
619: else
620: x_return_status := FND_API.G_FALSE;
621: end if;
616: x_object_type_id := l_object_type_id;
617: x_return_status := FND_API.G_TRUE;
618:
619: else
620: x_return_status := FND_API.G_FALSE;
621: end if;
622:
623: EXCEPTION
624:
622:
623: EXCEPTION
624:
625: WHEN NO_DATA_FOUND THEN
626: x_return_status := FND_API.G_FALSE;
627:
628: WHEN OTHERS THEN
629: x_return_status := FND_API.G_FALSE;
630:
625: WHEN NO_DATA_FOUND THEN
626: x_return_status := FND_API.G_FALSE;
627:
628: WHEN OTHERS THEN
629: x_return_status := FND_API.G_FALSE;
630:
631: END check_duplicate_obj_type;
632: -- *****************************************************************************
633:
661:
662: BEGIN
663:
664: -- Please take care of G_MISS_NUM , G_MISS_CHAR -srikanth
665: if (((p_object_name is not null) OR (p_object_name <> FND_API.G_MISS_CHAR))
666: and ((x_object_id is null) OR (x_object_id = FND_API.G_MISS_NUM))) then
667:
668: select object_id, object_version_number
669: into l_object_id, x_object_version_number
662: BEGIN
663:
664: -- Please take care of G_MISS_NUM , G_MISS_CHAR -srikanth
665: if (((p_object_name is not null) OR (p_object_name <> FND_API.G_MISS_CHAR))
666: and ((x_object_id is null) OR (x_object_id = FND_API.G_MISS_NUM))) then
667:
668: select object_id, object_version_number
669: into l_object_id, x_object_version_number
670: from jtf_perz_lf_object
671: where object_name = p_object_name
672: and application_id = p_application_id;
673:
674: x_object_id := l_object_id;
675: x_return_status := FND_API.G_TRUE;
676:
677:
678: elsif (((p_object_name is null) OR (p_object_name = FND_API.G_MISS_CHAR))
679: and ((x_object_id is not null) OR (x_object_id <> FND_API.G_MISS_NUM))) then
674: x_object_id := l_object_id;
675: x_return_status := FND_API.G_TRUE;
676:
677:
678: elsif (((p_object_name is null) OR (p_object_name = FND_API.G_MISS_CHAR))
679: and ((x_object_id is not null) OR (x_object_id <> FND_API.G_MISS_NUM))) then
680:
681: select object_id, object_version_number
682: into l_object_id, x_object_version_number
675: x_return_status := FND_API.G_TRUE;
676:
677:
678: elsif (((p_object_name is null) OR (p_object_name = FND_API.G_MISS_CHAR))
679: and ((x_object_id is not null) OR (x_object_id <> FND_API.G_MISS_NUM))) then
680:
681: select object_id, object_version_number
682: into l_object_id, x_object_version_number
683: from jtf_perz_lf_object
684: where object_id = x_object_id
685: and application_id = p_application_id;
686:
687: x_object_id := l_object_id;
688: x_return_status := FND_API.G_TRUE;
689:
690:
691: elsif (((p_object_name is not null) OR (p_object_name <> FND_API.G_MISS_CHAR))
692: and ((x_object_id is not null) OR (x_object_id <> FND_API.G_MISS_NUM))) then
687: x_object_id := l_object_id;
688: x_return_status := FND_API.G_TRUE;
689:
690:
691: elsif (((p_object_name is not null) OR (p_object_name <> FND_API.G_MISS_CHAR))
692: and ((x_object_id is not null) OR (x_object_id <> FND_API.G_MISS_NUM))) then
693:
694: select object_id, object_version_number
695: into l_object_id, x_object_version_number
688: x_return_status := FND_API.G_TRUE;
689:
690:
691: elsif (((p_object_name is not null) OR (p_object_name <> FND_API.G_MISS_CHAR))
692: and ((x_object_id is not null) OR (x_object_id <> FND_API.G_MISS_NUM))) then
693:
694: select object_id, object_version_number
695: into l_object_id, x_object_version_number
696: from jtf_perz_lf_object
698: object_name = p_object_name
699: and application_id = p_application_id;
700:
701: x_object_id := l_object_id;
702: x_return_status := FND_API.G_TRUE;
703:
704: else
705: x_return_status := FND_API.G_FALSE;
706: end if;
701: x_object_id := l_object_id;
702: x_return_status := FND_API.G_TRUE;
703:
704: else
705: x_return_status := FND_API.G_FALSE;
706: end if;
707: -- dbms_output.put_line(' return status in check duplicate obj is:'||x_return_status);
708: EXCEPTION
709:
707: -- dbms_output.put_line(' return status in check duplicate obj is:'||x_return_status);
708: EXCEPTION
709:
710: WHEN NO_DATA_FOUND THEN
711: x_return_status := FND_API.G_FALSE;
712: -- dbms_output.put_line(' return status in check duplicate obj is:'||x_return_status);
713:
714: WHEN OTHERS THEN
715: x_return_status := FND_API.G_FALSE;
711: x_return_status := FND_API.G_FALSE;
712: -- dbms_output.put_line(' return status in check duplicate obj is:'||x_return_status);
713:
714: WHEN OTHERS THEN
715: x_return_status := FND_API.G_FALSE;
716: -- dbms_output.put_line(' return status in check duplicate obj is:'||x_return_status);
717:
718: END check_duplicate_obj;
719:
762: and a.attribute_id = b.attribute_id;
763: BEGIN
764:
765: if ((p_object_type_id is not NULL) OR
766: (p_object_type_id <> FND_API.G_MISS_NUM)) then
767:
768: select object_type_id, object_type_desc
769: into l_object_type_id, x_object_type_desc
770: from jtf_perz_lf_object_type
768: select object_type_id, object_type_desc
769: into l_object_type_id, x_object_type_desc
770: from jtf_perz_lf_object_type
771: where object_type_id = p_object_type_id;
772: x_return_status := FND_API.G_TRUE;
773:
774: elsif (( p_object_type is not null) OR
775: ( p_object_type <> FND_API.G_MISS_CHAR)) then
776:
771: where object_type_id = p_object_type_id;
772: x_return_status := FND_API.G_TRUE;
773:
774: elsif (( p_object_type is not null) OR
775: ( p_object_type <> FND_API.G_MISS_CHAR)) then
776:
777: select object_type_id, object_type_desc
778: into l_object_type_id, x_object_type_desc
779: from jtf_perz_lf_object_type
777: select object_type_id, object_type_desc
778: into l_object_type_id, x_object_type_desc
779: from jtf_perz_lf_object_type
780: where object_type_name = p_object_type;
781: x_return_status := FND_API.G_TRUE;
782:
783: else
784: x_return_status := FND_API.G_FALSE;
785: end if;
780: where object_type_name = p_object_type;
781: x_return_status := FND_API.G_TRUE;
782:
783: else
784: x_return_status := FND_API.G_FALSE;
785: end if;
786:
787: if (x_return_status = FND_API.G_TRUE) then
788:
783: else
784: x_return_status := FND_API.G_FALSE;
785: end if;
786:
787: if (x_return_status = FND_API.G_TRUE) then
788:
789: l_count := 1;
790: OPEN C_GET_ATTRIBUTES (l_object_type_id);
791: --dbms_output.put_line(' 1 l_object_type_id:'||l_object_type_id);
805: end loop;
806: CLOSE C_GET_ATTRIBUTES;
807: p_object_type_id := l_object_type_id;
808: --dbms_output.put_line('2 l_object_type_id:'||l_object_type_id);
809: x_return_status := FND_API.G_TRUE;
810:
811: end if;
812:
813:
812:
813:
814: EXCEPTION
815: WHEN NO_DATA_FOUND THEN
816: x_return_status := FND_API.G_FALSE;
817:
818: WHEN OTHERS THEN
819: x_return_status := FND_API.G_FALSE;
820: END get_obj_type_details;
815: WHEN NO_DATA_FOUND THEN
816: x_return_status := FND_API.G_FALSE;
817:
818: WHEN OTHERS THEN
819: x_return_status := FND_API.G_FALSE;
820: END get_obj_type_details;
821:
822: -- ****************************************************************************
823: -- ****************************************************************************
841: -- Paramaeters :
842: -- IN :
843: -- p_api_version_number IN NUMBER Required
844: -- p_init_msg_list IN VARCHAR2 Optional
845: -- Default = FND_API.G_FALSE
846: -- p_commit IN VARCHAR2 Optional
847:
848: -- p_profile_id IN NUMBER Optional
849: -- p_profile_name IN VARCHAR2 Required
876: -- *****************************************************************************
877:
878: PROCEDURE Create_lf_object
879: ( p_api_version_number IN NUMBER,
880: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
881: p_commit IN VARCHAR2 := FND_API.G_FALSE,
882:
883: p_profile_id IN NUMBER,
884: p_profile_name IN VARCHAR2,
877:
878: PROCEDURE Create_lf_object
879: ( p_api_version_number IN NUMBER,
880: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
881: p_commit IN VARCHAR2 := FND_API.G_FALSE,
882:
883: p_profile_id IN NUMBER,
884: p_profile_name IN VARCHAR2,
885:
945: -- Standard Start of API savepoint
946: SAVEPOINT CREATE_PERZ_LF_PVT;
947:
948: -- Standard call to check for call compatibility.
949: -- IF NOT FND_API.Compatible_API_Call (
950: -- l_api_version_number,
951: -- p_api_version_number,
952: -- l_api_name,
953: -- G_PKG_NAME)
951: -- p_api_version_number,
952: -- l_api_name,
953: -- G_PKG_NAME)
954: -- THEN
955: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
956: -- END IF;
957:
958: -- Initialize message list if p_init_msg_list is set to TRUE.
959: IF FND_API.to_Boolean( p_init_msg_list )
955: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
956: -- END IF;
957:
958: -- Initialize message list if p_init_msg_list is set to TRUE.
959: IF FND_API.to_Boolean( p_init_msg_list )
960: THEN
961: FND_MSG_PUB.initialize;
962: END IF;
963:
961: FND_MSG_PUB.initialize;
962: END IF;
963:
964: -- Initialize API return status to success
965: x_return_status := FND_API.G_RET_STS_SUCCESS;
966:
967: -- Create_lf_object implementation
968:
969: --1. Check if the profile exists
969: --1. Check if the profile exists
970:
971: l_profile_id := p_profile_id;
972: l_profile_name := p_profile_name;
973: l_return_status := FND_API.G_TRUE;
974: if ((p_profile_id is NULL) OR
975: (p_profile_id = FND_API.G_MISS_NUM)) then
976: JTF_PERZ_PROFILE_PVT.check_profile_duplicates(
977: l_profile_name,
971: l_profile_id := p_profile_id;
972: l_profile_name := p_profile_name;
973: l_return_status := FND_API.G_TRUE;
974: if ((p_profile_id is NULL) OR
975: (p_profile_id = FND_API.G_MISS_NUM)) then
976: JTF_PERZ_PROFILE_PVT.check_profile_duplicates(
977: l_profile_name,
978: l_return_status,
979: l_profile_id
981:
982:
983: -- If profile does not exists, raise an error and exit
984:
985: if (l_return_status = FND_API.G_FALSE) then
986: RAISE FND_API.G_EXC_ERROR;
987: end if;
988:
989: end if;
982:
983: -- If profile does not exists, raise an error and exit
984:
985: if (l_return_status = FND_API.G_FALSE) then
986: RAISE FND_API.G_EXC_ERROR;
987: end if;
988:
989: end if;
990:
989: end if;
990:
991: --2. Check if Type Exists
992:
993: l_return_status := FND_API.G_TRUE;
994: check_duplicate_obj_type (
995: l_object_type,
996: l_return_status,
997: l_object_type_id,
998: l_obj_type_version_no
999: );
1000:
1001: -- If object type is not found raising the error
1002: if (l_return_status = FND_API.G_FALSE) then
1003: --dbms_output.put_line('object type check failed');
1004: RAISE FND_API.G_EXC_ERROR;
1005: end if;
1006:
1000:
1001: -- If object type is not found raising the error
1002: if (l_return_status = FND_API.G_FALSE) then
1003: --dbms_output.put_line('object type check failed');
1004: RAISE FND_API.G_EXC_ERROR;
1005: end if;
1006:
1007: --3.Create the Object
1008:
1006:
1007: --3.Create the Object
1008:
1009: -- Check if parent exists only if the parent id is given
1010: l_return_status := FND_API.G_TRUE;
1011: l_object_id := p_parent_id;
1012: l_object_name := NULL;
1013: if (p_parent_id is not null) AND
1014: (p_parent_id <> FND_API.G_MISS_NUM)then
1010: l_return_status := FND_API.G_TRUE;
1011: l_object_id := p_parent_id;
1012: l_object_name := NULL;
1013: if (p_parent_id is not null) AND
1014: (p_parent_id <> FND_API.G_MISS_NUM)then
1015: check_duplicate_obj (
1016: p_application_id,
1017: l_object_name,
1018: l_object_id,
1019: l_return_status,
1020: l_object_version_number
1021: );
1022:
1023: if (l_return_status = FND_API.G_FALSE) then
1024: RAISE FND_API.G_EXC_ERROR;
1025: end if;
1026: end if;
1027:
1020: l_object_version_number
1021: );
1022:
1023: if (l_return_status = FND_API.G_FALSE) then
1024: RAISE FND_API.G_EXC_ERROR;
1025: end if;
1026: end if;
1027:
1028: -- Check if object exists only if the parent id is given
1025: end if;
1026: end if;
1027:
1028: -- Check if object exists only if the parent id is given
1029: l_return_status := FND_API.G_TRUE;
1030: l_object_id := p_object_id;
1031: l_object_name := p_object_name;
1032: check_duplicate_obj (
1033: p_application_id,
1035: l_object_id,
1036: l_return_status,
1037: l_object_version_number
1038: );
1039: if (l_return_status = FND_API.G_TRUE) then
1040: --dbms_output.put_line('object check failed ');
1041: RAISE FND_API.G_EXC_ERROR;
1042: end if;
1043:
1037: l_object_version_number
1038: );
1039: if (l_return_status = FND_API.G_TRUE) then
1040: --dbms_output.put_line('object check failed ');
1041: RAISE FND_API.G_EXC_ERROR;
1042: end if;
1043:
1044: -- Create Object
1045: l_object_name := p_object_name ;
1055: l_object_description
1056: );
1057:
1058: if (l_rowid is null) then
1059: RAISE FND_API.G_EXC_ERROR;
1060: end if;
1061:
1062: -- Loop though for each attribute defined in the attrib_value_tbl
1063: -- For each of the object_type - attribute map
1066:
1067: FOR l_curr_row in 1..l_count LOOP
1068:
1069: if ((l_attrib_value_tbl(l_curr_row).attribute_id is null) OR
1070: (l_attrib_value_tbl(l_curr_row).attribute_id =FND_API.G_MISS_NUM)) then
1071: if ((l_attrib_value_tbl(l_curr_row).attribute_name is not null) AND
1072: (l_attrib_value_tbl(l_curr_row).attribute_name <> FND_API.G_MISS_CHAR)) AND
1073: ((l_attrib_value_tbl(l_curr_row).attribute_type is not null) AND
1074: (l_attrib_value_tbl(l_curr_row).attribute_type <> FND_API.G_MISS_CHAR))
1068:
1069: if ((l_attrib_value_tbl(l_curr_row).attribute_id is null) OR
1070: (l_attrib_value_tbl(l_curr_row).attribute_id =FND_API.G_MISS_NUM)) then
1071: if ((l_attrib_value_tbl(l_curr_row).attribute_name is not null) AND
1072: (l_attrib_value_tbl(l_curr_row).attribute_name <> FND_API.G_MISS_CHAR)) AND
1073: ((l_attrib_value_tbl(l_curr_row).attribute_type is not null) AND
1074: (l_attrib_value_tbl(l_curr_row).attribute_type <> FND_API.G_MISS_CHAR))
1075: then
1076: begin
1070: (l_attrib_value_tbl(l_curr_row).attribute_id =FND_API.G_MISS_NUM)) then
1071: if ((l_attrib_value_tbl(l_curr_row).attribute_name is not null) AND
1072: (l_attrib_value_tbl(l_curr_row).attribute_name <> FND_API.G_MISS_CHAR)) AND
1073: ((l_attrib_value_tbl(l_curr_row).attribute_type is not null) AND
1074: (l_attrib_value_tbl(l_curr_row).attribute_type <> FND_API.G_MISS_CHAR))
1075: then
1076: begin
1077: select a.obj_type_map_id
1078: into l_type_map_id
1085:
1086: EXCEPTION
1087: WHEN NO_DATA_FOUND then
1088: --dbms_output.put_line('In 1st select 1 exception');
1089: RAISE FND_API.G_EXC_ERROR;
1090: WHEN OTHERS then
1091: --dbms_output.put_line('In 1st select 2 exception');
1092: RAISE FND_API.G_EXC_ERROR;
1093: end;
1088: --dbms_output.put_line('In 1st select 1 exception');
1089: RAISE FND_API.G_EXC_ERROR;
1090: WHEN OTHERS then
1091: --dbms_output.put_line('In 1st select 2 exception');
1092: RAISE FND_API.G_EXC_ERROR;
1093: end;
1094: end if;
1095: else
1096: begin
1102:
1103: EXCEPTION
1104: WHEN NO_DATA_FOUND then
1105: --dbms_output.put_line('In 2nd select 1 exception');
1106: RAISE FND_API.G_EXC_ERROR;
1107: WHEN OTHERS then
1108: --dbms_output.put_line('In 2nd select 2 exception');
1109: RAISE FND_API.G_EXC_ERROR;
1110: END;
1105: --dbms_output.put_line('In 2nd select 1 exception');
1106: RAISE FND_API.G_EXC_ERROR;
1107: WHEN OTHERS then
1108: --dbms_output.put_line('In 2nd select 2 exception');
1109: RAISE FND_API.G_EXC_ERROR;
1110: END;
1111:
1112: end if;
1113:
1121: );
1122:
1123: if (l_rowid is null) then
1124: --dbms_output.put_line('In insert into obj map error');
1125: RAISE FND_API.G_EXC_ERROR;
1126: end if;
1127:
1128: l_rowid := NULL;
1129: l_value_id := NULL;
1139: );
1140:
1141: if (l_rowid is null) then
1142: --dbms_output.put_line('In insert into lf value error');
1143: RAISE FND_API.G_EXC_ERROR;
1144: end if;
1145: END LOOP;
1146: x_object_id := l_object_id;
1147:
1151: --
1152: -- 7. Commit the whole thing
1153:
1154: -- Standard check of p_commit.
1155: IF FND_API.To_Boolean ( p_commit )
1156: THEN
1157: COMMIT WORK;
1158: END IF;
1159:
1166:
1167:
1168: EXCEPTION
1169:
1170: WHEN FND_API.G_EXC_ERROR THEN
1171:
1172: ROLLBACK TO CREATE_PERZ_LF_PVT;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: --x_return_status := sqlcode||sqlerrm;
1169:
1170: WHEN FND_API.G_EXC_ERROR THEN
1171:
1172: ROLLBACK TO CREATE_PERZ_LF_PVT;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: --x_return_status := sqlcode||sqlerrm;
1175:
1176: FND_MSG_PUB.Count_And_Get
1177: ( p_count => x_msg_count,
1182: THEN
1183: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1184: END IF;
1185:
1186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1187:
1188: ROLLBACK TO CREATE_PERZ_LF_PVT;
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1190:
1185:
1186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1187:
1188: ROLLBACK TO CREATE_PERZ_LF_PVT;
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1190:
1191: FND_MSG_PUB.Count_And_Get
1192: ( p_count => x_msg_count,
1193: p_data => x_msg_data
1200:
1201: WHEN OTHERS THEN
1202:
1203: ROLLBACK TO CREATE_PERZ_LF_PVT;
1204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1205:
1206: FND_MSG_PUB.Count_And_Get
1207: ( p_count => x_msg_count,
1208: p_data => x_msg_data
1227: -- Paramaeters :
1228: -- IN :
1229: -- p_api_version_number IN NUMBER Required
1230: -- p_init_msg_list IN VARCHAR2 Optional
1231: -- Default = FND_API.G_FALSE
1232: -- p_commit IN VARCHAR2
1233: -- Default = FND_API.G_FALSE
1234: --
1235: -- p_profile_id IN NUMBER Optional
1229: -- p_api_version_number IN NUMBER Required
1230: -- p_init_msg_list IN VARCHAR2 Optional
1231: -- Default = FND_API.G_FALSE
1232: -- p_commit IN VARCHAR2
1233: -- Default = FND_API.G_FALSE
1234: --
1235: -- p_profile_id IN NUMBER Optional
1236: -- p_profile_name IN VARCHAR2 Optional
1237: --
1264: --
1265: -- *****************************************************************************
1266: PROCEDURE Update_lf_object
1267: ( p_api_version_number IN NUMBER,
1268: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1269: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1270:
1271: p_profile_id IN NUMBER,
1272: p_profile_name IN VARCHAR2 := NULL,
1265: -- *****************************************************************************
1266: PROCEDURE Update_lf_object
1267: ( p_api_version_number IN NUMBER,
1268: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1269: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1270:
1271: p_profile_id IN NUMBER,
1272: p_profile_name IN VARCHAR2 := NULL,
1273:
1293: l_api_name VARCHAR2(60) := 'Update Object';
1294: l_api_version_number NUMBER := p_api_version_number;
1295:
1296: -- ******* Update_lf_object Local Variables ********
1297: l_return_status VARCHAR2(240) := FND_API.G_TRUE;
1298: l_Object_Tbl JTF_PERZ_LF_PUB.LF_OBJECT_OUT_TBL_TYPE;
1299: l_profile_id NUMBER := NULL;
1300: l_profile_name VARCHAR2(60) := NULL;
1301: l_object_type VARCHAR2(60) := p_object_type;
1348: -- Standard Start of API savepoint
1349: SAVEPOINT UPDATE_PERZ_LF_PVT;
1350:
1351: -- Standard call to check for call compatibility.
1352: --IF NOT FND_API.Compatible_API_Call
1353: --( l_api_version_number, p_api_version_number,
1354: -- l_api_name, G_PKG_NAME) THEN
1355: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: --END IF;
1351: -- Standard call to check for call compatibility.
1352: --IF NOT FND_API.Compatible_API_Call
1353: --( l_api_version_number, p_api_version_number,
1354: -- l_api_name, G_PKG_NAME) THEN
1355: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: --END IF;
1357:
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1355: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: --END IF;
1357:
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1360: FND_MSG_PUB.initialize;
1361: END IF;
1362:
1363: -- Initialize API return status to success
1360: FND_MSG_PUB.initialize;
1361: END IF;
1362:
1363: -- Initialize API return status to success
1364: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1365:
1366:
1367: -- Update_lf_object implementation
1368:
1369: --1. Check if the profile exists
1370:
1371: l_profile_id := p_profile_id;
1372: l_profile_name := p_profile_name;
1373: l_return_status := FND_API.G_TRUE;
1374: if ((p_profile_id is NULL) OR
1375: (p_profile_id = FND_API.G_MISS_NUM)) then
1376: JTF_PERZ_PROFILE_PVT.check_profile_duplicates(
1377: l_profile_name,
1371: l_profile_id := p_profile_id;
1372: l_profile_name := p_profile_name;
1373: l_return_status := FND_API.G_TRUE;
1374: if ((p_profile_id is NULL) OR
1375: (p_profile_id = FND_API.G_MISS_NUM)) then
1376: JTF_PERZ_PROFILE_PVT.check_profile_duplicates(
1377: l_profile_name,
1378: l_return_status,
1379: l_profile_id
1381:
1382:
1383: -- If profile does not exists, raise an error and exit
1384:
1385: if (l_return_status = FND_API.G_FALSE) then
1386: RAISE FND_API.G_EXC_ERROR;
1387: end if;
1388: end if;
1389: --dbms_output.put_line('out 1');
1382:
1383: -- If profile does not exists, raise an error and exit
1384:
1385: if (l_return_status = FND_API.G_FALSE) then
1386: RAISE FND_API.G_EXC_ERROR;
1387: end if;
1388: end if;
1389: --dbms_output.put_line('out 1');
1390: --2. Check if Type Exists
1388: end if;
1389: --dbms_output.put_line('out 1');
1390: --2. Check if Type Exists
1391:
1392: l_return_status := FND_API.G_TRUE;
1393: check_duplicate_obj_type (
1394: l_object_type,
1395: l_return_status,
1396: l_object_type_id,
1397: l_obj_type_version_no
1398: );
1399:
1400: -- If object type is not found raising the error
1401: if (l_return_status = FND_API.G_FALSE) then
1402: RAISE FND_API.G_EXC_ERROR;
1403: end if;
1404:
1405: --dbms_output.put_line('out 2');
1398: );
1399:
1400: -- If object type is not found raising the error
1401: if (l_return_status = FND_API.G_FALSE) then
1402: RAISE FND_API.G_EXC_ERROR;
1403: end if;
1404:
1405: --dbms_output.put_line('out 2');
1406:
1405: --dbms_output.put_line('out 2');
1406:
1407: -- 3. check the object
1408:
1409: l_return_status := FND_API.G_TRUE;
1410: l_object_name := p_object_name;
1411: l_object_id := p_object_id;
1412: check_duplicate_obj (
1413: p_application_id,
1415: l_object_id,
1416: l_return_status,
1417: l_object_version_number
1418: );
1419: if (l_return_status = FND_API.G_FALSE) then
1420: RAISE FND_API.G_EXC_ERROR;
1421: else
1422: -- Check if the input parent id exists
1423: l_return_status := FND_API.G_TRUE;
1416: l_return_status,
1417: l_object_version_number
1418: );
1419: if (l_return_status = FND_API.G_FALSE) then
1420: RAISE FND_API.G_EXC_ERROR;
1421: else
1422: -- Check if the input parent id exists
1423: l_return_status := FND_API.G_TRUE;
1424: l_parent_name := NULL;
1419: if (l_return_status = FND_API.G_FALSE) then
1420: RAISE FND_API.G_EXC_ERROR;
1421: else
1422: -- Check if the input parent id exists
1423: l_return_status := FND_API.G_TRUE;
1424: l_parent_name := NULL;
1425: l_parent_id := p_parent_id;
1426: if (l_parent_id is not null) then
1427: check_duplicate_obj (
1430: l_parent_id,
1431: l_return_status,
1432: l_parent_version_number
1433: );
1434: if (l_return_status = FND_API.G_FALSE) then
1435: -- parent id does not exist
1436: RAISE FND_API.G_EXC_ERROR;
1437: else
1438: -- Update the object with the parent id
1432: l_parent_version_number
1433: );
1434: if (l_return_status = FND_API.G_FALSE) then
1435: -- parent id does not exist
1436: RAISE FND_API.G_EXC_ERROR;
1437: else
1438: -- Update the object with the parent id
1439: update_jtf_perz_lf_object (
1440: l_object_id,
1456: /*
1457: else
1458: if (l_active_flag <> 'Y') OR (l_active_flag != 'N') then
1459: --dbms_output.put_line('out 3.2' || l_active_flag);
1460: -- The above comparision must change to FND_API... in final version or later
1461: -- Srikanth - 9-7-99
1462: RAISE FND_API.G_EXC_ERROR;
1463: end if;
1464: */
1458: if (l_active_flag <> 'Y') OR (l_active_flag != 'N') then
1459: --dbms_output.put_line('out 3.2' || l_active_flag);
1460: -- The above comparision must change to FND_API... in final version or later
1461: -- Srikanth - 9-7-99
1462: RAISE FND_API.G_EXC_ERROR;
1463: end if;
1464: */
1465: end if;
1466:
1468: for l_curr_row in 1..l_count
1469: LOOP
1470: -- 4.1 Check the attribute
1471: l_rowid := NULL;
1472: l_return_status := FND_API.G_TRUE;
1473: l_attribute_id := NULL;
1474: --dbms_output.put_line('attribute name '||l_attrib_value_tbl(l_curr_row).attribute_name);
1475: --dbms_output.put_line('attribute type '||l_attrib_value_tbl(l_curr_row).attribute_type);
1476: check_attribute(
1479: l_rowid,
1480: l_attribute_id,
1481: l_return_status
1482: );
1483: if (l_return_status = FND_API.G_FALSE) then
1484: --dbms_output.put_line('out 4');
1485: --RAISE FND_API.G_EXC_ERROR;
1486: -- Enhancement# 1097254
1487: -- This enhancement is done as a temporary solution to
1481: l_return_status
1482: );
1483: if (l_return_status = FND_API.G_FALSE) then
1484: --dbms_output.put_line('out 4');
1485: --RAISE FND_API.G_EXC_ERROR;
1486: -- Enhancement# 1097254
1487: -- This enhancement is done as a temporary solution to
1488: -- allow the java layer users to add an attribute to
1489: -- the object_type on the fly.
1507: l_attrib_value_tbl(l_curr_row).attribute_type
1508: );
1509: if (l_rowid is null) then
1510: -- raising the error if unable to insert the attribute record
1511: RAISE FND_API.G_EXC_ERROR;
1512: end if;
1513: -- create a map entry object_type - attribute in
1514: -- jtf_perz_obj_type_map table
1515: l_map_id := null;
1521: l_attribute_id
1522: );
1523: if (l_rowid is null) then
1524: -- raising the error if unable to insert the map record
1525: RAISE FND_API.G_EXC_ERROR;
1526: end if;
1527:
1528: l_attrib_value_tbl(l_curr_row).attribute_id := l_attribute_id;
1529: l_db_attrib_value_tbl(l_curr_row).attribute_id := l_attribute_id;
1615: l_object_id
1616: );
1617: if (l_rowid is null) then
1618: --dbms_output.put_line('while inserting object map');
1619: RAISE FND_API.G_EXC_ERROR;
1620: end if;
1621: END;
1622: -- SMATTEGU Bug#1098513 changes end
1623:
1634: l_attrib_value_tbl(l_curr_row).priority
1635: );
1636:
1637: if (l_rowid is null) then
1638: RAISE FND_API.G_EXC_ERROR;
1639: end if;
1640:
1641: EXCEPTION
1642: WHEN NO_DATA_FOUND THEN
1639: end if;
1640:
1641: EXCEPTION
1642: WHEN NO_DATA_FOUND THEN
1643: RAISE FND_API.G_EXC_ERROR;
1644: WHEN OTHERS THEN
1645: RAISE FND_API.G_EXC_ERROR;
1646: END;
1647: END;
1641: EXCEPTION
1642: WHEN NO_DATA_FOUND THEN
1643: RAISE FND_API.G_EXC_ERROR;
1644: WHEN OTHERS THEN
1645: RAISE FND_API.G_EXC_ERROR;
1646: END;
1647: END;
1648: END LOOP;
1649: x_object_id := l_object_id;
1651: --
1652: -- 5. Commit the whole thing
1653:
1654: -- Standard check of p_commit.
1655: IF FND_API.To_Boolean ( p_commit ) THEN
1656: COMMIT WORK;
1657: END IF;
1658:
1659: -- Debug Message
1663: p_data => x_msg_data
1664: );
1665: EXCEPTION
1666:
1667: WHEN FND_API.G_EXC_ERROR THEN
1668:
1669: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1670: x_return_status := FND_API.G_RET_STS_ERROR ;
1671:
1666:
1667: WHEN FND_API.G_EXC_ERROR THEN
1668:
1669: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1670: x_return_status := FND_API.G_RET_STS_ERROR ;
1671:
1672: FND_MSG_PUB.Count_And_Get
1673: ( p_count => x_msg_count,
1674: p_data => x_msg_data
1679: THEN
1680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1681: END IF;
1682:
1683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1684:
1685: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1687:
1682:
1683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1684:
1685: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1687:
1688: FND_MSG_PUB.Count_And_Get
1689: ( p_count => x_msg_count,
1690: p_data => x_msg_data
1697:
1698: WHEN OTHERS THEN
1699:
1700: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1702:
1703: FND_MSG_PUB.Count_And_Get
1704: ( p_count => x_msg_count,
1705: p_data => x_msg_data
1723: -- Paramaeters :
1724: -- IN :
1725: -- p_api_version_number IN NUMBER Required
1726: -- p_init_msg_list IN VARCHAR2 Optional
1727: -- Default = FND_API.G_FALSE
1728: -- p_application_id IN NUMBER Required
1729: -- p_profile_id IN NUMBER Required
1730: -- p_profile_name IN VARCHAR2 Optional
1731: -- p_profile_type IN VARCHAR2,
1757: -- *****************************************************************************
1758:
1759: PROCEDURE save_lf_object
1760: ( p_api_version_number IN NUMBER,
1761: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1762: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1763:
1764: p_profile_id IN NUMBER,
1765: p_profile_name IN VARCHAR2,
1758:
1759: PROCEDURE save_lf_object
1760: ( p_api_version_number IN NUMBER,
1761: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1762: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1763:
1764: p_profile_id IN NUMBER,
1765: p_profile_name IN VARCHAR2,
1766: p_profile_type IN VARCHAR2,
1789: l_api_name VARCHAR2(60) := 'Save LF Object';
1790: l_api_version_number NUMBER := p_api_version_number;
1791:
1792: -- ******* save_lf_object Local Variables - for implementation ********
1793: l_return_status VARCHAR2(240) := FND_API.G_TRUE;
1794: l_profile_id NUMBER := NULL;
1795: l_profile_name VARCHAR2(60) := p_profile_name;
1796: l_profile_type VARCHAR2(30) := p_profile_type;
1797: l_profile_attrib JTF_PERZ_PROFILE_PUB.PROFILE_ATTRIB_TBL_TYPE
1795: l_profile_name VARCHAR2(60) := p_profile_name;
1796: l_profile_type VARCHAR2(30) := p_profile_type;
1797: l_profile_attrib JTF_PERZ_PROFILE_PUB.PROFILE_ATTRIB_TBL_TYPE
1798: := p_profile_attrib_tbl;
1799: l_commit VARCHAR2(1) := FND_API.G_TRUE;
1800: l_attrib_value_tbl JTF_PERZ_LF_PUB.ATTRIB_VALUE_TBL_TYPE
1801: := p_attrib_value_tbl;
1802: l_object_type VARCHAR2(60) := p_object_type;
1803: l_object_type_id NUMBER := p_object_type_id;
1811: l_out_obj_type_map_tbl JTF_PERZ_LF_PVT.OBJ_TYPE_MAP_TBL_TYPE;
1812: l_attrib_rec_tbl JTF_PERZ_LF_PUB.ATTRIB_REC_TBL_TYPE;
1813: l_active_flag VARCHAR2(1) := upper(p_active_flag);
1814: l_object_type_desc VARCHAR2(240) := NULL;
1815: l_init_msg_list VARCHAR2(1) := FND_API.G_FALSE;
1816:
1817: l_object_version_number NUMBER := NULL;
1818: l_obj_type_version_no NUMBER := NULL;
1819: l_parent_version_number NUMBER := NULL;
1839: -- Standard Start of API savepoint
1840: SAVEPOINT save_lf_object;
1841:
1842: -- Standard call to check for call compatibility.
1843: IF NOT FND_API.Compatible_API_Call
1844: ( l_api_version_number,
1845: p_api_version_number,
1846: l_api_name,
1847: G_PKG_NAME)
1845: p_api_version_number,
1846: l_api_name,
1847: G_PKG_NAME)
1848: THEN
1849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1850: END IF;
1851:
1852: -- Initialize message list if p_init_msg_list is set to TRUE.
1853: IF FND_API.to_Boolean( p_init_msg_list )
1849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1850: END IF;
1851:
1852: -- Initialize message list if p_init_msg_list is set to TRUE.
1853: IF FND_API.to_Boolean( p_init_msg_list )
1854: THEN
1855: FND_MSG_PUB.initialize;
1856: END IF;
1857:
1855: FND_MSG_PUB.initialize;
1856: END IF;
1857:
1858: -- Initialize API return status to success
1859: x_return_status := FND_API.G_RET_STS_SUCCESS;
1860:
1861:
1862:
1863: -- ******* save_lf_object implementation ********
1869:
1870: l_profile_id := p_profile_id;
1871: l_profile_name := p_profile_name;
1872: l_profile_type := p_profile_type;
1873: l_return_status := FND_API.G_TRUE;
1874:
1875: --dbms_output.put_line (' profile id'|| l_profile_id);
1876: --dbms_output.put_line (' profile name'|| l_profile_name);
1877: JTF_PERZ_PROFILE_PVT.check_profile_duplicates(
1884:
1885: -- If profile does not exists, create it.
1886: -- If not successfuk in creation raise an error and exit
1887:
1888: if (l_return_status = FND_API.G_FALSE) then
1889:
1890: --dbms_output.put_line (' out 2');
1891: l_return_status := FND_API.G_RET_STS_SUCCESS;
1892: l_commit := FND_API.G_FALSE;
1887:
1888: if (l_return_status = FND_API.G_FALSE) then
1889:
1890: --dbms_output.put_line (' out 2');
1891: l_return_status := FND_API.G_RET_STS_SUCCESS;
1892: l_commit := FND_API.G_FALSE;
1893: l_profile_id := p_profile_id;
1894:
1895: JTF_PERZ_PROFILE_PVT.Create_Profile(
1888: if (l_return_status = FND_API.G_FALSE) then
1889:
1890: --dbms_output.put_line (' out 2');
1891: l_return_status := FND_API.G_RET_STS_SUCCESS;
1892: l_commit := FND_API.G_FALSE;
1893: l_profile_id := p_profile_id;
1894:
1895: JTF_PERZ_PROFILE_PVT.Create_Profile(
1896: p_api_version_number => l_api_version_number,
1905: x_return_status => l_return_status,
1906: x_msg_count => x_msg_count,
1907: x_msg_data => x_msg_data
1908: );
1909: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1910: RAISE FND_API.G_EXC_ERROR;
1911: end if;
1912: end if;
1913:
1906: x_msg_count => x_msg_count,
1907: x_msg_data => x_msg_data
1908: );
1909: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1910: RAISE FND_API.G_EXC_ERROR;
1911: end if;
1912: end if;
1913:
1914:
1928:
1929: /* Enhancement# 1075579 comments start
1930: --2. Check if Type Exists
1931:
1932: l_return_status := FND_API.G_TRUE;
1933: check_duplicate_obj_type (
1934: l_object_type,
1935: l_return_status,
1936: l_object_type_id,
1938: );
1939:
1940: -- If object type does not exists, create it.
1941: -- If not successful in creation raise an error and exit
1942: if (l_return_status = FND_API.G_FALSE) then
1943:
1944: Enhancement# 1075579 comments end */
1945: l_return_status := FND_API.G_RET_STS_SUCCESS;
1946: l_commit := FND_API.G_FALSE;
1941: -- If not successful in creation raise an error and exit
1942: if (l_return_status = FND_API.G_FALSE) then
1943:
1944: Enhancement# 1075579 comments end */
1945: l_return_status := FND_API.G_RET_STS_SUCCESS;
1946: l_commit := FND_API.G_FALSE;
1947:
1948: for l_curr_row in 1..l_count
1949: LOOP
1942: if (l_return_status = FND_API.G_FALSE) then
1943:
1944: Enhancement# 1075579 comments end */
1945: l_return_status := FND_API.G_RET_STS_SUCCESS;
1946: l_commit := FND_API.G_FALSE;
1947:
1948: for l_curr_row in 1..l_count
1949: LOOP
1950: l_attrib_rec_tbl(l_curr_row).ATTRIBUTE_ID := l_attrib_value_tbl(l_curr_row).ATTRIBUTE_ID;
1971: x_msg_count => x_msg_count,
1972: x_msg_data => x_msg_data
1973: );
1974:
1975: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
1976: l_object_type_id := l_out_object_type_id;
1977: -- dbms_output.put_line(' cre type id' ||l_object_type_id);
1978: else
1979: --dbms_output.put_line (' out 6');
1976: l_object_type_id := l_out_object_type_id;
1977: -- dbms_output.put_line(' cre type id' ||l_object_type_id);
1978: else
1979: --dbms_output.put_line (' out 6');
1980: RAISE FND_API.G_EXC_ERROR;
1981: end if;
1982:
1983: /* Enhancement# 1075579 comments start
1984: end if;
1987: -- 2. check if object exists
1988:
1989:
1990:
1991: l_return_status := FND_API.G_TRUE;
1992: l_object_name := p_object_name;
1993: l_object_id := p_object_id;
1994:
1995: check_duplicate_obj (
1999: l_return_status,
2000: l_object_version_number
2001: );
2002: --dbms_output.put_line(' out 7');
2003: if (l_return_status = FND_API.G_FALSE) then
2004: --dbms_output.put_line(' out 8');
2005: l_return_status := FND_API.G_RET_STS_SUCCESS;
2006: l_commit := FND_API.G_FALSE;
2007:
2001: );
2002: --dbms_output.put_line(' out 7');
2003: if (l_return_status = FND_API.G_FALSE) then
2004: --dbms_output.put_line(' out 8');
2005: l_return_status := FND_API.G_RET_STS_SUCCESS;
2006: l_commit := FND_API.G_FALSE;
2007:
2008: Create_lf_object (
2009: p_api_version_number => l_api_version_number,
2002: --dbms_output.put_line(' out 7');
2003: if (l_return_status = FND_API.G_FALSE) then
2004: --dbms_output.put_line(' out 8');
2005: l_return_status := FND_API.G_RET_STS_SUCCESS;
2006: l_commit := FND_API.G_FALSE;
2007:
2008: Create_lf_object (
2009: p_api_version_number => l_api_version_number,
2010: p_init_msg_list => l_init_msg_list,
2028: x_msg_count => x_msg_count,
2029: x_msg_data => x_msg_data
2030: );
2031:
2032: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
2033: --dbms_output.put_line(' out 8.5');
2034: l_object_id := l_out_object_id;
2035: x_object_id := l_out_object_id;
2036: x_return_status := FND_API.G_RET_STS_SUCCESS;
2032: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
2033: --dbms_output.put_line(' out 8.5');
2034: l_object_id := l_out_object_id;
2035: x_object_id := l_out_object_id;
2036: x_return_status := FND_API.G_RET_STS_SUCCESS;
2037: else
2038: --dbms_output.put_line(' out 9');
2039: RAISE FND_API.G_EXC_ERROR;
2040: end if;
2035: x_object_id := l_out_object_id;
2036: x_return_status := FND_API.G_RET_STS_SUCCESS;
2037: else
2038: --dbms_output.put_line(' out 9');
2039: RAISE FND_API.G_EXC_ERROR;
2040: end if;
2041:
2042: else
2043: --dbms_output.put_line(' out 10');
2040: end if;
2041:
2042: else
2043: --dbms_output.put_line(' out 10');
2044: l_return_status := FND_API.G_RET_STS_SUCCESS;
2045: l_commit := FND_API.G_FALSE;
2046:
2047: -- Make sure the active flag is given else default it to Yes(Y)
2048: if (l_active_flag is null) then
2041:
2042: else
2043: --dbms_output.put_line(' out 10');
2044: l_return_status := FND_API.G_RET_STS_SUCCESS;
2045: l_commit := FND_API.G_FALSE;
2046:
2047: -- Make sure the active flag is given else default it to Yes(Y)
2048: if (l_active_flag is null) then
2049: l_active_flag := 'Y';
2073: x_msg_count => x_msg_count,
2074: x_msg_data => x_msg_data
2075: );
2076:
2077: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
2078: --dbms_output.put_line (' out 11');
2079: l_object_id := l_out_object_id;
2080: x_object_id := l_out_object_id;
2081: x_return_status := FND_API.G_RET_STS_SUCCESS;
2077: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
2078: --dbms_output.put_line (' out 11');
2079: l_object_id := l_out_object_id;
2080: x_object_id := l_out_object_id;
2081: x_return_status := FND_API.G_RET_STS_SUCCESS;
2082: -- dbms_output.put_line(' out 6');
2083: -- dbms_output.put_line('object_id '||x_object_id);
2084: else
2085: --dbms_output.put_line (' out 12');
2082: -- dbms_output.put_line(' out 6');
2083: -- dbms_output.put_line('object_id '||x_object_id);
2084: else
2085: --dbms_output.put_line (' out 12');
2086: RAISE FND_API.G_EXC_ERROR;
2087: end if;
2088:
2089: end if;
2090:
2095: -- End of API body.
2096: --
2097:
2098: -- Standard check of p_commit.
2099: IF FND_API.To_Boolean ( p_commit )
2100: THEN
2101: COMMIT WORK;
2102: END IF;
2103:
2109: );
2110:
2111: EXCEPTION
2112:
2113: WHEN FND_API.G_EXC_ERROR THEN
2114:
2115: ROLLBACK TO save_lf_object;
2116: x_return_status := FND_API.G_RET_STS_ERROR ;
2117:
2112:
2113: WHEN FND_API.G_EXC_ERROR THEN
2114:
2115: ROLLBACK TO save_lf_object;
2116: x_return_status := FND_API.G_RET_STS_ERROR ;
2117:
2118: FND_MSG_PUB.Count_And_Get
2119: ( p_count => x_msg_count,
2120: p_data => x_msg_data
2124: THEN
2125: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2126: END IF;
2127:
2128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2129:
2130: ROLLBACK TO save_lf_object;
2131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2132:
2127:
2128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2129:
2130: ROLLBACK TO save_lf_object;
2131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2132:
2133: FND_MSG_PUB.Count_And_Get
2134: ( p_count => x_msg_count,
2135: p_data => x_msg_data
2142:
2143: WHEN OTHERS THEN
2144:
2145: ROLLBACK TO save_lf_object;
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2147:
2148: FND_MSG_PUB.Count_And_Get
2149: ( p_count => x_msg_count,
2150: p_data => x_msg_data
2167: -- Paramaeters :
2168: -- IN :
2169: -- p_api_version_number IN NUMBER Required
2170: -- p_init_msg_list IN VARCHAR2 Optional
2171: -- Default = FND_API.G_FALSE
2172: -- p_profile_id IN NUMBER Optional
2173: -- p_profile_name IN VARCHAR2 Optional
2174: -- p_parent_id IN NUMBER Optional
2175: -- p_object_id IN NUMBER Optional
2194: -- *****************************************************************************
2195:
2196: PROCEDURE Get_lf_object
2197: ( p_api_version_number IN NUMBER,
2198: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2199:
2200: p_application_id IN NUMBER,
2201: p_priority IN NUMBER,
2202: p_profile_id IN NUMBER,
2216: l_api_name CONSTANT VARCHAR2(30)
2217: := 'Get LF Object';
2218: -- local variable in get_lf_object to adhere to standards
2219: l_profile_id NUMBER := NULL;
2220: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
2221: l_profile_name VARCHAR2(60) := NULL;
2222: l_object_name VARCHAR2(60) := p_object_name;
2223: l_object_id NUMBER := p_object_id;
2224: l_active_flag VARCHAR2(1) := upper(p_obj_active_flag);
2436:
2437: -- ******* Standard Begins ********
2438:
2439: -- Standard call to check for call compatibility.
2440: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
2441: -- THEN
2442: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: -- END IF;
2444:
2438:
2439: -- Standard call to check for call compatibility.
2440: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
2441: -- THEN
2442: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: -- END IF;
2444:
2445: -- Initialize message list if p_init_msg_list is set to TRUE.
2446: IF FND_API.to_Boolean( p_init_msg_list )
2442: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: -- END IF;
2444:
2445: -- Initialize message list if p_init_msg_list is set to TRUE.
2446: IF FND_API.to_Boolean( p_init_msg_list )
2447: THEN
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2451: -- Initialize API return status to success
2452: x_return_status := FND_API.G_RET_STS_SUCCESS;
2453:
2454:
2455: -- ******* Get_lf_object implementation ********
2456:
2454:
2455: -- ******* Get_lf_object implementation ********
2456:
2457: -- Make sure the active flag is given else default it to Yes(Y)
2458: if (l_active_flag is null) OR (l_active_flag = FND_API.G_MISS_CHAR) then
2459: l_active_flag := 'Y';
2460: end if;
2461:
2462: l_object_name := p_object_name;
2473: -- get the children only if the parent is active.
2474: -- Currently this condition is not handled -Srikanth 9-5-99
2475:
2476: if (((p_profile_id IS NOT NULL) AND
2477: (p_profile_id <> FND_API.G_MISS_NUM)) AND
2478: ((p_object_id IS NOT NULL) AND
2479: (p_object_id <> FND_API.G_MISS_NUM))) then
2480: l_count := 1;
2481:
2475:
2476: if (((p_profile_id IS NOT NULL) AND
2477: (p_profile_id <> FND_API.G_MISS_NUM)) AND
2478: ((p_object_id IS NOT NULL) AND
2479: (p_object_id <> FND_API.G_MISS_NUM))) then
2480: l_count := 1;
2481:
2482: open C_get_child_pioi (l_profile_id, p_application_id,
2483: l_object_id,l_active_flag);
2518: end loop;
2519: close C_get_child_pioi;
2520:
2521: elsif (((p_profile_name IS NOT NULL) AND
2522: (p_profile_name <> FND_API.G_MISS_CHAR ))AND
2523: ((p_object_id IS NOT NULL) AND
2524: (p_object_id <> FND_API.G_MISS_NUM))) then
2525: l_count := 1;
2526:
2520:
2521: elsif (((p_profile_name IS NOT NULL) AND
2522: (p_profile_name <> FND_API.G_MISS_CHAR ))AND
2523: ((p_object_id IS NOT NULL) AND
2524: (p_object_id <> FND_API.G_MISS_NUM))) then
2525: l_count := 1;
2526:
2527: open C_get_child_pnoi (l_profile_name, p_application_id,
2528: l_object_id,l_active_flag);
2563: end loop;
2564: close C_get_child_pnoi;
2565:
2566: elsif (((p_profile_name IS NOT NULL) AND
2567: (p_profile_name <> FND_API.G_MISS_CHAR) )AND
2568: ((p_object_name IS NOT NULL) AND
2569: (p_object_name <> FND_API.G_MISS_CHAR))) then
2570: l_count := 1;
2571:
2565:
2566: elsif (((p_profile_name IS NOT NULL) AND
2567: (p_profile_name <> FND_API.G_MISS_CHAR) )AND
2568: ((p_object_name IS NOT NULL) AND
2569: (p_object_name <> FND_API.G_MISS_CHAR))) then
2570: l_count := 1;
2571:
2572: open C_get_child_pnon (l_profile_name, p_application_id,
2573: l_object_name,l_active_flag);
2608: end loop;
2609: close C_get_child_pnon;
2610:
2611: elsif (((p_profile_id IS NOT NULL) AND
2612: (p_profile_id <> FND_API.G_MISS_NUM) )AND
2613: ((p_object_name IS NOT NULL) AND
2614: (p_object_name <> FND_API.G_MISS_CHAR))) then
2615: l_count := 1;
2616:
2610:
2611: elsif (((p_profile_id IS NOT NULL) AND
2612: (p_profile_id <> FND_API.G_MISS_NUM) )AND
2613: ((p_object_name IS NOT NULL) AND
2614: (p_object_name <> FND_API.G_MISS_CHAR))) then
2615: l_count := 1;
2616:
2617: open C_get_child_pion (l_profile_id, p_application_id,
2618: l_object_name,l_active_flag);
2653: end loop;
2654: close C_get_child_pion;
2655:
2656: else
2657: RAISE FND_API.G_EXC_ERROR;
2658: end if;
2659:
2660:
2661: else /* Do Not get children case */
2660:
2661: else /* Do Not get children case */
2662:
2663: if (((p_profile_id IS NOT NULL) AND
2664: (p_profile_id <> FND_API.G_MISS_NUM)) AND
2665: ((p_object_id IS NOT NULL) AND
2666: (p_object_id <> FND_API.G_MISS_NUM))) then
2667: l_count := 1;
2668:
2662:
2663: if (((p_profile_id IS NOT NULL) AND
2664: (p_profile_id <> FND_API.G_MISS_NUM)) AND
2665: ((p_object_id IS NOT NULL) AND
2666: (p_object_id <> FND_API.G_MISS_NUM))) then
2667: l_count := 1;
2668:
2669: open C_get_no_child_pioi (l_profile_id, p_application_id,
2670: l_object_id,l_active_flag);
2705: end loop;
2706: close C_get_no_child_pioi;
2707:
2708: elsif (((p_profile_name IS NOT NULL) AND
2709: (p_profile_name <> FND_API.G_MISS_CHAR) )AND
2710: ((p_object_id IS NOT NULL) AND
2711: (p_object_id <> FND_API.G_MISS_NUM))) then
2712: l_count := 1;
2713:
2707:
2708: elsif (((p_profile_name IS NOT NULL) AND
2709: (p_profile_name <> FND_API.G_MISS_CHAR) )AND
2710: ((p_object_id IS NOT NULL) AND
2711: (p_object_id <> FND_API.G_MISS_NUM))) then
2712: l_count := 1;
2713:
2714: open C_get_no_child_pnoi (l_profile_name, p_application_id,
2715: l_object_id,l_active_flag);
2750: end loop;
2751: close C_get_no_child_pnoi;
2752:
2753: elsif (((p_profile_name IS NOT NULL) AND
2754: (p_profile_name <> FND_API.G_MISS_CHAR) )AND
2755: ((p_object_name IS NOT NULL) AND
2756: (p_object_name <> FND_API.G_MISS_CHAR))) then
2757: l_count := 1;
2758:
2752:
2753: elsif (((p_profile_name IS NOT NULL) AND
2754: (p_profile_name <> FND_API.G_MISS_CHAR) )AND
2755: ((p_object_name IS NOT NULL) AND
2756: (p_object_name <> FND_API.G_MISS_CHAR))) then
2757: l_count := 1;
2758:
2759: open C_get_no_child_pnon (l_profile_name, p_application_id,
2760: l_object_name,l_active_flag);
2795: end loop;
2796: close C_get_no_child_pnon;
2797:
2798: elsif (((p_profile_id IS NOT NULL) AND
2799: (p_profile_id <> FND_API.G_MISS_NUM) )AND
2800: ((p_object_name IS NOT NULL) AND
2801: (p_object_name <> FND_API.G_MISS_CHAR))) then
2802: l_count := 1;
2803:
2797:
2798: elsif (((p_profile_id IS NOT NULL) AND
2799: (p_profile_id <> FND_API.G_MISS_NUM) )AND
2800: ((p_object_name IS NOT NULL) AND
2801: (p_object_name <> FND_API.G_MISS_CHAR))) then
2802: l_count := 1;
2803:
2804: open C_get_no_child_pion (l_profile_id, p_application_id,
2805: l_object_name,l_active_flag);
2840: end loop;
2841: close C_get_no_child_pion;
2842:
2843: else
2844: RAISE FND_API.G_EXC_ERROR;
2845: end if;
2846:
2847:
2848: /* If we have to raise an error if there are no records in the value table,
2847:
2848: /* If we have to raise an error if there are no records in the value table,
2849: then uncomment the following three lines - Srikanth
2850: if(l_object_tbl.count = 0) then
2851: RAISE FND_API.G_EXC_ERROR;
2852: end if;
2853:
2854: */
2855: end if;
2858:
2859:
2860: EXCEPTION
2861:
2862: WHEN FND_API.G_EXC_ERROR THEN
2863:
2864: x_return_status := FND_API.G_RET_STS_ERROR ;
2865:
2866: FND_MSG_PUB.Count_And_Get
2860: EXCEPTION
2861:
2862: WHEN FND_API.G_EXC_ERROR THEN
2863:
2864: x_return_status := FND_API.G_RET_STS_ERROR ;
2865:
2866: FND_MSG_PUB.Count_And_Get
2867: ( p_count => x_msg_count,
2868: p_data => x_msg_data
2887: -- Paramaeters :
2888: -- IN :
2889: -- p_api_version_number IN NUMBER Required
2890: -- p_init_msg_list IN VARCHAR2 Optional
2891: -- Default = FND_API.G_FALSE
2892: --
2893: -- p_object_type IN VARCHAR2 Optional
2894: -- p_object_type_desc IN VARCHAR2 Optional
2895: -- p_object_type_id IN NUMBER Optional
2913: -- *****************************************************************************
2914:
2915: PROCEDURE Get_lf_object_type
2916: ( p_api_version_number IN NUMBER,
2917: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2918:
2919: p_Object_type IN VARCHAR,
2920: p_Object_type_Id IN NUMBER,
2921:
2929: )IS
2930:
2931: l_api_version_number NUMBER := p_api_version_number;
2932: l_api_name CONSTANT VARCHAR2(30) := 'GET_LF_OBJECT_TYPE';
2933: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
2934: l_attrib_rec_tbl JTF_PERZ_LF_PUB.ATTRIB_REC_TBL_TYPE;
2935: l_Object_type_Id NUMBER := p_Object_type_Id;
2936: l_Object_type VARCHAR2(60) := p_Object_type;
2937: l_object_type_desc VARCHAR2(240) := NULL;
2946:
2947: -- ******* Standard Begins Get_lf_object_type********
2948:
2949: -- Standard call to check for call compatibility.
2950: IF NOT FND_API.Compatible_API_Call
2951: ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
2952: THEN
2953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2954: END IF;
2949: -- Standard call to check for call compatibility.
2950: IF NOT FND_API.Compatible_API_Call
2951: ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
2952: THEN
2953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2954: END IF;
2955:
2956: -- Initialize message list if p_init_msg_list is set to TRUE.
2957: IF FND_API.to_Boolean( p_init_msg_list )
2953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2954: END IF;
2955:
2956: -- Initialize message list if p_init_msg_list is set to TRUE.
2957: IF FND_API.to_Boolean( p_init_msg_list )
2958: THEN
2959: FND_MSG_PUB.initialize;
2960: END IF;
2961:
2959: FND_MSG_PUB.initialize;
2960: END IF;
2961:
2962: -- Initialize API return status to success
2963: x_return_status := FND_API.G_RET_STS_SUCCESS;
2964:
2965: -- ******* Get_lf_object_type implementation ********
2966:
2967: -- Calling the get_obj_type_details
2965: -- ******* Get_lf_object_type implementation ********
2966:
2967: -- Calling the get_obj_type_details
2968: -- dbms_output.put_line('out 1');
2969: l_return_status := FND_API.G_TRUE;
2970:
2971: get_obj_type_details
2972: (
2973: l_Object_type,
2978: );
2979:
2980: -- dbms_output.put_line('out 2');
2981:
2982: if (l_return_status = FND_API.G_FALSE) then
2983: -- dbms_output.put_line('out 3');
2984: x_return_status := FND_API.G_RET_STS_ERROR ;
2985: else
2986: --dbms_output.put_line('out 4');
2980: -- dbms_output.put_line('out 2');
2981:
2982: if (l_return_status = FND_API.G_FALSE) then
2983: -- dbms_output.put_line('out 3');
2984: x_return_status := FND_API.G_RET_STS_ERROR ;
2985: else
2986: --dbms_output.put_line('out 4');
2987: x_Object_type_Id := l_Object_type_Id;
2988: --dbms_output.put_line('l_Object_type_Id:'||l_Object_type_Id);
3003: -- Paramaeters :
3004: -- IN :
3005: -- p_api_version_number IN NUMBER Required
3006: -- p_init_msg_list IN VARCHAR2 Optional
3007: -- Default = FND_API.G_FALSE
3008: -- p_commit IN VARCHAR2 Optional
3009:
3010: -- p_object_type_id IN NUMBER Optional
3011: -- p_object_type IN VARCHAR2 Optional
3029: -- *****************************************************************************
3030:
3031: PROCEDURE save_lf_object_type
3032: ( p_api_version_number IN NUMBER,
3033: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3034: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3035:
3036: p_object_type_id IN NUMBER,
3037: p_object_type IN VARCHAR2,
3030:
3031: PROCEDURE save_lf_object_type
3032: ( p_api_version_number IN NUMBER,
3033: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3034: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3035:
3036: p_object_type_id IN NUMBER,
3037: p_object_type IN VARCHAR2,
3038: p_object_type_desc IN VARCHAR2,
3053: l_api_version_number NUMBER := p_api_version_number;
3054: l_api_name CONSTANT VARCHAR2(30) := 'Save Object Type';
3055:
3056: -- Following variables are needed to implement this procedure
3057: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
3058: l_rowid ROWID := NULL;
3059: l_OBJECT_TYPE_ID NUMBER := p_object_type_id;
3060: l_OBJECT_TYPE VARCHAR2(60) := p_object_type;
3061: l_OBJECT_TYPE_DESC VARCHAR2(240) := p_object_type_desc;
3093: -- Standard Start of API savepoint
3094: SAVEPOINT SAVE_PERZ_LF_TYPE_PVT;
3095:
3096: -- Standard call to check for call compatibility.
3097: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
3098: -- THEN
3099: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3100: -- END IF;
3101:
3095:
3096: -- Standard call to check for call compatibility.
3097: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
3098: -- THEN
3099: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3100: -- END IF;
3101:
3102: -- Initialize message list if p_init_msg_list is set to TRUE.
3103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3099: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3100: -- END IF;
3101:
3102: -- Initialize message list if p_init_msg_list is set to TRUE.
3103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3104: FND_MSG_PUB.initialize;
3105: END IF;
3106:
3107: -- Initialize API return status to success
3104: FND_MSG_PUB.initialize;
3105: END IF;
3106:
3107: -- Initialize API return status to success
3108: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3109:
3110: -- ******* save_lf_object_type implementation ********
3111:
3112: -- Check if object type exists
3110: -- ******* save_lf_object_type implementation ********
3111:
3112: -- Check if object type exists
3113:
3114: l_return_status := FND_API.G_TRUE;
3115: check_duplicate_obj_type (
3116: l_object_type ,
3117: l_return_status ,
3118: l_object_type_id,
3119: l_obj_type_version_no
3120: );
3121:
3122:
3123: if (l_return_status = FND_API.G_TRUE) then
3124: -- Object Type already exists.
3125: -- Update the Object Type Description
3126: -- Loop through each attribute supplied
3127: -- compare the supplied attribute and that of the attribute associated
3146: l_obj_type_version_no
3147: );
3148:
3149: if (l_rowid is null) then
3150: RAISE FND_API.G_EXC_ERROR;
3151: end if;
3152: IF (l_count> 0) THEN
3153: FOR l_curr_row in 1..l_count LOOP
3154: -- Check if the attribute is there in the DB or not
3152: IF (l_count> 0) THEN
3153: FOR l_curr_row in 1..l_count LOOP
3154: -- Check if the attribute is there in the DB or not
3155: l_rowid := NULL;
3156: l_return_status := FND_API.G_TRUE;
3157: l_attribute_id := NULL;
3158: --dbms_output.put_line('attribute name '||l_attrib_value_tbl(l_curr_row).attribute_name);
3159: --dbms_output.put_line('attribute type '||l_attrib_value_tbl(l_curr_row).attribute_type);
3160: check_attribute(
3163: l_rowid,
3164: l_attribute_id,
3165: l_return_status
3166: );
3167: if (l_return_status = FND_API.G_FALSE) then
3168: --dbms_output.put_line('out 4');
3169: -- If the attribute is not there in the DB
3170: -- Create the attribute
3171:
3178: l_attrib_rec_tbl(l_curr_row).attribute_type
3179: );
3180: if (l_rowid is null) then
3181: -- unable to insert the attribute record
3182: RAISE FND_API.G_EXC_ERROR;
3183: end if;
3184: end if;
3185:
3186: -- Now, we know we have an attribute in the DB.
3211: l_attribute_id
3212: );
3213: if (l_rowid is null) then
3214: -- raising the error if unable to insert the map record
3215: RAISE FND_API.G_EXC_ERROR;
3216: else
3217: -- inserting record in x_obj_type_map_tbl for output
3218: x_obj_type_map_tbl(l_inserted_map).TYPE_MAP_ID := l_map_id;
3219: l_inserted_map := l_inserted_map + 1;
3233: -- dbms_output.put_line('l_object_type '||l_OBJECT_TYPE);
3234: -- dbms_output.put_line('l_object_type_desc '||l_OBJECT_TYPE_desc);
3235:
3236: if ((l_OBJECT_TYPE is not null) and
3237: (l_OBJECT_TYPE <> FND_API.G_MISS_CHAR)) then
3238: Insert_JTF_PERZ_LF_OBJ_TYPE(
3239: l_Rowid,
3240: l_OBJECT_TYPE_ID,
3241: l_OBJECT_TYPE,
3241: l_OBJECT_TYPE,
3242: l_OBJECT_TYPE_DESC
3243: );
3244: else
3245: RAISE FND_API.G_EXC_ERROR;
3246: end if;
3247:
3248:
3249: if (l_rowid is null) then
3246: end if;
3247:
3248:
3249: if (l_rowid is null) then
3250: RAISE FND_API.G_EXC_ERROR;
3251: else
3252: x_OBJECT_TYPE_ID := l_OBJECT_TYPE_ID;
3253: end if;
3254: -- loop through each attribute supplied
3281: l_attrib_rec_tbl(l_curr_row).attribute_type
3282: );
3283: if (l_rowid is null) then
3284: -- raising the error if unable to insert the attribute record
3285: RAISE FND_API.G_EXC_ERROR;
3286: end if;
3287: END;
3288: -- create a map entry object_type - attribute in
3289: -- jtf_perz_obj_type_map table
3296: l_attribute_id
3297: );
3298: if (l_rowid is null) then
3299: -- raising the error if unable to insert the map record
3300: RAISE FND_API.G_EXC_ERROR;
3301: else
3302: -- inserting record in x_obj_type_map_tbl for output
3303: x_obj_type_map_tbl(l_inserted_map).ATTRIBUTE_ID := l_attribute_id;
3304: x_obj_type_map_tbl(l_inserted_map).OBJECT_TYPE_ID := l_object_type_id;
3316: --
3317: -- 7. Commit the whole thing
3318:
3319: -- Standard check of p_commit.
3320: IF FND_API.To_Boolean ( p_commit )
3321: THEN
3322: COMMIT WORK;
3323: END IF;
3324:
3331:
3332:
3333: EXCEPTION
3334:
3335: WHEN FND_API.G_EXC_ERROR THEN
3336:
3337: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3338: x_return_status := FND_API.G_RET_STS_ERROR ;
3339:
3334:
3335: WHEN FND_API.G_EXC_ERROR THEN
3336:
3337: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3338: x_return_status := FND_API.G_RET_STS_ERROR ;
3339:
3340: FND_MSG_PUB.Count_And_Get
3341: ( p_count => x_msg_count,
3342: p_data => x_msg_data
3346: THEN
3347: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3348: END IF;
3349:
3350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3351:
3352: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3354:
3349:
3350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3351:
3352: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3354:
3355: FND_MSG_PUB.Count_And_Get
3356: ( p_count => x_msg_count,
3357: p_data => x_msg_data
3364:
3365: WHEN OTHERS THEN
3366:
3367: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3369:
3370: FND_MSG_PUB.Count_And_Get
3371: ( p_count => x_msg_count,
3372: p_data => x_msg_data