The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT group_type
FROM IGS_PE_PERSID_GROUP_V
WHERE group_id = p_GroupID;
SELECT S.sql_segment
FROM IGS_PE_PERSID_GROUP_ALL G, IGS_PE_DYN_SQLSEGS S
WHERE G.group_id = p_GroupID
AND G.file_name = S.file_name
ORDER BY S.seg_sequence_num;
l_SQL_exp := 'SELECT 1 FROM DUAL';
l_SQL := 'SELECT person_id FROM igs_pe_prsid_grp_mem_all where TRUNC(SYSDATE) BETWEEN NVL(start_date,TRUNC(SYSDATE)) AND NVL(end_date,TRUNC(SYSDATE)) AND group_id = '||p_GroupID ;
lv_parser := substr(l_SQL,(instr(l_SQL,'SELECT') + 6));
l_SQL := 'SELECT '||lv_check||' PERSON_ID '||
substr(l_SQL,(instr(l_SQL,'FROM')));
SELECT group_type
FROM IGS_PE_PERSID_GROUP_V
WHERE group_id = p_GroupID;
SELECT S.sql_segment
FROM IGS_PE_PERSID_GROUP_ALL G, IGS_PE_DYN_SQLSEGS S
WHERE G.group_id = p_GroupID
AND G.file_name = S.file_name
ORDER BY S.seg_sequence_num;
l_SQL_exp := 'SELECT 1 FROM DUAL';
l_SQL := 'SELECT person_id FROM igs_pe_prsid_grp_mem_all where TRUNC(SYSDATE) BETWEEN NVL(start_date,TRUNC(SYSDATE)) AND NVL(end_date,TRUNC(SYSDATE)) AND group_id = :p_GroupID';
lv_parser := substr(l_SQL,(instr(l_SQL,'SELECT') + 6));
l_SQL := 'SELECT '||lv_check||' PERSON_ID '||
substr(l_SQL,(instr(l_SQL,'FROM')));
SELECT S.sql_segment
FROM IGS_PE_PERSID_GROUP_ALL G, IGS_PE_DYN_SQLSEGS S
WHERE G.group_id = p_GroupID
AND G.file_name = S.file_name
ORDER BY S.seg_sequence_num;
lv_parser := substr(l_SQL,(instr(l_SQL,'SELECT') + 6));
l_SQL := 'SELECT '||lv_check||' PERSON_ID '||
substr(l_SQL,(instr(l_SQL,'FROM')));
OPEN c_person_id_grp FOR 'SELECT person_id FROM ('||l_SQL||') WHERE person_id = :p_PersonID' USING p_PersonID;
| insertion. |
+==========================================================================*/
FUNCTION IGS_POST_SAVE_DOCUMENT(p_WorkBookOwner IN VARCHAR2,
p_WorkBookName IN VARCHAR2,
p_WorkSheetName IN VARCHAR2,
p_Sequence IN NUMBER,
p_SQLSegment IN VARCHAR2)
RETURN NUMBER IS
-- local variables
l_sqlerrm VARCHAR2(600);
l_insert BOOLEAN;
SELECT 1
FROM IGS_PE_DYN_SQLSEGS
WHERE file_name = UPPER(p_WorkBookName)||':'||UPPER(p_WorkSheetName);
SELECT 1
FROM IGS_PE_DYN_SQLSEGS
WHERE file_name = UPPER(p_WorkBookName)||':'||UPPER(p_WorkSheetName)
AND seg_sequence_num=1;
l_insert := FALSE;
DELETE from IGS_PE_DYN_SQLSEGS
WHERE file_name = UPPER(p_WorkBookName)||':'
||UPPER(p_WorkSheetName);
l_insert := TRUE;
l_insert := TRUE;
l_insert := FALSE;
IF l_insert = TRUE THEN
l_sqltxt := replace(p_SQLSegment,fnd_global.local_chr(10),' ');
INSERT INTO IGS_PE_DYN_SQLSEGS (
SQLSEGS_ID,
FILE_NAME,
SEG_SEQUENCE_NUM,
SQL_SEGMENT,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE
)
VALUES (
IGS_PE_DYN_SQLSEGS_S.nextval,
UPPER(p_WorkBookName)||':'||UPPER(p_WorkSheetName),
p_Sequence,
l_sqltxt,
l_creator_id,
SYSDATE,
l_creator_id,
SYSDATE
);
SELECT S.sql_segment
FROM IGS_PE_DYN_SQLSEGS S
WHERE S.file_name = cp_FileName
ORDER BY S.seg_sequence_num;
l_SQL_exp := 'SELECT 1 FROM DUAL';
lv_parser := substr(l_SQL,(instr(l_SQL,'SELECT') + 6));
l_SQL := 'SELECT '||lv_check||' PERSON_ID '||
substr(l_SQL,(instr(l_SQL,'FROM')));