The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml
(p_rec in out nocopy hr_adi_lob_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into fnd_lobs
(file_id
,file_name
,file_content_type
,file_data
,upload_date
,program_name
,program_tag
,file_format
)
Values
(p_rec.file_id
,p_rec.file_name
,p_rec.file_content_type
,empty_blob()
,p_rec.upload_date
,p_rec.program_name
,p_rec.program_tag
,p_rec.file_format
);
End insert_dml;
Procedure pre_insert
(p_rec in out nocopy hr_adi_lob_shd.g_rec_type
) is
--
Cursor C_Sel1 is select fnd_lobs_s.nextval from sys.dual;
Select null
from fnd_lobs
where file_id =
hr_adi_lob_ins.g_file_id_i;
l_proc varchar2(72) := g_package||'pre_insert';
End pre_insert;
Procedure post_insert
(p_effective_date in date
,p_rec in hr_adi_lob_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'post_insert';
hr_adi_lob_rki.after_insert
(p_effective_date => p_effective_date
,p_file_id
=> p_rec.file_id
,p_file_name
=> p_rec.file_name
,p_file_content_type
=> p_rec.file_content_type
,p_upload_date
=> p_rec.upload_date
,p_program_name
=> p_rec.program_name
,p_program_tag
=> p_rec.program_tag
,p_file_format
=> p_rec.file_format
);
End post_insert;
hr_adi_lob_bus.insert_validate
(p_effective_date
,p_rec
);
hr_adi_lob_ins.pre_insert(p_rec);
hr_adi_lob_ins.insert_dml(p_rec);
hr_adi_lob_ins.post_insert
(p_effective_date
,p_rec
);