The following lines contain the word 'select', 'insert', 'update' or 'delete':
| PROCEDURE Insert_Row |
+=======================================================================*/
PROCEDURE Insert_Row
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_row_id IN OUT NOCOPY VARCHAR2,
p_CC_HEADER_ID NUMBER,
p_USER_ID NUMBER,
p_CC_GROUP_ID NUMBER,
p_CC_ACCESS_ID IN OUT NOCOPY NUMBER,
p_CC_ACCESS_LEVEL VARCHAR2,
p_CC_ACCESS_TYPE VARCHAR2,
p_LAST_UPDATE_DATE DATE,
p_LAST_UPDATED_BY NUMBER,
p_CREATION_DATE DATE,
p_CREATED_BY NUMBER,
p_LAST_UPDATE_LOGIN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
SELECT rowid
FROM igc_cc_access
WHERE cc_access_id = p_cc_access_id;
SAVEPOINT Insert_Row_Pvt ;
INSERT INTO igc_cc_access(
CC_HEADER_ID,
USER_ID,
CC_GROUP_ID,
CC_ACCESS_ID,
CC_ACCESS_LEVEL,
CC_ACCESS_TYPE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN
)
VALUES
(
p_CC_HEADER_ID,
p_USER_ID,
p_CC_GROUP_ID,
NVL(p_CC_ACCESS_ID, igc_cc_access_s.NEXTVAL),
p_CC_ACCESS_LEVEL,
p_CC_ACCESS_TYPE,
p_LAST_UPDATE_DATE,
p_LAST_UPDATED_BY,
p_CREATION_DATE,
p_CREATED_BY,
p_LAST_UPDATE_LOGIN
)
RETURNING cc_access_id INTO p_CC_ACCESS_ID;
ROLLBACK TO Insert_Row_Pvt ;
ROLLBACK TO Insert_Row_Pvt ;
ROLLBACK TO Insert_Row_Pvt ;
END Insert_Row;
SELECT *
FROM igc_cc_access
WHERE rowid = p_row_id
FOR UPDATE NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
| PROCEDURE Update_Row |
+==========================================================================*/
PROCEDURE Update_Row
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_row_id VARCHAR2,
p_CC_HEADER_ID NUMBER,
p_USER_ID NUMBER,
p_CC_GROUP_ID NUMBER,
p_CC_ACCESS_ID NUMBER,
p_CC_ACCESS_LEVEL VARCHAR2,
p_CC_ACCESS_TYPE VARCHAR2,
p_LAST_UPDATE_DATE DATE,
p_LAST_UPDATED_BY NUMBER,
p_LAST_UPDATE_LOGIN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
SAVEPOINT Update_Row_Pvt ;
UPDATE igc_cc_access
SET
CC_HEADER_ID = p_CC_HEADER_ID,
USER_ID = p_USER_ID,
CC_GROUP_ID = p_CC_GROUP_ID,
CC_ACCESS_ID = p_CC_ACCESS_ID,
CC_ACCESS_LEVEL = p_CC_ACCESS_LEVEL,
CC_ACCESS_TYPE = p_CC_ACCESS_TYPE,
LAST_UPDATE_DATE = p_LAST_UPDATE_DATE,
LAST_UPDATED_BY = p_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN
WHERE rowid = p_row_id;
ROLLBACK TO Update_Row_Pvt ;
ROLLBACK TO Update_Row_Pvt ;
ROLLBACK TO Update_Row_Pvt ;
END Update_Row;
| PROCEDURE Delete_Row |
+==========================================================================*/
PROCEDURE Delete_Row
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_row_id IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
SAVEPOINT Delete_Row_Pvt ;
DELETE FROM igc_cc_access
WHERE rowid = p_row_id;
ROLLBACK TO Delete_Row_Pvt ;
ROLLBACK TO Delete_Row_Pvt ;
ROLLBACK TO Delete_Row_Pvt ;
END Delete_Row;
SELECT '1'
FROM igc_cc_access
WHERE cc_access_id = p_cc_access_id
AND (
p_row_id IS NULL
OR
rowid <> p_row_id
);
Select max(cc_access_level)
Into l_u_access_level
From IGC_CC_ACCESS
Where user_id = p_user_id
and cc_access_type like 'U'
and cc_header_id = p_header_id
Group By cc_header_id;
Select max(cc_access_level)
Into l_g_access_level
From IGC_CC_ACCESS a,
IGC_CC_GROUP_USERS b
Where b.user_id = p_user_id
and a.cc_access_type like 'G'
and a.cc_header_id = p_header_id
and a.cc_group_id = b.cc_group_id
Group By cc_header_id;