The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_persontype_funnel(
p_person_id IN NUMBER,
p_person_type_code IN VARCHAR2,
p_funnel_status IN VARCHAR2,
p_return_status OUT NOCOPY VARCHAR2,
p_message_text OUT NOCOPY VARCHAR2) AS
cst_prospect CONSTANT varchar2(50) := 'PROSPECT';
SELECT person_type_code
FROM igs_pe_person_types
WHERE system_type=l_system_type;
igs_pe_typ_instances_pkg.insert_row
(
X_MODE => 'R',
X_RowId => lv_rowid2,
X_TYPE_INSTANCE_ID => lv_type_instance_id,
X_PERSON_TYPE_CODE => l_person_type_code,
X_PERSON_ID => p_person_id,
X_COURSE_CD => NULL,
X_FUNNEL_STATUS => l_funnel_status,
X_ADMISSION_APPL_NUMBER => NULL,
X_NOMINATED_COURSE_CD => NULL,
X_SEQUENCE_NUMBER => NULL,
X_START_DATE => lv_sysdate,
X_END_DATE => NULL,
X_CREATE_METHOD => NULL,
X_ENDED_BY => NULL,
X_END_METHOD => NULL,
X_CC_VERSION_NUMBER => NULL,
X_NCC_VERSION_NUMBER => NULL,
X_Org_Id => l_org_id,
X_EMPLMNT_CATEGORY_CODE => NULL
);
SELECT 'X'
FROM
igs_pe_typ_instances_all pti, igs_pe_person_types pt
WHERE
pti.person_id = cp_person_id
AND pti.person_type_code = pt.person_type_code
AND pt.system_type = p_person_type
AND (end_date IS NULL OR (TRUNC(end_date) IS NOT NULL AND TRUNC(end_date) > SYSDATE));