This is the whole Procedure. i couldn't find anything on line 1 col 7
PROMPT CREATE OR REPLACE PROCEDURE reptowner.proc_role_conflicts
CREATE OR REPLACE PROCEDURE reptowner.PROC_ROLE_CONFLICTS
(P_conflict IN OUT Pkg_Cr.CR_TYPE)
AS
--DECLARATION STARTS----------------
TABSTRcrl Pkg_Cr.tString1;
TABSTRncrl Pkg_Cr.tString2;
V_VALIDATION_STEP VARCHAR2(50) :='';
USER_NAME VARCHAR2(100) := 'TEMP'||'_'||TO_CHAR(SYSDATE,'HH_MI_SS')||'_'||'USER' ;
V_CONFLICT_ROLE VARCHAR2(100):='';
V_CONFLICT_TEXT VARCHAR2(20) :='';
V_VALID_CONFLICT NUMBER := 999999999;
V_PREVIOUS_MATCH CHAR(1):= 'N';
V_COUNTCRL NUMBER := 0;
V_COUNT_NoCRL NUMBER := 0;
INDX NUMBER := 1;
CURSOR CUR_USER_ROLE_LIST IS
SELECT Distinct PRNC.PRIM_SCTY_ORGN_ID AS PRIMARY_ORG,
ROLE_JN.SCTY_ORGN_ID AS SECONDARY_ORG,ROLE_JN.SCTY_PRNC_ID AS USER_ID,
LTRIM(RTRIM(SUBSTR(ROLE_JN.SCTY_ROLE_ID,7,20))) AS USER_ROLE,PRNC.ACTV_FL
FROM
MF_SCTY_PRNC PRNC,MF_PRNC_ROLE_JN ROLE_JN,MF_SCTY_ORGN ORG
WHERE PRNC.UIDY = ROLE_JN.SCTY_PRNC_ID and
PRNC.PRIM_SCTY_ORGN_ID = ORG.UIDY and
PRNC.ACTV_FL = 'T';
--ORDER BY
--PRNC.PRIM_SCTY_ORGN_ID,
--ROLE_JN.SCTY_ORGN_ID,
--ROLE_JN.SCTY_PRNC_ID;
CURSOR CUR_CONFLICT_ROLES (V_USER_ROLE VARCHAR2) IS
SELECT distinct CONFLICT.PH_ROLE_CD,CONFLICT.RPT_CONFLICT_ROLE_CD
FROM
PH_RPT_SCTY_ROLE_CONFLICT CONFLICT
WHERE
CONFLICT.PH_ROLE_CD = LTRIM(RTRIM(V_USER_ROLE));
CURSOR CUR_VALID_CONFLICT(V_PRIMARY_ORG VARCHAR2,V_SECONDARY_ORG VARCHAR2,V_USER_ID VARCHAR2,V_CONFLICT_ROLE VARCHAR2) IS
SELECT COUNT(DISTINCT ROLE_JN.SCTY_PRNC_ID) AS VALID_COUNT
FROM
MF_PRNC_ROLE_JN ROLE_JN,MF_SCTY_PRNC PRNC
WHERE PRNC.UIDY = ROLE_JN.SCTY_PRNC_ID and
PRNC.PRIM_SCTY_ORGN_ID = LTRIM(RTRIM(V_PRIMARY_ORG)) AND
ROLE_JN.SCTY_ORGN_ID = LTRIM(RTRIM(V_SECONDARY_ORG)) AND
ROLE_JN.SCTY_PRNC_ID = LTRIM(RTRIM(V_USER_ID)) AND
LTRIM(RTRIM(SUBSTR(ROLE_JN.SCTY_ROLE_ID,7,20))) = LTRIM(RTRIM(V_CONFLICT_ROLE));
BEGIN
--GET THE ROLES AND THE CONFLICTING ROLES...
FOR USER_LIST IN CUR_USER_ROLE_LIST
LOOP
V_CONFLICT_TEXT := 'No Conflicts';
FOR CONFLICT IN CUR_CONFLICT_ROLES(USER_LIST.USER_ROLE)
LOOP
IF LENGTH(LTRIM(RTRIM(CONFLICT.RPT_CONFLICT_ROLE_CD)))=0 OR CONFLICT.RPT_CONFLICT_ROLE_CD IS NULL THEN
INSERT INTO TEMP_PH_RPT_SCTY_ROLE_CONFLICT
(PRIMARY_SCTY_ORG,
SECONDARY_SCTY_ORG,
USER_ID,
USER_ROLE,
CONFLICTING_ROLE,
ACTIVE_FLAG,
TEMP_USER_ID
)
VALUES
(LTRIM(RTRIM(SUBSTR(USER_LIST.PRIMARY_ORG,7,20))),
LTRIM(RTRIM(SUBSTR(USER_LIST.SECONDARY_ORG,7,20))),
LTRIM(RTRIM(SUBSTR(USER_LIST.USER_ID,7,20))),
USER_LIST.USER_ROLE,
LTRIM(RTRIM(V_CONFLICT_TEXT)),
USER_LIST.ACTV_FL,
USER_NAME
);
ELSE
FOR VALID IN CUR_VALID_CONFLICT(USER_LIST.PRIMARY_ORG,USER_LIST.SECONDARY_ORG,USER_LIST.USER_ID,CONFLICT.RPT_CONFLICT_ROLE_CD)
LOOP
V_VALID_CONFLICT := VALID.VALID_COUNT;
IF VALID.VALID_COUNT = 0 THEN
V_COUNT_NoCRL := V_COUNT_NoCRL + 1;
ELSIF VALID.VALID_COUNT = 1 THEN
V_COUNTCRL := V_COUNTCRL + 1;
TABSTRcrl(V_COUNTCRL) := CONFLICT.RPT_CONFLICT_ROLE_CD;
END IF;
EXIT;
END LOOP;
END IF;
END LOOP;
IF V_COUNTCRL >= 1 THEN
FOR INDX IN 1..V_COUNTCRL
LOOP
INSERT INTO TEMP_PH_RPT_SCTY_ROLE_CONFLICT
(PRIMARY_SCTY_ORG,
SECONDARY_SCTY_ORG,
USER_ID,
USER_ROLE,
CONFLICTING_ROLE,
ACTIVE_FLAG,
TEMP_USER_ID
)
VALUES
(LTRIM(RTRIM(SUBSTR(USER_LIST.PRIMARY_ORG,7,20))),
LTRIM(RTRIM(SUBSTR(USER_LIST.SECONDARY_ORG,7,20))),
LTRIM(RTRIM(SUBSTR(USER_LIST.USER_ID,7,20))),
USER_LIST.USER_ROLE,
TABSTRcrl(INDX),
USER_LIST.ACTV_FL,
USER_NAME
);
TABSTRcrl(INDX) := '';
END LOOP;
ELSIF V_COUNTCRL = 0 AND V_COUNT_NoCRL >=1 THEN
INSERT INTO TEMP_PH_RPT_SCTY_ROLE_CONFLICT
(PRIMARY_SCTY_ORG,
SECONDARY_SCTY_ORG,
USER_ID,
USER_ROLE,
CONFLICTING_ROLE,
ACTIVE_FLAG,
TEMP_USER_ID
)
VALUES
(LTRIM(RTRIM(SUBSTR(USER_LIST.PRIMARY_ORG,7,20))),
LTRIM(RTRIM(SUBSTR(USER_LIST.SECONDARY_ORG,7,20))),
LTRIM(RTRIM(SUBSTR(USER_LIST.USER_ID,7,20))),
USER_LIST.USER_ROLE,
V_CONFLICT_TEXT,
USER_LIST.ACTV_FL,
USER_NAME
);
END IF;
V_COUNT_NoCRL := 0;
V_COUNTCRL := 0;
END LOOP;
COMMIT;
OPEN P_CONFLICT FOR
SELECT * FROM TEMP_PH_RPT_SCTY_ROLE_CONFLICT WHERE
TEMP_USER_ID = USER_NAME;
DELETE FROM TEMP_PH_RPT_SCTY_ROLE_CONFLICT WHERE
TEMP_USER_ID = USER_NAME;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
IF CUR_USER_ROLE_LIST%ISOPEN THEN
CLOSE CUR_USER_ROLE_LIST;
ELSIF CUR_CONFLICT_ROLES%ISOPEN THEN
CLOSE CUR_CONFLICT_ROLES;
ELSIF CUR_VALID_CONFLICT%ISOPEN THEN
CLOSE CUR_VALID_CONFLICT;
END IF;
END PROC_ROLE_CONFLICTS;
/