The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT jta.resource_id
FROM jtf.jtf_task_assignments jta
, csp_requirement_headers crh
WHERE crh.task_assignment_id = jta.task_assignment_id
AND jta.assignee_role = 'ASSIGNEE'
AND crh.requirement_header_id = b_req_header_id;*/
SELECT RH.RESOURCE_ID
FROM CSP_REQUIREMENT_HEADERS RH
WHERE RH.REQUIREMENT_HEADER_ID = b_req_header_id;
PROCEDURE Insert_ACC_Record
( p_req_header_id IN NUMBER
)
IS
/*CURSOR c_req_task_ass( b_req_header_id NUMBER ) IS
SELECT jta.resource_id
FROM jtf.jtf_task_assignments jta
, csp_requirement_headers crh
WHERE crh.task_assignment_id = jta.task_assignment_id
AND jta.assignee_role = 'ASSIGNEE'
AND crh.requirement_header_id = b_req_header_id;*/
SELECT RH.RESOURCE_ID
FROM CSP_REQUIREMENT_HEADERS RH
WHERE RH.REQUIREMENT_HEADER_ID = b_req_header_id;
, 'Entering Insert_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Inserting ACC record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Insert ACC Record error: Could not find a resource for requirement ' || p_req_header_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
, P_ACC_TABLE_NAME => g_acc_table_name
, P_PK1_NAME => g_pk1_name
, P_PK1_NUM_VALUE => p_req_header_id
, P_RESOURCE_ID => l_resource_id
);
, 'Leaving Insert_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END Insert_ACC_Record;
PROCEDURE Update_ACC_Record
( p_req_header_id IN NUMBER
)
IS
/* CURSOR c_req_task_ass( b_req_header_id NUMBER ) IS
SELECT jta.resource_id
FROM jtf.jtf_task_assignments jta
, csp_requirement_headers crh
WHERE crh.task_assignment_id = jta.task_assignment_id
AND jta.assignee_role = 'ASSIGNEE'
AND crh.requirement_header_id = b_req_header_id;*/
SELECT RH.RESOURCE_ID
FROM CSP_REQUIREMENT_HEADERS RH
WHERE RH.REQUIREMENT_HEADER_ID = b_req_header_id;
, 'Entering Update_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Update ACC Record error: Could not find resource for requirement '|| p_req_header_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
JTM_HOOK_UTIL_PKG.Update_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
, P_ACC_TABLE_NAME => g_acc_table_name
, P_RESOURCE_ID => l_resource_id
, P_ACCESS_ID => p_req_header_id
);
, 'Leaving Update_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END Update_ACC_Record;
/*** Private procedure that deletes requirement for resource from acc table ***/
PROCEDURE Delete_ACC_Record
( p_req_header_id IN NUMBER
,p_resource_id IN NUMBER
)
IS
BEGIN
IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
jtm_message_log_pkg.Log_Msg
( p_req_header_id
, g_table_name
, 'Entering Delete_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
, P_ACC_TABLE_NAME => g_acc_table_name
, P_PK1_NAME => g_pk1_name
, P_PK1_NUM_VALUE => p_req_header_id
, P_RESOURCE_ID => p_resource_id
);
, 'Leaving Delete_ACC_Record'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
END Delete_ACC_Record;
/*** Called before requirement Insert ***/
PROCEDURE PRE_INSERT_REQ_HEADER
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
END PRE_INSERT_REQ_HEADER;
/*** Called after requirement Insert ***/
PROCEDURE POST_INSERT_REQ_HEADER( x_return_status OUT NOCOPY varchar2 )
IS
l_req_header_id NUMBER;
, 'Entering POST_INSERT hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
/*** Insert record if applicable ***/
IF Replicate_Record(l_req_header_id) THEN
Insert_ACC_Record(l_req_header_id);
, 'Leaving POST_INSERT hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Caught exception in POST_INSERT hook:' || fnd_global.local_chr(10) || sqlerrm
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_REQ_HEADERS_ACC_PKG','POST_INSERT_REQ_HEADER',sqlerrm);
END POST_INSERT_REQ_HEADER;
/* Called before requirement Update */
PROCEDURE PRE_UPDATE_REQ_HEADER
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_REQ_HEADERS_ACC_PKG','PRE_UPDATE_REQ_HEADER',sqlerrm);
END PRE_UPDATE_REQ_HEADER;
/* Called after requirement Update */
PROCEDURE POST_UPDATE_REQ_HEADER( x_return_status OUT NOCOPY varchar2 )
IS
l_req_header_id NUMBER;
, 'Entering POST_UPDATE hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
Update_ACC_Record(l_req_header_id);
, 'Leaving POST_UPDATE hook'
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
, 'Caught exception in POST_UPDATE hook:' || fnd_global.local_chr(10) || sqlerrm
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_REQ_HEADERS_ACC_PKG','POST_UPDATE_REQ_HEADER',sqlerrm);
END POST_UPDATE_REQ_HEADER;
/* Called before req header Delete */
PROCEDURE PRE_DELETE_REQ_HEADER
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
END PRE_DELETE_REQ_HEADER;
/* Called after req header Delete */
PROCEDURE POST_DELETE_REQ_HEADER
( x_return_status OUT NOCOPY varchar2
)
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_REQ_HEADERS_ACC_PKG','POST_DELETE_REQ_HEADER',sqlerrm);
END POST_DELETE_REQ_HEADER;
PROCEDURE Delete_All_ACC_Records
( p_resource_id in NUMBER
, x_return_status OUT NOCOPY varchar2
)
IS
CURSOR c_req_header (b_resource_id NUMBER) IS
SELECT REQUIREMENT_HEADER_ID
FROM CSP_REQUIREMENT_HEADERS RH
WHERE RH.RESOURCE_ID = b_resource_id;
SELECT crh.requirement_header_id
FROM jtf.jtf_task_assignments jta
, csp_requirement_headers crh
WHERE crh.task_assignment_id = jta.task_assignment_id
AND jta.assignee_role = 'ASSIGNEE'
AND jta.resource_id = b_resource_id; */
, 'Entering Delete_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
Delete_Acc_Record( r_req_header.requirement_header_id, p_resource_id );
, 'Leaving Delete_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_REQ_HEADERS_ACC_PKG','Delete_All_ACC_Records',sqlerrm);
END Delete_All_ACC_Records;
PROCEDURE Insert_All_ACC_Records
( p_resource_id in NUMBER
, x_return_status OUT NOCOPY varchar2
)
IS
CURSOR c_req_header (b_resource_id NUMBER) IS
SELECT REQUIREMENT_HEADER_ID
FROM CSP_REQUIREMENT_HEADERS RH
WHERE RH.RESOURCE_ID = b_resource_id;
SELECT crh.requirement_header_id
FROM jtf.jtf_task_assignments jta
, csp_requirement_headers crh
WHERE crh.task_assignment_id = jta.task_assignment_id
AND jta.assignee_role = 'ASSIGNEE'
AND jta.resource_id = b_resource_id; */
, 'Entering Insert_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
Insert_Acc_Record( r_req_header.requirement_header_id );
, 'Leaving Insert_All_ACC_Records procedure for user: ' || p_resource_id
, JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
fnd_msg_pub.Add_Exc_Msg('CSL_CSP_REQ_HEADERS_ACC_PKG','Insert_All_ACC_Records',sqlerrm);
END Insert_All_ACC_Records;