The following lines contain the word 'select', 'insert', 'update' or 'delete':
/*FOR INSERT */
PROCEDURE INSERT_GROUP(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_GROUP_ID IN NUMBER,
P_GROUP_NUMBER IN VARCHAR2,
P_EMAIL_ADDRESS IN VARCHAR2,
P_START_DATE_ACTIVE IN DATE,
P_END_DATE_ACTIVE IN DATE,
P_ACCOUNTING_CODE IN VARCHAR2,
P_EXCLUSIVE_FLAG IN VARCHAR2,
P_GROUP_NAME IN VARCHAR2,
P_GROUP_DESC IN VARCHAR2,
P_OBJECT_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_TIME_ZONE IN NUMBER)
IS
l_group_audit_id jtf_rs_groups_aud_b.group_audit_id%type;
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_GROUP';
select jtf_rs_groups_audit_s.nextval
into l_group_audit_id
from dual;
JTF_RS_GROUPS_AUD_PKG.INSERT_ROW (
X_ROWID => l_row_id,
x_group_audit_id => l_group_audit_id,
x_group_id => p_group_id,
x_new_group_number => p_group_number,
x_old_group_number => null,
x_new_email_address => p_email_address,
x_old_email_address => null,
x_new_exclusive_flag => p_exclusive_flag,
x_old_exclusive_flag => null,
x_new_start_date_active => p_start_date_active,
x_old_start_date_active => null ,
x_new_end_date_active => p_end_date_active,
x_old_end_date_active => null,
x_new_accounting_code => p_accounting_code,
x_old_accounting_code => null,
x_new_object_version_number => p_object_version_number ,
x_old_object_version_number => null,
x_new_group_name => p_group_name,
x_old_group_name => null,
x_new_group_desc => p_group_desc,
x_old_group_desc => null,
x_creation_date => l_date,
x_created_by => l_user_id ,
x_last_update_date => l_date,
x_last_updated_by => l_user_id,
x_last_update_login => l_login_id,
x_new_time_zone => p_time_zone,
x_old_time_zone => null
);
END INSERT_GROUP;
/* FOR UPDATE */
PROCEDURE UPDATE_GROUP(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_GROUP_ID IN NUMBER,
P_GROUP_NUMBER IN VARCHAR2,
P_EMAIL_ADDRESS IN VARCHAR2,
P_START_DATE_ACTIVE IN DATE,
P_END_DATE_ACTIVE IN DATE,
P_ACCOUNTING_CODE IN VARCHAR2,
P_EXCLUSIVE_FLAG IN VARCHAR2,
P_GROUP_NAME IN VARCHAR2,
P_GROUP_DESC IN VARCHAR2,
P_OBJECT_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_TIME_ZONE IN NUMBER )
IS
CURSOR rr_old_cur(l_group_id JTF_RS_GROUPS_B.GROUP_ID%TYPE)
IS
SELECT b.group_number ,
b.exclusive_flag ,
b.start_date_active ,
b.end_date_active ,
b.accounting_code ,
b.object_version_number,
b.email_address,
b.group_name,
b.group_desc,
b.time_zone
FROM jtf_rs_groups_vl B
WHERE b.group_id = l_group_id;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GROUP';
select jtf_rs_groups_audit_s.nextval
into l_group_audit_id
from dual;
JTF_RS_GROUPS_AUD_PKG.INSERT_ROW (
X_ROWID => l_row_id,
x_group_audit_id => l_group_audit_id,
x_group_id => p_group_id,
x_new_group_number => l_group_number_n,
x_old_group_number => l_group_number,
x_new_email_address => l_email_address_n,
x_old_email_address => l_email_address,
x_new_exclusive_flag => l_exclusive_flag_n,
x_old_exclusive_flag => l_exclusive_flag,
X_NEW_START_DATE_ACTIVE => l_start_date_active_n,
X_OLD_START_DATE_ACTIVE => l_start_date_active,
X_NEW_END_DATE_ACTIVE => l_end_date_active_n,
X_OLD_END_DATE_ACTIVE => l_end_date_active,
x_new_accounting_code => l_accounting_code_n,
x_old_accounting_code => l_accounting_code,
x_new_object_version_number => l_object_version_number_n,
x_old_object_version_number => l_object_version_number,
x_new_group_name => l_group_name_n,
x_old_group_name => l_group_name,
x_new_group_desc => l_group_desc_n,
x_old_group_desc => l_group_desc,
x_creation_date => l_date,
x_created_by => l_user_id ,
x_last_update_date => l_date,
x_last_updated_by => l_user_id,
x_last_update_login => l_login_id,
x_new_time_zone => l_time_zone_n,
x_old_time_zone => l_time_zone
);
END UPDATE_GROUP;
PROCEDURE DELETE_GROUP(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_GROUP_ID IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2 )
IS
CURSOR rr_old_cur(l_group_id JTF_RS_GROUPS_B.GROUP_ID%TYPE)
IS
SELECT b.group_number ,
b.exclusive_flag ,
b.start_date_active ,
b.end_date_active ,
b.accounting_code ,
b.object_version_number,
b.email_address,
b.group_name,
b.group_desc,
b.time_zone
FROM jtf_rs_groups_vl B
WHERE b.group_id = l_group_id;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GROUP';
select jtf_rs_groups_audit_s.nextval
into l_group_audit_id
from dual;
JTF_RS_GROUPS_AUD_PKG.INSERT_ROW (
X_ROWID => l_row_id,
x_group_audit_id => l_group_audit_id,
x_group_id => p_group_id,
x_new_group_number => null,
x_old_group_number => l_group_number,
x_new_email_address => null,
x_old_email_address => l_email_address,
x_new_exclusive_flag => null,
x_old_exclusive_flag => l_exclusive_flag,
X_NEW_START_DATE_ACTIVE => null,
X_OLD_START_DATE_ACTIVE => l_start_date_active,
X_NEW_END_DATE_ACTIVE => null,
X_OLD_END_DATE_ACTIVE => l_end_date_active,
x_new_accounting_code => null,
x_old_accounting_code => l_accounting_code,
x_new_object_version_number => null,
x_old_object_version_number => l_object_version_number,
x_new_group_name => null,
x_old_group_name => l_group_name,
x_new_group_desc => null,
x_old_group_desc => l_group_desc,
x_creation_date => l_date,
x_created_by => l_user_id ,
x_last_update_date => l_date,
x_last_updated_by => l_user_id,
x_last_update_login => l_login_id,
x_new_time_zone => null,
x_old_time_zone => l_time_zone
);
END DELETE_GROUP;