The last insert in this procedure not inserting, logic of flow is right?

Question

Here is the code:
{ PROCEDURE prAddDATU (p_EXPCLLI            IN VARCHAR2,
p_EXPIP IN VARCHAR2,
p_EXPName IN VARCHAR2,
p_EXPAddress IN VARCHAR2,
p_EXPCity IN VARCHAR2,
p_EXPState IN VARCHAR2,
p_COPhoneNumber IN VARCHAR2,
p_WCCLLI IN VARCHAR2,
p_DialIn IN VARCHAR2,
p_DialOut IN VARCHAR2,
p_EXPRR IN VARCHAR2,
p_PowerFuse IN VARCHAR2,
p_HDFFrame IN VARCHAR2,
p_PGTCFrame IN VARCHAR2,
p_NTTFrame IN VARCHAR2,
p_ColanRR IN VARCHAR2,
p_ColanJack IN VARCHAR2,
p_PollInterval IN NUMBER,
p_LeadNPA IN NUMBER,
p_EXPComments IN VARCHAR2,
p_OwnerID IN NUMBER,
p_LRNNumbers IN VARCHAR2,
p_MaintBegin IN VARCHAR2,
p_MaintEnd IN VARCHAR2,
p_EXPPort IN NUMBER,
p_LRNChecked IN VARCHAR2,
p_LRNFacilityCode IN VARCHAR2,
p_IsPrimaryAddress IN VARCHAR2,
p_RTUTypeId IN NUMBER,
p_SiteName IN VARCHAR2,
p_HostExpIds IN VARCHAR2)
IS
v_DATUID NUMBER;
v_HostExpId NUMBER;
v_HostExpIds VARCHAR2 (200);
v_LRN VARCHAR2 (30);
v_LRNS VARCHAR2 (400);
v_LRNActive CHAR (1);
v_LRNSActive VARCHAR2 (20);
v_LRNFacilityCode CHAR (2);
v_LRNSFacilityCode VARCHAR2 (300);
v_pos1 NUMBER;
v_pos2 NUMBER;
v_pos3 NUMBER;
v_pos4 NUMBER;
BEGIN
SELECT DATU_EXP_UNIT_INFO_SEQ.NextVal INTO v_DATUID FROM DUAL;
INSERT INTO TT_DATU_EXP_UNIT_INFO VALUES (v_DATUID, p_OwnerID, p_EXPName, p_EXPAddress, p_EXPCity, p_EXPState, p_COPhoneNumber, p_WCCLLI, p_EXPCLLI, p_EXPIP, p_EXPPort, p_DialIn, p_DialOut, p_EXPRR, p_PowerFuse, p_HDFFrame, p_PGTCFrame, p_NTTFrame, p_ColanRR, p_ColanJack, p_PollInterval, p_LeadNPA, NULL, p_EXPComments, p_MaintBegin, p_MaintEnd, p_IsPrimaryAddress, p_RTUTypeId, p_SiteName, Sysdate);
-- Add New DATU in the TT_DATU_EXP_STAGING and TT_DATU_EXP_UNIT_INFO tables
INSERT INTO TT_DATU_EXP_STAGING VALUES (v_DATUID, p_EXPCLLI, SysDate);
-- Add New DATU in the TT_DATU_EXP_ALARM_INFO table with ALARM_TYPE = 'G0 - Staging'
INSERT INTO TT_DATU_EXP_ALARM_INFO VALUES (v_DATUID, SysDate, 'G0', SysDate);
-- Add RTU to Hosts
v_HostExpIds := p_HostExpIds;
v_pos1 := INSTR(v_HostExpIds, ',', 1);
WHILE v_pos1 > 0
LOOP
v_HostExpId := TRIM(SUBSTR(v_HostExpIds, 1, v_pos1 - 1));
IF v_HostExpId IS NOT NULL
THEN
INSERT INTO TT_HOST_SATELLITE VALUES (v_HostExpId, v_DATUID);
END IF;
v_HostExpIds := SUBSTR(v_HostExpIds, v_pos1 + 1, LENGTH(v_HostExpIds));
v_pos1 := INSTR(v_HostExpIds, ',', 1);
END LOOP;
-- if LRN maps are entered add records in DATU_LRN_MAP
v_LRNS := p_LRNNumbers;
v_LRNSActive := p_LRNChecked;
v_LRNSFacilityCode := p_LRNFacilityCode;
v_pos1 := INSTR(v_LRNS, ',', 1);
v_pos2 := INSTR(v_LRNSActive, ',', 1);
v_pos3 := INSTR(v_LRNSFacilityCode, ',', 1);
WHILE v_pos1 > 0
LOOP
v_LRN := TRIM(SUBSTR(v_LRNS, 1, v_pos1 - 1));
v_LRNActive := TRIM(SUBSTR(v_LRNSActive, 1, v_pos2 - 1));
v_LRNFacilityCode := TRIM(SUBSTR(v_LRNSFacilityCode, 1, v_pos3 - 1));
IF v_LRN IS NOT NULL
THEN
INSERT INTO TT_DATU_LRN_MAP VALUES (v_LRN, v_DATUID, v_LRNActive, v_LRNFacilityCode);
END IF;
v_LRNS := SUBSTR(v_LRNS, v_pos1 + 1, LENGTH(v_LRNS));
v_LRNSActive := SUBSTR(v_LRNSActive, v_pos2 + 1, LENGTH(v_LRNSActive));
v_LRNSFacilityCode := SUBSTR(v_LRNSFacilityCode, v_pos3 + 1, LENGTH(v_LRNSFacilityCode));
v_pos1 := INSTR(v_LRNS, ',', 1);
v_pos2 := INSTR(v_LRNSActive, ',', 1);
v_pos3 := INSTR(v_LRNSFacilityCode, ',', 1);
END LOOP;
COMMIT;
END prAddDATU;
The problem here is the last insert into TT_datu_lrn_map table shows no insert at all.
Any guru can help, please.
Thanks,

Answer 1

I used an error table like the other post a ton. If you take a few minutes to review Handling Exceptions in PL/SQL you will be happy you did.
You can add other columns to the table and add debug comments like 'Insert 1" in 'Insert 2' etc.
BEGIN
INSERT
EXCEPTION
WHEN ZERO_DIVIDE THEN
END;
There are several standard errors you can trap for example: (So you can trap for more than one at a time)
-- Only one of the WHEN blocks is executed.
WHEN CASE_NOT_FOUND -- ORA-06592
dbms_output.put_line('Missing the else clause ');
WHEN CURSOR_ALREADY_OPEN -- ORA-06511
dbms_output.put_line('Close cursor first before reopening. ');
WHEN DUP_VAL_ON_INDEX -- ORA-00001
dbms_output.put_line('Attempt to store a duplicate value or values in a database column.');
WHEN INVALID_CURSOR -- ORA-01001
dbms_output.put_line('You tried to reference a cursor that does not yet exist. ');
WHEN INVALID_NUMBER -- ORA-01722
dbms_output.put_line('An attempt is made to convert a character string into a number failed ');
WHEN LOGIN_DENIED -- ORA-01017
dbms_output.put_line('Username is not a recognised username or that the password is incorrect ');
WHEN NO_DATA_FOUND -- ORA-01403
dbms_output.put_line('All records have been returned from the SQL query. ');
WHEN ROWTYPE_MISMATCH -- ORA-06504
dbms_output.put_line('Number and/or types of columns in a query does not match declared return type of a result set ');
WHEN SYS_INVALID_ROWID -- ORA-01410
dbms_output.put_line('Query for table for which there is no such row ');
WHEN TOO_MANY_ROWS -- ORA-01422
dbms_output.put_line('SELECT INTO statement returns more than one row ');
WHEN VALUE_ERROR -- ORA-06502
dbms_output.put_line('Unable to convert value. ');
WHEN ZERO_DIVIDE THEN -- handles 'division by zero' error
dbms_output.put_line('Company must have had zero earnings.');
pe_ratio := null;
WHEN OTHERS THEN -- handles all other errors
dbms_output.put_line('Some other kind of error occurred.');
END; -- exception handlers and block end here
I hope this helps you.
MS