The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_return_status OUT NOCOPY VARCHAR2,
p_msg_count OUT NOCOPY NUMBER,
p_msg_data OUT NOCOPY VARCHAR2,
--
P_ROWID IN OUT NOCOPY VARCHAR2,
P_RULE_ID IN NUMBER,
P_SEGMENT_NAME IN VARCHAR2,
P_APPLICATION_COLUMN_NAME IN VARCHAR2,
p_Last_Update_Date DATE,
p_Last_Updated_By NUMBER,
p_Last_Update_Login NUMBER,
p_Created_By NUMBER,
p_Creation_Date DATE
) is
--
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
select ROWID
from PSB_RULE_WITHIN_SEGMENT
where RULE_ID = P_RULE_ID;
SAVEPOINT Insert_Row_Pvt ;
insert into PSB_RULE_WITHIN_SEGMENT (
RULE_ID,
SEGMENT_NAME,
APPLICATION_COLUMN_NAME,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
P_RULE_ID,
P_SEGMENT_NAME,
P_APPLICATION_COLUMN_NAME,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN
);
ROLLBACK TO Insert_Row_Pvt ;
ROLLBACK TO Insert_Row_Pvt ;
ROLLBACK TO Insert_Row_Pvt ;
END Insert_Row;
cursor c1 is select
SEGMENT_NAME, APPLICATION_COLUMN_NAME
from PSB_RULE_WITHIN_SEGMENT
where RULE_ID = P_RULE_ID
for update of RULE_ID nowait;
procedure UPDATE_ROW (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_return_status OUT NOCOPY VARCHAR2,
p_msg_count OUT NOCOPY NUMBER,
p_msg_data OUT NOCOPY VARCHAR2,
--
P_RULE_ID IN NUMBER,
P_SEGMENT_NAME IN VARCHAR2,
P_APPLICATION_COLUMN_NAME IN VARCHAR2,
p_Last_Update_Date DATE,
p_Last_Updated_By NUMBER,
p_Last_Update_Login NUMBER
) is
--
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
SAVEPOINT Update_Row_Pvt ;
update PSB_RULE_WITHIN_SEGMENT set
SEGMENT_NAME = P_SEGMENT_NAME,
APPLICATION_COLUMN_NAME = P_APPLICATION_COLUMN_NAME,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
where RULE_ID = P_RULE_ID
;
ROLLBACK TO Update_Row_Pvt ;
ROLLBACK TO Update_Row_Pvt ;
ROLLBACK TO Update_Row_Pvt ;
END Update_Row;
procedure DELETE_ROW (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_return_status OUT NOCOPY VARCHAR2,
p_msg_count OUT NOCOPY NUMBER,
p_msg_data OUT NOCOPY VARCHAR2,
--
P_RULE_ID IN NUMBER,
P_APPLICATION_COLUMN_NAME IN VARCHAR2
) is
--
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
SAVEPOINT Delete_Row_Pvt ;
delete from PSB_RULE_WITHIN_SEGMENT
where RULE_ID = P_RULE_ID
and APPLICATION_COLUMN_NAME = P_APPLICATION_COLUMN_NAME;
ROLLBACK TO Delete_Row_Pvt ;
ROLLBACK TO Delete_Row_Pvt ;
ROLLBACK TO Delete_Row_Pvt ;
END Delete_Row;
l_sql_str := 'SELECT distinct glcc.'||p_app_column_name||
' FROM gl_code_combinations glcc,'||
' psb_account_position_set_lines apsl'||
' where glcc.chart_of_accounts_id = '||p_chart_of_accounts_id||
' AND apsl.account_position_set_id in '||p_str||
' AND glcc.'||p_app_column_name||
' BETWEEN apsl.'||p_app_column_name||
'_low AND apsl.'||p_app_column_name||
'_high';
l_sql_sets := 'SELECT distinct glcc.'||p_app_column_name||
' FROM gl_code_combinations glcc,'||
' psb_account_position_set_lines apsl'||
' where glcc.chart_of_accounts_id = '||p_chart_of_accounts_id||
' AND apsl.account_position_set_id in '||p_sets||
' AND glcc.'||p_app_column_name||
' BETWEEN apsl.'||p_app_column_name||
'_low AND apsl.'||p_app_column_name||
'_high';