The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT rule_description
INTO v_description
FROM IGS_RU_DESCRIPTION
WHERE sequence_number = p_description_number;
SELECT group_name
INTO v_description
FROM IGS_RU_GROUP
WHERE sequence_number = p_description_number;
p_select_group IN NUMBER )
IS
------------------------------------------------------------------
--Created by : nsinha, Oracle India
--Date created: 12-Mar-2002
--
--Purpose: If description number exists then use the existing IGS_RU_RULE
-- number or message number
--
--Known limitations/enhancements and/or remarks:
--
--Change History:
--Who When What
--nsinha 12-Mar-2002 Bug# 2233951: Moved the function from Igs_ru_gen_004.
--
-------------------------------------------------------------------
FUNCTION make_rule (
p_rule_number NUMBER,
p_return_type VARCHAR2,
p_rule_description VARCHAR2,
p_rule_text VARCHAR2 )
RETURN NUMBER IS
v_processed VARCHAR(2000);
IF IGS_RU_GEN_002.RULP_INS_PARSER(p_select_group,
p_return_type,
p_rule_description,
v_processed,
v_unprocessed,
TRUE,
v_rule_number,
v_lov_number)
THEN
NULL;
insert/update IGS_RU_DESCRIPTION
*/
FUNCTION insert_rule_description
RETURN NUMBER IS
------------------------------------------------------------------
--Created by : nsinha, Oracle India
--Date created: 12-Mar-2002
--
--Purpose: Calls the before_dml of igs_ru_group_item_pkg
--
--
--Known limitations/enhancements and/or remarks:
--
--Change History:
--Who When What
--nsinha 12-Mar-2002 Bug# 2233951: Modified the logic to
-- SELECT the next value of the sequence number
-- differently when the data is for SEED DB.
--
-- nsinha 10/9/2003 Bug#: 3193855 : Change the reference of igs_ru_set with igs_ru_description.
-- for CURSOR cur_max_plus_one.
-------------------------------------------------------------------
v_rud_sequence_number NUMBER;
SELECT rowid,IGS_RU_DESCRIPTION.*
FROM IGS_RU_DESCRIPTION
WHERE sequence_number = r_rud_sequence_number;
SELECT COUNT(*)
FROM IGS_RU_DESCRIPTION
WHERE sequence_number = cp_rud_sequence_number;
SELECT (sequence_number + 1) sequence_number
FROM igs_ru_description
WHERE sequence_number =
(SELECT MAX (sequence_number)
FROM igs_ru_description -- Changed By: Navin.Sinha On: 10/9/2003 Fix: Change the reference of igs_ru_set with igs_ru_description.
WHERE sequence_number < 499999)
FOR UPDATE OF sequence_number NOWAIT;
SELECT igs_ru_description_seq_num_s.nextval
INTO v_rud_sequence_number
FROM dual;
-- insert IGS_RU_DESCRIPTION
--
IGS_RU_DESCRIPTION_PKG.Insert_Row(
x_rowid => v_rowid,
x_sequence_number => v_rud_sequence_number,
x_s_return_type => p_return_type,
x_rule_description => p_rule_description,
x_description => p_description_text,
x_s_turin_function => NULL,
x_parenthesis_ind => NULL,
x_mode => 'R'
);
-- update IGS_RU_DESCRIPTION
--
for Desc_Rec in Cur_Desc(v_rud_sequence_number) loop
Desc_Rec.s_return_type := p_return_type;
IGS_RU_DESCRIPTION_PKG.Update_Row(
x_rowid => Desc_Rec.rowid,
x_sequence_number => Desc_Rec.sequence_number,
x_s_return_type => Desc_Rec.s_return_type,
x_rule_description => Desc_Rec.rule_description,
x_description => Desc_Rec.description,
x_s_turin_function => Desc_Rec.s_turin_function,
x_parenthesis_ind => Desc_Rec.parenthesis_ind,
x_mode => 'R'
);
END insert_rule_description;
SELECT rowid,IGS_RU_DESCRIPTION.*
FROM IGS_RU_DESCRIPTION
WHERE sequence_number = r_description_number;
SELECT rowid,IGS_RU_NAMED_RULE.*
FROM IGS_RU_NAMED_RULE
WHERE rud_sequence_number = r_description_number;
v_description_number := insert_rule_description;
SELECT COUNT(*)
INTO v_count
FROM IGS_RU_TURIN_FNC
WHERE s_turin_function = p_turing_function;
IGS_RU_TURIN_FNC_PKG.Insert_Row(
x_rowid => v_rowid_tur,
x_s_turin_function => p_turing_function,
x_rud_sequence_number => v_description_number,
x_parenthesis_ind => NULL,
x_mode => 'R'
);
IGS_RU_DESCRIPTION_PKG.Update_Row(
x_rowid => Desc_Rec.rowid,
x_sequence_number => Desc_Rec.sequence_number,
x_s_return_type => Desc_Rec.s_return_type,
x_rule_description => Desc_Rec.rule_description,
x_description => Desc_Rec.description,
x_s_turin_function => Desc_Rec.s_turin_function,
x_parenthesis_ind => Desc_Rec.parenthesis_ind,
x_mode => 'R'
);
SELECT rul_sequence_number
INTO v_rule_number
FROM IGS_RU_NAMED_RULE
WHERE rud_sequence_number = p_description_number;
SELECT COUNT(*)
INTO v_count
FROM IGS_RU_NAMED_RULE
WHERE rud_sequence_number = v_description_number;
IGS_RU_NAMED_RULE_PKG.Insert_Row(
x_rowid => v_rowid_nr,
x_rul_sequence_number => v_rule_number,
x_rud_sequence_number => v_description_number,
x_message_rule => NULL,
x_rug_sequence_number => 1,
x_rule_text => p_rule_text,
x_mode => 'R'
);
check/insert into group
*/
SELECT COUNT(*)
INTO v_count
FROM IGS_RU_GROUP_ITEM
WHERE rug_sequence_number = p_group
AND description_number = v_description_number
AND description_type = 'RUD';
IGS_RU_GROUP_ITEM_PKG.Insert_Row(
x_rowid => v_rowid_rgi,
x_rug_sequence_number => p_group,
x_description_number => v_description_number,
x_description_type => 'RUD',
x_mode => 'R'
);
SELECT message_rule
INTO v_rule_number
FROM IGS_RU_NAMED_RULE
WHERE rud_sequence_number = p_description_number;
SELECT rule_description
INTO v_rule_description
FROM IGS_RU_DESCRIPTION
WHERE sequence_number = p_description_number;
IGS_RU_NAMED_RULE_PKG.Update_Row(
x_rowid => Nr_Rec.rowid,
x_rul_sequence_number => Nr_Rec.rul_sequence_number,
x_rud_sequence_number => Nr_Rec.rud_sequence_number,
x_message_rule => Nr_Rec.message_rule,
x_rug_sequence_number => Nr_Rec.rug_sequence_number,
x_rule_text => Nr_Rec.rule_text,
x_mode => 'R'
);
SELECT unit_cd,
versions
FROM IGS_RU_SET_MEMBER
WHERE rs_sequence_number = p_set_number
ORDER BY unit_cd )
LOOP
IF v_more
THEN
v_set := v_set||', ';
SELECT s_return_type
FROM IGS_RU_RET_TYPE
ORDER BY s_return_type DESC )
LOOP
IF SUBSTR(p_description,v_hash + 1,LENGTH(return_types.s_return_type))
= return_types.s_return_type
THEN
p_action := return_types.s_return_type;
SELECT rul_sequence_number,
item,
turin_function,
named_rule,
rule_number,
derived_rule,
set_number,
value
FROM IGS_RU_ITEM
WHERE rul_sequence_number = p_rule_number
AND item > p_rule_item
ORDER BY item ASC )
LOOP
p_rule_item := rule_items.item;
SELECT rud.rule_description,
rud.parenthesis_ind
INTO v_rule_description,
v_parenthesis_ind
FROM IGS_RU_TURIN_FNC stf,
IGS_RU_DESCRIPTION rud
WHERE stf.s_turin_function = rule_items.turin_function
AND rud.sequence_number = stf.rud_sequence_number;
SELECT rud.rule_description,
rud.parenthesis_ind
INTO v_rule_description,
v_parenthesis_ind
FROM IGS_RU_NAMED_RULE nr,
IGS_RU_DESCRIPTION rud
WHERE nr.rul_sequence_number = rule_items.named_rule
AND rud.sequence_number = nr.rud_sequence_number;
SELECT rule_description
INTO v_rule_description
FROM IGS_RU_DESCRIPTION
WHERE sequence_number = rule_items.derived_rule;