A Procedure doesn't update some rows in pre-prod while it does in dev box.

Question

Hi All,
There are some data rows in a master table STG_CON in both environments(DEV and PRE_PROD). Making changes to any of these rows should be reflected in the CON table after the procedure is run, however it only seems to work reliably in DEV, but failes to update some rows in PRE-PROD.
Our oracle stored procedure: USP_APPLY_CON which we have to deploy over production, but before that, I am afraid, it should not fail to update some rows in CON table alike pre-prod.
Please suggest what could be problem, why all rows are getting updated in DEV but fails in PRE-PROD, though everything looks same.

Answer 1

Here is my procedure: USP_APPLY_CONTACT, which should insert the data from STG_CONTACT to CONTACT table, all required columns are present in CONTACT table. Please have a look over it, I don't guess there is any issue with procedure.
CREATE OR REPLACE PROCEDURE "COPILOTFIREPR2_ADMIN"."USP_APPLY_CONTACT" AS
-- This stored procedure is used to copy data from staging table to "contact" ta
ble.
-- Update if record exists, insert otherwise.
-- When error occurs, record get throw away.
BEGIN
DECLARE CURSOR cur IS
SELECT *
FROM stg_CONTACT;
rcdcnt NUMBER(10, 0) := 0;
errMsg varchar2(255);
BEGIN
FOR rec IN cur
LOOP
SELECT COUNT(*)
INTO rcdcnt
FROM CONTACT
WHERE CONTACTNO = rec.CONTACTNO;
BEGIN
IF rcdcnt = 0 THEN
INSERT INTO CONTACT (
ID, LOCATIONCODE, CONTRACTNO, CUSTOMERNO, CONTACTNO,
FIRSTNAME, LASTNAME, TITLE, ADDRESSID, DECISIONMAKER, PRCCONTACT, ACTIVE)
VALUES (CONTACT_ID_SEQ.NextVal, rec.LOCATIONCODE,
rec.CONTRACTNO,
rec.CUSTOMERNO,
rec.CONTACTNO,
rec.FIRSTNAME,
rec.LASTNAME,
rec.TITLE,
rec.ADDRESSID,
rec.DECISIONMAKER,
rec.PRCCONTACT,
rec.active);
ELSE
UPDATE CONTACT SET
ACTIVE=rec.active, FIRSTNAME=rec.FIRSTNAME, LASTNAME=rec.LASTNAME, TITLE=rec.TI
TLE, ADDRESSID=rec.ADDRESSID,
DECISIONMAKER=rec.DECISIONMAKER, PRCCONTACT=rec.PRCCONTACT, LOCATIONCODE=rec.LO
CATIONCODE,
CONTRACTNO=rec.CONTRACTNO, CUSTOMERNO=rec.CUSTOMERNO
WHERE CONTACTNO=rec.CONTACTNO;
END IF;
EXCEPTION
WHEN OTHERS THEN
errMsg := SQLERRM;
insert into errorlog("ID", "USERNAME", "APPDOMAIN", "MESSAGE", "FORMATTEDMESSAG
E", "EXCEPTIONTYPE", "SERVERNAME" )
values ( ERRORLOG_ID_SEQ.NEXTVAL, 'COPILOTFIRE_ADMIN.USP_APPLY_CONTACT', 2,
'KEY is '||to_char(rec.CONTACTNO), errMsg, '','');
END;
END LOOP;
END;