The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT RESOURCE_ID
INTO l_owner_id
FROM JTF_RS_RESOURCE_EXTNS
WHERE CATEGORY = 'EMPLOYEE'
AND ROWNUM = 1;
p_last_update_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_created_by => FND_GLOBAL.USER_ID
);
PROCEDURE update_task(API_VERSION IN NUMBER DEFAULT 1.0,
OBJECT_VERSION_NUMBER IN NUMBER DEFAULT 1,
P_TASK_ID IN NUMBER,
COMMENTS IN VARCHAR2 DEFAULT NULL,
COMPLETION_STATUS IN VARCHAR2 DEFAULT 'COMPLETED',
X_MSG_DATA OUT NOCOPY VARCHAR2,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER)
IS
l_task_table JTF_TASKS_PUB.TASK_TABLE_TYPE;
SELECT OBJECT_VERSION_NUMBER
INTO l_object_version_number
FROM JTF_TASKS_B
WHERE TASK_ID = P_TASK_ID;
SELECT JTF_NOTE_ID
INTO l_note_id
FROM JTF_NOTES_B
WHERE SOURCE_OBJECT_ID = p_task_id
AND SOURCE_OBJECT_CODE = 'TASK'
AND ROWNUM = 1;
SELECT RESOURCE_ID
INTO l_owner_id
FROM JTF_RS_RESOURCE_EXTNS
WHERE CATEGORY = 'EMPLOYEE'
AND ROWNUM = 1;
JTF_TASKS_PUB.update_task(
P_API_VERSION => 1.0,
P_OBJECT_VERSION_NUMBER => l_object_version_number,
P_TASK_STATUS_ID => l_status_id,
P_TASK_ID => P_TASK_ID,
P_COMMIT => FND_API.G_FALSE,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data);
JTF_NOTES_PUB.UPDATE_NOTE
( p_api_version => 1,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_jtf_note_id => l_note_id,
p_entered_by => NULL,
p_last_updated_by => l_owner_id,
p_last_update_date => SYSDATE,
p_last_update_login => NULL,
p_notes => COMMENTS
);
END update_task;
PROCEDURE update_task_without_note(API_VERSION IN NUMBER DEFAULT 1.0,
OBJECT_VERSION_NUMBER IN NUMBER DEFAULT 1,
P_TASK_ID IN NUMBER,
COMMENTS IN VARCHAR2 DEFAULT NULL,
COMPLETION_STATUS IN VARCHAR2 DEFAULT 'COMPLETED') IS
l_task_table JTF_TASKS_PUB.TASK_TABLE_TYPE;
SELECT JTF_TASKS_B.OBJECT_VERSION_NUMBER
INTO l_object_version_number
FROM JTF_TASKS_B
WHERE TASK_ID = P_TASK_ID;
JTF_TASKS_PUB.update_task(
P_API_VERSION => 1.0,
P_OBJECT_VERSION_NUMBER => l_object_version_number,
P_TASK_STATUS_ID => l_status_id,
P_TASK_ID => P_TASK_ID,
--P_SOURCE_OBJECT_TYPE_CODE => NULL,
--P_SOURCE_OBJECT_TYPE_CODE => 'ISUPPORT',
X_RETURN_STATUS => l_rs,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
END update_task_without_note;
PROCEDURE update_party_note(API_VERSION IN NUMBER DEFAULT 1.0,
OBJECT_VERSION_NUMBER IN NUMBER DEFAULT 1,
PARTY_ID IN NUMBER,
COMMENTS IN VARCHAR2) IS
CURSOR jtf_note_id_cursor IS
SELECT JTF_NOTE_ID
FROM JTF_NOTES_B
WHERE SOURCE_OBJECT_CODE = 'PARTY'
AND SOURCE_OBJECT_ID = PARTY_ID
ORDER BY 1;
context_tab(1).last_update_date := SYSDATE;
context_tab(1).last_updated_by := FND_GLOBAL.USER_ID;
JTF_NOTES_PUB.Update_note
( p_api_version => 1,
p_init_msg_list => FND_API.G_FALSE,
--p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_jtf_note_id => p_note_id,
p_entered_by => NULL,
p_last_updated_by => 1000,
p_last_update_date => SYSDATE,
p_last_update_login => NULL,
p_notes => 'Updated thru API',
p_notes_detail => COMMENTS,
p_append_flag => FND_API.G_MISS_CHAR,
p_note_status => FND_API.G_MISS_CHAR,
p_note_type => FND_API.G_MISS_CHAR,
p_jtf_note_contexts_tab => context_tab
);
END UPDATE_PARTY_NOTE;