The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_jtf_perz_query(
p_QUERY_ID NUMBER,
p_PROFILE_ID NUMBER,
p_APPLICATION_ID NUMBER,
p_QUERY_NAME VARCHAR2,
p_QUERY_TYPE VARCHAR2,
p_QUERY_DESCRIPTION VARCHAR2,
p_QUERY_DATA_SOURCE VARCHAR2,
p_OBJECT_VERSION_NUMBER IN NUMBER)
IS
BEGIN
UPDATE JTF_PERZ_QUERY
SET
QUERY_TYPE =
DECODE( p_QUERY_TYPE, Fnd_Api.G_MISS_CHAR, QUERY_TYPE, p_QUERY_TYPE),
QUERY_DESCRIPTION =
DECODE( p_QUERY_DESCRIPTION, Fnd_Api.G_MISS_CHAR, QUERY_DESCRIPTION,
p_QUERY_DESCRIPTION),
QUERY_DATA_SOURCE =
DECODE( p_QUERY_DATA_SOURCE, Fnd_Api.G_MISS_CHAR, QUERY_DATA_SOURCE,
p_QUERY_DATA_SOURCE),
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 QUERY_ID = p_QUERY_ID
AND OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER;
END update_jtf_perz_query;
PROCEDURE insert_jtf_perz_query(
x_Rowid OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_QUERY_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_PROFILE_ID NUMBER,
x_APPLICATION_ID NUMBER,
x_QUERY_NAME VARCHAR2,
X_QUERY_TYPE VARCHAR2,
X_QUERY_DESCRIPTION VARCHAR2,
X_QUERY_DATA_SOURCE VARCHAR2
) IS
CURSOR C IS SELECT ROWID FROM JTF_PERZ_QUERY
WHERE QUERY_ID = x_QUERY_ID;
CURSOR C2 IS SELECT JTF_PERZ_QUERY_S.NEXTVAL FROM sys.dual;
INSERT INTO JTF_PERZ_QUERY(
QUERY_ID,
PROFILE_ID,
APPLICATION_ID,
QUERY_NAME,
QUERY_TYPE,
QUERY_DESCRIPTION,
QUERY_DATA_SOURCE,
OBJECT_VERSION_NUMBER,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES
(
x_QUERY_ID,
DECODE( x_PROFILE_ID, Fnd_Api.G_MISS_NUM, NULL ,x_PROFILE_ID ),
DECODE( x_APPLICATION_ID, Fnd_Api.G_MISS_NUM, NULL ,x_APPLICATION_ID ),
DECODE( x_QUERY_NAME, Fnd_Api.G_MISS_CHAR, NULL ,x_QUERY_NAME ),
DECODE( x_QUERY_TYPE, Fnd_Api.G_MISS_CHAR, NULL ,x_QUERY_TYPE ),
DECODE( x_QUERY_DESCRIPTION, Fnd_Api.G_MISS_CHAR, NULL ,x_QUERY_DESCRIPTION ),
DECODE( x_QUERY_DATA_SOURCE, Fnd_Api.G_MISS_CHAR, NULL ,x_QUERY_DATA_SOURCE ),
1, G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID);
END insert_jtf_perz_query;
PROCEDURE insert_jtf_perz_query_order_by(
X_ROWID OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_QUERY_ORDER_BY_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
X_QUERY_ID NUMBER,
X_PARAMETER_NAME VARCHAR2,
X_ACND_DCND_FLAG VARCHAR2,
X_PARAMETER_SEQUENCE NUMBER
) IS
CURSOR C IS SELECT ROWID FROM JTF_PERZ_QUERY_ORDER_BY
WHERE QUERY_ORDER_BY_ID = x_QUERY_ORDER_BY_ID;
CURSOR C2 IS SELECT JTF_PERZ_QUERY_ORDER_BY_s.NEXTVAL FROM sys.dual;
INSERT INTO JTF_PERZ_QUERY_ORDER_BY(
QUERY_ORDER_BY_ID,
QUERY_ID,
PARAMETER_NAME,
ACND_DCND_FLAG,
PARAMETER_SEQUENCE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
x_QUERY_ORDER_BY_ID,
x_QUERY_ID,
DECODE( x_PARAMETER_NAME, Fnd_Api.G_MISS_CHAR, NULL ,x_PARAMETER_NAME ),
DECODE( x_ACND_DCND_FLAG, Fnd_Api.G_MISS_CHAR, NULL ,x_ACND_DCND_FLAG ),
DECODE( x_PARAMETER_SEQUENCE, Fnd_Api.G_MISS_NUM, NULL ,x_PARAMETER_SEQUENCE ),
G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
);
END insert_jtf_perz_query_order_by;
PROCEDURE insert_jtf_perz_query_raw_sql(
x_Rowid OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Query_Raw_Sql_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_Query_ID NUMBER,
x_Select_String VARCHAR2,
X_From_String VARCHAR2,
X_Where_String VARCHAR2,
X_Order_by_String VARCHAR2,
X_Group_by_String VARCHAR2,
X_Having_String VARCHAR2
) IS
CURSOR C IS SELECT ROWID FROM JTF_PERZ_QUERY_RAW_SQL
WHERE Query_Raw_Sql_ID = X_Query_Raw_Sql_ID;
CURSOR C2 IS SELECT JTF_PERZ_QUERY_RAW_SQL_s.NEXTVAL FROM sys.dual;
INSERT INTO JTF_PERZ_QUERY_RAW_SQL(
QUERY_RAW_SQL_ID,
QUERY_ID,
SELECT_STRING,
FROM_STRING,
WHERE_STRING,
ORDER_BY_STRING,
GROUP_BY_STRING,
HAVING_STRING,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
x_QUERY_RAW_SQL_ID,
x_QUERY_ID,
DECODE( x_SELECT_STRING, Fnd_Api.G_MISS_CHAR, NULL ,x_SELECT_STRING ),
DECODE( x_FROM_STRING, Fnd_Api.G_MISS_CHAR, NULL ,x_FROM_STRING ),
DECODE( x_WHERE_STRING, Fnd_Api.G_MISS_CHAR, NULL ,x_WHERE_STRING ),
DECODE( x_ORDER_BY_STRING, Fnd_Api.G_MISS_CHAR, NULL ,x_ORDER_BY_STRING ),
DECODE( x_GROUP_BY_STRING, Fnd_Api.G_MISS_CHAR, NULL ,x_GROUP_BY_STRING ),
DECODE( x_HAVING_STRING, Fnd_Api.G_MISS_CHAR, NULL ,x_HAVING_STRING ),
G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
);
END insert_jtf_perz_query_raw_sql;
PROCEDURE insert_jtf_perz_query_param(
x_Rowid OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_query_param_id IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_Query_ID NUMBER,
x_Parameter_Name VARCHAR2,
X_Parameter_Type VARCHAR2,
X_Parameter_Value VARCHAR2,
X_Parameter_condition VARCHAR2,
X_Parameter_sequence VARCHAR2
) IS
CURSOR C IS SELECT ROWID FROM JTF_PERZ_QUERY_PARAM
WHERE query_param_id = X_query_param_id;
CURSOR C2 IS SELECT JTF_PERZ_QUERY_PARAM_s.NEXTVAL FROM sys.dual;
INSERT INTO JTF_PERZ_QUERY_PARAM(
QUERY_PARAM_ID,
QUERY_ID,
PARAMETER_NAME,
PARAMETER_TYPE,
PARAMETER_VALUE,
PARAMETER_CONDITION,
PARAMETER_SEQUENCE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
x_QUERY_PARAM_ID,
x_QUERY_ID,
DECODE( x_PARAMETER_NAME, Fnd_Api.G_MISS_CHAR, NULL ,x_PARAMETER_NAME ),
DECODE( x_PARAMETER_TYPE, Fnd_Api.G_MISS_CHAR, NULL ,x_PARAMETER_TYPE ),
DECODE( x_PARAMETER_VALUE, Fnd_Api.G_MISS_CHAR, NULL ,x_PARAMETER_VALUE ),
DECODE( x_PARAMETER_CONDITION, Fnd_Api.G_MISS_CHAR, NULL ,x_PARAMETER_CONDITION ),
DECODE( x_PARAMETER_SEQUENCE, Fnd_Api.G_MISS_CHAR, NULL ,x_PARAMETER_SEQUENCE ),
G_USER_ID, SYSDATE, G_USER_ID, G_LOGIN_ID
);
END insert_jtf_perz_query_param;
SELECT query_id, object_version_number
INTO x_query_id , x_object_version_number
FROM JTF_PERZ_QUERY
WHERE query_name = p_query_name AND
query_type = p_query_type AND
application_id = p_application_id AND
profile_id = p_profile_id;
insert_jtf_perz_query(
l_rowid,
l_query_id,
p_profile_id,
p_application_id,
p_query_name,
p_query_type,
p_query_desc,
p_query_data_source
);
insert_jtf_perz_query_order_by(
l_rowid,
l_query_Order_By_ID,
l_query_id,
p_query_order_by_tbl(l_curr_row).Parameter_Name,
p_query_order_by_tbl(l_curr_row).Acnd_Dcnd_Flag,
p_query_order_by_tbl(l_curr_row).Parameter_sequence
);
insert_jtf_perz_query_param(
l_rowid,
l_query_param_id,
l_query_id,
p_query_param_tbl(l_curr_row).Parameter_Name,
p_query_param_tbl(l_curr_row).Parameter_Type,
p_query_param_tbl(l_curr_row).Parameter_Value,
p_query_param_tbl(l_curr_row).Parameter_condition,
p_query_param_tbl(l_curr_row).Parameter_sequence
);
IF (p_query_raw_sql_rec.Select_String IS NOT NULL) THEN
l_rowid := NULL;
insert_jtf_perz_query_raw_sql(
l_rowid,
l_Query_Raw_Sql_ID,
l_query_id,
p_query_raw_sql_rec.Select_String,
p_query_raw_sql_rec.From_String,
p_query_raw_sql_rec.Where_String,
p_query_raw_sql_rec.Order_by_String,
p_query_raw_sql_rec.Group_by_String,
p_query_raw_sql_rec.Having_String
);
PROCEDURE Update_Perz_Query
( 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_application_id IN NUMBER,
p_profile_id IN NUMBER,
p_query_id IN NUMBER,
p_query_name IN VARCHAR2,
p_query_type IN VARCHAR2,
p_query_desc IN VARCHAR2,
p_query_data_source IN VARCHAR2,
p_query_param_tbl IN Jtf_Perz_Query_Pub.QUERY_PARAMETER_TBL_TYPE
:= Jtf_Perz_Query_Pub.G_MISS_QUERY_PARAMETER_TBL,
p_query_order_by_tbl IN Jtf_Perz_Query_Pub.QUERY_ORDER_BY_TBL_TYPE
:= Jtf_Perz_Query_Pub.G_MISS_QUERY_ORDER_BY_TBL,
p_query_raw_sql_rec IN Jtf_Perz_Query_Pub.QUERY_RAW_SQL_REC_TYPE ,
x_query_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
l_query_param_tbl Jtf_Perz_Query_Pub.QUERY_PARAMETER_TBL_TYPE
:= p_query_param_tbl;
l_api_name CONSTANT VARCHAR2(30) := 'Update Perz Query';
SAVEPOINT UPDATE_PERZ_QUERY_PVT;
-- 2. Delete all parmeter table entries for this query_id
DELETE FROM JTF_PERZ_QUERY_PARAM WHERE QUERY_ID = l_query_id;
-- 3. Delete all order by table entries for this query_id
DELETE FROM JTF_PERZ_QUERY_ORDER_BY WHERE QUERY_ID = l_query_id;
-- 4. Delete all raw sql table entries for this query_id
DELETE FROM JTF_PERZ_QUERY_RAW_SQL WHERE QUERY_ID = l_query_id;
-- 5. Update query header information
-- **** UPDATE CALL HERE
update_jtf_perz_query(
l_QUERY_ID,
p_PROFILE_ID,
p_APPLICATION_ID,
p_QUERY_NAME,
p_QUERY_TYPE,
p_QUERY_DESC,
p_QUERY_DATA_SOURCE,
l_object_version_number);
-- 6. Insert new data into the three different tables
IF (p_query_order_by_tbl.COUNT > 0) THEN
FOR l_curr_row IN 1..p_query_order_by_tbl.COUNT LOOP
l_rowid := NULL;
insert_jtf_perz_query_order_by(l_rowid,
l_Query_Order_By_ID,
l_query_id,
p_query_order_by_tbl(l_curr_row).Parameter_Name,
p_query_order_by_tbl(l_curr_row).Acnd_Dcnd_Flag,
p_query_order_by_tbl(l_curr_row).Parameter_sequence );
insert_jtf_perz_query_param(
l_rowid,
l_query_param_id,
l_query_id,
p_query_param_tbl(l_curr_row).Parameter_Name,
p_query_param_tbl(l_curr_row).Parameter_Type,
p_query_param_tbl(l_curr_row).Parameter_Value,
p_query_param_tbl(l_curr_row).Parameter_condition,
p_query_param_tbl(l_curr_row).Parameter_sequence );
IF (p_query_raw_sql_rec.Select_String IS NOT NULL) THEN
l_rowid := NULL;
insert_jtf_perz_query_raw_sql(
l_rowid,
l_Query_Raw_Sql_ID,
l_query_id,
p_query_raw_sql_rec.Select_String,
p_query_raw_sql_rec.From_String,
p_query_raw_sql_rec.Where_String,
p_query_raw_sql_rec.Order_by_String,
p_query_raw_sql_rec.Group_by_String,
p_query_raw_sql_rec.Having_String
);
ROLLBACK TO UPDATE_PERZ_QUERY_PVT;
ROLLBACK TO UPDATE_PERZ_QUERY_PVT;
ROLLBACK TO UPDATE_PERZ_QUERY_PVT;
END update_perz_query;
PROCEDURE Delete_Perz_Query
( 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_application_id IN NUMBER,
p_profile_id IN NUMBER,
p_query_id IN 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
l_query_id NUMBER;
l_api_name CONSTANT VARCHAR2(30) := 'Delete Profile';
SAVEPOINT DELETE_PERZ_QUERY_PVT;
DELETE FROM JTF_PERZ_QUERY_PARAM WHERE QUERY_ID = l_query_id;
DELETE FROM JTF_PERZ_QUERY_ORDER_BY WHERE QUERY_ID = l_query_id;
DELETE FROM JTF_PERZ_QUERY_RAW_SQL WHERE QUERY_ID = l_query_id;
DELETE FROM JTF_PERZ_QUERY WHERE QUERY_ID = l_query_id;
ROLLBACK TO DELETE_PERZ_QUERY_PVT;
ROLLBACK TO DELETE_PERZ_QUERY_PVT;
ROLLBACK TO DELETE_PERZ_QUERY_PVT;
END Delete_perz_query;
SELECT Query_ID, Profile_ID, Application_id, Query_Name, Query_Type,
Query_Description, Query_Data_source
FROM JTF_PERZ_QUERY
WHERE Profile_ID = p_profile_id AND Application_ID = p_application_id;
SELECT Query_ID, Profile_ID, Application_id, Query_Name, Query_Type,
Query_Description, Query_Data_source
FROM JTF_PERZ_QUERY
WHERE query_id = p_query_id;
SELECT Query_ID, Profile_ID, Application_id, Query_Name, Query_Type,
Query_Description, Query_Data_source
FROM JTF_PERZ_QUERY
WHERE query_type = p_query_type
AND query_name = p_query_name
AND Profile_ID = p_profile_id
AND Application_ID = p_application_id;
SELECT Query_ID, Profile_ID, Application_id, Query_Name, Query_Type,
Query_Description, Query_Data_source
FROM JTF_PERZ_QUERY
WHERE query_type = p_query_type AND Profile_ID = p_profile_id AND Application_ID = p_application_id;
SELECT Query_ID, Profile_ID, Application_id, Query_Name, Query_Type,
Query_Description, Query_Data_source
FROM JTF_PERZ_QUERY
WHERE query_name = p_query_name AND Profile_ID = p_profile_id AND Application_ID = p_application_id;
l_SELECT_STRING_temp VARCHAR2(200);
SELECT QUERY_PARAM_ID, QUERY_ID, PARAMETER_NAME,
PARAMETER_TYPE, PARAMETER_VALUE, PARAMETER_CONDITION,
PARAMETER_SEQUENCE
FROM JTF_PERZ_QUERY_PARAM
WHERE QUERY_ID = p_query_id
ORDER BY PARAMETER_SEQUENCE;
SELECT QUERY_ORDER_BY_ID, QUERY_ID, PARAMETER_NAME,
ACND_DCND_FLAG, PARAMETER_SEQUENCE
FROM JTF_PERZ_QUERY_ORDER_BY
WHERE QUERY_ID = p_query_id
ORDER BY PARAMETER_SEQUENCE;
l_SELECT_STRING_temp := NULL;
SELECT QUERY_RAW_SQL_ID, QUERY_ID, SELECT_STRING,
FROM_STRING, WHERE_STRING, ORDER_BY_STRING,
GROUP_BY_STRING, HAVING_STRING
INTO
x_query_raw_sql_rec.QUERY_RAW_SQL_ID,
x_query_raw_sql_rec.QUERY_ID,
x_query_raw_sql_rec.SELECT_STRING,
x_query_raw_sql_rec.FROM_STRING,
x_query_raw_sql_rec.WHERE_STRING,
x_query_raw_sql_rec.ORDER_BY_STRING,
x_query_raw_sql_rec.GROUP_BY_STRING,
x_query_raw_sql_rec.HAVING_STRING
FROM JTF_PERZ_QUERY_RAW_SQL
WHERE QUERY_ID = p_query_id;
Update_Perz_Query
( p_api_version_number,
p_init_msg_list,
l_commit,
p_application_id,
l_profile_id,
l_query_id,
p_query_name ,
p_query_type,
p_query_desc,
p_query_data_source ,
p_query_param_tbl,
p_query_order_by_tbl,
p_query_raw_sql_rec ,
x_query_id ,
x_return_status ,
x_msg_count,
x_msg_data
);