444: END IF;
445: END LOOP;
446: END;
447: --
448: --------------------------Fnd Username --------------------------
449: FUNCTION Fnd_Username( a_user_id NUMBER ) RETURN VARCHAR2 IS
450: -- Get FND user name
451: CURSOR cur_user is
452: SELECT user_name
445: END LOOP;
446: END;
447: --
448: --------------------------Fnd Username --------------------------
449: FUNCTION Fnd_Username( a_user_id NUMBER ) RETURN VARCHAR2 IS
450: -- Get FND user name
451: CURSOR cur_user is
452: SELECT user_name
453: FROM fnd_user
446: END;
447: --
448: --------------------------Fnd Username --------------------------
449: FUNCTION Fnd_Username( a_user_id NUMBER ) RETURN VARCHAR2 IS
450: -- Get FND user name
451: CURSOR cur_user is
452: SELECT user_name
453: FROM fnd_user
454: WHERE user_id = a_user_id;
449: FUNCTION Fnd_Username( a_user_id NUMBER ) RETURN VARCHAR2 IS
450: -- Get FND user name
451: CURSOR cur_user is
452: SELECT user_name
453: FROM fnd_user
454: WHERE user_id = a_user_id;
455: l_user_name fnd_user.user_name%TYPE;
456: BEGIN
457: OPEN cur_user;
451: CURSOR cur_user is
452: SELECT user_name
453: FROM fnd_user
454: WHERE user_id = a_user_id;
455: l_user_name fnd_user.user_name%TYPE;
456: BEGIN
457: OPEN cur_user;
458: FETCH cur_user INTO l_user_name;
459: CLOSE cur_user;
457: OPEN cur_user;
458: FETCH cur_user INTO l_user_name;
459: CLOSE cur_user;
460: return (l_user_name);
461: END fnd_username;
462: --
463: --------------------------Element Cat --------------------------
464: -- BEGIN ORACLE bug #712501
465: FUNCTION element_cat(p_element_type_id IN NUMBER,
1028: l_error_text VARCHAR2(128) DEFAULT NULL;
1029: l_batch_id_error EXCEPTION;
1030: l_reference_num_error EXCEPTION;
1031: l_retcode NUMBER DEFAULT 0;
1032: l_user_id fnd_user.user_id%TYPE := FND_GLOBAL.User_Id;
1033: l_user_name fnd_user.user_name%TYPE := 'OTM';
1034: l_sysdate DATE := trunc(SYSDATE);
1035: l_bus_group_id hr_organization_units.business_group_id%TYPE :=
1036: FND_PROFILE.Value( 'PER_BUSINESS_GROUP_ID' );
1029: l_batch_id_error EXCEPTION;
1030: l_reference_num_error EXCEPTION;
1031: l_retcode NUMBER DEFAULT 0;
1032: l_user_id fnd_user.user_id%TYPE := FND_GLOBAL.User_Id;
1033: l_user_name fnd_user.user_name%TYPE := 'OTM';
1034: l_sysdate DATE := trunc(SYSDATE);
1035: l_bus_group_id hr_organization_units.business_group_id%TYPE :=
1036: FND_PROFILE.Value( 'PER_BUSINESS_GROUP_ID' );
1037: