The following lines contain the word 'select', 'insert', 'update' or 'delete':
select edit_flag,view_flag,attribute_id
from pqh_template_attributes
where template_id = l_template_id;
procedure task_result_update (p_task in pqh_template_attributes.template_id%type,
p_task_type in varchar2,
p_result_int in out nocopy t_attid_priv)
as
l_result_int t_attid_priv := p_result_int;
select edit_flag,view_flag,attribute_id,required_flag
from pqh_template_attributes
where template_id = l_task_template_id;
l_proc varchar2(2000) := g_package||'task_result_update' ;
This procedure is used to update internal result table which stores result
flags for the attributes associated with the list of tasks. Internal result
table and task template id are the input parameters and internal result
table after updation is passed back as result.
for the task, attributes their flags are fetched from the database. Result
flag is calculated using attribute flag result procedure.
Presence of the attribute is checked in the internal result table. if the
attribute is available in the internal result table then flag comparison
is made and result is stored back in internal result table. if no match is
made for the attribute then attribute is added in the internal result
table with the result flag.
*/
hr_utility.set_location('task is'||p_task||l_proc,15 );
end task_result_update;
select base_template_id
from pqh_ref_templates
where parent_template_id = p_template_id
and reference_type_cd = 'REFERENCE';
with a task, call to task_result update is made.
*/
for i in c2(p_task) loop
hr_utility.set_location('values fetched are attribute '||to_char(i.base_template_id)||l_proc,20 );
task_result_update(p_task => i.base_template_id,
p_task_type => 'R',
p_result_int => p_result_int);
select form_column_name
from pqh_txn_category_attributes
where attribute_id = p_attribute_id
and transaction_category_id = p_transaction_category_id;
for each task in the task table internal result table is updated call to Task
references is made
*/
if l_error_flag = FALSE then
for l_task_count in 1..l_task_last_count loop
l_task_template_id := p_tasks(l_task_count) ;
task_result_update(p_task => p_tasks(l_task_count),
p_task_type => 'T',
p_result_int => l_result_task_int) ;
if an attribute is not there in the internal result table then result table is updated
for that attribute and flag is made N.
*/
l_domain_last_count := l_result_domain_int.count;
select form_column_name
from pqh_txn_category_attributes
where attribute_id = p_attribute_id
and transaction_category_id = p_transaction_category_id;
for each task in the task table internal result table is updated call to Task
references is made
*/
if l_error_flag = FALSE then
for l_task_count in 1..l_task_last_count loop
l_task_template_id := p_tasks(l_task_count) ;
task_result_update(p_task => p_tasks(l_task_count),
p_task_type => 'T',
p_result_int => l_result_task_int) ;
if an attribute is not there in the internal result table then result table is updated
for that attribute and flag is made N.
*/
l_domain_last_count := l_result_domain_int.count;
select form_column_name
from pqh_txn_category_attributes
where attribute_id = p_attribute_id
and transaction_category_id = p_transaction_category_id;
task_result_update(p_task => p_tasks(l_task_count),
p_task_type => 'T',
p_result_int => l_result_task_int) ;