The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row_jtf_perz_profile(
X_ROWID OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_PROFILE_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_PROFILE_NAME IN VARCHAR2,
x_PROFILE_TYPE IN VARCHAR2,
x_PROFILE_DESCRIPTION IN VARCHAR2,
x_ACTIVE_FLAG IN VARCHAR2,
p_OBJECT_VERSION_NUMBER IN NUMBER
) IS
CURSOR C IS SELECT rowid FROM JTF_PERZ_PROFILE
WHERE PROFILE_ID = x_PROFILE_ID;
CURSOR C2 IS SELECT JTF_PERZ_PROFILE_S.NEXTVAL FROM SYS.DUAL;
INSERT INTO JTF_PERZ_PROFILE(
PROFILE_ID,
PROFILE_NAME,
PROFILE_TYPE,
PROFILE_DESCRIPTION,
ACTIVE_FLAG,
OBJECT_VERSION_NUMBER,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
VALUES ( x_PROFILE_ID,
decode( x_PROFILE_NAME, FND_API.G_MISS_CHAR, NULL ,x_PROFILE_NAME ),
decode( x_PROFILE_TYPE, FND_API.G_MISS_CHAR, NULL ,x_PROFILE_TYPE ),
decode( x_PROFILE_DESCRIPTION, FND_API.G_MISS_CHAR, NULL ,x_PROFILE_DESCRIPTION ),
decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, NULL ,x_ACTIVE_FLAG ),
decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, 1, p_OBJECT_VERSION_NUMBER),
G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
END insert_row_jtf_perz_profile;
PROCEDURE update_row_jtf_perz_profile(
X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_PROFILE_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_PROFILE_NAME IN VARCHAR2,
x_PROFILE_TYPE IN VARCHAR2,
x_PROFILE_DESCRIPTION IN VARCHAR2,
x_ACTIVE_FLAG IN VARCHAR2,
p_OBJECT_VERSION_NUMBER IN NUMBER
) IS
l_object_version_number NUMBER := p_OBJECT_VERSION_NUMBER;
UPDATE JTF_PERZ_PROFILE SET
PROFILE_NAME = decode( x_PROFILE_NAME, FND_API.G_MISS_CHAR, PROFILE_NAME, x_PROFILE_NAME ),
PROFILE_TYPE = decode( x_PROFILE_TYPE, FND_API.G_MISS_CHAR, PROFILE_TYPE, x_PROFILE_TYPE ),
PROFILE_DESCRIPTION = decode( x_PROFILE_DESCRIPTION, FND_API.G_MISS_CHAR,
PROFILE_DESCRIPTION,x_PROFILE_DESCRIPTION ),
ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, ACTIVE_FLAG,
x_ACTIVE_FLAG ),
OBJECT_VERSION_NUMBER = decode (p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1),
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
WHERE profile_id = x_PROFILE_ID
and OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER;
END update_row_jtf_perz_profile;
PROCEDURE insert_row_profile_attrib(
X_ROWID OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_PROFILE_ATTRIB_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_PROFILE_ID IN NUMBER,
x_PROFILE_ATTRIBUTE IN VARCHAR2,
x_ATTRIBUTE_TYPE IN VARCHAR2,
x_ATTRIBUTE_VALUE IN VARCHAR2
) IS
CURSOR C IS SELECT rowid FROM jtf_perz_profile_attrib
WHERE PROFILE_ID = x_PROFILE_ID AND ROWNUM = 1;
CURSOR C2 IS SELECT jtf_perz_profile_attrib_s.NEXTVAL FROM SYS.DUAL;
INSERT INTO jtf_perz_profile_attrib(
PROFILE_ATTRIB_ID,
PROFILE_ID,
PROFILE_ATTRIBUTE,
ATTRIBUTE_TYPE,
ATTRIBUTE_VALUE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
VALUES (
X_PROFILE_ATTRIB_ID,
x_PROFILE_ID,
decode (x_PROFILE_ATTRIBUTE, FND_API.G_MISS_CHAR, NULL, x_PROFILE_ATTRIBUTE ),
decode (x_ATTRIBUTE_TYPE, FND_API.G_MISS_CHAR, NULL ,x_ATTRIBUTE_TYPE),
decode (x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR, NULL ,x_ATTRIBUTE_VALUE),
G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID );
END insert_row_profile_attrib;
PROCEDURE update_row_profile_attrib(
X_ROWID OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_PROFILE_ATTRIB_ID IN NUMBER,
x_PROFILE_ID IN NUMBER,
x_PROFILE_ATTRIBUTE IN VARCHAR2,
x_ATTRIBUTE_TYPE IN VARCHAR2,
x_ATTRIBUTE_VALUE IN VARCHAR2
) IS
BEGIN
UPDATE jtf_perz_profile_attrib SET
ATTRIBUTE_TYPE = decode( x_ATTRIBUTE_TYPE, FND_API.G_MISS_CHAR,
ATTRIBUTE_TYPE, x_ATTRIBUTE_TYPE ),
ATTRIBUTE_VALUE = decode( x_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR,
ATTRIBUTE_VALUE, x_ATTRIBUTE_VALUE ),
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
WHERE profile_id = x_profile_id and
PROFILE_ATTRIBUTE = x_PROFILE_ATTRIBUTE;
END update_row_profile_attrib;
SELECT profile_id INTO x_profile_id
FROM jtf_perz_profile
WHERE profile_name = p_profile_name;
select profile_id INTO l_temp_id
from jtf_perz_profile
where profile_id = x_profile_id;
SELECT profile_id INTO l_temp_id
FROM jtf_perz_profile
WHERE profile_name = p_profile_name
and profile_id = x_profile_id;
PROCEDURE Gen_Select_Profile( x_select_cl OUT NOCOPY /* file.sql.39 change */ VARCHAR2 ) IS
BEGIN
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
THEN
--dbms_output.put_line('JTF_PERZ_PVT GENERATE SELECT');
x_select_cl := 'Select ' ||
'prfl.PROFILE_ID,' ||
'prfl.PROFILE_NAME,' ||
'prfl.PROFILE_TYPE,' ||
'prfl.ACTIVE_FLAG,' ||
'prfl.PROFILE_DESCRIPTION,' ||
'prfl_attrib.PROFILE_ATTRIBUTE,' ||
'prfl_attrib.ATTRIBUTE_TYPE,' ||
'prfl_attrib.ATTRIBUTE_VALUE ' ||
' from JTF_PERZ_PROFILE prfl, jtf_perz_profile_attrib prfl_attrib ';
END Gen_Select_Profile;
insert_row_jtf_perz_profile(
l_rowid,
l_profile_id,
p_profile_name,
p_profile_type,
p_profile_desc,
l_active_flag,
l_object_version_number );
insert_row_profile_attrib(
l_rowid,
l_profile_attrib_tbl(l_curr_row).ATTRIBUTE_ID,
l_profile_id,
l_profile_attrib_tbl(l_curr_row).profile_attribute,
l_profile_attrib_tbl(l_curr_row).attribute_type,
l_profile_attrib_tbl(l_curr_row).attribute_value
);
l_select_clause VARCHAR2(2000) := '';
SELECT a.PROFILE_ID, a.PROFILE_NAME,
a.PROFILE_TYPE, a.PROFILE_DESCRIPTION, a.ACTIVE_FLAG,
b.PROFILE_ATTRIBUTE, b.ATTRIBUTE_TYPE, b.ATTRIBUTE_VALUE
FROM JTF_PERZ_PROFILE a, JTF_PERZ_PROFILE_ATTRIB b
WHERE a.profile_id = b.profile_id AND a.profile_name = l_profname ;
SELECT a.PROFILE_ID, a.PROFILE_NAME,
a.PROFILE_TYPE, a.PROFILE_DESCRIPTION, a.ACTIVE_FLAG,
b.PROFILE_ATTRIBUTE, b.ATTRIBUTE_TYPE, b.ATTRIBUTE_VALUE
FROM JTF_PERZ_PROFILE a, JTF_PERZ_PROFILE_ATTRIB b
WHERE a.profile_id = b.profile_id AND a.profile_id = l_profid ;
SELECT a.PROFILE_ID, a.PROFILE_NAME,
a.PROFILE_TYPE, a.PROFILE_DESCRIPTION, a.ACTIVE_FLAG,
b.PROFILE_ATTRIBUTE, b.ATTRIBUTE_TYPE, b.ATTRIBUTE_VALUE
FROM JTF_PERZ_PROFILE a, JTF_PERZ_PROFILE_ATTRIB b
WHERE a.profile_id = b.profile_id AND profile_type = l_proftype ;
SELECT a.PROFILE_ID, a.PROFILE_NAME,
a.PROFILE_TYPE, a.PROFILE_DESCRIPTION, a.ACTIVE_FLAG,
b.PROFILE_ATTRIBUTE, b.ATTRIBUTE_TYPE, b.ATTRIBUTE_VALUE
FROM JTF_PERZ_PROFILE a, JTF_PERZ_PROFILE_ATTRIB b
WHERE a.profile_id = b.profile_id
AND a.profile_type = l_proftype
AND b.PROFILE_ATTRIBUTE = l_profile_attrib ;
SELECT a.PROFILE_ID, a.PROFILE_NAME,
a.PROFILE_TYPE, a.PROFILE_DESCRIPTION, a.ACTIVE_FLAG,
b.PROFILE_ATTRIBUTE, b.ATTRIBUTE_TYPE, b.ATTRIBUTE_VALUE
FROM JTF_PERZ_PROFILE a, JTF_PERZ_PROFILE_ATTRIB b
WHERE a.profile_id = b.profile_id
AND a.profile_type = l_proftype
AND b.ATTRIBUTE_TYPE = l_attrib_type ;
SELECT a.PROFILE_ID, a.PROFILE_NAME,
a.PROFILE_TYPE, a.PROFILE_DESCRIPTION, a.ACTIVE_FLAG,
b.PROFILE_ATTRIBUTE, b.ATTRIBUTE_TYPE, b.ATTRIBUTE_VALUE
FROM JTF_PERZ_PROFILE a, JTF_PERZ_PROFILE_ATTRIB b
WHERE a.profile_id = b.profile_id
AND a.profile_type = l_proftype
AND b.ATTRIBUTE_TYPE = l_attrib_type
AND b.PROFILE_ATTRIBUTE = l_profile_attrib;
SELECT PROFILE_ATTRIBUTE,ATTRIBUTE_TYPE,ATTRIBUTE_VALUE
FROM JTF_PERZ_PROFILE_ATTRIB
WHERE profile_id = l_profid;
PROCEDURE Update_Profile
( p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_profile_id IN NUMBER,
p_profile_name IN VARCHAR2,
p_profile_type IN VARCHAR2 := NULL,
p_profile_desc IN VARCHAR2 ,
p_active_flag IN VARCHAR2,
p_Profile_ATTRIB_Tbl IN JTF_PERZ_PROFILE_PUB.PROFILE_ATTRIB_TBL_TYPE,
x_profile_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
) IS
-- problem is, this API will not check the validity of the p_active_flag
l_profile_attrib_tbl JTF_PERZ_PROFILE_PUB.PROFILE_ATTRIB_TBL_TYPE;
l_api_name CONSTANT VARCHAR2(30) := 'Update Profile';
SAVEPOINT UPDATE_PERZ_PROFILE_PVT;
select object_version_number into l_object_version_number
from jtf_perz_profile where profile_id = l_profile_id;
update_row_jtf_perz_profile(
l_rowid,
l_profile_id,
l_profile_name,
l_profile_type,
l_profile_desc,
p_active_flag,
l_object_version_number);
--UPDATE row with new attribute values.
update_row_profile_attrib(
l_rowid,
l_profile_attrib_tbl(l_curr_row).ATTRIBUTE_ID,
l_profile_id,
l_profile_attrib_tbl(l_curr_row).profile_attribute,
l_profile_attrib_tbl(l_curr_row).attribute_type,
l_profile_attrib_tbl(l_curr_row).attribute_value
);
-- INSERT attribute into table
insert_row_profile_attrib(
l_rowid,
l_profile_attrib_tbl(l_curr_row).ATTRIBUTE_ID,
l_profile_id,
l_profile_attrib_tbl(l_curr_row).profile_attribute,
l_profile_attrib_tbl(l_curr_row).attribute_type,
l_profile_attrib_tbl(l_curr_row).attribute_value
);
ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
END Update_Profile;