The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT DOC.DIRECTORY_ID
INTO VN_DIRECTORY_ID
FROM FRM_DOCUMENTS_VL DOC
WHERE DOC.DOCUMENT_ID = P_MENU_ID
AND ((DOC.END_DATE IS NULL OR DOC.END_DATE > SYSDATE)
OR (DOC.DOCUMENT_ID IN (SELECT PUB.DOCUMENT_ID FROM FRM_DOC_PUB_OPTIONS PUB
WHERE PUB.DOCUMENT_ID = P_MENU_ID AND PUB.END_DATE > SYSDATE)));
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT1
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE UPPER(MAP.NODE_TYPE) = UPPER(P_MENU_TYPE)
AND MAP.NODE_ID = P_MENU_ID;
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT2
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID IN
(SELECT DIR.PARENT_ID
FROM FRM_DIRECTORY_VL DIR
START WITH DIR.DIRECTORY_ID = VN_DIRECTORY_ID
CONNECT BY PRIOR DIR.PARENT_ID = DIR.DIRECTORY_ID
AND DIR.PARENT_ID <> -1
) OR MAP.NODE_ID = VN_DIRECTORY_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY';
SELECT COUNT(1)
INTO VN_RECORD_CNT1
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE UPPER(MAP.NODE_TYPE) = UPPER(P_MENU_TYPE)
AND MAP.NODE_ID = P_MENU_ID
AND MAP.USER_ID = P_USER_ID;
OPEN C_PARENT_LIST FOR SELECT * FROM (SELECT DIR.PARENT_ID AS DIRECTORY_ID, LEVEL + 1 AS DIR_LEVEL
FROM FRM_DIRECTORY_VL DIR
START WITH DIR.DIRECTORY_ID = VN_DIRECTORY_ID
CONNECT BY PRIOR DIR.PARENT_ID = DIR.DIRECTORY_ID
AND DIR.PARENT_ID <> -1
UNION
SELECT DIR.DIRECTORY_ID AS DIRECTORY_ID, 1 AS DIR_LEVEL
FROM FRM_DIRECTORY_VL DIR
WHERE DIR.DIRECTORY_ID = VN_DIRECTORY_ID)
ORDER BY DIR_LEVEL DESC;
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT3
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID = VN_PARNT_DIR_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY';
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT3
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID = VN_PARNT_DIR_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY'
AND MAP.USER_ID = P_USER_ID;
SELECT DISTINCT UPPER(NVL(MAP.RECURSIVE, 'N'))
INTO VN_RECURSE_FLAG
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID = VN_PARNT_DIR_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY'
AND MAP.USER_ID = P_USER_ID
AND ROWNUM = 1;
SELECT DOC.DIRECTORY_ID
INTO VN_DIRECTORY_ID
FROM FRM_DOCUMENTS_VL DOC
WHERE DOC.DOCUMENT_ID = P_MENU_ID
AND ((DOC.END_DATE IS NULL OR DOC.END_DATE > SYSDATE)
OR (DOC.DOCUMENT_ID IN (SELECT PUB.DOCUMENT_ID FROM FRM_DOC_PUB_OPTIONS PUB
WHERE PUB.DOCUMENT_ID = P_MENU_ID AND PUB.END_DATE > SYSDATE)));
SELECT DIR.PARENT_ID
INTO VN_DIRECTORY_ID
FROM FRM_DIRECTORY_VL DIR
WHERE DIR.DIRECTORY_ID = P_MENU_ID
AND (DIR.END_DATE IS NULL OR DIR.END_DATE > SYSDATE);
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT1
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE UPPER(MAP.NODE_TYPE) = UPPER(P_MENU_TYPE)
AND MAP.NODE_ID = P_MENU_ID;
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT2
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID IN
(SELECT DIR.PARENT_ID
FROM FRM_DIRECTORY_VL DIR
START WITH DIR.DIRECTORY_ID = VN_DIRECTORY_ID
CONNECT BY PRIOR DIR.PARENT_ID = DIR.DIRECTORY_ID
AND DIR.PARENT_ID <> -1
) OR MAP.NODE_ID = VN_DIRECTORY_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY';
SELECT COUNT(1)
INTO VN_RECORD_CNT1
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE UPPER(MAP.NODE_TYPE) = UPPER(P_MENU_TYPE)
AND MAP.NODE_ID = P_MENU_ID
AND MAP.USER_ID = P_USER_ID;
SELECT UPPER(MAP.PERMISSION_CODE)
INTO VN_MENU_OWNER
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE UPPER(MAP.NODE_TYPE) = UPPER(P_MENU_TYPE)
AND MAP.NODE_ID = P_MENU_ID
AND MAP.USER_ID = P_USER_ID
AND ROWNUM = 1;
OPEN C_PARENT_LIST FOR SELECT * FROM (SELECT DIR.PARENT_ID AS DIRECTORY_ID, LEVEL + 1 AS DIR_LEVEL
FROM FRM_DIRECTORY_VL DIR
START WITH DIR.DIRECTORY_ID = VN_DIRECTORY_ID
CONNECT BY PRIOR DIR.PARENT_ID = DIR.DIRECTORY_ID
AND DIR.PARENT_ID <> -1
UNION
SELECT DIR.DIRECTORY_ID AS DIRECTORY_ID, 1 AS DIR_LEVEL
FROM FRM_DIRECTORY_VL DIR
WHERE DIR.DIRECTORY_ID = VN_DIRECTORY_ID)
ORDER BY DIR_LEVEL DESC;
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT3
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID = VN_PARNT_DIR_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY';
SELECT COUNT(DISTINCT MAP.NODE_ID)
INTO VN_RECORD_CNT3
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID = VN_PARNT_DIR_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY'
AND MAP.USER_ID = P_USER_ID;
SELECT UPPER(MAP.PERMISSION_CODE),
UPPER(NVL(MAP.RECURSIVE, 'N'))
INTO VN_PARNT_OWNER,
VN_RECURSE_FLAG
FROM FRM_MENU_USER_MAPPINGS MAP
WHERE MAP.NODE_ID = VN_PARNT_DIR_ID
AND UPPER(MAP.NODE_TYPE) = 'DIRECTORY'
AND MAP.USER_ID = P_USER_ID
AND ROWNUM = 1;
SELECT DOC.DOCUMENT_ID
INTO VN_MENU_ID
FROM FRM_DOCUMENTS_VL DOC
WHERE DOC.DOCUMENT_ID = P_MENU_ID
AND ((DOC.END_DATE IS NULL OR DOC.END_DATE > SYSDATE)
OR (DOC.DOCUMENT_ID IN (SELECT PUB.DOCUMENT_ID FROM FRM_DOC_PUB_OPTIONS PUB
WHERE PUB.DOCUMENT_ID = P_MENU_ID AND PUB.END_DATE > SYSDATE)));
SELECT DIR.DIRECTORY_ID
INTO VN_MENU_ID
FROM FRM_DIRECTORY_VL DIR
WHERE DIR.DIRECTORY_ID = P_MENU_ID
AND (DIR.END_DATE IS NULL OR DIR.END_DATE > SYSDATE);
SELECT USER_ID
INTO VN_USER_ID
FROM FND_USER
WHERE USER_ID = P_USER_ID
AND (END_DATE IS NULL OR END_DATE > SYSDATE);