Replicate data issue

Question

I am working on a current project that I am having trouble resolving. The issue it seems lies with data not being replicated correctly to the parent table, from the child table (yes I know replication can cause issues, this existed before I recieved this project). There are currently well over a billion rows in each table, so it is difficult to troubleshoot efficiently at times. From what I can tell the problem lies within the replicate_qd procedure but I can not be sure. Can someone else look over this procedure and possibly give some insight to something I may not have seen. To clear up some more, there are qualifiers records that are associated with raw_data records that are not populating correctly.
Sorry for the mass code:
CREATE OR REPLACE PROCEDURE AIRSRAQS.replicate_qd
pn_rd_id IN raw_data.rd_id%TYPE,
pv_qual_code IN qualifiers.qualifier_code%TYPE,
pv_action_ind IN raw_data.action_ind%TYPE
IS
-- Data Declaration
TYPE lrt_qu IS RECORD (
old_qual_code qualifiers.qualifier_code%TYPE,
old_qual_type qualifiers.qt_qualifier_type%TYPE
-- Program Data
lv_new_qual_type qualifiers.qt_qualifier_type%TYPE;
lr_qu lrt_qu;
-- Sub-Program Units
CURSOR lc_qt (lv_qual_code IN qualifiers.qualifier_code%TYPE)
IS
SELECT qt_qualifier_type
FROM qualifiers
WHERE qualifier_code = lv_qual_code;
CURSOR lc_rd (ln_rd_id IN raw_data.rd_id%TYPE)
IS
SELECT qu_qualifier_code, qt_qualifier_type
FROM raw_data
WHERE rd_id = ln_rd_id
FOR UPDATE OF qu_qualifier_code, qt_qualifier_type;
-- PL/SQL Block
BEGIN
Get the qualifier type and previous values for sample point.
Update the sample point if:
1) this is the first assignment,
2) there is a previous assignment, but that assignment was
of secondary qualifiers,
3) new primary qualifier information is being passed, which
will supercede a non-NULL previous assignment, but not
supercede a previous NULL assignment
4) the previous assignment needs nullification because
the corresponding qualifier details is being deleted.
OPEN lc_qt (pv_qual_code);
FETCH lc_qt
INTO lv_new_qual_type;
IF lc_qt%NOTFOUND
THEN
RAISE NO_DATA_FOUND;
END IF;
CLOSE lc_qt;
OPEN lc_rd (pn_rd_id);
FETCH lc_rd
INTO lr_qu;
IF lc_rd%FOUND
THEN
IF pv_action_ind IN ('I', 'U')
THEN
Case 1: -- No pre-existing values on the raw data record
Case 2: -- The pre-existing values on the raw data record are for a secondary qualifier
Case 3: -- The new value is for a primary qualifier, and the pre-existing values
on the raw data record are not for a NULL qualifier
IF (lr_qu.old_qual_code IS NULL AND lr_qu.old_qual_type IS NULL
OR ( NVL(lr_qu.old_qual_type, '@') NOT IN ('EX', 'NULL', 'NAT')
AND NVL(lr_qu.old_qual_code, '@') <> 'V'
OR ( (lv_new_qual_type IN ('EX', 'NAT') OR pv_qual_code = 'V')
AND NVL(lr_qu.old_qual_type, '@') <> 'NULL'
THEN
UPDATE raw_data
SET qu_qualifier_code = pv_qual_code,
qt_qualifier_type = lv_new_qual_type
WHERE CURRENT OF lc_rd;
END IF;
ELSE -- pv_action_ind = 'D'
Case 4: -- Previous values need to be nullified because soure qualifier details is being deleted
IF NVL (lr_qu.old_qual_code, '@') = pv_qual_code
THEN -- Nullify previous values
UPDATE raw_data
SET qu_qualifier_code = NULL,
qt_qualifier_type = NULL
WHERE CURRENT OF lc_rd;
END IF;
END IF;
END IF;
CLOSE lc_rd;
EXCEPTION
WHEN OTHERS
THEN
temp_tables.put_exception_module ('replicate_qd');
RAISE;
END replicate_qd;
If anyone could supply some another point of view it would be greatly appreciated.

Answer 1

There are also 2 triggers that use this procedure in them.
DROP TRIGGER AIRSRAQS.QD_BDR;
CREATE OR REPLACE TRIGGER AIRSRAQS.qd_bdr
BEFORE DELETE
ON AIRSRAQS.QUALIFIER_DETAILS FOR EACH ROW
BEGIN
IF USER <> 'SYS'
THEN
Save the rd_rd_id for later processing
Nullify primary qualifier detail from parent raw data record
temp_tables.tmp_qd_table (NVL (temp_tables.tmp_qd_table.LAST, 0) + 1).rd_rd_id :=
:OLD.rd_rd_id;
replicate_qd (:OLD.rd_rd_id, :OLD.qu_qualifier_code, 'D');
END IF;
INSERT INTO qualifier_detail_history
(rd_id, qualifier_code
VALUES (:OLD.rd_rd_id, :OLD.qu_qualifier_code
EXCEPTION
WHEN OTHERS
THEN
temp_tables.tmp_qd_table.DELETE;
temp_tables.put_exception_module ('qd_bdr');
END qd_bdr;
DROP TRIGGER AIRSRAQS.QD_BIR;
CREATE OR REPLACE TRIGGER AIRSRAQS.qd_bir
BEFORE INSERT
ON AIRSRAQS.QUALIFIER_DETAILS FOR EACH ROW
DECLARE
-- Program Data
li_index INTEGER := (NVL (Temp_Tables.tmp_qd_table.LAST, 0) + 1);
BEGIN
- Only execute trigger for non-SYS users in on-line sessions (Note: session
ID information is not assigned by L51 but should; null check effects same
results. Patch only.)
- Verify mandatory columns are valued
- Verify that the rd_rd_id reference is valid across the raw data split
- Verify that the qualifier is active
- Verify that a null qualifier is not assigned when the reported sample is valued
- Verify that only a null qualifier is assigned when the reported sample is not valued
- Replicate primary qualifier detail to parent raw data record
- Derive year indicator
- Save information for after-statement trigger validation
IF :NEW.qd_id IS NULL
THEN
-- Assign qd_id from sequence.
SELECT qd_seq.NEXTVAL
INTO :NEW.qd_id
FROM DUAL;
END IF;
IF USER <> 'SYS'
AND ( Raw_Data_Validation.is_session_online
(:NEW.ses_sga_sg_screening_group_num,
:NEW.ses_sga_up_oracle_user_id,
:NEW.ses_session_date
OR ( :NEW.ses_sga_sg_screening_group_num IS NULL
AND :NEW.ses_sga_up_oracle_user_id IS NULL
AND :NEW.ses_session_date IS NULL
THEN
Sitemon_Tools.validate_value_not_null ('RD_RD_ID', :NEW.rd_rd_id);
Sitemon_Tools.validate_value_not_null ('Qualifier Code',
:NEW.qu_qualifier_code
Raw_Data_Validation.validate_rd_id_ref (:NEW.rd_rd_id);
Raw_Data_Validation.val_rd_mod_allowed (:NEW.rd_rd_id);
Val_Rdqd (:NEW.qu_qualifier_code, :NEW.rd_rd_id);
Replicate_Qd (:NEW.rd_rd_id, :NEW.qu_qualifier_code, 'I');
Assign_Year_Ind (:NEW.rd_rd_id, :NEW.year_ind);
Temp_Tables.tmp_qd_table (li_index).rd_rd_id := :NEW.rd_rd_id;
Temp_Tables.tmp_qd_table (li_index).qu_qualifier_code :=
:NEW.qu_qualifier_code;
END IF;
EXCEPTION
WHEN OTHERS
THEN
Temp_Tables.tmp_qd_table.DELETE;
Temp_Tables.put_exception_module ('qd_bir');
RAISE;
END qd_bir;
/