The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row (
x_rowid IN OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_package_item_id IN OUT NOCOPY NUMBER,
x_package_item IN VARCHAR2,
x_description IN VARCHAR2,
x_publish_ss_ind IN VARCHAR2,
x_kit_flag IN VARCHAR2,
x_object_version_number IN NUMBER,
x_actual_avail_from_date IN DATE,
x_actual_avail_to_date IN DATE,
x_mode IN VARCHAR2
)AS
/*
|| Created By : [email protected]
|| Created On : 22-JAN-2003
|| Purpose : Handles the INSERT DML logic for the table.
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
l_deliv_rec ams_deliverable_pvt.deliv_rec_type;
x_last_update_date DATE;
x_last_updated_by NUMBER;
x_last_update_login NUMBER;
CURSOR c IS SELECT 'X' FROM AMS_P_DELIVERABLES_V WHERE DELIVERABLE_NAME = x_package_item;
x_last_update_date := SYSDATE;
x_last_updated_by := 1;
x_last_update_login := 0;
x_last_updated_by := fnd_global.user_id;
IF(x_last_updated_by IS NULL) THEN
x_last_updated_by := -1;
x_last_update_login := fnd_global.login_id;
IF (x_last_update_login IS NULL) THEN
x_last_update_login := -1;
l_deliv_rec.last_update_date := sysdate;
l_deliv_rec.last_updated_by := fnd_profile.value('user_id');
l_deliv_rec.last_update_login := fnd_profile.value('user_id');
IGR_I_PKG_ITEM_Pkg.Insert_Row(
X_RowId => x_rowid,
X_Package_Item_Id => x_package_item_id,
X_Publish_Ss_Ind => x_publish_ss_ind
);
END insert_row;
CURSOR c_get_obj_num IS SELECT object_version_number from AMS_DELIVERABLES_ALL_B
WHERE DELIVERABLE_ID = x_package_item_id;
PROCEDURE update_row (
x_rowid IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_package_item_id IN OUT NOCOPY NUMBER,
x_package_item IN VARCHAR2,
x_description IN VARCHAR2,
x_publish_ss_ind IN VARCHAR2,
x_kit_flag IN VARCHAR2,
x_actual_avail_from_date IN DATE,
x_actual_avail_to_date IN DATE,
x_mode IN VARCHAR2
)AS
/*
|| Created By : [email protected]
|| Created On : 22-JAN-2003
|| Purpose : Handles the UPDATE DML logic for the table.
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
l_deliv_rec ams_deliverable_pvt.deliv_rec_type;
x_last_updated_by NUMBER;
x_last_update_login NUMBER;
CURSOR c_get_obj_num IS SELECT object_version_number from AMS_DELIVERABLES_ALL_B
WHERE DELIVERABLE_ID = x_package_item_id;
x_last_updated_by := 1;
x_last_update_login := 0;
x_last_updated_by := fnd_global.user_id;
IF x_last_updated_by IS NULL THEN
x_last_updated_by := -1;
x_last_update_login := fnd_global.login_id;
IF (x_last_update_login IS NULL) THEN
x_last_update_login := -1;
AMS_DELIVERABLE_PUB.update_DELIVERABLE(
P_API_VERSION_NUMBER => 1.0,
P_INIT_MSG_LIST => FND_API.G_TRUE,
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_deliv_rec => l_deliv_rec
);
igr_i_pkg_item_pkg.update_row(
X_RowId => x_rowid,
X_Package_Item_Id => x_package_item_id,
X_Publish_Ss_Ind => x_publish_ss_ind
);
END update_row;